diff --git a/src/stage0/init/control/combinators.cpp b/src/stage0/init/control/combinators.cpp index fcaf3b6d6a..5d0b7923fa 100644 --- a/src/stage0/init/control/combinators.cpp +++ b/src/stage0/init/control/combinators.cpp @@ -62,7 +62,7 @@ obj* l_mcond___rarg___lambda__1___boxed(obj*, obj*, obj*); obj* l_when___rarg(obj*, obj*, uint8, obj*); obj* l_List_mfoldr___boxed(obj*); obj* l_List_mforall___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___rarg___lambda__1(obj*, obj*, obj*); +obj* l_List_mmap___main___rarg___lambda__1(obj*, obj*); obj* l_List_mfoldl___main___boxed(obj*); obj* l_mwhen___rarg___lambda__1(obj*, obj*, uint8); obj* l_List_mfoldr___main(obj*); @@ -85,7 +85,6 @@ obj* l_when___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_List_mfoldl___boxed(obj*); obj* l_List_mfoldl___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_mjoin___rarg(obj*, obj*, obj*); -obj* l_List_mmap___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*); obj* l_mcond___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_mfilter___main___boxed(obj*); obj* l_mjoin(obj*); @@ -111,6 +110,7 @@ obj* l_List_mfilter___main(obj*); obj* l_List_mforall___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_List_mexists___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_List_mforall___rarg(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___rarg___closed__1; obj* l_List_mfirst___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_mforall___boxed(obj*); obj* l_List_mfoldl(obj*); @@ -183,16 +183,13 @@ _start: { if (x_2 == 0) { -obj* x_4; obj* x_7; obj* x_10; obj* x_11; -x_4 = lean::cnstr_get(x_0, 0); +obj* x_4; obj* x_7; obj* x_8; +x_4 = lean::cnstr_get(x_0, 1); lean::inc(x_4); lean::dec(x_0); -x_7 = lean::cnstr_get(x_4, 1); -lean::inc(x_7); -lean::dec(x_4); -x_10 = lean::box(0); -x_11 = lean::apply_2(x_7, lean::box(0), x_10); -return x_11; +x_7 = lean::box(0); +x_8 = lean::apply_2(x_4, lean::box(0), x_7); +return x_8; } else { @@ -241,16 +238,13 @@ return x_3; } else { -obj* x_6; obj* x_9; obj* x_12; obj* x_13; -x_6 = lean::cnstr_get(x_0, 0); +obj* x_6; obj* x_9; obj* x_10; +x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); lean::dec(x_0); -x_9 = lean::cnstr_get(x_6, 1); -lean::inc(x_9); -lean::dec(x_6); -x_12 = lean::box(0); -x_13 = lean::apply_2(x_9, lean::box(0), x_12); -return x_13; +x_9 = lean::box(0); +x_10 = lean::apply_2(x_6, lean::box(0), x_9); +return x_10; } } } @@ -420,35 +414,29 @@ x_3 = lean::mk_nat_obj(0ul); x_4 = lean::nat_dec_eq(x_2, x_3); if (x_4 == 0) { -obj* x_5; obj* x_6; obj* x_7; obj* x_9; obj* x_14; obj* x_15; obj* x_17; +obj* x_5; obj* x_6; obj* x_7; obj* x_11; obj* x_12; obj* x_14; x_5 = lean::mk_nat_obj(1ul); x_6 = lean::nat_sub(x_2, x_5); -x_7 = lean::cnstr_get(x_0, 0); +x_7 = lean::cnstr_get(x_0, 4); lean::inc(x_7); -x_9 = lean::cnstr_get(x_7, 4); -lean::inc(x_9); -lean::dec(x_7); lean::inc(x_6); lean::inc(x_1); -x_14 = lean::apply_1(x_1, x_6); -x_15 = l_Nat_mforAux___main___rarg(x_0, x_1, x_6); +x_11 = lean::apply_1(x_1, x_6); +x_12 = l_Nat_mforAux___main___rarg(x_0, x_1, x_6); lean::dec(x_6); -x_17 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_14, x_15); -return x_17; +x_14 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_11, x_12); +return x_14; } else { -obj* x_19; obj* x_22; obj* x_25; obj* x_26; +obj* x_16; obj* x_19; obj* x_20; lean::dec(x_1); -x_19 = lean::cnstr_get(x_0, 0); -lean::inc(x_19); +x_16 = lean::cnstr_get(x_0, 1); +lean::inc(x_16); lean::dec(x_0); -x_22 = lean::cnstr_get(x_19, 1); -lean::inc(x_22); -lean::dec(x_19); -x_25 = lean::box(0); -x_26 = lean::apply_2(x_22, lean::box(0), x_25); -return x_26; +x_19 = lean::box(0); +x_20 = lean::apply_2(x_16, lean::box(0), x_19); +return x_20; } } } @@ -546,34 +534,22 @@ lean::dec(x_0); return x_1; } } -obj* l_List_mmap___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +obj* l_List_mmap___main___rarg___lambda__1(obj* x_0, obj* x_1) { _start: { -obj* x_3; obj* x_6; obj* x_9; obj* x_10; -x_3 = lean::cnstr_get(x_0, 0); -lean::inc(x_3); -lean::dec(x_0); -x_6 = lean::cnstr_get(x_3, 1); -lean::inc(x_6); -lean::dec(x_3); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_1); -lean::cnstr_set(x_9, 1, x_2); -x_10 = lean::apply_2(x_6, lean::box(0), x_9); -return x_10; +obj* x_2; +x_2 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_2, 0, x_0); +lean::cnstr_set(x_2, 1, x_1); +return x_2; } } -obj* l_List_mmap___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* _init_l_List_mmap___main___rarg___closed__1() { _start: { -obj* x_6; obj* x_7; obj* x_8; -lean::inc(x_0); -x_6 = l_List_mmap___main___rarg(x_0, lean::box(0), lean::box(0), x_1, x_2); -x_7 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___rarg___lambda__1), 3, 2); -lean::closure_set(x_7, 0, x_0); -lean::closure_set(x_7, 1, x_4); -x_8 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_6, x_7); -return x_8; +obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___rarg___lambda__1), 2, 0); +return x_0; } } obj* l_List_mmap___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -581,38 +557,37 @@ _start: { if (lean::obj_tag(x_4) == 0) { -obj* x_6; obj* x_9; obj* x_12; obj* x_13; +obj* x_6; obj* x_9; obj* x_10; lean::dec(x_3); -x_6 = lean::cnstr_get(x_0, 0); +x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); lean::dec(x_0); -x_9 = lean::cnstr_get(x_6, 1); -lean::inc(x_9); -lean::dec(x_6); -x_12 = lean::box(0); -x_13 = lean::apply_2(x_9, lean::box(0), x_12); -return x_13; +x_9 = lean::box(0); +x_10 = lean::apply_2(x_6, lean::box(0), x_9); +return x_10; } else { -obj* x_14; obj* x_16; obj* x_19; obj* x_22; obj* x_24; obj* x_25; -x_14 = lean::cnstr_get(x_4, 0); -lean::inc(x_14); -x_16 = lean::cnstr_get(x_4, 1); -lean::inc(x_16); +obj* x_11; obj* x_13; obj* x_16; obj* x_18; obj* x_20; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_11 = lean::cnstr_get(x_4, 0); +lean::inc(x_11); +x_13 = lean::cnstr_get(x_4, 1); +lean::inc(x_13); lean::dec(x_4); -x_19 = lean::cnstr_get(x_0, 1); -lean::inc(x_19); +x_16 = lean::cnstr_get(x_0, 2); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_0, 0); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_18, 0); +lean::inc(x_20); +lean::dec(x_18); lean::inc(x_3); -x_22 = lean::apply_1(x_3, x_14); -lean::inc(x_19); -x_24 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___rarg___lambda__2), 5, 4); -lean::closure_set(x_24, 0, x_0); -lean::closure_set(x_24, 1, x_3); -lean::closure_set(x_24, 2, x_16); -lean::closure_set(x_24, 3, x_19); -x_25 = lean::apply_4(x_19, lean::box(0), lean::box(0), x_22, x_24); -return x_25; +x_24 = lean::apply_1(x_3, x_11); +x_25 = l_List_mmap___main___rarg___closed__1; +x_26 = lean::apply_4(x_20, lean::box(0), lean::box(0), x_25, x_24); +x_27 = l_List_mmap___main___rarg(x_0, lean::box(0), lean::box(0), x_3, x_13); +x_28 = lean::apply_4(x_16, lean::box(0), lean::box(0), x_26, x_27); +return x_28; } } } @@ -683,36 +658,30 @@ _start: { if (lean::obj_tag(x_4) == 0) { -obj* x_6; obj* x_9; obj* x_12; obj* x_13; +obj* x_6; obj* x_9; obj* x_10; lean::dec(x_3); -x_6 = lean::cnstr_get(x_0, 0); +x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); lean::dec(x_0); -x_9 = lean::cnstr_get(x_6, 1); -lean::inc(x_9); -lean::dec(x_6); -x_12 = lean::box(0); -x_13 = lean::apply_2(x_9, lean::box(0), x_12); -return x_13; +x_9 = lean::box(0); +x_10 = lean::apply_2(x_6, lean::box(0), x_9); +return x_10; } else { -obj* x_14; obj* x_16; obj* x_19; obj* x_21; obj* x_25; obj* x_26; obj* x_27; -x_14 = lean::cnstr_get(x_4, 0); -lean::inc(x_14); -x_16 = lean::cnstr_get(x_4, 1); -lean::inc(x_16); +obj* x_11; obj* x_13; obj* x_16; obj* x_19; obj* x_20; obj* x_21; +x_11 = lean::cnstr_get(x_4, 0); +lean::inc(x_11); +x_13 = lean::cnstr_get(x_4, 1); +lean::inc(x_13); lean::dec(x_4); -x_19 = lean::cnstr_get(x_0, 0); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_19, 4); -lean::inc(x_21); -lean::dec(x_19); +x_16 = lean::cnstr_get(x_0, 4); +lean::inc(x_16); lean::inc(x_3); -x_25 = lean::apply_1(x_3, x_14); -x_26 = l_List_mfor___main___rarg(x_0, lean::box(0), lean::box(0), x_3, x_16); -x_27 = lean::apply_4(x_21, lean::box(0), lean::box(0), x_25, x_26); -return x_27; +x_19 = lean::apply_1(x_3, x_11); +x_20 = l_List_mfor___main___rarg(x_0, lean::box(0), lean::box(0), x_3, x_13); +x_21 = lean::apply_4(x_16, lean::box(0), lean::box(0), x_19, x_20); +return x_21; } } } @@ -1525,5 +1494,7 @@ if (io_result_is_error(w)) return w; w = initialize_init_data_list_basic(w); l_mjoin___rarg___closed__1 = _init_l_mjoin___rarg___closed__1(); lean::mark_persistent(l_mjoin___rarg___closed__1); + l_List_mmap___main___rarg___closed__1 = _init_l_List_mmap___main___rarg___closed__1(); +lean::mark_persistent(l_List_mmap___main___rarg___closed__1); return w; } diff --git a/src/stage0/init/control/estate.cpp b/src/stage0/init/control/estate.cpp index d79aab2e44..3bc6de4053 100644 --- a/src/stage0/init/control/estate.cpp +++ b/src/stage0/init/control/estate.cpp @@ -15,6 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_EState_modify___boxed(obj*, obj*); +obj* l_EState_seqRight___rarg(obj*, obj*, obj*); obj* l_EState_resultOk_mk___rarg(obj*, obj*); obj* l_EState_Monad___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_EState_HasRepr___rarg(obj*, obj*); @@ -44,6 +45,7 @@ obj* l_EState_adaptExcept___rarg(obj*, obj*, obj*); obj* l_EState_Result_toString___main___rarg___closed__2; obj* l_EState_bind(obj*, obj*, obj*, obj*); obj* l_EState_pure___boxed(obj*, obj*, obj*); +obj* l_EState_seqRight___boxed(obj*, obj*, obj*, obj*); obj* l_EState_modify(obj*, obj*); obj* l_EState_unreachableError___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_EState_Result_toString___boxed(obj*, obj*, obj*); @@ -51,7 +53,6 @@ namespace lean { obj* string_append(obj*, obj*); } obj* l_EState_Result_repr___main___rarg(obj*, obj*, obj*); -obj* l_EState_Monad___lambda__4___boxed(obj*, obj*, obj*, obj*, obj*); extern obj* l_Option_HasRepr___rarg___closed__3; obj* l_EState_HasOrelse___closed__1; obj* l_EState_pure(obj*, obj*, obj*); @@ -67,7 +68,6 @@ obj* l_EState_HasRepr___boxed(obj*, obj*, obj*); obj* l_EState_adaptExcept(obj*, obj*, obj*, obj*); obj* l_EState_bind___boxed(obj*, obj*, obj*, obj*); obj* l_EState_Monad___lambda__2(obj*, obj*, obj*, obj*, obj*); -obj* l_EState_Monad___lambda__4(obj*, obj*, obj*, obj*, obj*); obj* l_EState_HasRepr(obj*, obj*, obj*); obj* l_EState_Monad___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_EState_catch___boxed(obj*, obj*, obj*); @@ -80,6 +80,7 @@ obj* l_EState_Result_repr___rarg(obj*, obj*, obj*); obj* l_EState_get___boxed(obj*, obj*); obj* l_EState_orelse___rarg(obj*, obj*, obj*); obj* l_EState_orelse___boxed(obj*, obj*, obj*); +obj* l_EState_seqRight(obj*, obj*, obj*, obj*); obj* l_EState_MonadState(obj*, obj*); obj* l_EState_pure___rarg(obj*, obj*); obj* l_EState_HasToString(obj*, obj*, obj*); @@ -1085,6 +1086,79 @@ lean::dec(x_3); return x_4; } } +obj* l_EState_seqRight___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::apply_1(x_0, x_2); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_4 = lean::cnstr_get(x_3, 1); +if (lean::is_exclusive(x_3)) { + lean::cnstr_release(x_3, 0); + x_6 = x_3; +} else { + lean::inc(x_4); + lean::dec(x_3); + x_6 = lean::box(0); +} +x_7 = lean::box(0); +if (lean::is_scalar(x_6)) { + x_8 = lean::alloc_cnstr(0, 2, 0); +} else { + x_8 = x_6; +} +lean::cnstr_set(x_8, 0, x_7); +lean::cnstr_set(x_8, 1, x_4); +x_9 = lean::apply_1(x_1, x_8); +return x_9; +} +else +{ +obj* x_11; obj* x_13; obj* x_15; obj* x_16; +lean::dec(x_1); +x_11 = lean::cnstr_get(x_3, 0); +x_13 = lean::cnstr_get(x_3, 1); +if (lean::is_exclusive(x_3)) { + x_15 = x_3; +} else { + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_3); + x_15 = lean::box(0); +} +if (lean::is_scalar(x_15)) { + x_16 = lean::alloc_cnstr(1, 2, 0); +} else { + x_16 = x_15; +} +lean::cnstr_set(x_16, 0, x_11); +lean::cnstr_set(x_16, 1, x_13); +return x_16; +} +} +} +obj* l_EState_seqRight(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = lean::alloc_closure(reinterpret_cast(l_EState_seqRight___rarg), 3, 0); +return x_4; +} +} +obj* l_EState_seqRight___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_EState_seqRight(x_0, x_1, x_2, x_3); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +lean::dec(x_3); +return x_4; +} +} obj* l_EState_Monad___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { @@ -1332,59 +1406,6 @@ return x_31; } } } -obj* l_EState_Monad___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = lean::apply_1(x_2, x_4); -if (lean::obj_tag(x_5) == 0) -{ -obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_6 = lean::cnstr_get(x_5, 1); -if (lean::is_exclusive(x_5)) { - lean::cnstr_release(x_5, 0); - x_8 = x_5; -} else { - lean::inc(x_6); - lean::dec(x_5); - x_8 = lean::box(0); -} -x_9 = lean::box(0); -if (lean::is_scalar(x_8)) { - x_10 = lean::alloc_cnstr(0, 2, 0); -} else { - x_10 = x_8; -} -lean::cnstr_set(x_10, 0, x_9); -lean::cnstr_set(x_10, 1, x_6); -x_11 = lean::apply_1(x_3, x_10); -return x_11; -} -else -{ -obj* x_13; obj* x_15; obj* x_17; obj* x_18; -lean::dec(x_3); -x_13 = lean::cnstr_get(x_5, 0); -x_15 = lean::cnstr_get(x_5, 1); -if (lean::is_exclusive(x_5)) { - x_17 = x_5; -} else { - lean::inc(x_13); - lean::inc(x_15); - lean::dec(x_5); - x_17 = lean::box(0); -} -if (lean::is_scalar(x_17)) { - x_18 = lean::alloc_cnstr(1, 2, 0); -} else { - x_18 = x_17; -} -lean::cnstr_set(x_18, 0, x_13); -lean::cnstr_set(x_18, 1, x_15); -return x_18; -} -} -} obj* _init_l_EState_Monad___closed__1() { _start: { @@ -1399,15 +1420,17 @@ lean::cnstr_set(x_2, 1, x_1); x_3 = lean::alloc_closure(reinterpret_cast(l_EState_pure___boxed), 3, 2); lean::closure_set(x_3, 0, lean::box(0)); lean::closure_set(x_3, 1, lean::box(0)); -x_4 = lean::alloc_closure(reinterpret_cast(l_EState_Monad___lambda__2___boxed), 5, 0); -x_5 = lean::alloc_closure(reinterpret_cast(l_EState_Monad___lambda__3___boxed), 5, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_EState_Monad___lambda__4___boxed), 5, 0); +x_4 = lean::alloc_closure(reinterpret_cast(l_EState_seqRight___boxed), 4, 2); +lean::closure_set(x_4, 0, lean::box(0)); +lean::closure_set(x_4, 1, lean::box(0)); +x_5 = lean::alloc_closure(reinterpret_cast(l_EState_Monad___lambda__2___boxed), 5, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_EState_Monad___lambda__3___boxed), 5, 0); x_7 = lean::alloc_cnstr(0, 5, 0); lean::cnstr_set(x_7, 0, x_2); lean::cnstr_set(x_7, 1, x_3); -lean::cnstr_set(x_7, 2, x_4); -lean::cnstr_set(x_7, 3, x_5); -lean::cnstr_set(x_7, 4, x_6); +lean::cnstr_set(x_7, 2, x_5); +lean::cnstr_set(x_7, 3, x_6); +lean::cnstr_set(x_7, 4, x_4); x_8 = lean::alloc_closure(reinterpret_cast(l_EState_bind___boxed), 4, 2); lean::closure_set(x_8, 0, lean::box(0)); lean::closure_set(x_8, 1, lean::box(0)); @@ -1455,16 +1478,6 @@ lean::dec(x_1); return x_5; } } -obj* l_EState_Monad___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_EState_Monad___lambda__4(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_0); -lean::dec(x_1); -return x_5; -} -} obj* l_EState_Monad___boxed(obj* x_0, obj* x_1) { _start: { diff --git a/src/stage0/init/control/except.cpp b/src/stage0/init/control/except.cpp index 2f14ed4b6a..a800e460b8 100644 --- a/src/stage0/init/control/except.cpp +++ b/src/stage0/init/control/except.cpp @@ -19,17 +19,15 @@ obj* l_ExceptT_HasMonadLift___boxed(obj*, obj*); obj* l_Except_HasRepr___boxed(obj*, obj*); obj* l_ExceptT_lift___rarg___closed__1; obj* l_Except_repr___rarg(obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_MonadExceptAdapter___rarg(obj*, obj*, obj*, obj*); obj* l_ExceptT_exceptTOfExcept(obj*, obj*); +obj* l_ExceptT_pure___boxed(obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_MonadExcept___rarg___lambda__1___boxed(obj*, obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Except_toOption(obj*, obj*); -obj* l_ExceptT_return___rarg(obj*, obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___boxed(obj*, obj*); uint8 l_Except_toBool___main___rarg(obj*); -obj* l_ExceptT_return___boxed(obj*, obj*); obj* l_ExceptT_MonadFail(obj*); obj* l_Except_return(obj*, obj*); obj* l_MonadExcept_liftExcept___boxed(obj*, obj*, obj*); @@ -51,10 +49,8 @@ obj* l_ExceptT_MonadFail___rarg___boxed(obj*, obj*, obj*); obj* l_ExceptT_adapt(obj*, obj*); obj* l_Except_Inhabited___boxed(obj*, obj*); obj* l_ExceptT_bindCont___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_MonadExcept_orelse_x_27___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__6(obj*, obj*, obj*); -obj* l_Function_comp___rarg(obj*, obj*, obj*); obj* l_ExceptT_HasMonadLift(obj*, obj*); obj* l_ExceptT_run___rarg___boxed(obj*); obj* l_Except_toOption___main(obj*, obj*); @@ -72,7 +68,6 @@ obj* l_Except_bind___boxed(obj*, obj*, obj*); obj* l_ExceptT_lift___rarg___lambda__1(obj*); obj* l_ExceptT_adapt___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_catch(obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_bindCont___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Except_toBool___rarg___boxed(obj*); obj* l_Except_map(obj*, obj*, obj*); @@ -98,7 +93,6 @@ obj* l_Except_bind___rarg(obj*, obj*); obj* l_ExceptT_MonadExcept___rarg___lambda__1(obj*, obj*, obj*); obj* l_Except_MonadExcept___boxed(obj*); obj* l_ExceptT_Monad___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___boxed(obj*, obj*); obj* l_Except_toString___rarg(obj*, obj*, obj*); obj* l_Except_Monad___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_Except_toString___main___boxed(obj*, obj*); @@ -108,14 +102,13 @@ obj* l_ExceptT_bindCont(obj*, obj*); obj* l_ExceptT_catch___rarg___lambda__1(obj*, obj*, obj*); obj* l_Except_map___rarg(obj*, obj*); obj* l_Except_repr___main___boxed(obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6(obj*, obj*); namespace lean { obj* string_append(obj*, obj*); } obj* l_Except_HasRepr(obj*, obj*); obj* l_monadExceptAdapterTrans(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Except_Monad___lambda__5(obj*, obj*, obj*, obj*); obj* l_Except_bind(obj*, obj*, obj*); +obj* l_ExceptT_pure___rarg(obj*, obj*, obj*); obj* l_ExceptT_catch___rarg___boxed(obj*, obj*, obj*, obj*); uint8 l_Except_toBool___rarg(obj*); obj* l_Except_toBool___main___rarg___boxed(obj*); @@ -125,25 +118,27 @@ obj* l_ExceptT_Monad___rarg___lambda__7(obj*, obj*, obj*, obj*, obj*); extern obj* l_Option_HasRepr___rarg___closed__3; obj* l_ExceptT_MonadExceptAdapter(obj*, obj*, obj*); obj* l_Except_return___rarg(obj*); +obj* l_ExceptT_pure(obj*, obj*); obj* l_Except_HasToString___rarg(obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__1___boxed(obj*, obj*); obj* l_Except_toBool(obj*, obj*); +obj* l_ExceptT_map(obj*, obj*); obj* l_ExceptT_HasMonadLift___rarg(obj*); -obj* l_Except_Monad___lambda__5___boxed(obj*, obj*, obj*, obj*); obj* l_MonadExcept_liftExcept___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__5___boxed(obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__7___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Except_toString___main___rarg___closed__2; obj* l_ExceptT_MonadFunctor___rarg(obj*, obj*); obj* l_Except_toString___main(obj*, obj*); -obj* l_ExceptT_return(obj*, obj*); obj* l_ExceptT_mk(obj*, obj*, obj*); obj* l_Except_catch___boxed(obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__9(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_lift___rarg___boxed(obj*, obj*, obj*); obj* l_ExceptT_run___rarg(obj*); +obj* l_ExceptT_map___rarg___lambda__1(obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__8___boxed(obj*, obj*); obj* l_ExceptT_MonadExcept___boxed(obj*, obj*); +obj* l_ExceptT_map___boxed(obj*, obj*); obj* l_Except_map___main(obj*, obj*, obj*); obj* l_Except_MonadExcept___lambda__1___boxed(obj*, obj*); obj* l_MonadExcept_orelse_x_27___rarg___lambda__1(obj*, uint8, obj*, obj*); @@ -153,7 +148,6 @@ obj* l_Except_mapError___main___rarg(obj*, obj*); obj* l_Except_Monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_Except_map___main___boxed(obj*, obj*, obj*); obj* l_MonadExcept_orelse_x_27(obj*, obj*); -obj* l_ExceptT_Monad___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_MonadFunctor(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_exceptTOfExcept___rarg(obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__8(obj*, obj*); @@ -161,8 +155,6 @@ obj* l_MonadExcept_orelse_x_27___rarg___lambda__2___boxed(obj*, obj*, obj*, obj* obj* l_ExceptT_adapt___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Except_catch___rarg(obj*, obj*); obj* l_Except_Inhabited___rarg(obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5(obj*, obj*); -obj* l_Function_const___rarg___boxed(obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3(obj*, obj*); obj* l_ExceptT_bind___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Except_Inhabited(obj*, obj*); @@ -173,7 +165,6 @@ obj* l_ExceptT_Monad___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_bindCont___main(obj*, obj*); obj* l_Except_toString___main___rarg___closed__1; obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__2(obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Except_Monad___lambda__3___boxed(obj*, obj*, obj*, obj*); obj* l_Except_toOption___main___rarg(obj*); obj* l_ExceptT_MonadFail___boxed(obj*); @@ -184,24 +175,21 @@ obj* l_Except_mapError___boxed(obj*, obj*, obj*); obj* l_MonadExcept_liftExcept___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_lift(obj*, obj*); obj* l_Except_mapError___main___boxed(obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_bind(obj*, obj*); +obj* l_ExceptT_pure___rarg___boxed(obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Except_Monad(obj*); obj* l_ExceptT_MonadRun___rarg(obj*, obj*, obj*); obj* l_ExceptT_bindCont___rarg(obj*, obj*, obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___boxed(obj*, obj*); obj* l_ExceptT_catch___rarg(obj*, obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Except_Monad___boxed(obj*); obj* l_MonadExcept_orelse___boxed(obj*, obj*); obj* l_MonadExcept_orelse_x_27___rarg___lambda__2(obj*, uint8, obj*, obj*, obj*); obj* l_ExceptT_MonadFail___rarg(obj*, obj*, obj*); obj* l_ExceptT_lift___boxed(obj*, obj*); obj* l_Except_toString(obj*, obj*); -obj* l_ExceptT_Monad___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7(obj*, obj*); +obj* l_ExceptT_Monad___rarg___lambda__1(obj*, obj*, obj*); obj* l_ExceptT_Monad___rarg(obj*); obj* l_Except_HasToString___boxed(obj*, obj*); obj* l_MonadExcept_orelse___rarg___boxed(obj*, obj*, obj*, obj*); @@ -216,14 +204,14 @@ obj* l_MonadExcept_liftExcept___main___rarg___boxed(obj*, obj*, obj*, obj*, obj* obj* l_Except_HasRepr___rarg(obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___boxed(obj*, obj*); obj* l_Except_toString___main___rarg(obj*, obj*, obj*); -obj* l_ExceptT_return___rarg___boxed(obj*, obj*, obj*); obj* l_ExceptT_Monad(obj*, obj*); obj* l_Except_Monad___closed__1; obj* l_ExceptT_MonadExceptAdapter___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_ExceptT_map___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_monadExceptAdapterTrans___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Except_Monad___lambda__4(obj*, obj*, obj*, obj*); -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___boxed(obj*, obj*); obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_ExceptT_map___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_ExceptT_Monad___boxed(obj*, obj*); obj* l_Except_toOption___boxed(obj*, obj*); obj* l_MonadExcept_liftExcept___main(obj*, obj*, obj*); @@ -1059,51 +1047,6 @@ return x_8; } else { -obj* x_9; obj* x_11; obj* x_12; obj* x_13; -x_9 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_11 = x_3; -} else { - lean::inc(x_9); - lean::dec(x_3); - x_11 = lean::box(0); -} -x_12 = lean::apply_1(x_2, x_9); -if (lean::is_scalar(x_11)) { - x_13 = lean::alloc_cnstr(1, 1, 0); -} else { - x_13 = x_11; -} -lean::cnstr_set(x_13, 0, x_12); -return x_13; -} -} -} -obj* l_Except_Monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -if (lean::obj_tag(x_3) == 0) -{ -obj* x_5; obj* x_7; obj* x_8; -lean::dec(x_2); -x_5 = lean::cnstr_get(x_3, 0); -if (lean::is_exclusive(x_3)) { - x_7 = x_3; -} else { - lean::inc(x_5); - lean::dec(x_3); - x_7 = lean::box(0); -} -if (lean::is_scalar(x_7)) { - x_8 = lean::alloc_cnstr(0, 1, 0); -} else { - x_8 = x_7; -} -lean::cnstr_set(x_8, 0, x_5); -return x_8; -} -else -{ obj* x_9; obj* x_10; if (lean::is_exclusive(x_3)) { lean::cnstr_release(x_3, 0); @@ -1122,7 +1065,7 @@ return x_10; } } } -obj* l_Except_Monad___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_Except_Monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_2) == 0) @@ -1193,7 +1136,7 @@ return x_21; } } } -obj* l_Except_Monad___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_Except_Monad___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_2) == 0) @@ -1262,7 +1205,7 @@ return x_18; } } } -obj* l_Except_Monad___lambda__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_Except_Monad___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_2) == 0) @@ -1296,16 +1239,17 @@ obj* _init_l_Except_Monad___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_0 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__2___boxed), 4, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_Except_map___boxed), 3, 1); +lean::closure_set(x_0, 0, lean::box(0)); +x_1 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__1___boxed), 4, 0); x_2 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2, 0, x_0); lean::cnstr_set(x_2, 1, x_1); x_3 = lean::alloc_closure(reinterpret_cast(l_Except_return___boxed), 2, 1); lean::closure_set(x_3, 0, lean::box(0)); -x_4 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__3___boxed), 4, 0); -x_5 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__4___boxed), 4, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__5___boxed), 4, 0); +x_4 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__2___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__3___boxed), 4, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_Except_Monad___lambda__4___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); lean::cnstr_set(x_7, 0, x_2); lean::cnstr_set(x_7, 1, x_3); @@ -1365,16 +1309,6 @@ obj* x_4; x_4 = l_Except_Monad___lambda__4(x_0, x_1, x_2, x_3); lean::dec(x_0); lean::dec(x_1); -return x_4; -} -} -obj* l_Except_Monad___lambda__5___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Except_Monad___lambda__5(x_0, x_1, x_2, x_3); -lean::dec(x_0); -lean::dec(x_1); lean::dec(x_3); return x_4; } @@ -1458,7 +1392,7 @@ lean::dec(x_2); return x_3; } } -obj* l_ExceptT_return___rarg(obj* x_0, obj* x_1, obj* x_2) { +obj* l_ExceptT_pure___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_6; obj* x_9; obj* x_10; @@ -1474,28 +1408,28 @@ x_10 = lean::apply_2(x_6, lean::box(0), x_9); return x_10; } } -obj* l_ExceptT_return(obj* x_0, obj* x_1) { +obj* l_ExceptT_pure(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_return___rarg___boxed), 3, 0); +x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_pure___rarg___boxed), 3, 0); return x_2; } } -obj* l_ExceptT_return___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +obj* l_ExceptT_pure___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; -x_3 = l_ExceptT_return___rarg(x_0, x_1, x_2); +x_3 = l_ExceptT_pure___rarg(x_0, x_1, x_2); lean::dec(x_1); return x_3; } } -obj* l_ExceptT_return___boxed(obj* x_0, obj* x_1) { +obj* l_ExceptT_pure___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_ExceptT_return(x_0, x_1); +x_2 = l_ExceptT_pure(x_0, x_1); lean::dec(x_0); lean::dec(x_1); return x_2; @@ -1684,6 +1618,106 @@ lean::dec(x_1); return x_2; } } +obj* l_ExceptT_map___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_2) == 0) +{ +obj* x_4; obj* x_6; obj* x_7; obj* x_10; obj* x_13; obj* x_14; +lean::dec(x_1); +x_4 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_6 = x_2; +} else { + lean::inc(x_4); + lean::dec(x_2); + x_6 = lean::box(0); +} +x_7 = lean::cnstr_get(x_0, 0); +lean::inc(x_7); +lean::dec(x_0); +x_10 = lean::cnstr_get(x_7, 1); +lean::inc(x_10); +lean::dec(x_7); +if (lean::is_scalar(x_6)) { + x_13 = lean::alloc_cnstr(0, 1, 0); +} else { + x_13 = x_6; +} +lean::cnstr_set(x_13, 0, x_4); +x_14 = lean::apply_2(x_10, lean::box(0), x_13); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_24; obj* x_25; obj* x_26; +x_15 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_17 = x_2; +} else { + lean::inc(x_15); + lean::dec(x_2); + x_17 = lean::box(0); +} +x_18 = lean::cnstr_get(x_0, 0); +lean::inc(x_18); +lean::dec(x_0); +x_21 = lean::cnstr_get(x_18, 1); +lean::inc(x_21); +lean::dec(x_18); +x_24 = lean::apply_1(x_1, x_15); +if (lean::is_scalar(x_17)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_17; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::apply_2(x_21, lean::box(0), x_25); +return x_26; +} +} +} +obj* l_ExceptT_map___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; obj* x_7; obj* x_8; +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_map___rarg___lambda__1), 3, 2); +lean::closure_set(x_7, 0, x_0); +lean::closure_set(x_7, 1, x_3); +x_8 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_4, x_7); +return x_8; +} +} +obj* l_ExceptT_map(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_map___rarg___boxed), 5, 0); +return x_2; +} +} +obj* l_ExceptT_map___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = l_ExceptT_map___rarg(x_0, x_1, x_2, x_3, x_4); +lean::dec(x_1); +lean::dec(x_2); +return x_5; +} +} +obj* l_ExceptT_map___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_ExceptT_map(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} obj* l_ExceptT_lift___rarg___lambda__1(obj* x_0) { _start: { @@ -2112,222 +2146,87 @@ x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_Except return x_2; } } -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +obj* l_ExceptT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { -if (lean::obj_tag(x_4) == 0) +if (lean::obj_tag(x_2) == 0) { -obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16; -lean::dec(x_3); -x_6 = lean::cnstr_get(x_4, 0); -if (lean::is_exclusive(x_4)) { - x_8 = x_4; +obj* x_4; obj* x_6; obj* x_7; obj* x_10; obj* x_13; obj* x_14; +lean::dec(x_1); +x_4 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_6 = x_2; } else { - lean::inc(x_6); - lean::dec(x_4); - x_8 = lean::box(0); + lean::inc(x_4); + lean::dec(x_2); + x_6 = lean::box(0); } -x_9 = lean::cnstr_get(x_0, 0); -lean::inc(x_9); +x_7 = lean::cnstr_get(x_0, 0); +lean::inc(x_7); lean::dec(x_0); -x_12 = lean::cnstr_get(x_9, 1); -lean::inc(x_12); -lean::dec(x_9); -if (lean::is_scalar(x_8)) { - x_15 = lean::alloc_cnstr(0, 1, 0); +x_10 = lean::cnstr_get(x_7, 1); +lean::inc(x_10); +lean::dec(x_7); +if (lean::is_scalar(x_6)) { + x_13 = lean::alloc_cnstr(0, 1, 0); } else { - x_15 = x_8; + x_13 = x_6; } -lean::cnstr_set(x_15, 0, x_6); -x_16 = lean::apply_2(x_12, lean::box(0), x_15); -return x_16; +lean::cnstr_set(x_13, 0, x_4); +x_14 = lean::apply_2(x_10, lean::box(0), x_13); +return x_14; } else { -obj* x_18; obj* x_21; -lean::dec(x_0); -x_18 = lean::cnstr_get(x_4, 0); -lean::inc(x_18); -lean::dec(x_4); -x_21 = lean::apply_1(x_3, x_18); -return x_21; -} -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed), 5, 0); -return x_2; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -if (lean::obj_tag(x_4) == 0) -{ -obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16; -lean::dec(x_3); -x_6 = lean::cnstr_get(x_4, 0); -if (lean::is_exclusive(x_4)) { - x_8 = x_4; +obj* x_15; obj* x_16; obj* x_19; obj* x_22; obj* x_23; +if (lean::is_exclusive(x_2)) { + lean::cnstr_release(x_2, 0); + x_15 = x_2; } else { - lean::inc(x_6); - lean::dec(x_4); - x_8 = lean::box(0); + lean::dec(x_2); + x_15 = lean::box(0); } -x_9 = lean::cnstr_get(x_0, 0); -lean::inc(x_9); +x_16 = lean::cnstr_get(x_0, 0); +lean::inc(x_16); lean::dec(x_0); -x_12 = lean::cnstr_get(x_9, 1); -lean::inc(x_12); -lean::dec(x_9); -if (lean::is_scalar(x_8)) { - x_15 = lean::alloc_cnstr(0, 1, 0); +x_19 = lean::cnstr_get(x_16, 1); +lean::inc(x_19); +lean::dec(x_16); +if (lean::is_scalar(x_15)) { + x_22 = lean::alloc_cnstr(1, 1, 0); } else { - x_15 = x_8; + x_22 = x_15; } -lean::cnstr_set(x_15, 0, x_6); -x_16 = lean::apply_2(x_12, lean::box(0), x_15); -return x_16; +lean::cnstr_set(x_22, 0, x_1); +x_23 = lean::apply_2(x_19, lean::box(0), x_22); +return x_23; } -else -{ -obj* x_18; obj* x_21; -lean::dec(x_0); -x_18 = lean::cnstr_get(x_4, 0); -lean::inc(x_18); -lean::dec(x_4); -x_21 = lean::apply_1(x_3, x_18); -return x_21; -} -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed), 5, 0); -return x_2; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -if (lean::obj_tag(x_4) == 0) -{ -obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16; -lean::dec(x_3); -x_6 = lean::cnstr_get(x_4, 0); -if (lean::is_exclusive(x_4)) { - x_8 = x_4; -} else { - lean::inc(x_6); - lean::dec(x_4); - x_8 = lean::box(0); -} -x_9 = lean::cnstr_get(x_0, 0); -lean::inc(x_9); -lean::dec(x_0); -x_12 = lean::cnstr_get(x_9, 1); -lean::inc(x_12); -lean::dec(x_9); -if (lean::is_scalar(x_8)) { - x_15 = lean::alloc_cnstr(0, 1, 0); -} else { - x_15 = x_8; -} -lean::cnstr_set(x_15, 0, x_6); -x_16 = lean::apply_2(x_12, lean::box(0), x_15); -return x_16; -} -else -{ -obj* x_18; obj* x_21; -lean::dec(x_0); -x_18 = lean::cnstr_get(x_4, 0); -lean::inc(x_18); -lean::dec(x_4); -x_21 = lean::apply_1(x_3, x_18); -return x_21; -} -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed), 5, 0); -return x_2; -} -} -obj* l_ExceptT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; -lean::inc(x_0); -x_6 = lean::alloc_closure(reinterpret_cast(l_ExceptT_return___rarg___boxed), 3, 2); -lean::closure_set(x_6, 0, x_0); -lean::closure_set(x_6, 1, lean::box(0)); -x_7 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_7, 0, x_6); -lean::closure_set(x_7, 1, x_3); -x_8 = lean::cnstr_get(x_0, 1); -lean::inc(x_8); -x_10 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__1___rarg___boxed), 5, 4); -lean::closure_set(x_10, 0, x_0); -lean::closure_set(x_10, 1, lean::box(0)); -lean::closure_set(x_10, 2, lean::box(0)); -lean::closure_set(x_10, 3, x_7); -x_11 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_4, x_10); -return x_11; } } obj* l_ExceptT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; -x_5 = lean::alloc_closure(reinterpret_cast(l_Function_const___rarg___boxed), 2, 1); -lean::closure_set(x_5, 0, x_3); -lean::inc(x_0); -x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_return___rarg___boxed), 3, 2); +obj* x_5; obj* x_7; obj* x_8; +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_Monad___rarg___lambda__1), 3, 2); lean::closure_set(x_7, 0, x_0); -lean::closure_set(x_7, 1, lean::box(0)); -x_8 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_8, 0, x_7); -lean::closure_set(x_8, 1, x_5); -x_9 = lean::cnstr_get(x_0, 1); -lean::inc(x_9); -x_11 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__2___rarg___boxed), 5, 4); -lean::closure_set(x_11, 0, x_0); -lean::closure_set(x_11, 1, lean::box(0)); -lean::closure_set(x_11, 2, lean::box(0)); -lean::closure_set(x_11, 3, x_8); -x_12 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_4, x_11); -return x_12; +lean::closure_set(x_7, 1, x_3); +x_8 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_4, x_7); +return x_8; } } obj* l_ExceptT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_9; -lean::inc(x_0); -x_4 = lean::alloc_closure(reinterpret_cast(l_ExceptT_return___rarg___boxed), 3, 2); -lean::closure_set(x_4, 0, x_0); -lean::closure_set(x_4, 1, lean::box(0)); -x_5 = lean::alloc_closure(reinterpret_cast(l_Function_comp___rarg), 3, 2); -lean::closure_set(x_5, 0, x_4); +obj* x_3; obj* x_5; obj* x_6; +x_3 = lean::cnstr_get(x_0, 1); +lean::inc(x_3); +x_5 = lean::alloc_closure(reinterpret_cast(l_ExceptT_map___rarg___lambda__1), 3, 2); +lean::closure_set(x_5, 0, x_0); lean::closure_set(x_5, 1, x_2); -x_6 = lean::cnstr_get(x_0, 1); -lean::inc(x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg___boxed), 5, 4); -lean::closure_set(x_8, 0, x_0); -lean::closure_set(x_8, 1, lean::box(0)); -lean::closure_set(x_8, 2, lean::box(0)); -lean::closure_set(x_8, 3, x_5); -x_9 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_1, x_8); -return x_9; +x_6 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_1, x_5); +return x_6; } } obj* l_ExceptT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -2340,7 +2239,7 @@ lean::closure_set(x_6, 0, x_0); lean::closure_set(x_6, 1, x_4); x_7 = lean::cnstr_get(x_0, 1); lean::inc(x_7); -x_9 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___rarg___boxed), 5, 4); +x_9 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__1___rarg___boxed), 5, 4); lean::closure_set(x_9, 0, x_0); lean::closure_set(x_9, 1, lean::box(0)); lean::closure_set(x_9, 2, lean::box(0)); @@ -2375,7 +2274,7 @@ lean::closure_set(x_4, 0, x_0); lean::closure_set(x_4, 1, x_2); x_5 = lean::cnstr_get(x_0, 1); lean::inc(x_5); -x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed), 5, 4); +x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__2___rarg___boxed), 5, 4); lean::closure_set(x_7, 0, x_0); lean::closure_set(x_7, 1, lean::box(0)); lean::closure_set(x_7, 2, lean::box(0)); @@ -2394,7 +2293,7 @@ lean::closure_set(x_6, 0, x_0); lean::closure_set(x_6, 1, x_4); x_7 = lean::cnstr_get(x_0, 1); lean::inc(x_7); -x_9 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed), 5, 4); +x_9 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__3___rarg___boxed), 5, 4); lean::closure_set(x_9, 0, x_0); lean::closure_set(x_9, 1, lean::box(0)); lean::closure_set(x_9, 2, lean::box(0)); @@ -2418,7 +2317,7 @@ x_5 = lean::alloc_closure(reinterpret_cast(l_ExceptT_Monad___rarg___lambd lean::closure_set(x_5, 0, x_4); x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed), 5, 4); +x_8 = lean::alloc_closure(reinterpret_cast(l_ExceptT_bindCont___at_ExceptT_Monad___spec__4___rarg___boxed), 5, 4); lean::closure_set(x_8, 0, x_0); lean::closure_set(x_8, 1, lean::box(0)); lean::closure_set(x_8, 2, lean::box(0)); @@ -2432,7 +2331,7 @@ _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; lean::inc(x_0); -x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_Monad___rarg___lambda__1___boxed), 5, 1); +x_2 = lean::alloc_closure(reinterpret_cast(l_ExceptT_map___rarg___boxed), 5, 1); lean::closure_set(x_2, 0, x_0); lean::inc(x_0); x_4 = lean::alloc_closure(reinterpret_cast(l_ExceptT_Monad___rarg___lambda__2___boxed), 5, 1); @@ -2441,7 +2340,7 @@ x_5 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_5, 0, x_2); lean::cnstr_set(x_5, 1, x_4); lean::inc(x_0); -x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_return___rarg___boxed), 3, 1); +x_7 = lean::alloc_closure(reinterpret_cast(l_ExceptT_pure___rarg___boxed), 3, 1); lean::closure_set(x_7, 0, x_0); lean::inc(x_0); x_9 = lean::alloc_closure(reinterpret_cast(l_ExceptT_Monad___rarg___lambda__4___boxed), 5, 1); @@ -2554,76 +2453,6 @@ lean::dec(x_1); return x_2; } } -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_1); -lean::dec(x_2); -return x_5; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__5___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__5(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_1); -lean::dec(x_2); -return x_5; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__6___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__6(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___rarg(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_1); -lean::dec(x_2); -return x_5; -} -} -obj* l_ExceptT_bindCont___at_ExceptT_Monad___spec__7___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_ExceptT_bindCont___at_ExceptT_Monad___spec__7(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} -obj* l_ExceptT_Monad___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_ExceptT_Monad___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_1); -lean::dec(x_2); -return x_5; -} -} obj* l_ExceptT_Monad___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { diff --git a/src/stage0/init/control/id.cpp b/src/stage0/init/control/id.cpp index 360b625799..7a03202467 100644 --- a/src/stage0/init/control/id.cpp +++ b/src/stage0/init/control/id.cpp @@ -15,6 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_Id_run___rarg(obj*); +obj* l_Id_map___boxed(obj*, obj*); obj* l_Id_pure___rarg(obj*); obj* l_Id_pure___rarg___boxed(obj*); obj* l_Id_Monad___lambda__1(obj*, obj*, obj*, obj*); @@ -27,10 +28,12 @@ obj* l_Id_Monad___lambda__2(obj*, obj*, obj*, obj*); obj* l_Id_Monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_Id_Monad___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_Id_bind___rarg(obj*, obj*); +obj* l_Id_map___rarg(obj*, obj*); obj* l_Id_run___boxed(obj*); obj* l_Id_pure___boxed(obj*); obj* l_Id_Monad___lambda__3___boxed(obj*, obj*, obj*, obj*); obj* l_Id_bind___boxed(obj*, obj*); +obj* l_Id_map(obj*, obj*); obj* l_Id_Monad___lambda__3(obj*, obj*, obj*, obj*); obj* l_Id_run(obj*); obj* l_Id_pure___rarg(obj* x_0) { @@ -92,19 +95,45 @@ lean::dec(x_1); return x_2; } } +obj* l_Id_map___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::apply_1(x_0, x_1); +return x_2; +} +} +obj* l_Id_map(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_Id_map___rarg), 2, 0); +return x_2; +} +} +obj* l_Id_map___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Id_map(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} obj* l_Id_Monad___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; -x_4 = lean::apply_1(x_2, x_3); -return x_4; +lean::inc(x_2); +return x_2; } } obj* l_Id_Monad___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -lean::inc(x_2); -return x_2; +obj* x_4; +x_4 = lean::apply_1(x_2, x_3); +return x_4; } } obj* l_Id_Monad___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { @@ -117,20 +146,20 @@ return x_3; obj* _init_l_Id_Monad() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -147,6 +176,8 @@ obj* x_4; x_4 = l_Id_Monad___lambda__1(x_0, x_1, x_2, x_3); lean::dec(x_0); lean::dec(x_1); +lean::dec(x_2); +lean::dec(x_3); return x_4; } } @@ -157,8 +188,6 @@ obj* x_4; x_4 = l_Id_Monad___lambda__2(x_0, x_1, x_2, x_3); lean::dec(x_0); lean::dec(x_1); -lean::dec(x_2); -lean::dec(x_3); return x_4; } } diff --git a/src/stage0/init/control/reader.cpp b/src/stage0/init/control/reader.cpp index 3a2726f049..802b435fe7 100644 --- a/src/stage0/init/control/reader.cpp +++ b/src/stage0/init/control/reader.cpp @@ -14,11 +14,12 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -obj* l_ReaderT_Monad___rarg___lambda__7(obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__7(obj*, obj*, obj*); obj* l_ReaderT_bind___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_map___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_HasMonadLift(obj*, obj*); obj* l_ReaderT_Monad___rarg___lambda__6(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj*, obj*, obj*); obj* l_ReaderT_MonadRun(obj*, obj*, obj*); obj* l_ReaderT_Monad(obj*, obj*); obj* l_ReaderT_HasMonadLift___rarg(obj*); @@ -31,11 +32,13 @@ obj* l_ReaderT_Monad___rarg___lambda__6___boxed(obj*, obj*, obj*, obj*, obj*, ob obj* l_ReaderT_MonadReader___boxed(obj*, obj*); obj* l_ReaderT_MonadExcept___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadStateRunner___boxed(obj*, obj*, obj*, obj*); +obj* l_ReaderT_map___boxed(obj*, obj*); obj* l_ReaderT_adapt(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_run(obj*, obj*, obj*); obj* l_ReaderT_lift(obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadExcept___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadReaderAdapter___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_map___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_failure___boxed(obj*, obj*, obj*); obj* l_monadReaderRunnerTrans(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadReaderAdapter(obj*, obj*, obj*, obj*, obj*); @@ -44,7 +47,8 @@ obj* l_ReaderT_read(obj*, obj*); obj* l_ReaderT_MonadStateRunner(obj*, obj*, obj*, obj*); obj* l_monadReaderTrans___rarg(obj*, obj*); obj* l_ReaderT_MonadExcept___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__7___boxed(obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_run___boxed(obj*, obj*, obj*); obj* l_ReaderT_Alternative___boxed(obj*, obj*); obj* l_monadReaderAdapterTrans___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -59,7 +63,7 @@ obj* l_ReaderT_Monad___rarg___lambda__8(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_Monad___rarg(obj*); obj* l_ReaderT_bind(obj*, obj*); obj* l_monadReaderRunnerTrans___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__1(obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_pure___boxed(obj*, obj*); obj* l_ReaderT_HasMonadLift___boxed(obj*, obj*); obj* l_ReaderT_MonadExcept___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*); @@ -69,17 +73,18 @@ obj* l_ReaderT_MonadRun___boxed(obj*, obj*, obj*); obj* l_monadReaderRunnerTrans___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_orelse___boxed(obj*, obj*, obj*); obj* l_ReaderT_MonadFunctor___rarg(obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__9___boxed(obj*, obj*, obj*); +obj* l_ReaderT_map(obj*, obj*); obj* l_ReaderT_bind___boxed(obj*, obj*); obj* l_ReaderT_MonadRun___rarg(obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadStateRunner___rarg(obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__10___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadFunctor(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__3(obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__2(obj*, obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_Monad___rarg___lambda__4(obj*, obj*, obj*); obj* l_ReaderT_MonadReaderAdapter___rarg(obj*, obj*, obj*); obj* l_ReaderT_bind___rarg(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Function_const___rarg___boxed(obj*, obj*); obj* l_ReaderT_orelse(obj*, obj*, obj*); obj* l_ReaderT_MonadExcept___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_ReaderT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -88,8 +93,6 @@ obj* l_ReaderT_failure___rarg___boxed(obj*, obj*, obj*); obj* l_ReaderT_Monad___boxed(obj*, obj*); obj* l_monadReaderAdapterTrans___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_Monad___rarg___lambda__8___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__10(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__9(obj*, obj*, obj*); obj* l_monadReaderAdapterTrans___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_monadReaderRunnerTrans___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_ReaderT_Monad___rarg___lambda__5(obj*, obj*, obj*, obj*, obj*); @@ -104,7 +107,6 @@ obj* l_ReaderT_MonadReader(obj*, obj*); obj* l_ReaderT_lift___boxed(obj*, obj*, obj*, obj*); obj* l_ReaderT_Alternative(obj*, obj*); obj* l_ReaderT_orelse___rarg(obj*, obj*, obj*, obj*, obj*); -obj* l_ReaderT_Monad___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_run___rarg(obj*, obj*); obj* l_ReaderT_read___boxed(obj*, obj*); obj* l_ReaderT_run___rarg(obj* x_0, obj* x_1) { @@ -260,36 +262,107 @@ lean::dec(x_1); return x_2; } } -obj* l_ReaderT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +obj* l_ReaderT_map___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_3; obj* x_4; obj* x_7; obj* x_10; -x_3 = lean::apply_1(x_0, x_2); -x_4 = lean::cnstr_get(x_1, 0); -lean::inc(x_4); +obj* x_6; obj* x_9; obj* x_12; obj* x_15; obj* x_16; +x_6 = lean::cnstr_get(x_0, 0); +lean::inc(x_6); +lean::dec(x_0); +x_9 = lean::cnstr_get(x_6, 0); +lean::inc(x_9); +lean::dec(x_6); +x_12 = lean::cnstr_get(x_9, 0); +lean::inc(x_12); +lean::dec(x_9); +x_15 = lean::apply_1(x_4, x_5); +x_16 = lean::apply_4(x_12, lean::box(0), lean::box(0), x_3, x_15); +return x_16; +} +} +obj* l_ReaderT_map(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_map___rarg___boxed), 6, 0); +return x_2; +} +} +obj* l_ReaderT_map___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_6; +x_6 = l_ReaderT_map___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); -x_7 = lean::cnstr_get(x_4, 1); +lean::dec(x_2); +return x_6; +} +} +obj* l_ReaderT_map___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_ReaderT_map(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_ReaderT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_6; obj* x_7; obj* x_10; obj* x_13; obj* x_16; obj* x_17; +x_6 = lean::alloc_closure(reinterpret_cast(l_Function_const___rarg___boxed), 2, 1); +lean::closure_set(x_6, 0, x_3); +x_7 = lean::cnstr_get(x_0, 0); +lean::inc(x_7); +lean::dec(x_0); +x_10 = lean::cnstr_get(x_7, 0); +lean::inc(x_10); +lean::dec(x_7); +x_13 = lean::cnstr_get(x_10, 0); +lean::inc(x_13); +lean::dec(x_10); +x_16 = lean::apply_1(x_4, x_5); +x_17 = lean::apply_4(x_13, lean::box(0), lean::box(0), x_6, x_16); +return x_17; +} +} +obj* l_ReaderT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_7; obj* x_10; obj* x_13; obj* x_14; +x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); +lean::dec(x_0); +x_7 = lean::cnstr_get(x_4, 0); lean::inc(x_7); lean::dec(x_4); -x_10 = lean::apply_2(x_7, lean::box(0), x_3); -return x_10; +x_10 = lean::cnstr_get(x_7, 0); +lean::inc(x_10); +lean::dec(x_7); +x_13 = lean::apply_1(x_1, x_2); +x_14 = lean::apply_4(x_10, lean::box(0), lean::box(0), x_3, x_13); +return x_14; } } -obj* l_ReaderT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_ReaderT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { -obj* x_6; obj* x_8; obj* x_9; obj* x_10; +obj* x_6; obj* x_9; obj* x_10; obj* x_11; x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); -x_8 = lean::apply_1(x_4, x_5); -x_9 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__1), 3, 2); -lean::closure_set(x_9, 0, x_3); -lean::closure_set(x_9, 1, x_0); -x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9); -return x_10; +lean::inc(x_5); +x_9 = lean::apply_1(x_3, x_5); +x_10 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__2), 4, 3); +lean::closure_set(x_10, 0, x_0); +lean::closure_set(x_10, 1, x_4); +lean::closure_set(x_10, 2, x_5); +x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_10); +return x_11; } } -obj* l_ReaderT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2) { +obj* l_ReaderT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_6; obj* x_9; @@ -303,28 +376,14 @@ x_9 = lean::apply_2(x_6, lean::box(0), x_1); return x_9; } } -obj* l_ReaderT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; obj* x_8; obj* x_9; obj* x_10; -x_6 = lean::cnstr_get(x_0, 1); -lean::inc(x_6); -x_8 = lean::apply_1(x_4, x_5); -x_9 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__3___boxed), 3, 2); -lean::closure_set(x_9, 0, x_0); -lean::closure_set(x_9, 1, x_3); -x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9); -return x_10; -} -} obj* l_ReaderT_Monad___rarg___lambda__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { obj* x_5; obj* x_6; obj* x_7; x_5 = lean::apply_1(x_0, x_1); -x_6 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__1), 3, 2); -lean::closure_set(x_6, 0, x_4); -lean::closure_set(x_6, 1, x_2); +x_6 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__4___boxed), 3, 2); +lean::closure_set(x_6, 0, x_2); +lean::closure_set(x_6, 1, x_4); x_7 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_5, x_6); return x_7; } @@ -347,37 +406,7 @@ x_12 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_11); return x_12; } } -obj* l_ReaderT_Monad___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; obj* x_6; obj* x_7; -x_5 = lean::apply_1(x_0, x_1); -x_6 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__3___boxed), 3, 2); -lean::closure_set(x_6, 0, x_2); -lean::closure_set(x_6, 1, x_4); -x_7 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_5, x_6); -return x_7; -} -} -obj* l_ReaderT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; obj* x_9; obj* x_11; obj* x_12; -x_6 = lean::cnstr_get(x_0, 1); -lean::inc(x_6); -lean::inc(x_5); -x_9 = lean::apply_1(x_3, x_5); -lean::inc(x_6); -x_11 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__7), 5, 4); -lean::closure_set(x_11, 0, x_4); -lean::closure_set(x_11, 1, x_5); -lean::closure_set(x_11, 2, x_0); -lean::closure_set(x_11, 3, x_6); -x_12 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_11); -return x_12; -} -} -obj* l_ReaderT_Monad___rarg___lambda__9(obj* x_0, obj* x_1, obj* x_2) { +obj* l_ReaderT_Monad___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; @@ -385,7 +414,7 @@ x_3 = lean::apply_1(x_0, x_1); return x_3; } } -obj* l_ReaderT_Monad___rarg___lambda__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_ReaderT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_10; obj* x_11; obj* x_12; @@ -394,7 +423,7 @@ lean::inc(x_6); lean::dec(x_0); lean::inc(x_5); x_10 = lean::apply_1(x_3, x_5); -x_11 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__9___boxed), 3, 2); +x_11 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__7___boxed), 3, 2); lean::closure_set(x_11, 0, x_4); lean::closure_set(x_11, 1, x_5); x_12 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_10, x_11); @@ -406,10 +435,10 @@ _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; lean::inc(x_0); -x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__2___boxed), 6, 1); +x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_map___rarg___boxed), 6, 1); lean::closure_set(x_2, 0, x_0); lean::inc(x_0); -x_4 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__4___boxed), 6, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__1___boxed), 6, 1); lean::closure_set(x_4, 0, x_0); x_5 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_5, 0, x_2); @@ -418,13 +447,13 @@ lean::inc(x_0); x_7 = lean::alloc_closure(reinterpret_cast(l_ReaderT_pure___rarg___boxed), 4, 1); lean::closure_set(x_7, 0, x_0); lean::inc(x_0); -x_9 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1); +x_9 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__3___boxed), 6, 1); lean::closure_set(x_9, 0, x_0); lean::inc(x_0); -x_11 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1); +x_11 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1); lean::closure_set(x_11, 0, x_0); lean::inc(x_0); -x_13 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__10___boxed), 6, 1); +x_13 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1); lean::closure_set(x_13, 0, x_0); x_14 = lean::alloc_cnstr(0, 5, 0); lean::cnstr_set(x_14, 0, x_5); @@ -448,35 +477,35 @@ x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg), 1, 0) return x_2; } } -obj* l_ReaderT_Monad___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_ReaderT_Monad___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; -x_6 = l_ReaderT_Monad___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5); +x_6 = l_ReaderT_Monad___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); lean::dec(x_2); return x_6; } } -obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj* x_0, obj* x_1, obj* x_2) { +obj* l_ReaderT_Monad___rarg___lambda__3___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_6; +x_6 = l_ReaderT_Monad___rarg___lambda__3(x_0, x_1, x_2, x_3, x_4, x_5); +lean::dec(x_1); +lean::dec(x_2); +return x_6; +} +} +obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; -x_3 = l_ReaderT_Monad___rarg___lambda__3(x_0, x_1, x_2); +x_3 = l_ReaderT_Monad___rarg___lambda__4(x_0, x_1, x_2); lean::dec(x_2); return x_3; } } -obj* l_ReaderT_Monad___rarg___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; -x_6 = l_ReaderT_Monad___rarg___lambda__4(x_0, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_1); -lean::dec(x_2); -return x_6; -} -} obj* l_ReaderT_Monad___rarg___lambda__6___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { @@ -487,6 +516,15 @@ lean::dec(x_2); return x_6; } } +obj* l_ReaderT_Monad___rarg___lambda__7___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_ReaderT_Monad___rarg___lambda__7(x_0, x_1, x_2); +lean::dec(x_2); +return x_3; +} +} obj* l_ReaderT_Monad___rarg___lambda__8___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { @@ -497,25 +535,6 @@ lean::dec(x_2); return x_6; } } -obj* l_ReaderT_Monad___rarg___lambda__9___boxed(obj* x_0, obj* x_1, obj* x_2) { -_start: -{ -obj* x_3; -x_3 = l_ReaderT_Monad___rarg___lambda__9(x_0, x_1, x_2); -lean::dec(x_2); -return x_3; -} -} -obj* l_ReaderT_Monad___rarg___lambda__10___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; -x_6 = l_ReaderT_Monad___rarg___lambda__10(x_0, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_1); -lean::dec(x_2); -return x_6; -} -} obj* l_ReaderT_Monad___boxed(obj* x_0, obj* x_1) { _start: { @@ -741,10 +760,10 @@ _start: { obj* x_3; obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; lean::inc(x_0); -x_3 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__2___boxed), 6, 1); +x_3 = lean::alloc_closure(reinterpret_cast(l_ReaderT_map___rarg___boxed), 6, 1); lean::closure_set(x_3, 0, x_0); lean::inc(x_0); -x_5 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__4___boxed), 6, 1); +x_5 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__1___boxed), 6, 1); lean::closure_set(x_5, 0, x_0); x_6 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_6, 0, x_3); @@ -753,12 +772,12 @@ lean::inc(x_0); x_8 = lean::alloc_closure(reinterpret_cast(l_ReaderT_pure___rarg___boxed), 4, 1); lean::closure_set(x_8, 0, x_0); lean::inc(x_0); -x_10 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1); +x_10 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__3___boxed), 6, 1); lean::closure_set(x_10, 0, x_0); lean::inc(x_0); -x_12 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1); +x_12 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__6___boxed), 6, 1); lean::closure_set(x_12, 0, x_0); -x_13 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__10___boxed), 6, 1); +x_13 = lean::alloc_closure(reinterpret_cast(l_ReaderT_Monad___rarg___lambda__8___boxed), 6, 1); lean::closure_set(x_13, 0, x_0); x_14 = lean::alloc_cnstr(0, 5, 0); lean::cnstr_set(x_14, 0, x_6); diff --git a/src/stage0/init/control/state.cpp b/src/stage0/init/control/state.cpp index 0d1bdca865..c485cb9952 100644 --- a/src/stage0/init/control/state.cpp +++ b/src/stage0/init/control/state.cpp @@ -52,9 +52,10 @@ obj* l_StateT_Monad___rarg___lambda__8___boxed(obj*, obj*, obj*, obj*, obj*, obj obj* l_StateT_Monad___boxed(obj*, obj*); obj* l_StateT_bind___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_StateT_orelse___rarg___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_StateT_Monad___rarg___lambda__7(obj*, obj*, obj*, obj*); +obj* l_StateT_Monad___rarg___lambda__7(obj*, obj*); obj* l_monadStateTrans___rarg(obj*, obj*); obj* l_StateT_get___boxed(obj*, obj*); +obj* l_StateT_map___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_StateT_Monad___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_StateT_MonadStateAdapter___boxed(obj*, obj*, obj*); obj* l_StateT_pure___boxed(obj*, obj*); @@ -66,11 +67,11 @@ obj* l_StateT_lift(obj*, obj*); obj* l_StateT_failure___rarg(obj*, obj*, obj*); obj* l_StateT_Monad___rarg___lambda__1(obj*, obj*, obj*); obj* l_StateT_set___rarg(obj*, obj*, obj*); -obj* l_StateT_Monad___rarg___lambda__10___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_StateT_failure(obj*, obj*, obj*); obj* l_monadStateRunnerTrans___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_MonadStateAdapter_adaptState_x_27___boxed(obj*, obj*, obj*, obj*); obj* l_StateT_MonadExcept___rarg___lambda__2(obj*, obj*, obj*); +obj* l_StateT_map___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_monadStateRunnerTrans___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_StateT_orelse___boxed(obj*, obj*, obj*); obj* l_StateT_MonadExcept___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); @@ -89,6 +90,7 @@ obj* l_StateT_MonadExcept___rarg(obj*, obj*, obj*); obj* l_StateT_pure___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_StateT_run___boxed(obj*, obj*, obj*); obj* l_StateT_modify___rarg(obj*, obj*, obj*); +obj* l_StateT_map___rarg___lambda__1(obj*, obj*, obj*); obj* l_StateT_run_x_27___rarg(obj*, obj*, obj*, obj*); obj* l_MonadStateAdapter_adaptState_x_27___rarg___lambda__1(obj*, obj*); obj* l_StateT_MonadRun___rarg(obj*, obj*, obj*, obj*, obj*); @@ -104,18 +106,19 @@ obj* l_StateT_MonadFunctor___rarg(obj*, obj*, obj*); obj* l_StateT_set___boxed(obj*, obj*); obj* l_StateT_run(obj*, obj*, obj*); obj* l_StateT_MonadRun(obj*, obj*, obj*); +obj* l_StateT_map___boxed(obj*, obj*); obj* l_StateT_MonadStateAdapter(obj*, obj*, obj*); obj* l_StateT_bind(obj*, obj*); obj* l_StateT_HasMonadLift(obj*, obj*); obj* l_StateT_MonadExcept___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_StateT_failure___boxed(obj*, obj*, obj*); -obj* l_StateT_Monad___rarg___lambda__10(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_StateT_map(obj*, obj*); obj* l_StateT_Alternative(obj*, obj*); obj* l_StateT_MonadExcept___rarg___boxed(obj*, obj*, obj*); obj* l_StateT_lift___boxed(obj*, obj*); obj* l_StateT_MonadState___boxed(obj*, obj*); obj* l_MonadStateAdapter_adaptState_x_27(obj*, obj*, obj*, obj*); -obj* l_StateT_Monad___rarg___lambda__3(obj*, obj*, obj*); +obj* l_StateT_Monad___rarg___lambda__3(obj*, obj*, obj*, obj*); obj* l_StateT_MonadState(obj*, obj*); obj* l_monadStateRunnerTrans___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_StateT_pure(obj*, obj*); @@ -133,7 +136,6 @@ obj* l_StateT_lift___rarg(obj*, obj*, obj*, obj*); obj* l_StateT_run_x_27(obj*, obj*); obj* l_monadStateTrans(obj*, obj*, obj*); obj* l_StateT_lift___rarg___lambda__1(obj*, obj*, obj*); -obj* l_StateT_Monad___rarg___lambda__9(obj*, obj*); obj* l_StateT_MonadStateRunner___boxed(obj*, obj*); obj* l_StateT_run___rarg(obj* x_0, obj* x_1) { _start: @@ -327,10 +329,10 @@ lean::dec(x_1); return x_2; } } -obj* l_StateT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +obj* l_StateT_map___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_12; obj* x_15; obj* x_16; +obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_3 = lean::cnstr_get(x_2, 0); x_5 = lean::cnstr_get(x_2, 1); if (lean::is_exclusive(x_2)) { @@ -341,39 +343,67 @@ if (lean::is_exclusive(x_2)) { lean::dec(x_2); x_7 = lean::box(0); } -x_8 = lean::apply_1(x_0, x_3); -x_9 = lean::cnstr_get(x_1, 0); -lean::inc(x_9); -lean::dec(x_1); -x_12 = lean::cnstr_get(x_9, 1); -lean::inc(x_12); -lean::dec(x_9); +x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); +lean::dec(x_0); +x_11 = lean::cnstr_get(x_8, 1); +lean::inc(x_11); +lean::dec(x_8); +x_14 = lean::apply_1(x_1, x_3); if (lean::is_scalar(x_7)) { x_15 = lean::alloc_cnstr(0, 2, 0); } else { x_15 = x_7; } -lean::cnstr_set(x_15, 0, x_8); +lean::cnstr_set(x_15, 0, x_14); lean::cnstr_set(x_15, 1, x_5); -x_16 = lean::apply_2(x_12, lean::box(0), x_15); +x_16 = lean::apply_2(x_11, lean::box(0), x_15); return x_16; } } -obj* l_StateT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_StateT_map___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_8; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); x_8 = lean::apply_1(x_4, x_5); -x_9 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__1), 3, 2); -lean::closure_set(x_9, 0, x_3); -lean::closure_set(x_9, 1, x_0); +x_9 = lean::alloc_closure(reinterpret_cast(l_StateT_map___rarg___lambda__1), 3, 2); +lean::closure_set(x_9, 0, x_0); +lean::closure_set(x_9, 1, x_3); x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9); return x_10; } } -obj* l_StateT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2) { +obj* l_StateT_map(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_StateT_map___rarg___boxed), 6, 0); +return x_2; +} +} +obj* l_StateT_map___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_6; +x_6 = l_StateT_map___rarg(x_0, x_1, x_2, x_3, x_4, x_5); +lean::dec(x_1); +lean::dec(x_2); +return x_6; +} +} +obj* l_StateT_map___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_StateT_map(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_StateT_Monad___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_5; obj* x_6; obj* x_9; obj* x_12; obj* x_13; @@ -403,20 +433,53 @@ x_13 = lean::apply_2(x_9, lean::box(0), x_12); return x_13; } } -obj* l_StateT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_StateT_Monad___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_8; obj* x_9; obj* x_10; x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); x_8 = lean::apply_1(x_4, x_5); -x_9 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__3), 3, 2); +x_9 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__1), 3, 2); lean::closure_set(x_9, 0, x_0); lean::closure_set(x_9, 1, x_3); x_10 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_9); return x_10; } } +obj* l_StateT_Monad___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_6; obj* x_9; obj* x_10; obj* x_11; +x_4 = lean::cnstr_get(x_3, 0); +lean::inc(x_4); +x_6 = lean::cnstr_get(x_3, 1); +lean::inc(x_6); +lean::dec(x_3); +x_9 = lean::apply_1(x_0, x_6); +x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_map___rarg___lambda__1), 3, 2); +lean::closure_set(x_10, 0, x_1); +lean::closure_set(x_10, 1, x_4); +x_11 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_9, x_10); +return x_11; +} +} +obj* l_StateT_Monad___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_6; obj* x_8; obj* x_10; obj* x_11; +x_6 = lean::cnstr_get(x_0, 1); +lean::inc(x_6); +x_8 = lean::apply_1(x_3, x_5); +lean::inc(x_6); +x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__3), 4, 3); +lean::closure_set(x_10, 0, x_4); +lean::closure_set(x_10, 1, x_0); +lean::closure_set(x_10, 2, x_6); +x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_10); +return x_11; +} +} obj* l_StateT_Monad___rarg___lambda__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -428,8 +491,8 @@ lean::inc(x_6); lean::dec(x_3); x_9 = lean::apply_1(x_0, x_6); x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__1), 3, 2); -lean::closure_set(x_10, 0, x_4); -lean::closure_set(x_10, 1, x_1); +lean::closure_set(x_10, 0, x_1); +lean::closure_set(x_10, 1, x_4); x_11 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_9, x_10); return x_11; } @@ -450,40 +513,7 @@ x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_10); return x_11; } } -obj* l_StateT_Monad___rarg___lambda__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; obj* x_6; obj* x_9; obj* x_10; obj* x_11; -x_4 = lean::cnstr_get(x_3, 0); -lean::inc(x_4); -x_6 = lean::cnstr_get(x_3, 1); -lean::inc(x_6); -lean::dec(x_3); -x_9 = lean::apply_1(x_0, x_6); -x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__3), 3, 2); -lean::closure_set(x_10, 0, x_1); -lean::closure_set(x_10, 1, x_4); -x_11 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_9, x_10); -return x_11; -} -} -obj* l_StateT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; obj* x_8; obj* x_10; obj* x_11; -x_6 = lean::cnstr_get(x_0, 1); -lean::inc(x_6); -x_8 = lean::apply_1(x_3, x_5); -lean::inc(x_6); -x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__7), 4, 3); -lean::closure_set(x_10, 0, x_4); -lean::closure_set(x_10, 1, x_0); -lean::closure_set(x_10, 2, x_6); -x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_8, x_10); -return x_11; -} -} -obj* l_StateT_Monad___rarg___lambda__9(obj* x_0, obj* x_1) { +obj* l_StateT_Monad___rarg___lambda__7(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_5; @@ -494,7 +524,7 @@ x_5 = lean::apply_1(x_0, x_2); return x_5; } } -obj* l_StateT_Monad___rarg___lambda__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_StateT_Monad___rarg___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_9; obj* x_10; obj* x_11; @@ -502,7 +532,7 @@ x_6 = lean::cnstr_get(x_0, 1); lean::inc(x_6); lean::dec(x_0); x_9 = lean::apply_1(x_3, x_5); -x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__9), 2, 1); +x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__7), 2, 1); lean::closure_set(x_10, 0, x_4); x_11 = lean::apply_4(x_6, lean::box(0), lean::box(0), x_9, x_10); return x_11; @@ -513,10 +543,10 @@ _start: { obj* x_2; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; lean::inc(x_0); -x_2 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1); +x_2 = lean::alloc_closure(reinterpret_cast(l_StateT_map___rarg___boxed), 6, 1); lean::closure_set(x_2, 0, x_0); lean::inc(x_0); -x_4 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1); lean::closure_set(x_4, 0, x_0); x_5 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_5, 0, x_2); @@ -525,13 +555,13 @@ lean::inc(x_0); x_7 = lean::alloc_closure(reinterpret_cast(l_StateT_pure___rarg___boxed), 4, 1); lean::closure_set(x_7, 0, x_0); lean::inc(x_0); -x_9 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1); +x_9 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1); lean::closure_set(x_9, 0, x_0); lean::inc(x_0); -x_11 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1); +x_11 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1); lean::closure_set(x_11, 0, x_0); lean::inc(x_0); -x_13 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__10___boxed), 6, 1); +x_13 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1); lean::closure_set(x_13, 0, x_0); x_14 = lean::alloc_cnstr(0, 5, 0); lean::cnstr_set(x_14, 0, x_5); @@ -595,16 +625,6 @@ lean::dec(x_2); return x_6; } } -obj* l_StateT_Monad___rarg___lambda__10___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; -x_6 = l_StateT_Monad___rarg___lambda__10(x_0, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_1); -lean::dec(x_2); -return x_6; -} -} obj* l_StateT_Monad___boxed(obj* x_0, obj* x_1) { _start: { @@ -702,10 +722,10 @@ _start: { obj* x_3; obj* x_5; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; lean::inc(x_0); -x_3 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1); +x_3 = lean::alloc_closure(reinterpret_cast(l_StateT_map___rarg___boxed), 6, 1); lean::closure_set(x_3, 0, x_0); lean::inc(x_0); -x_5 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1); +x_5 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__2___boxed), 6, 1); lean::closure_set(x_5, 0, x_0); x_6 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_6, 0, x_3); @@ -714,12 +734,12 @@ lean::inc(x_0); x_8 = lean::alloc_closure(reinterpret_cast(l_StateT_pure___rarg___boxed), 4, 1); lean::closure_set(x_8, 0, x_0); lean::inc(x_0); -x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1); +x_10 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__4___boxed), 6, 1); lean::closure_set(x_10, 0, x_0); lean::inc(x_0); -x_12 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1); +x_12 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__6___boxed), 6, 1); lean::closure_set(x_12, 0, x_0); -x_13 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__10___boxed), 6, 1); +x_13 = lean::alloc_closure(reinterpret_cast(l_StateT_Monad___rarg___lambda__8___boxed), 6, 1); lean::closure_set(x_13, 0, x_0); x_14 = lean::alloc_cnstr(0, 5, 0); lean::cnstr_set(x_14, 0, x_6); diff --git a/src/stage0/init/data/array/basic.cpp b/src/stage0/init/data/array/basic.cpp index 7cf8bbd92b..416ac4c466 100644 --- a/src/stage0/init/data/array/basic.cpp +++ b/src/stage0/init/data/array/basic.cpp @@ -15,7 +15,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_List_toArrayAux___rarg(obj*, obj*); -obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1(obj*); obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___boxed(obj*, obj*); obj* l_Array_toList___rarg___boxed(obj*); obj* l_Array_empty___closed__1; @@ -29,7 +28,6 @@ obj* l_Array_update___boxed(obj*, obj*, obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___at_Array_toList___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_revFoldl(obj*, obj*); obj* l_Array_miterate___boxed(obj*, obj*, obj*); -obj* l_Array_mkArray(obj*); obj* l_Array_isEmpty___boxed(obj*); obj* l_Array_mfoldl___rarg(obj*, obj*, obj*, obj*); obj* l_Array_miterateAux___main___at_Array_iterate___spec__1(obj*, obj*); @@ -64,7 +62,7 @@ obj* l_List_toArrayAux___main___boxed(obj*); obj* l_List_toArrayAux(obj*); obj* l_Array_miterateAux___main___at_Array_map___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_mforeach___rarg___closed__1; -obj* l_Array_mkArray___boxed(obj*); +obj* l_Array_mkArray___boxed(obj*, obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Array_toList___boxed(obj*); obj* l_Array_map___rarg(obj*, obj*); @@ -111,7 +109,6 @@ uint8 l_Array_isEmpty___rarg(obj*); obj* l_Array_push___boxed(obj*, obj*, obj*); obj* l_Array_map(obj*); obj* l_Array_map___boxed(obj*); -obj* l_Array_mkArray___rarg(obj*, obj*); obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Array_mmap___rarg(obj*, obj*, obj*); obj* l___private_init_data_array_basic_1__revIterateAux___boxed(obj*, obj*); @@ -133,7 +130,6 @@ obj* l_Array_updt___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_toArray___boxed(obj*); obj* l_Array_isEmpty___rarg___boxed(obj*); obj* l_Array_miterateAux___main___at_Array_mforeach___spec__1___boxed(obj*, obj*); -obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___boxed(obj*); obj* l_Array_iterate___rarg(obj*, obj*, obj*); obj* l_List_toArray___rarg(obj*); obj* l_Array_empty___boxed(obj*); @@ -163,7 +159,6 @@ uint8 nat_dec_le(obj*, obj*); obj* l_Array_miterateAux___main___at_Array_foreach___spec__1(obj*); obj* l_Array_revIterate___rarg___boxed(obj*, obj*, obj*); obj* l_Array_miterateAux___main___at_Array_foldl___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); -obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(obj*, obj*, obj*); obj* l_Array_getOpt___boxed(obj*); obj* l___private_init_data_array_basic_1__revIterateAux___main___boxed(obj*, obj*); obj* l_Array_miterateAux___main___at___private_init_data_array_basic_2__mforeachAux___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); @@ -224,75 +219,14 @@ x_3 = lean::array_push(x_1, x_2); return x_3; } } -obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { +obj* l_Array_mkArray___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; uint8 x_4; -x_3 = lean::mk_nat_obj(0ul); -x_4 = lean::nat_dec_eq(x_1, x_3); -if (x_4 == 0) -{ -obj* x_5; obj* x_6; obj* x_9; -x_5 = lean::mk_nat_obj(1ul); -x_6 = lean::nat_sub(x_1, x_5); -lean::dec(x_1); -lean::inc(x_0); -x_9 = lean::array_push(x_2, x_0); -x_1 = x_6; -x_2 = x_9; -goto _start; -} -else -{ -lean::dec(x_1); -lean::dec(x_0); -return x_2; -} -} -} -obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg), 3, 0); -return x_1; -} -} -obj* l_Array_mkArray___rarg(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; obj* x_3; -x_2 = lean::mk_empty_array(x_0); -x_3 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1___rarg(x_1, x_0, x_2); +obj* x_3; +x_3 = lean::mk_array(x_1, x_2); return x_3; } } -obj* l_Array_mkArray(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Array_mkArray___rarg), 2, 0); -return x_1; -} -} -obj* l_Nat_repeatCore___main___at_Array_mkArray___spec__1___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_Nat_repeatCore___main___at_Array_mkArray___spec__1(x_0); -lean::dec(x_0); -return x_1; -} -} -obj* l_Array_mkArray___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_Array_mkArray(x_0); -lean::dec(x_0); -return x_1; -} -} obj* _init_l_Array_empty___closed__1() { _start: { @@ -396,7 +330,7 @@ _start: { obj* x_1; obj* x_2; x_1 = lean::mk_nat_obj(1ul); -x_2 = l_Array_mkArray___rarg(x_1, x_0); +x_2 = lean::mk_array(x_1, x_0); return x_2; } } diff --git a/src/stage0/init/data/hashmap/basic.cpp b/src/stage0/init/data/hashmap/basic.cpp index 18157a23ee..dd0b6d6620 100644 --- a/src/stage0/init/data/hashmap/basic.cpp +++ b/src/stage0/init/data/hashmap/basic.cpp @@ -24,30 +24,38 @@ obj* nat_sub(obj*, obj*); } obj* l_HashMap_find___rarg(obj*, obj*, obj*, obj*); obj* l_HashMapImp_find___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_HashMapImp_expand(obj*, obj*); obj* l_mkHashMap(obj*, obj*, obj*, obj*); obj* l_HashMap_contains___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_HashMap_find___boxed(obj*, obj*); obj* l_HashMapImp_erase___boxed(obj*, obj*); obj* l_HashMapImp_foldBuckets(obj*, obj*, obj*); usize l_HashMapImp_mkIdx(obj*, obj*, usize); +obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg(obj*, obj*, obj*); uint8 l_HashMapImp_contains___rarg(obj*, obj*, obj*, obj*); obj* l_HashMap_Inhabited___boxed(obj*, obj*, obj*, obj*); obj* l_HashMap_HasEmptyc___boxed(obj*, obj*, obj*, obj*); +obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1(obj*, obj*); obj* l_HashMap_size___boxed(obj*, obj*, obj*, obj*); obj* l_HashMap_erase___rarg(obj*, obj*, obj*, obj*); obj* l_HashMap_insert___boxed(obj*, obj*); obj* l_HashMapBucket_update___rarg(obj*, usize, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_HashMapImp_contains___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_HashMapImp_contains___boxed(obj*, obj*); obj* l_HashMap_size___rarg(obj*); obj* l_HashMap_empty___boxed(obj*, obj*, obj*, obj*); obj* l_HashMap_insert___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_AssocList_erase___main___rarg(obj*, obj*, obj*); +obj* l_HashMapImp_moveEntries___rarg(obj*, obj*, obj*, obj*); obj* l_HashMap_empty___rarg___boxed(obj*); obj* l_HashMap_contains(obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_HashMapImp_moveEntries___main(obj*, obj*); obj* l_mkHashMapImp(obj*, obj*); obj* l_AssocList_find___main___rarg(obj*, obj*, obj*); obj* l_HashMapImp_reinsertAux___rarg(obj*, obj*, obj*, obj*); +obj* l_HashMapImp_expand___boxed(obj*, obj*); obj* l_HashMap_fold(obj*, obj*, obj*, obj*, obj*); obj* l_HashMapImp_erase(obj*, obj*); uint8 l_AssocList_contains___main___rarg(obj*, obj*, obj*); @@ -55,6 +63,7 @@ obj* l_HashMap_insert(obj*, obj*); namespace lean { uint8 nat_dec_lt(obj*, obj*); } +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_HashMapBucket_update___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_HashMapImp_foldBuckets___boxed(obj*, obj*, obj*); obj* l_HashMapImp_erase___rarg(obj*, obj*, obj*, obj*); @@ -67,8 +76,8 @@ obj* l_HashMapImp_insert___rarg(obj*, obj*, obj*, obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } +obj* l_HashMapImp_moveEntries___boxed(obj*, obj*); obj* l_HashMap_find(obj*, obj*); -obj* l_Array_mkArray___rarg(obj*, obj*); obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_mkHashMapImp___boxed(obj*, obj*); obj* l_mkHashMap___boxed(obj*, obj*, obj*, obj*); @@ -78,19 +87,27 @@ obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1(obj*, obj* obj* l_HashMapImp_find___boxed(obj*, obj*); obj* l_mkHashMapImp___rarg___closed__1; obj* l_HashMapImp_reinsertAux(obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___boxed(obj*, obj*, obj*); +obj* l_HashMapImp_moveEntries___main___rarg(obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1(obj*, obj*, obj*); obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___boxed(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___boxed(obj*, obj*, obj*); namespace lean { usize usize_modn(usize, obj*); } obj* l_mkHashMap___rarg(obj*); obj* l_HashMapImp_foldBuckets___rarg(obj*, obj*, obj*); +obj* l_HashMapImp_moveEntries(obj*, obj*); obj* l_HashMap_empty(obj*, obj*, obj*, obj*); obj* l_HashMapImp_contains(obj*, obj*); +obj* l_HashMapImp_moveEntries___main___boxed(obj*, obj*); obj* l_HashMapBucket_update(obj*, obj*); obj* l_mkHashMapImp___rarg(obj*); obj* l_HashMapImp_insert(obj*, obj*); obj* l_HashMap_erase(obj*, obj*); obj* l_HashMap_fold___rarg(obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1(obj*, obj*, obj*); +obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___boxed(obj*, obj*); obj* l_HashMapImp_fold___boxed(obj*, obj*, obj*); obj* l_HashMap_erase___boxed(obj*, obj*); obj* l_HashMap_Inhabited(obj*, obj*, obj*, obj*); @@ -101,6 +118,7 @@ uint8 nat_dec_le(obj*, obj*); obj* l_HashMapImp_mkIdx___boxed(obj*, obj*, obj*); obj* l_HashMapImp_find(obj*, obj*); obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_HashMap_find___rarg___boxed(obj*, obj*, obj*, obj*); namespace lean { obj* nat_mul(obj*, obj*); @@ -110,6 +128,7 @@ obj* l_HashMap_fold___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_HashMapImp_insert___boxed(obj*, obj*); obj* l_HashMap_HasEmptyc(obj*, obj*, obj*, obj*); obj* l_AssocList_foldl___main___rarg(obj*, obj*, obj*); +obj* l_HashMapImp_expand___rarg(obj*, obj*, obj*); obj* l_HashMapBucket_update___rarg(obj* x_0, usize x_1, obj* x_2, obj* x_3) { _start: { @@ -152,7 +171,7 @@ _start: obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; x_0 = lean::box(0); x_1 = lean::mk_nat_obj(8ul); -x_2 = l_Array_mkArray___rarg(x_1, x_0); +x_2 = lean::mk_array(x_1, x_0); x_3 = lean::mk_nat_obj(0ul); x_4 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_4, 0, x_3); @@ -170,7 +189,7 @@ if (x_2 == 0) { obj* x_3; obj* x_4; obj* x_5; x_3 = lean::box(0); -x_4 = l_Array_mkArray___rarg(x_0, x_3); +x_4 = lean::mk_array(x_0, x_3); x_5 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_5, 0, x_1); lean::cnstr_set(x_5, 1, x_4); @@ -435,18 +454,54 @@ lean::dec(x_1); return x_2; } } +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_6; uint8 x_7; +lean::inc(x_2); +x_6 = lean::array_sz(x_2); +x_7 = lean::nat_dec_lt(x_3, x_6); +lean::dec(x_6); +if (x_7 == 0) +{ +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +return x_4; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; +x_12 = lean::array_index(x_2, x_3); +lean::inc(x_0); +x_14 = l_AssocList_foldl___main___rarg(x_0, x_4, x_12); +x_15 = lean::mk_nat_obj(1ul); +x_16 = lean::nat_add(x_3, x_15); +lean::dec(x_3); +x_3 = x_16; +x_4 = x_14; +goto _start; +} +} +} +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg___boxed), 5, 0); +return x_3; +} +} obj* l_HashMapImp_fold___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_6; obj* x_8; -x_3 = lean::cnstr_get(x_0, 1); +obj* x_3; obj* x_5; obj* x_6; +x_3 = lean::cnstr_get(x_2, 1); lean::inc(x_3); -lean::dec(x_0); -x_6 = lean::mk_nat_obj(0ul); -lean::inc(x_3); -x_8 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_3, x_2, x_3, x_6, x_1); -lean::dec(x_3); -return x_8; +x_5 = lean::mk_nat_obj(0ul); +x_6 = l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(x_0, x_2, x_3, x_5, x_1); +lean::dec(x_2); +return x_6; } } obj* l_HashMapImp_fold(obj* x_0, obj* x_1, obj* x_2) { @@ -457,6 +512,26 @@ x_3 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_fold___rarg), 3, return x_3; } } +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +lean::dec(x_1); +return x_5; +} +} +obj* l_Array_miterateAux___main___at_HashMapImp_fold___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Array_miterateAux___main___at_HashMapImp_fold___spec__1(x_0, x_1, x_2); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +return x_3; +} +} obj* l_HashMapImp_fold___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -468,6 +543,182 @@ lean::dec(x_2); return x_3; } } +obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_2) == 0) +{ +lean::dec(x_0); +return x_1; +} +else +{ +obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_11; obj* x_14; usize x_15; usize x_16; obj* x_18; obj* x_19; obj* x_20; +x_4 = lean::cnstr_get(x_2, 0); +x_6 = lean::cnstr_get(x_2, 1); +x_8 = lean::cnstr_get(x_2, 2); +if (lean::is_exclusive(x_2)) { + x_10 = x_2; +} else { + lean::inc(x_4); + lean::inc(x_6); + lean::inc(x_8); + lean::dec(x_2); + x_10 = lean::box(0); +} +x_11 = lean::array_get_size(x_1); +lean::inc(x_4); +lean::inc(x_0); +x_14 = lean::apply_1(x_0, x_4); +x_15 = lean::unbox_size_t(x_14); +x_16 = lean::usize_modn(x_15, x_11); +lean::dec(x_11); +x_18 = lean::array_idx(x_1, x_16); +if (lean::is_scalar(x_10)) { + x_19 = lean::alloc_cnstr(1, 3, 0); +} else { + x_19 = x_10; +} +lean::cnstr_set(x_19, 0, x_4); +lean::cnstr_set(x_19, 1, x_6); +lean::cnstr_set(x_19, 2, x_18); +x_20 = lean::array_updt(x_1, x_16, x_19); +x_1 = x_20; +x_2 = x_8; +goto _start; +} +} +} +obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg), 3, 0); +return x_2; +} +} +obj* l_HashMapImp_moveEntries___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; uint8 x_5; +x_4 = lean::array_get_size(x_2); +x_5 = lean::nat_dec_lt(x_1, x_4); +lean::dec(x_4); +if (x_5 == 0) +{ +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +return x_3; +} +else +{ +obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; +x_10 = lean::array_index(x_2, x_1); +x_11 = lean::box(0); +x_12 = lean::array_update(x_2, x_1, x_11); +lean::inc(x_0); +x_14 = l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___rarg(x_0, x_3, x_10); +x_15 = lean::mk_nat_obj(1ul); +x_16 = lean::nat_add(x_1, x_15); +lean::dec(x_1); +x_1 = x_16; +x_2 = x_12; +x_3 = x_14; +goto _start; +} +} +} +obj* l_HashMapImp_moveEntries___main(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_moveEntries___main___rarg), 4, 0); +return x_2; +} +} +obj* l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_AssocList_foldl___main___at_HashMapImp_moveEntries___main___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_HashMapImp_moveEntries___main___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_HashMapImp_moveEntries___main(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_HashMapImp_moveEntries___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_HashMapImp_moveEntries___main___rarg(x_0, x_1, x_2, x_3); +return x_4; +} +} +obj* l_HashMapImp_moveEntries(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_moveEntries___rarg), 4, 0); +return x_2; +} +} +obj* l_HashMapImp_moveEntries___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_HashMapImp_moveEntries(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_HashMapImp_expand___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_3 = lean::array_get_size(x_2); +x_4 = lean::mk_nat_obj(2ul); +x_5 = lean::nat_mul(x_3, x_4); +lean::dec(x_3); +x_7 = lean::box(0); +x_8 = lean::mk_array(x_5, x_7); +x_9 = lean::mk_nat_obj(0ul); +x_10 = l_HashMapImp_moveEntries___main___rarg(x_0, x_9, x_2, x_8); +x_11 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_11, 0, x_1); +lean::cnstr_set(x_11, 1, x_10); +return x_11; +} +} +obj* l_HashMapImp_expand(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_expand___rarg), 3, 0); +return x_2; +} +} +obj* l_HashMapImp_expand___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_HashMapImp_expand(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} obj* l_HashMapImp_insert___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { @@ -508,59 +759,43 @@ lean::cnstr_set(x_25, 1, x_4); lean::cnstr_set(x_25, 2, x_16); x_26 = lean::array_updt(x_7, x_15, x_25); x_27 = lean::nat_dec_le(x_23, x_10); +lean::dec(x_10); if (x_27 == 0) { -obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38; -x_28 = lean::mk_nat_obj(2ul); -x_29 = lean::nat_mul(x_10, x_28); -lean::dec(x_10); -x_31 = lean::box(0); -x_32 = l_Array_mkArray___rarg(x_29, x_31); -x_33 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_reinsertAux___rarg), 4, 1); -lean::closure_set(x_33, 0, x_1); -x_34 = lean::mk_nat_obj(0ul); -lean::inc(x_26); -x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32); -lean::dec(x_26); -if (lean::is_scalar(x_9)) { - x_38 = lean::alloc_cnstr(0, 2, 0); -} else { - x_38 = x_9; -} -lean::cnstr_set(x_38, 0, x_23); -lean::cnstr_set(x_38, 1, x_36); -return x_38; +obj* x_30; +lean::dec(x_9); +x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26); +return x_30; } else { -obj* x_41; -lean::dec(x_10); +obj* x_32; lean::dec(x_1); if (lean::is_scalar(x_9)) { - x_41 = lean::alloc_cnstr(0, 2, 0); + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_9; + x_32 = x_9; } -lean::cnstr_set(x_41, 0, x_23); -lean::cnstr_set(x_41, 1, x_26); -return x_41; +lean::cnstr_set(x_32, 0, x_23); +lean::cnstr_set(x_32, 1, x_26); +return x_32; } } else { -obj* x_44; obj* x_45; obj* x_46; +obj* x_35; obj* x_36; obj* x_37; lean::dec(x_10); lean::dec(x_1); -x_44 = l_AssocList_replace___main___rarg(x_0, x_3, x_4, x_16); -x_45 = lean::array_updt(x_7, x_15, x_44); +x_35 = l_AssocList_replace___main___rarg(x_0, x_3, x_4, x_16); +x_36 = lean::array_updt(x_7, x_15, x_35); if (lean::is_scalar(x_9)) { - x_46 = lean::alloc_cnstr(0, 2, 0); + x_37 = lean::alloc_cnstr(0, 2, 0); } else { - x_46 = x_9; + x_37 = x_9; } -lean::cnstr_set(x_46, 0, x_5); -lean::cnstr_set(x_46, 1, x_45); -return x_46; +lean::cnstr_set(x_37, 0, x_5); +lean::cnstr_set(x_37, 1, x_36); +return x_37; } } } @@ -848,14 +1083,56 @@ lean::dec(x_1); return x_2; } } -obj* l_HashMap_fold___rarg(obj* x_0, obj* x_1, obj* x_2) { +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_6; uint8 x_7; +lean::inc(x_2); +x_6 = lean::array_sz(x_2); +x_7 = lean::nat_dec_lt(x_3, x_6); +lean::dec(x_6); +if (x_7 == 0) +{ +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +return x_4; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; +x_12 = lean::array_index(x_2, x_3); +lean::inc(x_0); +x_14 = l_AssocList_foldl___main___rarg(x_0, x_4, x_12); +x_15 = lean::mk_nat_obj(1ul); +x_16 = lean::nat_add(x_3, x_15); +lean::dec(x_3); +x_3 = x_16; +x_4 = x_14; +goto _start; +} +} +} +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; -x_3 = l_HashMapImp_fold___rarg(x_0, x_1, x_2); +x_3 = lean::alloc_closure(reinterpret_cast(l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg___boxed), 5, 0); return x_3; } } +obj* l_HashMap_fold___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_5; obj* x_6; +x_3 = lean::cnstr_get(x_2, 1); +lean::inc(x_3); +x_5 = lean::mk_nat_obj(0ul); +x_6 = l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(x_0, x_2, x_3, x_5, x_1); +lean::dec(x_2); +return x_6; +} +} obj* l_HashMap_fold(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { @@ -864,6 +1141,26 @@ x_5 = lean::alloc_closure(reinterpret_cast(l_HashMap_fold___rarg), 3, 0); return x_5; } } +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = l_Array_miterateAux___main___at_HashMap_fold___spec__1___rarg(x_0, x_1, x_2, x_3, x_4); +lean::dec(x_1); +return x_5; +} +} +obj* l_Array_miterateAux___main___at_HashMap_fold___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_Array_miterateAux___main___at_HashMap_fold___spec__1(x_0, x_1, x_2); +lean::dec(x_0); +lean::dec(x_1); +lean::dec(x_2); +return x_3; +} +} obj* l_HashMap_fold___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { diff --git a/src/stage0/init/data/rbmap/basic.cpp b/src/stage0/init/data/rbmap/basic.cpp index 25b4027414..ed06d7778f 100644 --- a/src/stage0/init/data/rbmap/basic.cpp +++ b/src/stage0/init/data/rbmap/basic.cpp @@ -31,6 +31,7 @@ obj* l_RBNode_lowerBound(obj*, obj*); obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(obj*, obj*); obj* l_RBNode_revFold___rarg(obj*, obj*, obj*); obj* l_RBNode_findCore___main___rarg(obj*, obj*, obj*); +obj* l_RBNode_mfold___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBNode_findCore___main___boxed(obj*, obj*); obj* l_RBMap_find___rarg(obj*, obj*, obj*); obj* l_RBNode_insert___boxed(obj*, obj*); @@ -38,6 +39,7 @@ obj* l_RBMap_any___main(obj*, obj*, obj*); obj* l_RBMap_contains___boxed(obj*, obj*); obj* l_RBMap_any___main___rarg___boxed(obj*, obj*); obj* l_RBNode_setBlack(obj*, obj*); +obj* l_List_foldl___main___at_rbmapOf___spec__1(obj*, obj*); obj* l_RBNode_isRed___boxed(obj*, obj*); obj* l_RBNode_ins___main(obj*, obj*); obj* l_RBNode_balance2___main___boxed(obj*, obj*); @@ -66,6 +68,7 @@ obj* l_RBNode_mfold___boxed(obj*, obj*, obj*, obj*); obj* l_RBMap_revFold___boxed(obj*, obj*, obj*, obj*); obj* l_RBMap_insert___rarg(obj*, obj*, obj*, obj*); obj* l_RBMap_findCore___main___boxed(obj*, obj*); +obj* l_List_foldl___main___at_rbmapOf___spec__1___rarg(obj*, obj*, obj*); obj* l_rbmapOf(obj*, obj*); obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l_RBMap_toList___boxed(obj*, obj*, obj*); @@ -111,6 +114,7 @@ obj* l_RBMap_ofList___main___rarg(obj*, obj*); obj* l_RBNode_balance2___main(obj*, obj*); obj* l_RBNode_all___main___rarg___boxed(obj*, obj*); obj* l_RBMap_revFold___main___boxed(obj*, obj*, obj*, obj*); +obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_List_repr___main___rarg___closed__3; obj* l_RBNode_singleton(obj*, obj*); obj* l_RBMap_ofList___rarg(obj*, obj*); @@ -203,7 +207,7 @@ obj* l_RBNode_setBlack___main(obj*, obj*); obj* l_RBMap_find___boxed(obj*, obj*); extern obj* l_List_repr___main___rarg___closed__1; obj* l_RBMap_any___boxed(obj*, obj*, obj*); -obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_RBMap_fromList___boxed(obj*, obj*); uint8 l_RBMap_all___rarg(obj*, obj*); obj* l_RBMap_any___rarg___boxed(obj*, obj*); @@ -214,10 +218,10 @@ obj* l_RBMap_revFold(obj*, obj*, obj*, obj*); obj* l_RBNode_revFold___main(obj*, obj*, obj*); obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1(obj*, obj*); obj* l_List_foldl___main___at_RBMap_fromList___spec__1___rarg(obj*, obj*, obj*); +obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBMap_lowerBound___main___rarg(obj*, obj*, obj*); obj* l_RBMap_isEmpty___boxed(obj*, obj*, obj*); uint8 l_RBMap_all___main___rarg(obj*, obj*); -obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBNode_balance1___boxed(obj*, obj*); obj* l_RBNode_depth___main___boxed(obj*, obj*); obj* l_RBMap_revFold___main(obj*, obj*, obj*, obj*); @@ -246,6 +250,7 @@ obj* l_RBNode_ins___rarg(obj*, obj*, obj*, obj*); obj* l_RBMap_all___rarg___boxed(obj*, obj*); obj* l_RBNode_fold___boxed(obj*, obj*, obj*); obj* l_RBNode_fold___main(obj*, obj*, obj*); +obj* l_List_foldl___main___at_rbmapOf___spec__1___boxed(obj*, obj*); obj* l_RBNode_fold(obj*, obj*, obj*); obj* l_RBNode_depth(obj*, obj*); obj* l_RBMap_min___main___boxed(obj*, obj*, obj*); @@ -266,7 +271,7 @@ obj* l_RBMap_max___main___rarg(obj*); uint8 l_RBMap_isEmpty___rarg(obj*); obj* l_List_foldl___main___at_RBMap_fromList___spec__1(obj*, obj*); obj* l_List_repr___main___at_RBMap_HasRepr___spec__1___rarg(obj*, obj*, obj*); -obj* l_RBNode_mfold___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_mfold___main___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_RBNode_revFold(obj*, obj*, obj*); uint8 l_RBMap_contains___rarg(obj*, obj*, obj*); obj* l_RBNode_revFold___boxed(obj*, obj*, obj*); @@ -529,29 +534,29 @@ return x_2; obj* l_RBNode_fold___main___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -if (lean::obj_tag(x_1) == 0) +if (lean::obj_tag(x_2) == 0) { lean::dec(x_0); -return x_2; +return x_1; } else { obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_14; obj* x_16; -x_4 = lean::cnstr_get(x_1, 0); +x_4 = lean::cnstr_get(x_2, 0); lean::inc(x_4); -x_6 = lean::cnstr_get(x_1, 1); +x_6 = lean::cnstr_get(x_2, 1); lean::inc(x_6); -x_8 = lean::cnstr_get(x_1, 2); +x_8 = lean::cnstr_get(x_2, 2); lean::inc(x_8); -x_10 = lean::cnstr_get(x_1, 3); +x_10 = lean::cnstr_get(x_2, 3); lean::inc(x_10); -lean::dec(x_1); +lean::dec(x_2); lean::inc(x_0); -x_14 = l_RBNode_fold___main___rarg(x_0, x_4, x_2); +x_14 = l_RBNode_fold___main___rarg(x_0, x_1, x_4); lean::inc(x_0); -x_16 = lean::apply_3(x_0, x_6, x_8, x_14); -x_1 = x_10; -x_2 = x_16; +x_16 = lean::apply_3(x_0, x_14, x_6, x_8); +x_1 = x_16; +x_2 = x_10; goto _start; } } @@ -602,13 +607,21 @@ lean::dec(x_2); return x_3; } } -obj* l_RBNode_mfold___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_RBNode_mfold___main___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_RBNode_mfold___main___rarg(x_0, x_1, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_mfold___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_8; obj* x_9; obj* x_10; lean::inc(x_0); -x_8 = lean::apply_3(x_0, x_1, x_2, x_6); -x_9 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___rarg), 4, 3); +x_8 = lean::apply_3(x_0, x_6, x_1, x_2); +x_9 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___rarg___lambda__1), 4, 3); lean::closure_set(x_9, 0, x_3); lean::closure_set(x_9, 1, x_0); lean::closure_set(x_9, 2, x_4); @@ -619,7 +632,7 @@ return x_10; obj* l_RBNode_mfold___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -if (lean::obj_tag(x_2) == 0) +if (lean::obj_tag(x_3) == 0) { obj* x_5; obj* x_8; obj* x_11; lean::dec(x_1); @@ -629,28 +642,28 @@ lean::dec(x_0); x_8 = lean::cnstr_get(x_5, 1); lean::inc(x_8); lean::dec(x_5); -x_11 = lean::apply_2(x_8, lean::box(0), x_3); +x_11 = lean::apply_2(x_8, lean::box(0), x_2); return x_11; } else { obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_21; obj* x_25; obj* x_27; obj* x_28; -x_12 = lean::cnstr_get(x_2, 0); +x_12 = lean::cnstr_get(x_3, 0); lean::inc(x_12); -x_14 = lean::cnstr_get(x_2, 1); +x_14 = lean::cnstr_get(x_3, 1); lean::inc(x_14); -x_16 = lean::cnstr_get(x_2, 2); +x_16 = lean::cnstr_get(x_3, 2); lean::inc(x_16); -x_18 = lean::cnstr_get(x_2, 3); +x_18 = lean::cnstr_get(x_3, 3); lean::inc(x_18); -lean::dec(x_2); +lean::dec(x_3); x_21 = lean::cnstr_get(x_0, 1); lean::inc(x_21); lean::inc(x_1); lean::inc(x_0); -x_25 = l_RBNode_mfold___main___rarg(x_0, x_1, x_12, x_3); +x_25 = l_RBNode_mfold___main___rarg(x_0, x_1, x_2, x_12); lean::inc(x_21); -x_27 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___rarg___lambda__1), 7, 6); +x_27 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___rarg___lambda__2), 7, 6); lean::closure_set(x_27, 0, x_1); lean::closure_set(x_27, 1, x_14); lean::closure_set(x_27, 2, x_16); @@ -713,29 +726,29 @@ return x_4; obj* l_RBNode_revFold___main___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -if (lean::obj_tag(x_1) == 0) +if (lean::obj_tag(x_2) == 0) { lean::dec(x_0); -return x_2; +return x_1; } else { obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_14; obj* x_16; -x_4 = lean::cnstr_get(x_1, 0); +x_4 = lean::cnstr_get(x_2, 0); lean::inc(x_4); -x_6 = lean::cnstr_get(x_1, 1); +x_6 = lean::cnstr_get(x_2, 1); lean::inc(x_6); -x_8 = lean::cnstr_get(x_1, 2); +x_8 = lean::cnstr_get(x_2, 2); lean::inc(x_8); -x_10 = lean::cnstr_get(x_1, 3); +x_10 = lean::cnstr_get(x_2, 3); lean::inc(x_10); -lean::dec(x_1); +lean::dec(x_2); lean::inc(x_0); -x_14 = l_RBNode_revFold___main___rarg(x_0, x_10, x_2); +x_14 = l_RBNode_revFold___main___rarg(x_0, x_1, x_10); lean::inc(x_0); -x_16 = lean::apply_3(x_0, x_6, x_8, x_14); -x_1 = x_4; -x_2 = x_16; +x_16 = lean::apply_3(x_0, x_14, x_6, x_8); +x_1 = x_16; +x_2 = x_4; goto _start; } } @@ -3308,7 +3321,15 @@ lean::dec(x_4); return x_5; } } -obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; @@ -3324,7 +3345,7 @@ lean::dec(x_7); x_16 = lean::box(0); x_17 = lean::apply_2(x_13, lean::box(0), x_16); x_18 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_12, x_17); -x_19 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg), 4, 3); +x_19 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1), 4, 3); lean::closure_set(x_19, 0, x_0); lean::closure_set(x_19, 1, x_1); lean::closure_set(x_19, 2, x_4); @@ -3335,7 +3356,7 @@ return x_20; obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -if (lean::obj_tag(x_2) == 0) +if (lean::obj_tag(x_3) == 0) { obj* x_5; obj* x_8; obj* x_11; lean::dec(x_1); @@ -3345,28 +3366,28 @@ lean::dec(x_0); x_8 = lean::cnstr_get(x_5, 1); lean::inc(x_8); lean::dec(x_5); -x_11 = lean::apply_2(x_8, lean::box(0), x_3); +x_11 = lean::apply_2(x_8, lean::box(0), x_2); return x_11; } else { obj* x_12; obj* x_14; obj* x_16; obj* x_18; obj* x_21; obj* x_25; obj* x_27; obj* x_28; -x_12 = lean::cnstr_get(x_2, 0); +x_12 = lean::cnstr_get(x_3, 0); lean::inc(x_12); -x_14 = lean::cnstr_get(x_2, 1); +x_14 = lean::cnstr_get(x_3, 1); lean::inc(x_14); -x_16 = lean::cnstr_get(x_2, 2); +x_16 = lean::cnstr_get(x_3, 2); lean::inc(x_16); -x_18 = lean::cnstr_get(x_2, 3); +x_18 = lean::cnstr_get(x_3, 3); lean::inc(x_18); -lean::dec(x_2); +lean::dec(x_3); x_21 = lean::cnstr_get(x_0, 1); lean::inc(x_21); lean::inc(x_1); lean::inc(x_0); -x_25 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_12, x_3); +x_25 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_2, x_12); lean::inc(x_21); -x_27 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed), 7, 6); +x_27 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2___boxed), 7, 6); lean::closure_set(x_27, 0, x_0); lean::closure_set(x_27, 1, x_1); lean::closure_set(x_27, 2, x_14); @@ -3391,7 +3412,7 @@ _start: { obj* x_3; obj* x_4; x_3 = lean::box(0); -x_4 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_2, x_3); +x_4 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(x_0, x_1, x_3, x_2); return x_4; } } @@ -3403,11 +3424,11 @@ x_5 = lean::alloc_closure(reinterpret_cast(l_RBMap_mfor___rarg), 3, 0); return x_5; } } -obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_7; -x_7 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6); lean::dec(x_6); return x_7; } @@ -3532,31 +3553,31 @@ return x_3; obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(obj* x_0, obj* x_1) { _start: { -if (lean::obj_tag(x_0) == 0) +if (lean::obj_tag(x_1) == 0) { -return x_1; +return x_0; } else { obj* x_2; obj* x_4; obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_13; -x_2 = lean::cnstr_get(x_0, 0); +x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); -x_4 = lean::cnstr_get(x_0, 1); +x_4 = lean::cnstr_get(x_1, 1); lean::inc(x_4); -x_6 = lean::cnstr_get(x_0, 2); +x_6 = lean::cnstr_get(x_1, 2); lean::inc(x_6); -x_8 = lean::cnstr_get(x_0, 3); +x_8 = lean::cnstr_get(x_1, 3); lean::inc(x_8); -lean::dec(x_0); -x_11 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_8, x_1); +lean::dec(x_1); +x_11 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_0, x_8); x_12 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_12, 0, x_4); lean::cnstr_set(x_12, 1, x_6); x_13 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_13, 0, x_12); lean::cnstr_set(x_13, 1, x_11); -x_0 = x_2; -x_1 = x_13; +x_0 = x_13; +x_1 = x_2; goto _start; } } @@ -3574,7 +3595,7 @@ _start: { obj* x_1; obj* x_2; x_1 = lean::box(0); -x_2 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_0, x_1); +x_2 = l_RBNode_revFold___main___at_RBMap_toList___main___spec__1___rarg(x_1, x_0); return x_2; } } @@ -4074,9 +4095,21 @@ return x_3; obj* l_RBMap_insert___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; -x_4 = l_RBNode_insert___rarg(x_0, x_1, x_2, x_3); -return x_4; +uint8 x_4; +x_4 = l_RBNode_isRed___main___rarg(x_1); +if (x_4 == 0) +{ +obj* x_5; +x_5 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3); +return x_5; +} +else +{ +obj* x_6; obj* x_7; +x_6 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3); +x_7 = l_RBNode_setBlack___main___rarg(x_6); +return x_7; +} } } obj* l_RBMap_insert___main(obj* x_0, obj* x_1) { @@ -4100,9 +4133,21 @@ return x_2; obj* l_RBMap_insert___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; -x_4 = l_RBNode_insert___rarg(x_0, x_1, x_2, x_3); -return x_4; +uint8 x_4; +x_4 = l_RBNode_isRed___main___rarg(x_1); +if (x_4 == 0) +{ +obj* x_5; +x_5 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3); +return x_5; +} +else +{ +obj* x_6; obj* x_7; +x_6 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_3); +x_7 = l_RBNode_setBlack___main___rarg(x_6); +return x_7; +} } } obj* l_RBMap_insert(obj* x_0, obj* x_1) { @@ -4135,7 +4180,7 @@ return x_3; } else { -obj* x_4; obj* x_6; obj* x_9; obj* x_11; obj* x_15; obj* x_16; +obj* x_4; obj* x_6; obj* x_9; obj* x_11; obj* x_15; uint8 x_16; x_4 = lean::cnstr_get(x_1, 0); lean::inc(x_4); x_6 = lean::cnstr_get(x_1, 1); @@ -4148,8 +4193,20 @@ lean::inc(x_11); lean::dec(x_4); lean::inc(x_0); x_15 = l_RBMap_ofList___main___rarg(x_0, x_6); -x_16 = l_RBNode_insert___rarg(x_0, x_15, x_9, x_11); -return x_16; +x_16 = l_RBNode_isRed___main___rarg(x_15); +if (x_16 == 0) +{ +obj* x_17; +x_17 = l_RBNode_ins___main___rarg(x_0, x_15, x_9, x_11); +return x_17; +} +else +{ +obj* x_18; obj* x_19; +x_18 = l_RBNode_ins___main___rarg(x_0, x_15, x_9, x_11); +x_19 = l_RBNode_setBlack___main___rarg(x_18); +return x_19; +} } } } @@ -4331,9 +4388,10 @@ return x_2; obj* l_RBMap_lowerBound___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; -x_3 = l_RBMap_lowerBound___main___rarg(x_0, x_1, x_2); -return x_3; +obj* x_3; obj* x_4; +x_3 = lean::box(0); +x_4 = l_RBNode_lowerBound___main___rarg(x_0, x_1, x_2, x_3); +return x_4; } } obj* l_RBMap_lowerBound(obj* x_0, obj* x_1) { @@ -4411,7 +4469,7 @@ return x_1; } else { -obj* x_4; obj* x_6; obj* x_9; obj* x_11; obj* x_15; +obj* x_4; obj* x_6; obj* x_9; obj* x_11; uint8 x_14; x_4 = lean::cnstr_get(x_2, 0); lean::inc(x_4); x_6 = lean::cnstr_get(x_2, 1); @@ -4422,12 +4480,27 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_4, 1); lean::inc(x_11); lean::dec(x_4); +x_14 = l_RBNode_isRed___main___rarg(x_1); +if (x_14 == 0) +{ +obj* x_16; lean::inc(x_0); -x_15 = l_RBNode_insert___rarg(x_0, x_1, x_9, x_11); -x_1 = x_15; +x_16 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11); +x_1 = x_16; x_2 = x_6; goto _start; } +else +{ +obj* x_19; obj* x_20; +lean::inc(x_0); +x_19 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11); +x_20 = l_RBNode_setBlack___main___rarg(x_19); +x_1 = x_20; +x_2 = x_6; +goto _start; +} +} } } obj* l_List_foldl___main___at_RBMap_fromList___spec__1(obj* x_0, obj* x_1) { @@ -4619,14 +4692,67 @@ lean::dec(x_2); return x_3; } } -obj* l_rbmapOf___rarg(obj* x_0, obj* x_1) { +obj* l_List_foldl___main___at_rbmapOf___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_2) == 0) +{ +lean::dec(x_0); +return x_1; +} +else +{ +obj* x_4; obj* x_6; obj* x_9; obj* x_11; uint8 x_14; +x_4 = lean::cnstr_get(x_2, 0); +lean::inc(x_4); +x_6 = lean::cnstr_get(x_2, 1); +lean::inc(x_6); +lean::dec(x_2); +x_9 = lean::cnstr_get(x_4, 0); +lean::inc(x_9); +x_11 = lean::cnstr_get(x_4, 1); +lean::inc(x_11); +lean::dec(x_4); +x_14 = l_RBNode_isRed___main___rarg(x_1); +if (x_14 == 0) +{ +obj* x_16; +lean::inc(x_0); +x_16 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11); +x_1 = x_16; +x_2 = x_6; +goto _start; +} +else +{ +obj* x_19; obj* x_20; +lean::inc(x_0); +x_19 = l_RBNode_ins___main___rarg(x_0, x_1, x_9, x_11); +x_20 = l_RBNode_setBlack___main___rarg(x_19); +x_1 = x_20; +x_2 = x_6; +goto _start; +} +} +} +} +obj* l_List_foldl___main___at_rbmapOf___spec__1(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_RBMap_fromList___rarg(x_0, x_1); +x_2 = lean::alloc_closure(reinterpret_cast(l_List_foldl___main___at_rbmapOf___spec__1___rarg), 3, 0); return x_2; } } +obj* l_rbmapOf___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_3; +x_2 = lean::box(0); +x_3 = l_List_foldl___main___at_rbmapOf___spec__1___rarg(x_1, x_2, x_0); +return x_3; +} +} obj* l_rbmapOf(obj* x_0, obj* x_1) { _start: { @@ -4635,6 +4761,16 @@ x_2 = lean::alloc_closure(reinterpret_cast(l_rbmapOf___rarg), 2, 0); return x_2; } } +obj* l_List_foldl___main___at_rbmapOf___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_List_foldl___main___at_rbmapOf___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} obj* l_rbmapOf___boxed(obj* x_0, obj* x_1) { _start: { diff --git a/src/stage0/init/data/rbtree/basic.cpp b/src/stage0/init/data/rbtree/basic.cpp index 78d923671a..fbb51c4a1a 100644 --- a/src/stage0/init/data/rbtree/basic.cpp +++ b/src/stage0/init/data/rbtree/basic.cpp @@ -15,9 +15,11 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_RBTree_min___boxed(obj*, obj*); +obj* l_RBNode_setBlack___main___rarg(obj*); obj* l_RBTree_HasEmptyc___boxed(obj*, obj*); obj* l_RBNode_any___main___at_RBTree_any___spec__1(obj*); obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___boxed(obj*, obj*, obj*); +obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBTree_find___boxed(obj*); obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1___boxed(obj*, obj*); obj* l_RBNode_findCore___main___rarg(obj*, obj*, obj*); @@ -30,7 +32,7 @@ obj* l_RBTree_ofList___main(obj*); obj* l_RBNode_fold___main___at_RBTree_fold___spec__1(obj*, obj*); obj* l_RBTree_seteq___rarg___boxed(obj*, obj*, obj*); obj* l_RBTree_toList(obj*, obj*); -obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_RBTree_any___rarg___boxed(obj*, obj*); obj* l_RBTree_isEmpty___rarg___boxed(obj*); uint8 l_RBTree_all___rarg(obj*, obj*); @@ -40,9 +42,9 @@ obj* l_RBTree_all___boxed(obj*, obj*); obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1(obj*, obj*, obj*); obj* l_RBTree_depth___rarg___boxed(obj*, obj*); obj* l_RBTree_fromList___rarg(obj*, obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l_RBNode_min___main___rarg(obj*); -obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___rarg(obj*, obj*, obj*, obj*); +obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_RBNode_max___main___rarg(obj*); obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_RBTree_contains___boxed(obj*); @@ -77,6 +79,7 @@ obj* l_RBTree_mfold___boxed(obj*, obj*, obj*, obj*); obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1(obj*, obj*); obj* l_RBTree_mfor___boxed(obj*, obj*, obj*, obj*); obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___boxed(obj*, obj*, obj*); +uint8 l_RBNode_isRed___main___rarg(obj*); obj* l_RBTree_HasRepr(obj*, obj*); uint8 l_RBNode_all___main___at_RBTree_all___spec__1___rarg(obj*, obj*); obj* l_RBTree_revFold(obj*, obj*, obj*); @@ -120,11 +123,12 @@ obj* l_RBTree_ofList___main___boxed(obj*); obj* l_RBTree_depth(obj*, obj*); obj* l_RBTree_fold___boxed(obj*, obj*, obj*); obj* l_RBTree_toList___boxed(obj*, obj*); +obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBTree_ofList___rarg(obj*, obj*); -obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBTree_ofList___boxed(obj*); obj* l_RBTree_mfor___rarg(obj*, obj*, obj*); obj* l_RBTree_insert___boxed(obj*); +obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBTree_all(obj*, obj*); obj* l_List_foldl___main___at_RBTree_fromList___spec__1___boxed(obj*); obj* l_List_repr___main___rarg(obj*, obj*); @@ -205,27 +209,27 @@ return x_2; obj* l_RBNode_fold___main___at_RBTree_fold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -if (lean::obj_tag(x_1) == 0) +if (lean::obj_tag(x_2) == 0) { lean::dec(x_0); -return x_2; +return x_1; } else { obj* x_4; obj* x_6; obj* x_8; obj* x_12; obj* x_14; -x_4 = lean::cnstr_get(x_1, 0); +x_4 = lean::cnstr_get(x_2, 0); lean::inc(x_4); -x_6 = lean::cnstr_get(x_1, 1); +x_6 = lean::cnstr_get(x_2, 1); lean::inc(x_6); -x_8 = lean::cnstr_get(x_1, 3); +x_8 = lean::cnstr_get(x_2, 3); lean::inc(x_8); -lean::dec(x_1); +lean::dec(x_2); lean::inc(x_0); -x_12 = l_RBNode_fold___main___at_RBTree_fold___spec__1___rarg(x_0, x_4, x_2); +x_12 = l_RBNode_fold___main___at_RBTree_fold___spec__1___rarg(x_0, x_1, x_4); lean::inc(x_0); -x_14 = lean::apply_2(x_0, x_6, x_12); -x_1 = x_8; -x_2 = x_14; +x_14 = lean::apply_2(x_0, x_12, x_6); +x_1 = x_14; +x_2 = x_8; goto _start; } } @@ -278,27 +282,27 @@ return x_3; obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -if (lean::obj_tag(x_1) == 0) +if (lean::obj_tag(x_2) == 0) { lean::dec(x_0); -return x_2; +return x_1; } else { obj* x_4; obj* x_6; obj* x_8; obj* x_12; obj* x_14; -x_4 = lean::cnstr_get(x_1, 0); +x_4 = lean::cnstr_get(x_2, 0); lean::inc(x_4); -x_6 = lean::cnstr_get(x_1, 1); +x_6 = lean::cnstr_get(x_2, 1); lean::inc(x_6); -x_8 = lean::cnstr_get(x_1, 3); +x_8 = lean::cnstr_get(x_2, 3); lean::inc(x_8); -lean::dec(x_1); +lean::dec(x_2); lean::inc(x_0); -x_12 = l_RBNode_revFold___main___at_RBTree_revFold___spec__1___rarg(x_0, x_8, x_2); +x_12 = l_RBNode_revFold___main___at_RBTree_revFold___spec__1___rarg(x_0, x_1, x_8); lean::inc(x_0); -x_14 = lean::apply_2(x_0, x_6, x_12); -x_1 = x_4; -x_2 = x_14; +x_14 = lean::apply_2(x_0, x_12, x_6); +x_1 = x_14; +x_2 = x_4; goto _start; } } @@ -348,13 +352,21 @@ lean::dec(x_2); return x_3; } } -obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(x_0, x_1, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_7; obj* x_8; obj* x_9; lean::inc(x_0); -x_7 = lean::apply_2(x_0, x_1, x_5); -x_8 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg), 4, 3); +x_7 = lean::apply_2(x_0, x_5, x_1); +x_8 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1), 4, 3); lean::closure_set(x_8, 0, x_2); lean::closure_set(x_8, 1, x_0); lean::closure_set(x_8, 2, x_3); @@ -365,7 +377,7 @@ return x_9; obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -if (lean::obj_tag(x_2) == 0) +if (lean::obj_tag(x_3) == 0) { obj* x_5; obj* x_8; obj* x_11; lean::dec(x_1); @@ -375,26 +387,26 @@ lean::dec(x_0); x_8 = lean::cnstr_get(x_5, 1); lean::inc(x_8); lean::dec(x_5); -x_11 = lean::apply_2(x_8, lean::box(0), x_3); +x_11 = lean::apply_2(x_8, lean::box(0), x_2); return x_11; } else { obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_23; obj* x_25; obj* x_26; -x_12 = lean::cnstr_get(x_2, 0); +x_12 = lean::cnstr_get(x_3, 0); lean::inc(x_12); -x_14 = lean::cnstr_get(x_2, 1); +x_14 = lean::cnstr_get(x_3, 1); lean::inc(x_14); -x_16 = lean::cnstr_get(x_2, 3); +x_16 = lean::cnstr_get(x_3, 3); lean::inc(x_16); -lean::dec(x_2); +lean::dec(x_3); x_19 = lean::cnstr_get(x_0, 1); lean::inc(x_19); lean::inc(x_1); lean::inc(x_0); -x_23 = l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(x_0, x_1, x_12, x_3); +x_23 = l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(x_0, x_1, x_2, x_12); lean::inc(x_19); -x_25 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__1), 6, 5); +x_25 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg___lambda__2), 6, 5); lean::closure_set(x_25, 0, x_1); lean::closure_set(x_25, 1, x_14); lean::closure_set(x_25, 2, x_0); @@ -452,7 +464,15 @@ lean::dec(x_3); return x_4; } } -obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; @@ -468,7 +488,7 @@ lean::dec(x_6); x_15 = lean::box(0); x_16 = lean::apply_2(x_12, lean::box(0), x_15); x_17 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_11, x_16); -x_18 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg), 4, 3); +x_18 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1), 4, 3); lean::closure_set(x_18, 0, x_0); lean::closure_set(x_18, 1, x_1); lean::closure_set(x_18, 2, x_3); @@ -479,7 +499,7 @@ return x_19; obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -if (lean::obj_tag(x_2) == 0) +if (lean::obj_tag(x_3) == 0) { obj* x_5; obj* x_8; obj* x_11; lean::dec(x_1); @@ -489,26 +509,26 @@ lean::dec(x_0); x_8 = lean::cnstr_get(x_5, 1); lean::inc(x_8); lean::dec(x_5); -x_11 = lean::apply_2(x_8, lean::box(0), x_3); +x_11 = lean::apply_2(x_8, lean::box(0), x_2); return x_11; } else { obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_23; obj* x_25; obj* x_26; -x_12 = lean::cnstr_get(x_2, 0); +x_12 = lean::cnstr_get(x_3, 0); lean::inc(x_12); -x_14 = lean::cnstr_get(x_2, 1); +x_14 = lean::cnstr_get(x_3, 1); lean::inc(x_14); -x_16 = lean::cnstr_get(x_2, 3); +x_16 = lean::cnstr_get(x_3, 3); lean::inc(x_16); -lean::dec(x_2); +lean::dec(x_3); x_19 = lean::cnstr_get(x_0, 1); lean::inc(x_19); lean::inc(x_1); lean::inc(x_0); -x_23 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_12, x_3); +x_23 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_2, x_12); lean::inc(x_19); -x_25 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1___boxed), 6, 5); +x_25 = lean::alloc_closure(reinterpret_cast(l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2___boxed), 6, 5); lean::closure_set(x_25, 0, x_0); lean::closure_set(x_25, 1, x_1); lean::closure_set(x_25, 2, x_14); @@ -532,7 +552,7 @@ _start: { obj* x_3; obj* x_4; x_3 = lean::box(0); -x_4 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_2, x_3); +x_4 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(x_0, x_1, x_3, x_2); return x_4; } } @@ -544,11 +564,11 @@ x_4 = lean::alloc_closure(reinterpret_cast(l_RBTree_mfor___rarg), 3, 0); return x_4; } } -obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; -x_6 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5); +x_6 = l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_5); return x_6; } @@ -624,26 +644,26 @@ return x_2; obj* l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(obj* x_0, obj* x_1) { _start: { -if (lean::obj_tag(x_0) == 0) +if (lean::obj_tag(x_1) == 0) { -return x_1; +return x_0; } else { obj* x_2; obj* x_4; obj* x_6; obj* x_9; obj* x_10; -x_2 = lean::cnstr_get(x_0, 0); +x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); -x_4 = lean::cnstr_get(x_0, 1); +x_4 = lean::cnstr_get(x_1, 1); lean::inc(x_4); -x_6 = lean::cnstr_get(x_0, 3); +x_6 = lean::cnstr_get(x_1, 3); lean::inc(x_6); -lean::dec(x_0); -x_9 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_6, x_1); +lean::dec(x_1); +x_9 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_0, x_6); x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_4); lean::cnstr_set(x_10, 1, x_9); -x_0 = x_2; -x_1 = x_10; +x_0 = x_10; +x_1 = x_2; goto _start; } } @@ -661,7 +681,7 @@ _start: { obj* x_1; obj* x_2; x_1 = lean::box(0); -x_2 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_0, x_1); +x_2 = l_RBNode_revFold___main___at_RBTree_toList___spec__1___rarg(x_1, x_0); return x_2; } } @@ -839,10 +859,23 @@ return x_2; obj* l_RBTree_insert___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_4; -x_3 = lean::box(0); -x_4 = l_RBNode_insert___rarg(x_0, x_1, x_2, x_3); -return x_4; +uint8 x_3; +x_3 = l_RBNode_isRed___main___rarg(x_1); +if (x_3 == 0) +{ +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_4); +return x_5; +} +else +{ +obj* x_6; obj* x_7; obj* x_8; +x_6 = lean::box(0); +x_7 = l_RBNode_ins___main___rarg(x_0, x_1, x_2, x_6); +x_8 = l_RBNode_setBlack___main___rarg(x_7); +return x_8; +} } } obj* l_RBTree_insert(obj* x_0) { @@ -874,7 +907,7 @@ return x_3; } else { -obj* x_4; obj* x_6; obj* x_10; obj* x_11; obj* x_12; +obj* x_4; obj* x_6; obj* x_10; uint8 x_11; x_4 = lean::cnstr_get(x_1, 0); lean::inc(x_4); x_6 = lean::cnstr_get(x_1, 1); @@ -882,9 +915,22 @@ lean::inc(x_6); lean::dec(x_1); lean::inc(x_0); x_10 = l_RBTree_ofList___main___rarg(x_0, x_6); -x_11 = lean::box(0); -x_12 = l_RBNode_insert___rarg(x_0, x_10, x_4, x_11); -return x_12; +x_11 = l_RBNode_isRed___main___rarg(x_10); +if (x_11 == 0) +{ +obj* x_12; obj* x_13; +x_12 = lean::box(0); +x_13 = l_RBNode_ins___main___rarg(x_0, x_10, x_4, x_12); +return x_13; +} +else +{ +obj* x_14; obj* x_15; obj* x_16; +x_14 = lean::box(0); +x_15 = l_RBNode_ins___main___rarg(x_0, x_10, x_4, x_14); +x_16 = l_RBNode_setBlack___main___rarg(x_15); +return x_16; +} } } } @@ -986,7 +1032,7 @@ uint8 l_RBTree_contains___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; -x_3 = l_RBTree_find___rarg(x_0, x_1, x_2); +x_3 = l_RBNode_findCore___main___rarg(x_0, x_1, x_2); if (lean::obj_tag(x_3) == 0) { uint8 x_4; @@ -1038,19 +1084,35 @@ return x_1; } else { -obj* x_4; obj* x_6; obj* x_9; obj* x_11; +obj* x_4; obj* x_6; uint8 x_9; x_4 = lean::cnstr_get(x_2, 0); lean::inc(x_4); x_6 = lean::cnstr_get(x_2, 1); lean::inc(x_6); lean::dec(x_2); -x_9 = lean::box(0); +x_9 = l_RBNode_isRed___main___rarg(x_1); +if (x_9 == 0) +{ +obj* x_10; obj* x_12; +x_10 = lean::box(0); lean::inc(x_0); -x_11 = l_RBNode_insert___rarg(x_0, x_1, x_4, x_9); -x_1 = x_11; +x_12 = l_RBNode_ins___main___rarg(x_0, x_1, x_4, x_10); +x_1 = x_12; x_2 = x_6; goto _start; } +else +{ +obj* x_14; obj* x_16; obj* x_17; +x_14 = lean::box(0); +lean::inc(x_0); +x_16 = l_RBNode_ins___main___rarg(x_0, x_1, x_4, x_14); +x_17 = l_RBNode_setBlack___main___rarg(x_16); +x_1 = x_17; +x_2 = x_6; +goto _start; +} +} } } obj* l_List_foldl___main___at_RBTree_fromList___spec__1(obj* x_0) { @@ -1349,7 +1411,7 @@ lean::inc(x_10); lean::dec(x_2); lean::inc(x_1); lean::inc(x_0); -x_15 = l_RBTree_find___rarg(x_0, x_1, x_8); +x_15 = l_RBNode_findCore___main___rarg(x_0, x_1, x_8); if (lean::obj_tag(x_15) == 0) { uint8 x_20; diff --git a/src/stage0/init/lean/compiler/ir.cpp b/src/stage0/init/lean/compiler/ir.cpp index 67d10f3836..c12a2c9cd4 100644 --- a/src/stage0/init/lean/compiler/ir.cpp +++ b/src/stage0/init/lean/compiler/ir.cpp @@ -14,7 +14,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -extern obj* l_Lean_NameMap_contains___rarg___closed__1; obj* l_List_foldl___main___at___private_init_lean_compiler_ir_9__collectFnBody___main___spec__2(obj*, obj*, obj*); uint8 l_List_isEqv___main___at_Lean_IR_Fnbody_alphaEqv___main___spec__1(obj*, obj*, obj*); obj* l_Lean_IR_Litval_beq___main___boxed(obj*, obj*); @@ -27,7 +26,6 @@ obj* l_Lean_IR_CtorInfo_HasBeq; obj* l___private_init_lean_compiler_ir_8__collectExpr___main(obj*, obj*, obj*); obj* l___private_init_lean_compiler_ir_3__withBv(obj*, obj*, obj*, obj*); obj* l___private_init_lean_compiler_ir_5__Seq(obj*, obj*, obj*, obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); uint8 l_Lean_IR_VarId_alphaEqv(obj*, obj*, obj*); obj* l_Lean_IR_insertParams(obj*, obj*); uint8 l_Lean_IR_Fnbody_beq(obj*, obj*); @@ -68,6 +66,7 @@ obj* l_Lean_IR_Expr_hasAeqv; obj* l_List_foldl___main___at___private_init_lean_compiler_ir_9__collectFnBody___main___spec__1(obj*, obj*, obj*); obj* l_Lean_IR_args_alphaEqv___main___boxed(obj*, obj*, obj*); obj* l_Lean_IR_IRType_HasBeq; +obj* l_Lean_NameMap_insert___rarg(obj*, obj*, obj*); obj* l_Lean_IR_Expr_isPure___boxed(obj*); namespace lean { uint8 string_dec_eq(obj*, obj*); @@ -79,10 +78,10 @@ obj* l___private_init_lean_compiler_ir_7__collectArgs___main(obj*, obj*, obj*); obj* l_Lean_IR_Expr_isPure___main___boxed(obj*); obj* l_Lean_IR_addVarRename(obj*, obj*, obj*); obj* l_Lean_IR_Fnbody_isPure___boxed(obj*); -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); uint8 l_Lean_IR_Arg_alphaEqv___main(obj*, obj*, obj*); obj* l_Lean_IR_VarId_alphaEqv___boxed(obj*, obj*, obj*); uint8 l_Lean_IR_Fnbody_alphaEqv___main(obj*, obj*, obj*); +uint8 l_Lean_Name_quickLt(obj*, obj*); uint8 l_Lean_IR_CtorInfo_beq___main(obj*, obj*); uint8 l_Lean_IR_args_alphaEqv(obj*, obj*, obj*); obj* l___private_init_lean_compiler_ir_7__collectArgs(obj*, obj*, obj*); @@ -96,6 +95,8 @@ obj* l_Lean_IR_Alt_ctor(obj*, obj*); obj* l_Lean_IR_MData_HasEmptyc; obj* l___private_init_lean_compiler_ir_9__collectFnBody(obj*, obj*, obj*); obj* l_Lean_IR_IRType_beq___boxed(obj*, obj*); +obj* l_Lean_NameSet_insert(obj*, obj*); +obj* l_RBNode_find___main___at_Lean_IR_VarId_alphaEqv___spec__1___boxed(obj*, obj*); obj* l_Lean_IR_Expr_alphaEqv___main___boxed(obj*, obj*, obj*); obj* l_Lean_IR_addParamsRename___main(obj*, obj*, obj*); obj* l___private_init_lean_compiler_ir_1__skip___rarg___boxed(obj*); @@ -106,6 +107,7 @@ obj* l_Lean_IR_CtorInfo_beq___boxed(obj*, obj*); obj* l_Lean_IR_MData_empty; obj* l_Lean_IR_IRType_beq___main___boxed(obj*, obj*); obj* l___private_init_lean_compiler_ir_1__skip___rarg(obj*); +obj* l_RBNode_find___main___at_Lean_IR_VarId_alphaEqv___spec__1(obj*, obj*); obj* l_Lean_IR_Fnbody_alphaEqv___main___boxed(obj*, obj*, obj*); obj* _init_l_Lean_IR_MData_empty() { _start: @@ -752,31 +754,90 @@ lean::dec(x_0); return x_2; } } -uint8 l_Lean_IR_VarId_alphaEqv(obj* x_0, obj* x_1, obj* x_2) { +obj* l_RBNode_find___main___at_Lean_IR_VarId_alphaEqv___spec__1(obj* x_0, obj* x_1) { _start: { -obj* x_3; obj* x_5; -x_3 = l_Lean_NameMap_contains___rarg___closed__1; -lean::inc(x_1); -x_5 = l_RBNode_find___main___rarg(x_3, lean::box(0), x_0, x_1); -if (lean::obj_tag(x_5) == 0) +if (lean::obj_tag(x_0) == 0) { -uint8 x_6; -x_6 = lean_name_dec_eq(x_1, x_2); -lean::dec(x_1); -return x_6; +obj* x_2; +x_2 = lean::box(0); +return x_2; } else { -obj* x_9; uint8 x_12; -lean::dec(x_1); -x_9 = lean::cnstr_get(x_5, 0); +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); lean::dec(x_5); -x_12 = lean_name_dec_eq(x_9, x_2); +if (x_14 == 0) +{ +obj* x_17; lean::dec(x_9); -return x_12; +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; } +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +uint8 l_Lean_IR_VarId_alphaEqv(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_RBNode_find___main___at_Lean_IR_VarId_alphaEqv___spec__1(x_0, x_1); +if (lean::obj_tag(x_3) == 0) +{ +uint8 x_4; +x_4 = lean_name_dec_eq(x_1, x_2); +return x_4; +} +else +{ +obj* x_5; uint8 x_8; +x_5 = lean::cnstr_get(x_3, 0); +lean::inc(x_5); +lean::dec(x_3); +x_8 = lean_name_dec_eq(x_5, x_2); +lean::dec(x_5); +return x_8; +} +} +} +obj* l_RBNode_find___main___at_Lean_IR_VarId_alphaEqv___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_IR_VarId_alphaEqv___spec__1(x_0, x_1); +lean::dec(x_1); +return x_2; } } obj* l_Lean_IR_VarId_alphaEqv___boxed(obj* x_0, obj* x_1, obj* x_2) { @@ -785,6 +846,7 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_VarId_alphaEqv(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); lean::dec(x_2); return x_4; } @@ -804,21 +866,18 @@ if (lean::obj_tag(x_1) == 0) { if (lean::obj_tag(x_2) == 0) { -obj* x_3; obj* x_6; uint8 x_7; +obj* x_3; obj* x_4; uint8 x_5; x_3 = lean::cnstr_get(x_1, 0); -lean::inc(x_3); -lean::dec(x_1); -x_6 = lean::cnstr_get(x_2, 0); -x_7 = l_Lean_IR_VarId_alphaEqv(x_0, x_3, x_6); -return x_7; +x_4 = lean::cnstr_get(x_2, 0); +x_5 = l_Lean_IR_VarId_alphaEqv(x_0, x_3, x_4); +return x_5; } else { -uint8 x_10; -lean::dec(x_1); +uint8 x_7; lean::dec(x_0); -x_10 = 0; -return x_10; +x_7 = 0; +return x_7; } } else @@ -826,15 +885,15 @@ else lean::dec(x_0); if (lean::obj_tag(x_2) == 0) { -uint8 x_12; -x_12 = 0; -return x_12; +uint8 x_9; +x_9 = 0; +return x_9; } else { -uint8 x_13; -x_13 = 1; -return x_13; +uint8 x_10; +x_10 = 1; +return x_10; } } } @@ -845,6 +904,7 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_Arg_alphaEqv___main(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); lean::dec(x_2); return x_4; } @@ -863,6 +923,7 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_Arg_alphaEqv(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); lean::dec(x_2); return x_4; } @@ -898,36 +959,31 @@ else { if (lean::obj_tag(x_2) == 0) { -uint8 x_8; -lean::dec(x_1); +uint8 x_7; lean::dec(x_0); -x_8 = 0; -return x_8; +x_7 = 0; +return x_7; } else { -obj* x_9; obj* x_11; obj* x_14; obj* x_15; uint8 x_17; -x_9 = lean::cnstr_get(x_1, 0); -lean::inc(x_9); -x_11 = lean::cnstr_get(x_1, 1); -lean::inc(x_11); -lean::dec(x_1); -x_14 = lean::cnstr_get(x_2, 0); -x_15 = lean::cnstr_get(x_2, 1); +obj* x_8; obj* x_9; obj* x_10; obj* x_11; uint8 x_13; +x_8 = lean::cnstr_get(x_1, 0); +x_9 = lean::cnstr_get(x_1, 1); +x_10 = lean::cnstr_get(x_2, 0); +x_11 = lean::cnstr_get(x_2, 1); lean::inc(x_0); -x_17 = l_Lean_IR_Arg_alphaEqv___main(x_0, x_9, x_14); -if (x_17 == 0) +x_13 = l_Lean_IR_Arg_alphaEqv___main(x_0, x_8, x_10); +if (x_13 == 0) { -uint8 x_20; +uint8 x_15; lean::dec(x_0); -lean::dec(x_11); -x_20 = 0; -return x_20; +x_15 = 0; +return x_15; } else { -x_1 = x_11; -x_2 = x_15; +x_1 = x_9; +x_2 = x_11; goto _start; } } @@ -940,6 +996,7 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_args_alphaEqv___main(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); lean::dec(x_2); return x_4; } @@ -958,6 +1015,7 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_args_alphaEqv(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); lean::dec(x_2); return x_4; } @@ -979,45 +1037,32 @@ case 0: switch (lean::obj_tag(x_2)) { case 0: { -obj* x_3; obj* x_5; obj* x_8; obj* x_10; uint8 x_13; +obj* x_3; obj* x_4; obj* x_5; obj* x_6; uint8 x_7; x_3 = lean::cnstr_get(x_1, 0); -lean::inc(x_3); -x_5 = lean::cnstr_get(x_1, 1); -lean::inc(x_5); -lean::dec(x_1); -x_8 = lean::cnstr_get(x_2, 0); -lean::inc(x_8); -x_10 = lean::cnstr_get(x_2, 1); -lean::inc(x_10); -lean::dec(x_2); -x_13 = l_Lean_IR_CtorInfo_beq___main(x_3, x_8); -lean::dec(x_8); -lean::dec(x_3); -if (x_13 == 0) +x_4 = lean::cnstr_get(x_1, 1); +x_5 = lean::cnstr_get(x_2, 0); +x_6 = lean::cnstr_get(x_2, 1); +x_7 = l_Lean_IR_CtorInfo_beq___main(x_3, x_5); +if (x_7 == 0) { -uint8 x_19; -lean::dec(x_5); -lean::dec(x_10); +uint8 x_9; lean::dec(x_0); -x_19 = 0; -return x_19; +x_9 = 0; +return x_9; } else { -uint8 x_20; -x_20 = l_Lean_IR_args_alphaEqv___main(x_0, x_5, x_10); -lean::dec(x_10); -return x_20; +uint8 x_10; +x_10 = l_Lean_IR_args_alphaEqv___main(x_0, x_4, x_6); +return x_10; } } default: { -uint8 x_25; -lean::dec(x_1); +uint8 x_12; lean::dec(x_0); -lean::dec(x_2); -x_25 = 0; -return x_25; +x_12 = 0; +return x_12; } } } @@ -1026,25 +1071,18 @@ case 1: switch (lean::obj_tag(x_2)) { case 1: { -obj* x_26; obj* x_29; uint8 x_32; -x_26 = lean::cnstr_get(x_1, 0); -lean::inc(x_26); -lean::dec(x_1); -x_29 = lean::cnstr_get(x_2, 0); -lean::inc(x_29); -lean::dec(x_2); -x_32 = l_Lean_IR_VarId_alphaEqv(x_0, x_26, x_29); -lean::dec(x_29); -return x_32; +obj* x_13; obj* x_14; uint8 x_15; +x_13 = lean::cnstr_get(x_1, 0); +x_14 = lean::cnstr_get(x_2, 0); +x_15 = l_Lean_IR_VarId_alphaEqv(x_0, x_13, x_14); +return x_15; } default: { -uint8 x_37; -lean::dec(x_1); +uint8 x_17; lean::dec(x_0); -lean::dec(x_2); -x_37 = 0; -return x_37; +x_17 = 0; +return x_17; } } } @@ -1053,94 +1091,234 @@ case 2: switch (lean::obj_tag(x_2)) { case 2: { -obj* x_38; obj* x_40; obj* x_42; obj* x_45; obj* x_47; obj* x_49; uint8 x_53; -x_38 = lean::cnstr_get(x_1, 0); -lean::inc(x_38); -x_40 = lean::cnstr_get(x_1, 1); -lean::inc(x_40); -x_42 = lean::cnstr_get(x_1, 2); -lean::inc(x_42); -lean::dec(x_1); -x_45 = lean::cnstr_get(x_2, 0); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_2, 1); -lean::inc(x_47); -x_49 = lean::cnstr_get(x_2, 2); -lean::inc(x_49); -lean::dec(x_2); +obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; uint8 x_25; +x_18 = lean::cnstr_get(x_1, 0); +x_19 = lean::cnstr_get(x_1, 1); +x_20 = lean::cnstr_get(x_1, 2); +x_21 = lean::cnstr_get(x_2, 0); +x_22 = lean::cnstr_get(x_2, 1); +x_23 = lean::cnstr_get(x_2, 2); lean::inc(x_0); -x_53 = l_Lean_IR_VarId_alphaEqv(x_0, x_38, x_45); -lean::dec(x_45); -if (x_53 == 0) +x_25 = l_Lean_IR_VarId_alphaEqv(x_0, x_18, x_21); +if (x_25 == 0) +{ +uint8 x_27; +lean::dec(x_0); +x_27 = 0; +return x_27; +} +else +{ +uint8 x_28; +x_28 = l_Lean_IR_CtorInfo_beq___main(x_19, x_22); +if (x_28 == 0) +{ +uint8 x_30; +lean::dec(x_0); +x_30 = 0; +return x_30; +} +else +{ +uint8 x_31; +x_31 = l_Lean_IR_args_alphaEqv___main(x_0, x_20, x_23); +return x_31; +} +} +} +default: +{ +uint8 x_33; +lean::dec(x_0); +x_33 = 0; +return x_33; +} +} +} +case 3: +{ +switch (lean::obj_tag(x_2)) { +case 3: +{ +obj* x_34; obj* x_35; obj* x_36; obj* x_37; uint8 x_38; +x_34 = lean::cnstr_get(x_1, 0); +x_35 = lean::cnstr_get(x_1, 1); +x_36 = lean::cnstr_get(x_2, 0); +x_37 = lean::cnstr_get(x_2, 1); +x_38 = lean::nat_dec_eq(x_34, x_36); +if (x_38 == 0) +{ +uint8 x_40; +lean::dec(x_0); +x_40 = 0; +return x_40; +} +else +{ +uint8 x_41; +x_41 = l_Lean_IR_VarId_alphaEqv(x_0, x_35, x_37); +return x_41; +} +} +default: +{ +uint8 x_43; +lean::dec(x_0); +x_43 = 0; +return x_43; +} +} +} +case 4: +{ +switch (lean::obj_tag(x_2)) { +case 4: +{ +obj* x_44; obj* x_45; obj* x_46; obj* x_47; uint8 x_48; +x_44 = lean::cnstr_get(x_1, 0); +x_45 = lean::cnstr_get(x_1, 1); +x_46 = lean::cnstr_get(x_2, 0); +x_47 = lean::cnstr_get(x_2, 1); +x_48 = lean::nat_dec_eq(x_44, x_46); +if (x_48 == 0) +{ +uint8 x_50; +lean::dec(x_0); +x_50 = 0; +return x_50; +} +else +{ +uint8 x_51; +x_51 = l_Lean_IR_VarId_alphaEqv(x_0, x_45, x_47); +return x_51; +} +} +default: +{ +uint8 x_53; +lean::dec(x_0); +x_53 = 0; +return x_53; +} +} +} +case 5: +{ +switch (lean::obj_tag(x_2)) { +case 5: +{ +obj* x_54; obj* x_55; obj* x_56; obj* x_57; uint8 x_58; +x_54 = lean::cnstr_get(x_1, 0); +x_55 = lean::cnstr_get(x_1, 1); +x_56 = lean::cnstr_get(x_2, 0); +x_57 = lean::cnstr_get(x_2, 1); +x_58 = lean::nat_dec_eq(x_54, x_56); +if (x_58 == 0) { uint8 x_60; lean::dec(x_0); -lean::dec(x_49); -lean::dec(x_47); -lean::dec(x_40); -lean::dec(x_42); x_60 = 0; return x_60; } else { uint8 x_61; -x_61 = l_Lean_IR_CtorInfo_beq___main(x_40, x_47); -lean::dec(x_47); -lean::dec(x_40); -if (x_61 == 0) +x_61 = l_Lean_IR_VarId_alphaEqv(x_0, x_55, x_57); +return x_61; +} +} +default: { -uint8 x_67; +uint8 x_63; lean::dec(x_0); -lean::dec(x_49); -lean::dec(x_42); -x_67 = 0; -return x_67; +x_63 = 0; +return x_63; +} +} +} +case 6: +{ +switch (lean::obj_tag(x_2)) { +case 6: +{ +obj* x_64; obj* x_65; obj* x_66; obj* x_67; uint8 x_68; +x_64 = lean::cnstr_get(x_1, 0); +x_65 = lean::cnstr_get(x_1, 1); +x_66 = lean::cnstr_get(x_2, 0); +x_67 = lean::cnstr_get(x_2, 1); +x_68 = lean_name_dec_eq(x_64, x_66); +if (x_68 == 0) +{ +uint8 x_70; +lean::dec(x_0); +x_70 = 0; +return x_70; } else { -uint8 x_68; -x_68 = l_Lean_IR_args_alphaEqv___main(x_0, x_42, x_49); -lean::dec(x_49); -return x_68; -} +uint8 x_71; +x_71 = l_Lean_IR_args_alphaEqv___main(x_0, x_65, x_67); +return x_71; } } default: { uint8 x_73; -lean::dec(x_1); lean::dec(x_0); -lean::dec(x_2); x_73 = 0; return x_73; } } } -case 3: +case 7: { switch (lean::obj_tag(x_2)) { -case 3: +case 7: { -obj* x_74; obj* x_76; obj* x_79; obj* x_81; uint8 x_84; +obj* x_74; obj* x_75; obj* x_76; uint8 x_77; x_74 = lean::cnstr_get(x_1, 0); -lean::inc(x_74); -x_76 = lean::cnstr_get(x_1, 1); -lean::inc(x_76); -lean::dec(x_1); -x_79 = lean::cnstr_get(x_2, 0); -lean::inc(x_79); -x_81 = lean::cnstr_get(x_2, 1); -lean::inc(x_81); -lean::dec(x_2); -x_84 = lean::nat_dec_eq(x_74, x_79); -lean::dec(x_79); -lean::dec(x_74); -if (x_84 == 0) +x_75 = lean::cnstr_get(x_2, 0); +x_76 = lean::cnstr_get(x_2, 1); +x_77 = lean_name_dec_eq(x_74, x_75); +if (x_77 == 0) +{ +uint8 x_79; +lean::dec(x_0); +x_79 = 0; +return x_79; +} +else +{ +uint8 x_80; +x_80 = l_Lean_IR_args_alphaEqv___main(x_0, x_76, x_76); +return x_80; +} +} +default: +{ +uint8 x_82; +lean::dec(x_0); +x_82 = 0; +return x_82; +} +} +} +case 8: +{ +switch (lean::obj_tag(x_2)) { +case 8: +{ +obj* x_83; obj* x_84; obj* x_85; obj* x_86; uint8 x_88; +x_83 = lean::cnstr_get(x_1, 0); +x_84 = lean::cnstr_get(x_1, 1); +x_85 = lean::cnstr_get(x_2, 0); +x_86 = lean::cnstr_get(x_2, 1); +lean::inc(x_0); +x_88 = l_Lean_IR_VarId_alphaEqv(x_0, x_83, x_85); +if (x_88 == 0) { uint8 x_90; -lean::dec(x_81); -lean::dec(x_76); lean::dec(x_0); x_90 = 0; return x_90; @@ -1148,352 +1326,92 @@ return x_90; else { uint8 x_91; -x_91 = l_Lean_IR_VarId_alphaEqv(x_0, x_76, x_81); -lean::dec(x_81); +x_91 = l_Lean_IR_args_alphaEqv___main(x_0, x_84, x_86); return x_91; } } default: { -uint8 x_96; -lean::dec(x_1); +uint8 x_93; lean::dec(x_0); -lean::dec(x_2); -x_96 = 0; -return x_96; +x_93 = 0; +return x_93; } } } -case 4: +case 9: +{ +uint8 x_94; +x_94 = lean::cnstr_get_scalar(x_1, sizeof(void*)*1); +switch (lean::obj_tag(x_2)) { +case 9: +{ +obj* x_95; uint8 x_96; obj* x_97; uint8 x_98; +x_95 = lean::cnstr_get(x_1, 0); +x_96 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); +x_97 = lean::cnstr_get(x_2, 0); +x_98 = l_Lean_IR_IRType_beq___main(x_94, x_96); +if (x_98 == 0) +{ +uint8 x_100; +lean::dec(x_0); +x_100 = 0; +return x_100; +} +else +{ +uint8 x_101; +x_101 = l_Lean_IR_VarId_alphaEqv(x_0, x_95, x_97); +return x_101; +} +} +default: +{ +uint8 x_103; +lean::dec(x_0); +x_103 = 0; +return x_103; +} +} +} +case 10: { switch (lean::obj_tag(x_2)) { -case 4: +case 10: { -obj* x_97; obj* x_99; obj* x_102; obj* x_104; uint8 x_107; -x_97 = lean::cnstr_get(x_1, 0); -lean::inc(x_97); -x_99 = lean::cnstr_get(x_1, 1); -lean::inc(x_99); -lean::dec(x_1); -x_102 = lean::cnstr_get(x_2, 0); -lean::inc(x_102); -x_104 = lean::cnstr_get(x_2, 1); -lean::inc(x_104); -lean::dec(x_2); -x_107 = lean::nat_dec_eq(x_97, x_102); -lean::dec(x_102); -lean::dec(x_97); -if (x_107 == 0) +obj* x_104; obj* x_105; uint8 x_106; +x_104 = lean::cnstr_get(x_1, 0); +x_105 = lean::cnstr_get(x_2, 0); +x_106 = l_Lean_IR_VarId_alphaEqv(x_0, x_104, x_105); +return x_106; +} +default: +{ +uint8 x_108; +lean::dec(x_0); +x_108 = 0; +return x_108; +} +} +} +case 11: +{ +lean::dec(x_0); +switch (lean::obj_tag(x_2)) { +case 11: +{ +obj* x_110; obj* x_111; uint8 x_112; +x_110 = lean::cnstr_get(x_1, 0); +x_111 = lean::cnstr_get(x_2, 0); +x_112 = l_Lean_IR_Litval_beq___main(x_110, x_111); +return x_112; +} +default: { uint8 x_113; -lean::dec(x_99); -lean::dec(x_104); -lean::dec(x_0); x_113 = 0; return x_113; } -else -{ -uint8 x_114; -x_114 = l_Lean_IR_VarId_alphaEqv(x_0, x_99, x_104); -lean::dec(x_104); -return x_114; -} -} -default: -{ -uint8 x_119; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_119 = 0; -return x_119; -} -} -} -case 5: -{ -switch (lean::obj_tag(x_2)) { -case 5: -{ -obj* x_120; obj* x_122; obj* x_125; obj* x_127; uint8 x_130; -x_120 = lean::cnstr_get(x_1, 0); -lean::inc(x_120); -x_122 = lean::cnstr_get(x_1, 1); -lean::inc(x_122); -lean::dec(x_1); -x_125 = lean::cnstr_get(x_2, 0); -lean::inc(x_125); -x_127 = lean::cnstr_get(x_2, 1); -lean::inc(x_127); -lean::dec(x_2); -x_130 = lean::nat_dec_eq(x_120, x_125); -lean::dec(x_125); -lean::dec(x_120); -if (x_130 == 0) -{ -uint8 x_136; -lean::dec(x_0); -lean::dec(x_122); -lean::dec(x_127); -x_136 = 0; -return x_136; -} -else -{ -uint8 x_137; -x_137 = l_Lean_IR_VarId_alphaEqv(x_0, x_122, x_127); -lean::dec(x_127); -return x_137; -} -} -default: -{ -uint8 x_142; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_142 = 0; -return x_142; -} -} -} -case 6: -{ -switch (lean::obj_tag(x_2)) { -case 6: -{ -obj* x_143; obj* x_145; obj* x_148; obj* x_150; uint8 x_153; -x_143 = lean::cnstr_get(x_1, 0); -lean::inc(x_143); -x_145 = lean::cnstr_get(x_1, 1); -lean::inc(x_145); -lean::dec(x_1); -x_148 = lean::cnstr_get(x_2, 0); -lean::inc(x_148); -x_150 = lean::cnstr_get(x_2, 1); -lean::inc(x_150); -lean::dec(x_2); -x_153 = lean_name_dec_eq(x_143, x_148); -lean::dec(x_148); -lean::dec(x_143); -if (x_153 == 0) -{ -uint8 x_159; -lean::dec(x_0); -lean::dec(x_150); -lean::dec(x_145); -x_159 = 0; -return x_159; -} -else -{ -uint8 x_160; -x_160 = l_Lean_IR_args_alphaEqv___main(x_0, x_145, x_150); -lean::dec(x_150); -return x_160; -} -} -default: -{ -uint8 x_165; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_165 = 0; -return x_165; -} -} -} -case 7: -{ -switch (lean::obj_tag(x_2)) { -case 7: -{ -obj* x_166; obj* x_169; obj* x_171; uint8 x_174; -x_166 = lean::cnstr_get(x_1, 0); -lean::inc(x_166); -lean::dec(x_1); -x_169 = lean::cnstr_get(x_2, 0); -lean::inc(x_169); -x_171 = lean::cnstr_get(x_2, 1); -lean::inc(x_171); -lean::dec(x_2); -x_174 = lean_name_dec_eq(x_166, x_169); -lean::dec(x_169); -lean::dec(x_166); -if (x_174 == 0) -{ -uint8 x_179; -lean::dec(x_171); -lean::dec(x_0); -x_179 = 0; -return x_179; -} -else -{ -uint8 x_181; -lean::inc(x_171); -x_181 = l_Lean_IR_args_alphaEqv___main(x_0, x_171, x_171); -lean::dec(x_171); -return x_181; -} -} -default: -{ -uint8 x_186; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_186 = 0; -return x_186; -} -} -} -case 8: -{ -switch (lean::obj_tag(x_2)) { -case 8: -{ -obj* x_187; obj* x_189; obj* x_192; obj* x_194; uint8 x_198; -x_187 = lean::cnstr_get(x_1, 0); -lean::inc(x_187); -x_189 = lean::cnstr_get(x_1, 1); -lean::inc(x_189); -lean::dec(x_1); -x_192 = lean::cnstr_get(x_2, 0); -lean::inc(x_192); -x_194 = lean::cnstr_get(x_2, 1); -lean::inc(x_194); -lean::dec(x_2); -lean::inc(x_0); -x_198 = l_Lean_IR_VarId_alphaEqv(x_0, x_187, x_192); -lean::dec(x_192); -if (x_198 == 0) -{ -uint8 x_203; -lean::dec(x_0); -lean::dec(x_194); -lean::dec(x_189); -x_203 = 0; -return x_203; -} -else -{ -uint8 x_204; -x_204 = l_Lean_IR_args_alphaEqv___main(x_0, x_189, x_194); -lean::dec(x_194); -return x_204; -} -} -default: -{ -uint8 x_209; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_209 = 0; -return x_209; -} -} -} -case 9: -{ -uint8 x_210; -x_210 = lean::cnstr_get_scalar(x_1, sizeof(void*)*1); -switch (lean::obj_tag(x_2)) { -case 9: -{ -obj* x_211; uint8 x_214; obj* x_215; uint8 x_218; -x_211 = lean::cnstr_get(x_1, 0); -lean::inc(x_211); -lean::dec(x_1); -x_214 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); -x_215 = lean::cnstr_get(x_2, 0); -lean::inc(x_215); -lean::dec(x_2); -x_218 = l_Lean_IR_IRType_beq___main(x_210, x_214); -if (x_218 == 0) -{ -uint8 x_222; -lean::dec(x_0); -lean::dec(x_211); -lean::dec(x_215); -x_222 = 0; -return x_222; -} -else -{ -uint8 x_223; -x_223 = l_Lean_IR_VarId_alphaEqv(x_0, x_211, x_215); -lean::dec(x_215); -return x_223; -} -} -default: -{ -uint8 x_228; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_228 = 0; -return x_228; -} -} -} -case 10: -{ -switch (lean::obj_tag(x_2)) { -case 10: -{ -obj* x_229; obj* x_232; uint8 x_235; -x_229 = lean::cnstr_get(x_1, 0); -lean::inc(x_229); -lean::dec(x_1); -x_232 = lean::cnstr_get(x_2, 0); -lean::inc(x_232); -lean::dec(x_2); -x_235 = l_Lean_IR_VarId_alphaEqv(x_0, x_229, x_232); -lean::dec(x_232); -return x_235; -} -default: -{ -uint8 x_240; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_240 = 0; -return x_240; -} -} -} -case 11: -{ -lean::dec(x_0); -switch (lean::obj_tag(x_2)) { -case 11: -{ -obj* x_242; obj* x_245; uint8 x_248; -x_242 = lean::cnstr_get(x_1, 0); -lean::inc(x_242); -lean::dec(x_1); -x_245 = lean::cnstr_get(x_2, 0); -lean::inc(x_245); -lean::dec(x_2); -x_248 = l_Lean_IR_Litval_beq___main(x_242, x_245); -lean::dec(x_245); -lean::dec(x_242); -return x_248; -} -default: -{ -uint8 x_253; -lean::dec(x_1); -lean::dec(x_2); -x_253 = 0; -return x_253; -} } } case 12: @@ -1501,25 +1419,18 @@ case 12: switch (lean::obj_tag(x_2)) { case 12: { -obj* x_254; obj* x_257; uint8 x_260; -x_254 = lean::cnstr_get(x_1, 0); -lean::inc(x_254); -lean::dec(x_1); -x_257 = lean::cnstr_get(x_2, 0); -lean::inc(x_257); -lean::dec(x_2); -x_260 = l_Lean_IR_VarId_alphaEqv(x_0, x_254, x_257); -lean::dec(x_257); -return x_260; +obj* x_114; obj* x_115; uint8 x_116; +x_114 = lean::cnstr_get(x_1, 0); +x_115 = lean::cnstr_get(x_2, 0); +x_116 = l_Lean_IR_VarId_alphaEqv(x_0, x_114, x_115); +return x_116; } default: { -uint8 x_265; -lean::dec(x_1); +uint8 x_118; lean::dec(x_0); -lean::dec(x_2); -x_265 = 0; -return x_265; +x_118 = 0; +return x_118; } } } @@ -1528,25 +1439,18 @@ default: switch (lean::obj_tag(x_2)) { case 13: { -obj* x_266; obj* x_269; uint8 x_272; -x_266 = lean::cnstr_get(x_1, 0); -lean::inc(x_266); -lean::dec(x_1); -x_269 = lean::cnstr_get(x_2, 0); -lean::inc(x_269); -lean::dec(x_2); -x_272 = l_Lean_IR_VarId_alphaEqv(x_0, x_266, x_269); -lean::dec(x_269); -return x_272; +obj* x_119; obj* x_120; uint8 x_121; +x_119 = lean::cnstr_get(x_1, 0); +x_120 = lean::cnstr_get(x_2, 0); +x_121 = l_Lean_IR_VarId_alphaEqv(x_0, x_119, x_120); +return x_121; } default: { -uint8 x_277; -lean::dec(x_1); +uint8 x_123; lean::dec(x_0); -lean::dec(x_2); -x_277 = 0; -return x_277; +x_123 = 0; +return x_123; } } } @@ -1559,6 +1463,8 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_Expr_alphaEqv___main(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); +lean::dec(x_2); return x_4; } } @@ -1576,6 +1482,8 @@ _start: uint8 x_3; obj* x_4; x_3 = l_Lean_IR_Expr_alphaEqv(x_0, x_1, x_2); x_4 = lean::box(x_3); +lean::dec(x_1); +lean::dec(x_2); return x_4; } } @@ -1594,10 +1502,9 @@ uint8 x_3; x_3 = lean_name_dec_eq(x_1, x_2); if (x_3 == 0) { -obj* x_4; obj* x_5; -x_4 = l_Lean_NameMap_contains___rarg___closed__1; -x_5 = l_RBNode_insert___rarg(x_4, x_0, x_1, x_2); -return x_5; +obj* x_4; +x_4 = l_Lean_NameMap_insert___rarg(x_0, x_1, x_2); +return x_4; } else { @@ -1974,22 +1881,24 @@ else uint8 x_29; lean::inc(x_0); x_29 = l_Lean_IR_Expr_alphaEqv___main(x_0, x_6, x_14); +lean::dec(x_14); +lean::dec(x_6); if (x_29 == 0) { -uint8 x_35; +uint8 x_37; lean::dec(x_8); lean::dec(x_11); lean::dec(x_0); lean::dec(x_4); lean::dec(x_16); -x_35 = 0; -return x_35; +x_37 = 0; +return x_37; } else { -obj* x_36; -x_36 = l_Lean_IR_addVarRename(x_0, x_4, x_11); -x_0 = x_36; +obj* x_38; +x_38 = l_Lean_IR_addVarRename(x_0, x_4, x_11); +x_0 = x_38; x_1 = x_8; x_2 = x_16; goto _start; @@ -1998,108 +1907,108 @@ goto _start; } case 12: { -uint8 x_40; +uint8 x_42; lean::dec(x_1); lean::dec(x_0); -x_40 = 0; -return x_40; +x_42 = 0; +return x_42; } default: { -uint8 x_44; +uint8 x_46; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_44 = 0; -return x_44; +x_46 = 0; +return x_46; } } } case 1: { -uint8 x_45; -x_45 = lean::cnstr_get_scalar(x_1, sizeof(void*)*4); +uint8 x_47; +x_47 = lean::cnstr_get_scalar(x_1, sizeof(void*)*4); switch (lean::obj_tag(x_2)) { case 1: { -obj* x_46; obj* x_48; obj* x_50; obj* x_52; obj* x_55; obj* x_57; uint8 x_59; obj* x_60; obj* x_62; obj* x_66; -x_46 = lean::cnstr_get(x_1, 0); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_1, 1); +obj* x_48; obj* x_50; obj* x_52; obj* x_54; obj* x_57; obj* x_59; uint8 x_61; obj* x_62; obj* x_64; obj* x_68; +x_48 = lean::cnstr_get(x_1, 0); lean::inc(x_48); -x_50 = lean::cnstr_get(x_1, 2); +x_50 = lean::cnstr_get(x_1, 1); lean::inc(x_50); -x_52 = lean::cnstr_get(x_1, 3); +x_52 = lean::cnstr_get(x_1, 2); lean::inc(x_52); +x_54 = lean::cnstr_get(x_1, 3); +lean::inc(x_54); lean::dec(x_1); -x_55 = lean::cnstr_get(x_2, 0); -lean::inc(x_55); -x_57 = lean::cnstr_get(x_2, 1); +x_57 = lean::cnstr_get(x_2, 0); lean::inc(x_57); -x_59 = lean::cnstr_get_scalar(x_2, sizeof(void*)*4); -x_60 = lean::cnstr_get(x_2, 2); -lean::inc(x_60); -x_62 = lean::cnstr_get(x_2, 3); +x_59 = lean::cnstr_get(x_2, 1); +lean::inc(x_59); +x_61 = lean::cnstr_get_scalar(x_2, sizeof(void*)*4); +x_62 = lean::cnstr_get(x_2, 2); lean::inc(x_62); +x_64 = lean::cnstr_get(x_2, 3); +lean::inc(x_64); lean::dec(x_2); lean::inc(x_0); -x_66 = l_Lean_IR_addParamsRename___main(x_0, x_48, x_57); -if (lean::obj_tag(x_66) == 0) +x_68 = l_Lean_IR_addParamsRename___main(x_0, x_50, x_59); +if (lean::obj_tag(x_68) == 0) { -uint8 x_74; +uint8 x_76; lean::dec(x_0); -lean::dec(x_55); -lean::dec(x_62); -lean::dec(x_50); lean::dec(x_52); -lean::dec(x_46); -lean::dec(x_60); -x_74 = 0; -return x_74; +lean::dec(x_54); +lean::dec(x_64); +lean::dec(x_62); +lean::dec(x_48); +lean::dec(x_57); +x_76 = 0; +return x_76; } else { -obj* x_75; uint8 x_78; -x_75 = lean::cnstr_get(x_66, 0); -lean::inc(x_75); -lean::dec(x_66); -x_78 = l_Lean_IR_IRType_beq___main(x_45, x_59); -if (x_78 == 0) +obj* x_77; uint8 x_80; +x_77 = lean::cnstr_get(x_68, 0); +lean::inc(x_77); +lean::dec(x_68); +x_80 = l_Lean_IR_IRType_beq___main(x_47, x_61); +if (x_80 == 0) { -uint8 x_87; +uint8 x_89; lean::dec(x_0); -lean::dec(x_55); -lean::dec(x_62); -lean::dec(x_75); -lean::dec(x_50); +lean::dec(x_77); lean::dec(x_52); -lean::dec(x_46); -lean::dec(x_60); -x_87 = 0; -return x_87; +lean::dec(x_54); +lean::dec(x_64); +lean::dec(x_62); +lean::dec(x_48); +lean::dec(x_57); +x_89 = 0; +return x_89; } else { -uint8 x_88; -x_88 = l_Lean_IR_Fnbody_alphaEqv___main(x_75, x_50, x_60); -if (x_88 == 0) +uint8 x_90; +x_90 = l_Lean_IR_Fnbody_alphaEqv___main(x_77, x_52, x_62); +if (x_90 == 0) { -uint8 x_94; +uint8 x_96; lean::dec(x_0); -lean::dec(x_55); -lean::dec(x_62); -lean::dec(x_52); -lean::dec(x_46); -x_94 = 0; -return x_94; +lean::dec(x_54); +lean::dec(x_64); +lean::dec(x_48); +lean::dec(x_57); +x_96 = 0; +return x_96; } else { -obj* x_95; -x_95 = l_Lean_IR_addVarRename(x_0, x_46, x_55); -x_0 = x_95; -x_1 = x_52; -x_2 = x_62; +obj* x_97; +x_97 = l_Lean_IR_addVarRename(x_0, x_48, x_57); +x_0 = x_97; +x_1 = x_54; +x_2 = x_64; goto _start; } } @@ -2107,20 +2016,20 @@ goto _start; } case 12: { -uint8 x_99; +uint8 x_101; lean::dec(x_1); lean::dec(x_0); -x_99 = 0; -return x_99; +x_101 = 0; +return x_101; } default: { -uint8 x_103; +uint8 x_105; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_103 = 0; -return x_103; +x_105 = 0; +return x_105; } } } @@ -2129,177 +2038,79 @@ case 2: switch (lean::obj_tag(x_2)) { case 2: { -obj* x_104; obj* x_106; obj* x_108; obj* x_110; obj* x_113; obj* x_115; obj* x_117; obj* x_119; uint8 x_123; -x_104 = lean::cnstr_get(x_1, 0); -lean::inc(x_104); -x_106 = lean::cnstr_get(x_1, 1); +obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_115; obj* x_117; obj* x_119; obj* x_121; uint8 x_125; +x_106 = lean::cnstr_get(x_1, 0); lean::inc(x_106); -x_108 = lean::cnstr_get(x_1, 2); +x_108 = lean::cnstr_get(x_1, 1); lean::inc(x_108); -x_110 = lean::cnstr_get(x_1, 3); +x_110 = lean::cnstr_get(x_1, 2); lean::inc(x_110); +x_112 = lean::cnstr_get(x_1, 3); +lean::inc(x_112); lean::dec(x_1); -x_113 = lean::cnstr_get(x_2, 0); -lean::inc(x_113); -x_115 = lean::cnstr_get(x_2, 1); +x_115 = lean::cnstr_get(x_2, 0); lean::inc(x_115); -x_117 = lean::cnstr_get(x_2, 2); +x_117 = lean::cnstr_get(x_2, 1); lean::inc(x_117); -x_119 = lean::cnstr_get(x_2, 3); +x_119 = lean::cnstr_get(x_2, 2); lean::inc(x_119); +x_121 = lean::cnstr_get(x_2, 3); +lean::inc(x_121); lean::dec(x_2); lean::inc(x_0); -x_123 = l_Lean_IR_VarId_alphaEqv(x_0, x_104, x_113); -lean::dec(x_113); -if (x_123 == 0) -{ -uint8 x_132; -lean::dec(x_110); -lean::dec(x_119); -lean::dec(x_106); -lean::dec(x_108); +x_125 = l_Lean_IR_VarId_alphaEqv(x_0, x_106, x_115); lean::dec(x_115); +lean::dec(x_106); +if (x_125 == 0) +{ +uint8 x_135; +lean::dec(x_119); +lean::dec(x_121); +lean::dec(x_108); lean::dec(x_117); +lean::dec(x_110); +lean::dec(x_112); lean::dec(x_0); -x_132 = 0; -return x_132; +x_135 = 0; +return x_135; } else { -uint8 x_133; -x_133 = lean::nat_dec_eq(x_106, x_115); -lean::dec(x_115); -lean::dec(x_106); -if (x_133 == 0) -{ -uint8 x_141; -lean::dec(x_110); -lean::dec(x_119); -lean::dec(x_108); +uint8 x_136; +x_136 = lean::nat_dec_eq(x_108, x_117); lean::dec(x_117); +lean::dec(x_108); +if (x_136 == 0) +{ +uint8 x_144; +lean::dec(x_119); +lean::dec(x_121); +lean::dec(x_110); +lean::dec(x_112); lean::dec(x_0); -x_141 = 0; -return x_141; +x_144 = 0; +return x_144; } else { -uint8 x_143; +uint8 x_146; lean::inc(x_0); -x_143 = l_Lean_IR_VarId_alphaEqv(x_0, x_108, x_117); -lean::dec(x_117); -if (x_143 == 0) -{ -uint8 x_148; -lean::dec(x_110); +x_146 = l_Lean_IR_VarId_alphaEqv(x_0, x_110, x_119); lean::dec(x_119); -lean::dec(x_0); -x_148 = 0; -return x_148; -} -else -{ -x_1 = x_110; -x_2 = x_119; -goto _start; -} -} -} -} -case 12: +lean::dec(x_110); +if (x_146 == 0) { uint8 x_152; -lean::dec(x_1); +lean::dec(x_121); +lean::dec(x_112); lean::dec(x_0); x_152 = 0; return x_152; } -default: -{ -uint8 x_156; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_156 = 0; -return x_156; -} -} -} -case 3: -{ -switch (lean::obj_tag(x_2)) { -case 3: -{ -obj* x_157; obj* x_159; obj* x_161; obj* x_163; obj* x_166; obj* x_168; obj* x_170; obj* x_172; uint8 x_176; -x_157 = lean::cnstr_get(x_1, 0); -lean::inc(x_157); -x_159 = lean::cnstr_get(x_1, 1); -lean::inc(x_159); -x_161 = lean::cnstr_get(x_1, 2); -lean::inc(x_161); -x_163 = lean::cnstr_get(x_1, 3); -lean::inc(x_163); -lean::dec(x_1); -x_166 = lean::cnstr_get(x_2, 0); -lean::inc(x_166); -x_168 = lean::cnstr_get(x_2, 1); -lean::inc(x_168); -x_170 = lean::cnstr_get(x_2, 2); -lean::inc(x_170); -x_172 = lean::cnstr_get(x_2, 3); -lean::inc(x_172); -lean::dec(x_2); -lean::inc(x_0); -x_176 = l_Lean_IR_VarId_alphaEqv(x_0, x_157, x_166); -lean::dec(x_166); -if (x_176 == 0) -{ -uint8 x_185; -lean::dec(x_0); -lean::dec(x_168); -lean::dec(x_172); -lean::dec(x_163); -lean::dec(x_159); -lean::dec(x_170); -lean::dec(x_161); -x_185 = 0; -return x_185; -} else { -uint8 x_186; -x_186 = lean::nat_dec_eq(x_159, x_168); -lean::dec(x_168); -lean::dec(x_159); -if (x_186 == 0) -{ -uint8 x_194; -lean::dec(x_0); -lean::dec(x_172); -lean::dec(x_163); -lean::dec(x_170); -lean::dec(x_161); -x_194 = 0; -return x_194; -} -else -{ -uint8 x_196; -lean::inc(x_0); -x_196 = l_Lean_IR_VarId_alphaEqv(x_0, x_161, x_170); -lean::dec(x_170); -if (x_196 == 0) -{ -uint8 x_201; -lean::dec(x_0); -lean::dec(x_172); -lean::dec(x_163); -x_201 = 0; -return x_201; -} -else -{ -x_1 = x_163; -x_2 = x_172; +x_1 = x_112; +x_2 = x_121; goto _start; } } @@ -2307,164 +2118,268 @@ goto _start; } case 12: { -uint8 x_205; +uint8 x_156; lean::dec(x_1); lean::dec(x_0); -x_205 = 0; -return x_205; +x_156 = 0; +return x_156; } default: { -uint8 x_209; +uint8 x_160; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_209 = 0; -return x_209; +x_160 = 0; +return x_160; +} +} +} +case 3: +{ +switch (lean::obj_tag(x_2)) { +case 3: +{ +obj* x_161; obj* x_163; obj* x_165; obj* x_167; obj* x_170; obj* x_172; obj* x_174; obj* x_176; uint8 x_180; +x_161 = lean::cnstr_get(x_1, 0); +lean::inc(x_161); +x_163 = lean::cnstr_get(x_1, 1); +lean::inc(x_163); +x_165 = lean::cnstr_get(x_1, 2); +lean::inc(x_165); +x_167 = lean::cnstr_get(x_1, 3); +lean::inc(x_167); +lean::dec(x_1); +x_170 = lean::cnstr_get(x_2, 0); +lean::inc(x_170); +x_172 = lean::cnstr_get(x_2, 1); +lean::inc(x_172); +x_174 = lean::cnstr_get(x_2, 2); +lean::inc(x_174); +x_176 = lean::cnstr_get(x_2, 3); +lean::inc(x_176); +lean::dec(x_2); +lean::inc(x_0); +x_180 = l_Lean_IR_VarId_alphaEqv(x_0, x_161, x_170); +lean::dec(x_170); +lean::dec(x_161); +if (x_180 == 0) +{ +uint8 x_190; +lean::dec(x_0); +lean::dec(x_163); +lean::dec(x_167); +lean::dec(x_176); +lean::dec(x_174); +lean::dec(x_172); +lean::dec(x_165); +x_190 = 0; +return x_190; +} +else +{ +uint8 x_191; +x_191 = lean::nat_dec_eq(x_163, x_172); +lean::dec(x_172); +lean::dec(x_163); +if (x_191 == 0) +{ +uint8 x_199; +lean::dec(x_0); +lean::dec(x_167); +lean::dec(x_176); +lean::dec(x_174); +lean::dec(x_165); +x_199 = 0; +return x_199; +} +else +{ +uint8 x_201; +lean::inc(x_0); +x_201 = l_Lean_IR_VarId_alphaEqv(x_0, x_165, x_174); +lean::dec(x_174); +lean::dec(x_165); +if (x_201 == 0) +{ +uint8 x_207; +lean::dec(x_0); +lean::dec(x_167); +lean::dec(x_176); +x_207 = 0; +return x_207; +} +else +{ +x_1 = x_167; +x_2 = x_176; +goto _start; +} +} +} +} +case 12: +{ +uint8 x_211; +lean::dec(x_1); +lean::dec(x_0); +x_211 = 0; +return x_211; +} +default: +{ +uint8 x_215; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +x_215 = 0; +return x_215; } } } case 4: { -uint8 x_210; -x_210 = lean::cnstr_get_scalar(x_1, sizeof(void*)*5); +uint8 x_216; +x_216 = lean::cnstr_get_scalar(x_1, sizeof(void*)*5); switch (lean::obj_tag(x_2)) { case 4: { -obj* x_211; obj* x_213; obj* x_215; obj* x_217; obj* x_219; obj* x_222; obj* x_224; obj* x_226; obj* x_228; uint8 x_230; obj* x_231; uint8 x_235; -x_211 = lean::cnstr_get(x_1, 0); -lean::inc(x_211); -x_213 = lean::cnstr_get(x_1, 1); -lean::inc(x_213); -x_215 = lean::cnstr_get(x_1, 2); -lean::inc(x_215); -x_217 = lean::cnstr_get(x_1, 3); +obj* x_217; obj* x_219; obj* x_221; obj* x_223; obj* x_225; obj* x_228; obj* x_230; obj* x_232; obj* x_234; uint8 x_236; obj* x_237; uint8 x_241; +x_217 = lean::cnstr_get(x_1, 0); lean::inc(x_217); -x_219 = lean::cnstr_get(x_1, 4); +x_219 = lean::cnstr_get(x_1, 1); lean::inc(x_219); +x_221 = lean::cnstr_get(x_1, 2); +lean::inc(x_221); +x_223 = lean::cnstr_get(x_1, 3); +lean::inc(x_223); +x_225 = lean::cnstr_get(x_1, 4); +lean::inc(x_225); lean::dec(x_1); -x_222 = lean::cnstr_get(x_2, 0); -lean::inc(x_222); -x_224 = lean::cnstr_get(x_2, 1); -lean::inc(x_224); -x_226 = lean::cnstr_get(x_2, 2); -lean::inc(x_226); -x_228 = lean::cnstr_get(x_2, 3); +x_228 = lean::cnstr_get(x_2, 0); lean::inc(x_228); -x_230 = lean::cnstr_get_scalar(x_2, sizeof(void*)*5); -x_231 = lean::cnstr_get(x_2, 4); -lean::inc(x_231); +x_230 = lean::cnstr_get(x_2, 1); +lean::inc(x_230); +x_232 = lean::cnstr_get(x_2, 2); +lean::inc(x_232); +x_234 = lean::cnstr_get(x_2, 3); +lean::inc(x_234); +x_236 = lean::cnstr_get_scalar(x_2, sizeof(void*)*5); +x_237 = lean::cnstr_get(x_2, 4); +lean::inc(x_237); lean::dec(x_2); lean::inc(x_0); -x_235 = l_Lean_IR_VarId_alphaEqv(x_0, x_211, x_222); -lean::dec(x_222); -if (x_235 == 0) -{ -uint8 x_246; -lean::dec(x_0); -lean::dec(x_231); -lean::dec(x_226); -lean::dec(x_224); -lean::dec(x_217); +x_241 = l_Lean_IR_VarId_alphaEqv(x_0, x_217, x_228); lean::dec(x_228); -lean::dec(x_215); +lean::dec(x_217); +if (x_241 == 0) +{ +uint8 x_253; +lean::dec(x_234); +lean::dec(x_237); +lean::dec(x_0); +lean::dec(x_232); +lean::dec(x_225); lean::dec(x_219); -lean::dec(x_213); -x_246 = 0; -return x_246; +lean::dec(x_223); +lean::dec(x_221); +lean::dec(x_230); +x_253 = 0; +return x_253; } else { -uint8 x_247; -x_247 = lean::nat_dec_eq(x_213, x_224); -lean::dec(x_224); -lean::dec(x_213); -if (x_247 == 0) -{ -uint8 x_257; -lean::dec(x_0); -lean::dec(x_231); -lean::dec(x_226); -lean::dec(x_217); -lean::dec(x_228); -lean::dec(x_215); +uint8 x_254; +x_254 = lean::nat_dec_eq(x_219, x_230); +lean::dec(x_230); lean::dec(x_219); -x_257 = 0; -return x_257; +if (x_254 == 0) +{ +uint8 x_264; +lean::dec(x_234); +lean::dec(x_237); +lean::dec(x_0); +lean::dec(x_232); +lean::dec(x_225); +lean::dec(x_223); +lean::dec(x_221); +x_264 = 0; +return x_264; } else { -uint8 x_258; -x_258 = lean::nat_dec_eq(x_215, x_226); -lean::dec(x_226); -lean::dec(x_215); -if (x_258 == 0) -{ -uint8 x_266; -lean::dec(x_0); -lean::dec(x_231); -lean::dec(x_217); -lean::dec(x_228); -lean::dec(x_219); -x_266 = 0; -return x_266; -} -else -{ -uint8 x_268; -lean::inc(x_0); -x_268 = l_Lean_IR_VarId_alphaEqv(x_0, x_217, x_228); -lean::dec(x_228); -if (x_268 == 0) +uint8 x_265; +x_265 = lean::nat_dec_eq(x_221, x_232); +lean::dec(x_232); +lean::dec(x_221); +if (x_265 == 0) { uint8 x_273; +lean::dec(x_234); +lean::dec(x_237); lean::dec(x_0); -lean::dec(x_231); -lean::dec(x_219); +lean::dec(x_225); +lean::dec(x_223); x_273 = 0; return x_273; } else { -uint8 x_274; -x_274 = l_Lean_IR_IRType_beq___main(x_210, x_230); -if (x_274 == 0) +uint8 x_275; +lean::inc(x_0); +x_275 = l_Lean_IR_VarId_alphaEqv(x_0, x_223, x_234); +lean::dec(x_234); +lean::dec(x_223); +if (x_275 == 0) { -uint8 x_278; +uint8 x_281; +lean::dec(x_237); lean::dec(x_0); -lean::dec(x_231); -lean::dec(x_219); -x_278 = 0; -return x_278; +lean::dec(x_225); +x_281 = 0; +return x_281; } else { -x_1 = x_219; -x_2 = x_231; -goto _start; -} -} -} -} -} -} -case 12: -{ uint8 x_282; -lean::dec(x_1); -lean::dec(x_0); -x_282 = 0; -return x_282; -} -default: +x_282 = l_Lean_IR_IRType_beq___main(x_216, x_236); +if (x_282 == 0) { uint8 x_286; -lean::dec(x_1); +lean::dec(x_237); lean::dec(x_0); -lean::dec(x_2); +lean::dec(x_225); x_286 = 0; return x_286; } +else +{ +x_1 = x_225; +x_2 = x_237; +goto _start; +} +} +} +} +} +} +case 12: +{ +uint8 x_290; +lean::dec(x_1); +lean::dec(x_0); +x_290 = 0; +return x_290; +} +default: +{ +uint8 x_294; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +x_294 = 0; +return x_294; +} } } case 5: @@ -2472,164 +2387,166 @@ case 5: switch (lean::obj_tag(x_2)) { case 5: { -obj* x_287; obj* x_289; obj* x_291; obj* x_294; obj* x_296; obj* x_298; uint8 x_302; -x_287 = lean::cnstr_get(x_1, 0); -lean::inc(x_287); -x_289 = lean::cnstr_get(x_1, 1); -lean::inc(x_289); -x_291 = lean::cnstr_get(x_1, 2); -lean::inc(x_291); +obj* x_295; obj* x_297; obj* x_299; obj* x_302; obj* x_304; obj* x_306; uint8 x_310; +x_295 = lean::cnstr_get(x_1, 0); +lean::inc(x_295); +x_297 = lean::cnstr_get(x_1, 1); +lean::inc(x_297); +x_299 = lean::cnstr_get(x_1, 2); +lean::inc(x_299); lean::dec(x_1); -x_294 = lean::cnstr_get(x_2, 0); -lean::inc(x_294); -x_296 = lean::cnstr_get(x_2, 1); -lean::inc(x_296); -x_298 = lean::cnstr_get(x_2, 2); -lean::inc(x_298); +x_302 = lean::cnstr_get(x_2, 0); +lean::inc(x_302); +x_304 = lean::cnstr_get(x_2, 1); +lean::inc(x_304); +x_306 = lean::cnstr_get(x_2, 2); +lean::inc(x_306); lean::dec(x_2); lean::inc(x_0); -x_302 = l_Lean_IR_VarId_alphaEqv(x_0, x_287, x_294); -lean::dec(x_294); -if (x_302 == 0) -{ -uint8 x_309; -lean::dec(x_298); -lean::dec(x_0); -lean::dec(x_296); -lean::dec(x_289); -lean::dec(x_291); -x_309 = 0; -return x_309; -} -else -{ -uint8 x_310; -x_310 = lean::nat_dec_eq(x_289, x_296); -lean::dec(x_296); -lean::dec(x_289); +x_310 = l_Lean_IR_VarId_alphaEqv(x_0, x_295, x_302); +lean::dec(x_302); +lean::dec(x_295); if (x_310 == 0) { -uint8 x_316; -lean::dec(x_298); +uint8 x_318; +lean::dec(x_306); +lean::dec(x_304); +lean::dec(x_297); +lean::dec(x_299); lean::dec(x_0); -lean::dec(x_291); -x_316 = 0; -return x_316; +x_318 = 0; +return x_318; } else { -x_1 = x_291; -x_2 = x_298; -goto _start; -} -} -} -case 12: -{ -uint8 x_320; -lean::dec(x_1); -lean::dec(x_0); -x_320 = 0; -return x_320; -} -default: -{ -uint8 x_324; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_324 = 0; -return x_324; -} -} -} -case 6: +uint8 x_319; +x_319 = lean::nat_dec_eq(x_297, x_304); +lean::dec(x_304); +lean::dec(x_297); +if (x_319 == 0) { uint8 x_325; -x_325 = lean::cnstr_get_scalar(x_1, sizeof(void*)*3); +lean::dec(x_306); +lean::dec(x_299); +lean::dec(x_0); +x_325 = 0; +return x_325; +} +else +{ +x_1 = x_299; +x_2 = x_306; +goto _start; +} +} +} +case 12: +{ +uint8 x_329; +lean::dec(x_1); +lean::dec(x_0); +x_329 = 0; +return x_329; +} +default: +{ +uint8 x_333; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +x_333 = 0; +return x_333; +} +} +} +case 6: +{ +uint8 x_334; +x_334 = lean::cnstr_get_scalar(x_1, sizeof(void*)*3); switch (lean::obj_tag(x_2)) { case 6: { -obj* x_326; obj* x_328; obj* x_330; obj* x_333; obj* x_335; uint8 x_337; obj* x_338; uint8 x_342; -x_326 = lean::cnstr_get(x_1, 0); -lean::inc(x_326); -x_328 = lean::cnstr_get(x_1, 1); -lean::inc(x_328); -x_330 = lean::cnstr_get(x_1, 2); -lean::inc(x_330); -lean::dec(x_1); -x_333 = lean::cnstr_get(x_2, 0); -lean::inc(x_333); -x_335 = lean::cnstr_get(x_2, 1); +obj* x_335; obj* x_337; obj* x_339; obj* x_342; obj* x_344; uint8 x_346; obj* x_347; uint8 x_351; +x_335 = lean::cnstr_get(x_1, 0); lean::inc(x_335); -x_337 = lean::cnstr_get_scalar(x_2, sizeof(void*)*3); -x_338 = lean::cnstr_get(x_2, 2); -lean::inc(x_338); +x_337 = lean::cnstr_get(x_1, 1); +lean::inc(x_337); +x_339 = lean::cnstr_get(x_1, 2); +lean::inc(x_339); +lean::dec(x_1); +x_342 = lean::cnstr_get(x_2, 0); +lean::inc(x_342); +x_344 = lean::cnstr_get(x_2, 1); +lean::inc(x_344); +x_346 = lean::cnstr_get_scalar(x_2, sizeof(void*)*3); +x_347 = lean::cnstr_get(x_2, 2); +lean::inc(x_347); lean::dec(x_2); lean::inc(x_0); -x_342 = l_Lean_IR_VarId_alphaEqv(x_0, x_326, x_333); -lean::dec(x_333); -if (x_342 == 0) -{ -uint8 x_349; -lean::dec(x_0); -lean::dec(x_330); -lean::dec(x_338); -lean::dec(x_328); +x_351 = l_Lean_IR_VarId_alphaEqv(x_0, x_335, x_342); +lean::dec(x_342); lean::dec(x_335); -x_349 = 0; -return x_349; +if (x_351 == 0) +{ +uint8 x_359; +lean::dec(x_0); +lean::dec(x_337); +lean::dec(x_339); +lean::dec(x_344); +lean::dec(x_347); +x_359 = 0; +return x_359; } else { -uint8 x_350; -x_350 = lean::nat_dec_eq(x_328, x_335); -lean::dec(x_335); -lean::dec(x_328); -if (x_350 == 0) +uint8 x_360; +x_360 = lean::nat_dec_eq(x_337, x_344); +lean::dec(x_344); +lean::dec(x_337); +if (x_360 == 0) { -uint8 x_356; +uint8 x_366; lean::dec(x_0); -lean::dec(x_330); -lean::dec(x_338); -x_356 = 0; -return x_356; +lean::dec(x_339); +lean::dec(x_347); +x_366 = 0; +return x_366; } else { -if (x_325 == 0) +if (x_334 == 0) { -if (x_337 == 0) +if (x_346 == 0) { -x_1 = x_330; -x_2 = x_338; +x_1 = x_339; +x_2 = x_347; goto _start; } else { -uint8 x_361; +uint8 x_371; lean::dec(x_0); -lean::dec(x_330); -lean::dec(x_338); -x_361 = 0; -return x_361; +lean::dec(x_339); +lean::dec(x_347); +x_371 = 0; +return x_371; } } else { -if (x_337 == 0) +if (x_346 == 0) { -uint8 x_365; +uint8 x_375; lean::dec(x_0); -lean::dec(x_330); -lean::dec(x_338); -x_365 = 0; -return x_365; +lean::dec(x_339); +lean::dec(x_347); +x_375 = 0; +return x_375; } else { -x_1 = x_330; -x_2 = x_338; +x_1 = x_339; +x_2 = x_347; goto _start; } } @@ -2638,110 +2555,111 @@ goto _start; } case 12: { -uint8 x_369; +uint8 x_379; lean::dec(x_1); lean::dec(x_0); -x_369 = 0; -return x_369; +x_379 = 0; +return x_379; } default: { -uint8 x_373; +uint8 x_383; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_373 = 0; -return x_373; +x_383 = 0; +return x_383; } } } case 7: { -uint8 x_374; -x_374 = lean::cnstr_get_scalar(x_1, sizeof(void*)*3); +uint8 x_384; +x_384 = lean::cnstr_get_scalar(x_1, sizeof(void*)*3); switch (lean::obj_tag(x_2)) { case 7: { -obj* x_375; obj* x_377; obj* x_379; obj* x_382; obj* x_384; uint8 x_386; obj* x_387; uint8 x_391; -x_375 = lean::cnstr_get(x_1, 0); -lean::inc(x_375); -x_377 = lean::cnstr_get(x_1, 1); -lean::inc(x_377); -x_379 = lean::cnstr_get(x_1, 2); -lean::inc(x_379); -lean::dec(x_1); -x_382 = lean::cnstr_get(x_2, 0); -lean::inc(x_382); -x_384 = lean::cnstr_get(x_2, 1); -lean::inc(x_384); -x_386 = lean::cnstr_get_scalar(x_2, sizeof(void*)*3); -x_387 = lean::cnstr_get(x_2, 2); +obj* x_385; obj* x_387; obj* x_389; obj* x_392; obj* x_394; uint8 x_396; obj* x_397; uint8 x_401; +x_385 = lean::cnstr_get(x_1, 0); +lean::inc(x_385); +x_387 = lean::cnstr_get(x_1, 1); lean::inc(x_387); +x_389 = lean::cnstr_get(x_1, 2); +lean::inc(x_389); +lean::dec(x_1); +x_392 = lean::cnstr_get(x_2, 0); +lean::inc(x_392); +x_394 = lean::cnstr_get(x_2, 1); +lean::inc(x_394); +x_396 = lean::cnstr_get_scalar(x_2, sizeof(void*)*3); +x_397 = lean::cnstr_get(x_2, 2); +lean::inc(x_397); lean::dec(x_2); lean::inc(x_0); -x_391 = l_Lean_IR_VarId_alphaEqv(x_0, x_375, x_382); -lean::dec(x_382); -if (x_391 == 0) +x_401 = l_Lean_IR_VarId_alphaEqv(x_0, x_385, x_392); +lean::dec(x_392); +lean::dec(x_385); +if (x_401 == 0) { -uint8 x_398; -lean::dec(x_379); -lean::dec(x_377); -lean::dec(x_384); +uint8 x_409; +lean::dec(x_394); lean::dec(x_387); +lean::dec(x_389); +lean::dec(x_397); lean::dec(x_0); -x_398 = 0; -return x_398; -} -else -{ -uint8 x_399; -x_399 = lean::nat_dec_eq(x_377, x_384); -lean::dec(x_384); -lean::dec(x_377); -if (x_399 == 0) -{ -uint8 x_405; -lean::dec(x_379); -lean::dec(x_387); -lean::dec(x_0); -x_405 = 0; -return x_405; -} -else -{ -if (x_374 == 0) -{ -if (x_386 == 0) -{ -x_1 = x_379; -x_2 = x_387; -goto _start; +x_409 = 0; +return x_409; } else { uint8 x_410; -lean::dec(x_379); +x_410 = lean::nat_dec_eq(x_387, x_394); +lean::dec(x_394); lean::dec(x_387); +if (x_410 == 0) +{ +uint8 x_416; +lean::dec(x_389); +lean::dec(x_397); lean::dec(x_0); -x_410 = 0; -return x_410; +x_416 = 0; +return x_416; +} +else +{ +if (x_384 == 0) +{ +if (x_396 == 0) +{ +x_1 = x_389; +x_2 = x_397; +goto _start; +} +else +{ +uint8 x_421; +lean::dec(x_389); +lean::dec(x_397); +lean::dec(x_0); +x_421 = 0; +return x_421; } } else { -if (x_386 == 0) +if (x_396 == 0) { -uint8 x_414; -lean::dec(x_379); -lean::dec(x_387); +uint8 x_425; +lean::dec(x_389); +lean::dec(x_397); lean::dec(x_0); -x_414 = 0; -return x_414; +x_425 = 0; +return x_425; } else { -x_1 = x_379; -x_2 = x_387; +x_1 = x_389; +x_2 = x_397; goto _start; } } @@ -2750,20 +2668,20 @@ goto _start; } case 12: { -uint8 x_418; +uint8 x_429; lean::dec(x_1); lean::dec(x_0); -x_418 = 0; -return x_418; +x_429 = 0; +return x_429; } default: { -uint8 x_422; +uint8 x_433; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_422 = 0; -return x_422; +x_433 = 0; +return x_433; } } } @@ -2772,50 +2690,50 @@ case 8: switch (lean::obj_tag(x_2)) { case 8: { -obj* x_423; obj* x_425; obj* x_428; obj* x_430; uint8 x_433; -x_423 = lean::cnstr_get(x_1, 0); -lean::inc(x_423); -x_425 = lean::cnstr_get(x_1, 1); -lean::inc(x_425); +obj* x_434; obj* x_436; obj* x_439; obj* x_441; uint8 x_444; +x_434 = lean::cnstr_get(x_1, 0); +lean::inc(x_434); +x_436 = lean::cnstr_get(x_1, 1); +lean::inc(x_436); lean::dec(x_1); -x_428 = lean::cnstr_get(x_2, 0); -lean::inc(x_428); -x_430 = lean::cnstr_get(x_2, 1); -lean::inc(x_430); +x_439 = lean::cnstr_get(x_2, 0); +lean::inc(x_439); +x_441 = lean::cnstr_get(x_2, 1); +lean::inc(x_441); lean::dec(x_2); -x_433 = l_Lean_KVMap_eqv(x_423, x_428); -if (x_433 == 0) +x_444 = l_Lean_KVMap_eqv(x_434, x_439); +if (x_444 == 0) { -uint8 x_437; -lean::dec(x_430); -lean::dec(x_425); +uint8 x_448; lean::dec(x_0); -x_437 = 0; -return x_437; +lean::dec(x_441); +lean::dec(x_436); +x_448 = 0; +return x_448; } else { -x_1 = x_425; -x_2 = x_430; +x_1 = x_436; +x_2 = x_441; goto _start; } } case 12: { -uint8 x_441; +uint8 x_452; lean::dec(x_1); lean::dec(x_0); -x_441 = 0; -return x_441; +x_452 = 0; +return x_452; } default: { -uint8 x_445; +uint8 x_456; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_445 = 0; -return x_445; +x_456 = 0; +return x_456; } } } @@ -2824,164 +2742,167 @@ case 9: switch (lean::obj_tag(x_2)) { case 9: { -obj* x_446; obj* x_448; obj* x_450; obj* x_453; obj* x_455; obj* x_457; uint8 x_460; -x_446 = lean::cnstr_get(x_1, 0); -lean::inc(x_446); -x_448 = lean::cnstr_get(x_1, 1); -lean::inc(x_448); -x_450 = lean::cnstr_get(x_1, 2); -lean::inc(x_450); -lean::dec(x_1); -x_453 = lean::cnstr_get(x_2, 0); -lean::inc(x_453); -x_455 = lean::cnstr_get(x_2, 1); -lean::inc(x_455); -x_457 = lean::cnstr_get(x_2, 2); +obj* x_457; obj* x_459; obj* x_461; obj* x_464; obj* x_466; obj* x_468; uint8 x_471; +x_457 = lean::cnstr_get(x_1, 0); lean::inc(x_457); +x_459 = lean::cnstr_get(x_1, 1); +lean::inc(x_459); +x_461 = lean::cnstr_get(x_1, 2); +lean::inc(x_461); +lean::dec(x_1); +x_464 = lean::cnstr_get(x_2, 0); +lean::inc(x_464); +x_466 = lean::cnstr_get(x_2, 1); +lean::inc(x_466); +x_468 = lean::cnstr_get(x_2, 2); +lean::inc(x_468); lean::dec(x_2); -x_460 = lean_name_dec_eq(x_446, x_453); -lean::dec(x_453); -lean::dec(x_446); -if (x_460 == 0) -{ -uint8 x_468; -lean::dec(x_0); +x_471 = lean_name_dec_eq(x_457, x_464); +lean::dec(x_464); lean::dec(x_457); -lean::dec(x_455); -lean::dec(x_448); -lean::dec(x_450); -x_468 = 0; -return x_468; -} -else -{ -uint8 x_470; -lean::inc(x_0); -x_470 = l_Lean_IR_VarId_alphaEqv(x_0, x_448, x_455); -lean::dec(x_455); -if (x_470 == 0) -{ -uint8 x_475; -lean::dec(x_0); -lean::dec(x_457); -lean::dec(x_450); -x_475 = 0; -return x_475; -} -else -{ -uint8 x_476; -x_476 = l_List_isEqv___main___at_Lean_IR_Fnbody_alphaEqv___main___spec__1(x_0, x_450, x_457); -return x_476; -} -} -} -case 12: +if (x_471 == 0) { uint8 x_479; -lean::dec(x_1); lean::dec(x_0); +lean::dec(x_459); +lean::dec(x_461); +lean::dec(x_466); +lean::dec(x_468); x_479 = 0; return x_479; } -default: +else { -uint8 x_483; -lean::dec(x_1); +uint8 x_481; +lean::inc(x_0); +x_481 = l_Lean_IR_VarId_alphaEqv(x_0, x_459, x_466); +lean::dec(x_466); +lean::dec(x_459); +if (x_481 == 0) +{ +uint8 x_487; lean::dec(x_0); -lean::dec(x_2); -x_483 = 0; -return x_483; -} -} -} -case 10: -{ -switch (lean::obj_tag(x_2)) { -case 10: -{ -obj* x_484; obj* x_487; uint8 x_490; -x_484 = lean::cnstr_get(x_1, 0); -lean::inc(x_484); -lean::dec(x_1); -x_487 = lean::cnstr_get(x_2, 0); -lean::inc(x_487); -lean::dec(x_2); -x_490 = l_Lean_IR_VarId_alphaEqv(x_0, x_484, x_487); -lean::dec(x_487); -return x_490; -} -case 12: -{ -uint8 x_494; -lean::dec(x_1); -lean::dec(x_0); -x_494 = 0; -return x_494; -} -default: -{ -uint8 x_498; -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_2); -x_498 = 0; -return x_498; -} -} -} -case 11: -{ -switch (lean::obj_tag(x_2)) { -case 11: -{ -obj* x_499; obj* x_501; obj* x_504; obj* x_506; uint8 x_509; -x_499 = lean::cnstr_get(x_1, 0); -lean::inc(x_499); -x_501 = lean::cnstr_get(x_1, 1); -lean::inc(x_501); -lean::dec(x_1); -x_504 = lean::cnstr_get(x_2, 0); -lean::inc(x_504); -x_506 = lean::cnstr_get(x_2, 1); -lean::inc(x_506); -lean::dec(x_2); -x_509 = lean_name_dec_eq(x_499, x_504); -lean::dec(x_504); -lean::dec(x_499); -if (x_509 == 0) -{ -uint8 x_515; -lean::dec(x_506); -lean::dec(x_501); -lean::dec(x_0); -x_515 = 0; -return x_515; +lean::dec(x_461); +lean::dec(x_468); +x_487 = 0; +return x_487; } else { -uint8 x_516; -x_516 = l_Lean_IR_args_alphaEqv___main(x_0, x_501, x_506); -lean::dec(x_506); -return x_516; +uint8 x_488; +x_488 = l_List_isEqv___main___at_Lean_IR_Fnbody_alphaEqv___main___spec__1(x_0, x_461, x_468); +return x_488; +} } } case 12: { -uint8 x_520; +uint8 x_491; lean::dec(x_1); lean::dec(x_0); -x_520 = 0; -return x_520; +x_491 = 0; +return x_491; } default: { -uint8 x_524; +uint8 x_495; lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_524 = 0; -return x_524; +x_495 = 0; +return x_495; +} +} +} +case 10: +{ +switch (lean::obj_tag(x_2)) { +case 10: +{ +obj* x_496; obj* x_499; uint8 x_502; +x_496 = lean::cnstr_get(x_1, 0); +lean::inc(x_496); +lean::dec(x_1); +x_499 = lean::cnstr_get(x_2, 0); +lean::inc(x_499); +lean::dec(x_2); +x_502 = l_Lean_IR_VarId_alphaEqv(x_0, x_496, x_499); +lean::dec(x_499); +lean::dec(x_496); +return x_502; +} +case 12: +{ +uint8 x_507; +lean::dec(x_1); +lean::dec(x_0); +x_507 = 0; +return x_507; +} +default: +{ +uint8 x_511; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +x_511 = 0; +return x_511; +} +} +} +case 11: +{ +switch (lean::obj_tag(x_2)) { +case 11: +{ +obj* x_512; obj* x_514; obj* x_517; obj* x_519; uint8 x_522; +x_512 = lean::cnstr_get(x_1, 0); +lean::inc(x_512); +x_514 = lean::cnstr_get(x_1, 1); +lean::inc(x_514); +lean::dec(x_1); +x_517 = lean::cnstr_get(x_2, 0); +lean::inc(x_517); +x_519 = lean::cnstr_get(x_2, 1); +lean::inc(x_519); +lean::dec(x_2); +x_522 = lean_name_dec_eq(x_512, x_517); +lean::dec(x_517); +lean::dec(x_512); +if (x_522 == 0) +{ +uint8 x_528; +lean::dec(x_519); +lean::dec(x_514); +lean::dec(x_0); +x_528 = 0; +return x_528; +} +else +{ +uint8 x_529; +x_529 = l_Lean_IR_args_alphaEqv___main(x_0, x_514, x_519); +lean::dec(x_519); +lean::dec(x_514); +return x_529; +} +} +case 12: +{ +uint8 x_534; +lean::dec(x_1); +lean::dec(x_0); +x_534 = 0; +return x_534; +} +default: +{ +uint8 x_538; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +x_538 = 0; +return x_538; } } } @@ -2991,16 +2912,16 @@ lean::dec(x_0); switch (lean::obj_tag(x_2)) { case 12: { -uint8 x_526; -x_526 = 1; -return x_526; +uint8 x_540; +x_540 = 1; +return x_540; } default: { -uint8 x_528; +uint8 x_542; lean::dec(x_2); -x_528 = 0; -return x_528; +x_542 = 0; +return x_542; } } } @@ -3104,16 +3025,13 @@ return x_1; obj* l___private_init_lean_compiler_ir_2__collectVar(obj* x_0, obj* x_1, obj* x_2) { _start: { -uint8 x_4; -lean::inc(x_0); -x_4 = l_Lean_NameSet_contains(x_1, x_0); -if (x_4 == 0) +uint8 x_3; +x_3 = l_Lean_NameSet_contains(x_1, x_0); +if (x_3 == 0) { -obj* x_5; obj* x_6; obj* x_7; -x_5 = l_Lean_NameMap_contains___rarg___closed__1; -x_6 = lean::box(0); -x_7 = l_RBNode_insert___rarg(x_5, x_2, x_0, x_6); -return x_7; +obj* x_4; +x_4 = l_Lean_NameSet_insert(x_2, x_0); +return x_4; } else { @@ -3125,12 +3043,10 @@ return x_2; obj* l___private_init_lean_compiler_ir_3__withBv(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_5; obj* x_6; obj* x_7; -x_4 = l_Lean_NameMap_contains___rarg___closed__1; -x_5 = lean::box(0); -x_6 = l_RBNode_insert___rarg(x_4, x_2, x_0, x_5); -x_7 = lean::apply_2(x_1, x_6, x_3); -return x_7; +obj* x_4; obj* x_5; +x_4 = l_Lean_NameSet_insert(x_2, x_0); +x_5 = lean::apply_2(x_1, x_4, x_3); +return x_5; } } obj* l_List_foldl___main___at_Lean_IR_insertParams___spec__1(obj* x_0, obj* x_1) { @@ -3142,7 +3058,7 @@ return x_0; } else { -obj* x_2; obj* x_4; obj* x_7; obj* x_10; obj* x_11; obj* x_12; +obj* x_2; obj* x_4; obj* x_7; obj* x_10; x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); x_4 = lean::cnstr_get(x_1, 1); @@ -3151,10 +3067,8 @@ lean::dec(x_1); x_7 = lean::cnstr_get(x_2, 0); lean::inc(x_7); lean::dec(x_2); -x_10 = l_Lean_NameMap_contains___rarg___closed__1; -x_11 = lean::box(0); -x_12 = l_RBNode_insert___rarg(x_10, x_0, x_7, x_11); -x_0 = x_12; +x_10 = l_Lean_NameSet_insert(x_0, x_7); +x_0 = x_10; x_1 = x_4; goto _start; } @@ -3192,19 +3106,16 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_3; uint8 x_7; +obj* x_3; uint8 x_6; x_3 = lean::cnstr_get(x_0, 0); lean::inc(x_3); lean::dec(x_0); -lean::inc(x_3); -x_7 = l_Lean_NameSet_contains(x_1, x_3); -if (x_7 == 0) +x_6 = l_Lean_NameSet_contains(x_1, x_3); +if (x_6 == 0) { -obj* x_8; obj* x_9; obj* x_10; -x_8 = l_Lean_NameMap_contains___rarg___closed__1; -x_9 = lean::box(0); -x_10 = l_RBNode_insert___rarg(x_8, x_2, x_3, x_9); -return x_10; +obj* x_7; +x_7 = l_Lean_NameSet_insert(x_2, x_3); +return x_7; } else { @@ -3274,69 +3185,79 @@ return x_6; } case 2: { -obj* x_7; obj* x_9; uint8 x_14; +obj* x_7; obj* x_9; uint8 x_13; x_7 = lean::cnstr_get(x_0, 0); lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 2); lean::inc(x_9); lean::dec(x_0); -lean::inc(x_7); lean::inc(x_1); -x_14 = l_Lean_NameSet_contains(x_1, x_7); -if (x_14 == 0) +x_13 = l_Lean_NameSet_contains(x_1, x_7); +if (x_13 == 0) { -obj* x_15; obj* x_16; obj* x_17; obj* x_18; -x_15 = l_Lean_NameMap_contains___rarg___closed__1; -x_16 = lean::box(0); -x_17 = l_RBNode_insert___rarg(x_15, x_2, x_7, x_16); -x_18 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_9, x_1, x_17); -return x_18; +obj* x_14; obj* x_15; +x_14 = l_Lean_NameSet_insert(x_2, x_7); +x_15 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_9, x_1, x_14); +return x_15; } else { -obj* x_20; +obj* x_17; lean::dec(x_7); -x_20 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_9, x_1, x_2); -return x_20; +x_17 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_9, x_1, x_2); +return x_17; } } case 3: { -obj* x_21; uint8 x_25; -x_21 = lean::cnstr_get(x_0, 1); -lean::inc(x_21); +obj* x_18; uint8 x_21; +x_18 = lean::cnstr_get(x_0, 1); +lean::inc(x_18); lean::dec(x_0); -lean::inc(x_21); -x_25 = l_Lean_NameSet_contains(x_1, x_21); -if (x_25 == 0) +x_21 = l_Lean_NameSet_contains(x_1, x_18); +if (x_21 == 0) { -obj* x_26; obj* x_27; obj* x_28; -x_26 = l_Lean_NameMap_contains___rarg___closed__1; -x_27 = lean::box(0); -x_28 = l_RBNode_insert___rarg(x_26, x_2, x_21, x_27); -return x_28; +obj* x_22; +x_22 = l_Lean_NameSet_insert(x_2, x_18); +return x_22; } else { -lean::dec(x_21); +lean::dec(x_18); return x_2; } } case 4: { -obj* x_30; uint8 x_34; +obj* x_24; uint8 x_27; +x_24 = lean::cnstr_get(x_0, 1); +lean::inc(x_24); +lean::dec(x_0); +x_27 = l_Lean_NameSet_contains(x_1, x_24); +if (x_27 == 0) +{ +obj* x_28; +x_28 = l_Lean_NameSet_insert(x_2, x_24); +return x_28; +} +else +{ +lean::dec(x_24); +return x_2; +} +} +case 5: +{ +obj* x_30; uint8 x_33; x_30 = lean::cnstr_get(x_0, 1); lean::inc(x_30); lean::dec(x_0); -lean::inc(x_30); -x_34 = l_Lean_NameSet_contains(x_1, x_30); -if (x_34 == 0) +x_33 = l_Lean_NameSet_contains(x_1, x_30); +if (x_33 == 0) { -obj* x_35; obj* x_36; obj* x_37; -x_35 = l_Lean_NameMap_contains___rarg___closed__1; -x_36 = lean::box(0); -x_37 = l_RBNode_insert___rarg(x_35, x_2, x_30, x_36); -return x_37; +obj* x_34; +x_34 = l_Lean_NameSet_insert(x_2, x_30); +return x_34; } else { @@ -3344,72 +3265,47 @@ lean::dec(x_30); return x_2; } } -case 5: -{ -obj* x_39; uint8 x_43; -x_39 = lean::cnstr_get(x_0, 1); -lean::inc(x_39); -lean::dec(x_0); -lean::inc(x_39); -x_43 = l_Lean_NameSet_contains(x_1, x_39); -if (x_43 == 0) -{ -obj* x_44; obj* x_45; obj* x_46; -x_44 = l_Lean_NameMap_contains___rarg___closed__1; -x_45 = lean::box(0); -x_46 = l_RBNode_insert___rarg(x_44, x_2, x_39, x_45); -return x_46; -} -else -{ -lean::dec(x_39); -return x_2; -} -} case 6: { -obj* x_48; obj* x_51; -x_48 = lean::cnstr_get(x_0, 1); -lean::inc(x_48); +obj* x_36; obj* x_39; +x_36 = lean::cnstr_get(x_0, 1); +lean::inc(x_36); lean::dec(x_0); -x_51 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_48, x_1, x_2); -return x_51; +x_39 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_36, x_1, x_2); +return x_39; } case 7: { -obj* x_52; obj* x_55; -x_52 = lean::cnstr_get(x_0, 1); -lean::inc(x_52); +obj* x_40; obj* x_43; +x_40 = lean::cnstr_get(x_0, 1); +lean::inc(x_40); lean::dec(x_0); -x_55 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_52, x_1, x_2); -return x_55; +x_43 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_40, x_1, x_2); +return x_43; } case 8: { -obj* x_56; obj* x_58; uint8 x_63; -x_56 = lean::cnstr_get(x_0, 0); -lean::inc(x_56); -x_58 = lean::cnstr_get(x_0, 1); -lean::inc(x_58); +obj* x_44; obj* x_46; uint8 x_50; +x_44 = lean::cnstr_get(x_0, 0); +lean::inc(x_44); +x_46 = lean::cnstr_get(x_0, 1); +lean::inc(x_46); lean::dec(x_0); -lean::inc(x_56); lean::inc(x_1); -x_63 = l_Lean_NameSet_contains(x_1, x_56); -if (x_63 == 0) +x_50 = l_Lean_NameSet_contains(x_1, x_44); +if (x_50 == 0) { -obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_64 = l_Lean_NameMap_contains___rarg___closed__1; -x_65 = lean::box(0); -x_66 = l_RBNode_insert___rarg(x_64, x_2, x_56, x_65); -x_67 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_58, x_1, x_66); -return x_67; +obj* x_51; obj* x_52; +x_51 = l_Lean_NameSet_insert(x_2, x_44); +x_52 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_46, x_1, x_51); +return x_52; } else { -obj* x_69; -lean::dec(x_56); -x_69 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_58, x_1, x_2); -return x_69; +obj* x_54; +lean::dec(x_44); +x_54 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_46, x_1, x_2); +return x_54; } } case 11: @@ -3420,23 +3316,20 @@ return x_2; } default: { -obj* x_72; uint8 x_76; -x_72 = lean::cnstr_get(x_0, 0); -lean::inc(x_72); +obj* x_57; uint8 x_60; +x_57 = lean::cnstr_get(x_0, 0); +lean::inc(x_57); lean::dec(x_0); -lean::inc(x_72); -x_76 = l_Lean_NameSet_contains(x_1, x_72); -if (x_76 == 0) +x_60 = l_Lean_NameSet_contains(x_1, x_57); +if (x_60 == 0) { -obj* x_77; obj* x_78; obj* x_79; -x_77 = l_Lean_NameMap_contains___rarg___closed__1; -x_78 = lean::box(0); -x_79 = l_RBNode_insert___rarg(x_77, x_2, x_72, x_78); -return x_79; +obj* x_61; +x_61 = l_Lean_NameSet_insert(x_2, x_57); +return x_61; } else { -lean::dec(x_72); +lean::dec(x_57); return x_2; } } @@ -3549,7 +3442,7 @@ _start: switch (lean::obj_tag(x_0)) { case 0: { -obj* x_3; obj* x_5; obj* x_7; obj* x_11; obj* x_12; obj* x_13; obj* x_14; +obj* x_3; obj* x_5; obj* x_7; obj* x_11; obj* x_12; x_3 = lean::cnstr_get(x_0, 0); lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 1); @@ -3559,299 +3452,268 @@ lean::inc(x_7); lean::dec(x_0); lean::inc(x_1); x_11 = l___private_init_lean_compiler_ir_8__collectExpr___main(x_5, x_1, x_2); -x_12 = l_Lean_NameMap_contains___rarg___closed__1; -x_13 = lean::box(0); -x_14 = l_RBNode_insert___rarg(x_12, x_1, x_3, x_13); +x_12 = l_Lean_NameSet_insert(x_1, x_3); x_0 = x_7; -x_1 = x_14; +x_1 = x_12; x_2 = x_11; goto _start; } case 1: { -obj* x_16; obj* x_18; obj* x_20; obj* x_22; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; -x_16 = lean::cnstr_get(x_0, 0); +obj* x_14; obj* x_16; obj* x_18; obj* x_20; obj* x_24; obj* x_25; obj* x_26; +x_14 = lean::cnstr_get(x_0, 0); +lean::inc(x_14); +x_16 = lean::cnstr_get(x_0, 1); lean::inc(x_16); -x_18 = lean::cnstr_get(x_0, 1); +x_18 = lean::cnstr_get(x_0, 2); lean::inc(x_18); -x_20 = lean::cnstr_get(x_0, 2); +x_20 = lean::cnstr_get(x_0, 3); lean::inc(x_20); -x_22 = lean::cnstr_get(x_0, 3); -lean::inc(x_22); lean::dec(x_0); lean::inc(x_1); -x_26 = l_List_foldl___main___at_Lean_IR_insertParams___spec__1(x_1, x_18); -x_27 = l___private_init_lean_compiler_ir_9__collectFnBody___main(x_20, x_26, x_2); -x_28 = l_Lean_NameMap_contains___rarg___closed__1; -x_29 = lean::box(0); -x_30 = l_RBNode_insert___rarg(x_28, x_1, x_16, x_29); -x_0 = x_22; -x_1 = x_30; -x_2 = x_27; +x_24 = l_List_foldl___main___at_Lean_IR_insertParams___spec__1(x_1, x_16); +x_25 = l___private_init_lean_compiler_ir_9__collectFnBody___main(x_18, x_24, x_2); +x_26 = l_Lean_NameSet_insert(x_1, x_14); +x_0 = x_20; +x_1 = x_26; +x_2 = x_25; goto _start; } case 2: { -obj* x_32; obj* x_34; obj* x_36; uint8 x_41; uint8 x_44; -x_32 = lean::cnstr_get(x_0, 0); +obj* x_28; obj* x_30; obj* x_32; uint8 x_36; uint8 x_38; +x_28 = lean::cnstr_get(x_0, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_0, 2); +lean::inc(x_30); +x_32 = lean::cnstr_get(x_0, 3); lean::inc(x_32); -x_34 = lean::cnstr_get(x_0, 2); -lean::inc(x_34); -x_36 = lean::cnstr_get(x_0, 3); -lean::inc(x_36); lean::dec(x_0); -lean::inc(x_32); lean::inc(x_1); -x_41 = l_Lean_NameSet_contains(x_1, x_32); -lean::inc(x_34); +x_36 = l_Lean_NameSet_contains(x_1, x_28); lean::inc(x_1); -x_44 = l_Lean_NameSet_contains(x_1, x_34); -if (x_41 == 0) +x_38 = l_Lean_NameSet_contains(x_1, x_30); +if (x_36 == 0) { -obj* x_45; obj* x_46; obj* x_47; -x_45 = l_Lean_NameMap_contains___rarg___closed__1; -x_46 = lean::box(0); -x_47 = l_RBNode_insert___rarg(x_45, x_2, x_32, x_46); -if (x_44 == 0) +obj* x_39; +x_39 = l_Lean_NameSet_insert(x_2, x_28); +if (x_38 == 0) { -obj* x_48; -x_48 = l_RBNode_insert___rarg(x_45, x_47, x_34, x_46); -x_0 = x_36; -x_2 = x_48; +obj* x_40; +x_40 = l_Lean_NameSet_insert(x_39, x_30); +x_0 = x_32; +x_2 = x_40; goto _start; } else { -lean::dec(x_34); -x_0 = x_36; -x_2 = x_47; +lean::dec(x_30); +x_0 = x_32; +x_2 = x_39; goto _start; } } else { -lean::dec(x_32); -if (x_44 == 0) +lean::dec(x_28); +if (x_38 == 0) { -obj* x_53; obj* x_54; obj* x_55; -x_53 = l_Lean_NameMap_contains___rarg___closed__1; -x_54 = lean::box(0); -x_55 = l_RBNode_insert___rarg(x_53, x_2, x_34, x_54); -x_0 = x_36; -x_2 = x_55; +obj* x_45; +x_45 = l_Lean_NameSet_insert(x_2, x_30); +x_0 = x_32; +x_2 = x_45; goto _start; } else { -lean::dec(x_34); -x_0 = x_36; +lean::dec(x_30); +x_0 = x_32; goto _start; } } } case 3: { -obj* x_59; obj* x_61; obj* x_63; uint8 x_68; uint8 x_71; -x_59 = lean::cnstr_get(x_0, 0); -lean::inc(x_59); -x_61 = lean::cnstr_get(x_0, 2); -lean::inc(x_61); -x_63 = lean::cnstr_get(x_0, 3); -lean::inc(x_63); +obj* x_49; obj* x_51; obj* x_53; uint8 x_57; uint8 x_59; +x_49 = lean::cnstr_get(x_0, 0); +lean::inc(x_49); +x_51 = lean::cnstr_get(x_0, 2); +lean::inc(x_51); +x_53 = lean::cnstr_get(x_0, 3); +lean::inc(x_53); lean::dec(x_0); -lean::inc(x_59); lean::inc(x_1); -x_68 = l_Lean_NameSet_contains(x_1, x_59); -lean::inc(x_61); +x_57 = l_Lean_NameSet_contains(x_1, x_49); lean::inc(x_1); -x_71 = l_Lean_NameSet_contains(x_1, x_61); -if (x_68 == 0) +x_59 = l_Lean_NameSet_contains(x_1, x_51); +if (x_57 == 0) { -obj* x_72; obj* x_73; obj* x_74; -x_72 = l_Lean_NameMap_contains___rarg___closed__1; -x_73 = lean::box(0); -x_74 = l_RBNode_insert___rarg(x_72, x_2, x_59, x_73); -if (x_71 == 0) +obj* x_60; +x_60 = l_Lean_NameSet_insert(x_2, x_49); +if (x_59 == 0) { -obj* x_75; -x_75 = l_RBNode_insert___rarg(x_72, x_74, x_61, x_73); -x_0 = x_63; -x_2 = x_75; +obj* x_61; +x_61 = l_Lean_NameSet_insert(x_60, x_51); +x_0 = x_53; +x_2 = x_61; goto _start; } else { -lean::dec(x_61); -x_0 = x_63; -x_2 = x_74; +lean::dec(x_51); +x_0 = x_53; +x_2 = x_60; goto _start; } } else { -lean::dec(x_59); -if (x_71 == 0) +lean::dec(x_49); +if (x_59 == 0) { -obj* x_80; obj* x_81; obj* x_82; -x_80 = l_Lean_NameMap_contains___rarg___closed__1; -x_81 = lean::box(0); -x_82 = l_RBNode_insert___rarg(x_80, x_2, x_61, x_81); -x_0 = x_63; -x_2 = x_82; +obj* x_66; +x_66 = l_Lean_NameSet_insert(x_2, x_51); +x_0 = x_53; +x_2 = x_66; goto _start; } else { -lean::dec(x_61); -x_0 = x_63; +lean::dec(x_51); +x_0 = x_53; goto _start; } } } case 4: { -obj* x_86; obj* x_88; obj* x_90; uint8 x_95; uint8 x_98; -x_86 = lean::cnstr_get(x_0, 0); -lean::inc(x_86); -x_88 = lean::cnstr_get(x_0, 3); -lean::inc(x_88); -x_90 = lean::cnstr_get(x_0, 4); -lean::inc(x_90); +obj* x_70; obj* x_72; obj* x_74; uint8 x_78; uint8 x_80; +x_70 = lean::cnstr_get(x_0, 0); +lean::inc(x_70); +x_72 = lean::cnstr_get(x_0, 3); +lean::inc(x_72); +x_74 = lean::cnstr_get(x_0, 4); +lean::inc(x_74); lean::dec(x_0); -lean::inc(x_86); lean::inc(x_1); -x_95 = l_Lean_NameSet_contains(x_1, x_86); -lean::inc(x_88); +x_78 = l_Lean_NameSet_contains(x_1, x_70); lean::inc(x_1); -x_98 = l_Lean_NameSet_contains(x_1, x_88); -if (x_95 == 0) +x_80 = l_Lean_NameSet_contains(x_1, x_72); +if (x_78 == 0) { -obj* x_99; obj* x_100; obj* x_101; -x_99 = l_Lean_NameMap_contains___rarg___closed__1; -x_100 = lean::box(0); -x_101 = l_RBNode_insert___rarg(x_99, x_2, x_86, x_100); -if (x_98 == 0) +obj* x_81; +x_81 = l_Lean_NameSet_insert(x_2, x_70); +if (x_80 == 0) { -obj* x_102; -x_102 = l_RBNode_insert___rarg(x_99, x_101, x_88, x_100); -x_0 = x_90; -x_2 = x_102; +obj* x_82; +x_82 = l_Lean_NameSet_insert(x_81, x_72); +x_0 = x_74; +x_2 = x_82; goto _start; } else { -lean::dec(x_88); -x_0 = x_90; -x_2 = x_101; +lean::dec(x_72); +x_0 = x_74; +x_2 = x_81; goto _start; } } else { -lean::dec(x_86); -if (x_98 == 0) +lean::dec(x_70); +if (x_80 == 0) { -obj* x_107; obj* x_108; obj* x_109; -x_107 = l_Lean_NameMap_contains___rarg___closed__1; -x_108 = lean::box(0); -x_109 = l_RBNode_insert___rarg(x_107, x_2, x_88, x_108); -x_0 = x_90; -x_2 = x_109; +obj* x_87; +x_87 = l_Lean_NameSet_insert(x_2, x_72); +x_0 = x_74; +x_2 = x_87; goto _start; } else { -lean::dec(x_88); -x_0 = x_90; +lean::dec(x_72); +x_0 = x_74; goto _start; } } } case 8: { -obj* x_113; -x_113 = lean::cnstr_get(x_0, 1); -lean::inc(x_113); +obj* x_91; +x_91 = lean::cnstr_get(x_0, 1); +lean::inc(x_91); lean::dec(x_0); -x_0 = x_113; +x_0 = x_91; goto _start; } case 9: { -obj* x_117; obj* x_119; uint8 x_124; -x_117 = lean::cnstr_get(x_0, 1); -lean::inc(x_117); -x_119 = lean::cnstr_get(x_0, 2); -lean::inc(x_119); +obj* x_95; obj* x_97; uint8 x_101; +x_95 = lean::cnstr_get(x_0, 1); +lean::inc(x_95); +x_97 = lean::cnstr_get(x_0, 2); +lean::inc(x_97); lean::dec(x_0); -lean::inc(x_117); lean::inc(x_1); -x_124 = l_Lean_NameSet_contains(x_1, x_117); -if (x_124 == 0) +x_101 = l_Lean_NameSet_contains(x_1, x_95); +if (x_101 == 0) { -obj* x_125; obj* x_126; obj* x_127; obj* x_128; -x_125 = l_Lean_NameMap_contains___rarg___closed__1; -x_126 = lean::box(0); -x_127 = l_RBNode_insert___rarg(x_125, x_2, x_117, x_126); -x_128 = l_List_foldl___main___at___private_init_lean_compiler_ir_9__collectFnBody___main___spec__1(x_1, x_127, x_119); -return x_128; +obj* x_102; obj* x_103; +x_102 = l_Lean_NameSet_insert(x_2, x_95); +x_103 = l_List_foldl___main___at___private_init_lean_compiler_ir_9__collectFnBody___main___spec__1(x_1, x_102, x_97); +return x_103; } else { -obj* x_130; -lean::dec(x_117); -x_130 = l_List_foldl___main___at___private_init_lean_compiler_ir_9__collectFnBody___main___spec__2(x_1, x_2, x_119); -return x_130; +obj* x_105; +lean::dec(x_95); +x_105 = l_List_foldl___main___at___private_init_lean_compiler_ir_9__collectFnBody___main___spec__2(x_1, x_2, x_97); +return x_105; } } case 10: { -obj* x_131; uint8 x_135; -x_131 = lean::cnstr_get(x_0, 0); -lean::inc(x_131); +obj* x_106; uint8 x_109; +x_106 = lean::cnstr_get(x_0, 0); +lean::inc(x_106); lean::dec(x_0); -lean::inc(x_131); -x_135 = l_Lean_NameSet_contains(x_1, x_131); -if (x_135 == 0) +x_109 = l_Lean_NameSet_contains(x_1, x_106); +if (x_109 == 0) { -obj* x_136; obj* x_137; obj* x_138; -x_136 = l_Lean_NameMap_contains___rarg___closed__1; -x_137 = lean::box(0); -x_138 = l_RBNode_insert___rarg(x_136, x_2, x_131, x_137); -return x_138; +obj* x_110; +x_110 = l_Lean_NameSet_insert(x_2, x_106); +return x_110; } else { -lean::dec(x_131); +lean::dec(x_106); return x_2; } } case 11: { -obj* x_140; obj* x_142; uint8 x_147; -x_140 = lean::cnstr_get(x_0, 0); -lean::inc(x_140); -x_142 = lean::cnstr_get(x_0, 1); -lean::inc(x_142); +obj* x_112; obj* x_114; uint8 x_118; +x_112 = lean::cnstr_get(x_0, 0); +lean::inc(x_112); +x_114 = lean::cnstr_get(x_0, 1); +lean::inc(x_114); lean::dec(x_0); -lean::inc(x_140); lean::inc(x_1); -x_147 = l_Lean_NameSet_contains(x_1, x_140); -if (x_147 == 0) +x_118 = l_Lean_NameSet_contains(x_1, x_112); +if (x_118 == 0) { -obj* x_148; obj* x_149; obj* x_150; obj* x_151; -x_148 = l_Lean_NameMap_contains___rarg___closed__1; -x_149 = lean::box(0); -x_150 = l_RBNode_insert___rarg(x_148, x_2, x_140, x_149); -x_151 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_142, x_1, x_150); -return x_151; +obj* x_119; obj* x_120; +x_119 = l_Lean_NameSet_insert(x_2, x_112); +x_120 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_114, x_1, x_119); +return x_120; } else { -obj* x_153; -lean::dec(x_140); -x_153 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_142, x_1, x_2); -return x_153; +obj* x_122; +lean::dec(x_112); +x_122 = l___private_init_lean_compiler_ir_7__collectArgs___main(x_114, x_1, x_2); +return x_122; } } case 12: @@ -3861,29 +3723,26 @@ return x_2; } default: { -obj* x_155; obj* x_157; uint8 x_162; -x_155 = lean::cnstr_get(x_0, 0); -lean::inc(x_155); -x_157 = lean::cnstr_get(x_0, 2); -lean::inc(x_157); +obj* x_124; obj* x_126; uint8 x_130; +x_124 = lean::cnstr_get(x_0, 0); +lean::inc(x_124); +x_126 = lean::cnstr_get(x_0, 2); +lean::inc(x_126); lean::dec(x_0); -lean::inc(x_155); lean::inc(x_1); -x_162 = l_Lean_NameSet_contains(x_1, x_155); -if (x_162 == 0) +x_130 = l_Lean_NameSet_contains(x_1, x_124); +if (x_130 == 0) { -obj* x_163; obj* x_164; obj* x_165; -x_163 = l_Lean_NameMap_contains___rarg___closed__1; -x_164 = lean::box(0); -x_165 = l_RBNode_insert___rarg(x_163, x_2, x_155, x_164); -x_0 = x_157; -x_2 = x_165; +obj* x_131; +x_131 = l_Lean_NameSet_insert(x_2, x_124); +x_0 = x_126; +x_2 = x_131; goto _start; } else { -lean::dec(x_155); -x_0 = x_157; +lean::dec(x_124); +x_0 = x_126; goto _start; } } diff --git a/src/stage0/init/lean/disjoint_set.cpp b/src/stage0/init/lean/disjoint_set.cpp index 81ba5c3149..46ee74b479 100644 --- a/src/stage0/init/lean/disjoint_set.cpp +++ b/src/stage0/init/lean/disjoint_set.cpp @@ -41,7 +41,6 @@ obj* l_Lean_DisjointSet_find___main(obj*); obj* l_Lean_DisjointSet_find(obj*); obj* l_HashMapImp_find___at___private_init_lean_disjoint__set_1__findAux___main___spec__1___boxed(obj*); uint8 l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__11___rarg(obj*, obj*, obj*); -obj* l_HashMapImp_reinsertAux___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_disjoint__set_1__findAux___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_DisjointSet_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_DisjointSet_merge___rarg(obj*, obj*, obj*, obj*, obj*); @@ -64,8 +63,6 @@ uint8 nat_dec_eq(obj*, obj*); } obj* l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__2(obj*); obj* l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__12___rarg(obj*, obj*, obj*, obj*); -obj* l_Array_mkArray___rarg(obj*, obj*); -obj* l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_DisjointSet_find___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_DisjointSet_merge___main___boxed(obj*); obj* l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__2___rarg___boxed(obj*, obj*, obj*); @@ -107,13 +104,11 @@ obj* l___private_init_lean_disjoint__set_1__findAux___rarg(obj*, obj*, obj*, obj uint8 l_AssocList_contains___main___at_Lean_DisjointSet_merge___main___spec__8___rarg(obj*, obj*, obj*); obj* l_HashMapImp_insert___at_Lean_DisjointSet_merge___main___spec__10___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_HashMapImp_find___at___private_init_lean_disjoint__set_1__findAux___main___spec__1___rarg(obj*, obj*, obj*, obj*); -namespace lean { -obj* nat_mul(obj*, obj*); -} obj* l_Lean_DisjointSet_find___boxed(obj*); obj* l___private_init_lean_disjoint__set_1__findAux___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__9___boxed(obj*); obj* l_HashMapImp_find___at___private_init_lean_disjoint__set_1__findAux___main___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_HashMapImp_expand___rarg(obj*, obj*, obj*); obj* l_Lean_mkDisjointSet(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -641,59 +636,43 @@ lean::cnstr_set(x_25, 1, x_4); lean::cnstr_set(x_25, 2, x_16); x_26 = lean::array_updt(x_7, x_15, x_25); x_27 = lean::nat_dec_le(x_23, x_10); +lean::dec(x_10); if (x_27 == 0) { -obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38; -x_28 = lean::mk_nat_obj(2ul); -x_29 = lean::nat_mul(x_10, x_28); -lean::dec(x_10); -x_31 = lean::box(0); -x_32 = l_Array_mkArray___rarg(x_29, x_31); -x_33 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_reinsertAux___rarg), 4, 1); -lean::closure_set(x_33, 0, x_1); -x_34 = lean::mk_nat_obj(0ul); -lean::inc(x_26); -x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32); -lean::dec(x_26); -if (lean::is_scalar(x_9)) { - x_38 = lean::alloc_cnstr(0, 2, 0); -} else { - x_38 = x_9; -} -lean::cnstr_set(x_38, 0, x_23); -lean::cnstr_set(x_38, 1, x_36); -return x_38; +obj* x_30; +lean::dec(x_9); +x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26); +return x_30; } else { -obj* x_41; -lean::dec(x_10); +obj* x_32; lean::dec(x_1); if (lean::is_scalar(x_9)) { - x_41 = lean::alloc_cnstr(0, 2, 0); + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_9; + x_32 = x_9; } -lean::cnstr_set(x_41, 0, x_23); -lean::cnstr_set(x_41, 1, x_26); -return x_41; +lean::cnstr_set(x_32, 0, x_23); +lean::cnstr_set(x_32, 1, x_26); +return x_32; } } else { -obj* x_44; obj* x_45; obj* x_46; +obj* x_35; obj* x_36; obj* x_37; lean::dec(x_10); lean::dec(x_1); -x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__3___rarg(x_0, x_3, x_4, x_16); -x_45 = lean::array_updt(x_7, x_15, x_44); +x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__3___rarg(x_0, x_3, x_4, x_16); +x_36 = lean::array_updt(x_7, x_15, x_35); if (lean::is_scalar(x_9)) { - x_46 = lean::alloc_cnstr(0, 2, 0); + x_37 = lean::alloc_cnstr(0, 2, 0); } else { - x_46 = x_9; + x_37 = x_9; } -lean::cnstr_set(x_46, 0, x_5); -lean::cnstr_set(x_46, 1, x_45); -return x_46; +lean::cnstr_set(x_37, 0, x_5); +lean::cnstr_set(x_37, 1, x_36); +return x_37; } } } @@ -867,59 +846,43 @@ lean::cnstr_set(x_25, 1, x_4); lean::cnstr_set(x_25, 2, x_16); x_26 = lean::array_updt(x_7, x_15, x_25); x_27 = lean::nat_dec_le(x_23, x_10); +lean::dec(x_10); if (x_27 == 0) { -obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38; -x_28 = lean::mk_nat_obj(2ul); -x_29 = lean::nat_mul(x_10, x_28); -lean::dec(x_10); -x_31 = lean::box(0); -x_32 = l_Array_mkArray___rarg(x_29, x_31); -x_33 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_reinsertAux___rarg), 4, 1); -lean::closure_set(x_33, 0, x_1); -x_34 = lean::mk_nat_obj(0ul); -lean::inc(x_26); -x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32); -lean::dec(x_26); -if (lean::is_scalar(x_9)) { - x_38 = lean::alloc_cnstr(0, 2, 0); -} else { - x_38 = x_9; -} -lean::cnstr_set(x_38, 0, x_23); -lean::cnstr_set(x_38, 1, x_36); -return x_38; +obj* x_30; +lean::dec(x_9); +x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26); +return x_30; } else { -obj* x_41; -lean::dec(x_10); +obj* x_32; lean::dec(x_1); if (lean::is_scalar(x_9)) { - x_41 = lean::alloc_cnstr(0, 2, 0); + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_9; + x_32 = x_9; } -lean::cnstr_set(x_41, 0, x_23); -lean::cnstr_set(x_41, 1, x_26); -return x_41; +lean::cnstr_set(x_32, 0, x_23); +lean::cnstr_set(x_32, 1, x_26); +return x_32; } } else { -obj* x_44; obj* x_45; obj* x_46; +obj* x_35; obj* x_36; obj* x_37; lean::dec(x_10); lean::dec(x_1); -x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__6___rarg(x_0, x_3, x_4, x_16); -x_45 = lean::array_updt(x_7, x_15, x_44); +x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__6___rarg(x_0, x_3, x_4, x_16); +x_36 = lean::array_updt(x_7, x_15, x_35); if (lean::is_scalar(x_9)) { - x_46 = lean::alloc_cnstr(0, 2, 0); + x_37 = lean::alloc_cnstr(0, 2, 0); } else { - x_46 = x_9; + x_37 = x_9; } -lean::cnstr_set(x_46, 0, x_5); -lean::cnstr_set(x_46, 1, x_45); -return x_46; +lean::cnstr_set(x_37, 0, x_5); +lean::cnstr_set(x_37, 1, x_36); +return x_37; } } } @@ -1093,59 +1056,43 @@ lean::cnstr_set(x_25, 1, x_4); lean::cnstr_set(x_25, 2, x_16); x_26 = lean::array_updt(x_7, x_15, x_25); x_27 = lean::nat_dec_le(x_23, x_10); +lean::dec(x_10); if (x_27 == 0) { -obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38; -x_28 = lean::mk_nat_obj(2ul); -x_29 = lean::nat_mul(x_10, x_28); -lean::dec(x_10); -x_31 = lean::box(0); -x_32 = l_Array_mkArray___rarg(x_29, x_31); -x_33 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_reinsertAux___rarg), 4, 1); -lean::closure_set(x_33, 0, x_1); -x_34 = lean::mk_nat_obj(0ul); -lean::inc(x_26); -x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32); -lean::dec(x_26); -if (lean::is_scalar(x_9)) { - x_38 = lean::alloc_cnstr(0, 2, 0); -} else { - x_38 = x_9; -} -lean::cnstr_set(x_38, 0, x_23); -lean::cnstr_set(x_38, 1, x_36); -return x_38; +obj* x_30; +lean::dec(x_9); +x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26); +return x_30; } else { -obj* x_41; -lean::dec(x_10); +obj* x_32; lean::dec(x_1); if (lean::is_scalar(x_9)) { - x_41 = lean::alloc_cnstr(0, 2, 0); + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_9; + x_32 = x_9; } -lean::cnstr_set(x_41, 0, x_23); -lean::cnstr_set(x_41, 1, x_26); -return x_41; +lean::cnstr_set(x_32, 0, x_23); +lean::cnstr_set(x_32, 1, x_26); +return x_32; } } else { -obj* x_44; obj* x_45; obj* x_46; +obj* x_35; obj* x_36; obj* x_37; lean::dec(x_10); lean::dec(x_1); -x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__9___rarg(x_0, x_3, x_4, x_16); -x_45 = lean::array_updt(x_7, x_15, x_44); +x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__9___rarg(x_0, x_3, x_4, x_16); +x_36 = lean::array_updt(x_7, x_15, x_35); if (lean::is_scalar(x_9)) { - x_46 = lean::alloc_cnstr(0, 2, 0); + x_37 = lean::alloc_cnstr(0, 2, 0); } else { - x_46 = x_9; + x_37 = x_9; } -lean::cnstr_set(x_46, 0, x_5); -lean::cnstr_set(x_46, 1, x_45); -return x_46; +lean::cnstr_set(x_37, 0, x_5); +lean::cnstr_set(x_37, 1, x_36); +return x_37; } } } @@ -1319,59 +1266,43 @@ lean::cnstr_set(x_25, 1, x_4); lean::cnstr_set(x_25, 2, x_16); x_26 = lean::array_updt(x_7, x_15, x_25); x_27 = lean::nat_dec_le(x_23, x_10); +lean::dec(x_10); if (x_27 == 0) { -obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_38; -x_28 = lean::mk_nat_obj(2ul); -x_29 = lean::nat_mul(x_10, x_28); -lean::dec(x_10); -x_31 = lean::box(0); -x_32 = l_Array_mkArray___rarg(x_29, x_31); -x_33 = lean::alloc_closure(reinterpret_cast(l_HashMapImp_reinsertAux___rarg), 4, 1); -lean::closure_set(x_33, 0, x_1); -x_34 = lean::mk_nat_obj(0ul); -lean::inc(x_26); -x_36 = l_Array_miterateAux___main___at_HashMapImp_foldBuckets___spec__1___rarg(x_26, x_33, x_26, x_34, x_32); -lean::dec(x_26); -if (lean::is_scalar(x_9)) { - x_38 = lean::alloc_cnstr(0, 2, 0); -} else { - x_38 = x_9; -} -lean::cnstr_set(x_38, 0, x_23); -lean::cnstr_set(x_38, 1, x_36); -return x_38; +obj* x_30; +lean::dec(x_9); +x_30 = l_HashMapImp_expand___rarg(x_1, x_23, x_26); +return x_30; } else { -obj* x_41; -lean::dec(x_10); +obj* x_32; lean::dec(x_1); if (lean::is_scalar(x_9)) { - x_41 = lean::alloc_cnstr(0, 2, 0); + x_32 = lean::alloc_cnstr(0, 2, 0); } else { - x_41 = x_9; + x_32 = x_9; } -lean::cnstr_set(x_41, 0, x_23); -lean::cnstr_set(x_41, 1, x_26); -return x_41; +lean::cnstr_set(x_32, 0, x_23); +lean::cnstr_set(x_32, 1, x_26); +return x_32; } } else { -obj* x_44; obj* x_45; obj* x_46; +obj* x_35; obj* x_36; obj* x_37; lean::dec(x_10); lean::dec(x_1); -x_44 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__12___rarg(x_0, x_3, x_4, x_16); -x_45 = lean::array_updt(x_7, x_15, x_44); +x_35 = l_AssocList_replace___main___at_Lean_DisjointSet_merge___main___spec__12___rarg(x_0, x_3, x_4, x_16); +x_36 = lean::array_updt(x_7, x_15, x_35); if (lean::is_scalar(x_9)) { - x_46 = lean::alloc_cnstr(0, 2, 0); + x_37 = lean::alloc_cnstr(0, 2, 0); } else { - x_46 = x_9; + x_37 = x_9; } -lean::cnstr_set(x_46, 0, x_5); -lean::cnstr_set(x_46, 1, x_45); -return x_46; +lean::cnstr_set(x_37, 0, x_5); +lean::cnstr_set(x_37, 1, x_36); +return x_37; } } } diff --git a/src/stage0/init/lean/elaborator.cpp b/src/stage0/init/lean/elaborator.cpp index b88a16a118..5e71d54ce8 100644 --- a/src/stage0/init/lean/elaborator.cpp +++ b/src/stage0/init/lean/elaborator.cpp @@ -16,15 +16,15 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #endif obj* l_List_foldr___main___at_Lean_Elaborator_matchOpenSpec___spec__1___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_currentScope___boxed(obj*, obj*, obj*); +obj* l_RBNode_setBlack___main___rarg(obj*); extern "C" obj* lean_expr_mk_mdata(obj*, obj*); -extern obj* l_Lean_NameMap_contains___rarg___closed__1; obj* l_Lean_Expander_getOptType___main(obj*); obj* l_Option_toMonad___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__1(obj*); obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__1(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_inferModToPexpr___closed__2; obj* l_Lean_Elaborator_notation_elaborate(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2; obj* l_Lean_Elaborator_postprocessNotationSpec___closed__1; -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__2; obj* l_Lean_Elaborator_include_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_precToNat(obj*); @@ -47,19 +47,19 @@ obj* nat_sub(obj*, obj*); } obj* l_List_map___main___at_Lean_Elaborator_toPexpr___main___spec__2(obj*); obj* l_Lean_Elaborator_processCommand(obj*, obj*, obj*); +obj* l_Id_map___boxed(obj*, obj*); obj* l_Lean_Elaborator_toLevel___main___closed__1; obj* l_List_mfilter___main___at_Lean_Elaborator_variables_elaborate___spec__1___boxed(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; obj* l_Lean_Format_pretty(obj*, obj*); obj* l_Lean_Elaborator_mkNotationKind___rarg___closed__1; obj* l_Lean_Elaborator_ElaboratorM_MonadExcept; -obj* l_Lean_Elaborator_attribute_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__6; +obj* l_RBNode_find___main___at_Lean_Elaborator_processCommand___spec__3___boxed(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__21; obj* l_Lean_Elaborator_matchSpec(obj*, obj*); obj* l_Lean_Elaborator_matchOpenSpec(obj*, obj*); obj* l_RBTree_toList___at_Lean_Elaborator_oldElabCommand___spec__1(obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_elaboratorInh(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_empty___rarg(obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__3; @@ -67,16 +67,13 @@ obj* l_List_mfoldl___main___at_Lean_Elaborator_CommandParserConfig_registerNotat obj* l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__16(obj*, obj*); extern obj* l_Lean_Parser_command_namespace; extern obj* l_Lean_Parser_Level_trailing_HasView; -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_lengthAux___main___rarg(obj*, obj*); extern obj* l_Lean_Parser_Level_leading_HasView_x_27___lambda__1___closed__5; obj* l_List_mfoldl___main___at_Lean_Elaborator_CommandParserConfig_registerNotationTokens___spec__1(obj*, obj*); obj* l_Lean_Elaborator_identUnivParamsToPexpr(obj*); obj* l_Lean_Elaborator_OrderedRBMap_ofList___rarg(obj*, obj*); extern obj* l_Lean_Parser_Module_header; -obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__22; -obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_ElaboratorM_MonadState; obj* l_Lean_Elaborator_elaborators; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__2; @@ -86,7 +83,6 @@ obj* l_Lean_Elaborator_resolveContext___main___closed__1; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_section_elaborate(obj*, obj*, obj*, obj*); obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__1___boxed(obj*, obj*, obj*, obj*); -obj* l_Lean_Elaborator_variables_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_reserveNotation_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_processCommand___lambda__1___closed__2; obj* l_Lean_Elaborator_variables_elaborate(obj*, obj*, obj*, obj*); @@ -97,7 +93,6 @@ extern "C" obj* level_mk_mvar(obj*); obj* l_List_foldl___main___at_Lean_Elaborator_include_elaborate___spec__1(obj*, obj*); obj* l_Option_toMonad___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__1___rarg(obj*); extern "C" obj* lean_expr_local(obj*, obj*, obj*, uint8); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___closed__1; extern "C" obj* lean_expr_mk_app(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__3; obj* l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(obj*, obj*); @@ -106,14 +101,12 @@ obj* l_Lean_Elaborator_toPexpr___main___closed__9; extern obj* l_Lean_Parser_command_attribute; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_TokenMap_insert___rarg(obj*, obj*, obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1(obj*); obj* l_List_foldr___main___at_Lean_Elaborator_isOpenNamespace___main___spec__2___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__30; extern "C" obj* lean_expr_mk_let(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_modifyCurrentScope___boxed(obj*, obj*, obj*, obj*); uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); extern obj* l_Lean_Parser_command_variables; @@ -122,10 +115,12 @@ obj* l_Lean_KVMap_setNat(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__4; obj* l_Lean_Elaborator_declModifiersToPexpr___closed__2; obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___rarg(obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Elaborator_mangleIdent___spec__1(obj*, obj*); obj* l_Lean_Parser_Combinators_node___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_inferModToPexpr___closed__3; +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5___boxed(obj*, obj*); obj* l_Lean_Elaborator_elabDefLike___lambda__1(obj*, obj*); obj* l_Lean_Name_toStringWithSep___main(obj*, obj*); obj* l_List_mfilter___main___at_Lean_Elaborator_variables_elaborate___spec__1___lambda__1___boxed(obj*, obj*, obj*, obj*); @@ -146,10 +141,8 @@ obj* l_Lean_Elaborator_command_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__34; obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___boxed(obj*); obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Elaborator_export_elaborate___spec__1(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__45; -obj* l_Lean_Elaborator_toLevel___main___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Options_empty; obj* l_Lean_Elaborator_section_elaborate___closed__2; obj* l_Lean_Elaborator_universe_elaborate___closed__2; @@ -157,6 +150,7 @@ obj* l_Lean_Elaborator_toPexpr___main___closed__1; extern obj* l_Lean_Parser_number_HasView; obj* l_Lean_Elaborator_check_elaborate(obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Elaborator_OrderedRBMap_ofList___spec__1___boxed(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(obj*, obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_empty___rarg___boxed(obj*); obj* l_monadStateTrans___rarg(obj*, obj*); obj* l_Lean_Elaborator_namesToPexpr(obj*); @@ -168,8 +162,8 @@ obj* l_Lean_Elaborator_notation_elaborate___closed__1; obj* l_Lean_Elaborator_mkState___closed__4; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_RBTree_ofList___main___at_Lean_Elaborator_oldElabCommand___spec__3(obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Level_ofNat___main(obj*); +obj* l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(obj*, obj*, obj*); obj* l_Lean_Elaborator_export_elaborate___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_section; obj* l_Lean_Elaborator_toPexpr___main___closed__14; @@ -190,10 +184,10 @@ obj* l_Lean_Parser_Term_binderIdent_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_resolveContext___main___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__18; obj* l_Lean_Elaborator_declModifiersToPexpr___closed__6; +obj* l_RBNode_balance2___main___rarg(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__10; obj* l_ReaderT_read___rarg(obj*, obj*); obj* l_Lean_Elaborator_include_elaborate___lambda__1(obj*, obj*); -obj* l_Lean_Elaborator_simpleBindersToPexpr___boxed(obj*, obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Elaborator_elabDefLike___spec__3(obj*, obj*); obj* l_Lean_Parser_Syntax_asNode___main(obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__44; @@ -201,9 +195,9 @@ obj* l_Lean_Elaborator_levelAdd___main(obj*, obj*); extern obj* l_Lean_Parser_command_end_HasView; obj* l_Lean_Elaborator_attribute_elaborate___closed__2; obj* l_Lean_Elaborator_elaboratorInh___closed__1; -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1; obj* l_List_foldl___main___at_Lean_Elaborator_OrderedRBMap_ofList___spec__1(obj*, obj*); obj* l_Lean_Elaborator_attribute_elaborate(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1___closed__1; obj* l_List_mmap___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__2___closed__4; obj* l_Lean_Elaborator_OrderedRBMap_insert(obj*, obj*); obj* l_fix1___rarg___lambda__1___boxed(obj*, obj*); @@ -212,11 +206,10 @@ extern obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Elaborator_toPexpr___main___closed__27; obj* l_ReaderT_lift___rarg___boxed(obj*, obj*); obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__3(obj*, obj*, obj*); -obj* l_Lean_Elaborator_preresolve___boxed(obj*, obj*, obj*, obj*); obj* l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1(obj*, obj*); obj* l_Lean_Elaborator_Module_header_elaborate(obj*, obj*, obj*, obj*); extern "C" obj* lean_expr_mk_const(obj*, obj*); -obj* l_Lean_Elaborator_toLevel___boxed(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__1; extern "C" obj* level_mk_param(obj*); obj* l_List_enumFrom___main___rarg(obj*, obj*); extern obj* l_Lean_Parser_command_export; @@ -226,12 +219,11 @@ obj* l_Lean_Elaborator_universe_elaborate___lambda__1(obj*, obj*); uint8 l_Lean_Elaborator_isOpenNamespace___main(obj*, obj*); obj* l_ReaderT_Monad___rarg(obj*); obj* l_Lean_Parser_Term_Parser(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2(obj*); obj* l_List_foldl___main___at_Lean_Expr_mkApp___spec__1(obj*, obj*); obj* l_Lean_Elaborator_initQuot_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_resolveContext___main(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__12; -obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__2; -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2___boxed(obj*, obj*); extern obj* l_Lean_Parser_Term_show_HasView; obj* l_List_join___main___rarg(obj*); obj* l_List_mfoldl___main___at_Lean_Elaborator_updateParserConfig___spec__2___boxed(obj*, obj*, obj*, obj*, obj*); @@ -241,9 +233,9 @@ extern obj* l_Lean_Parser_Term_structInstItem_HasView; extern obj* l_Lean_Parser_command_setOption_HasView; obj* l_Lean_Elaborator_Expr_mkAnnotation___closed__1; obj* l_Lean_Elaborator_ElaboratorM_Lean_Parser_MonadRec; +obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1; obj* l_Lean_Elaborator_toPexpr(obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4___boxed(obj*, obj*, obj*, obj*); namespace lean { obj* string_append(obj*, obj*); } @@ -253,6 +245,7 @@ obj* l_Lean_Elaborator_registerNotationMacro(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__20; extern obj* l_Lean_Parser_command_initQuot; obj* l_Lean_KVMap_setName(obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__2; obj* l_Lean_Elaborator_matchSpec___closed__1; extern obj* l_Lean_Parser_command_open_HasView; obj* l_Lean_Elaborator_inferModToPexpr___boxed(obj*); @@ -273,6 +266,7 @@ obj* l_Lean_Elaborator_Declaration_elaborate___closed__3; obj* l_Lean_Elaborator_end_elaborate___closed__3; obj* l_Lean_Elaborator_toPexpr___main___closed__33; obj* l_Lean_Elaborator_notation_elaborate___boxed(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_reserveNotation_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toLevel(obj*, obj*, obj*, obj*); obj* l_Id_Monad___lambda__1___boxed(obj*, obj*, obj*, obj*); @@ -283,24 +277,26 @@ extern obj* l_Lean_Expander_builtinTransformers; obj* l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___boxed(obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__4; extern obj* l_Char_HasRepr___closed__1; +obj* l_List_foldl___main___at_Lean_Elaborator_elaborators___spec__2(obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_noKind; obj* l_Lean_Elaborator_toPexpr___main___closed__39; extern obj* l_Lean_Parser_Term_lambda_HasView; +obj* l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(obj*, obj*, obj*); obj* l_Lean_Elaborator_mkState(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__36; obj* l_List_append___rarg(obj*, obj*); obj* l_Lean_Parser_symbolCore___at_Lean_Parser_command_NotationSpec_precedenceTerm_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Elaborator_preresolve___main___boxed(obj*, obj*, obj*, obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_Lean_Elaborator_oldElabCommand___lambda__1(obj*, obj*); obj* l_Lean_Elaborator_notation_elaborateAux___boxed(obj*, obj*, obj*, obj*); +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5(obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__2___closed__3; obj* l_Lean_Elaborator_isOpenNamespace___main___boxed(obj*, obj*); extern obj* l_Lean_Parser_Module_header_HasView; obj* l_List_spanAux___main___at_Lean_Elaborator_toPexpr___main___spec__4(obj*, obj*); extern obj* l_Lean_Parser_command_setOption; -obj* l_Lean_Elaborator_toPexpr___main___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_mkNotationTransformer(obj*, obj*, obj*); extern obj* l_Lean_Parser_command_notation; obj* l_List_filterMap___main___at_Lean_Elaborator_resolveContext___main___spec__5(obj*, obj*); @@ -311,6 +307,7 @@ obj* l_Lean_Elaborator_matchPrecedence___main___boxed(obj*, obj*); obj* l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Module_eoi; obj* l_Lean_Elaborator_attrsToPexpr(obj*, obj*, obj*, obj*); +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4___boxed(obj*, obj*); obj* l_Lean_Elaborator_elaborateCommand___boxed(obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Elaborator_identUnivParamsToPexpr___spec__1(obj*); namespace lean { @@ -321,12 +318,15 @@ obj* l_Lean_Elaborator_inferModToPexpr(obj*); obj* l_Lean_Elaborator_Expr_mkAnnotation(obj*, obj*); obj* l_StateT_MonadExcept___rarg(obj*, obj*, obj*); obj* l_Lean_Elaborator_Declaration_elaborate___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_section_elaborate___closed__1; obj* l_Lean_Elaborator_currentScope___closed__1; +uint8 l_RBNode_isRed___main___rarg(obj*); obj* l_Lean_Elaborator_OrderedRBMap_ofList(obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__2(obj*); obj* l_Lean_Elaborator_setOption_elaborate___lambda__1(obj*, obj*); obj* l_Lean_Elaborator_noKind_elaborate___closed__1; +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___boxed(obj*); obj* l_Lean_Elaborator_CommandParserConfig_registerNotationTokens(obj*, obj*); obj* l_Lean_Elaborator_updateParserConfig___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__11; @@ -342,7 +342,6 @@ obj* l_Lean_Elaborator_Declaration_elaborate___lambda__2___boxed(obj*, obj*, obj extern obj* l_Lean_Parser_command_Declaration; obj* l_Lean_Parser_Combinators_node___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_universe_elaborate___boxed(obj*, obj*, obj*, obj*); -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3(obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Level_trailing_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Elaborator_OrderedRBMap_find(obj*, obj*); @@ -357,7 +356,7 @@ uint8 string_dec_eq(obj*, obj*); } obj* l_Lean_Elaborator_processCommand___closed__1; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__1; -obj* l_Lean_Elaborator_check_elaborate___boxed(obj*, obj*, obj*, obj*); +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_open; obj* l_Lean_Elaborator_OrderedRBMap_empty___boxed(obj*, obj*); obj* l_Lean_Elaborator_namespace_elaborate(obj*, obj*, obj*, obj*); @@ -369,20 +368,16 @@ obj* l_List_filterMap___main___at_Lean_Elaborator_notation_elaborateAux___spec__ obj* l_Lean_Elaborator_levelAdd___main___boxed(obj*, obj*); extern obj* l_Lean_Parser_Term_app_HasView; obj* l_coe___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; obj* l_List_foldl___main___at_Lean_Elaborator_OrderedRBMap_ofList___spec__1___rarg(obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2___lambda__1(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_open_elaborate___lambda__1(obj*, obj*); uint8 l_Lean_Elaborator_matchPrecedence(obj*, obj*); obj* l_Lean_Elaborator_toLevel___main___closed__2; -obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_projection_HasView; -obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1___boxed(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1___boxed(obj*, obj*, obj*, obj*); extern "C" obj* lean_expr_mk_mvar(obj*, obj*); extern obj* l_Lean_Parser_maxPrec; +obj* l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1(obj*, obj*); extern "C" obj* lean_expr_mk_bvar(obj*); extern "C" obj* lean_elaborator_elaborate_command(obj*, obj*, obj*); obj* l_Lean_Elaborator_setOption_elaborate(obj*, obj*, obj*, obj*); @@ -397,10 +392,9 @@ obj* l_Lean_Elaborator_mkEqns(obj*, obj*); obj* l_Lean_Elaborator_namespace_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_isOpenNamespace___boxed(obj*, obj*); obj* l_String_trim(obj*); +obj* l_Lean_Elaborator_toLevel___main___closed__5; extern obj* l_Lean_Parser_command_universe; obj* l_List_filterMap___main___at_Lean_Elaborator_resolveContext___main___spec__2(obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___boxed(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Name_replacePrefix___main(obj*, obj*, obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__7; @@ -409,7 +403,6 @@ obj* l_Lean_Elaborator_levelGetAppArgs___main___closed__1; obj* l_Lean_Elaborator_toPexpr___main___closed__43; extern obj* l_Lean_Expander_bindingAnnotationUpdate; obj* l_ReaderT_bind___at_Lean_Elaborator_Declaration_elaborate___spec__1___boxed(obj*, obj*); -obj* l_Lean_Elaborator_toPexpr___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_levelAdd___boxed(obj*, obj*); extern obj* l_Lean_Parser_command_namespace_HasView; obj* l_Lean_Elaborator_setOption_elaborate___boxed(obj*, obj*, obj*, obj*); @@ -421,11 +414,13 @@ obj* l_Lean_Elaborator_levelGetAppArgs___main___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_namespace_elaborate___closed__1; obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__4___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_mkState___closed__1; -obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_modifyCurrentScope___closed__1; +uint8 l_Lean_Name_quickLt(obj*, obj*); obj* l_ReaderT_MonadExcept___rarg(obj*); +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4(obj*, obj*); obj* l_List_map___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__3(obj*); obj* l_Lean_Elaborator_getNamespace___boxed(obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_universe_HasView; extern "C" obj* lean_name_mk_numeral(obj*, obj*); obj* l_Lean_Elaborator_OrderedRBMap_insert___rarg(obj*, obj*, obj*, obj*); @@ -456,11 +451,11 @@ obj* l_Lean_Elaborator_toPexpr___main___closed__26; obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Level_leading_HasView; obj* l_Lean_Elaborator_eoi_elaborate___boxed(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_KVMap_setString(obj*, obj*, obj*); obj* l_Lean_Elaborator_CommandParserConfig_registerNotationParser___closed__1; obj* l_Lean_Parser_RecT_recurse___rarg(obj*, obj*); obj* l_Lean_Elaborator_notation_elaborate___lambda__1(obj*, obj*); -obj* l_Lean_Elaborator_elabDefLike___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern "C" uint8 lean_environment_contains(obj*, obj*); obj* l_ExceptT_Monad___rarg(obj*); extern obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; @@ -474,6 +469,7 @@ obj* l_Lean_Elaborator_variables_elaborate___closed__2; obj* l_Lean_Elaborator_processCommand___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_KVMap_insertCore___main(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__16; +obj* l_RBNode_balance1___main___rarg(obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__35; obj* l_Lean_Elaborator_toPexpr___main___closed__7; namespace lean { @@ -481,24 +477,26 @@ uint32 uint32_of_nat(obj*); } obj* l_Lean_Elaborator_Module_header_elaborate___closed__1; extern obj* l_Lean_Name_toString___closed__1; -obj* l_Lean_Elaborator_declModifiersToPexpr___boxed(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_updateParserConfig(obj*, obj*, obj*); obj* l_Lean_Elaborator_ElaboratorM_MonadReader; obj* l_Lean_Elaborator_toPexpr___main___closed__41; obj* l_Lean_Elaborator_toPexpr___main___closed__25; obj* l_Lean_Elaborator_attribute_elaborate___closed__1; +extern obj* l_List_mmap___main___rarg___closed__1; +obj* l_RBNode_find___main___at_Lean_Elaborator_processCommand___spec__3(obj*, obj*); obj* l_Lean_Elaborator_matchPrecedence___boxed(obj*, obj*); obj* l_List_map___main___at_Lean_Elaborator_mkEqns___spec__1(obj*, obj*); extern "C" obj* lean_expr_mk_lambda(obj*, uint8, obj*, obj*); obj* l_Lean_Elaborator_end_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Syntax_kind___main(obj*); obj* l_Lean_Elaborator_elabDefLike___closed__2; +obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__1; +obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__3(obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__2___closed__5; obj* l_Lean_Elaborator_variables_elaborate___closed__1; obj* l_Lean_Elaborator_modifyCurrentScope(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_elaboratorInh___boxed(obj*, obj*, obj*, obj*); -obj* l_RBMap_fromList___rarg(obj*, obj*); obj* l_Lean_Elaborator_export_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__5; obj* l_List_mfoldl___main___at_Lean_Elaborator_updateParserConfig___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); @@ -506,32 +504,31 @@ obj* l_List_mfoldl___main___at_Lean_Elaborator_updateParserConfig___spec__1(obj* obj* l_Lean_Elaborator_ElaboratorM_Monad; obj* l_Lean_Elaborator_levelAdd(obj*, obj*); obj* l_Lean_Elaborator_eoi_elaborate(obj*, obj*, obj*, obj*); +obj* l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___boxed(obj*, obj*); obj* l_Lean_Elaborator_noKind_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_Module_header_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__6___boxed(obj*, obj*, obj*); obj* l_Lean_FileMap_toPosition(obj*, obj*); -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2(obj*, obj*); extern obj* l_Lean_Parser_stringLit_HasView; obj* l_Lean_Elaborator_toLevel___main(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_currentScope(obj*, obj*, obj*); obj* l_Option_toMonad___main___at_Lean_Elaborator_CommandParserConfig_registerNotationParser___spec__1___boxed(obj*); extern obj* l_Lean_Parser_Term_inaccessible_HasView; obj* l_Lean_Elaborator_precToNat___main(obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_include_elaborate___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__1(obj*); obj* l_Lean_Elaborator_declModifiersToPexpr___closed__1; obj* l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_registerNotationMacro___boxed(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_match_HasView; obj* l_Lean_Parser_Term_getLeading___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_mkNotationKind___rarg(obj*); obj* l_Lean_Elaborator_elaboratorConfigCoeFrontendConfig___boxed(obj*); obj* l_Lean_Expr_local___boxed(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Substring_ofString(obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_Declaration_elaborate___closed__1; extern obj* l_Lean_Parser_command_Declaration_HasView; obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__4(obj*, obj*, obj*); @@ -541,9 +538,8 @@ extern obj* l_Lean_Parser_Term_sort_HasView; obj* l_Lean_Elaborator_resolveContext(obj*, obj*, obj*, obj*); obj* l_List_filterAux___main___at_Lean_Elaborator_resolveContext___main___spec__3___boxed(obj*, obj*, obj*); obj* l_Lean_Elaborator_toPexpr___main___closed__23; -obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__1; obj* l_ReaderT_lift___boxed(obj*, obj*, obj*, obj*); -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3___boxed(obj*, obj*); +obj* l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_identUnivs_HasView; obj* l_Lean_Elaborator_Declaration_elaborate___closed__2; obj* l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*); @@ -552,13 +548,12 @@ extern obj* l_Lean_Parser_command_reserveNotation; obj* l_Lean_Name_append___main(obj*, obj*); obj* l_Lean_Elaborator_check_elaborate___closed__1; obj* l_List_mfilter___main___at_Lean_Elaborator_variables_elaborate___spec__1(obj*, obj*, obj*, obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17___boxed(obj*, obj*, obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7___boxed(obj*, obj*); obj* l_List_zip___rarg___lambda__1(obj*, obj*); obj* l_List_foldr___main___at_Lean_Elaborator_notation_elaborate___spec__1___boxed(obj*, obj*); obj* l_List_mfilter___main___at_Lean_Elaborator_variables_elaborate___spec__1___lambda__1(obj*, uint8, obj*, obj*); uint8 l_Lean_Elaborator_matchPrecedence___main(obj*, obj*); -obj* l_Lean_Elaborator_attrsToPexpr___boxed(obj*, obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_mkState___closed__2; obj* l_Lean_Elaborator_initQuot_elaborate___closed__1; obj* l_Lean_Parser_Syntax_toFormat___main(obj*); @@ -571,10 +566,10 @@ obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(obj*, obj obj* l_Lean_Elaborator_universe_elaborate(obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_CommandParserConfig_registerNotationParser(obj*, obj*, obj*); extern "C" obj* lean_expr_mk_lit(obj*); -obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Elaborator_notation_elaborateAux___closed__1; obj* l_Lean_Elaborator_getNamespace(obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_let_HasView; +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_View_toNat___main(obj*); extern "C" obj* level_mk_max(obj*, obj*); obj* l_Lean_Parser_Term_binders_Parser(obj*, obj*, obj*, obj*, obj*); @@ -664,35 +659,49 @@ return x_2; obj* l_Lean_Elaborator_OrderedRBMap_insert___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_6; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; +obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_12; obj* x_13; obj* x_16; obj* x_17; uint8 x_18; +x_4 = lean::cnstr_get(x_1, 1); +lean::inc(x_4); +x_6 = lean::cnstr_get(x_1, 2); +lean::inc(x_6); +x_8 = lean::mk_nat_obj(1ul); +x_9 = lean::nat_add(x_6, x_8); lean::inc(x_3); lean::inc(x_2); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_2); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::cnstr_get(x_1, 0); -lean::inc(x_7); -x_9 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_9, 0, x_6); -lean::cnstr_set(x_9, 1, x_7); -x_10 = lean::cnstr_get(x_1, 1); -lean::inc(x_10); -x_12 = lean::cnstr_get(x_1, 2); -lean::inc(x_12); +x_12 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_12, 0, x_2); +lean::cnstr_set(x_12, 1, x_3); +x_13 = lean::cnstr_get(x_1, 0); +lean::inc(x_13); lean::dec(x_1); -lean::inc(x_12); -x_16 = lean::alloc_cnstr(0, 2, 0); +x_16 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_16, 0, x_12); -lean::cnstr_set(x_16, 1, x_3); -x_17 = l_RBNode_insert___rarg(x_0, x_10, x_2, x_16); -x_18 = lean::mk_nat_obj(1ul); -x_19 = lean::nat_add(x_12, x_18); -lean::dec(x_12); -x_21 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_21, 0, x_9); -lean::cnstr_set(x_21, 1, x_17); -lean::cnstr_set(x_21, 2, x_19); -return x_21; +lean::cnstr_set(x_16, 1, x_13); +x_17 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_17, 0, x_6); +lean::cnstr_set(x_17, 1, x_3); +x_18 = l_RBNode_isRed___main___rarg(x_4); +if (x_18 == 0) +{ +obj* x_19; obj* x_20; +x_19 = l_RBNode_ins___main___rarg(x_0, x_4, x_2, x_17); +x_20 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_20, 0, x_16); +lean::cnstr_set(x_20, 1, x_19); +lean::cnstr_set(x_20, 2, x_9); +return x_20; +} +else +{ +obj* x_21; obj* x_22; obj* x_23; +x_21 = l_RBNode_ins___main___rarg(x_0, x_4, x_2, x_17); +x_22 = l_RBNode_setBlack___main___rarg(x_21); +x_23 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_23, 0, x_16); +lean::cnstr_set(x_23, 1, x_22); +lean::cnstr_set(x_23, 2, x_9); +return x_23; +} } } obj* l_Lean_Elaborator_OrderedRBMap_insert(obj* x_0, obj* x_1) { @@ -837,20 +846,20 @@ return x_1; obj* _init_l_Lean_Elaborator_ElaboratorM_Monad() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -875,20 +884,20 @@ return x_0; obj* _init_l_Lean_Elaborator_ElaboratorM_MonadReader() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -907,20 +916,20 @@ return x_13; obj* _init_l_Lean_Elaborator_ElaboratorM_MonadState() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -949,20 +958,20 @@ return x_19; obj* _init_l_Lean_Elaborator_ElaboratorM_MonadExcept() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1609,141 +1618,220 @@ lean::dec(x_1); return x_2; } } -obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = lean::apply_3(x_1, x_2, x_3, x_4); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_7; obj* x_9; obj* x_10; +lean::dec(x_0); +x_7 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_9 = x_5; +} else { + lean::inc(x_7); + lean::dec(x_5); + x_9 = lean::box(0); +} +if (lean::is_scalar(x_9)) { + x_10 = lean::alloc_cnstr(0, 1, 0); +} else { + x_10 = x_9; +} +lean::cnstr_set(x_10, 0, x_7); +return x_10; +} +else +{ +obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +x_11 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_13 = x_5; +} else { + lean::inc(x_11); + lean::dec(x_5); + x_13 = lean::box(0); +} +x_14 = lean::cnstr_get(x_11, 0); +x_16 = lean::cnstr_get(x_11, 1); +if (lean::is_exclusive(x_11)) { + x_18 = x_11; +} else { + lean::inc(x_14); + lean::inc(x_16); + lean::dec(x_11); + x_18 = lean::box(0); +} +x_19 = lean::apply_1(x_0, x_14); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(0, 2, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_16); +if (lean::is_scalar(x_13)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_13; +} +lean::cnstr_set(x_21, 0, x_20); +return x_21; +} +} +} +obj* l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg), 5, 0); +return x_2; +} +} +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_5; +x_4 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_3); +x_5 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_5, 0, x_4); +return x_5; +} +} +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg___boxed), 4, 0); +return x_1; +} +} +obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_14; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_toLevel___main), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_14 = l_Lean_Elaborator_toLevel___main(x_8, x_1, x_2, x_3); -if (lean::obj_tag(x_14) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_18; obj* x_20; obj* x_21; +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_18 = lean::cnstr_get(x_14, 0); -if (lean::is_exclusive(x_14)) { - x_20 = x_14; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { - lean::inc(x_18); - lean::dec(x_14); - x_20 = lean::box(0); + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); } -if (lean::is_scalar(x_20)) { - x_21 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_21 = x_20; + x_24 = x_23; } -lean::cnstr_set(x_21, 0, x_18); -return x_21; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_22; obj* x_25; obj* x_27; obj* x_30; -x_22 = lean::cnstr_get(x_14, 0); -lean::inc(x_22); -lean::dec(x_14); -x_25 = lean::cnstr_get(x_22, 0); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -x_27 = lean::cnstr_get(x_22, 1); -lean::inc(x_27); -lean::dec(x_22); -x_30 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1(x_10, x_1, x_2, x_27); -if (lean::obj_tag(x_30) == 0) -{ -obj* x_33; obj* x_35; obj* x_36; -lean::dec(x_12); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); lean::dec(x_25); -x_33 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_35 = x_30; +x_33 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__3(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) +{ +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_33); - lean::dec(x_30); - x_35 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_36 = x_35; + x_38 = x_37; } -lean::cnstr_set(x_36, 0, x_33); -return x_36; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_37 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_39 = x_30; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { - lean::inc(x_37); - lean::dec(x_30); - x_39 = lean::box(0); + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); } -x_40 = lean::cnstr_get(x_37, 0); -x_42 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_44 = x_37; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_40); lean::inc(x_42); - lean::dec(x_37); - x_44 = lean::box(0); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_12)) { - x_45 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_12; + x_48 = x_46; } -lean::cnstr_set(x_45, 0, x_25); -lean::cnstr_set(x_45, 1, x_40); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_46 = x_44; + x_49 = x_41; } -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_42); -if (lean::is_scalar(x_39)) { - x_47 = lean::alloc_cnstr(1, 1, 0); -} else { - x_47 = x_39; -} -lean::cnstr_set(x_47, 0, x_46); -return x_47; +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } } } -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2(obj* x_0, obj* x_1) { +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4(obj* x_0, obj* x_1) { _start: { if (lean::obj_tag(x_1) == 0) @@ -1759,13 +1847,13 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_1, 1); lean::inc(x_5); lean::dec(x_1); -x_8 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2(x_0, x_5); +x_8 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4(x_0, x_5); x_9 = level_mk_max(x_3, x_8); return x_9; } } } -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3(obj* x_0, obj* x_1) { +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5(obj* x_0, obj* x_1) { _start: { if (lean::obj_tag(x_1) == 0) @@ -1781,7 +1869,7 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_1, 1); lean::inc(x_5); lean::dec(x_1); -x_8 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3(x_0, x_5); +x_8 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5(x_0, x_5); x_9 = level_mk_imax(x_3, x_8); return x_9; } @@ -1816,6 +1904,14 @@ obj* _init_l_Lean_Elaborator_toLevel___main___closed__4() { _start: { obj* x_0; +x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); +return x_0; +} +} +obj* _init_l_Lean_Elaborator_toLevel___main___closed__5() { +_start: +{ +obj* x_0; x_0 = lean::mk_string("unknown universe variable '"); return x_0; } @@ -1829,787 +1925,818 @@ lean::inc(x_0); x_6 = l_Lean_Elaborator_levelGetAppArgs___main(x_0, x_1, x_2, x_3); if (lean::obj_tag(x_6) == 0) { -obj* x_9; obj* x_11; obj* x_12; +obj* x_10; obj* x_12; obj* x_13; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_9 = lean::cnstr_get(x_6, 0); +x_10 = lean::cnstr_get(x_6, 0); if (lean::is_exclusive(x_6)) { - x_11 = x_6; + x_12 = x_6; } else { - lean::inc(x_9); + lean::inc(x_10); lean::dec(x_6); - x_11 = lean::box(0); + x_12 = lean::box(0); } -if (lean::is_scalar(x_11)) { - x_12 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_12)) { + x_13 = lean::alloc_cnstr(0, 1, 0); } else { - x_12 = x_11; + x_13 = x_12; } -lean::cnstr_set(x_12, 0, x_9); -return x_12; +lean::cnstr_set(x_13, 0, x_10); +return x_13; } else { -obj* x_13; obj* x_16; obj* x_18; obj* x_21; obj* x_23; obj* x_27; -x_13 = lean::cnstr_get(x_6, 0); -lean::inc(x_13); +obj* x_14; obj* x_17; obj* x_19; obj* x_22; obj* x_24; obj* x_28; +x_14 = lean::cnstr_get(x_6, 0); +lean::inc(x_14); lean::dec(x_6); -x_16 = lean::cnstr_get(x_13, 0); -lean::inc(x_16); -x_18 = lean::cnstr_get(x_13, 1); -lean::inc(x_18); -lean::dec(x_13); -x_21 = lean::cnstr_get(x_16, 0); -lean::inc(x_21); -x_23 = lean::cnstr_get(x_16, 1); -lean::inc(x_23); -lean::dec(x_16); +x_17 = lean::cnstr_get(x_14, 0); +lean::inc(x_17); +x_19 = lean::cnstr_get(x_14, 1); +lean::inc(x_19); +lean::dec(x_14); +x_22 = lean::cnstr_get(x_17, 0); +lean::inc(x_22); +x_24 = lean::cnstr_get(x_17, 1); +lean::inc(x_24); +lean::dec(x_17); lean::inc(x_2); -x_27 = l_Lean_Elaborator_currentScope(x_1, x_2, x_18); -if (lean::obj_tag(x_27) == 0) +x_28 = l_Lean_Elaborator_currentScope(x_1, x_2, x_19); +if (lean::obj_tag(x_28) == 0) { -obj* x_32; obj* x_34; obj* x_35; +obj* x_34; obj* x_36; obj* x_37; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_21); -lean::dec(x_23); -x_32 = lean::cnstr_get(x_27, 0); -if (lean::is_exclusive(x_27)) { - x_34 = x_27; +lean::dec(x_22); +lean::dec(x_24); +x_34 = lean::cnstr_get(x_28, 0); +if (lean::is_exclusive(x_28)) { + x_36 = x_28; } else { - lean::inc(x_32); - lean::dec(x_27); - x_34 = lean::box(0); + lean::inc(x_34); + lean::dec(x_28); + x_36 = lean::box(0); } -if (lean::is_scalar(x_34)) { - x_35 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_36)) { + x_37 = lean::alloc_cnstr(0, 1, 0); } else { - x_35 = x_34; + x_37 = x_36; } -lean::cnstr_set(x_35, 0, x_32); -return x_35; +lean::cnstr_set(x_37, 0, x_34); +return x_37; } else { -obj* x_36; obj* x_38; obj* x_39; obj* x_41; obj* x_43; obj* x_45; -x_36 = lean::cnstr_get(x_27, 0); -if (lean::is_exclusive(x_27)) { - lean::cnstr_set(x_27, 0, lean::box(0)); - x_38 = x_27; +obj* x_38; obj* x_40; obj* x_41; obj* x_43; obj* x_45; obj* x_47; +x_38 = lean::cnstr_get(x_28, 0); +if (lean::is_exclusive(x_28)) { + lean::cnstr_set(x_28, 0, lean::box(0)); + x_40 = x_28; } else { - lean::inc(x_36); - lean::dec(x_27); - x_38 = lean::box(0); + lean::inc(x_38); + lean::dec(x_28); + x_40 = lean::box(0); } -x_39 = lean::cnstr_get(x_36, 0); -x_41 = lean::cnstr_get(x_36, 1); -if (lean::is_exclusive(x_36)) { - lean::cnstr_set(x_36, 0, lean::box(0)); - lean::cnstr_set(x_36, 1, lean::box(0)); - x_43 = x_36; +x_41 = lean::cnstr_get(x_38, 0); +x_43 = lean::cnstr_get(x_38, 1); +if (lean::is_exclusive(x_38)) { + lean::cnstr_set(x_38, 0, lean::box(0)); + lean::cnstr_set(x_38, 1, lean::box(0)); + x_45 = x_38; } else { - lean::inc(x_39); lean::inc(x_41); - lean::dec(x_36); - x_43 = lean::box(0); + lean::inc(x_43); + lean::dec(x_38); + x_45 = lean::box(0); } -lean::inc(x_21); -x_45 = l_Lean_Parser_Syntax_kind___main(x_21); -if (lean::obj_tag(x_45) == 0) +lean::inc(x_22); +x_47 = l_Lean_Parser_Syntax_kind___main(x_22); +if (lean::obj_tag(x_47) == 0) { -obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; -lean::dec(x_21); -lean::dec(x_23); -lean::dec(x_38); -lean::dec(x_39); -lean::dec(x_43); -lean::inc(x_0); -x_52 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_52, 0, x_0); -x_53 = l_Lean_Parser_Syntax_toFormat___main(x_0); -x_54 = l_Lean_Options_empty; -x_55 = l_Lean_Format_pretty(x_53, x_54); -x_56 = l_Lean_Elaborator_toLevel___main___closed__1; -x_57 = lean::string_append(x_56, x_55); -lean::dec(x_55); -x_59 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_52, x_57, x_1, x_2, x_41); +obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_61; +lean::dec(x_22); +lean::dec(x_24); +lean::dec(x_40); lean::dec(x_41); -lean::dec(x_52); -return x_59; +lean::dec(x_45); +lean::inc(x_0); +x_54 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_54, 0, x_0); +x_55 = l_Lean_Parser_Syntax_toFormat___main(x_0); +x_56 = l_Lean_Options_empty; +x_57 = l_Lean_Format_pretty(x_55, x_56); +x_58 = l_Lean_Elaborator_toLevel___main___closed__1; +x_59 = lean::string_append(x_58, x_57); +lean::dec(x_57); +x_61 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_54, x_59, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_54); +return x_61; } else { -obj* x_62; obj* x_64; obj* x_65; uint8 x_66; -x_62 = lean::cnstr_get(x_45, 0); -if (lean::is_exclusive(x_45)) { - lean::cnstr_set(x_45, 0, lean::box(0)); - x_64 = x_45; +obj* x_65; obj* x_67; obj* x_68; uint8 x_69; +x_65 = lean::cnstr_get(x_47, 0); +if (lean::is_exclusive(x_47)) { + lean::cnstr_set(x_47, 0, lean::box(0)); + x_67 = x_47; } else { - lean::inc(x_62); - lean::dec(x_45); - x_64 = lean::box(0); + lean::inc(x_65); + lean::dec(x_47); + x_67 = lean::box(0); } -x_65 = l_Lean_Parser_Level_leading_HasView_x_27___lambda__1___closed__5; -x_66 = lean_name_dec_eq(x_62, x_65); -if (x_66 == 0) +x_68 = l_Lean_Parser_Level_leading_HasView_x_27___lambda__1___closed__5; +x_69 = lean_name_dec_eq(x_65, x_68); +if (x_69 == 0) { -obj* x_70; uint8 x_71; -lean::dec(x_38); -lean::dec(x_39); -lean::dec(x_43); -x_70 = l_Lean_Parser_Level_trailing_HasView_x_27___lambda__1___closed__2; -x_71 = lean_name_dec_eq(x_62, x_70); -lean::dec(x_62); -if (x_71 == 0) +obj* x_73; uint8 x_74; +lean::dec(x_40); +lean::dec(x_41); +lean::dec(x_45); +x_73 = l_Lean_Parser_Level_trailing_HasView_x_27___lambda__1___closed__2; +x_74 = lean_name_dec_eq(x_65, x_73); +lean::dec(x_65); +if (x_74 == 0) { -obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_83; -lean::dec(x_21); -lean::dec(x_23); +obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; +lean::dec(x_22); +lean::dec(x_24); lean::inc(x_0); -if (lean::is_scalar(x_64)) { - x_76 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_67)) { + x_79 = lean::alloc_cnstr(1, 1, 0); } else { - x_76 = x_64; + x_79 = x_67; } -lean::cnstr_set(x_76, 0, x_0); -x_77 = l_Lean_Parser_Syntax_toFormat___main(x_0); -x_78 = l_Lean_Options_empty; -x_79 = l_Lean_Format_pretty(x_77, x_78); -x_80 = l_Lean_Elaborator_toLevel___main___closed__1; -x_81 = lean::string_append(x_80, x_79); +lean::cnstr_set(x_79, 0, x_0); +x_80 = l_Lean_Parser_Syntax_toFormat___main(x_0); +x_81 = l_Lean_Options_empty; +x_82 = l_Lean_Format_pretty(x_80, x_81); +x_83 = l_Lean_Elaborator_toLevel___main___closed__1; +x_84 = lean::string_append(x_83, x_82); +lean::dec(x_82); +x_86 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_79, x_84, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); lean::dec(x_79); -x_83 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_76, x_81, x_1, x_2, x_41); -lean::dec(x_41); -lean::dec(x_76); -return x_83; +return x_86; } else { -obj* x_86; obj* x_87; obj* x_90; -x_86 = l_Lean_Parser_Level_trailing_HasView; -x_87 = lean::cnstr_get(x_86, 0); -lean::inc(x_87); -lean::dec(x_86); -x_90 = lean::apply_1(x_87, x_21); -if (lean::obj_tag(x_90) == 0) -{ -obj* x_93; obj* x_94; obj* x_95; +obj* x_90; obj* x_91; obj* x_94; +x_90 = l_Lean_Parser_Level_trailing_HasView; +x_91 = lean::cnstr_get(x_90, 0); +lean::inc(x_91); lean::dec(x_90); -lean::dec(x_23); -if (lean::is_scalar(x_64)) { - x_93 = lean::alloc_cnstr(1, 1, 0); +x_94 = lean::apply_1(x_91, x_22); +if (lean::obj_tag(x_94) == 0) +{ +obj* x_97; obj* x_98; obj* x_99; +lean::dec(x_94); +lean::dec(x_24); +if (lean::is_scalar(x_67)) { + x_97 = lean::alloc_cnstr(1, 1, 0); } else { - x_93 = x_64; + x_97 = x_67; } -lean::cnstr_set(x_93, 0, x_0); -x_94 = l_Lean_Elaborator_toLevel___main___closed__2; -x_95 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_93, x_94, x_1, x_2, x_41); -lean::dec(x_41); -lean::dec(x_93); -return x_95; +lean::cnstr_set(x_97, 0, x_0); +x_98 = l_Lean_Elaborator_toLevel___main___closed__2; +x_99 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_97, x_98, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_97); +return x_99; } else { -if (lean::obj_tag(x_23) == 0) +if (lean::obj_tag(x_24) == 0) { -obj* x_100; obj* x_103; obj* x_105; -lean::dec(x_64); +obj* x_105; obj* x_108; obj* x_110; lean::dec(x_0); -x_100 = lean::cnstr_get(x_90, 0); -lean::inc(x_100); -lean::dec(x_90); -x_103 = lean::cnstr_get(x_100, 0); -lean::inc(x_103); -x_105 = l_Lean_Elaborator_toLevel___main(x_103, x_1, x_2, x_41); -if (lean::obj_tag(x_105) == 0) +lean::dec(x_67); +x_105 = lean::cnstr_get(x_94, 0); +lean::inc(x_105); +lean::dec(x_94); +x_108 = lean::cnstr_get(x_105, 0); +lean::inc(x_108); +x_110 = l_Lean_Elaborator_toLevel___main(x_108, x_1, x_2, x_43); +if (lean::obj_tag(x_110) == 0) { -obj* x_107; obj* x_109; obj* x_110; -lean::dec(x_100); -x_107 = lean::cnstr_get(x_105, 0); -if (lean::is_exclusive(x_105)) { - x_109 = x_105; +obj* x_112; obj* x_114; obj* x_115; +lean::dec(x_105); +x_112 = lean::cnstr_get(x_110, 0); +if (lean::is_exclusive(x_110)) { + x_114 = x_110; } else { - lean::inc(x_107); - lean::dec(x_105); - x_109 = lean::box(0); + lean::inc(x_112); + lean::dec(x_110); + x_114 = lean::box(0); } -if (lean::is_scalar(x_109)) { - x_110 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_114)) { + x_115 = lean::alloc_cnstr(0, 1, 0); } else { - x_110 = x_109; + x_115 = x_114; } -lean::cnstr_set(x_110, 0, x_107); -return x_110; +lean::cnstr_set(x_115, 0, x_112); +return x_115; } else { -obj* x_111; obj* x_113; obj* x_114; obj* x_116; obj* x_118; obj* x_119; obj* x_122; obj* x_123; obj* x_126; obj* x_127; -x_111 = lean::cnstr_get(x_105, 0); -if (lean::is_exclusive(x_105)) { - x_113 = x_105; +obj* x_116; obj* x_118; obj* x_119; obj* x_121; obj* x_123; obj* x_124; obj* x_127; obj* x_128; obj* x_131; obj* x_132; +x_116 = lean::cnstr_get(x_110, 0); +if (lean::is_exclusive(x_110)) { + x_118 = x_110; } else { - lean::inc(x_111); - lean::dec(x_105); - x_113 = lean::box(0); -} -x_114 = lean::cnstr_get(x_111, 0); -x_116 = lean::cnstr_get(x_111, 1); -if (lean::is_exclusive(x_111)) { - x_118 = x_111; -} else { - lean::inc(x_114); lean::inc(x_116); - lean::dec(x_111); + lean::dec(x_110); x_118 = lean::box(0); } -x_119 = lean::cnstr_get(x_100, 2); -lean::inc(x_119); -lean::dec(x_100); -x_122 = l_Lean_Parser_number_View_toNat___main(x_119); -x_123 = l_Lean_Elaborator_levelAdd___main(x_114, x_122); -lean::dec(x_122); -lean::dec(x_114); +x_119 = lean::cnstr_get(x_116, 0); +x_121 = lean::cnstr_get(x_116, 1); +if (lean::is_exclusive(x_116)) { + x_123 = x_116; +} else { + lean::inc(x_119); + lean::inc(x_121); + lean::dec(x_116); + x_123 = lean::box(0); +} +x_124 = lean::cnstr_get(x_105, 2); +lean::inc(x_124); +lean::dec(x_105); +x_127 = l_Lean_Parser_number_View_toNat___main(x_124); +x_128 = l_Lean_Elaborator_levelAdd___main(x_119, x_127); +lean::dec(x_127); +lean::dec(x_119); +if (lean::is_scalar(x_123)) { + x_131 = lean::alloc_cnstr(0, 2, 0); +} else { + x_131 = x_123; +} +lean::cnstr_set(x_131, 0, x_128); +lean::cnstr_set(x_131, 1, x_121); if (lean::is_scalar(x_118)) { - x_126 = lean::alloc_cnstr(0, 2, 0); + x_132 = lean::alloc_cnstr(1, 1, 0); } else { - x_126 = x_118; + x_132 = x_118; } -lean::cnstr_set(x_126, 0, x_123); -lean::cnstr_set(x_126, 1, x_116); -if (lean::is_scalar(x_113)) { - x_127 = lean::alloc_cnstr(1, 1, 0); -} else { - x_127 = x_113; -} -lean::cnstr_set(x_127, 0, x_126); -return x_127; -} -} -else -{ -obj* x_130; obj* x_131; obj* x_132; -lean::dec(x_90); -lean::dec(x_23); -if (lean::is_scalar(x_64)) { - x_130 = lean::alloc_cnstr(1, 1, 0); -} else { - x_130 = x_64; -} -lean::cnstr_set(x_130, 0, x_0); -x_131 = l_Lean_Elaborator_toLevel___main___closed__2; -x_132 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_130, x_131, x_1, x_2, x_41); -lean::dec(x_41); -lean::dec(x_130); +lean::cnstr_set(x_132, 0, x_131); return x_132; } } +else +{ +obj* x_135; obj* x_136; obj* x_137; +lean::dec(x_94); +lean::dec(x_24); +if (lean::is_scalar(x_67)) { + x_135 = lean::alloc_cnstr(1, 1, 0); +} else { + x_135 = x_67; +} +lean::cnstr_set(x_135, 0, x_0); +x_136 = l_Lean_Elaborator_toLevel___main___closed__2; +x_137 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_135, x_136, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_135); +return x_137; +} +} } } else { -obj* x_136; obj* x_137; obj* x_140; -lean::dec(x_62); -x_136 = l_Lean_Parser_Level_leading_HasView; -x_137 = lean::cnstr_get(x_136, 0); -lean::inc(x_137); -lean::dec(x_136); -x_140 = lean::apply_1(x_137, x_21); -switch (lean::obj_tag(x_140)) { +obj* x_142; obj* x_143; obj* x_146; +lean::dec(x_65); +x_142 = l_Lean_Parser_Level_leading_HasView; +x_143 = lean::cnstr_get(x_142, 0); +lean::inc(x_143); +lean::dec(x_142); +x_146 = lean::apply_1(x_143, x_22); +switch (lean::obj_tag(x_146)) { case 0: { -lean::dec(x_38); -lean::dec(x_39); -lean::dec(x_43); -lean::dec(x_140); -if (lean::obj_tag(x_23) == 0) -{ -obj* x_145; obj* x_146; obj* x_147; -if (lean::is_scalar(x_64)) { - x_145 = lean::alloc_cnstr(1, 1, 0); -} else { - x_145 = x_64; -} -lean::cnstr_set(x_145, 0, x_0); -x_146 = l_Lean_Elaborator_toLevel___main___closed__2; -x_147 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_145, x_146, x_1, x_2, x_41); +lean::dec(x_40); lean::dec(x_41); -lean::dec(x_145); -return x_147; +lean::dec(x_45); +lean::dec(x_146); +if (lean::obj_tag(x_24) == 0) +{ +obj* x_151; obj* x_152; obj* x_153; +if (lean::is_scalar(x_67)) { + x_151 = lean::alloc_cnstr(1, 1, 0); +} else { + x_151 = x_67; +} +lean::cnstr_set(x_151, 0, x_0); +x_152 = l_Lean_Elaborator_toLevel___main___closed__2; +x_153 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_151, x_152, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_151); +return x_153; } else { -obj* x_152; obj* x_154; obj* x_158; -lean::dec(x_64); +obj* x_159; obj* x_161; obj* x_166; lean::dec(x_0); -x_152 = lean::cnstr_get(x_23, 0); -lean::inc(x_152); -x_154 = lean::cnstr_get(x_23, 1); -lean::inc(x_154); -lean::dec(x_23); +lean::dec(x_67); +x_159 = lean::cnstr_get(x_24, 0); +lean::inc(x_159); +x_161 = lean::cnstr_get(x_24, 1); +lean::inc(x_161); +lean::dec(x_24); lean::inc(x_2); -x_158 = l_Lean_Elaborator_toLevel___main(x_152, x_1, x_2, x_41); -if (lean::obj_tag(x_158) == 0) +lean::inc(x_1); +x_166 = l_Lean_Elaborator_toLevel___main(x_159, x_1, x_2, x_43); +if (lean::obj_tag(x_166) == 0) { -obj* x_161; obj* x_163; obj* x_164; -lean::dec(x_154); +obj* x_170; obj* x_172; obj* x_173; +lean::dec(x_161); +lean::dec(x_1); lean::dec(x_2); -x_161 = lean::cnstr_get(x_158, 0); -if (lean::is_exclusive(x_158)) { - x_163 = x_158; +x_170 = lean::cnstr_get(x_166, 0); +if (lean::is_exclusive(x_166)) { + x_172 = x_166; } else { - lean::inc(x_161); - lean::dec(x_158); - x_163 = lean::box(0); + lean::inc(x_170); + lean::dec(x_166); + x_172 = lean::box(0); } -if (lean::is_scalar(x_163)) { - x_164 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_172)) { + x_173 = lean::alloc_cnstr(0, 1, 0); } else { - x_164 = x_163; + x_173 = x_172; } -lean::cnstr_set(x_164, 0, x_161); -return x_164; +lean::cnstr_set(x_173, 0, x_170); +return x_173; } else { -obj* x_165; obj* x_168; obj* x_170; obj* x_173; -x_165 = lean::cnstr_get(x_158, 0); -lean::inc(x_165); -lean::dec(x_158); -x_168 = lean::cnstr_get(x_165, 0); -lean::inc(x_168); -x_170 = lean::cnstr_get(x_165, 1); -lean::inc(x_170); -lean::dec(x_165); -x_173 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1(x_154, x_1, x_2, x_170); -if (lean::obj_tag(x_173) == 0) +obj* x_174; obj* x_177; obj* x_179; obj* x_182; +x_174 = lean::cnstr_get(x_166, 0); +lean::inc(x_174); +lean::dec(x_166); +x_177 = lean::cnstr_get(x_174, 0); +lean::inc(x_177); +x_179 = lean::cnstr_get(x_174, 1); +lean::inc(x_179); +lean::dec(x_174); +x_182 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__3(x_161, x_1, x_2, x_179); +if (lean::obj_tag(x_182) == 0) { -obj* x_175; obj* x_177; obj* x_178; -lean::dec(x_168); -x_175 = lean::cnstr_get(x_173, 0); -if (lean::is_exclusive(x_173)) { - x_177 = x_173; +obj* x_184; obj* x_186; obj* x_187; +lean::dec(x_177); +x_184 = lean::cnstr_get(x_182, 0); +if (lean::is_exclusive(x_182)) { + x_186 = x_182; } else { - lean::inc(x_175); - lean::dec(x_173); - x_177 = lean::box(0); -} -if (lean::is_scalar(x_177)) { - x_178 = lean::alloc_cnstr(0, 1, 0); -} else { - x_178 = x_177; -} -lean::cnstr_set(x_178, 0, x_175); -return x_178; -} -else -{ -obj* x_179; obj* x_181; obj* x_182; obj* x_184; obj* x_186; obj* x_187; obj* x_189; obj* x_190; -x_179 = lean::cnstr_get(x_173, 0); -if (lean::is_exclusive(x_173)) { - x_181 = x_173; -} else { - lean::inc(x_179); - lean::dec(x_173); - x_181 = lean::box(0); -} -x_182 = lean::cnstr_get(x_179, 0); -x_184 = lean::cnstr_get(x_179, 1); -if (lean::is_exclusive(x_179)) { - x_186 = x_179; -} else { - lean::inc(x_182); lean::inc(x_184); - lean::dec(x_179); + lean::dec(x_182); x_186 = lean::box(0); } -x_187 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2(x_168, x_182); -lean::dec(x_168); if (lean::is_scalar(x_186)) { - x_189 = lean::alloc_cnstr(0, 2, 0); + x_187 = lean::alloc_cnstr(0, 1, 0); } else { - x_189 = x_186; + x_187 = x_186; } -lean::cnstr_set(x_189, 0, x_187); -lean::cnstr_set(x_189, 1, x_184); -if (lean::is_scalar(x_181)) { - x_190 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_187, 0, x_184); +return x_187; +} +else +{ +obj* x_188; obj* x_190; obj* x_191; obj* x_193; obj* x_195; obj* x_196; obj* x_198; obj* x_199; +x_188 = lean::cnstr_get(x_182, 0); +if (lean::is_exclusive(x_182)) { + x_190 = x_182; } else { - x_190 = x_181; + lean::inc(x_188); + lean::dec(x_182); + x_190 = lean::box(0); } -lean::cnstr_set(x_190, 0, x_189); -return x_190; +x_191 = lean::cnstr_get(x_188, 0); +x_193 = lean::cnstr_get(x_188, 1); +if (lean::is_exclusive(x_188)) { + x_195 = x_188; +} else { + lean::inc(x_191); + lean::inc(x_193); + lean::dec(x_188); + x_195 = lean::box(0); +} +x_196 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4(x_177, x_191); +lean::dec(x_177); +if (lean::is_scalar(x_195)) { + x_198 = lean::alloc_cnstr(0, 2, 0); +} else { + x_198 = x_195; +} +lean::cnstr_set(x_198, 0, x_196); +lean::cnstr_set(x_198, 1, x_193); +if (lean::is_scalar(x_190)) { + x_199 = lean::alloc_cnstr(1, 1, 0); +} else { + x_199 = x_190; +} +lean::cnstr_set(x_199, 0, x_198); +return x_199; } } } } case 1: { -lean::dec(x_38); -lean::dec(x_39); -lean::dec(x_43); -lean::dec(x_140); -if (lean::obj_tag(x_23) == 0) -{ -obj* x_195; obj* x_196; obj* x_197; -if (lean::is_scalar(x_64)) { - x_195 = lean::alloc_cnstr(1, 1, 0); -} else { - x_195 = x_64; -} -lean::cnstr_set(x_195, 0, x_0); -x_196 = l_Lean_Elaborator_toLevel___main___closed__2; -x_197 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_195, x_196, x_1, x_2, x_41); +lean::dec(x_40); lean::dec(x_41); -lean::dec(x_195); -return x_197; +lean::dec(x_45); +lean::dec(x_146); +if (lean::obj_tag(x_24) == 0) +{ +obj* x_204; obj* x_205; obj* x_206; +if (lean::is_scalar(x_67)) { + x_204 = lean::alloc_cnstr(1, 1, 0); +} else { + x_204 = x_67; } -else -{ -obj* x_202; obj* x_204; obj* x_208; -lean::dec(x_64); -lean::dec(x_0); -x_202 = lean::cnstr_get(x_23, 0); -lean::inc(x_202); -x_204 = lean::cnstr_get(x_23, 1); -lean::inc(x_204); -lean::dec(x_23); -lean::inc(x_2); -x_208 = l_Lean_Elaborator_toLevel___main(x_202, x_1, x_2, x_41); -if (lean::obj_tag(x_208) == 0) -{ -obj* x_211; obj* x_213; obj* x_214; +lean::cnstr_set(x_204, 0, x_0); +x_205 = l_Lean_Elaborator_toLevel___main___closed__2; +x_206 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_204, x_205, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); lean::dec(x_204); +return x_206; +} +else +{ +obj* x_212; obj* x_214; obj* x_219; +lean::dec(x_0); +lean::dec(x_67); +x_212 = lean::cnstr_get(x_24, 0); +lean::inc(x_212); +x_214 = lean::cnstr_get(x_24, 1); +lean::inc(x_214); +lean::dec(x_24); +lean::inc(x_2); +lean::inc(x_1); +x_219 = l_Lean_Elaborator_toLevel___main(x_212, x_1, x_2, x_43); +if (lean::obj_tag(x_219) == 0) +{ +obj* x_223; obj* x_225; obj* x_226; +lean::dec(x_214); +lean::dec(x_1); lean::dec(x_2); -x_211 = lean::cnstr_get(x_208, 0); -if (lean::is_exclusive(x_208)) { - x_213 = x_208; +x_223 = lean::cnstr_get(x_219, 0); +if (lean::is_exclusive(x_219)) { + x_225 = x_219; } else { - lean::inc(x_211); - lean::dec(x_208); - x_213 = lean::box(0); + lean::inc(x_223); + lean::dec(x_219); + x_225 = lean::box(0); } -if (lean::is_scalar(x_213)) { - x_214 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_225)) { + x_226 = lean::alloc_cnstr(0, 1, 0); } else { - x_214 = x_213; + x_226 = x_225; } -lean::cnstr_set(x_214, 0, x_211); -return x_214; +lean::cnstr_set(x_226, 0, x_223); +return x_226; } else { -obj* x_215; obj* x_218; obj* x_220; obj* x_223; -x_215 = lean::cnstr_get(x_208, 0); -lean::inc(x_215); -lean::dec(x_208); -x_218 = lean::cnstr_get(x_215, 0); -lean::inc(x_218); -x_220 = lean::cnstr_get(x_215, 1); -lean::inc(x_220); -lean::dec(x_215); -x_223 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1(x_204, x_1, x_2, x_220); -if (lean::obj_tag(x_223) == 0) +obj* x_227; obj* x_230; obj* x_232; obj* x_235; +x_227 = lean::cnstr_get(x_219, 0); +lean::inc(x_227); +lean::dec(x_219); +x_230 = lean::cnstr_get(x_227, 0); +lean::inc(x_230); +x_232 = lean::cnstr_get(x_227, 1); +lean::inc(x_232); +lean::dec(x_227); +x_235 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__3(x_214, x_1, x_2, x_232); +if (lean::obj_tag(x_235) == 0) { -obj* x_225; obj* x_227; obj* x_228; -lean::dec(x_218); -x_225 = lean::cnstr_get(x_223, 0); -if (lean::is_exclusive(x_223)) { - x_227 = x_223; +obj* x_237; obj* x_239; obj* x_240; +lean::dec(x_230); +x_237 = lean::cnstr_get(x_235, 0); +if (lean::is_exclusive(x_235)) { + x_239 = x_235; } else { - lean::inc(x_225); - lean::dec(x_223); - x_227 = lean::box(0); + lean::inc(x_237); + lean::dec(x_235); + x_239 = lean::box(0); } -if (lean::is_scalar(x_227)) { - x_228 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_239)) { + x_240 = lean::alloc_cnstr(0, 1, 0); } else { - x_228 = x_227; + x_240 = x_239; } -lean::cnstr_set(x_228, 0, x_225); -return x_228; -} -else -{ -obj* x_229; obj* x_231; obj* x_232; obj* x_234; obj* x_236; obj* x_237; obj* x_239; obj* x_240; -x_229 = lean::cnstr_get(x_223, 0); -if (lean::is_exclusive(x_223)) { - x_231 = x_223; -} else { - lean::inc(x_229); - lean::dec(x_223); - x_231 = lean::box(0); -} -x_232 = lean::cnstr_get(x_229, 0); -x_234 = lean::cnstr_get(x_229, 1); -if (lean::is_exclusive(x_229)) { - x_236 = x_229; -} else { - lean::inc(x_232); - lean::inc(x_234); - lean::dec(x_229); - x_236 = lean::box(0); -} -x_237 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3(x_218, x_232); -lean::dec(x_218); -if (lean::is_scalar(x_236)) { - x_239 = lean::alloc_cnstr(0, 2, 0); -} else { - x_239 = x_236; -} -lean::cnstr_set(x_239, 0, x_237); -lean::cnstr_set(x_239, 1, x_234); -if (lean::is_scalar(x_231)) { - x_240 = lean::alloc_cnstr(1, 1, 0); -} else { - x_240 = x_231; -} -lean::cnstr_set(x_240, 0, x_239); +lean::cnstr_set(x_240, 0, x_237); return x_240; } +else +{ +obj* x_241; obj* x_243; obj* x_244; obj* x_246; obj* x_248; obj* x_249; obj* x_251; obj* x_252; +x_241 = lean::cnstr_get(x_235, 0); +if (lean::is_exclusive(x_235)) { + x_243 = x_235; +} else { + lean::inc(x_241); + lean::dec(x_235); + x_243 = lean::box(0); +} +x_244 = lean::cnstr_get(x_241, 0); +x_246 = lean::cnstr_get(x_241, 1); +if (lean::is_exclusive(x_241)) { + x_248 = x_241; +} else { + lean::inc(x_244); + lean::inc(x_246); + lean::dec(x_241); + x_248 = lean::box(0); +} +x_249 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5(x_230, x_244); +lean::dec(x_230); +if (lean::is_scalar(x_248)) { + x_251 = lean::alloc_cnstr(0, 2, 0); +} else { + x_251 = x_248; +} +lean::cnstr_set(x_251, 0, x_249); +lean::cnstr_set(x_251, 1, x_246); +if (lean::is_scalar(x_243)) { + x_252 = lean::alloc_cnstr(1, 1, 0); +} else { + x_252 = x_243; +} +lean::cnstr_set(x_252, 0, x_251); +return x_252; +} } } } case 2: { -lean::dec(x_39); -lean::dec(x_140); -if (lean::obj_tag(x_23) == 0) +lean::dec(x_41); +lean::dec(x_146); +if (lean::obj_tag(x_24) == 0) { -obj* x_246; obj* x_247; obj* x_248; -lean::dec(x_64); +obj* x_259; obj* x_260; obj* x_261; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_246 = l_Lean_Elaborator_toLevel___main___closed__3; -if (lean::is_scalar(x_43)) { - x_247 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_67); +x_259 = l_Lean_Elaborator_toLevel___main___closed__3; +if (lean::is_scalar(x_45)) { + x_260 = lean::alloc_cnstr(0, 2, 0); } else { - x_247 = x_43; + x_260 = x_45; } -lean::cnstr_set(x_247, 0, x_246); -lean::cnstr_set(x_247, 1, x_41); -if (lean::is_scalar(x_38)) { - x_248 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_260, 0, x_259); +lean::cnstr_set(x_260, 1, x_43); +if (lean::is_scalar(x_40)) { + x_261 = lean::alloc_cnstr(1, 1, 0); } else { - x_248 = x_38; + x_261 = x_40; } -lean::cnstr_set(x_248, 0, x_247); -return x_248; +lean::cnstr_set(x_261, 0, x_260); +return x_261; } else { -obj* x_252; obj* x_253; obj* x_254; -lean::dec(x_23); -lean::dec(x_38); -lean::dec(x_43); -if (lean::is_scalar(x_64)) { - x_252 = lean::alloc_cnstr(1, 1, 0); +obj* x_265; obj* x_266; obj* x_267; +lean::dec(x_24); +lean::dec(x_40); +lean::dec(x_45); +if (lean::is_scalar(x_67)) { + x_265 = lean::alloc_cnstr(1, 1, 0); } else { - x_252 = x_64; + x_265 = x_67; } -lean::cnstr_set(x_252, 0, x_0); -x_253 = l_Lean_Elaborator_toLevel___main___closed__2; -x_254 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_252, x_253, x_1, x_2, x_41); -lean::dec(x_41); -lean::dec(x_252); -return x_254; +lean::cnstr_set(x_265, 0, x_0); +x_266 = l_Lean_Elaborator_toLevel___main___closed__2; +x_267 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_265, x_266, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_265); +return x_267; } } case 3: { -obj* x_262; obj* x_263; obj* x_264; -lean::dec(x_23); -lean::dec(x_38); -lean::dec(x_39); -lean::dec(x_43); -lean::dec(x_140); -if (lean::is_scalar(x_64)) { - x_262 = lean::alloc_cnstr(1, 1, 0); -} else { - x_262 = x_64; -} -lean::cnstr_set(x_262, 0, x_0); -x_263 = l_Lean_Elaborator_toLevel___main___closed__2; -x_264 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_262, x_263, x_1, x_2, x_41); +obj* x_276; obj* x_277; obj* x_278; +lean::dec(x_24); +lean::dec(x_40); lean::dec(x_41); -lean::dec(x_262); -return x_264; +lean::dec(x_45); +lean::dec(x_146); +if (lean::is_scalar(x_67)) { + x_276 = lean::alloc_cnstr(1, 1, 0); +} else { + x_276 = x_67; +} +lean::cnstr_set(x_276, 0, x_0); +x_277 = l_Lean_Elaborator_toLevel___main___closed__2; +x_278 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_276, x_277, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_276); +return x_278; } case 4: { -lean::dec(x_39); -if (lean::obj_tag(x_23) == 0) +lean::dec(x_41); +if (lean::obj_tag(x_24) == 0) { -obj* x_271; obj* x_274; obj* x_275; obj* x_277; obj* x_278; -lean::dec(x_64); +obj* x_287; obj* x_290; obj* x_291; obj* x_293; obj* x_294; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_271 = lean::cnstr_get(x_140, 0); -lean::inc(x_271); -lean::dec(x_140); -x_274 = l_Lean_Parser_number_View_toNat___main(x_271); -x_275 = l_Lean_Level_ofNat___main(x_274); -lean::dec(x_274); -if (lean::is_scalar(x_43)) { - x_277 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_67); +x_287 = lean::cnstr_get(x_146, 0); +lean::inc(x_287); +lean::dec(x_146); +x_290 = l_Lean_Parser_number_View_toNat___main(x_287); +x_291 = l_Lean_Level_ofNat___main(x_290); +lean::dec(x_290); +if (lean::is_scalar(x_45)) { + x_293 = lean::alloc_cnstr(0, 2, 0); } else { - x_277 = x_43; + x_293 = x_45; } -lean::cnstr_set(x_277, 0, x_275); -lean::cnstr_set(x_277, 1, x_41); -if (lean::is_scalar(x_38)) { - x_278 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_293, 0, x_291); +lean::cnstr_set(x_293, 1, x_43); +if (lean::is_scalar(x_40)) { + x_294 = lean::alloc_cnstr(1, 1, 0); } else { - x_278 = x_38; + x_294 = x_40; } -lean::cnstr_set(x_278, 0, x_277); -return x_278; +lean::cnstr_set(x_294, 0, x_293); +return x_294; } else { -obj* x_283; obj* x_284; obj* x_285; -lean::dec(x_23); -lean::dec(x_38); -lean::dec(x_43); -lean::dec(x_140); -if (lean::is_scalar(x_64)) { - x_283 = lean::alloc_cnstr(1, 1, 0); +obj* x_299; obj* x_300; obj* x_301; +lean::dec(x_24); +lean::dec(x_40); +lean::dec(x_45); +lean::dec(x_146); +if (lean::is_scalar(x_67)) { + x_299 = lean::alloc_cnstr(1, 1, 0); } else { - x_283 = x_64; + x_299 = x_67; } -lean::cnstr_set(x_283, 0, x_0); -x_284 = l_Lean_Elaborator_toLevel___main___closed__2; -x_285 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_283, x_284, x_1, x_2, x_41); -lean::dec(x_41); -lean::dec(x_283); -return x_285; +lean::cnstr_set(x_299, 0, x_0); +x_300 = l_Lean_Elaborator_toLevel___main___closed__2; +x_301 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_299, x_300, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_299); +return x_301; } } default: { -if (lean::obj_tag(x_23) == 0) +if (lean::obj_tag(x_24) == 0) { -obj* x_288; obj* x_291; obj* x_292; obj* x_295; obj* x_297; -x_288 = lean::cnstr_get(x_140, 0); -lean::inc(x_288); -lean::dec(x_140); -x_291 = l_Lean_Elaborator_mangleIdent(x_288); -x_292 = lean::cnstr_get(x_39, 3); -lean::inc(x_292); -lean::dec(x_39); -x_295 = l_Lean_NameMap_contains___rarg___closed__1; -lean::inc(x_291); -x_297 = l_Lean_Elaborator_OrderedRBMap_find___rarg(x_295, x_292, x_291); -if (lean::obj_tag(x_297) == 0) -{ -obj* x_300; obj* x_301; obj* x_302; obj* x_303; obj* x_304; obj* x_306; obj* x_307; obj* x_308; -lean::dec(x_38); -lean::dec(x_43); -if (lean::is_scalar(x_64)) { - x_300 = lean::alloc_cnstr(1, 1, 0); -} else { - x_300 = x_64; -} -lean::cnstr_set(x_300, 0, x_0); -x_301 = l_Lean_Name_toString___closed__1; -x_302 = l_Lean_Name_toStringWithSep___main(x_301, x_291); -x_303 = l_Lean_Elaborator_toLevel___main___closed__4; -x_304 = lean::string_append(x_303, x_302); -lean::dec(x_302); -x_306 = l_Char_HasRepr___closed__1; -x_307 = lean::string_append(x_304, x_306); -x_308 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_300, x_307, x_1, x_2, x_41); +obj* x_305; obj* x_308; obj* x_309; obj* x_312; obj* x_314; +x_305 = lean::cnstr_get(x_146, 0); +lean::inc(x_305); +lean::dec(x_146); +x_308 = l_Lean_Elaborator_mangleIdent(x_305); +x_309 = lean::cnstr_get(x_41, 3); +lean::inc(x_309); lean::dec(x_41); -lean::dec(x_300); -return x_308; -} -else +x_312 = l_Lean_Elaborator_toLevel___main___closed__4; +lean::inc(x_308); +x_314 = l_Lean_Elaborator_OrderedRBMap_find___rarg(x_312, x_309, x_308); +if (lean::obj_tag(x_314) == 0) { -obj* x_315; obj* x_316; obj* x_317; -lean::dec(x_64); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_297); -x_315 = level_mk_param(x_291); -if (lean::is_scalar(x_43)) { - x_316 = lean::alloc_cnstr(0, 2, 0); -} else { - x_316 = x_43; -} -lean::cnstr_set(x_316, 0, x_315); -lean::cnstr_set(x_316, 1, x_41); -if (lean::is_scalar(x_38)) { +obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_321; obj* x_323; obj* x_324; obj* x_325; +lean::dec(x_40); +lean::dec(x_45); +if (lean::is_scalar(x_67)) { x_317 = lean::alloc_cnstr(1, 1, 0); } else { - x_317 = x_38; + x_317 = x_67; } -lean::cnstr_set(x_317, 0, x_316); -return x_317; +lean::cnstr_set(x_317, 0, x_0); +x_318 = l_Lean_Name_toString___closed__1; +x_319 = l_Lean_Name_toStringWithSep___main(x_318, x_308); +x_320 = l_Lean_Elaborator_toLevel___main___closed__5; +x_321 = lean::string_append(x_320, x_319); +lean::dec(x_319); +x_323 = l_Char_HasRepr___closed__1; +x_324 = lean::string_append(x_321, x_323); +x_325 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_317, x_324, x_1, x_2, x_43); +lean::dec(x_43); +lean::dec(x_1); +lean::dec(x_317); +return x_325; +} +else +{ +obj* x_334; obj* x_335; obj* x_336; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_314); +lean::dec(x_67); +x_334 = level_mk_param(x_308); +if (lean::is_scalar(x_45)) { + x_335 = lean::alloc_cnstr(0, 2, 0); +} else { + x_335 = x_45; +} +lean::cnstr_set(x_335, 0, x_334); +lean::cnstr_set(x_335, 1, x_43); +if (lean::is_scalar(x_40)) { + x_336 = lean::alloc_cnstr(1, 1, 0); +} else { + x_336 = x_40; +} +lean::cnstr_set(x_336, 0, x_335); +return x_336; } } else { -obj* x_323; obj* x_324; obj* x_325; -lean::dec(x_23); -lean::dec(x_38); -lean::dec(x_39); -lean::dec(x_43); -lean::dec(x_140); -if (lean::is_scalar(x_64)) { - x_323 = lean::alloc_cnstr(1, 1, 0); -} else { - x_323 = x_64; -} -lean::cnstr_set(x_323, 0, x_0); -x_324 = l_Lean_Elaborator_toLevel___main___closed__2; -x_325 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_323, x_324, x_1, x_2, x_41); +obj* x_342; obj* x_343; obj* x_344; +lean::dec(x_24); +lean::dec(x_40); lean::dec(x_41); -lean::dec(x_323); -return x_325; +lean::dec(x_45); +lean::dec(x_146); +if (lean::is_scalar(x_67)) { + x_342 = lean::alloc_cnstr(1, 1, 0); +} else { + x_342 = x_67; } -} -} -} -} -} -} -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_toLevel___main___spec__1(x_0, x_1, x_2, x_3); +lean::cnstr_set(x_342, 0, x_0); +x_343 = l_Lean_Elaborator_toLevel___main___closed__2; +x_344 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_342, x_343, x_1, x_2, x_43); +lean::dec(x_43); lean::dec(x_1); -return x_4; +lean::dec(x_342); +return x_344; } } -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2___boxed(obj* x_0, obj* x_1) { +} +} +} +} +} +} +} +obj* l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__2(x_0, x_1); +x_2 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_0, x_1, x_2, x_3); +lean::dec(x_1); +lean::dec(x_2); +return x_4; +} +} +obj* l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__4(x_0, x_1); lean::dec(x_0); return x_2; } } -obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3___boxed(obj* x_0, obj* x_1) { +obj* l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__3(x_0, x_1); +x_2 = l_List_foldr___main___at_Lean_Elaborator_toLevel___main___spec__5(x_0, x_1); lean::dec(x_0); return x_2; } } -obj* l_Lean_Elaborator_toLevel___main___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_toLevel___main(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* l_Lean_Elaborator_toLevel(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -2618,15 +2745,6 @@ x_4 = l_Lean_Elaborator_toLevel___main(x_0, x_1, x_2, x_3); return x_4; } } -obj* l_Lean_Elaborator_toLevel___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_toLevel(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* _init_l_Lean_Elaborator_Expr_mkAnnotation___closed__1() { _start: { @@ -2756,46 +2874,48 @@ x_6 = l_Lean_Elaborator_Expr_mkAnnotation(x_5, x_4); return x_6; } } +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_7; +x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); +lean::dec(x_0); +x_7 = l_Lean_Elaborator_toPexpr___main(x_4, x_1, x_2, x_3); +return x_7; +} +} obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_17; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} -x_13 = lean::cnstr_get(x_8, 0); -lean::inc(x_13); -lean::dec(x_8); +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1___lambda__1), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_17 = l_Lean_Elaborator_toPexpr___main(x_13, x_1, x_2, x_3); +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); if (lean::obj_tag(x_17) == 0) { obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); x_21 = lean::cnstr_get(x_17, 0); if (lean::is_exclusive(x_17)) { @@ -2827,67 +2947,60 @@ lean::dec(x_25); x_33 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(x_10, x_1, x_2, x_30); if (lean::obj_tag(x_33) == 0) { -obj* x_36; obj* x_38; obj* x_39; -lean::dec(x_12); +obj* x_35; obj* x_37; obj* x_38; lean::dec(x_28); -x_36 = lean::cnstr_get(x_33, 0); +x_35 = lean::cnstr_get(x_33, 0); if (lean::is_exclusive(x_33)) { - x_38 = x_33; + x_37 = x_33; } else { - lean::inc(x_36); + lean::inc(x_35); lean::dec(x_33); - x_38 = lean::box(0); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_36); -return x_39; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_40; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_40 = lean::cnstr_get(x_33, 0); +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); if (lean::is_exclusive(x_33)) { - x_42 = x_33; + x_41 = x_33; } else { - lean::inc(x_40); + lean::inc(x_39); lean::dec(x_33); - x_42 = lean::box(0); + x_41 = lean::box(0); } -x_43 = lean::cnstr_get(x_40, 0); -x_45 = lean::cnstr_get(x_40, 1); -if (lean::is_exclusive(x_40)) { - x_47 = x_40; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_43); - lean::inc(x_45); - lean::dec(x_40); - x_47 = lean::box(0); + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_12)) { - x_48 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_48 = x_12; + x_48 = x_46; } -lean::cnstr_set(x_48, 0, x_28); -lean::cnstr_set(x_48, 1, x_43); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_49 = x_47; + x_49 = x_41; } lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_45); -if (lean::is_scalar(x_42)) { - x_50 = lean::alloc_cnstr(1, 1, 0); -} else { - x_50 = x_42; -} -lean::cnstr_set(x_50, 0, x_49); -return x_50; +return x_49; } } } @@ -2930,7 +3043,7 @@ return x_11; } } } -obj* _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___closed__1() { +obj* _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -2940,53 +3053,168 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_8; +x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); +lean::inc(x_2); +lean::inc(x_1); +x_8 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(x_4, x_1, x_2, x_3); +if (lean::obj_tag(x_8) == 0) +{ +obj* x_12; obj* x_14; obj* x_15; +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +x_12 = lean::cnstr_get(x_8, 0); +if (lean::is_exclusive(x_8)) { + x_14 = x_8; +} else { + lean::inc(x_12); + lean::dec(x_8); + x_14 = lean::box(0); +} +if (lean::is_scalar(x_14)) { + x_15 = lean::alloc_cnstr(0, 1, 0); +} else { + x_15 = x_14; +} +lean::cnstr_set(x_15, 0, x_12); +return x_15; +} +else +{ +obj* x_16; obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_27; +x_16 = lean::cnstr_get(x_8, 0); +lean::inc(x_16); +lean::dec(x_8); +x_19 = lean::cnstr_get(x_16, 0); +x_21 = lean::cnstr_get(x_16, 1); +if (lean::is_exclusive(x_16)) { + lean::cnstr_set(x_16, 0, lean::box(0)); + lean::cnstr_set(x_16, 1, lean::box(0)); + x_23 = x_16; +} else { + lean::inc(x_19); + lean::inc(x_21); + lean::dec(x_16); + x_23 = lean::box(0); +} +x_24 = lean::cnstr_get(x_0, 2); +lean::inc(x_24); +lean::dec(x_0); +x_27 = l_Lean_Elaborator_toPexpr___main(x_24, x_1, x_2, x_21); +if (lean::obj_tag(x_27) == 0) +{ +obj* x_30; obj* x_32; obj* x_33; +lean::dec(x_19); +lean::dec(x_23); +x_30 = lean::cnstr_get(x_27, 0); +if (lean::is_exclusive(x_27)) { + x_32 = x_27; +} else { + lean::inc(x_30); + lean::dec(x_27); + x_32 = lean::box(0); +} +if (lean::is_scalar(x_32)) { + x_33 = lean::alloc_cnstr(0, 1, 0); +} else { + x_33 = x_32; +} +lean::cnstr_set(x_33, 0, x_30); +return x_33; +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_34 = lean::cnstr_get(x_27, 0); +if (lean::is_exclusive(x_27)) { + x_36 = x_27; +} else { + lean::inc(x_34); + lean::dec(x_27); + x_36 = lean::box(0); +} +x_37 = lean::cnstr_get(x_34, 0); +x_39 = lean::cnstr_get(x_34, 1); +if (lean::is_exclusive(x_34)) { + x_41 = x_34; +} else { + lean::inc(x_37); + lean::inc(x_39); + lean::dec(x_34); + x_41 = lean::box(0); +} +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 2, 0); +} else { + x_42 = x_41; +} +lean::cnstr_set(x_42, 0, x_19); +lean::cnstr_set(x_42, 1, x_37); +x_43 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1___closed__1; +if (lean::is_scalar(x_23)) { + x_44 = lean::alloc_cnstr(0, 2, 0); +} else { + x_44 = x_23; +} +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_42); +x_45 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_39); +if (lean::is_scalar(x_36)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_36; +} +lean::cnstr_set(x_46, 0, x_45); +return x_46; +} +} +} +} obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_16; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} -x_13 = lean::cnstr_get(x_8, 0); -lean::inc(x_13); +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_16 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(x_13, x_1, x_2, x_3); -if (lean::obj_tag(x_16) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { obj* x_21; obj* x_23; obj* x_24; -lean::dec(x_8); +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_21 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_23 = x_16; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { lean::inc(x_21); - lean::dec(x_16); + lean::dec(x_17); x_23 = lean::box(0); } if (lean::is_scalar(x_23)) { @@ -2999,152 +3227,72 @@ return x_24; } else { -obj* x_25; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_37; -x_25 = lean::cnstr_get(x_16, 0); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -lean::dec(x_16); +lean::dec(x_17); x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); x_30 = lean::cnstr_get(x_25, 1); -if (lean::is_exclusive(x_25)) { - lean::cnstr_set(x_25, 0, lean::box(0)); - lean::cnstr_set(x_25, 1, lean::box(0)); - x_32 = x_25; -} else { - lean::inc(x_28); - lean::inc(x_30); - lean::dec(x_25); - x_32 = lean::box(0); -} -x_33 = lean::cnstr_get(x_8, 2); -lean::inc(x_33); -lean::dec(x_8); -lean::inc(x_2); -x_37 = l_Lean_Elaborator_toPexpr___main(x_33, x_1, x_2, x_30); -if (lean::obj_tag(x_37) == 0) +lean::inc(x_30); +lean::dec(x_25); +x_33 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) { -obj* x_43; obj* x_45; obj* x_46; -lean::dec(x_10); -lean::dec(x_12); -lean::dec(x_2); +obj* x_35; obj* x_37; obj* x_38; lean::dec(x_28); -lean::dec(x_32); -x_43 = lean::cnstr_get(x_37, 0); -if (lean::is_exclusive(x_37)) { - x_45 = x_37; +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_43); - lean::dec(x_37); - x_45 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_45)) { - x_46 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_46 = x_45; + x_38 = x_37; } -lean::cnstr_set(x_46, 0, x_43); -return x_46; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_47; obj* x_50; obj* x_52; obj* x_54; obj* x_55; -x_47 = lean::cnstr_get(x_37, 0); -lean::inc(x_47); -lean::dec(x_37); -x_50 = lean::cnstr_get(x_47, 0); -x_52 = lean::cnstr_get(x_47, 1); -if (lean::is_exclusive(x_47)) { - lean::cnstr_set(x_47, 0, lean::box(0)); - lean::cnstr_set(x_47, 1, lean::box(0)); - x_54 = x_47; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { - lean::inc(x_50); - lean::inc(x_52); - lean::dec(x_47); - x_54 = lean::box(0); + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); } -x_55 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3(x_10, x_1, x_2, x_52); -if (lean::obj_tag(x_55) == 0) -{ -obj* x_61; obj* x_63; obj* x_64; -lean::dec(x_12); -lean::dec(x_28); -lean::dec(x_32); -lean::dec(x_50); -lean::dec(x_54); -x_61 = lean::cnstr_get(x_55, 0); -if (lean::is_exclusive(x_55)) { - x_63 = x_55; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_61); - lean::dec(x_55); - x_63 = lean::box(0); + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_63)) { - x_64 = lean::alloc_cnstr(0, 1, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_64 = x_63; + x_48 = x_46; } -lean::cnstr_set(x_64, 0, x_61); -return x_64; -} -else -{ -obj* x_65; obj* x_67; obj* x_68; obj* x_70; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; -x_65 = lean::cnstr_get(x_55, 0); -if (lean::is_exclusive(x_55)) { - x_67 = x_55; +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_65); - lean::dec(x_55); - x_67 = lean::box(0); -} -x_68 = lean::cnstr_get(x_65, 0); -x_70 = lean::cnstr_get(x_65, 1); -if (lean::is_exclusive(x_65)) { - x_72 = x_65; -} else { - lean::inc(x_68); - lean::inc(x_70); - lean::dec(x_65); - x_72 = lean::box(0); -} -if (lean::is_scalar(x_72)) { - x_73 = lean::alloc_cnstr(0, 2, 0); -} else { - x_73 = x_72; -} -lean::cnstr_set(x_73, 0, x_28); -lean::cnstr_set(x_73, 1, x_50); -x_74 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___closed__1; -if (lean::is_scalar(x_54)) { - x_75 = lean::alloc_cnstr(0, 2, 0); -} else { - x_75 = x_54; -} -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_73); -if (lean::is_scalar(x_12)) { - x_76 = lean::alloc_cnstr(1, 2, 0); -} else { - x_76 = x_12; -} -lean::cnstr_set(x_76, 0, x_75); -lean::cnstr_set(x_76, 1, x_68); -if (lean::is_scalar(x_32)) { - x_77 = lean::alloc_cnstr(0, 2, 0); -} else { - x_77 = x_32; -} -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_70); -if (lean::is_scalar(x_67)) { - x_78 = lean::alloc_cnstr(1, 1, 0); -} else { - x_78 = x_67; -} -lean::cnstr_set(x_78, 0, x_77); -return x_78; + x_49 = x_41; } +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -3284,7 +3432,7 @@ goto _start; } } } -obj* _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1() { +obj* _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -3294,7 +3442,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2() { +obj* _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2() { _start: { obj* x_0; @@ -3302,282 +3450,223 @@ x_0 = lean::mk_string("toPexpr: unreachable"); return x_0; } } +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = lean::cnstr_get(x_0, 0); +lean::inc(x_5); +lean::dec(x_0); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; obj* x_12; obj* x_14; +lean::dec(x_1); +x_9 = lean::cnstr_get(x_5, 0); +lean::inc(x_9); +lean::dec(x_5); +x_12 = lean::cnstr_get(x_9, 2); +lean::inc(x_12); +x_14 = l_Lean_Elaborator_toPexpr___main(x_12, x_2, x_3, x_4); +if (lean::obj_tag(x_14) == 0) +{ +obj* x_16; obj* x_18; obj* x_19; +lean::dec(x_9); +x_16 = lean::cnstr_get(x_14, 0); +if (lean::is_exclusive(x_14)) { + x_18 = x_14; +} else { + lean::inc(x_16); + lean::dec(x_14); + x_18 = lean::box(0); +} +if (lean::is_scalar(x_18)) { + x_19 = lean::alloc_cnstr(0, 1, 0); +} else { + x_19 = x_18; +} +lean::cnstr_set(x_19, 0, x_16); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_25; obj* x_27; obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_20 = lean::cnstr_get(x_14, 0); +if (lean::is_exclusive(x_14)) { + x_22 = x_14; +} else { + lean::inc(x_20); + lean::dec(x_14); + x_22 = lean::box(0); +} +x_23 = lean::cnstr_get(x_20, 0); +x_25 = lean::cnstr_get(x_20, 1); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; +} else { + lean::inc(x_23); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); +} +x_28 = lean::cnstr_get(x_9, 0); +lean::inc(x_28); +lean::dec(x_9); +x_31 = l_Lean_Elaborator_mangleIdent(x_28); +x_32 = lean::box(0); +x_33 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__1; +x_34 = l_Lean_KVMap_setName(x_32, x_33, x_31); +x_35 = lean_expr_mk_mdata(x_34, x_23); +if (lean::is_scalar(x_27)) { + x_36 = lean::alloc_cnstr(0, 2, 0); +} else { + x_36 = x_27; +} +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_25); +if (lean::is_scalar(x_22)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_22; +} +lean::cnstr_set(x_37, 0, x_36); +return x_37; +} +} +else +{ +obj* x_39; obj* x_40; obj* x_41; +lean::dec(x_5); +x_39 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_39, 0, x_1); +x_40 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2; +x_41 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_39, x_40, x_2, x_3, x_4); +lean::dec(x_4); +lean::dec(x_2); +lean::dec(x_39); +return x_41; +} +} +} obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_24; -x_15 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} -x_18 = lean::cnstr_get(x_12, 0); -lean::inc(x_18); -lean::dec(x_12); -x_21 = lean::cnstr_get(x_18, 2); -lean::inc(x_21); +lean::dec(x_1); +lean::inc(x_0); +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_24 = l_Lean_Elaborator_toPexpr___main(x_21, x_2, x_3, x_4); -if (lean::obj_tag(x_24) == 0) +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) { -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_15); +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_17); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_24, 0); -if (lean::is_exclusive(x_24)) { - x_32 = x_24; +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; } else { - lean::inc(x_30); - lean::dec(x_24); - x_32 = lean::box(0); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); } -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_33 = x_32; + x_28 = x_27; } -lean::cnstr_set(x_33, 0, x_30); -return x_33; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_24, 0); +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +lean::dec(x_20); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_24); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(x_0, x_15, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_46; obj* x_48; obj* x_49; -lean::dec(x_37); -lean::dec(x_17); -lean::dec(x_18); -x_46 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_48 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; +} else { + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); +} +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); +} else { + x_42 = x_41; +} +lean::cnstr_set(x_42, 0, x_39); +return x_42; +} +else +{ +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; +} else { + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); +} +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { lean::inc(x_46); - lean::dec(x_42); - x_48 = lean::box(0); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_48)) { - x_49 = lean::alloc_cnstr(0, 1, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_49 = x_48; + x_52 = x_50; } -lean::cnstr_set(x_49, 0, x_46); -return x_49; -} -else -{ -obj* x_50; obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; -x_50 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_52 = x_42; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_50); - lean::dec(x_42); - x_52 = lean::box(0); -} -x_53 = lean::cnstr_get(x_50, 0); -x_55 = lean::cnstr_get(x_50, 1); -if (lean::is_exclusive(x_50)) { - x_57 = x_50; -} else { - lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_50); - x_57 = lean::box(0); -} -x_58 = lean::cnstr_get(x_18, 0); -lean::inc(x_58); -lean::dec(x_18); -x_61 = l_Lean_Elaborator_mangleIdent(x_58); -x_62 = lean::box(0); -x_63 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1; -x_64 = l_Lean_KVMap_setName(x_62, x_63, x_61); -x_65 = lean_expr_mk_mdata(x_64, x_37); -if (lean::is_scalar(x_17)) { - x_66 = lean::alloc_cnstr(1, 2, 0); -} else { - x_66 = x_17; -} -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_53); -if (lean::is_scalar(x_57)) { - x_67 = lean::alloc_cnstr(0, 2, 0); -} else { - x_67 = x_57; -} -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_55); -if (lean::is_scalar(x_52)) { - x_68 = lean::alloc_cnstr(1, 1, 0); -} else { - x_68 = x_52; -} -lean::cnstr_set(x_68, 0, x_67); -return x_68; -} -} -} -else -{ -obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_77; -lean::dec(x_12); -x_70 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_72 = x_1; -} else { - lean::inc(x_70); - lean::dec(x_1); - x_72 = lean::box(0); -} -lean::inc(x_0); -x_74 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_74, 0, x_0); -x_75 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_77 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_74, x_75, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_74); -if (lean::obj_tag(x_77) == 0) -{ -obj* x_84; obj* x_86; obj* x_87; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_70); -lean::dec(x_72); -x_84 = lean::cnstr_get(x_77, 0); -if (lean::is_exclusive(x_77)) { - x_86 = x_77; -} else { - lean::inc(x_84); - lean::dec(x_77); - x_86 = lean::box(0); -} -if (lean::is_scalar(x_86)) { - x_87 = lean::alloc_cnstr(0, 1, 0); -} else { - x_87 = x_86; -} -lean::cnstr_set(x_87, 0, x_84); -return x_87; -} -else -{ -obj* x_88; obj* x_91; obj* x_93; obj* x_96; -x_88 = lean::cnstr_get(x_77, 0); -lean::inc(x_88); -lean::dec(x_77); -x_91 = lean::cnstr_get(x_88, 0); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 1); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(x_0, x_70, x_2, x_3, x_93); -if (lean::obj_tag(x_96) == 0) -{ -obj* x_99; obj* x_101; obj* x_102; -lean::dec(x_72); -lean::dec(x_91); -x_99 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; -} else { - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); -} -if (lean::is_scalar(x_101)) { - x_102 = lean::alloc_cnstr(0, 1, 0); -} else { - x_102 = x_101; -} -lean::cnstr_set(x_102, 0, x_99); -return x_102; -} -else -{ -obj* x_103; obj* x_105; obj* x_106; obj* x_108; obj* x_110; obj* x_111; obj* x_112; obj* x_113; -x_103 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_105 = x_96; -} else { - lean::inc(x_103); - lean::dec(x_96); - x_105 = lean::box(0); -} -x_106 = lean::cnstr_get(x_103, 0); -x_108 = lean::cnstr_get(x_103, 1); -if (lean::is_exclusive(x_103)) { - x_110 = x_103; -} else { - lean::inc(x_106); - lean::inc(x_108); - lean::dec(x_103); - x_110 = lean::box(0); -} -if (lean::is_scalar(x_72)) { - x_111 = lean::alloc_cnstr(1, 2, 0); -} else { - x_111 = x_72; -} -lean::cnstr_set(x_111, 0, x_91); -lean::cnstr_set(x_111, 1, x_106); -if (lean::is_scalar(x_110)) { - x_112 = lean::alloc_cnstr(0, 2, 0); -} else { - x_112 = x_110; -} -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_108); -if (lean::is_scalar(x_105)) { - x_113 = lean::alloc_cnstr(1, 1, 0); -} else { - x_113 = x_105; -} -lean::cnstr_set(x_113, 0, x_112); -return x_113; + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -3605,402 +3694,180 @@ return x_9; } } } +obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = lean::cnstr_get(x_0, 0); +lean::inc(x_5); +lean::dec(x_0); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; obj* x_10; obj* x_11; +lean::dec(x_5); +x_9 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_9, 0, x_1); +x_10 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2; +x_11 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_9, x_10, x_2, x_3, x_4); +lean::dec(x_4); +lean::dec(x_2); +lean::dec(x_9); +return x_11; +} +else +{ +obj* x_15; obj* x_18; +x_15 = lean::cnstr_get(x_5, 0); +lean::inc(x_15); +lean::dec(x_5); +x_18 = lean::cnstr_get(x_15, 1); +lean::inc(x_18); +lean::dec(x_15); +if (lean::obj_tag(x_18) == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +x_21 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_21, 0, x_1); +x_22 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2; +x_23 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_21, x_22, x_2, x_3, x_4); +lean::dec(x_4); +lean::dec(x_2); +lean::dec(x_21); +return x_23; +} +else +{ +obj* x_28; obj* x_31; +lean::dec(x_1); +x_28 = lean::cnstr_get(x_18, 0); +lean::inc(x_28); +lean::dec(x_18); +x_31 = l_Lean_Elaborator_toPexpr___main(x_28, x_2, x_3, x_4); +return x_31; +} +} +} +} obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_23; -lean::dec(x_12); -x_16 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::dec(x_1); lean::inc(x_0); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_0); -x_21 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_23 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_20, x_21, x_2, x_3, x_4); -lean::dec(x_4); +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) +{ +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; +} else { + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); +} +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); +} else { + x_28 = x_27; +} +lean::cnstr_set(x_28, 0, x_25); +return x_28; +} +else +{ +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); lean::dec(x_20); -if (lean::obj_tag(x_23) == 0) -{ -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_16); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_32 = x_23; -} else { - lean::inc(x_30); - lean::dec(x_23); - x_32 = lean::box(0); -} -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); -} else { - x_33 = x_32; -} -lean::cnstr_set(x_33, 0, x_30); -return x_33; -} -else -{ -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_23, 0); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_23); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_16, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_45; obj* x_47; obj* x_48; -lean::dec(x_37); -lean::dec(x_18); -x_45 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_47 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; } else { - lean::inc(x_45); - lean::dec(x_42); - x_47 = lean::box(0); + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); } -if (lean::is_scalar(x_47)) { - x_48 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); } else { - x_48 = x_47; + x_42 = x_41; } -lean::cnstr_set(x_48, 0, x_45); -return x_48; +lean::cnstr_set(x_42, 0, x_39); +return x_42; } else { -obj* x_49; obj* x_51; obj* x_52; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_49 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_51 = x_42; +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; } else { - lean::inc(x_49); - lean::dec(x_42); - x_51 = lean::box(0); + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); } -x_52 = lean::cnstr_get(x_49, 0); -x_54 = lean::cnstr_get(x_49, 1); -if (lean::is_exclusive(x_49)) { - x_56 = x_49; +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { - lean::inc(x_52); - lean::inc(x_54); - lean::dec(x_49); - x_56 = lean::box(0); + lean::inc(x_46); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_18)) { - x_57 = lean::alloc_cnstr(1, 2, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_18; + x_52 = x_50; } -lean::cnstr_set(x_57, 0, x_37); -lean::cnstr_set(x_57, 1, x_52); -if (lean::is_scalar(x_56)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_58 = x_56; -} -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_54); -if (lean::is_scalar(x_51)) { - x_59 = lean::alloc_cnstr(1, 1, 0); -} else { - x_59 = x_51; -} -lean::cnstr_set(x_59, 0, x_58); -return x_59; -} -} -} -else -{ -obj* x_60; obj* x_63; -x_60 = lean::cnstr_get(x_12, 0); -lean::inc(x_60); -lean::dec(x_12); -x_63 = lean::cnstr_get(x_60, 1); -lean::inc(x_63); -lean::dec(x_60); -if (lean::obj_tag(x_63) == 0) -{ -obj* x_66; obj* x_68; obj* x_70; obj* x_71; obj* x_73; -x_66 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_68 = x_1; -} else { - lean::inc(x_66); - lean::dec(x_1); - x_68 = lean::box(0); -} -lean::inc(x_0); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_0); -x_71 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_73 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_70, x_71, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_70); -if (lean::obj_tag(x_73) == 0) -{ -obj* x_80; obj* x_82; obj* x_83; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_68); -lean::dec(x_66); -x_80 = lean::cnstr_get(x_73, 0); -if (lean::is_exclusive(x_73)) { - x_82 = x_73; -} else { - lean::inc(x_80); - lean::dec(x_73); - x_82 = lean::box(0); -} -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(0, 1, 0); -} else { - x_83 = x_82; -} -lean::cnstr_set(x_83, 0, x_80); -return x_83; -} -else -{ -obj* x_84; obj* x_87; obj* x_89; obj* x_92; -x_84 = lean::cnstr_get(x_73, 0); -lean::inc(x_84); -lean::dec(x_73); -x_87 = lean::cnstr_get(x_84, 0); -lean::inc(x_87); -x_89 = lean::cnstr_get(x_84, 1); -lean::inc(x_89); -lean::dec(x_84); -x_92 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_66, x_2, x_3, x_89); -if (lean::obj_tag(x_92) == 0) -{ -obj* x_95; obj* x_97; obj* x_98; -lean::dec(x_68); -lean::dec(x_87); -x_95 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_97 = x_92; -} else { - lean::inc(x_95); - lean::dec(x_92); - x_97 = lean::box(0); -} -if (lean::is_scalar(x_97)) { - x_98 = lean::alloc_cnstr(0, 1, 0); -} else { - x_98 = x_97; -} -lean::cnstr_set(x_98, 0, x_95); -return x_98; -} -else -{ -obj* x_99; obj* x_101; obj* x_102; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; -x_99 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_101 = x_92; -} else { - lean::inc(x_99); - lean::dec(x_92); - x_101 = lean::box(0); -} -x_102 = lean::cnstr_get(x_99, 0); -x_104 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_106 = x_99; -} else { - lean::inc(x_102); - lean::inc(x_104); - lean::dec(x_99); - x_106 = lean::box(0); -} -if (lean::is_scalar(x_68)) { - x_107 = lean::alloc_cnstr(1, 2, 0); -} else { - x_107 = x_68; -} -lean::cnstr_set(x_107, 0, x_87); -lean::cnstr_set(x_107, 1, x_102); -if (lean::is_scalar(x_106)) { - x_108 = lean::alloc_cnstr(0, 2, 0); -} else { - x_108 = x_106; -} -lean::cnstr_set(x_108, 0, x_107); -lean::cnstr_set(x_108, 1, x_104); -if (lean::is_scalar(x_101)) { - x_109 = lean::alloc_cnstr(1, 1, 0); -} else { - x_109 = x_101; -} -lean::cnstr_set(x_109, 0, x_108); -return x_109; -} -} -} -else -{ -obj* x_110; obj* x_112; obj* x_113; obj* x_117; -x_110 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_112 = x_1; -} else { - lean::inc(x_110); - lean::dec(x_1); - x_112 = lean::box(0); -} -x_113 = lean::cnstr_get(x_63, 0); -lean::inc(x_113); -lean::dec(x_63); -lean::inc(x_3); -x_117 = l_Lean_Elaborator_toPexpr___main(x_113, x_2, x_3, x_4); -if (lean::obj_tag(x_117) == 0) -{ -obj* x_122; obj* x_124; obj* x_125; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_110); -lean::dec(x_112); -x_122 = lean::cnstr_get(x_117, 0); -if (lean::is_exclusive(x_117)) { - x_124 = x_117; -} else { - lean::inc(x_122); - lean::dec(x_117); - x_124 = lean::box(0); -} -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(0, 1, 0); -} else { - x_125 = x_124; -} -lean::cnstr_set(x_125, 0, x_122); -return x_125; -} -else -{ -obj* x_126; obj* x_129; obj* x_131; obj* x_134; -x_126 = lean::cnstr_get(x_117, 0); -lean::inc(x_126); -lean::dec(x_117); -x_129 = lean::cnstr_get(x_126, 0); -lean::inc(x_129); -x_131 = lean::cnstr_get(x_126, 1); -lean::inc(x_131); -lean::dec(x_126); -x_134 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_110, x_2, x_3, x_131); -if (lean::obj_tag(x_134) == 0) -{ -obj* x_137; obj* x_139; obj* x_140; -lean::dec(x_112); -lean::dec(x_129); -x_137 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_139 = x_134; -} else { - lean::inc(x_137); - lean::dec(x_134); - x_139 = lean::box(0); -} -if (lean::is_scalar(x_139)) { - x_140 = lean::alloc_cnstr(0, 1, 0); -} else { - x_140 = x_139; -} -lean::cnstr_set(x_140, 0, x_137); -return x_140; -} -else -{ -obj* x_141; obj* x_143; obj* x_144; obj* x_146; obj* x_148; obj* x_149; obj* x_150; obj* x_151; -x_141 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_143 = x_134; -} else { - lean::inc(x_141); - lean::dec(x_134); - x_143 = lean::box(0); -} -x_144 = lean::cnstr_get(x_141, 0); -x_146 = lean::cnstr_get(x_141, 1); -if (lean::is_exclusive(x_141)) { - x_148 = x_141; -} else { - lean::inc(x_144); - lean::inc(x_146); - lean::dec(x_141); - x_148 = lean::box(0); -} -if (lean::is_scalar(x_112)) { - x_149 = lean::alloc_cnstr(1, 2, 0); -} else { - x_149 = x_112; -} -lean::cnstr_set(x_149, 0, x_129); -lean::cnstr_set(x_149, 1, x_144); -if (lean::is_scalar(x_148)) { - x_150 = lean::alloc_cnstr(0, 2, 0); -} else { - x_150 = x_148; -} -lean::cnstr_set(x_150, 0, x_149); -lean::cnstr_set(x_150, 1, x_146); -if (lean::is_scalar(x_143)) { - x_151 = lean::alloc_cnstr(1, 1, 0); -} else { - x_151 = x_143; -} -lean::cnstr_set(x_151, 0, x_150); -return x_151; -} + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -4011,277 +3878,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_24; -x_15 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} -x_18 = lean::cnstr_get(x_12, 0); -lean::inc(x_18); -lean::dec(x_12); -x_21 = lean::cnstr_get(x_18, 2); -lean::inc(x_21); +lean::dec(x_1); +lean::inc(x_0); +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_24 = l_Lean_Elaborator_toPexpr___main(x_21, x_2, x_3, x_4); -if (lean::obj_tag(x_24) == 0) +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) { -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_15); +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_17); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_24, 0); -if (lean::is_exclusive(x_24)) { - x_32 = x_24; +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; } else { - lean::inc(x_30); - lean::dec(x_24); - x_32 = lean::box(0); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); } -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_33 = x_32; + x_28 = x_27; } -lean::cnstr_set(x_33, 0, x_30); -return x_33; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_24, 0); +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +lean::dec(x_20); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_24); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_0, x_15, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_46; obj* x_48; obj* x_49; -lean::dec(x_37); -lean::dec(x_17); -lean::dec(x_18); -x_46 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_48 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; +} else { + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); +} +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); +} else { + x_42 = x_41; +} +lean::cnstr_set(x_42, 0, x_39); +return x_42; +} +else +{ +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; +} else { + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); +} +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { lean::inc(x_46); - lean::dec(x_42); - x_48 = lean::box(0); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_48)) { - x_49 = lean::alloc_cnstr(0, 1, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_49 = x_48; + x_52 = x_50; } -lean::cnstr_set(x_49, 0, x_46); -return x_49; -} -else -{ -obj* x_50; obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; -x_50 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_52 = x_42; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_50); - lean::dec(x_42); - x_52 = lean::box(0); -} -x_53 = lean::cnstr_get(x_50, 0); -x_55 = lean::cnstr_get(x_50, 1); -if (lean::is_exclusive(x_50)) { - x_57 = x_50; -} else { - lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_50); - x_57 = lean::box(0); -} -x_58 = lean::cnstr_get(x_18, 0); -lean::inc(x_58); -lean::dec(x_18); -x_61 = l_Lean_Elaborator_mangleIdent(x_58); -x_62 = lean::box(0); -x_63 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1; -x_64 = l_Lean_KVMap_setName(x_62, x_63, x_61); -x_65 = lean_expr_mk_mdata(x_64, x_37); -if (lean::is_scalar(x_17)) { - x_66 = lean::alloc_cnstr(1, 2, 0); -} else { - x_66 = x_17; -} -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_53); -if (lean::is_scalar(x_57)) { - x_67 = lean::alloc_cnstr(0, 2, 0); -} else { - x_67 = x_57; -} -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_55); -if (lean::is_scalar(x_52)) { - x_68 = lean::alloc_cnstr(1, 1, 0); -} else { - x_68 = x_52; -} -lean::cnstr_set(x_68, 0, x_67); -return x_68; -} -} -} -else -{ -obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_77; -lean::dec(x_12); -x_70 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_72 = x_1; -} else { - lean::inc(x_70); - lean::dec(x_1); - x_72 = lean::box(0); -} -lean::inc(x_0); -x_74 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_74, 0, x_0); -x_75 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_77 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_74, x_75, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_74); -if (lean::obj_tag(x_77) == 0) -{ -obj* x_84; obj* x_86; obj* x_87; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_70); -lean::dec(x_72); -x_84 = lean::cnstr_get(x_77, 0); -if (lean::is_exclusive(x_77)) { - x_86 = x_77; -} else { - lean::inc(x_84); - lean::dec(x_77); - x_86 = lean::box(0); -} -if (lean::is_scalar(x_86)) { - x_87 = lean::alloc_cnstr(0, 1, 0); -} else { - x_87 = x_86; -} -lean::cnstr_set(x_87, 0, x_84); -return x_87; -} -else -{ -obj* x_88; obj* x_91; obj* x_93; obj* x_96; -x_88 = lean::cnstr_get(x_77, 0); -lean::inc(x_88); -lean::dec(x_77); -x_91 = lean::cnstr_get(x_88, 0); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 1); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_0, x_70, x_2, x_3, x_93); -if (lean::obj_tag(x_96) == 0) -{ -obj* x_99; obj* x_101; obj* x_102; -lean::dec(x_72); -lean::dec(x_91); -x_99 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; -} else { - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); -} -if (lean::is_scalar(x_101)) { - x_102 = lean::alloc_cnstr(0, 1, 0); -} else { - x_102 = x_101; -} -lean::cnstr_set(x_102, 0, x_99); -return x_102; -} -else -{ -obj* x_103; obj* x_105; obj* x_106; obj* x_108; obj* x_110; obj* x_111; obj* x_112; obj* x_113; -x_103 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_105 = x_96; -} else { - lean::inc(x_103); - lean::dec(x_96); - x_105 = lean::box(0); -} -x_106 = lean::cnstr_get(x_103, 0); -x_108 = lean::cnstr_get(x_103, 1); -if (lean::is_exclusive(x_103)) { - x_110 = x_103; -} else { - lean::inc(x_106); - lean::inc(x_108); - lean::dec(x_103); - x_110 = lean::box(0); -} -if (lean::is_scalar(x_72)) { - x_111 = lean::alloc_cnstr(1, 2, 0); -} else { - x_111 = x_72; -} -lean::cnstr_set(x_111, 0, x_91); -lean::cnstr_set(x_111, 1, x_106); -if (lean::is_scalar(x_110)) { - x_112 = lean::alloc_cnstr(0, 2, 0); -} else { - x_112 = x_110; -} -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_108); -if (lean::is_scalar(x_105)) { - x_113 = lean::alloc_cnstr(1, 1, 0); -} else { - x_113 = x_105; -} -lean::cnstr_set(x_113, 0, x_112); -return x_113; + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -4292,397 +4003,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_23; -lean::dec(x_12); -x_16 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::dec(x_1); lean::inc(x_0); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_0); -x_21 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_23 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_20, x_21, x_2, x_3, x_4); -lean::dec(x_4); +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) +{ +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; +} else { + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); +} +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); +} else { + x_28 = x_27; +} +lean::cnstr_set(x_28, 0, x_25); +return x_28; +} +else +{ +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); lean::dec(x_20); -if (lean::obj_tag(x_23) == 0) -{ -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_16); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_32 = x_23; -} else { - lean::inc(x_30); - lean::dec(x_23); - x_32 = lean::box(0); -} -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); -} else { - x_33 = x_32; -} -lean::cnstr_set(x_33, 0, x_30); -return x_33; -} -else -{ -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_23, 0); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_23); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_16, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_45; obj* x_47; obj* x_48; -lean::dec(x_37); -lean::dec(x_18); -x_45 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_47 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; } else { - lean::inc(x_45); - lean::dec(x_42); - x_47 = lean::box(0); + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); } -if (lean::is_scalar(x_47)) { - x_48 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); } else { - x_48 = x_47; + x_42 = x_41; } -lean::cnstr_set(x_48, 0, x_45); -return x_48; +lean::cnstr_set(x_42, 0, x_39); +return x_42; } else { -obj* x_49; obj* x_51; obj* x_52; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_49 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_51 = x_42; +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; } else { - lean::inc(x_49); - lean::dec(x_42); - x_51 = lean::box(0); + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); } -x_52 = lean::cnstr_get(x_49, 0); -x_54 = lean::cnstr_get(x_49, 1); -if (lean::is_exclusive(x_49)) { - x_56 = x_49; +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { - lean::inc(x_52); - lean::inc(x_54); - lean::dec(x_49); - x_56 = lean::box(0); + lean::inc(x_46); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_18)) { - x_57 = lean::alloc_cnstr(1, 2, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_18; + x_52 = x_50; } -lean::cnstr_set(x_57, 0, x_37); -lean::cnstr_set(x_57, 1, x_52); -if (lean::is_scalar(x_56)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_58 = x_56; -} -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_54); -if (lean::is_scalar(x_51)) { - x_59 = lean::alloc_cnstr(1, 1, 0); -} else { - x_59 = x_51; -} -lean::cnstr_set(x_59, 0, x_58); -return x_59; -} -} -} -else -{ -obj* x_60; obj* x_63; -x_60 = lean::cnstr_get(x_12, 0); -lean::inc(x_60); -lean::dec(x_12); -x_63 = lean::cnstr_get(x_60, 1); -lean::inc(x_63); -lean::dec(x_60); -if (lean::obj_tag(x_63) == 0) -{ -obj* x_66; obj* x_68; obj* x_70; obj* x_71; obj* x_73; -x_66 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_68 = x_1; -} else { - lean::inc(x_66); - lean::dec(x_1); - x_68 = lean::box(0); -} -lean::inc(x_0); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_0); -x_71 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_73 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_70, x_71, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_70); -if (lean::obj_tag(x_73) == 0) -{ -obj* x_80; obj* x_82; obj* x_83; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_68); -lean::dec(x_66); -x_80 = lean::cnstr_get(x_73, 0); -if (lean::is_exclusive(x_73)) { - x_82 = x_73; -} else { - lean::inc(x_80); - lean::dec(x_73); - x_82 = lean::box(0); -} -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(0, 1, 0); -} else { - x_83 = x_82; -} -lean::cnstr_set(x_83, 0, x_80); -return x_83; -} -else -{ -obj* x_84; obj* x_87; obj* x_89; obj* x_92; -x_84 = lean::cnstr_get(x_73, 0); -lean::inc(x_84); -lean::dec(x_73); -x_87 = lean::cnstr_get(x_84, 0); -lean::inc(x_87); -x_89 = lean::cnstr_get(x_84, 1); -lean::inc(x_89); -lean::dec(x_84); -x_92 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_66, x_2, x_3, x_89); -if (lean::obj_tag(x_92) == 0) -{ -obj* x_95; obj* x_97; obj* x_98; -lean::dec(x_68); -lean::dec(x_87); -x_95 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_97 = x_92; -} else { - lean::inc(x_95); - lean::dec(x_92); - x_97 = lean::box(0); -} -if (lean::is_scalar(x_97)) { - x_98 = lean::alloc_cnstr(0, 1, 0); -} else { - x_98 = x_97; -} -lean::cnstr_set(x_98, 0, x_95); -return x_98; -} -else -{ -obj* x_99; obj* x_101; obj* x_102; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; -x_99 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_101 = x_92; -} else { - lean::inc(x_99); - lean::dec(x_92); - x_101 = lean::box(0); -} -x_102 = lean::cnstr_get(x_99, 0); -x_104 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_106 = x_99; -} else { - lean::inc(x_102); - lean::inc(x_104); - lean::dec(x_99); - x_106 = lean::box(0); -} -if (lean::is_scalar(x_68)) { - x_107 = lean::alloc_cnstr(1, 2, 0); -} else { - x_107 = x_68; -} -lean::cnstr_set(x_107, 0, x_87); -lean::cnstr_set(x_107, 1, x_102); -if (lean::is_scalar(x_106)) { - x_108 = lean::alloc_cnstr(0, 2, 0); -} else { - x_108 = x_106; -} -lean::cnstr_set(x_108, 0, x_107); -lean::cnstr_set(x_108, 1, x_104); -if (lean::is_scalar(x_101)) { - x_109 = lean::alloc_cnstr(1, 1, 0); -} else { - x_109 = x_101; -} -lean::cnstr_set(x_109, 0, x_108); -return x_109; -} -} -} -else -{ -obj* x_110; obj* x_112; obj* x_113; obj* x_117; -x_110 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_112 = x_1; -} else { - lean::inc(x_110); - lean::dec(x_1); - x_112 = lean::box(0); -} -x_113 = lean::cnstr_get(x_63, 0); -lean::inc(x_113); -lean::dec(x_63); -lean::inc(x_3); -x_117 = l_Lean_Elaborator_toPexpr___main(x_113, x_2, x_3, x_4); -if (lean::obj_tag(x_117) == 0) -{ -obj* x_122; obj* x_124; obj* x_125; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_110); -lean::dec(x_112); -x_122 = lean::cnstr_get(x_117, 0); -if (lean::is_exclusive(x_117)) { - x_124 = x_117; -} else { - lean::inc(x_122); - lean::dec(x_117); - x_124 = lean::box(0); -} -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(0, 1, 0); -} else { - x_125 = x_124; -} -lean::cnstr_set(x_125, 0, x_122); -return x_125; -} -else -{ -obj* x_126; obj* x_129; obj* x_131; obj* x_134; -x_126 = lean::cnstr_get(x_117, 0); -lean::inc(x_126); -lean::dec(x_117); -x_129 = lean::cnstr_get(x_126, 0); -lean::inc(x_129); -x_131 = lean::cnstr_get(x_126, 1); -lean::inc(x_131); -lean::dec(x_126); -x_134 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_110, x_2, x_3, x_131); -if (lean::obj_tag(x_134) == 0) -{ -obj* x_137; obj* x_139; obj* x_140; -lean::dec(x_112); -lean::dec(x_129); -x_137 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_139 = x_134; -} else { - lean::inc(x_137); - lean::dec(x_134); - x_139 = lean::box(0); -} -if (lean::is_scalar(x_139)) { - x_140 = lean::alloc_cnstr(0, 1, 0); -} else { - x_140 = x_139; -} -lean::cnstr_set(x_140, 0, x_137); -return x_140; -} -else -{ -obj* x_141; obj* x_143; obj* x_144; obj* x_146; obj* x_148; obj* x_149; obj* x_150; obj* x_151; -x_141 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_143 = x_134; -} else { - lean::inc(x_141); - lean::dec(x_134); - x_143 = lean::box(0); -} -x_144 = lean::cnstr_get(x_141, 0); -x_146 = lean::cnstr_get(x_141, 1); -if (lean::is_exclusive(x_141)) { - x_148 = x_141; -} else { - lean::inc(x_144); - lean::inc(x_146); - lean::dec(x_141); - x_148 = lean::box(0); -} -if (lean::is_scalar(x_112)) { - x_149 = lean::alloc_cnstr(1, 2, 0); -} else { - x_149 = x_112; -} -lean::cnstr_set(x_149, 0, x_129); -lean::cnstr_set(x_149, 1, x_144); -if (lean::is_scalar(x_148)) { - x_150 = lean::alloc_cnstr(0, 2, 0); -} else { - x_150 = x_148; -} -lean::cnstr_set(x_150, 0, x_149); -lean::cnstr_set(x_150, 1, x_146); -if (lean::is_scalar(x_143)) { - x_151 = lean::alloc_cnstr(1, 1, 0); -} else { - x_151 = x_143; -} -lean::cnstr_set(x_151, 0, x_150); -return x_151; -} + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -4693,277 +4128,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_24; -x_15 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} -x_18 = lean::cnstr_get(x_12, 0); -lean::inc(x_18); -lean::dec(x_12); -x_21 = lean::cnstr_get(x_18, 2); -lean::inc(x_21); +lean::dec(x_1); +lean::inc(x_0); +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_24 = l_Lean_Elaborator_toPexpr___main(x_21, x_2, x_3, x_4); -if (lean::obj_tag(x_24) == 0) +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) { -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_15); +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_17); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_24, 0); -if (lean::is_exclusive(x_24)) { - x_32 = x_24; +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; } else { - lean::inc(x_30); - lean::dec(x_24); - x_32 = lean::box(0); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); } -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_33 = x_32; + x_28 = x_27; } -lean::cnstr_set(x_33, 0, x_30); -return x_33; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_24, 0); +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +lean::dec(x_20); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_24); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_15, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_46; obj* x_48; obj* x_49; -lean::dec(x_37); -lean::dec(x_17); -lean::dec(x_18); -x_46 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_48 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; +} else { + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); +} +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); +} else { + x_42 = x_41; +} +lean::cnstr_set(x_42, 0, x_39); +return x_42; +} +else +{ +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; +} else { + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); +} +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { lean::inc(x_46); - lean::dec(x_42); - x_48 = lean::box(0); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_48)) { - x_49 = lean::alloc_cnstr(0, 1, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_49 = x_48; + x_52 = x_50; } -lean::cnstr_set(x_49, 0, x_46); -return x_49; -} -else -{ -obj* x_50; obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; -x_50 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_52 = x_42; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_50); - lean::dec(x_42); - x_52 = lean::box(0); -} -x_53 = lean::cnstr_get(x_50, 0); -x_55 = lean::cnstr_get(x_50, 1); -if (lean::is_exclusive(x_50)) { - x_57 = x_50; -} else { - lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_50); - x_57 = lean::box(0); -} -x_58 = lean::cnstr_get(x_18, 0); -lean::inc(x_58); -lean::dec(x_18); -x_61 = l_Lean_Elaborator_mangleIdent(x_58); -x_62 = lean::box(0); -x_63 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1; -x_64 = l_Lean_KVMap_setName(x_62, x_63, x_61); -x_65 = lean_expr_mk_mdata(x_64, x_37); -if (lean::is_scalar(x_17)) { - x_66 = lean::alloc_cnstr(1, 2, 0); -} else { - x_66 = x_17; -} -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_53); -if (lean::is_scalar(x_57)) { - x_67 = lean::alloc_cnstr(0, 2, 0); -} else { - x_67 = x_57; -} -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_55); -if (lean::is_scalar(x_52)) { - x_68 = lean::alloc_cnstr(1, 1, 0); -} else { - x_68 = x_52; -} -lean::cnstr_set(x_68, 0, x_67); -return x_68; -} -} -} -else -{ -obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_77; -lean::dec(x_12); -x_70 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_72 = x_1; -} else { - lean::inc(x_70); - lean::dec(x_1); - x_72 = lean::box(0); -} -lean::inc(x_0); -x_74 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_74, 0, x_0); -x_75 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_77 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_74, x_75, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_74); -if (lean::obj_tag(x_77) == 0) -{ -obj* x_84; obj* x_86; obj* x_87; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_70); -lean::dec(x_72); -x_84 = lean::cnstr_get(x_77, 0); -if (lean::is_exclusive(x_77)) { - x_86 = x_77; -} else { - lean::inc(x_84); - lean::dec(x_77); - x_86 = lean::box(0); -} -if (lean::is_scalar(x_86)) { - x_87 = lean::alloc_cnstr(0, 1, 0); -} else { - x_87 = x_86; -} -lean::cnstr_set(x_87, 0, x_84); -return x_87; -} -else -{ -obj* x_88; obj* x_91; obj* x_93; obj* x_96; -x_88 = lean::cnstr_get(x_77, 0); -lean::inc(x_88); -lean::dec(x_77); -x_91 = lean::cnstr_get(x_88, 0); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 1); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_70, x_2, x_3, x_93); -if (lean::obj_tag(x_96) == 0) -{ -obj* x_99; obj* x_101; obj* x_102; -lean::dec(x_72); -lean::dec(x_91); -x_99 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; -} else { - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); -} -if (lean::is_scalar(x_101)) { - x_102 = lean::alloc_cnstr(0, 1, 0); -} else { - x_102 = x_101; -} -lean::cnstr_set(x_102, 0, x_99); -return x_102; -} -else -{ -obj* x_103; obj* x_105; obj* x_106; obj* x_108; obj* x_110; obj* x_111; obj* x_112; obj* x_113; -x_103 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_105 = x_96; -} else { - lean::inc(x_103); - lean::dec(x_96); - x_105 = lean::box(0); -} -x_106 = lean::cnstr_get(x_103, 0); -x_108 = lean::cnstr_get(x_103, 1); -if (lean::is_exclusive(x_103)) { - x_110 = x_103; -} else { - lean::inc(x_106); - lean::inc(x_108); - lean::dec(x_103); - x_110 = lean::box(0); -} -if (lean::is_scalar(x_72)) { - x_111 = lean::alloc_cnstr(1, 2, 0); -} else { - x_111 = x_72; -} -lean::cnstr_set(x_111, 0, x_91); -lean::cnstr_set(x_111, 1, x_106); -if (lean::is_scalar(x_110)) { - x_112 = lean::alloc_cnstr(0, 2, 0); -} else { - x_112 = x_110; -} -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_108); -if (lean::is_scalar(x_105)) { - x_113 = lean::alloc_cnstr(1, 1, 0); -} else { - x_113 = x_105; -} -lean::cnstr_set(x_113, 0, x_112); -return x_113; + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -4974,397 +4253,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_23; -lean::dec(x_12); -x_16 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::dec(x_1); lean::inc(x_0); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_0); -x_21 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_23 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_20, x_21, x_2, x_3, x_4); -lean::dec(x_4); +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) +{ +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; +} else { + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); +} +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); +} else { + x_28 = x_27; +} +lean::cnstr_set(x_28, 0, x_25); +return x_28; +} +else +{ +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); lean::dec(x_20); -if (lean::obj_tag(x_23) == 0) -{ -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_16); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_32 = x_23; -} else { - lean::inc(x_30); - lean::dec(x_23); - x_32 = lean::box(0); -} -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); -} else { - x_33 = x_32; -} -lean::cnstr_set(x_33, 0, x_30); -return x_33; -} -else -{ -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_23, 0); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_23); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_16, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_45; obj* x_47; obj* x_48; -lean::dec(x_37); -lean::dec(x_18); -x_45 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_47 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; } else { - lean::inc(x_45); - lean::dec(x_42); - x_47 = lean::box(0); + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); } -if (lean::is_scalar(x_47)) { - x_48 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); } else { - x_48 = x_47; + x_42 = x_41; } -lean::cnstr_set(x_48, 0, x_45); -return x_48; +lean::cnstr_set(x_42, 0, x_39); +return x_42; } else { -obj* x_49; obj* x_51; obj* x_52; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_49 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_51 = x_42; +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; } else { - lean::inc(x_49); - lean::dec(x_42); - x_51 = lean::box(0); + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); } -x_52 = lean::cnstr_get(x_49, 0); -x_54 = lean::cnstr_get(x_49, 1); -if (lean::is_exclusive(x_49)) { - x_56 = x_49; +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { - lean::inc(x_52); - lean::inc(x_54); - lean::dec(x_49); - x_56 = lean::box(0); + lean::inc(x_46); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_18)) { - x_57 = lean::alloc_cnstr(1, 2, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_18; + x_52 = x_50; } -lean::cnstr_set(x_57, 0, x_37); -lean::cnstr_set(x_57, 1, x_52); -if (lean::is_scalar(x_56)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_58 = x_56; -} -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_54); -if (lean::is_scalar(x_51)) { - x_59 = lean::alloc_cnstr(1, 1, 0); -} else { - x_59 = x_51; -} -lean::cnstr_set(x_59, 0, x_58); -return x_59; -} -} -} -else -{ -obj* x_60; obj* x_63; -x_60 = lean::cnstr_get(x_12, 0); -lean::inc(x_60); -lean::dec(x_12); -x_63 = lean::cnstr_get(x_60, 1); -lean::inc(x_63); -lean::dec(x_60); -if (lean::obj_tag(x_63) == 0) -{ -obj* x_66; obj* x_68; obj* x_70; obj* x_71; obj* x_73; -x_66 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_68 = x_1; -} else { - lean::inc(x_66); - lean::dec(x_1); - x_68 = lean::box(0); -} -lean::inc(x_0); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_0); -x_71 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_73 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_70, x_71, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_70); -if (lean::obj_tag(x_73) == 0) -{ -obj* x_80; obj* x_82; obj* x_83; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_68); -lean::dec(x_66); -x_80 = lean::cnstr_get(x_73, 0); -if (lean::is_exclusive(x_73)) { - x_82 = x_73; -} else { - lean::inc(x_80); - lean::dec(x_73); - x_82 = lean::box(0); -} -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(0, 1, 0); -} else { - x_83 = x_82; -} -lean::cnstr_set(x_83, 0, x_80); -return x_83; -} -else -{ -obj* x_84; obj* x_87; obj* x_89; obj* x_92; -x_84 = lean::cnstr_get(x_73, 0); -lean::inc(x_84); -lean::dec(x_73); -x_87 = lean::cnstr_get(x_84, 0); -lean::inc(x_87); -x_89 = lean::cnstr_get(x_84, 1); -lean::inc(x_89); -lean::dec(x_84); -x_92 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_66, x_2, x_3, x_89); -if (lean::obj_tag(x_92) == 0) -{ -obj* x_95; obj* x_97; obj* x_98; -lean::dec(x_68); -lean::dec(x_87); -x_95 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_97 = x_92; -} else { - lean::inc(x_95); - lean::dec(x_92); - x_97 = lean::box(0); -} -if (lean::is_scalar(x_97)) { - x_98 = lean::alloc_cnstr(0, 1, 0); -} else { - x_98 = x_97; -} -lean::cnstr_set(x_98, 0, x_95); -return x_98; -} -else -{ -obj* x_99; obj* x_101; obj* x_102; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; -x_99 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_101 = x_92; -} else { - lean::inc(x_99); - lean::dec(x_92); - x_101 = lean::box(0); -} -x_102 = lean::cnstr_get(x_99, 0); -x_104 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_106 = x_99; -} else { - lean::inc(x_102); - lean::inc(x_104); - lean::dec(x_99); - x_106 = lean::box(0); -} -if (lean::is_scalar(x_68)) { - x_107 = lean::alloc_cnstr(1, 2, 0); -} else { - x_107 = x_68; -} -lean::cnstr_set(x_107, 0, x_87); -lean::cnstr_set(x_107, 1, x_102); -if (lean::is_scalar(x_106)) { - x_108 = lean::alloc_cnstr(0, 2, 0); -} else { - x_108 = x_106; -} -lean::cnstr_set(x_108, 0, x_107); -lean::cnstr_set(x_108, 1, x_104); -if (lean::is_scalar(x_101)) { - x_109 = lean::alloc_cnstr(1, 1, 0); -} else { - x_109 = x_101; -} -lean::cnstr_set(x_109, 0, x_108); -return x_109; -} -} -} -else -{ -obj* x_110; obj* x_112; obj* x_113; obj* x_117; -x_110 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_112 = x_1; -} else { - lean::inc(x_110); - lean::dec(x_1); - x_112 = lean::box(0); -} -x_113 = lean::cnstr_get(x_63, 0); -lean::inc(x_113); -lean::dec(x_63); -lean::inc(x_3); -x_117 = l_Lean_Elaborator_toPexpr___main(x_113, x_2, x_3, x_4); -if (lean::obj_tag(x_117) == 0) -{ -obj* x_122; obj* x_124; obj* x_125; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_110); -lean::dec(x_112); -x_122 = lean::cnstr_get(x_117, 0); -if (lean::is_exclusive(x_117)) { - x_124 = x_117; -} else { - lean::inc(x_122); - lean::dec(x_117); - x_124 = lean::box(0); -} -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(0, 1, 0); -} else { - x_125 = x_124; -} -lean::cnstr_set(x_125, 0, x_122); -return x_125; -} -else -{ -obj* x_126; obj* x_129; obj* x_131; obj* x_134; -x_126 = lean::cnstr_get(x_117, 0); -lean::inc(x_126); -lean::dec(x_117); -x_129 = lean::cnstr_get(x_126, 0); -lean::inc(x_129); -x_131 = lean::cnstr_get(x_126, 1); -lean::inc(x_131); -lean::dec(x_126); -x_134 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_110, x_2, x_3, x_131); -if (lean::obj_tag(x_134) == 0) -{ -obj* x_137; obj* x_139; obj* x_140; -lean::dec(x_112); -lean::dec(x_129); -x_137 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_139 = x_134; -} else { - lean::inc(x_137); - lean::dec(x_134); - x_139 = lean::box(0); -} -if (lean::is_scalar(x_139)) { - x_140 = lean::alloc_cnstr(0, 1, 0); -} else { - x_140 = x_139; -} -lean::cnstr_set(x_140, 0, x_137); -return x_140; -} -else -{ -obj* x_141; obj* x_143; obj* x_144; obj* x_146; obj* x_148; obj* x_149; obj* x_150; obj* x_151; -x_141 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_143 = x_134; -} else { - lean::inc(x_141); - lean::dec(x_134); - x_143 = lean::box(0); -} -x_144 = lean::cnstr_get(x_141, 0); -x_146 = lean::cnstr_get(x_141, 1); -if (lean::is_exclusive(x_141)) { - x_148 = x_141; -} else { - lean::inc(x_144); - lean::inc(x_146); - lean::dec(x_141); - x_148 = lean::box(0); -} -if (lean::is_scalar(x_112)) { - x_149 = lean::alloc_cnstr(1, 2, 0); -} else { - x_149 = x_112; -} -lean::cnstr_set(x_149, 0, x_129); -lean::cnstr_set(x_149, 1, x_144); -if (lean::is_scalar(x_148)) { - x_150 = lean::alloc_cnstr(0, 2, 0); -} else { - x_150 = x_148; -} -lean::cnstr_set(x_150, 0, x_149); -lean::cnstr_set(x_150, 1, x_146); -if (lean::is_scalar(x_143)) { - x_151 = lean::alloc_cnstr(1, 1, 0); -} else { - x_151 = x_143; -} -lean::cnstr_set(x_151, 0, x_150); -return x_151; -} + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -5375,277 +4378,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_24; -x_15 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_17 = x_1; -} else { - lean::inc(x_15); - lean::dec(x_1); - x_17 = lean::box(0); -} -x_18 = lean::cnstr_get(x_12, 0); -lean::inc(x_18); -lean::dec(x_12); -x_21 = lean::cnstr_get(x_18, 2); -lean::inc(x_21); +lean::dec(x_1); +lean::inc(x_0); +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_24 = l_Lean_Elaborator_toPexpr___main(x_21, x_2, x_3, x_4); -if (lean::obj_tag(x_24) == 0) +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) { -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_15); +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_17); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_24, 0); -if (lean::is_exclusive(x_24)) { - x_32 = x_24; +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; } else { - lean::inc(x_30); - lean::dec(x_24); - x_32 = lean::box(0); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); } -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_33 = x_32; + x_28 = x_27; } -lean::cnstr_set(x_33, 0, x_30); -return x_33; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_24, 0); +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +lean::dec(x_20); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_24); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_15, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_46; obj* x_48; obj* x_49; -lean::dec(x_37); -lean::dec(x_17); -lean::dec(x_18); -x_46 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_48 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; +} else { + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); +} +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); +} else { + x_42 = x_41; +} +lean::cnstr_set(x_42, 0, x_39); +return x_42; +} +else +{ +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; +} else { + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); +} +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { lean::inc(x_46); - lean::dec(x_42); - x_48 = lean::box(0); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_48)) { - x_49 = lean::alloc_cnstr(0, 1, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_49 = x_48; + x_52 = x_50; } -lean::cnstr_set(x_49, 0, x_46); -return x_49; -} -else -{ -obj* x_50; obj* x_52; obj* x_53; obj* x_55; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; -x_50 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_52 = x_42; +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_50); - lean::dec(x_42); - x_52 = lean::box(0); -} -x_53 = lean::cnstr_get(x_50, 0); -x_55 = lean::cnstr_get(x_50, 1); -if (lean::is_exclusive(x_50)) { - x_57 = x_50; -} else { - lean::inc(x_53); - lean::inc(x_55); - lean::dec(x_50); - x_57 = lean::box(0); -} -x_58 = lean::cnstr_get(x_18, 0); -lean::inc(x_58); -lean::dec(x_18); -x_61 = l_Lean_Elaborator_mangleIdent(x_58); -x_62 = lean::box(0); -x_63 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1; -x_64 = l_Lean_KVMap_setName(x_62, x_63, x_61); -x_65 = lean_expr_mk_mdata(x_64, x_37); -if (lean::is_scalar(x_17)) { - x_66 = lean::alloc_cnstr(1, 2, 0); -} else { - x_66 = x_17; -} -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_53); -if (lean::is_scalar(x_57)) { - x_67 = lean::alloc_cnstr(0, 2, 0); -} else { - x_67 = x_57; -} -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_55); -if (lean::is_scalar(x_52)) { - x_68 = lean::alloc_cnstr(1, 1, 0); -} else { - x_68 = x_52; -} -lean::cnstr_set(x_68, 0, x_67); -return x_68; -} -} -} -else -{ -obj* x_70; obj* x_72; obj* x_74; obj* x_75; obj* x_77; -lean::dec(x_12); -x_70 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_72 = x_1; -} else { - lean::inc(x_70); - lean::dec(x_1); - x_72 = lean::box(0); -} -lean::inc(x_0); -x_74 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_74, 0, x_0); -x_75 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_77 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_74, x_75, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_74); -if (lean::obj_tag(x_77) == 0) -{ -obj* x_84; obj* x_86; obj* x_87; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_70); -lean::dec(x_72); -x_84 = lean::cnstr_get(x_77, 0); -if (lean::is_exclusive(x_77)) { - x_86 = x_77; -} else { - lean::inc(x_84); - lean::dec(x_77); - x_86 = lean::box(0); -} -if (lean::is_scalar(x_86)) { - x_87 = lean::alloc_cnstr(0, 1, 0); -} else { - x_87 = x_86; -} -lean::cnstr_set(x_87, 0, x_84); -return x_87; -} -else -{ -obj* x_88; obj* x_91; obj* x_93; obj* x_96; -x_88 = lean::cnstr_get(x_77, 0); -lean::inc(x_88); -lean::dec(x_77); -x_91 = lean::cnstr_get(x_88, 0); -lean::inc(x_91); -x_93 = lean::cnstr_get(x_88, 1); -lean::inc(x_93); -lean::dec(x_88); -x_96 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_70, x_2, x_3, x_93); -if (lean::obj_tag(x_96) == 0) -{ -obj* x_99; obj* x_101; obj* x_102; -lean::dec(x_72); -lean::dec(x_91); -x_99 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_101 = x_96; -} else { - lean::inc(x_99); - lean::dec(x_96); - x_101 = lean::box(0); -} -if (lean::is_scalar(x_101)) { - x_102 = lean::alloc_cnstr(0, 1, 0); -} else { - x_102 = x_101; -} -lean::cnstr_set(x_102, 0, x_99); -return x_102; -} -else -{ -obj* x_103; obj* x_105; obj* x_106; obj* x_108; obj* x_110; obj* x_111; obj* x_112; obj* x_113; -x_103 = lean::cnstr_get(x_96, 0); -if (lean::is_exclusive(x_96)) { - x_105 = x_96; -} else { - lean::inc(x_103); - lean::dec(x_96); - x_105 = lean::box(0); -} -x_106 = lean::cnstr_get(x_103, 0); -x_108 = lean::cnstr_get(x_103, 1); -if (lean::is_exclusive(x_103)) { - x_110 = x_103; -} else { - lean::inc(x_106); - lean::inc(x_108); - lean::dec(x_103); - x_110 = lean::box(0); -} -if (lean::is_scalar(x_72)) { - x_111 = lean::alloc_cnstr(1, 2, 0); -} else { - x_111 = x_72; -} -lean::cnstr_set(x_111, 0, x_91); -lean::cnstr_set(x_111, 1, x_106); -if (lean::is_scalar(x_110)) { - x_112 = lean::alloc_cnstr(0, 2, 0); -} else { - x_112 = x_110; -} -lean::cnstr_set(x_112, 0, x_111); -lean::cnstr_set(x_112, 1, x_108); -if (lean::is_scalar(x_105)) { - x_113 = lean::alloc_cnstr(1, 1, 0); -} else { - x_113 = x_105; -} -lean::cnstr_set(x_113, 0, x_112); -return x_113; + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -5656,397 +4503,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); lean::inc(x_10); -x_12 = lean::cnstr_get(x_10, 0); +x_12 = lean::cnstr_get(x_1, 1); lean::inc(x_12); -lean::dec(x_10); -if (lean::obj_tag(x_12) == 0) -{ -obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_23; -lean::dec(x_12); -x_16 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_18 = x_1; -} else { - lean::inc(x_16); - lean::dec(x_1); - x_18 = lean::box(0); -} +lean::dec(x_1); lean::inc(x_0); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_0); -x_21 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_23 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_20, x_21, x_2, x_3, x_4); -lean::dec(x_4); +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) +{ +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; +} else { + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); +} +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); +} else { + x_28 = x_27; +} +lean::cnstr_set(x_28, 0, x_25); +return x_28; +} +else +{ +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); lean::dec(x_20); -if (lean::obj_tag(x_23) == 0) -{ -obj* x_30; obj* x_32; obj* x_33; -lean::dec(x_16); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_18); -x_30 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_32 = x_23; -} else { - lean::inc(x_30); - lean::dec(x_23); - x_32 = lean::box(0); -} -if (lean::is_scalar(x_32)) { - x_33 = lean::alloc_cnstr(0, 1, 0); -} else { - x_33 = x_32; -} -lean::cnstr_set(x_33, 0, x_30); -return x_33; -} -else -{ -obj* x_34; obj* x_37; obj* x_39; obj* x_42; -x_34 = lean::cnstr_get(x_23, 0); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); lean::inc(x_34); -lean::dec(x_23); -x_37 = lean::cnstr_get(x_34, 0); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_34, 1); -lean::inc(x_39); -lean::dec(x_34); -x_42 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_16, x_2, x_3, x_39); -if (lean::obj_tag(x_42) == 0) +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) { -obj* x_45; obj* x_47; obj* x_48; -lean::dec(x_37); -lean::dec(x_18); -x_45 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_47 = x_42; +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; } else { - lean::inc(x_45); - lean::dec(x_42); - x_47 = lean::box(0); + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); } -if (lean::is_scalar(x_47)) { - x_48 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); } else { - x_48 = x_47; + x_42 = x_41; } -lean::cnstr_set(x_48, 0, x_45); -return x_48; +lean::cnstr_set(x_42, 0, x_39); +return x_42; } else { -obj* x_49; obj* x_51; obj* x_52; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; -x_49 = lean::cnstr_get(x_42, 0); -if (lean::is_exclusive(x_42)) { - x_51 = x_42; +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; } else { - lean::inc(x_49); - lean::dec(x_42); - x_51 = lean::box(0); + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); } -x_52 = lean::cnstr_get(x_49, 0); -x_54 = lean::cnstr_get(x_49, 1); -if (lean::is_exclusive(x_49)) { - x_56 = x_49; +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { - lean::inc(x_52); - lean::inc(x_54); - lean::dec(x_49); - x_56 = lean::box(0); + lean::inc(x_46); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -if (lean::is_scalar(x_18)) { - x_57 = lean::alloc_cnstr(1, 2, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_57 = x_18; + x_52 = x_50; } -lean::cnstr_set(x_57, 0, x_37); -lean::cnstr_set(x_57, 1, x_52); -if (lean::is_scalar(x_56)) { - x_58 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_58 = x_56; -} -lean::cnstr_set(x_58, 0, x_57); -lean::cnstr_set(x_58, 1, x_54); -if (lean::is_scalar(x_51)) { - x_59 = lean::alloc_cnstr(1, 1, 0); -} else { - x_59 = x_51; -} -lean::cnstr_set(x_59, 0, x_58); -return x_59; -} -} -} -else -{ -obj* x_60; obj* x_63; -x_60 = lean::cnstr_get(x_12, 0); -lean::inc(x_60); -lean::dec(x_12); -x_63 = lean::cnstr_get(x_60, 1); -lean::inc(x_63); -lean::dec(x_60); -if (lean::obj_tag(x_63) == 0) -{ -obj* x_66; obj* x_68; obj* x_70; obj* x_71; obj* x_73; -x_66 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_68 = x_1; -} else { - lean::inc(x_66); - lean::dec(x_1); - x_68 = lean::box(0); -} -lean::inc(x_0); -x_70 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_70, 0, x_0); -x_71 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; -lean::inc(x_3); -x_73 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_70, x_71, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_70); -if (lean::obj_tag(x_73) == 0) -{ -obj* x_80; obj* x_82; obj* x_83; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_68); -lean::dec(x_66); -x_80 = lean::cnstr_get(x_73, 0); -if (lean::is_exclusive(x_73)) { - x_82 = x_73; -} else { - lean::inc(x_80); - lean::dec(x_73); - x_82 = lean::box(0); -} -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(0, 1, 0); -} else { - x_83 = x_82; -} -lean::cnstr_set(x_83, 0, x_80); -return x_83; -} -else -{ -obj* x_84; obj* x_87; obj* x_89; obj* x_92; -x_84 = lean::cnstr_get(x_73, 0); -lean::inc(x_84); -lean::dec(x_73); -x_87 = lean::cnstr_get(x_84, 0); -lean::inc(x_87); -x_89 = lean::cnstr_get(x_84, 1); -lean::inc(x_89); -lean::dec(x_84); -x_92 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_66, x_2, x_3, x_89); -if (lean::obj_tag(x_92) == 0) -{ -obj* x_95; obj* x_97; obj* x_98; -lean::dec(x_68); -lean::dec(x_87); -x_95 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_97 = x_92; -} else { - lean::inc(x_95); - lean::dec(x_92); - x_97 = lean::box(0); -} -if (lean::is_scalar(x_97)) { - x_98 = lean::alloc_cnstr(0, 1, 0); -} else { - x_98 = x_97; -} -lean::cnstr_set(x_98, 0, x_95); -return x_98; -} -else -{ -obj* x_99; obj* x_101; obj* x_102; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; -x_99 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_101 = x_92; -} else { - lean::inc(x_99); - lean::dec(x_92); - x_101 = lean::box(0); -} -x_102 = lean::cnstr_get(x_99, 0); -x_104 = lean::cnstr_get(x_99, 1); -if (lean::is_exclusive(x_99)) { - x_106 = x_99; -} else { - lean::inc(x_102); - lean::inc(x_104); - lean::dec(x_99); - x_106 = lean::box(0); -} -if (lean::is_scalar(x_68)) { - x_107 = lean::alloc_cnstr(1, 2, 0); -} else { - x_107 = x_68; -} -lean::cnstr_set(x_107, 0, x_87); -lean::cnstr_set(x_107, 1, x_102); -if (lean::is_scalar(x_106)) { - x_108 = lean::alloc_cnstr(0, 2, 0); -} else { - x_108 = x_106; -} -lean::cnstr_set(x_108, 0, x_107); -lean::cnstr_set(x_108, 1, x_104); -if (lean::is_scalar(x_101)) { - x_109 = lean::alloc_cnstr(1, 1, 0); -} else { - x_109 = x_101; -} -lean::cnstr_set(x_109, 0, x_108); -return x_109; -} -} -} -else -{ -obj* x_110; obj* x_112; obj* x_113; obj* x_117; -x_110 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_112 = x_1; -} else { - lean::inc(x_110); - lean::dec(x_1); - x_112 = lean::box(0); -} -x_113 = lean::cnstr_get(x_63, 0); -lean::inc(x_113); -lean::dec(x_63); -lean::inc(x_3); -x_117 = l_Lean_Elaborator_toPexpr___main(x_113, x_2, x_3, x_4); -if (lean::obj_tag(x_117) == 0) -{ -obj* x_122; obj* x_124; obj* x_125; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_110); -lean::dec(x_112); -x_122 = lean::cnstr_get(x_117, 0); -if (lean::is_exclusive(x_117)) { - x_124 = x_117; -} else { - lean::inc(x_122); - lean::dec(x_117); - x_124 = lean::box(0); -} -if (lean::is_scalar(x_124)) { - x_125 = lean::alloc_cnstr(0, 1, 0); -} else { - x_125 = x_124; -} -lean::cnstr_set(x_125, 0, x_122); -return x_125; -} -else -{ -obj* x_126; obj* x_129; obj* x_131; obj* x_134; -x_126 = lean::cnstr_get(x_117, 0); -lean::inc(x_126); -lean::dec(x_117); -x_129 = lean::cnstr_get(x_126, 0); -lean::inc(x_129); -x_131 = lean::cnstr_get(x_126, 1); -lean::inc(x_131); -lean::dec(x_126); -x_134 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_110, x_2, x_3, x_131); -if (lean::obj_tag(x_134) == 0) -{ -obj* x_137; obj* x_139; obj* x_140; -lean::dec(x_112); -lean::dec(x_129); -x_137 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_139 = x_134; -} else { - lean::inc(x_137); - lean::dec(x_134); - x_139 = lean::box(0); -} -if (lean::is_scalar(x_139)) { - x_140 = lean::alloc_cnstr(0, 1, 0); -} else { - x_140 = x_139; -} -lean::cnstr_set(x_140, 0, x_137); -return x_140; -} -else -{ -obj* x_141; obj* x_143; obj* x_144; obj* x_146; obj* x_148; obj* x_149; obj* x_150; obj* x_151; -x_141 = lean::cnstr_get(x_134, 0); -if (lean::is_exclusive(x_134)) { - x_143 = x_134; -} else { - lean::inc(x_141); - lean::dec(x_134); - x_143 = lean::box(0); -} -x_144 = lean::cnstr_get(x_141, 0); -x_146 = lean::cnstr_get(x_141, 1); -if (lean::is_exclusive(x_141)) { - x_148 = x_141; -} else { - lean::inc(x_144); - lean::inc(x_146); - lean::dec(x_141); - x_148 = lean::box(0); -} -if (lean::is_scalar(x_112)) { - x_149 = lean::alloc_cnstr(1, 2, 0); -} else { - x_149 = x_112; -} -lean::cnstr_set(x_149, 0, x_129); -lean::cnstr_set(x_149, 1, x_144); -if (lean::is_scalar(x_148)) { - x_150 = lean::alloc_cnstr(0, 2, 0); -} else { - x_150 = x_148; -} -lean::cnstr_set(x_150, 0, x_149); -lean::cnstr_set(x_150, 1, x_146); -if (lean::is_scalar(x_143)) { - x_151 = lean::alloc_cnstr(1, 1, 0); -} else { - x_151 = x_143; -} -lean::cnstr_set(x_151, 0, x_150); -return x_151; -} + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -6057,130 +4628,117 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_14; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_toPexpr___main), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_14 = l_Lean_Elaborator_toPexpr___main(x_8, x_1, x_2, x_3); -if (lean::obj_tag(x_14) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_18; obj* x_20; obj* x_21; +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_18 = lean::cnstr_get(x_14, 0); -if (lean::is_exclusive(x_14)) { - x_20 = x_14; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { - lean::inc(x_18); - lean::dec(x_14); - x_20 = lean::box(0); + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); } -if (lean::is_scalar(x_20)) { - x_21 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_21 = x_20; + x_24 = x_23; } -lean::cnstr_set(x_21, 0, x_18); -return x_21; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_22; obj* x_25; obj* x_27; obj* x_30; -x_22 = lean::cnstr_get(x_14, 0); -lean::inc(x_22); -lean::dec(x_14); -x_25 = lean::cnstr_get(x_22, 0); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -x_27 = lean::cnstr_get(x_22, 1); -lean::inc(x_27); -lean::dec(x_22); -x_30 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_10, x_1, x_2, x_27); -if (lean::obj_tag(x_30) == 0) -{ -obj* x_33; obj* x_35; obj* x_36; -lean::dec(x_12); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); lean::dec(x_25); -x_33 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_35 = x_30; +x_33 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) +{ +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_33); - lean::dec(x_30); - x_35 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_36 = x_35; + x_38 = x_37; } -lean::cnstr_set(x_36, 0, x_33); -return x_36; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_37 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_39 = x_30; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { - lean::inc(x_37); - lean::dec(x_30); - x_39 = lean::box(0); + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); } -x_40 = lean::cnstr_get(x_37, 0); -x_42 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_44 = x_37; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_40); lean::inc(x_42); - lean::dec(x_37); - x_44 = lean::box(0); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_12)) { - x_45 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_12; + x_48 = x_46; } -lean::cnstr_set(x_45, 0, x_25); -lean::cnstr_set(x_45, 1, x_40); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_46 = x_44; + x_49 = x_41; } -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_42); -if (lean::is_scalar(x_39)) { - x_47 = lean::alloc_cnstr(1, 1, 0); -} else { - x_47 = x_39; -} -lean::cnstr_set(x_47, 0, x_46); -return x_47; +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -6220,130 +4778,117 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_14; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_toLevel), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_14 = l_Lean_Elaborator_toLevel___main(x_8, x_1, x_2, x_3); -if (lean::obj_tag(x_14) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_18; obj* x_20; obj* x_21; +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_18 = lean::cnstr_get(x_14, 0); -if (lean::is_exclusive(x_14)) { - x_20 = x_14; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { - lean::inc(x_18); - lean::dec(x_14); - x_20 = lean::box(0); + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); } -if (lean::is_scalar(x_20)) { - x_21 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_21 = x_20; + x_24 = x_23; } -lean::cnstr_set(x_21, 0, x_18); -return x_21; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_22; obj* x_25; obj* x_27; obj* x_30; -x_22 = lean::cnstr_get(x_14, 0); -lean::inc(x_22); -lean::dec(x_14); -x_25 = lean::cnstr_get(x_22, 0); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -x_27 = lean::cnstr_get(x_22, 1); -lean::inc(x_27); -lean::dec(x_22); -x_30 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_10, x_1, x_2, x_27); -if (lean::obj_tag(x_30) == 0) -{ -obj* x_33; obj* x_35; obj* x_36; -lean::dec(x_12); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); lean::dec(x_25); -x_33 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_35 = x_30; +x_33 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) +{ +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_33); - lean::dec(x_30); - x_35 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_36 = x_35; + x_38 = x_37; } -lean::cnstr_set(x_36, 0, x_33); -return x_36; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_37 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_39 = x_30; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { - lean::inc(x_37); - lean::dec(x_30); - x_39 = lean::box(0); + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); } -x_40 = lean::cnstr_get(x_37, 0); -x_42 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_44 = x_37; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_40); lean::inc(x_42); - lean::dec(x_37); - x_44 = lean::box(0); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_12)) { - x_45 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_12; + x_48 = x_46; } -lean::cnstr_set(x_45, 0, x_25); -lean::cnstr_set(x_45, 1, x_40); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_46 = x_44; + x_49 = x_41; } -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_42); -if (lean::is_scalar(x_39)) { - x_47 = lean::alloc_cnstr(1, 1, 0); -} else { - x_47 = x_39; -} -lean::cnstr_set(x_47, 0, x_46); -return x_47; +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -7027,293 +5572,299 @@ lean::dec(x_61); lean::inc(x_2); x_66 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_59, x_63, x_1, x_2, x_3); lean::dec(x_3); +lean::dec(x_1); lean::dec(x_59); if (lean::obj_tag(x_66) == 0) { -obj* x_71; obj* x_73; obj* x_74; +obj* x_72; obj* x_74; obj* x_75; lean::dec(x_0); lean::dec(x_2); -x_71 = lean::cnstr_get(x_66, 0); +x_72 = lean::cnstr_get(x_66, 0); if (lean::is_exclusive(x_66)) { - x_73 = x_66; + x_74 = x_66; } else { - lean::inc(x_71); + lean::inc(x_72); lean::dec(x_66); - x_73 = lean::box(0); + x_74 = lean::box(0); } -if (lean::is_scalar(x_73)) { - x_74 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_74)) { + x_75 = lean::alloc_cnstr(0, 1, 0); } else { - x_74 = x_73; + x_75 = x_74; } -lean::cnstr_set(x_74, 0, x_71); -return x_74; +lean::cnstr_set(x_75, 0, x_72); +return x_75; } else { -obj* x_75; obj* x_77; obj* x_78; obj* x_80; obj* x_82; obj* x_83; -x_75 = lean::cnstr_get(x_66, 0); +obj* x_76; obj* x_78; obj* x_79; obj* x_81; obj* x_83; obj* x_84; +x_76 = lean::cnstr_get(x_66, 0); if (lean::is_exclusive(x_66)) { lean::cnstr_set(x_66, 0, lean::box(0)); - x_77 = x_66; + x_78 = x_66; } else { - lean::inc(x_75); + lean::inc(x_76); lean::dec(x_66); - x_77 = lean::box(0); + x_78 = lean::box(0); } -x_78 = lean::cnstr_get(x_75, 0); -x_80 = lean::cnstr_get(x_75, 1); -if (lean::is_exclusive(x_75)) { - lean::cnstr_set(x_75, 0, lean::box(0)); - lean::cnstr_set(x_75, 1, lean::box(0)); - x_82 = x_75; +x_79 = lean::cnstr_get(x_76, 0); +x_81 = lean::cnstr_get(x_76, 1); +if (lean::is_exclusive(x_76)) { + lean::cnstr_set(x_76, 0, lean::box(0)); + lean::cnstr_set(x_76, 1, lean::box(0)); + x_83 = x_76; } else { - lean::inc(x_78); - lean::inc(x_80); - lean::dec(x_75); - x_82 = lean::box(0); + lean::inc(x_79); + lean::inc(x_81); + lean::dec(x_76); + x_83 = lean::box(0); } -x_83 = l_Lean_Parser_Syntax_getPos(x_0); +x_84 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_83) == 0) +if (lean::obj_tag(x_84) == 0) { -obj* x_86; obj* x_87; +obj* x_87; obj* x_88; lean::dec(x_2); -if (lean::is_scalar(x_82)) { - x_86 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_83)) { + x_87 = lean::alloc_cnstr(0, 2, 0); } else { - x_86 = x_82; + x_87 = x_83; } -lean::cnstr_set(x_86, 0, x_78); -lean::cnstr_set(x_86, 1, x_80); -if (lean::is_scalar(x_77)) { - x_87 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_87, 0, x_79); +lean::cnstr_set(x_87, 1, x_81); +if (lean::is_scalar(x_78)) { + x_88 = lean::alloc_cnstr(1, 1, 0); } else { - x_87 = x_77; + x_88 = x_78; } -lean::cnstr_set(x_87, 0, x_86); -return x_87; +lean::cnstr_set(x_88, 0, x_87); +return x_88; } else { -obj* x_88; obj* x_91; obj* x_94; obj* x_97; obj* x_98; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; -x_88 = lean::cnstr_get(x_83, 0); -lean::inc(x_88); -lean::dec(x_83); -x_91 = lean::cnstr_get(x_2, 0); -lean::inc(x_91); +obj* x_89; obj* x_92; obj* x_95; obj* x_98; obj* x_99; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; +x_89 = lean::cnstr_get(x_84, 0); +lean::inc(x_89); +lean::dec(x_84); +x_92 = lean::cnstr_get(x_2, 0); +lean::inc(x_92); lean::dec(x_2); -x_94 = lean::cnstr_get(x_91, 2); -lean::inc(x_94); -lean::dec(x_91); -x_97 = l_Lean_FileMap_toPosition(x_94, x_88); -x_98 = lean::cnstr_get(x_97, 1); -lean::inc(x_98); -x_100 = lean::box(0); -x_101 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_102 = l_Lean_KVMap_setNat(x_100, x_101, x_98); -x_103 = lean::cnstr_get(x_97, 0); -lean::inc(x_103); -lean::dec(x_97); -x_106 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_107 = l_Lean_KVMap_setNat(x_102, x_106, x_103); -x_108 = lean_expr_mk_mdata(x_107, x_78); -if (lean::is_scalar(x_82)) { - x_109 = lean::alloc_cnstr(0, 2, 0); +x_95 = lean::cnstr_get(x_92, 2); +lean::inc(x_95); +lean::dec(x_92); +x_98 = l_Lean_FileMap_toPosition(x_95, x_89); +x_99 = lean::cnstr_get(x_98, 1); +lean::inc(x_99); +x_101 = lean::box(0); +x_102 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_103 = l_Lean_KVMap_setNat(x_101, x_102, x_99); +x_104 = lean::cnstr_get(x_98, 0); +lean::inc(x_104); +lean::dec(x_98); +x_107 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_108 = l_Lean_KVMap_setNat(x_103, x_107, x_104); +x_109 = lean_expr_mk_mdata(x_108, x_79); +if (lean::is_scalar(x_83)) { + x_110 = lean::alloc_cnstr(0, 2, 0); } else { - x_109 = x_82; -} -lean::cnstr_set(x_109, 0, x_108); -lean::cnstr_set(x_109, 1, x_80); -if (lean::is_scalar(x_77)) { - x_110 = lean::alloc_cnstr(1, 1, 0); -} else { - x_110 = x_77; + x_110 = x_83; } lean::cnstr_set(x_110, 0, x_109); -return x_110; +lean::cnstr_set(x_110, 1, x_81); +if (lean::is_scalar(x_78)) { + x_111 = lean::alloc_cnstr(1, 1, 0); +} else { + x_111 = x_78; +} +lean::cnstr_set(x_111, 0, x_110); +return x_111; } } } else { -obj* x_111; obj* x_112; obj* x_116; obj* x_117; obj* x_119; obj* x_121; -x_111 = l_Lean_Parser_Term_match_HasView; -x_112 = lean::cnstr_get(x_111, 0); -lean::inc(x_112); -lean::dec(x_111); +obj* x_112; obj* x_113; obj* x_117; obj* x_118; obj* x_120; obj* x_123; +x_112 = l_Lean_Parser_Term_match_HasView; +x_113 = lean::cnstr_get(x_112, 0); +lean::inc(x_113); +lean::dec(x_112); lean::inc(x_0); -x_116 = lean::apply_1(x_112, x_0); -x_117 = lean::cnstr_get(x_116, 5); -lean::inc(x_117); -x_119 = l_List_map___main___at_Lean_Elaborator_toPexpr___main___spec__2(x_117); +x_117 = lean::apply_1(x_113, x_0); +x_118 = lean::cnstr_get(x_117, 5); +lean::inc(x_118); +x_120 = l_List_map___main___at_Lean_Elaborator_toPexpr___main___spec__2(x_118); lean::inc(x_2); -x_121 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3(x_119, x_1, x_2, x_3); -if (lean::obj_tag(x_121) == 0) +lean::inc(x_1); +x_123 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3(x_120, x_1, x_2, x_3); +if (lean::obj_tag(x_123) == 0) { -obj* x_123; obj* x_125; obj* x_126; -lean::dec(x_116); -x_123 = lean::cnstr_get(x_121, 0); -if (lean::is_exclusive(x_121)) { - x_125 = x_121; +obj* x_126; obj* x_128; obj* x_129; +lean::dec(x_117); +lean::dec(x_1); +x_126 = lean::cnstr_get(x_123, 0); +if (lean::is_exclusive(x_123)) { + x_128 = x_123; } else { - lean::inc(x_123); - lean::dec(x_121); - x_125 = lean::box(0); + lean::inc(x_126); + lean::dec(x_123); + x_128 = lean::box(0); } -if (lean::is_scalar(x_125)) { - x_126 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_128)) { + x_129 = lean::alloc_cnstr(0, 1, 0); } else { - x_126 = x_125; + x_129 = x_128; } -lean::cnstr_set(x_126, 0, x_123); -x_13 = x_126; +lean::cnstr_set(x_129, 0, x_126); +x_13 = x_129; goto lbl_14; } else { -obj* x_127; obj* x_130; obj* x_132; obj* x_135; obj* x_137; obj* x_140; -x_127 = lean::cnstr_get(x_121, 0); -lean::inc(x_127); -lean::dec(x_121); -x_130 = lean::cnstr_get(x_127, 0); +obj* x_130; obj* x_133; obj* x_135; obj* x_138; obj* x_140; obj* x_144; +x_130 = lean::cnstr_get(x_123, 0); lean::inc(x_130); -x_132 = lean::cnstr_get(x_127, 1); -lean::inc(x_132); -lean::dec(x_127); -x_135 = lean::cnstr_get(x_116, 2); +lean::dec(x_123); +x_133 = lean::cnstr_get(x_130, 0); +lean::inc(x_133); +x_135 = lean::cnstr_get(x_130, 1); lean::inc(x_135); -x_137 = l_Lean_Expander_getOptType___main(x_135); -lean::dec(x_135); -lean::inc(x_2); -x_140 = l_Lean_Elaborator_toPexpr___main(x_137, x_1, x_2, x_132); -if (lean::obj_tag(x_140) == 0) -{ -obj* x_143; obj* x_145; obj* x_146; -lean::dec(x_116); lean::dec(x_130); -x_143 = lean::cnstr_get(x_140, 0); -if (lean::is_exclusive(x_140)) { - x_145 = x_140; +x_138 = lean::cnstr_get(x_117, 2); +lean::inc(x_138); +x_140 = l_Lean_Expander_getOptType___main(x_138); +lean::dec(x_138); +lean::inc(x_2); +lean::inc(x_1); +x_144 = l_Lean_Elaborator_toPexpr___main(x_140, x_1, x_2, x_135); +if (lean::obj_tag(x_144) == 0) +{ +obj* x_148; obj* x_150; obj* x_151; +lean::dec(x_117); +lean::dec(x_133); +lean::dec(x_1); +x_148 = lean::cnstr_get(x_144, 0); +if (lean::is_exclusive(x_144)) { + x_150 = x_144; } else { - lean::inc(x_143); - lean::dec(x_140); - x_145 = lean::box(0); + lean::inc(x_148); + lean::dec(x_144); + x_150 = lean::box(0); } -if (lean::is_scalar(x_145)) { - x_146 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_150)) { + x_151 = lean::alloc_cnstr(0, 1, 0); } else { - x_146 = x_145; + x_151 = x_150; } -lean::cnstr_set(x_146, 0, x_143); -x_13 = x_146; +lean::cnstr_set(x_151, 0, x_148); +x_13 = x_151; goto lbl_14; } else { -obj* x_147; obj* x_150; obj* x_152; obj* x_155; -x_147 = lean::cnstr_get(x_140, 0); -lean::inc(x_147); -lean::dec(x_140); -x_150 = lean::cnstr_get(x_147, 0); -lean::inc(x_150); -x_152 = lean::cnstr_get(x_147, 1); +obj* x_152; obj* x_155; obj* x_157; obj* x_160; +x_152 = lean::cnstr_get(x_144, 0); lean::inc(x_152); -lean::dec(x_147); -x_155 = l_Lean_Elaborator_mkEqns(x_150, x_130); -switch (lean::obj_tag(x_155)) { +lean::dec(x_144); +x_155 = lean::cnstr_get(x_152, 0); +lean::inc(x_155); +x_157 = lean::cnstr_get(x_152, 1); +lean::inc(x_157); +lean::dec(x_152); +x_160 = l_Lean_Elaborator_mkEqns(x_155, x_133); +switch (lean::obj_tag(x_160)) { case 10: { -obj* x_156; obj* x_158; obj* x_161; obj* x_165; -x_156 = lean::cnstr_get(x_155, 0); -lean::inc(x_156); -x_158 = lean::cnstr_get(x_155, 1); -lean::inc(x_158); -lean::dec(x_155); -x_161 = lean::cnstr_get(x_116, 1); +obj* x_161; obj* x_163; obj* x_166; obj* x_170; +x_161 = lean::cnstr_get(x_160, 0); lean::inc(x_161); -lean::dec(x_116); +x_163 = lean::cnstr_get(x_160, 1); +lean::inc(x_163); +lean::dec(x_160); +x_166 = lean::cnstr_get(x_117, 1); +lean::inc(x_166); +lean::dec(x_117); lean::inc(x_2); -x_165 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(x_161, x_1, x_2, x_152); -if (lean::obj_tag(x_165) == 0) +x_170 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(x_166, x_1, x_2, x_157); +if (lean::obj_tag(x_170) == 0) { -obj* x_168; obj* x_170; obj* x_171; -lean::dec(x_158); -lean::dec(x_156); -x_168 = lean::cnstr_get(x_165, 0); -if (lean::is_exclusive(x_165)) { - x_170 = x_165; +obj* x_173; obj* x_175; obj* x_176; +lean::dec(x_163); +lean::dec(x_161); +x_173 = lean::cnstr_get(x_170, 0); +if (lean::is_exclusive(x_170)) { + x_175 = x_170; } else { - lean::inc(x_168); - lean::dec(x_165); - x_170 = lean::box(0); + lean::inc(x_173); + lean::dec(x_170); + x_175 = lean::box(0); } -if (lean::is_scalar(x_170)) { - x_171 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_175)) { + x_176 = lean::alloc_cnstr(0, 1, 0); } else { - x_171 = x_170; + x_176 = x_175; } -lean::cnstr_set(x_171, 0, x_168); -x_13 = x_171; +lean::cnstr_set(x_176, 0, x_173); +x_13 = x_176; goto lbl_14; } else { -obj* x_172; obj* x_174; obj* x_175; obj* x_177; obj* x_179; obj* x_180; uint8 x_181; obj* x_182; obj* x_183; obj* x_184; obj* x_185; obj* x_186; -x_172 = lean::cnstr_get(x_165, 0); -if (lean::is_exclusive(x_165)) { - x_174 = x_165; +obj* x_177; obj* x_179; obj* x_180; obj* x_182; obj* x_184; obj* x_185; uint8 x_186; obj* x_187; obj* x_188; obj* x_189; obj* x_190; obj* x_191; +x_177 = lean::cnstr_get(x_170, 0); +if (lean::is_exclusive(x_170)) { + x_179 = x_170; } else { - lean::inc(x_172); - lean::dec(x_165); - x_174 = lean::box(0); -} -x_175 = lean::cnstr_get(x_172, 0); -x_177 = lean::cnstr_get(x_172, 1); -if (lean::is_exclusive(x_172)) { - x_179 = x_172; -} else { - lean::inc(x_175); lean::inc(x_177); - lean::dec(x_172); + lean::dec(x_170); x_179 = lean::box(0); } -x_180 = l_Lean_Elaborator_toPexpr___main___closed__22; -x_181 = 1; -x_182 = l_Lean_KVMap_setBool(x_156, x_180, x_181); -x_183 = lean_expr_mk_mdata(x_182, x_158); -x_184 = l_List_foldl___main___at_Lean_Expr_mkApp___spec__1(x_183, x_175); +x_180 = lean::cnstr_get(x_177, 0); +x_182 = lean::cnstr_get(x_177, 1); +if (lean::is_exclusive(x_177)) { + x_184 = x_177; +} else { + lean::inc(x_180); + lean::inc(x_182); + lean::dec(x_177); + x_184 = lean::box(0); +} +x_185 = l_Lean_Elaborator_toPexpr___main___closed__22; +x_186 = 1; +x_187 = l_Lean_KVMap_setBool(x_161, x_185, x_186); +x_188 = lean_expr_mk_mdata(x_187, x_163); +x_189 = l_List_foldl___main___at_Lean_Expr_mkApp___spec__1(x_188, x_180); +if (lean::is_scalar(x_184)) { + x_190 = lean::alloc_cnstr(0, 2, 0); +} else { + x_190 = x_184; +} +lean::cnstr_set(x_190, 0, x_189); +lean::cnstr_set(x_190, 1, x_182); if (lean::is_scalar(x_179)) { - x_185 = lean::alloc_cnstr(0, 2, 0); + x_191 = lean::alloc_cnstr(1, 1, 0); } else { - x_185 = x_179; + x_191 = x_179; } -lean::cnstr_set(x_185, 0, x_184); -lean::cnstr_set(x_185, 1, x_177); -if (lean::is_scalar(x_174)) { - x_186 = lean::alloc_cnstr(1, 1, 0); -} else { - x_186 = x_174; -} -lean::cnstr_set(x_186, 0, x_185); -x_13 = x_186; +lean::cnstr_set(x_191, 0, x_190); +x_13 = x_191; goto lbl_14; } } default: { -obj* x_190; obj* x_191; obj* x_193; -lean::dec(x_155); -lean::dec(x_116); +obj* x_195; obj* x_196; obj* x_198; +lean::dec(x_160); +lean::dec(x_117); lean::inc(x_0); -x_190 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_190, 0, x_0); -x_191 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2; +x_195 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_195, 0, x_0); +x_196 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2; lean::inc(x_2); -x_193 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_190, x_191, x_1, x_2, x_152); -lean::dec(x_152); -lean::dec(x_190); -x_13 = x_193; +x_198 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_195, x_196, x_1, x_2, x_157); +lean::dec(x_157); +lean::dec(x_1); +lean::dec(x_195); +x_13 = x_198; goto lbl_14; } } @@ -7323,588 +5874,599 @@ goto lbl_14; } else { -obj* x_196; obj* x_197; obj* x_201; obj* x_202; obj* x_204; obj* x_205; obj* x_206; obj* x_208; obj* x_211; obj* x_212; -x_196 = l_Lean_Parser_Term_structInst_HasView; -x_197 = lean::cnstr_get(x_196, 0); -lean::inc(x_197); -lean::dec(x_196); +obj* x_202; obj* x_203; obj* x_207; obj* x_208; obj* x_210; obj* x_211; obj* x_212; obj* x_214; obj* x_217; obj* x_218; +x_202 = l_Lean_Parser_Term_structInst_HasView; +x_203 = lean::cnstr_get(x_202, 0); +lean::inc(x_203); +lean::dec(x_202); lean::inc(x_0); -x_201 = lean::apply_1(x_197, x_0); -x_202 = lean::cnstr_get(x_201, 3); -lean::inc(x_202); -x_204 = lean::box(0); -x_205 = l_List_spanAux___main___at_Lean_Elaborator_toPexpr___main___spec__4(x_202, x_204); -x_206 = lean::cnstr_get(x_205, 0); -lean::inc(x_206); -x_208 = lean::cnstr_get(x_205, 1); +x_207 = lean::apply_1(x_203, x_0); +x_208 = lean::cnstr_get(x_207, 3); lean::inc(x_208); -lean::dec(x_205); -x_211 = l_List_spanAux___main___at_Lean_Elaborator_toPexpr___main___spec__5(x_208, x_204); -x_212 = lean::cnstr_get(x_211, 1); +x_210 = lean::box(0); +x_211 = l_List_spanAux___main___at_Lean_Elaborator_toPexpr___main___spec__4(x_208, x_210); +x_212 = lean::cnstr_get(x_211, 0); lean::inc(x_212); -if (lean::obj_tag(x_212) == 0) -{ -obj* x_214; obj* x_219; -x_214 = lean::cnstr_get(x_211, 0); +x_214 = lean::cnstr_get(x_211, 1); lean::inc(x_214); lean::dec(x_211); -lean::inc(x_2); -lean::inc(x_0); -x_219 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(x_0, x_206, x_1, x_2, x_3); -if (lean::obj_tag(x_219) == 0) +x_217 = l_List_spanAux___main___at_Lean_Elaborator_toPexpr___main___spec__5(x_214, x_210); +x_218 = lean::cnstr_get(x_217, 1); +lean::inc(x_218); +if (lean::obj_tag(x_218) == 0) { -obj* x_225; obj* x_227; obj* x_228; +obj* x_220; obj* x_226; +x_220 = lean::cnstr_get(x_217, 0); +lean::inc(x_220); +lean::dec(x_217); +lean::inc(x_2); +lean::inc(x_1); +lean::inc(x_0); +x_226 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(x_0, x_212, x_1, x_2, x_3); +if (lean::obj_tag(x_226) == 0) +{ +obj* x_233; obj* x_235; obj* x_236; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_214); -lean::dec(x_201); -x_225 = lean::cnstr_get(x_219, 0); -if (lean::is_exclusive(x_219)) { - x_227 = x_219; +lean::dec(x_220); +lean::dec(x_207); +x_233 = lean::cnstr_get(x_226, 0); +if (lean::is_exclusive(x_226)) { + x_235 = x_226; } else { - lean::inc(x_225); - lean::dec(x_219); - x_227 = lean::box(0); + lean::inc(x_233); + lean::dec(x_226); + x_235 = lean::box(0); } -if (lean::is_scalar(x_227)) { - x_228 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_235)) { + x_236 = lean::alloc_cnstr(0, 1, 0); } else { - x_228 = x_227; + x_236 = x_235; } -lean::cnstr_set(x_228, 0, x_225); -return x_228; +lean::cnstr_set(x_236, 0, x_233); +return x_236; } else { -obj* x_229; obj* x_232; obj* x_234; obj* x_237; obj* x_241; -x_229 = lean::cnstr_get(x_219, 0); -lean::inc(x_229); -lean::dec(x_219); -x_232 = lean::cnstr_get(x_229, 0); -lean::inc(x_232); -x_234 = lean::cnstr_get(x_229, 1); -lean::inc(x_234); -lean::dec(x_229); +obj* x_237; obj* x_240; obj* x_242; obj* x_245; obj* x_250; +x_237 = lean::cnstr_get(x_226, 0); +lean::inc(x_237); +lean::dec(x_226); +x_240 = lean::cnstr_get(x_237, 0); +lean::inc(x_240); +x_242 = lean::cnstr_get(x_237, 1); +lean::inc(x_242); +lean::dec(x_237); lean::inc(x_2); +lean::inc(x_1); lean::inc(x_0); -x_241 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_214, x_1, x_2, x_234); -if (lean::obj_tag(x_241) == 0) +x_250 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_220, x_1, x_2, x_242); +if (lean::obj_tag(x_250) == 0) { -obj* x_247; obj* x_249; obj* x_250; +obj* x_257; obj* x_259; obj* x_260; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_232); -lean::dec(x_201); -x_247 = lean::cnstr_get(x_241, 0); -if (lean::is_exclusive(x_241)) { - x_249 = x_241; +lean::dec(x_240); +lean::dec(x_207); +x_257 = lean::cnstr_get(x_250, 0); +if (lean::is_exclusive(x_250)) { + x_259 = x_250; } else { - lean::inc(x_247); - lean::dec(x_241); - x_249 = lean::box(0); + lean::inc(x_257); + lean::dec(x_250); + x_259 = lean::box(0); } -if (lean::is_scalar(x_249)) { - x_250 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_259)) { + x_260 = lean::alloc_cnstr(0, 1, 0); } else { - x_250 = x_249; + x_260 = x_259; } -lean::cnstr_set(x_250, 0, x_247); -return x_250; +lean::cnstr_set(x_260, 0, x_257); +return x_260; } else { -obj* x_251; obj* x_254; -x_251 = lean::cnstr_get(x_241, 0); -lean::inc(x_251); -lean::dec(x_241); -x_254 = lean::cnstr_get(x_201, 2); -lean::inc(x_254); -if (lean::obj_tag(x_254) == 0) -{ -obj* x_256; obj* x_258; obj* x_260; obj* x_261; -x_256 = lean::cnstr_get(x_251, 0); -x_258 = lean::cnstr_get(x_251, 1); -if (lean::is_exclusive(x_251)) { - x_260 = x_251; -} else { - lean::inc(x_256); - lean::inc(x_258); - lean::dec(x_251); - x_260 = lean::box(0); -} -if (lean::is_scalar(x_260)) { - x_261 = lean::alloc_cnstr(0, 2, 0); -} else { - x_261 = x_260; -} -lean::cnstr_set(x_261, 0, x_256); -lean::cnstr_set(x_261, 1, x_258); -x_237 = x_261; -goto lbl_238; -} -else -{ -obj* x_262; obj* x_264; obj* x_267; obj* x_270; obj* x_274; -x_262 = lean::cnstr_get(x_251, 0); -lean::inc(x_262); -x_264 = lean::cnstr_get(x_251, 1); +obj* x_261; obj* x_264; +x_261 = lean::cnstr_get(x_250, 0); +lean::inc(x_261); +lean::dec(x_250); +x_264 = lean::cnstr_get(x_207, 2); lean::inc(x_264); -lean::dec(x_251); -x_267 = lean::cnstr_get(x_254, 0); -lean::inc(x_267); -lean::dec(x_254); -x_270 = lean::cnstr_get(x_267, 0); -lean::inc(x_270); -lean::dec(x_267); -lean::inc(x_2); -x_274 = l_Lean_Elaborator_toPexpr___main(x_270, x_1, x_2, x_264); -if (lean::obj_tag(x_274) == 0) +if (lean::obj_tag(x_264) == 0) { -obj* x_281; obj* x_283; obj* x_284; +obj* x_267; obj* x_269; obj* x_271; obj* x_272; +lean::dec(x_1); +x_267 = lean::cnstr_get(x_261, 0); +x_269 = lean::cnstr_get(x_261, 1); +if (lean::is_exclusive(x_261)) { + x_271 = x_261; +} else { + lean::inc(x_267); + lean::inc(x_269); + lean::dec(x_261); + x_271 = lean::box(0); +} +if (lean::is_scalar(x_271)) { + x_272 = lean::alloc_cnstr(0, 2, 0); +} else { + x_272 = x_271; +} +lean::cnstr_set(x_272, 0, x_267); +lean::cnstr_set(x_272, 1, x_269); +x_245 = x_272; +goto lbl_246; +} +else +{ +obj* x_273; obj* x_275; obj* x_278; obj* x_281; obj* x_285; +x_273 = lean::cnstr_get(x_261, 0); +lean::inc(x_273); +x_275 = lean::cnstr_get(x_261, 1); +lean::inc(x_275); +lean::dec(x_261); +x_278 = lean::cnstr_get(x_264, 0); +lean::inc(x_278); +lean::dec(x_264); +x_281 = lean::cnstr_get(x_278, 0); +lean::inc(x_281); +lean::dec(x_278); +lean::inc(x_2); +x_285 = l_Lean_Elaborator_toPexpr___main(x_281, x_1, x_2, x_275); +if (lean::obj_tag(x_285) == 0) +{ +obj* x_292; obj* x_294; obj* x_295; +lean::dec(x_273); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_232); -lean::dec(x_262); -lean::dec(x_201); -x_281 = lean::cnstr_get(x_274, 0); -if (lean::is_exclusive(x_274)) { - x_283 = x_274; -} else { - lean::inc(x_281); - lean::dec(x_274); - x_283 = lean::box(0); -} -if (lean::is_scalar(x_283)) { - x_284 = lean::alloc_cnstr(0, 1, 0); -} else { - x_284 = x_283; -} -lean::cnstr_set(x_284, 0, x_281); -return x_284; -} -else -{ -obj* x_285; obj* x_288; obj* x_290; obj* x_292; obj* x_293; obj* x_294; obj* x_295; -x_285 = lean::cnstr_get(x_274, 0); -lean::inc(x_285); -lean::dec(x_274); -x_288 = lean::cnstr_get(x_285, 0); -x_290 = lean::cnstr_get(x_285, 1); +lean::dec(x_240); +lean::dec(x_207); +x_292 = lean::cnstr_get(x_285, 0); if (lean::is_exclusive(x_285)) { - x_292 = x_285; + x_294 = x_285; } else { - lean::inc(x_288); - lean::inc(x_290); + lean::inc(x_292); lean::dec(x_285); - x_292 = lean::box(0); + x_294 = lean::box(0); } -x_293 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_293, 0, x_288); -lean::cnstr_set(x_293, 1, x_204); -x_294 = l_List_append___rarg(x_262, x_293); -if (lean::is_scalar(x_292)) { - x_295 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_294)) { + x_295 = lean::alloc_cnstr(0, 1, 0); } else { - x_295 = x_292; + x_295 = x_294; } -lean::cnstr_set(x_295, 0, x_294); -lean::cnstr_set(x_295, 1, x_290); -x_237 = x_295; -goto lbl_238; -} -} -} -lbl_238: -{ -obj* x_296; obj* x_298; obj* x_300; obj* x_301; obj* x_302; obj* x_303; obj* x_304; obj* x_305; uint8 x_306; obj* x_307; obj* x_308; obj* x_311; obj* x_312; obj* x_313; -x_296 = lean::cnstr_get(x_237, 0); -x_298 = lean::cnstr_get(x_237, 1); -if (lean::is_exclusive(x_237)) { - lean::cnstr_set(x_237, 0, lean::box(0)); - lean::cnstr_set(x_237, 1, lean::box(0)); - x_300 = x_237; -} else { - lean::inc(x_296); - lean::inc(x_298); - lean::dec(x_237); - x_300 = lean::box(0); -} -x_301 = lean::mk_nat_obj(0ul); -x_302 = l_List_lengthAux___main___rarg(x_232, x_301); -x_303 = l_Lean_Elaborator_toPexpr___main___closed__23; -x_304 = l_Lean_KVMap_setNat(x_204, x_303, x_302); -x_305 = l_Lean_Elaborator_toPexpr___main___closed__24; -x_306 = 0; -x_307 = l_Lean_KVMap_setBool(x_304, x_305, x_306); -x_308 = lean::cnstr_get(x_201, 1); -lean::inc(x_308); -lean::dec(x_201); -x_311 = l_List_append___rarg(x_232, x_296); -x_312 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_313 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_312, x_311); -if (lean::obj_tag(x_308) == 0) -{ -obj* x_314; obj* x_315; obj* x_316; obj* x_317; obj* x_318; -x_314 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_315 = lean::box(0); -x_316 = l_Lean_KVMap_setName(x_307, x_314, x_315); -x_317 = lean_expr_mk_mdata(x_316, x_313); -if (lean::is_scalar(x_300)) { - x_318 = lean::alloc_cnstr(0, 2, 0); -} else { - x_318 = x_300; -} -lean::cnstr_set(x_318, 0, x_317); -lean::cnstr_set(x_318, 1, x_298); -x_15 = x_318; -goto lbl_16; +lean::cnstr_set(x_295, 0, x_292); +return x_295; } else { -obj* x_319; obj* x_322; obj* x_325; obj* x_326; obj* x_327; obj* x_328; obj* x_329; -x_319 = lean::cnstr_get(x_308, 0); +obj* x_296; obj* x_299; obj* x_301; obj* x_303; obj* x_304; obj* x_305; obj* x_306; +x_296 = lean::cnstr_get(x_285, 0); +lean::inc(x_296); +lean::dec(x_285); +x_299 = lean::cnstr_get(x_296, 0); +x_301 = lean::cnstr_get(x_296, 1); +if (lean::is_exclusive(x_296)) { + x_303 = x_296; +} else { + lean::inc(x_299); + lean::inc(x_301); + lean::dec(x_296); + x_303 = lean::box(0); +} +x_304 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_304, 0, x_299); +lean::cnstr_set(x_304, 1, x_210); +x_305 = l_List_append___rarg(x_273, x_304); +if (lean::is_scalar(x_303)) { + x_306 = lean::alloc_cnstr(0, 2, 0); +} else { + x_306 = x_303; +} +lean::cnstr_set(x_306, 0, x_305); +lean::cnstr_set(x_306, 1, x_301); +x_245 = x_306; +goto lbl_246; +} +} +} +lbl_246: +{ +obj* x_307; obj* x_309; obj* x_311; obj* x_312; obj* x_313; obj* x_314; obj* x_315; obj* x_316; uint8 x_317; obj* x_318; obj* x_319; obj* x_322; obj* x_323; obj* x_324; +x_307 = lean::cnstr_get(x_245, 0); +x_309 = lean::cnstr_get(x_245, 1); +if (lean::is_exclusive(x_245)) { + lean::cnstr_set(x_245, 0, lean::box(0)); + lean::cnstr_set(x_245, 1, lean::box(0)); + x_311 = x_245; +} else { + lean::inc(x_307); + lean::inc(x_309); + lean::dec(x_245); + x_311 = lean::box(0); +} +x_312 = lean::mk_nat_obj(0ul); +x_313 = l_List_lengthAux___main___rarg(x_240, x_312); +x_314 = l_Lean_Elaborator_toPexpr___main___closed__23; +x_315 = l_Lean_KVMap_setNat(x_210, x_314, x_313); +x_316 = l_Lean_Elaborator_toPexpr___main___closed__24; +x_317 = 0; +x_318 = l_Lean_KVMap_setBool(x_315, x_316, x_317); +x_319 = lean::cnstr_get(x_207, 1); lean::inc(x_319); -lean::dec(x_308); -x_322 = lean::cnstr_get(x_319, 0); -lean::inc(x_322); -lean::dec(x_319); -x_325 = l_Lean_Elaborator_mangleIdent(x_322); -x_326 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_327 = l_Lean_KVMap_setName(x_307, x_326, x_325); -x_328 = lean_expr_mk_mdata(x_327, x_313); -if (lean::is_scalar(x_300)) { +lean::dec(x_207); +x_322 = l_List_append___rarg(x_240, x_307); +x_323 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_324 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_323, x_322); +if (lean::obj_tag(x_319) == 0) +{ +obj* x_325; obj* x_326; obj* x_327; obj* x_328; obj* x_329; +x_325 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_326 = lean::box(0); +x_327 = l_Lean_KVMap_setName(x_318, x_325, x_326); +x_328 = lean_expr_mk_mdata(x_327, x_324); +if (lean::is_scalar(x_311)) { x_329 = lean::alloc_cnstr(0, 2, 0); } else { - x_329 = x_300; + x_329 = x_311; } lean::cnstr_set(x_329, 0, x_328); -lean::cnstr_set(x_329, 1, x_298); +lean::cnstr_set(x_329, 1, x_309); x_15 = x_329; goto lbl_16; } -} -} -} else { -obj* x_330; obj* x_332; -x_330 = lean::cnstr_get(x_212, 0); +obj* x_330; obj* x_333; obj* x_336; obj* x_337; obj* x_338; obj* x_339; obj* x_340; +x_330 = lean::cnstr_get(x_319, 0); lean::inc(x_330); -x_332 = lean::cnstr_get(x_330, 0); -lean::inc(x_332); +lean::dec(x_319); +x_333 = lean::cnstr_get(x_330, 0); +lean::inc(x_333); lean::dec(x_330); -if (lean::obj_tag(x_332) == 0) -{ -obj* x_335; obj* x_336; obj* x_339; obj* x_340; obj* x_343; obj* x_344; obj* x_345; obj* x_347; -if (lean::is_exclusive(x_212)) { - lean::cnstr_release(x_212, 0); - lean::cnstr_release(x_212, 1); - x_335 = x_212; +x_336 = l_Lean_Elaborator_mangleIdent(x_333); +x_337 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_338 = l_Lean_KVMap_setName(x_318, x_337, x_336); +x_339 = lean_expr_mk_mdata(x_338, x_324); +if (lean::is_scalar(x_311)) { + x_340 = lean::alloc_cnstr(0, 2, 0); } else { - lean::dec(x_212); - x_335 = lean::box(0); + x_340 = x_311; } -x_336 = lean::cnstr_get(x_211, 0); -lean::inc(x_336); -lean::dec(x_211); -x_339 = l_Lean_Parser_Term_structInstItem_HasView; -x_340 = lean::cnstr_get(x_339, 1); -lean::inc(x_340); -lean::dec(x_339); -x_343 = lean::apply_1(x_340, x_332); -x_344 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_344, 0, x_343); -x_345 = l_Lean_Elaborator_toPexpr___main___closed__27; +lean::cnstr_set(x_340, 0, x_339); +lean::cnstr_set(x_340, 1, x_309); +x_15 = x_340; +goto lbl_16; +} +} +} +} +else +{ +obj* x_341; obj* x_343; +x_341 = lean::cnstr_get(x_218, 0); +lean::inc(x_341); +x_343 = lean::cnstr_get(x_341, 0); +lean::inc(x_343); +lean::dec(x_341); +if (lean::obj_tag(x_343) == 0) +{ +obj* x_346; obj* x_347; obj* x_350; obj* x_351; obj* x_354; obj* x_355; obj* x_356; obj* x_358; +if (lean::is_exclusive(x_218)) { + lean::cnstr_release(x_218, 0); + lean::cnstr_release(x_218, 1); + x_346 = x_218; +} else { + lean::dec(x_218); + x_346 = lean::box(0); +} +x_347 = lean::cnstr_get(x_217, 0); +lean::inc(x_347); +lean::dec(x_217); +x_350 = l_Lean_Parser_Term_structInstItem_HasView; +x_351 = lean::cnstr_get(x_350, 1); +lean::inc(x_351); +lean::dec(x_350); +x_354 = lean::apply_1(x_351, x_343); +x_355 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_355, 0, x_354); +x_356 = l_Lean_Elaborator_toPexpr___main___closed__27; lean::inc(x_2); -x_347 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_344, x_345, x_1, x_2, x_3); +x_358 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_355, x_356, x_1, x_2, x_3); lean::dec(x_3); -lean::dec(x_344); -if (lean::obj_tag(x_347) == 0) +lean::dec(x_355); +if (lean::obj_tag(x_358) == 0) { -obj* x_357; obj* x_359; obj* x_360; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_335); -lean::dec(x_336); -lean::dec(x_206); -lean::dec(x_201); -x_357 = lean::cnstr_get(x_347, 0); -if (lean::is_exclusive(x_347)) { - x_359 = x_347; -} else { - lean::inc(x_357); - lean::dec(x_347); - x_359 = lean::box(0); -} -if (lean::is_scalar(x_359)) { - x_360 = lean::alloc_cnstr(0, 1, 0); -} else { - x_360 = x_359; -} -lean::cnstr_set(x_360, 0, x_357); -return x_360; -} -else -{ -obj* x_361; obj* x_364; obj* x_366; obj* x_371; -x_361 = lean::cnstr_get(x_347, 0); -lean::inc(x_361); +obj* x_369; obj* x_371; obj* x_372; +lean::dec(x_346); lean::dec(x_347); -x_364 = lean::cnstr_get(x_361, 0); -lean::inc(x_364); -x_366 = lean::cnstr_get(x_361, 1); -lean::inc(x_366); -lean::dec(x_361); -lean::inc(x_2); -lean::inc(x_0); -x_371 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_0, x_206, x_1, x_2, x_366); -if (lean::obj_tag(x_371) == 0) -{ -obj* x_379; obj* x_381; obj* x_382; -lean::dec(x_364); lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_335); -lean::dec(x_336); -lean::dec(x_201); -x_379 = lean::cnstr_get(x_371, 0); -if (lean::is_exclusive(x_371)) { - x_381 = x_371; +lean::dec(x_212); +lean::dec(x_207); +x_369 = lean::cnstr_get(x_358, 0); +if (lean::is_exclusive(x_358)) { + x_371 = x_358; } else { - lean::inc(x_379); - lean::dec(x_371); - x_381 = lean::box(0); + lean::inc(x_369); + lean::dec(x_358); + x_371 = lean::box(0); } -if (lean::is_scalar(x_381)) { - x_382 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_371)) { + x_372 = lean::alloc_cnstr(0, 1, 0); } else { - x_382 = x_381; + x_372 = x_371; } -lean::cnstr_set(x_382, 0, x_379); -return x_382; +lean::cnstr_set(x_372, 0, x_369); +return x_372; } else { -obj* x_383; obj* x_386; obj* x_388; obj* x_391; obj* x_395; -x_383 = lean::cnstr_get(x_371, 0); -lean::inc(x_383); -lean::dec(x_371); -x_386 = lean::cnstr_get(x_383, 0); -lean::inc(x_386); -x_388 = lean::cnstr_get(x_383, 1); -lean::inc(x_388); -lean::dec(x_383); +obj* x_373; obj* x_376; obj* x_378; obj* x_384; +x_373 = lean::cnstr_get(x_358, 0); +lean::inc(x_373); +lean::dec(x_358); +x_376 = lean::cnstr_get(x_373, 0); +lean::inc(x_376); +x_378 = lean::cnstr_get(x_373, 1); +lean::inc(x_378); +lean::dec(x_373); lean::inc(x_2); +lean::inc(x_1); lean::inc(x_0); -x_395 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_336, x_1, x_2, x_388); -if (lean::obj_tag(x_395) == 0) +x_384 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_0, x_212, x_1, x_2, x_378); +if (lean::obj_tag(x_384) == 0) { -obj* x_403; obj* x_405; obj* x_406; -lean::dec(x_364); +obj* x_393; obj* x_395; obj* x_396; +lean::dec(x_346); +lean::dec(x_347); lean::dec(x_8); -lean::dec(x_386); +lean::dec(x_376); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_335); -lean::dec(x_201); -x_403 = lean::cnstr_get(x_395, 0); -if (lean::is_exclusive(x_395)) { - x_405 = x_395; +lean::dec(x_207); +x_393 = lean::cnstr_get(x_384, 0); +if (lean::is_exclusive(x_384)) { + x_395 = x_384; } else { - lean::inc(x_403); - lean::dec(x_395); - x_405 = lean::box(0); + lean::inc(x_393); + lean::dec(x_384); + x_395 = lean::box(0); } -if (lean::is_scalar(x_405)) { - x_406 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_395)) { + x_396 = lean::alloc_cnstr(0, 1, 0); } else { - x_406 = x_405; + x_396 = x_395; } -lean::cnstr_set(x_406, 0, x_403); -return x_406; +lean::cnstr_set(x_396, 0, x_393); +return x_396; } else { -obj* x_407; obj* x_410; -x_407 = lean::cnstr_get(x_395, 0); -lean::inc(x_407); -lean::dec(x_395); -x_410 = lean::cnstr_get(x_201, 2); -lean::inc(x_410); +obj* x_397; obj* x_400; obj* x_402; obj* x_405; obj* x_410; +x_397 = lean::cnstr_get(x_384, 0); +lean::inc(x_397); +lean::dec(x_384); +x_400 = lean::cnstr_get(x_397, 0); +lean::inc(x_400); +x_402 = lean::cnstr_get(x_397, 1); +lean::inc(x_402); +lean::dec(x_397); +lean::inc(x_2); +lean::inc(x_1); +lean::inc(x_0); +x_410 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_347, x_1, x_2, x_402); if (lean::obj_tag(x_410) == 0) { -obj* x_413; obj* x_415; obj* x_417; obj* x_418; -lean::dec(x_335); -x_413 = lean::cnstr_get(x_407, 0); -x_415 = lean::cnstr_get(x_407, 1); -if (lean::is_exclusive(x_407)) { - x_417 = x_407; -} else { - lean::inc(x_413); - lean::inc(x_415); - lean::dec(x_407); - x_417 = lean::box(0); -} -if (lean::is_scalar(x_417)) { - x_418 = lean::alloc_cnstr(0, 2, 0); -} else { - x_418 = x_417; -} -lean::cnstr_set(x_418, 0, x_413); -lean::cnstr_set(x_418, 1, x_415); -x_391 = x_418; -goto lbl_392; -} -else -{ -obj* x_419; obj* x_421; obj* x_424; obj* x_427; obj* x_431; -x_419 = lean::cnstr_get(x_407, 0); -lean::inc(x_419); -x_421 = lean::cnstr_get(x_407, 1); -lean::inc(x_421); -lean::dec(x_407); -x_424 = lean::cnstr_get(x_410, 0); -lean::inc(x_424); -lean::dec(x_410); -x_427 = lean::cnstr_get(x_424, 0); -lean::inc(x_427); -lean::dec(x_424); -lean::inc(x_2); -x_431 = l_Lean_Elaborator_toPexpr___main(x_427, x_1, x_2, x_421); -if (lean::obj_tag(x_431) == 0) -{ -obj* x_440; obj* x_442; obj* x_443; -lean::dec(x_364); +obj* x_419; obj* x_421; obj* x_422; +lean::dec(x_346); lean::dec(x_8); -lean::dec(x_386); +lean::dec(x_376); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_335); -lean::dec(x_419); -lean::dec(x_201); -x_440 = lean::cnstr_get(x_431, 0); -if (lean::is_exclusive(x_431)) { - x_442 = x_431; +lean::dec(x_400); +lean::dec(x_207); +x_419 = lean::cnstr_get(x_410, 0); +if (lean::is_exclusive(x_410)) { + x_421 = x_410; } else { - lean::inc(x_440); - lean::dec(x_431); - x_442 = lean::box(0); + lean::inc(x_419); + lean::dec(x_410); + x_421 = lean::box(0); } -if (lean::is_scalar(x_442)) { - x_443 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_421)) { + x_422 = lean::alloc_cnstr(0, 1, 0); } else { - x_443 = x_442; + x_422 = x_421; } -lean::cnstr_set(x_443, 0, x_440); -return x_443; +lean::cnstr_set(x_422, 0, x_419); +return x_422; } else { -obj* x_444; obj* x_447; obj* x_449; obj* x_451; obj* x_452; obj* x_453; obj* x_454; -x_444 = lean::cnstr_get(x_431, 0); -lean::inc(x_444); -lean::dec(x_431); -x_447 = lean::cnstr_get(x_444, 0); -x_449 = lean::cnstr_get(x_444, 1); -if (lean::is_exclusive(x_444)) { - x_451 = x_444; -} else { - lean::inc(x_447); - lean::inc(x_449); - lean::dec(x_444); - x_451 = lean::box(0); -} -if (lean::is_scalar(x_335)) { - x_452 = lean::alloc_cnstr(1, 2, 0); -} else { - x_452 = x_335; -} -lean::cnstr_set(x_452, 0, x_447); -lean::cnstr_set(x_452, 1, x_204); -x_453 = l_List_append___rarg(x_419, x_452); -if (lean::is_scalar(x_451)) { - x_454 = lean::alloc_cnstr(0, 2, 0); -} else { - x_454 = x_451; -} -lean::cnstr_set(x_454, 0, x_453); -lean::cnstr_set(x_454, 1, x_449); -x_391 = x_454; -goto lbl_392; -} -} -} -lbl_392: +obj* x_423; obj* x_426; +x_423 = lean::cnstr_get(x_410, 0); +lean::inc(x_423); +lean::dec(x_410); +x_426 = lean::cnstr_get(x_207, 2); +lean::inc(x_426); +if (lean::obj_tag(x_426) == 0) { -obj* x_455; obj* x_457; obj* x_459; obj* x_460; obj* x_461; obj* x_462; obj* x_463; obj* x_464; uint8 x_465; obj* x_466; obj* x_467; obj* x_470; obj* x_471; obj* x_472; -x_455 = lean::cnstr_get(x_391, 0); -x_457 = lean::cnstr_get(x_391, 1); -if (lean::is_exclusive(x_391)) { - lean::cnstr_set(x_391, 0, lean::box(0)); - lean::cnstr_set(x_391, 1, lean::box(0)); - x_459 = x_391; +obj* x_430; obj* x_432; obj* x_434; obj* x_435; +lean::dec(x_346); +lean::dec(x_1); +x_430 = lean::cnstr_get(x_423, 0); +x_432 = lean::cnstr_get(x_423, 1); +if (lean::is_exclusive(x_423)) { + x_434 = x_423; +} else { + lean::inc(x_430); + lean::inc(x_432); + lean::dec(x_423); + x_434 = lean::box(0); +} +if (lean::is_scalar(x_434)) { + x_435 = lean::alloc_cnstr(0, 2, 0); +} else { + x_435 = x_434; +} +lean::cnstr_set(x_435, 0, x_430); +lean::cnstr_set(x_435, 1, x_432); +x_405 = x_435; +goto lbl_406; +} +else +{ +obj* x_436; obj* x_438; obj* x_441; obj* x_444; obj* x_448; +x_436 = lean::cnstr_get(x_423, 0); +lean::inc(x_436); +x_438 = lean::cnstr_get(x_423, 1); +lean::inc(x_438); +lean::dec(x_423); +x_441 = lean::cnstr_get(x_426, 0); +lean::inc(x_441); +lean::dec(x_426); +x_444 = lean::cnstr_get(x_441, 0); +lean::inc(x_444); +lean::dec(x_441); +lean::inc(x_2); +x_448 = l_Lean_Elaborator_toPexpr___main(x_444, x_1, x_2, x_438); +if (lean::obj_tag(x_448) == 0) +{ +obj* x_457; obj* x_459; obj* x_460; +lean::dec(x_346); +lean::dec(x_8); +lean::dec(x_376); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_400); +lean::dec(x_436); +lean::dec(x_207); +x_457 = lean::cnstr_get(x_448, 0); +if (lean::is_exclusive(x_448)) { + x_459 = x_448; } else { - lean::inc(x_455); lean::inc(x_457); - lean::dec(x_391); + lean::dec(x_448); x_459 = lean::box(0); } -x_460 = lean::mk_nat_obj(0ul); -x_461 = l_List_lengthAux___main___rarg(x_386, x_460); -x_462 = l_Lean_Elaborator_toPexpr___main___closed__23; -x_463 = l_Lean_KVMap_setNat(x_204, x_462, x_461); -x_464 = l_Lean_Elaborator_toPexpr___main___closed__24; -x_465 = lean::unbox(x_364); -x_466 = l_Lean_KVMap_setBool(x_463, x_464, x_465); -x_467 = lean::cnstr_get(x_201, 1); -lean::inc(x_467); -lean::dec(x_201); -x_470 = l_List_append___rarg(x_386, x_455); -x_471 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_472 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_471, x_470); -if (lean::obj_tag(x_467) == 0) -{ -obj* x_473; obj* x_474; obj* x_475; obj* x_476; obj* x_477; -x_473 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_474 = lean::box(0); -x_475 = l_Lean_KVMap_setName(x_466, x_473, x_474); -x_476 = lean_expr_mk_mdata(x_475, x_472); if (lean::is_scalar(x_459)) { - x_477 = lean::alloc_cnstr(0, 2, 0); + x_460 = lean::alloc_cnstr(0, 1, 0); } else { - x_477 = x_459; + x_460 = x_459; } -lean::cnstr_set(x_477, 0, x_476); -lean::cnstr_set(x_477, 1, x_457); -x_15 = x_477; +lean::cnstr_set(x_460, 0, x_457); +return x_460; +} +else +{ +obj* x_461; obj* x_464; obj* x_466; obj* x_468; obj* x_469; obj* x_470; obj* x_471; +x_461 = lean::cnstr_get(x_448, 0); +lean::inc(x_461); +lean::dec(x_448); +x_464 = lean::cnstr_get(x_461, 0); +x_466 = lean::cnstr_get(x_461, 1); +if (lean::is_exclusive(x_461)) { + x_468 = x_461; +} else { + lean::inc(x_464); + lean::inc(x_466); + lean::dec(x_461); + x_468 = lean::box(0); +} +if (lean::is_scalar(x_346)) { + x_469 = lean::alloc_cnstr(1, 2, 0); +} else { + x_469 = x_346; +} +lean::cnstr_set(x_469, 0, x_464); +lean::cnstr_set(x_469, 1, x_210); +x_470 = l_List_append___rarg(x_436, x_469); +if (lean::is_scalar(x_468)) { + x_471 = lean::alloc_cnstr(0, 2, 0); +} else { + x_471 = x_468; +} +lean::cnstr_set(x_471, 0, x_470); +lean::cnstr_set(x_471, 1, x_466); +x_405 = x_471; +goto lbl_406; +} +} +} +lbl_406: +{ +obj* x_472; obj* x_474; obj* x_476; obj* x_477; obj* x_478; obj* x_479; obj* x_480; obj* x_481; uint8 x_482; obj* x_483; obj* x_484; obj* x_487; obj* x_488; obj* x_489; +x_472 = lean::cnstr_get(x_405, 0); +x_474 = lean::cnstr_get(x_405, 1); +if (lean::is_exclusive(x_405)) { + lean::cnstr_set(x_405, 0, lean::box(0)); + lean::cnstr_set(x_405, 1, lean::box(0)); + x_476 = x_405; +} else { + lean::inc(x_472); + lean::inc(x_474); + lean::dec(x_405); + x_476 = lean::box(0); +} +x_477 = lean::mk_nat_obj(0ul); +x_478 = l_List_lengthAux___main___rarg(x_400, x_477); +x_479 = l_Lean_Elaborator_toPexpr___main___closed__23; +x_480 = l_Lean_KVMap_setNat(x_210, x_479, x_478); +x_481 = l_Lean_Elaborator_toPexpr___main___closed__24; +x_482 = lean::unbox(x_376); +x_483 = l_Lean_KVMap_setBool(x_480, x_481, x_482); +x_484 = lean::cnstr_get(x_207, 1); +lean::inc(x_484); +lean::dec(x_207); +x_487 = l_List_append___rarg(x_400, x_472); +x_488 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_489 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_488, x_487); +if (lean::obj_tag(x_484) == 0) +{ +obj* x_490; obj* x_491; obj* x_492; obj* x_493; obj* x_494; +x_490 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_491 = lean::box(0); +x_492 = l_Lean_KVMap_setName(x_483, x_490, x_491); +x_493 = lean_expr_mk_mdata(x_492, x_489); +if (lean::is_scalar(x_476)) { + x_494 = lean::alloc_cnstr(0, 2, 0); +} else { + x_494 = x_476; +} +lean::cnstr_set(x_494, 0, x_493); +lean::cnstr_set(x_494, 1, x_474); +x_15 = x_494; goto lbl_16; } else { -obj* x_478; obj* x_481; obj* x_484; obj* x_485; obj* x_486; obj* x_487; obj* x_488; -x_478 = lean::cnstr_get(x_467, 0); -lean::inc(x_478); -lean::dec(x_467); -x_481 = lean::cnstr_get(x_478, 0); -lean::inc(x_481); -lean::dec(x_478); -x_484 = l_Lean_Elaborator_mangleIdent(x_481); -x_485 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_486 = l_Lean_KVMap_setName(x_466, x_485, x_484); -x_487 = lean_expr_mk_mdata(x_486, x_472); -if (lean::is_scalar(x_459)) { - x_488 = lean::alloc_cnstr(0, 2, 0); +obj* x_495; obj* x_498; obj* x_501; obj* x_502; obj* x_503; obj* x_504; obj* x_505; +x_495 = lean::cnstr_get(x_484, 0); +lean::inc(x_495); +lean::dec(x_484); +x_498 = lean::cnstr_get(x_495, 0); +lean::inc(x_498); +lean::dec(x_495); +x_501 = l_Lean_Elaborator_mangleIdent(x_498); +x_502 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_503 = l_Lean_KVMap_setName(x_483, x_502, x_501); +x_504 = lean_expr_mk_mdata(x_503, x_489); +if (lean::is_scalar(x_476)) { + x_505 = lean::alloc_cnstr(0, 2, 0); } else { - x_488 = x_459; + x_505 = x_476; } -lean::cnstr_set(x_488, 0, x_487); -lean::cnstr_set(x_488, 1, x_457); -x_15 = x_488; +lean::cnstr_set(x_505, 0, x_504); +lean::cnstr_set(x_505, 1, x_474); +x_15 = x_505; goto lbl_16; } } @@ -7913,711 +6475,726 @@ goto lbl_16; } else { -obj* x_489; obj* x_491; -x_489 = lean::cnstr_get(x_212, 1); -if (lean::is_exclusive(x_212)) { - lean::cnstr_release(x_212, 0); - lean::cnstr_set(x_212, 1, lean::box(0)); - x_491 = x_212; +obj* x_506; obj* x_508; +x_506 = lean::cnstr_get(x_218, 1); +if (lean::is_exclusive(x_218)) { + lean::cnstr_release(x_218, 0); + lean::cnstr_set(x_218, 1, lean::box(0)); + x_508 = x_218; } else { - lean::inc(x_489); - lean::dec(x_212); - x_491 = lean::box(0); + lean::inc(x_506); + lean::dec(x_218); + x_508 = lean::box(0); } -if (lean::obj_tag(x_489) == 0) +if (lean::obj_tag(x_506) == 0) { -obj* x_493; obj* x_498; -lean::dec(x_332); -x_493 = lean::cnstr_get(x_211, 0); -lean::inc(x_493); -lean::dec(x_211); +obj* x_510; obj* x_516; +lean::dec(x_343); +x_510 = lean::cnstr_get(x_217, 0); +lean::inc(x_510); +lean::dec(x_217); lean::inc(x_2); +lean::inc(x_1); lean::inc(x_0); -x_498 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_206, x_1, x_2, x_3); -if (lean::obj_tag(x_498) == 0) +x_516 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_212, x_1, x_2, x_3); +if (lean::obj_tag(x_516) == 0) { -obj* x_505; obj* x_507; obj* x_508; +obj* x_524; obj* x_526; obj* x_527; +lean::dec(x_508); +lean::dec(x_510); lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_493); -lean::dec(x_491); -lean::dec(x_201); -x_505 = lean::cnstr_get(x_498, 0); -if (lean::is_exclusive(x_498)) { - x_507 = x_498; +lean::dec(x_207); +x_524 = lean::cnstr_get(x_516, 0); +if (lean::is_exclusive(x_516)) { + x_526 = x_516; } else { - lean::inc(x_505); - lean::dec(x_498); - x_507 = lean::box(0); + lean::inc(x_524); + lean::dec(x_516); + x_526 = lean::box(0); } -if (lean::is_scalar(x_507)) { - x_508 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_526)) { + x_527 = lean::alloc_cnstr(0, 1, 0); } else { - x_508 = x_507; + x_527 = x_526; } -lean::cnstr_set(x_508, 0, x_505); -return x_508; +lean::cnstr_set(x_527, 0, x_524); +return x_527; } else { -obj* x_509; obj* x_512; obj* x_514; obj* x_517; obj* x_521; -x_509 = lean::cnstr_get(x_498, 0); -lean::inc(x_509); -lean::dec(x_498); -x_512 = lean::cnstr_get(x_509, 0); -lean::inc(x_512); -x_514 = lean::cnstr_get(x_509, 1); -lean::inc(x_514); -lean::dec(x_509); +obj* x_528; obj* x_531; obj* x_533; obj* x_536; obj* x_541; +x_528 = lean::cnstr_get(x_516, 0); +lean::inc(x_528); +lean::dec(x_516); +x_531 = lean::cnstr_get(x_528, 0); +lean::inc(x_531); +x_533 = lean::cnstr_get(x_528, 1); +lean::inc(x_533); +lean::dec(x_528); lean::inc(x_2); +lean::inc(x_1); lean::inc(x_0); -x_521 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_493, x_1, x_2, x_514); -if (lean::obj_tag(x_521) == 0) +x_541 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_510, x_1, x_2, x_533); +if (lean::obj_tag(x_541) == 0) { -obj* x_528; obj* x_530; obj* x_531; -lean::dec(x_512); +obj* x_549; obj* x_551; obj* x_552; +lean::dec(x_508); +lean::dec(x_531); lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_491); -lean::dec(x_201); -x_528 = lean::cnstr_get(x_521, 0); -if (lean::is_exclusive(x_521)) { - x_530 = x_521; +lean::dec(x_207); +x_549 = lean::cnstr_get(x_541, 0); +if (lean::is_exclusive(x_541)) { + x_551 = x_541; } else { - lean::inc(x_528); - lean::dec(x_521); - x_530 = lean::box(0); + lean::inc(x_549); + lean::dec(x_541); + x_551 = lean::box(0); } -if (lean::is_scalar(x_530)) { - x_531 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_551)) { + x_552 = lean::alloc_cnstr(0, 1, 0); } else { - x_531 = x_530; + x_552 = x_551; } -lean::cnstr_set(x_531, 0, x_528); -return x_531; +lean::cnstr_set(x_552, 0, x_549); +return x_552; } else { -obj* x_532; obj* x_535; -x_532 = lean::cnstr_get(x_521, 0); -lean::inc(x_532); -lean::dec(x_521); -x_535 = lean::cnstr_get(x_201, 2); -lean::inc(x_535); -if (lean::obj_tag(x_535) == 0) -{ -obj* x_538; obj* x_540; obj* x_542; obj* x_543; -lean::dec(x_491); -x_538 = lean::cnstr_get(x_532, 0); -x_540 = lean::cnstr_get(x_532, 1); -if (lean::is_exclusive(x_532)) { - x_542 = x_532; -} else { - lean::inc(x_538); - lean::inc(x_540); - lean::dec(x_532); - x_542 = lean::box(0); -} -if (lean::is_scalar(x_542)) { - x_543 = lean::alloc_cnstr(0, 2, 0); -} else { - x_543 = x_542; -} -lean::cnstr_set(x_543, 0, x_538); -lean::cnstr_set(x_543, 1, x_540); -x_517 = x_543; -goto lbl_518; -} -else -{ -obj* x_544; obj* x_546; obj* x_549; obj* x_552; obj* x_556; -x_544 = lean::cnstr_get(x_532, 0); -lean::inc(x_544); -x_546 = lean::cnstr_get(x_532, 1); -lean::inc(x_546); -lean::dec(x_532); -x_549 = lean::cnstr_get(x_535, 0); -lean::inc(x_549); -lean::dec(x_535); -x_552 = lean::cnstr_get(x_549, 0); -lean::inc(x_552); -lean::dec(x_549); -lean::inc(x_2); -x_556 = l_Lean_Elaborator_toPexpr___main(x_552, x_1, x_2, x_546); +obj* x_553; obj* x_556; +x_553 = lean::cnstr_get(x_541, 0); +lean::inc(x_553); +lean::dec(x_541); +x_556 = lean::cnstr_get(x_207, 2); +lean::inc(x_556); if (lean::obj_tag(x_556) == 0) { -obj* x_564; obj* x_566; obj* x_567; -lean::dec(x_512); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_491); -lean::dec(x_544); -lean::dec(x_201); -x_564 = lean::cnstr_get(x_556, 0); -if (lean::is_exclusive(x_556)) { - x_566 = x_556; +obj* x_560; obj* x_562; obj* x_564; obj* x_565; +lean::dec(x_508); +lean::dec(x_1); +x_560 = lean::cnstr_get(x_553, 0); +x_562 = lean::cnstr_get(x_553, 1); +if (lean::is_exclusive(x_553)) { + x_564 = x_553; } else { - lean::inc(x_564); - lean::dec(x_556); - x_566 = lean::box(0); + lean::inc(x_560); + lean::inc(x_562); + lean::dec(x_553); + x_564 = lean::box(0); } -if (lean::is_scalar(x_566)) { - x_567 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_564)) { + x_565 = lean::alloc_cnstr(0, 2, 0); } else { - x_567 = x_566; + x_565 = x_564; } -lean::cnstr_set(x_567, 0, x_564); -return x_567; +lean::cnstr_set(x_565, 0, x_560); +lean::cnstr_set(x_565, 1, x_562); +x_536 = x_565; +goto lbl_537; } else { -obj* x_568; obj* x_571; obj* x_573; obj* x_575; obj* x_576; obj* x_577; obj* x_578; -x_568 = lean::cnstr_get(x_556, 0); +obj* x_566; obj* x_568; obj* x_571; obj* x_574; obj* x_578; +x_566 = lean::cnstr_get(x_553, 0); +lean::inc(x_566); +x_568 = lean::cnstr_get(x_553, 1); lean::inc(x_568); +lean::dec(x_553); +x_571 = lean::cnstr_get(x_556, 0); +lean::inc(x_571); lean::dec(x_556); -x_571 = lean::cnstr_get(x_568, 0); -x_573 = lean::cnstr_get(x_568, 1); -if (lean::is_exclusive(x_568)) { - x_575 = x_568; -} else { - lean::inc(x_571); - lean::inc(x_573); - lean::dec(x_568); - x_575 = lean::box(0); -} -if (lean::is_scalar(x_491)) { - x_576 = lean::alloc_cnstr(1, 2, 0); -} else { - x_576 = x_491; -} -lean::cnstr_set(x_576, 0, x_571); -lean::cnstr_set(x_576, 1, x_204); -x_577 = l_List_append___rarg(x_544, x_576); -if (lean::is_scalar(x_575)) { - x_578 = lean::alloc_cnstr(0, 2, 0); -} else { - x_578 = x_575; -} -lean::cnstr_set(x_578, 0, x_577); -lean::cnstr_set(x_578, 1, x_573); -x_517 = x_578; -goto lbl_518; -} -} -} -lbl_518: +x_574 = lean::cnstr_get(x_571, 0); +lean::inc(x_574); +lean::dec(x_571); +lean::inc(x_2); +x_578 = l_Lean_Elaborator_toPexpr___main(x_574, x_1, x_2, x_568); +if (lean::obj_tag(x_578) == 0) { -obj* x_579; obj* x_581; obj* x_583; obj* x_584; obj* x_585; obj* x_586; obj* x_587; obj* x_588; uint8 x_589; obj* x_590; obj* x_591; obj* x_594; obj* x_595; obj* x_596; -x_579 = lean::cnstr_get(x_517, 0); -x_581 = lean::cnstr_get(x_517, 1); -if (lean::is_exclusive(x_517)) { - lean::cnstr_set(x_517, 0, lean::box(0)); - lean::cnstr_set(x_517, 1, lean::box(0)); - x_583 = x_517; +obj* x_586; obj* x_588; obj* x_589; +lean::dec(x_566); +lean::dec(x_508); +lean::dec(x_531); +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_207); +x_586 = lean::cnstr_get(x_578, 0); +if (lean::is_exclusive(x_578)) { + x_588 = x_578; } else { - lean::inc(x_579); - lean::inc(x_581); - lean::dec(x_517); - x_583 = lean::box(0); + lean::inc(x_586); + lean::dec(x_578); + x_588 = lean::box(0); } -x_584 = lean::mk_nat_obj(0ul); -x_585 = l_List_lengthAux___main___rarg(x_512, x_584); -x_586 = l_Lean_Elaborator_toPexpr___main___closed__23; -x_587 = l_Lean_KVMap_setNat(x_204, x_586, x_585); -x_588 = l_Lean_Elaborator_toPexpr___main___closed__24; -x_589 = 1; -x_590 = l_Lean_KVMap_setBool(x_587, x_588, x_589); -x_591 = lean::cnstr_get(x_201, 1); -lean::inc(x_591); -lean::dec(x_201); -x_594 = l_List_append___rarg(x_512, x_579); -x_595 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_596 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_595, x_594); -if (lean::obj_tag(x_591) == 0) -{ -obj* x_597; obj* x_598; obj* x_599; obj* x_600; obj* x_601; -x_597 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_598 = lean::box(0); -x_599 = l_Lean_KVMap_setName(x_590, x_597, x_598); -x_600 = lean_expr_mk_mdata(x_599, x_596); -if (lean::is_scalar(x_583)) { - x_601 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_588)) { + x_589 = lean::alloc_cnstr(0, 1, 0); } else { - x_601 = x_583; + x_589 = x_588; } -lean::cnstr_set(x_601, 0, x_600); -lean::cnstr_set(x_601, 1, x_581); -x_15 = x_601; -goto lbl_16; +lean::cnstr_set(x_589, 0, x_586); +return x_589; } else { -obj* x_602; obj* x_605; obj* x_608; obj* x_609; obj* x_610; obj* x_611; obj* x_612; -x_602 = lean::cnstr_get(x_591, 0); -lean::inc(x_602); -lean::dec(x_591); -x_605 = lean::cnstr_get(x_602, 0); -lean::inc(x_605); -lean::dec(x_602); -x_608 = l_Lean_Elaborator_mangleIdent(x_605); -x_609 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_610 = l_Lean_KVMap_setName(x_590, x_609, x_608); -x_611 = lean_expr_mk_mdata(x_610, x_596); -if (lean::is_scalar(x_583)) { - x_612 = lean::alloc_cnstr(0, 2, 0); +obj* x_590; obj* x_593; obj* x_595; obj* x_597; obj* x_598; obj* x_599; obj* x_600; +x_590 = lean::cnstr_get(x_578, 0); +lean::inc(x_590); +lean::dec(x_578); +x_593 = lean::cnstr_get(x_590, 0); +x_595 = lean::cnstr_get(x_590, 1); +if (lean::is_exclusive(x_590)) { + x_597 = x_590; } else { - x_612 = x_583; + lean::inc(x_593); + lean::inc(x_595); + lean::dec(x_590); + x_597 = lean::box(0); } -lean::cnstr_set(x_612, 0, x_611); -lean::cnstr_set(x_612, 1, x_581); -x_15 = x_612; -goto lbl_16; +if (lean::is_scalar(x_508)) { + x_598 = lean::alloc_cnstr(1, 2, 0); +} else { + x_598 = x_508; +} +lean::cnstr_set(x_598, 0, x_593); +lean::cnstr_set(x_598, 1, x_210); +x_599 = l_List_append___rarg(x_566, x_598); +if (lean::is_scalar(x_597)) { + x_600 = lean::alloc_cnstr(0, 2, 0); +} else { + x_600 = x_597; +} +lean::cnstr_set(x_600, 0, x_599); +lean::cnstr_set(x_600, 1, x_595); +x_536 = x_600; +goto lbl_537; } } } -} -else +lbl_537: { -obj* x_614; obj* x_615; obj* x_618; obj* x_619; obj* x_622; obj* x_623; obj* x_624; obj* x_626; -lean::dec(x_491); -if (lean::is_exclusive(x_489)) { - lean::cnstr_release(x_489, 0); - lean::cnstr_release(x_489, 1); - x_614 = x_489; +obj* x_601; obj* x_603; obj* x_605; obj* x_606; obj* x_607; obj* x_608; obj* x_609; obj* x_610; uint8 x_611; obj* x_612; obj* x_613; obj* x_616; obj* x_617; obj* x_618; +x_601 = lean::cnstr_get(x_536, 0); +x_603 = lean::cnstr_get(x_536, 1); +if (lean::is_exclusive(x_536)) { + lean::cnstr_set(x_536, 0, lean::box(0)); + lean::cnstr_set(x_536, 1, lean::box(0)); + x_605 = x_536; } else { - lean::dec(x_489); - x_614 = lean::box(0); + lean::inc(x_601); + lean::inc(x_603); + lean::dec(x_536); + x_605 = lean::box(0); +} +x_606 = lean::mk_nat_obj(0ul); +x_607 = l_List_lengthAux___main___rarg(x_531, x_606); +x_608 = l_Lean_Elaborator_toPexpr___main___closed__23; +x_609 = l_Lean_KVMap_setNat(x_210, x_608, x_607); +x_610 = l_Lean_Elaborator_toPexpr___main___closed__24; +x_611 = 1; +x_612 = l_Lean_KVMap_setBool(x_609, x_610, x_611); +x_613 = lean::cnstr_get(x_207, 1); +lean::inc(x_613); +lean::dec(x_207); +x_616 = l_List_append___rarg(x_531, x_601); +x_617 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_618 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_617, x_616); +if (lean::obj_tag(x_613) == 0) +{ +obj* x_619; obj* x_620; obj* x_621; obj* x_622; obj* x_623; +x_619 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_620 = lean::box(0); +x_621 = l_Lean_KVMap_setName(x_612, x_619, x_620); +x_622 = lean_expr_mk_mdata(x_621, x_618); +if (lean::is_scalar(x_605)) { + x_623 = lean::alloc_cnstr(0, 2, 0); +} else { + x_623 = x_605; } -x_615 = lean::cnstr_get(x_211, 0); -lean::inc(x_615); -lean::dec(x_211); -x_618 = l_Lean_Parser_Term_structInstItem_HasView; -x_619 = lean::cnstr_get(x_618, 1); -lean::inc(x_619); -lean::dec(x_618); -x_622 = lean::apply_1(x_619, x_332); -x_623 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_623, 0, x_622); -x_624 = l_Lean_Elaborator_toPexpr___main___closed__27; -lean::inc(x_2); -x_626 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_623, x_624, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_623); -if (lean::obj_tag(x_626) == 0) -{ -obj* x_636; obj* x_638; obj* x_639; -lean::dec(x_8); -lean::dec(x_614); -lean::dec(x_0); -lean::dec(x_615); -lean::dec(x_2); -lean::dec(x_206); -lean::dec(x_201); -x_636 = lean::cnstr_get(x_626, 0); -if (lean::is_exclusive(x_626)) { - x_638 = x_626; -} else { - lean::inc(x_636); - lean::dec(x_626); - x_638 = lean::box(0); -} -if (lean::is_scalar(x_638)) { - x_639 = lean::alloc_cnstr(0, 1, 0); -} else { - x_639 = x_638; -} -lean::cnstr_set(x_639, 0, x_636); -return x_639; +lean::cnstr_set(x_623, 1, x_603); +x_15 = x_623; +goto lbl_16; } else { -obj* x_640; obj* x_643; obj* x_645; obj* x_650; -x_640 = lean::cnstr_get(x_626, 0); -lean::inc(x_640); -lean::dec(x_626); -x_643 = lean::cnstr_get(x_640, 0); -lean::inc(x_643); -x_645 = lean::cnstr_get(x_640, 1); -lean::inc(x_645); +obj* x_624; obj* x_627; obj* x_630; obj* x_631; obj* x_632; obj* x_633; obj* x_634; +x_624 = lean::cnstr_get(x_613, 0); +lean::inc(x_624); +lean::dec(x_613); +x_627 = lean::cnstr_get(x_624, 0); +lean::inc(x_627); +lean::dec(x_624); +x_630 = l_Lean_Elaborator_mangleIdent(x_627); +x_631 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_632 = l_Lean_KVMap_setName(x_612, x_631, x_630); +x_633 = lean_expr_mk_mdata(x_632, x_618); +if (lean::is_scalar(x_605)) { + x_634 = lean::alloc_cnstr(0, 2, 0); +} else { + x_634 = x_605; +} +lean::cnstr_set(x_634, 0, x_633); +lean::cnstr_set(x_634, 1, x_603); +x_15 = x_634; +goto lbl_16; +} +} +} +} +else +{ +obj* x_636; obj* x_637; obj* x_640; obj* x_641; obj* x_644; obj* x_645; obj* x_646; obj* x_648; +lean::dec(x_508); +if (lean::is_exclusive(x_506)) { + lean::cnstr_release(x_506, 0); + lean::cnstr_release(x_506, 1); + x_636 = x_506; +} else { + lean::dec(x_506); + x_636 = lean::box(0); +} +x_637 = lean::cnstr_get(x_217, 0); +lean::inc(x_637); +lean::dec(x_217); +x_640 = l_Lean_Parser_Term_structInstItem_HasView; +x_641 = lean::cnstr_get(x_640, 1); +lean::inc(x_641); lean::dec(x_640); +x_644 = lean::apply_1(x_641, x_343); +x_645 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_645, 0, x_644); +x_646 = l_Lean_Elaborator_toPexpr___main___closed__27; lean::inc(x_2); -lean::inc(x_0); -x_650 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_206, x_1, x_2, x_645); -if (lean::obj_tag(x_650) == 0) +x_648 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_645, x_646, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_645); +if (lean::obj_tag(x_648) == 0) { -obj* x_658; obj* x_660; obj* x_661; +obj* x_659; obj* x_661; obj* x_662; lean::dec(x_8); -lean::dec(x_614); +lean::dec(x_1); lean::dec(x_0); -lean::dec(x_615); lean::dec(x_2); -lean::dec(x_643); -lean::dec(x_201); -x_658 = lean::cnstr_get(x_650, 0); -if (lean::is_exclusive(x_650)) { - x_660 = x_650; +lean::dec(x_636); +lean::dec(x_637); +lean::dec(x_212); +lean::dec(x_207); +x_659 = lean::cnstr_get(x_648, 0); +if (lean::is_exclusive(x_648)) { + x_661 = x_648; } else { - lean::inc(x_658); - lean::dec(x_650); - x_660 = lean::box(0); + lean::inc(x_659); + lean::dec(x_648); + x_661 = lean::box(0); } -if (lean::is_scalar(x_660)) { - x_661 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_661)) { + x_662 = lean::alloc_cnstr(0, 1, 0); } else { - x_661 = x_660; + x_662 = x_661; } -lean::cnstr_set(x_661, 0, x_658); -return x_661; +lean::cnstr_set(x_662, 0, x_659); +return x_662; } else { -obj* x_662; obj* x_665; obj* x_667; obj* x_670; obj* x_674; -x_662 = lean::cnstr_get(x_650, 0); -lean::inc(x_662); -lean::dec(x_650); -x_665 = lean::cnstr_get(x_662, 0); -lean::inc(x_665); -x_667 = lean::cnstr_get(x_662, 1); -lean::inc(x_667); -lean::dec(x_662); +obj* x_663; obj* x_666; obj* x_668; obj* x_674; +x_663 = lean::cnstr_get(x_648, 0); +lean::inc(x_663); +lean::dec(x_648); +x_666 = lean::cnstr_get(x_663, 0); +lean::inc(x_666); +x_668 = lean::cnstr_get(x_663, 1); +lean::inc(x_668); +lean::dec(x_663); lean::inc(x_2); +lean::inc(x_1); lean::inc(x_0); -x_674 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_615, x_1, x_2, x_667); +x_674 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_212, x_1, x_2, x_668); if (lean::obj_tag(x_674) == 0) { -obj* x_682; obj* x_684; obj* x_685; +obj* x_683; obj* x_685; obj* x_686; lean::dec(x_8); -lean::dec(x_614); +lean::dec(x_1); lean::dec(x_0); +lean::dec(x_666); lean::dec(x_2); -lean::dec(x_643); -lean::dec(x_665); -lean::dec(x_201); -x_682 = lean::cnstr_get(x_674, 0); +lean::dec(x_636); +lean::dec(x_637); +lean::dec(x_207); +x_683 = lean::cnstr_get(x_674, 0); if (lean::is_exclusive(x_674)) { - x_684 = x_674; + x_685 = x_674; } else { - lean::inc(x_682); + lean::inc(x_683); lean::dec(x_674); - x_684 = lean::box(0); + x_685 = lean::box(0); } -if (lean::is_scalar(x_684)) { - x_685 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_685)) { + x_686 = lean::alloc_cnstr(0, 1, 0); } else { - x_685 = x_684; + x_686 = x_685; } -lean::cnstr_set(x_685, 0, x_682); -return x_685; +lean::cnstr_set(x_686, 0, x_683); +return x_686; } else { -obj* x_686; obj* x_689; -x_686 = lean::cnstr_get(x_674, 0); -lean::inc(x_686); +obj* x_687; obj* x_690; obj* x_692; obj* x_695; obj* x_700; +x_687 = lean::cnstr_get(x_674, 0); +lean::inc(x_687); lean::dec(x_674); -x_689 = lean::cnstr_get(x_201, 2); -lean::inc(x_689); -if (lean::obj_tag(x_689) == 0) -{ -obj* x_692; obj* x_694; obj* x_696; obj* x_697; -lean::dec(x_614); -x_692 = lean::cnstr_get(x_686, 0); -x_694 = lean::cnstr_get(x_686, 1); -if (lean::is_exclusive(x_686)) { - x_696 = x_686; -} else { - lean::inc(x_692); - lean::inc(x_694); - lean::dec(x_686); - x_696 = lean::box(0); -} -if (lean::is_scalar(x_696)) { - x_697 = lean::alloc_cnstr(0, 2, 0); -} else { - x_697 = x_696; -} -lean::cnstr_set(x_697, 0, x_692); -lean::cnstr_set(x_697, 1, x_694); -x_670 = x_697; -goto lbl_671; -} -else -{ -obj* x_698; obj* x_700; obj* x_703; obj* x_706; obj* x_710; -x_698 = lean::cnstr_get(x_686, 0); -lean::inc(x_698); -x_700 = lean::cnstr_get(x_686, 1); -lean::inc(x_700); -lean::dec(x_686); -x_703 = lean::cnstr_get(x_689, 0); -lean::inc(x_703); -lean::dec(x_689); -x_706 = lean::cnstr_get(x_703, 0); -lean::inc(x_706); -lean::dec(x_703); +x_690 = lean::cnstr_get(x_687, 0); +lean::inc(x_690); +x_692 = lean::cnstr_get(x_687, 1); +lean::inc(x_692); +lean::dec(x_687); lean::inc(x_2); -x_710 = l_Lean_Elaborator_toPexpr___main(x_706, x_1, x_2, x_700); -if (lean::obj_tag(x_710) == 0) +lean::inc(x_1); +lean::inc(x_0); +x_700 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_637, x_1, x_2, x_692); +if (lean::obj_tag(x_700) == 0) { -obj* x_719; obj* x_721; obj* x_722; +obj* x_709; obj* x_711; obj* x_712; lean::dec(x_8); -lean::dec(x_614); +lean::dec(x_1); lean::dec(x_0); +lean::dec(x_666); lean::dec(x_2); -lean::dec(x_643); -lean::dec(x_665); -lean::dec(x_698); -lean::dec(x_201); -x_719 = lean::cnstr_get(x_710, 0); -if (lean::is_exclusive(x_710)) { - x_721 = x_710; +lean::dec(x_690); +lean::dec(x_636); +lean::dec(x_207); +x_709 = lean::cnstr_get(x_700, 0); +if (lean::is_exclusive(x_700)) { + x_711 = x_700; } else { - lean::inc(x_719); - lean::dec(x_710); - x_721 = lean::box(0); + lean::inc(x_709); + lean::dec(x_700); + x_711 = lean::box(0); } -if (lean::is_scalar(x_721)) { - x_722 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_711)) { + x_712 = lean::alloc_cnstr(0, 1, 0); } else { - x_722 = x_721; + x_712 = x_711; } -lean::cnstr_set(x_722, 0, x_719); -return x_722; +lean::cnstr_set(x_712, 0, x_709); +return x_712; } else { -obj* x_723; obj* x_726; obj* x_728; obj* x_730; obj* x_731; obj* x_732; obj* x_733; -x_723 = lean::cnstr_get(x_710, 0); -lean::inc(x_723); -lean::dec(x_710); -x_726 = lean::cnstr_get(x_723, 0); -x_728 = lean::cnstr_get(x_723, 1); -if (lean::is_exclusive(x_723)) { - x_730 = x_723; -} else { - lean::inc(x_726); - lean::inc(x_728); - lean::dec(x_723); - x_730 = lean::box(0); -} -if (lean::is_scalar(x_614)) { - x_731 = lean::alloc_cnstr(1, 2, 0); -} else { - x_731 = x_614; -} -lean::cnstr_set(x_731, 0, x_726); -lean::cnstr_set(x_731, 1, x_204); -x_732 = l_List_append___rarg(x_698, x_731); -if (lean::is_scalar(x_730)) { - x_733 = lean::alloc_cnstr(0, 2, 0); -} else { - x_733 = x_730; -} -lean::cnstr_set(x_733, 0, x_732); -lean::cnstr_set(x_733, 1, x_728); -x_670 = x_733; -goto lbl_671; -} -} -} -lbl_671: +obj* x_713; obj* x_716; +x_713 = lean::cnstr_get(x_700, 0); +lean::inc(x_713); +lean::dec(x_700); +x_716 = lean::cnstr_get(x_207, 2); +lean::inc(x_716); +if (lean::obj_tag(x_716) == 0) { -obj* x_734; obj* x_736; obj* x_738; obj* x_739; obj* x_740; obj* x_741; obj* x_742; obj* x_743; uint8 x_744; obj* x_745; obj* x_746; obj* x_749; obj* x_750; obj* x_751; -x_734 = lean::cnstr_get(x_670, 0); -x_736 = lean::cnstr_get(x_670, 1); -if (lean::is_exclusive(x_670)) { - lean::cnstr_set(x_670, 0, lean::box(0)); - lean::cnstr_set(x_670, 1, lean::box(0)); - x_738 = x_670; +obj* x_720; obj* x_722; obj* x_724; obj* x_725; +lean::dec(x_1); +lean::dec(x_636); +x_720 = lean::cnstr_get(x_713, 0); +x_722 = lean::cnstr_get(x_713, 1); +if (lean::is_exclusive(x_713)) { + x_724 = x_713; } else { - lean::inc(x_734); - lean::inc(x_736); - lean::dec(x_670); - x_738 = lean::box(0); + lean::inc(x_720); + lean::inc(x_722); + lean::dec(x_713); + x_724 = lean::box(0); } -x_739 = lean::mk_nat_obj(0ul); -x_740 = l_List_lengthAux___main___rarg(x_665, x_739); -x_741 = l_Lean_Elaborator_toPexpr___main___closed__23; -x_742 = l_Lean_KVMap_setNat(x_204, x_741, x_740); -x_743 = l_Lean_Elaborator_toPexpr___main___closed__24; -x_744 = lean::unbox(x_643); -x_745 = l_Lean_KVMap_setBool(x_742, x_743, x_744); -x_746 = lean::cnstr_get(x_201, 1); -lean::inc(x_746); -lean::dec(x_201); -x_749 = l_List_append___rarg(x_665, x_734); -x_750 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_751 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_750, x_749); -if (lean::obj_tag(x_746) == 0) -{ -obj* x_752; obj* x_753; obj* x_754; obj* x_755; obj* x_756; -x_752 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_753 = lean::box(0); -x_754 = l_Lean_KVMap_setName(x_745, x_752, x_753); -x_755 = lean_expr_mk_mdata(x_754, x_751); -if (lean::is_scalar(x_738)) { - x_756 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_724)) { + x_725 = lean::alloc_cnstr(0, 2, 0); } else { - x_756 = x_738; + x_725 = x_724; } -lean::cnstr_set(x_756, 0, x_755); -lean::cnstr_set(x_756, 1, x_736); -x_15 = x_756; -goto lbl_16; +lean::cnstr_set(x_725, 0, x_720); +lean::cnstr_set(x_725, 1, x_722); +x_695 = x_725; +goto lbl_696; } else { -obj* x_757; obj* x_760; obj* x_763; obj* x_764; obj* x_765; obj* x_766; obj* x_767; -x_757 = lean::cnstr_get(x_746, 0); -lean::inc(x_757); -lean::dec(x_746); -x_760 = lean::cnstr_get(x_757, 0); -lean::inc(x_760); -lean::dec(x_757); -x_763 = l_Lean_Elaborator_mangleIdent(x_760); -x_764 = l_Lean_Elaborator_toPexpr___main___closed__26; -x_765 = l_Lean_KVMap_setName(x_745, x_764, x_763); -x_766 = lean_expr_mk_mdata(x_765, x_751); -if (lean::is_scalar(x_738)) { - x_767 = lean::alloc_cnstr(0, 2, 0); -} else { - x_767 = x_738; -} -lean::cnstr_set(x_767, 0, x_766); -lean::cnstr_set(x_767, 1, x_736); -x_15 = x_767; -goto lbl_16; -} -} -} -} -} -} -} -} -} -else -{ -obj* x_770; +obj* x_726; obj* x_728; obj* x_731; obj* x_734; obj* x_738; +x_726 = lean::cnstr_get(x_713, 0); +lean::inc(x_726); +x_728 = lean::cnstr_get(x_713, 1); +lean::inc(x_728); +lean::dec(x_713); +x_731 = lean::cnstr_get(x_716, 0); +lean::inc(x_731); +lean::dec(x_716); +x_734 = lean::cnstr_get(x_731, 0); +lean::inc(x_734); +lean::dec(x_731); lean::inc(x_2); +x_738 = l_Lean_Elaborator_toPexpr___main(x_734, x_1, x_2, x_728); +if (lean::obj_tag(x_738) == 0) +{ +obj* x_747; obj* x_749; obj* x_750; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_666); +lean::dec(x_2); +lean::dec(x_690); +lean::dec(x_636); +lean::dec(x_726); +lean::dec(x_207); +x_747 = lean::cnstr_get(x_738, 0); +if (lean::is_exclusive(x_738)) { + x_749 = x_738; +} else { + lean::inc(x_747); + lean::dec(x_738); + x_749 = lean::box(0); +} +if (lean::is_scalar(x_749)) { + x_750 = lean::alloc_cnstr(0, 1, 0); +} else { + x_750 = x_749; +} +lean::cnstr_set(x_750, 0, x_747); +return x_750; +} +else +{ +obj* x_751; obj* x_754; obj* x_756; obj* x_758; obj* x_759; obj* x_760; obj* x_761; +x_751 = lean::cnstr_get(x_738, 0); +lean::inc(x_751); +lean::dec(x_738); +x_754 = lean::cnstr_get(x_751, 0); +x_756 = lean::cnstr_get(x_751, 1); +if (lean::is_exclusive(x_751)) { + x_758 = x_751; +} else { + lean::inc(x_754); + lean::inc(x_756); + lean::dec(x_751); + x_758 = lean::box(0); +} +if (lean::is_scalar(x_636)) { + x_759 = lean::alloc_cnstr(1, 2, 0); +} else { + x_759 = x_636; +} +lean::cnstr_set(x_759, 0, x_754); +lean::cnstr_set(x_759, 1, x_210); +x_760 = l_List_append___rarg(x_726, x_759); +if (lean::is_scalar(x_758)) { + x_761 = lean::alloc_cnstr(0, 2, 0); +} else { + x_761 = x_758; +} +lean::cnstr_set(x_761, 0, x_760); +lean::cnstr_set(x_761, 1, x_756); +x_695 = x_761; +goto lbl_696; +} +} +} +lbl_696: +{ +obj* x_762; obj* x_764; obj* x_766; obj* x_767; obj* x_768; obj* x_769; obj* x_770; obj* x_771; uint8 x_772; obj* x_773; obj* x_774; obj* x_777; obj* x_778; obj* x_779; +x_762 = lean::cnstr_get(x_695, 0); +x_764 = lean::cnstr_get(x_695, 1); +if (lean::is_exclusive(x_695)) { + lean::cnstr_set(x_695, 0, lean::box(0)); + lean::cnstr_set(x_695, 1, lean::box(0)); + x_766 = x_695; +} else { + lean::inc(x_762); + lean::inc(x_764); + lean::dec(x_695); + x_766 = lean::box(0); +} +x_767 = lean::mk_nat_obj(0ul); +x_768 = l_List_lengthAux___main___rarg(x_690, x_767); +x_769 = l_Lean_Elaborator_toPexpr___main___closed__23; +x_770 = l_Lean_KVMap_setNat(x_210, x_769, x_768); +x_771 = l_Lean_Elaborator_toPexpr___main___closed__24; +x_772 = lean::unbox(x_666); +x_773 = l_Lean_KVMap_setBool(x_770, x_771, x_772); +x_774 = lean::cnstr_get(x_207, 1); +lean::inc(x_774); +lean::dec(x_207); +x_777 = l_List_append___rarg(x_690, x_762); +x_778 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_779 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_778, x_777); +if (lean::obj_tag(x_774) == 0) +{ +obj* x_780; obj* x_781; obj* x_782; obj* x_783; obj* x_784; +x_780 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_781 = lean::box(0); +x_782 = l_Lean_KVMap_setName(x_773, x_780, x_781); +x_783 = lean_expr_mk_mdata(x_782, x_779); +if (lean::is_scalar(x_766)) { + x_784 = lean::alloc_cnstr(0, 2, 0); +} else { + x_784 = x_766; +} +lean::cnstr_set(x_784, 0, x_783); +lean::cnstr_set(x_784, 1, x_764); +x_15 = x_784; +goto lbl_16; +} +else +{ +obj* x_785; obj* x_788; obj* x_791; obj* x_792; obj* x_793; obj* x_794; obj* x_795; +x_785 = lean::cnstr_get(x_774, 0); +lean::inc(x_785); +lean::dec(x_774); +x_788 = lean::cnstr_get(x_785, 0); +lean::inc(x_788); +lean::dec(x_785); +x_791 = l_Lean_Elaborator_mangleIdent(x_788); +x_792 = l_Lean_Elaborator_toPexpr___main___closed__26; +x_793 = l_Lean_KVMap_setName(x_773, x_792, x_791); +x_794 = lean_expr_mk_mdata(x_793, x_779); +if (lean::is_scalar(x_766)) { + x_795 = lean::alloc_cnstr(0, 2, 0); +} else { + x_795 = x_766; +} +lean::cnstr_set(x_795, 0, x_794); +lean::cnstr_set(x_795, 1, x_764); +x_15 = x_795; +goto lbl_16; +} +} +} +} +} +} +} +} +} +else +{ +obj* x_799; +lean::inc(x_2); +lean::inc(x_1); lean::inc(x_10); -x_770 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_10, x_1, x_2, x_3); -if (lean::obj_tag(x_770) == 0) +x_799 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_10, x_1, x_2, x_3); +if (lean::obj_tag(x_799) == 0) { -obj* x_775; obj* x_777; obj* x_778; +obj* x_805; obj* x_807; obj* x_808; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_10); lean::dec(x_2); -x_775 = lean::cnstr_get(x_770, 0); -if (lean::is_exclusive(x_770)) { - x_777 = x_770; +x_805 = lean::cnstr_get(x_799, 0); +if (lean::is_exclusive(x_799)) { + x_807 = x_799; } else { - lean::inc(x_775); - lean::dec(x_770); - x_777 = lean::box(0); + lean::inc(x_805); + lean::dec(x_799); + x_807 = lean::box(0); } -if (lean::is_scalar(x_777)) { - x_778 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_807)) { + x_808 = lean::alloc_cnstr(0, 1, 0); } else { - x_778 = x_777; + x_808 = x_807; } -lean::cnstr_set(x_778, 0, x_775); -return x_778; +lean::cnstr_set(x_808, 0, x_805); +return x_808; } else { -obj* x_779; obj* x_782; obj* x_784; obj* x_786; obj* x_787; -x_779 = lean::cnstr_get(x_770, 0); -lean::inc(x_779); -lean::dec(x_770); -x_782 = lean::cnstr_get(x_779, 0); -x_784 = lean::cnstr_get(x_779, 1); -if (lean::is_exclusive(x_779)) { - lean::cnstr_set(x_779, 0, lean::box(0)); - lean::cnstr_set(x_779, 1, lean::box(0)); - x_786 = x_779; -} else { - lean::inc(x_782); - lean::inc(x_784); - lean::dec(x_779); - x_786 = lean::box(0); -} -x_787 = l_List_reverse___rarg(x_782); -if (lean::obj_tag(x_787) == 0) -{ -obj* x_791; obj* x_792; obj* x_794; -lean::dec(x_786); -lean::dec(x_10); -lean::inc(x_0); -x_791 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_791, 0, x_0); -x_792 = l_Lean_Elaborator_toPexpr___main___closed__28; -lean::inc(x_2); -x_794 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_791, x_792, x_1, x_2, x_784); -lean::dec(x_784); -lean::dec(x_791); -if (lean::obj_tag(x_794) == 0) -{ -obj* x_800; obj* x_802; obj* x_803; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_800 = lean::cnstr_get(x_794, 0); -if (lean::is_exclusive(x_794)) { - x_802 = x_794; -} else { - lean::inc(x_800); - lean::dec(x_794); - x_802 = lean::box(0); -} -if (lean::is_scalar(x_802)) { - x_803 = lean::alloc_cnstr(0, 1, 0); -} else { - x_803 = x_802; -} -lean::cnstr_set(x_803, 0, x_800); -return x_803; -} -else -{ -obj* x_804; -x_804 = lean::cnstr_get(x_794, 0); -lean::inc(x_804); -lean::dec(x_794); -x_15 = x_804; -goto lbl_16; -} -} -else -{ -obj* x_807; obj* x_809; obj* x_812; obj* x_813; obj* x_815; obj* x_816; obj* x_817; obj* x_818; obj* x_819; obj* x_821; obj* x_822; -x_807 = lean::cnstr_get(x_787, 0); -lean::inc(x_807); -x_809 = lean::cnstr_get(x_787, 1); +obj* x_809; obj* x_812; obj* x_814; obj* x_816; obj* x_817; +x_809 = lean::cnstr_get(x_799, 0); lean::inc(x_809); -lean::dec(x_787); -x_812 = lean::mk_nat_obj(0ul); -x_813 = l_List_lengthAux___main___rarg(x_10, x_812); -lean::dec(x_10); -x_815 = lean::box(0); -x_816 = l_Lean_Elaborator_toPexpr___main___closed__29; -x_817 = l_Lean_KVMap_setNat(x_815, x_816, x_813); -x_818 = l_List_reverse___rarg(x_809); -x_819 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_807, x_818); -lean::dec(x_807); -x_821 = lean_expr_mk_mdata(x_817, x_819); -if (lean::is_scalar(x_786)) { - x_822 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_799); +x_812 = lean::cnstr_get(x_809, 0); +x_814 = lean::cnstr_get(x_809, 1); +if (lean::is_exclusive(x_809)) { + lean::cnstr_set(x_809, 0, lean::box(0)); + lean::cnstr_set(x_809, 1, lean::box(0)); + x_816 = x_809; } else { - x_822 = x_786; + lean::inc(x_812); + lean::inc(x_814); + lean::dec(x_809); + x_816 = lean::box(0); } -lean::cnstr_set(x_822, 0, x_821); -lean::cnstr_set(x_822, 1, x_784); -x_15 = x_822; +x_817 = l_List_reverse___rarg(x_812); +if (lean::obj_tag(x_817) == 0) +{ +obj* x_821; obj* x_822; obj* x_824; +lean::dec(x_816); +lean::dec(x_10); +lean::inc(x_0); +x_821 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_821, 0, x_0); +x_822 = l_Lean_Elaborator_toPexpr___main___closed__28; +lean::inc(x_2); +x_824 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_821, x_822, x_1, x_2, x_814); +lean::dec(x_814); +lean::dec(x_1); +lean::dec(x_821); +if (lean::obj_tag(x_824) == 0) +{ +obj* x_831; obj* x_833; obj* x_834; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_831 = lean::cnstr_get(x_824, 0); +if (lean::is_exclusive(x_824)) { + x_833 = x_824; +} else { + lean::inc(x_831); + lean::dec(x_824); + x_833 = lean::box(0); +} +if (lean::is_scalar(x_833)) { + x_834 = lean::alloc_cnstr(0, 1, 0); +} else { + x_834 = x_833; +} +lean::cnstr_set(x_834, 0, x_831); +return x_834; +} +else +{ +obj* x_835; +x_835 = lean::cnstr_get(x_824, 0); +lean::inc(x_835); +lean::dec(x_824); +x_15 = x_835; +goto lbl_16; +} +} +else +{ +obj* x_839; obj* x_841; obj* x_844; obj* x_845; obj* x_847; obj* x_848; obj* x_849; obj* x_850; obj* x_851; obj* x_853; obj* x_854; +lean::dec(x_1); +x_839 = lean::cnstr_get(x_817, 0); +lean::inc(x_839); +x_841 = lean::cnstr_get(x_817, 1); +lean::inc(x_841); +lean::dec(x_817); +x_844 = lean::mk_nat_obj(0ul); +x_845 = l_List_lengthAux___main___rarg(x_10, x_844); +lean::dec(x_10); +x_847 = lean::box(0); +x_848 = l_Lean_Elaborator_toPexpr___main___closed__29; +x_849 = l_Lean_KVMap_setNat(x_847, x_848, x_845); +x_850 = l_List_reverse___rarg(x_841); +x_851 = l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7(x_839, x_850); +lean::dec(x_839); +x_853 = lean_expr_mk_mdata(x_849, x_851); +if (lean::is_scalar(x_816)) { + x_854 = lean::alloc_cnstr(0, 2, 0); +} else { + x_854 = x_816; +} +lean::cnstr_set(x_854, 0, x_853); +lean::cnstr_set(x_854, 1, x_814); +x_15 = x_854; goto lbl_16; } } @@ -8625,112 +7202,59 @@ goto lbl_16; } else { -obj* x_825; obj* x_826; obj* x_830; obj* x_831; +obj* x_858; obj* x_859; obj* x_863; obj* x_864; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_10); -x_825 = l_Lean_Parser_stringLit_HasView; -x_826 = lean::cnstr_get(x_825, 0); -lean::inc(x_826); -lean::dec(x_825); +x_858 = l_Lean_Parser_stringLit_HasView; +x_859 = lean::cnstr_get(x_858, 0); +lean::inc(x_859); +lean::dec(x_858); lean::inc(x_0); -x_830 = lean::apply_1(x_826, x_0); -x_831 = l_Lean_Parser_stringLit_View_value(x_830); -if (lean::obj_tag(x_831) == 0) +x_863 = lean::apply_1(x_859, x_0); +x_864 = l_Lean_Parser_stringLit_View_value(x_863); +if (lean::obj_tag(x_864) == 0) { -obj* x_832; -x_832 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_865; +x_865 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_832) == 0) +if (lean::obj_tag(x_865) == 0) { -obj* x_835; obj* x_836; obj* x_837; +obj* x_868; obj* x_869; obj* x_870; lean::dec(x_2); -x_835 = l_Lean_Elaborator_toPexpr___main___closed__30; -x_836 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_836, 0, x_835); -lean::cnstr_set(x_836, 1, x_3); -x_837 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_837, 0, x_836); -return x_837; +x_868 = l_Lean_Elaborator_toPexpr___main___closed__30; +x_869 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_869, 0, x_868); +lean::cnstr_set(x_869, 1, x_3); +x_870 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_870, 0, x_869); +return x_870; } else { -obj* x_838; obj* x_841; obj* x_844; obj* x_847; obj* x_848; obj* x_850; obj* x_851; obj* x_852; obj* x_853; obj* x_856; obj* x_857; obj* x_858; obj* x_859; obj* x_860; obj* x_861; -x_838 = lean::cnstr_get(x_832, 0); -lean::inc(x_838); -lean::dec(x_832); -x_841 = lean::cnstr_get(x_2, 0); -lean::inc(x_841); +obj* x_871; obj* x_874; obj* x_877; obj* x_880; obj* x_881; obj* x_883; obj* x_884; obj* x_885; obj* x_886; obj* x_889; obj* x_890; obj* x_891; obj* x_892; obj* x_893; obj* x_894; +x_871 = lean::cnstr_get(x_865, 0); +lean::inc(x_871); +lean::dec(x_865); +x_874 = lean::cnstr_get(x_2, 0); +lean::inc(x_874); lean::dec(x_2); -x_844 = lean::cnstr_get(x_841, 2); -lean::inc(x_844); -lean::dec(x_841); -x_847 = l_Lean_FileMap_toPosition(x_844, x_838); -x_848 = lean::cnstr_get(x_847, 1); -lean::inc(x_848); -x_850 = lean::box(0); -x_851 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_852 = l_Lean_KVMap_setNat(x_850, x_851, x_848); -x_853 = lean::cnstr_get(x_847, 0); -lean::inc(x_853); -lean::dec(x_847); -x_856 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_857 = l_Lean_KVMap_setNat(x_852, x_856, x_853); -x_858 = l_Lean_Elaborator_toPexpr___main___closed__30; -x_859 = lean_expr_mk_mdata(x_857, x_858); -x_860 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_860, 0, x_859); -lean::cnstr_set(x_860, 1, x_3); -x_861 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_861, 0, x_860); -return x_861; -} -} -else -{ -obj* x_862; obj* x_865; obj* x_866; obj* x_867; -x_862 = lean::cnstr_get(x_831, 0); -lean::inc(x_862); -lean::dec(x_831); -x_865 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_865, 0, x_862); -x_866 = lean_expr_mk_lit(x_865); -x_867 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_867) == 0) -{ -obj* x_870; obj* x_871; -lean::dec(x_2); -x_870 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_870, 0, x_866); -lean::cnstr_set(x_870, 1, x_3); -x_871 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_871, 0, x_870); -return x_871; -} -else -{ -obj* x_872; obj* x_875; obj* x_878; obj* x_881; obj* x_882; obj* x_884; obj* x_885; obj* x_886; obj* x_887; obj* x_890; obj* x_891; obj* x_892; obj* x_893; obj* x_894; -x_872 = lean::cnstr_get(x_867, 0); -lean::inc(x_872); -lean::dec(x_867); -x_875 = lean::cnstr_get(x_2, 0); -lean::inc(x_875); -lean::dec(x_2); -x_878 = lean::cnstr_get(x_875, 2); -lean::inc(x_878); -lean::dec(x_875); -x_881 = l_Lean_FileMap_toPosition(x_878, x_872); -x_882 = lean::cnstr_get(x_881, 1); -lean::inc(x_882); -x_884 = lean::box(0); -x_885 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_886 = l_Lean_KVMap_setNat(x_884, x_885, x_882); -x_887 = lean::cnstr_get(x_881, 0); -lean::inc(x_887); -lean::dec(x_881); -x_890 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_891 = l_Lean_KVMap_setNat(x_886, x_890, x_887); -x_892 = lean_expr_mk_mdata(x_891, x_866); +x_877 = lean::cnstr_get(x_874, 2); +lean::inc(x_877); +lean::dec(x_874); +x_880 = l_Lean_FileMap_toPosition(x_877, x_871); +x_881 = lean::cnstr_get(x_880, 1); +lean::inc(x_881); +x_883 = lean::box(0); +x_884 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_885 = l_Lean_KVMap_setNat(x_883, x_884, x_881); +x_886 = lean::cnstr_get(x_880, 0); +lean::inc(x_886); +lean::dec(x_880); +x_889 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_890 = l_Lean_KVMap_setNat(x_885, x_889, x_886); +x_891 = l_Lean_Elaborator_toPexpr___main___closed__30; +x_892 = lean_expr_mk_mdata(x_890, x_891); x_893 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_893, 0, x_892); lean::cnstr_set(x_893, 1, x_3); @@ -8739,1151 +7263,1213 @@ lean::cnstr_set(x_894, 0, x_893); return x_894; } } -} -} else { -obj* x_897; obj* x_898; obj* x_902; obj* x_903; obj* x_904; obj* x_905; obj* x_906; -lean::dec(x_8); -lean::dec(x_10); -x_897 = l_Lean_Parser_number_HasView; -x_898 = lean::cnstr_get(x_897, 0); -lean::inc(x_898); -lean::dec(x_897); -lean::inc(x_0); -x_902 = lean::apply_1(x_898, x_0); -x_903 = l_Lean_Parser_number_View_toNat___main(x_902); -x_904 = lean::alloc_cnstr(0, 1, 0); +obj* x_895; obj* x_898; obj* x_899; obj* x_900; +x_895 = lean::cnstr_get(x_864, 0); +lean::inc(x_895); +lean::dec(x_864); +x_898 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_898, 0, x_895); +x_899 = lean_expr_mk_lit(x_898); +x_900 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_900) == 0) +{ +obj* x_903; obj* x_904; +lean::dec(x_2); +x_903 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_903, 0, x_899); +lean::cnstr_set(x_903, 1, x_3); +x_904 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_904, 0, x_903); -x_905 = lean_expr_mk_lit(x_904); -x_906 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_906) == 0) -{ -obj* x_909; obj* x_910; -lean::dec(x_2); -x_909 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_909, 0, x_905); -lean::cnstr_set(x_909, 1, x_3); -x_910 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_910, 0, x_909); -return x_910; +return x_904; } else { -obj* x_911; obj* x_914; obj* x_917; obj* x_920; obj* x_921; obj* x_923; obj* x_924; obj* x_925; obj* x_926; obj* x_929; obj* x_930; obj* x_931; obj* x_932; obj* x_933; -x_911 = lean::cnstr_get(x_906, 0); +obj* x_905; obj* x_908; obj* x_911; obj* x_914; obj* x_915; obj* x_917; obj* x_918; obj* x_919; obj* x_920; obj* x_923; obj* x_924; obj* x_925; obj* x_926; obj* x_927; +x_905 = lean::cnstr_get(x_900, 0); +lean::inc(x_905); +lean::dec(x_900); +x_908 = lean::cnstr_get(x_2, 0); +lean::inc(x_908); +lean::dec(x_2); +x_911 = lean::cnstr_get(x_908, 2); lean::inc(x_911); -lean::dec(x_906); -x_914 = lean::cnstr_get(x_2, 0); -lean::inc(x_914); -lean::dec(x_2); -x_917 = lean::cnstr_get(x_914, 2); -lean::inc(x_917); +lean::dec(x_908); +x_914 = l_Lean_FileMap_toPosition(x_911, x_905); +x_915 = lean::cnstr_get(x_914, 1); +lean::inc(x_915); +x_917 = lean::box(0); +x_918 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_919 = l_Lean_KVMap_setNat(x_917, x_918, x_915); +x_920 = lean::cnstr_get(x_914, 0); +lean::inc(x_920); lean::dec(x_914); -x_920 = l_Lean_FileMap_toPosition(x_917, x_911); -x_921 = lean::cnstr_get(x_920, 1); -lean::inc(x_921); -x_923 = lean::box(0); -x_924 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_925 = l_Lean_KVMap_setNat(x_923, x_924, x_921); -x_926 = lean::cnstr_get(x_920, 0); -lean::inc(x_926); -lean::dec(x_920); -x_929 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_930 = l_Lean_KVMap_setNat(x_925, x_929, x_926); -x_931 = lean_expr_mk_mdata(x_930, x_905); -x_932 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_932, 0, x_931); -lean::cnstr_set(x_932, 1, x_3); -x_933 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_933, 0, x_932); -return x_933; +x_923 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_924 = l_Lean_KVMap_setNat(x_919, x_923, x_920); +x_925 = lean_expr_mk_mdata(x_924, x_899); +x_926 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_926, 0, x_925); +lean::cnstr_set(x_926, 1, x_3); +x_927 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_927, 0, x_926); +return x_927; +} } } } else { -obj* x_936; obj* x_937; obj* x_941; obj* x_942; obj* x_946; +obj* x_931; obj* x_932; obj* x_936; obj* x_937; obj* x_938; obj* x_939; obj* x_940; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_10); -x_936 = l_Lean_Parser_Term_borrowed_HasView; -x_937 = lean::cnstr_get(x_936, 0); -lean::inc(x_937); -lean::dec(x_936); +x_931 = l_Lean_Parser_number_HasView; +x_932 = lean::cnstr_get(x_931, 0); +lean::inc(x_932); +lean::dec(x_931); lean::inc(x_0); -x_941 = lean::apply_1(x_937, x_0); -x_942 = lean::cnstr_get(x_941, 1); -lean::inc(x_942); -lean::dec(x_941); -lean::inc(x_2); -x_946 = l_Lean_Elaborator_toPexpr___main(x_942, x_1, x_2, x_3); -if (lean::obj_tag(x_946) == 0) -{ -obj* x_949; obj* x_951; obj* x_952; +x_936 = lean::apply_1(x_932, x_0); +x_937 = l_Lean_Parser_number_View_toNat___main(x_936); +x_938 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_938, 0, x_937); +x_939 = lean_expr_mk_lit(x_938); +x_940 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); +if (lean::obj_tag(x_940) == 0) +{ +obj* x_943; obj* x_944; lean::dec(x_2); -x_949 = lean::cnstr_get(x_946, 0); -if (lean::is_exclusive(x_946)) { - x_951 = x_946; -} else { - lean::inc(x_949); - lean::dec(x_946); - x_951 = lean::box(0); -} -if (lean::is_scalar(x_951)) { - x_952 = lean::alloc_cnstr(0, 1, 0); -} else { - x_952 = x_951; -} -lean::cnstr_set(x_952, 0, x_949); -return x_952; +x_943 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_943, 0, x_939); +lean::cnstr_set(x_943, 1, x_3); +x_944 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_944, 0, x_943); +return x_944; } else { -obj* x_953; obj* x_955; obj* x_956; obj* x_958; obj* x_960; obj* x_961; obj* x_962; obj* x_963; -x_953 = lean::cnstr_get(x_946, 0); -if (lean::is_exclusive(x_946)) { - lean::cnstr_set(x_946, 0, lean::box(0)); - x_955 = x_946; -} else { - lean::inc(x_953); - lean::dec(x_946); - x_955 = lean::box(0); -} -x_956 = lean::cnstr_get(x_953, 0); -x_958 = lean::cnstr_get(x_953, 1); -if (lean::is_exclusive(x_953)) { - lean::cnstr_set(x_953, 0, lean::box(0)); - lean::cnstr_set(x_953, 1, lean::box(0)); - x_960 = x_953; -} else { - lean::inc(x_956); - lean::inc(x_958); - lean::dec(x_953); - x_960 = lean::box(0); -} -x_961 = l_Lean_Elaborator_toPexpr___main___closed__31; -x_962 = l_Lean_Elaborator_Expr_mkAnnotation(x_961, x_956); -x_963 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_963) == 0) -{ -obj* x_966; obj* x_967; +obj* x_945; obj* x_948; obj* x_951; obj* x_954; obj* x_955; obj* x_957; obj* x_958; obj* x_959; obj* x_960; obj* x_963; obj* x_964; obj* x_965; obj* x_966; obj* x_967; +x_945 = lean::cnstr_get(x_940, 0); +lean::inc(x_945); +lean::dec(x_940); +x_948 = lean::cnstr_get(x_2, 0); +lean::inc(x_948); lean::dec(x_2); -if (lean::is_scalar(x_960)) { - x_966 = lean::alloc_cnstr(0, 2, 0); -} else { - x_966 = x_960; -} -lean::cnstr_set(x_966, 0, x_962); -lean::cnstr_set(x_966, 1, x_958); -if (lean::is_scalar(x_955)) { - x_967 = lean::alloc_cnstr(1, 1, 0); -} else { - x_967 = x_955; -} +x_951 = lean::cnstr_get(x_948, 2); +lean::inc(x_951); +lean::dec(x_948); +x_954 = l_Lean_FileMap_toPosition(x_951, x_945); +x_955 = lean::cnstr_get(x_954, 1); +lean::inc(x_955); +x_957 = lean::box(0); +x_958 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_959 = l_Lean_KVMap_setNat(x_957, x_958, x_955); +x_960 = lean::cnstr_get(x_954, 0); +lean::inc(x_960); +lean::dec(x_954); +x_963 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_964 = l_Lean_KVMap_setNat(x_959, x_963, x_960); +x_965 = lean_expr_mk_mdata(x_964, x_939); +x_966 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_966, 0, x_965); +lean::cnstr_set(x_966, 1, x_3); +x_967 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_967, 0, x_966); return x_967; } -else -{ -obj* x_968; obj* x_971; obj* x_974; obj* x_977; obj* x_978; obj* x_980; obj* x_981; obj* x_982; obj* x_983; obj* x_986; obj* x_987; obj* x_988; obj* x_989; obj* x_990; -x_968 = lean::cnstr_get(x_963, 0); -lean::inc(x_968); -lean::dec(x_963); -x_971 = lean::cnstr_get(x_2, 0); -lean::inc(x_971); -lean::dec(x_2); -x_974 = lean::cnstr_get(x_971, 2); -lean::inc(x_974); -lean::dec(x_971); -x_977 = l_Lean_FileMap_toPosition(x_974, x_968); -x_978 = lean::cnstr_get(x_977, 1); -lean::inc(x_978); -x_980 = lean::box(0); -x_981 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_982 = l_Lean_KVMap_setNat(x_980, x_981, x_978); -x_983 = lean::cnstr_get(x_977, 0); -lean::inc(x_983); -lean::dec(x_977); -x_986 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_987 = l_Lean_KVMap_setNat(x_982, x_986, x_983); -x_988 = lean_expr_mk_mdata(x_987, x_962); -if (lean::is_scalar(x_960)) { - x_989 = lean::alloc_cnstr(0, 2, 0); -} else { - x_989 = x_960; -} -lean::cnstr_set(x_989, 0, x_988); -lean::cnstr_set(x_989, 1, x_958); -if (lean::is_scalar(x_955)) { - x_990 = lean::alloc_cnstr(1, 1, 0); -} else { - x_990 = x_955; -} -lean::cnstr_set(x_990, 0, x_989); -return x_990; -} -} } } else { -obj* x_993; obj* x_994; obj* x_998; obj* x_999; obj* x_1003; +obj* x_970; obj* x_971; obj* x_975; obj* x_976; obj* x_980; lean::dec(x_8); lean::dec(x_10); -x_993 = l_Lean_Parser_Term_inaccessible_HasView; -x_994 = lean::cnstr_get(x_993, 0); -lean::inc(x_994); -lean::dec(x_993); +x_970 = l_Lean_Parser_Term_borrowed_HasView; +x_971 = lean::cnstr_get(x_970, 0); +lean::inc(x_971); +lean::dec(x_970); lean::inc(x_0); -x_998 = lean::apply_1(x_994, x_0); -x_999 = lean::cnstr_get(x_998, 1); -lean::inc(x_999); -lean::dec(x_998); +x_975 = lean::apply_1(x_971, x_0); +x_976 = lean::cnstr_get(x_975, 1); +lean::inc(x_976); +lean::dec(x_975); lean::inc(x_2); -x_1003 = l_Lean_Elaborator_toPexpr___main(x_999, x_1, x_2, x_3); -if (lean::obj_tag(x_1003) == 0) +x_980 = l_Lean_Elaborator_toPexpr___main(x_976, x_1, x_2, x_3); +if (lean::obj_tag(x_980) == 0) { -obj* x_1006; obj* x_1008; obj* x_1009; +obj* x_983; obj* x_985; obj* x_986; lean::dec(x_0); lean::dec(x_2); -x_1006 = lean::cnstr_get(x_1003, 0); -if (lean::is_exclusive(x_1003)) { - x_1008 = x_1003; +x_983 = lean::cnstr_get(x_980, 0); +if (lean::is_exclusive(x_980)) { + x_985 = x_980; } else { - lean::inc(x_1006); - lean::dec(x_1003); - x_1008 = lean::box(0); + lean::inc(x_983); + lean::dec(x_980); + x_985 = lean::box(0); } -if (lean::is_scalar(x_1008)) { - x_1009 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_985)) { + x_986 = lean::alloc_cnstr(0, 1, 0); } else { - x_1009 = x_1008; + x_986 = x_985; } -lean::cnstr_set(x_1009, 0, x_1006); -return x_1009; +lean::cnstr_set(x_986, 0, x_983); +return x_986; } else { -obj* x_1010; obj* x_1012; obj* x_1013; obj* x_1015; obj* x_1017; obj* x_1018; obj* x_1019; obj* x_1020; -x_1010 = lean::cnstr_get(x_1003, 0); -if (lean::is_exclusive(x_1003)) { - lean::cnstr_set(x_1003, 0, lean::box(0)); - x_1012 = x_1003; +obj* x_987; obj* x_989; obj* x_990; obj* x_992; obj* x_994; obj* x_995; obj* x_996; obj* x_997; +x_987 = lean::cnstr_get(x_980, 0); +if (lean::is_exclusive(x_980)) { + lean::cnstr_set(x_980, 0, lean::box(0)); + x_989 = x_980; } else { - lean::inc(x_1010); - lean::dec(x_1003); - x_1012 = lean::box(0); + lean::inc(x_987); + lean::dec(x_980); + x_989 = lean::box(0); } -x_1013 = lean::cnstr_get(x_1010, 0); -x_1015 = lean::cnstr_get(x_1010, 1); -if (lean::is_exclusive(x_1010)) { - lean::cnstr_set(x_1010, 0, lean::box(0)); - lean::cnstr_set(x_1010, 1, lean::box(0)); - x_1017 = x_1010; +x_990 = lean::cnstr_get(x_987, 0); +x_992 = lean::cnstr_get(x_987, 1); +if (lean::is_exclusive(x_987)) { + lean::cnstr_set(x_987, 0, lean::box(0)); + lean::cnstr_set(x_987, 1, lean::box(0)); + x_994 = x_987; } else { - lean::inc(x_1013); - lean::inc(x_1015); - lean::dec(x_1010); - x_1017 = lean::box(0); + lean::inc(x_990); + lean::inc(x_992); + lean::dec(x_987); + x_994 = lean::box(0); } -x_1018 = l_Lean_Elaborator_toPexpr___main___closed__32; -x_1019 = l_Lean_Elaborator_Expr_mkAnnotation(x_1018, x_1013); -x_1020 = l_Lean_Parser_Syntax_getPos(x_0); +x_995 = l_Lean_Elaborator_toPexpr___main___closed__31; +x_996 = l_Lean_Elaborator_Expr_mkAnnotation(x_995, x_990); +x_997 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1020) == 0) +if (lean::obj_tag(x_997) == 0) { -obj* x_1023; obj* x_1024; +obj* x_1000; obj* x_1001; lean::dec(x_2); -if (lean::is_scalar(x_1017)) { +if (lean::is_scalar(x_994)) { + x_1000 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1000 = x_994; +} +lean::cnstr_set(x_1000, 0, x_996); +lean::cnstr_set(x_1000, 1, x_992); +if (lean::is_scalar(x_989)) { + x_1001 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1001 = x_989; +} +lean::cnstr_set(x_1001, 0, x_1000); +return x_1001; +} +else +{ +obj* x_1002; obj* x_1005; obj* x_1008; obj* x_1011; obj* x_1012; obj* x_1014; obj* x_1015; obj* x_1016; obj* x_1017; obj* x_1020; obj* x_1021; obj* x_1022; obj* x_1023; obj* x_1024; +x_1002 = lean::cnstr_get(x_997, 0); +lean::inc(x_1002); +lean::dec(x_997); +x_1005 = lean::cnstr_get(x_2, 0); +lean::inc(x_1005); +lean::dec(x_2); +x_1008 = lean::cnstr_get(x_1005, 2); +lean::inc(x_1008); +lean::dec(x_1005); +x_1011 = l_Lean_FileMap_toPosition(x_1008, x_1002); +x_1012 = lean::cnstr_get(x_1011, 1); +lean::inc(x_1012); +x_1014 = lean::box(0); +x_1015 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1016 = l_Lean_KVMap_setNat(x_1014, x_1015, x_1012); +x_1017 = lean::cnstr_get(x_1011, 0); +lean::inc(x_1017); +lean::dec(x_1011); +x_1020 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1021 = l_Lean_KVMap_setNat(x_1016, x_1020, x_1017); +x_1022 = lean_expr_mk_mdata(x_1021, x_996); +if (lean::is_scalar(x_994)) { x_1023 = lean::alloc_cnstr(0, 2, 0); } else { - x_1023 = x_1017; + x_1023 = x_994; } -lean::cnstr_set(x_1023, 0, x_1019); -lean::cnstr_set(x_1023, 1, x_1015); -if (lean::is_scalar(x_1012)) { +lean::cnstr_set(x_1023, 0, x_1022); +lean::cnstr_set(x_1023, 1, x_992); +if (lean::is_scalar(x_989)) { x_1024 = lean::alloc_cnstr(1, 1, 0); } else { - x_1024 = x_1012; + x_1024 = x_989; } lean::cnstr_set(x_1024, 0, x_1023); return x_1024; } +} +} +} else { -obj* x_1025; obj* x_1028; obj* x_1031; obj* x_1034; obj* x_1035; obj* x_1037; obj* x_1038; obj* x_1039; obj* x_1040; obj* x_1043; obj* x_1044; obj* x_1045; obj* x_1046; obj* x_1047; -x_1025 = lean::cnstr_get(x_1020, 0); -lean::inc(x_1025); -lean::dec(x_1020); -x_1028 = lean::cnstr_get(x_2, 0); +obj* x_1027; obj* x_1028; obj* x_1032; obj* x_1033; obj* x_1037; +lean::dec(x_8); +lean::dec(x_10); +x_1027 = l_Lean_Parser_Term_inaccessible_HasView; +x_1028 = lean::cnstr_get(x_1027, 0); lean::inc(x_1028); +lean::dec(x_1027); +lean::inc(x_0); +x_1032 = lean::apply_1(x_1028, x_0); +x_1033 = lean::cnstr_get(x_1032, 1); +lean::inc(x_1033); +lean::dec(x_1032); +lean::inc(x_2); +x_1037 = l_Lean_Elaborator_toPexpr___main(x_1033, x_1, x_2, x_3); +if (lean::obj_tag(x_1037) == 0) +{ +obj* x_1040; obj* x_1042; obj* x_1043; +lean::dec(x_0); lean::dec(x_2); -x_1031 = lean::cnstr_get(x_1028, 2); -lean::inc(x_1031); -lean::dec(x_1028); -x_1034 = l_Lean_FileMap_toPosition(x_1031, x_1025); -x_1035 = lean::cnstr_get(x_1034, 1); -lean::inc(x_1035); -x_1037 = lean::box(0); -x_1038 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1039 = l_Lean_KVMap_setNat(x_1037, x_1038, x_1035); -x_1040 = lean::cnstr_get(x_1034, 0); -lean::inc(x_1040); -lean::dec(x_1034); -x_1043 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1044 = l_Lean_KVMap_setNat(x_1039, x_1043, x_1040); -x_1045 = lean_expr_mk_mdata(x_1044, x_1019); -if (lean::is_scalar(x_1017)) { - x_1046 = lean::alloc_cnstr(0, 2, 0); +x_1040 = lean::cnstr_get(x_1037, 0); +if (lean::is_exclusive(x_1037)) { + x_1042 = x_1037; } else { - x_1046 = x_1017; + lean::inc(x_1040); + lean::dec(x_1037); + x_1042 = lean::box(0); } -lean::cnstr_set(x_1046, 0, x_1045); -lean::cnstr_set(x_1046, 1, x_1015); -if (lean::is_scalar(x_1012)) { - x_1047 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_1042)) { + x_1043 = lean::alloc_cnstr(0, 1, 0); } else { - x_1047 = x_1012; -} -lean::cnstr_set(x_1047, 0, x_1046); -return x_1047; -} -} + x_1043 = x_1042; } +lean::cnstr_set(x_1043, 0, x_1040); +return x_1043; } else { -obj* x_1050; obj* x_1051; obj* x_1055; obj* x_1056; obj* x_1058; obj* x_1059; obj* x_1062; obj* x_1065; -lean::dec(x_8); -lean::dec(x_10); -x_1050 = l_Lean_Parser_Term_explicit_HasView; -x_1051 = lean::cnstr_get(x_1050, 0); -lean::inc(x_1051); -lean::dec(x_1050); -lean::inc(x_0); -x_1055 = lean::apply_1(x_1051, x_0); -x_1056 = lean::cnstr_get(x_1055, 0); -lean::inc(x_1056); -x_1058 = l_Lean_Parser_identUnivs_HasView; -x_1059 = lean::cnstr_get(x_1058, 1); +obj* x_1044; obj* x_1046; obj* x_1047; obj* x_1049; obj* x_1051; obj* x_1052; obj* x_1053; obj* x_1054; +x_1044 = lean::cnstr_get(x_1037, 0); +if (lean::is_exclusive(x_1037)) { + lean::cnstr_set(x_1037, 0, lean::box(0)); + x_1046 = x_1037; +} else { + lean::inc(x_1044); + lean::dec(x_1037); + x_1046 = lean::box(0); +} +x_1047 = lean::cnstr_get(x_1044, 0); +x_1049 = lean::cnstr_get(x_1044, 1); +if (lean::is_exclusive(x_1044)) { + lean::cnstr_set(x_1044, 0, lean::box(0)); + lean::cnstr_set(x_1044, 1, lean::box(0)); + x_1051 = x_1044; +} else { + lean::inc(x_1047); + lean::inc(x_1049); + lean::dec(x_1044); + x_1051 = lean::box(0); +} +x_1052 = l_Lean_Elaborator_toPexpr___main___closed__32; +x_1053 = l_Lean_Elaborator_Expr_mkAnnotation(x_1052, x_1047); +x_1054 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1054) == 0) +{ +obj* x_1057; obj* x_1058; +lean::dec(x_2); +if (lean::is_scalar(x_1051)) { + x_1057 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1057 = x_1051; +} +lean::cnstr_set(x_1057, 0, x_1053); +lean::cnstr_set(x_1057, 1, x_1049); +if (lean::is_scalar(x_1046)) { + x_1058 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1058 = x_1046; +} +lean::cnstr_set(x_1058, 0, x_1057); +return x_1058; +} +else +{ +obj* x_1059; obj* x_1062; obj* x_1065; obj* x_1068; obj* x_1069; obj* x_1071; obj* x_1072; obj* x_1073; obj* x_1074; obj* x_1077; obj* x_1078; obj* x_1079; obj* x_1080; obj* x_1081; +x_1059 = lean::cnstr_get(x_1054, 0); lean::inc(x_1059); -lean::dec(x_1058); -x_1062 = lean::cnstr_get(x_1055, 1); +lean::dec(x_1054); +x_1062 = lean::cnstr_get(x_2, 0); lean::inc(x_1062); -lean::dec(x_1055); -x_1065 = lean::apply_1(x_1059, x_1062); -if (lean::obj_tag(x_1056) == 0) -{ -obj* x_1068; -lean::dec(x_1056); -lean::inc(x_2); -x_1068 = l_Lean_Elaborator_toPexpr___main(x_1065, x_1, x_2, x_3); -if (lean::obj_tag(x_1068) == 0) -{ -obj* x_1071; obj* x_1073; obj* x_1074; -lean::dec(x_0); lean::dec(x_2); -x_1071 = lean::cnstr_get(x_1068, 0); -if (lean::is_exclusive(x_1068)) { - x_1073 = x_1068; +x_1065 = lean::cnstr_get(x_1062, 2); +lean::inc(x_1065); +lean::dec(x_1062); +x_1068 = l_Lean_FileMap_toPosition(x_1065, x_1059); +x_1069 = lean::cnstr_get(x_1068, 1); +lean::inc(x_1069); +x_1071 = lean::box(0); +x_1072 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1073 = l_Lean_KVMap_setNat(x_1071, x_1072, x_1069); +x_1074 = lean::cnstr_get(x_1068, 0); +lean::inc(x_1074); +lean::dec(x_1068); +x_1077 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1078 = l_Lean_KVMap_setNat(x_1073, x_1077, x_1074); +x_1079 = lean_expr_mk_mdata(x_1078, x_1053); +if (lean::is_scalar(x_1051)) { + x_1080 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1071); - lean::dec(x_1068); - x_1073 = lean::box(0); + x_1080 = x_1051; } -if (lean::is_scalar(x_1073)) { - x_1074 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1080, 0, x_1079); +lean::cnstr_set(x_1080, 1, x_1049); +if (lean::is_scalar(x_1046)) { + x_1081 = lean::alloc_cnstr(1, 1, 0); } else { - x_1074 = x_1073; -} -lean::cnstr_set(x_1074, 0, x_1071); -return x_1074; -} -else -{ -obj* x_1075; obj* x_1077; obj* x_1078; obj* x_1080; obj* x_1082; obj* x_1083; obj* x_1084; obj* x_1085; -x_1075 = lean::cnstr_get(x_1068, 0); -if (lean::is_exclusive(x_1068)) { - lean::cnstr_set(x_1068, 0, lean::box(0)); - x_1077 = x_1068; -} else { - lean::inc(x_1075); - lean::dec(x_1068); - x_1077 = lean::box(0); -} -x_1078 = lean::cnstr_get(x_1075, 0); -x_1080 = lean::cnstr_get(x_1075, 1); -if (lean::is_exclusive(x_1075)) { - lean::cnstr_set(x_1075, 0, lean::box(0)); - lean::cnstr_set(x_1075, 1, lean::box(0)); - x_1082 = x_1075; -} else { - lean::inc(x_1078); - lean::inc(x_1080); - lean::dec(x_1075); - x_1082 = lean::box(0); -} -x_1083 = l_List_map___main___at_Lean_Elaborator_mkEqns___spec__1___closed__1; -x_1084 = l_Lean_Elaborator_Expr_mkAnnotation(x_1083, x_1078); -x_1085 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1085) == 0) -{ -obj* x_1088; obj* x_1089; -lean::dec(x_2); -if (lean::is_scalar(x_1082)) { - x_1088 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1088 = x_1082; -} -lean::cnstr_set(x_1088, 0, x_1084); -lean::cnstr_set(x_1088, 1, x_1080); -if (lean::is_scalar(x_1077)) { - x_1089 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1089 = x_1077; -} -lean::cnstr_set(x_1089, 0, x_1088); -return x_1089; -} -else -{ -obj* x_1090; obj* x_1093; obj* x_1096; obj* x_1099; obj* x_1100; obj* x_1102; obj* x_1103; obj* x_1104; obj* x_1105; obj* x_1108; obj* x_1109; obj* x_1110; obj* x_1111; obj* x_1112; -x_1090 = lean::cnstr_get(x_1085, 0); -lean::inc(x_1090); -lean::dec(x_1085); -x_1093 = lean::cnstr_get(x_2, 0); -lean::inc(x_1093); -lean::dec(x_2); -x_1096 = lean::cnstr_get(x_1093, 2); -lean::inc(x_1096); -lean::dec(x_1093); -x_1099 = l_Lean_FileMap_toPosition(x_1096, x_1090); -x_1100 = lean::cnstr_get(x_1099, 1); -lean::inc(x_1100); -x_1102 = lean::box(0); -x_1103 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1104 = l_Lean_KVMap_setNat(x_1102, x_1103, x_1100); -x_1105 = lean::cnstr_get(x_1099, 0); -lean::inc(x_1105); -lean::dec(x_1099); -x_1108 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1109 = l_Lean_KVMap_setNat(x_1104, x_1108, x_1105); -x_1110 = lean_expr_mk_mdata(x_1109, x_1084); -if (lean::is_scalar(x_1082)) { - x_1111 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1111 = x_1082; -} -lean::cnstr_set(x_1111, 0, x_1110); -lean::cnstr_set(x_1111, 1, x_1080); -if (lean::is_scalar(x_1077)) { - x_1112 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1112 = x_1077; -} -lean::cnstr_set(x_1112, 0, x_1111); -return x_1112; -} -} -} -else -{ -obj* x_1115; -lean::dec(x_1056); -lean::inc(x_2); -x_1115 = l_Lean_Elaborator_toPexpr___main(x_1065, x_1, x_2, x_3); -if (lean::obj_tag(x_1115) == 0) -{ -obj* x_1118; obj* x_1120; obj* x_1121; -lean::dec(x_0); -lean::dec(x_2); -x_1118 = lean::cnstr_get(x_1115, 0); -if (lean::is_exclusive(x_1115)) { - x_1120 = x_1115; -} else { - lean::inc(x_1118); - lean::dec(x_1115); - x_1120 = lean::box(0); -} -if (lean::is_scalar(x_1120)) { - x_1121 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1121 = x_1120; -} -lean::cnstr_set(x_1121, 0, x_1118); -return x_1121; -} -else -{ -obj* x_1122; obj* x_1124; obj* x_1125; obj* x_1127; obj* x_1129; obj* x_1130; obj* x_1131; obj* x_1132; -x_1122 = lean::cnstr_get(x_1115, 0); -if (lean::is_exclusive(x_1115)) { - lean::cnstr_set(x_1115, 0, lean::box(0)); - x_1124 = x_1115; -} else { - lean::inc(x_1122); - lean::dec(x_1115); - x_1124 = lean::box(0); -} -x_1125 = lean::cnstr_get(x_1122, 0); -x_1127 = lean::cnstr_get(x_1122, 1); -if (lean::is_exclusive(x_1122)) { - lean::cnstr_set(x_1122, 0, lean::box(0)); - lean::cnstr_set(x_1122, 1, lean::box(0)); - x_1129 = x_1122; -} else { - lean::inc(x_1125); - lean::inc(x_1127); - lean::dec(x_1122); - x_1129 = lean::box(0); -} -x_1130 = l_Lean_Elaborator_toPexpr___main___closed__33; -x_1131 = l_Lean_Elaborator_Expr_mkAnnotation(x_1130, x_1125); -x_1132 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1132) == 0) -{ -obj* x_1135; obj* x_1136; -lean::dec(x_2); -if (lean::is_scalar(x_1129)) { - x_1135 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1135 = x_1129; -} -lean::cnstr_set(x_1135, 0, x_1131); -lean::cnstr_set(x_1135, 1, x_1127); -if (lean::is_scalar(x_1124)) { - x_1136 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1136 = x_1124; -} -lean::cnstr_set(x_1136, 0, x_1135); -return x_1136; -} -else -{ -obj* x_1137; obj* x_1140; obj* x_1143; obj* x_1146; obj* x_1147; obj* x_1149; obj* x_1150; obj* x_1151; obj* x_1152; obj* x_1155; obj* x_1156; obj* x_1157; obj* x_1158; obj* x_1159; -x_1137 = lean::cnstr_get(x_1132, 0); -lean::inc(x_1137); -lean::dec(x_1132); -x_1140 = lean::cnstr_get(x_2, 0); -lean::inc(x_1140); -lean::dec(x_2); -x_1143 = lean::cnstr_get(x_1140, 2); -lean::inc(x_1143); -lean::dec(x_1140); -x_1146 = l_Lean_FileMap_toPosition(x_1143, x_1137); -x_1147 = lean::cnstr_get(x_1146, 1); -lean::inc(x_1147); -x_1149 = lean::box(0); -x_1150 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1151 = l_Lean_KVMap_setNat(x_1149, x_1150, x_1147); -x_1152 = lean::cnstr_get(x_1146, 0); -lean::inc(x_1152); -lean::dec(x_1146); -x_1155 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1156 = l_Lean_KVMap_setNat(x_1151, x_1155, x_1152); -x_1157 = lean_expr_mk_mdata(x_1156, x_1131); -if (lean::is_scalar(x_1129)) { - x_1158 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1158 = x_1129; -} -lean::cnstr_set(x_1158, 0, x_1157); -lean::cnstr_set(x_1158, 1, x_1127); -if (lean::is_scalar(x_1124)) { - x_1159 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1159 = x_1124; -} -lean::cnstr_set(x_1159, 0, x_1158); -return x_1159; + x_1081 = x_1046; } +lean::cnstr_set(x_1081, 0, x_1080); +return x_1081; } } } } else { -obj* x_1162; obj* x_1163; obj* x_1167; obj* x_1168; +obj* x_1084; obj* x_1085; obj* x_1089; obj* x_1090; obj* x_1092; obj* x_1093; obj* x_1096; obj* x_1099; lean::dec(x_8); lean::dec(x_10); -x_1162 = l_Lean_Parser_Term_projection_HasView; -x_1163 = lean::cnstr_get(x_1162, 0); -lean::inc(x_1163); -lean::dec(x_1162); +x_1084 = l_Lean_Parser_Term_explicit_HasView; +x_1085 = lean::cnstr_get(x_1084, 0); +lean::inc(x_1085); +lean::dec(x_1084); lean::inc(x_0); -x_1167 = lean::apply_1(x_1163, x_0); -x_1168 = lean::cnstr_get(x_1167, 2); -lean::inc(x_1168); -if (lean::obj_tag(x_1168) == 0) +x_1089 = lean::apply_1(x_1085, x_0); +x_1090 = lean::cnstr_get(x_1089, 0); +lean::inc(x_1090); +x_1092 = l_Lean_Parser_identUnivs_HasView; +x_1093 = lean::cnstr_get(x_1092, 1); +lean::inc(x_1093); +lean::dec(x_1092); +x_1096 = lean::cnstr_get(x_1089, 1); +lean::inc(x_1096); +lean::dec(x_1089); +x_1099 = lean::apply_1(x_1093, x_1096); +if (lean::obj_tag(x_1090) == 0) { -obj* x_1170; obj* x_1173; obj* x_1177; -x_1170 = lean::cnstr_get(x_1167, 0); -lean::inc(x_1170); -lean::dec(x_1167); -x_1173 = lean::cnstr_get(x_1168, 0); -lean::inc(x_1173); -lean::dec(x_1168); +obj* x_1102; +lean::dec(x_1090); lean::inc(x_2); -x_1177 = l_Lean_Elaborator_toPexpr___main(x_1170, x_1, x_2, x_3); -if (lean::obj_tag(x_1177) == 0) +x_1102 = l_Lean_Elaborator_toPexpr___main(x_1099, x_1, x_2, x_3); +if (lean::obj_tag(x_1102) == 0) { -obj* x_1181; obj* x_1183; obj* x_1184; +obj* x_1105; obj* x_1107; obj* x_1108; lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1173); -x_1181 = lean::cnstr_get(x_1177, 0); -if (lean::is_exclusive(x_1177)) { - x_1183 = x_1177; +x_1105 = lean::cnstr_get(x_1102, 0); +if (lean::is_exclusive(x_1102)) { + x_1107 = x_1102; } else { - lean::inc(x_1181); - lean::dec(x_1177); - x_1183 = lean::box(0); + lean::inc(x_1105); + lean::dec(x_1102); + x_1107 = lean::box(0); } -if (lean::is_scalar(x_1183)) { - x_1184 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1107)) { + x_1108 = lean::alloc_cnstr(0, 1, 0); } else { - x_1184 = x_1183; + x_1108 = x_1107; } -lean::cnstr_set(x_1184, 0, x_1181); -return x_1184; +lean::cnstr_set(x_1108, 0, x_1105); +return x_1108; } else { -obj* x_1185; obj* x_1187; obj* x_1188; obj* x_1190; obj* x_1192; obj* x_1193; obj* x_1196; obj* x_1197; obj* x_1198; obj* x_1199; obj* x_1200; obj* x_1201; -x_1185 = lean::cnstr_get(x_1177, 0); -if (lean::is_exclusive(x_1177)) { - lean::cnstr_set(x_1177, 0, lean::box(0)); - x_1187 = x_1177; +obj* x_1109; obj* x_1111; obj* x_1112; obj* x_1114; obj* x_1116; obj* x_1117; obj* x_1118; obj* x_1119; +x_1109 = lean::cnstr_get(x_1102, 0); +if (lean::is_exclusive(x_1102)) { + lean::cnstr_set(x_1102, 0, lean::box(0)); + x_1111 = x_1102; } else { - lean::inc(x_1185); - lean::dec(x_1177); - x_1187 = lean::box(0); + lean::inc(x_1109); + lean::dec(x_1102); + x_1111 = lean::box(0); } -x_1188 = lean::cnstr_get(x_1185, 0); -x_1190 = lean::cnstr_get(x_1185, 1); -if (lean::is_exclusive(x_1185)) { - lean::cnstr_set(x_1185, 0, lean::box(0)); - lean::cnstr_set(x_1185, 1, lean::box(0)); - x_1192 = x_1185; +x_1112 = lean::cnstr_get(x_1109, 0); +x_1114 = lean::cnstr_get(x_1109, 1); +if (lean::is_exclusive(x_1109)) { + lean::cnstr_set(x_1109, 0, lean::box(0)); + lean::cnstr_set(x_1109, 1, lean::box(0)); + x_1116 = x_1109; } else { - lean::inc(x_1188); - lean::inc(x_1190); - lean::dec(x_1185); - x_1192 = lean::box(0); + lean::inc(x_1112); + lean::inc(x_1114); + lean::dec(x_1109); + x_1116 = lean::box(0); } -x_1193 = lean::cnstr_get(x_1173, 2); -lean::inc(x_1193); -lean::dec(x_1173); -x_1196 = lean::alloc_cnstr(2, 1, 0); -lean::cnstr_set(x_1196, 0, x_1193); -x_1197 = lean::box(0); -x_1198 = l_Lean_Elaborator_toPexpr___main___closed__34; -x_1199 = l_Lean_KVMap_insertCore___main(x_1197, x_1198, x_1196); -x_1200 = lean_expr_mk_mdata(x_1199, x_1188); -x_1201 = l_Lean_Parser_Syntax_getPos(x_0); +x_1117 = l_List_map___main___at_Lean_Elaborator_mkEqns___spec__1___closed__1; +x_1118 = l_Lean_Elaborator_Expr_mkAnnotation(x_1117, x_1112); +x_1119 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1201) == 0) +if (lean::obj_tag(x_1119) == 0) { -obj* x_1204; obj* x_1205; +obj* x_1122; obj* x_1123; lean::dec(x_2); -if (lean::is_scalar(x_1192)) { - x_1204 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1116)) { + x_1122 = lean::alloc_cnstr(0, 2, 0); } else { - x_1204 = x_1192; + x_1122 = x_1116; } -lean::cnstr_set(x_1204, 0, x_1200); -lean::cnstr_set(x_1204, 1, x_1190); -if (lean::is_scalar(x_1187)) { - x_1205 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1122, 0, x_1118); +lean::cnstr_set(x_1122, 1, x_1114); +if (lean::is_scalar(x_1111)) { + x_1123 = lean::alloc_cnstr(1, 1, 0); } else { - x_1205 = x_1187; + x_1123 = x_1111; } -lean::cnstr_set(x_1205, 0, x_1204); -return x_1205; +lean::cnstr_set(x_1123, 0, x_1122); +return x_1123; } else { -obj* x_1206; obj* x_1209; obj* x_1212; obj* x_1215; obj* x_1216; obj* x_1218; obj* x_1219; obj* x_1220; obj* x_1223; obj* x_1224; obj* x_1225; obj* x_1226; obj* x_1227; -x_1206 = lean::cnstr_get(x_1201, 0); -lean::inc(x_1206); +obj* x_1124; obj* x_1127; obj* x_1130; obj* x_1133; obj* x_1134; obj* x_1136; obj* x_1137; obj* x_1138; obj* x_1139; obj* x_1142; obj* x_1143; obj* x_1144; obj* x_1145; obj* x_1146; +x_1124 = lean::cnstr_get(x_1119, 0); +lean::inc(x_1124); +lean::dec(x_1119); +x_1127 = lean::cnstr_get(x_2, 0); +lean::inc(x_1127); +lean::dec(x_2); +x_1130 = lean::cnstr_get(x_1127, 2); +lean::inc(x_1130); +lean::dec(x_1127); +x_1133 = l_Lean_FileMap_toPosition(x_1130, x_1124); +x_1134 = lean::cnstr_get(x_1133, 1); +lean::inc(x_1134); +x_1136 = lean::box(0); +x_1137 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1138 = l_Lean_KVMap_setNat(x_1136, x_1137, x_1134); +x_1139 = lean::cnstr_get(x_1133, 0); +lean::inc(x_1139); +lean::dec(x_1133); +x_1142 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1143 = l_Lean_KVMap_setNat(x_1138, x_1142, x_1139); +x_1144 = lean_expr_mk_mdata(x_1143, x_1118); +if (lean::is_scalar(x_1116)) { + x_1145 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1145 = x_1116; +} +lean::cnstr_set(x_1145, 0, x_1144); +lean::cnstr_set(x_1145, 1, x_1114); +if (lean::is_scalar(x_1111)) { + x_1146 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1146 = x_1111; +} +lean::cnstr_set(x_1146, 0, x_1145); +return x_1146; +} +} +} +else +{ +obj* x_1149; +lean::dec(x_1090); +lean::inc(x_2); +x_1149 = l_Lean_Elaborator_toPexpr___main(x_1099, x_1, x_2, x_3); +if (lean::obj_tag(x_1149) == 0) +{ +obj* x_1152; obj* x_1154; obj* x_1155; +lean::dec(x_0); +lean::dec(x_2); +x_1152 = lean::cnstr_get(x_1149, 0); +if (lean::is_exclusive(x_1149)) { + x_1154 = x_1149; +} else { + lean::inc(x_1152); + lean::dec(x_1149); + x_1154 = lean::box(0); +} +if (lean::is_scalar(x_1154)) { + x_1155 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1155 = x_1154; +} +lean::cnstr_set(x_1155, 0, x_1152); +return x_1155; +} +else +{ +obj* x_1156; obj* x_1158; obj* x_1159; obj* x_1161; obj* x_1163; obj* x_1164; obj* x_1165; obj* x_1166; +x_1156 = lean::cnstr_get(x_1149, 0); +if (lean::is_exclusive(x_1149)) { + lean::cnstr_set(x_1149, 0, lean::box(0)); + x_1158 = x_1149; +} else { + lean::inc(x_1156); + lean::dec(x_1149); + x_1158 = lean::box(0); +} +x_1159 = lean::cnstr_get(x_1156, 0); +x_1161 = lean::cnstr_get(x_1156, 1); +if (lean::is_exclusive(x_1156)) { + lean::cnstr_set(x_1156, 0, lean::box(0)); + lean::cnstr_set(x_1156, 1, lean::box(0)); + x_1163 = x_1156; +} else { + lean::inc(x_1159); + lean::inc(x_1161); + lean::dec(x_1156); + x_1163 = lean::box(0); +} +x_1164 = l_Lean_Elaborator_toPexpr___main___closed__33; +x_1165 = l_Lean_Elaborator_Expr_mkAnnotation(x_1164, x_1159); +x_1166 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1166) == 0) +{ +obj* x_1169; obj* x_1170; +lean::dec(x_2); +if (lean::is_scalar(x_1163)) { + x_1169 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1169 = x_1163; +} +lean::cnstr_set(x_1169, 0, x_1165); +lean::cnstr_set(x_1169, 1, x_1161); +if (lean::is_scalar(x_1158)) { + x_1170 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1170 = x_1158; +} +lean::cnstr_set(x_1170, 0, x_1169); +return x_1170; +} +else +{ +obj* x_1171; obj* x_1174; obj* x_1177; obj* x_1180; obj* x_1181; obj* x_1183; obj* x_1184; obj* x_1185; obj* x_1186; obj* x_1189; obj* x_1190; obj* x_1191; obj* x_1192; obj* x_1193; +x_1171 = lean::cnstr_get(x_1166, 0); +lean::inc(x_1171); +lean::dec(x_1166); +x_1174 = lean::cnstr_get(x_2, 0); +lean::inc(x_1174); +lean::dec(x_2); +x_1177 = lean::cnstr_get(x_1174, 2); +lean::inc(x_1177); +lean::dec(x_1174); +x_1180 = l_Lean_FileMap_toPosition(x_1177, x_1171); +x_1181 = lean::cnstr_get(x_1180, 1); +lean::inc(x_1181); +x_1183 = lean::box(0); +x_1184 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1185 = l_Lean_KVMap_setNat(x_1183, x_1184, x_1181); +x_1186 = lean::cnstr_get(x_1180, 0); +lean::inc(x_1186); +lean::dec(x_1180); +x_1189 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1190 = l_Lean_KVMap_setNat(x_1185, x_1189, x_1186); +x_1191 = lean_expr_mk_mdata(x_1190, x_1165); +if (lean::is_scalar(x_1163)) { + x_1192 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1192 = x_1163; +} +lean::cnstr_set(x_1192, 0, x_1191); +lean::cnstr_set(x_1192, 1, x_1161); +if (lean::is_scalar(x_1158)) { + x_1193 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1193 = x_1158; +} +lean::cnstr_set(x_1193, 0, x_1192); +return x_1193; +} +} +} +} +} +else +{ +obj* x_1196; obj* x_1197; obj* x_1201; obj* x_1202; +lean::dec(x_8); +lean::dec(x_10); +x_1196 = l_Lean_Parser_Term_projection_HasView; +x_1197 = lean::cnstr_get(x_1196, 0); +lean::inc(x_1197); +lean::dec(x_1196); +lean::inc(x_0); +x_1201 = lean::apply_1(x_1197, x_0); +x_1202 = lean::cnstr_get(x_1201, 2); +lean::inc(x_1202); +if (lean::obj_tag(x_1202) == 0) +{ +obj* x_1204; obj* x_1207; obj* x_1211; +x_1204 = lean::cnstr_get(x_1201, 0); +lean::inc(x_1204); lean::dec(x_1201); -x_1209 = lean::cnstr_get(x_2, 0); -lean::inc(x_1209); +x_1207 = lean::cnstr_get(x_1202, 0); +lean::inc(x_1207); +lean::dec(x_1202); +lean::inc(x_2); +x_1211 = l_Lean_Elaborator_toPexpr___main(x_1204, x_1, x_2, x_3); +if (lean::obj_tag(x_1211) == 0) +{ +obj* x_1215; obj* x_1217; obj* x_1218; +lean::dec(x_1207); +lean::dec(x_0); lean::dec(x_2); -x_1212 = lean::cnstr_get(x_1209, 2); -lean::inc(x_1212); -lean::dec(x_1209); -x_1215 = l_Lean_FileMap_toPosition(x_1212, x_1206); -x_1216 = lean::cnstr_get(x_1215, 1); -lean::inc(x_1216); -x_1218 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1219 = l_Lean_KVMap_setNat(x_1197, x_1218, x_1216); -x_1220 = lean::cnstr_get(x_1215, 0); -lean::inc(x_1220); -lean::dec(x_1215); -x_1223 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1224 = l_Lean_KVMap_setNat(x_1219, x_1223, x_1220); -x_1225 = lean_expr_mk_mdata(x_1224, x_1200); -if (lean::is_scalar(x_1192)) { - x_1226 = lean::alloc_cnstr(0, 2, 0); +x_1215 = lean::cnstr_get(x_1211, 0); +if (lean::is_exclusive(x_1211)) { + x_1217 = x_1211; } else { - x_1226 = x_1192; + lean::inc(x_1215); + lean::dec(x_1211); + x_1217 = lean::box(0); } -lean::cnstr_set(x_1226, 0, x_1225); -lean::cnstr_set(x_1226, 1, x_1190); -if (lean::is_scalar(x_1187)) { - x_1227 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_1217)) { + x_1218 = lean::alloc_cnstr(0, 1, 0); } else { - x_1227 = x_1187; -} -lean::cnstr_set(x_1227, 0, x_1226); -return x_1227; -} + x_1218 = x_1217; } +lean::cnstr_set(x_1218, 0, x_1215); +return x_1218; } else { -obj* x_1228; obj* x_1231; obj* x_1235; -x_1228 = lean::cnstr_get(x_1167, 0); -lean::inc(x_1228); -lean::dec(x_1167); -x_1231 = lean::cnstr_get(x_1168, 0); -lean::inc(x_1231); -lean::dec(x_1168); -lean::inc(x_2); -x_1235 = l_Lean_Elaborator_toPexpr___main(x_1228, x_1, x_2, x_3); +obj* x_1219; obj* x_1221; obj* x_1222; obj* x_1224; obj* x_1226; obj* x_1227; obj* x_1230; obj* x_1231; obj* x_1232; obj* x_1233; obj* x_1234; obj* x_1235; +x_1219 = lean::cnstr_get(x_1211, 0); +if (lean::is_exclusive(x_1211)) { + lean::cnstr_set(x_1211, 0, lean::box(0)); + x_1221 = x_1211; +} else { + lean::inc(x_1219); + lean::dec(x_1211); + x_1221 = lean::box(0); +} +x_1222 = lean::cnstr_get(x_1219, 0); +x_1224 = lean::cnstr_get(x_1219, 1); +if (lean::is_exclusive(x_1219)) { + lean::cnstr_set(x_1219, 0, lean::box(0)); + lean::cnstr_set(x_1219, 1, lean::box(0)); + x_1226 = x_1219; +} else { + lean::inc(x_1222); + lean::inc(x_1224); + lean::dec(x_1219); + x_1226 = lean::box(0); +} +x_1227 = lean::cnstr_get(x_1207, 2); +lean::inc(x_1227); +lean::dec(x_1207); +x_1230 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_1230, 0, x_1227); +x_1231 = lean::box(0); +x_1232 = l_Lean_Elaborator_toPexpr___main___closed__34; +x_1233 = l_Lean_KVMap_insertCore___main(x_1231, x_1232, x_1230); +x_1234 = lean_expr_mk_mdata(x_1233, x_1222); +x_1235 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); if (lean::obj_tag(x_1235) == 0) { -obj* x_1239; obj* x_1241; obj* x_1242; -lean::dec(x_1231); -lean::dec(x_0); +obj* x_1238; obj* x_1239; lean::dec(x_2); -x_1239 = lean::cnstr_get(x_1235, 0); -if (lean::is_exclusive(x_1235)) { - x_1241 = x_1235; +if (lean::is_scalar(x_1226)) { + x_1238 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1239); - lean::dec(x_1235); - x_1241 = lean::box(0); + x_1238 = x_1226; } -if (lean::is_scalar(x_1241)) { - x_1242 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1238, 0, x_1234); +lean::cnstr_set(x_1238, 1, x_1224); +if (lean::is_scalar(x_1221)) { + x_1239 = lean::alloc_cnstr(1, 1, 0); } else { - x_1242 = x_1241; + x_1239 = x_1221; } -lean::cnstr_set(x_1242, 0, x_1239); -return x_1242; +lean::cnstr_set(x_1239, 0, x_1238); +return x_1239; } else { -obj* x_1243; obj* x_1245; obj* x_1246; obj* x_1248; obj* x_1250; obj* x_1251; obj* x_1252; obj* x_1253; obj* x_1254; obj* x_1255; obj* x_1256; obj* x_1257; -x_1243 = lean::cnstr_get(x_1235, 0); -if (lean::is_exclusive(x_1235)) { - lean::cnstr_set(x_1235, 0, lean::box(0)); - x_1245 = x_1235; -} else { - lean::inc(x_1243); - lean::dec(x_1235); - x_1245 = lean::box(0); -} -x_1246 = lean::cnstr_get(x_1243, 0); -x_1248 = lean::cnstr_get(x_1243, 1); -if (lean::is_exclusive(x_1243)) { - lean::cnstr_set(x_1243, 0, lean::box(0)); - lean::cnstr_set(x_1243, 1, lean::box(0)); - x_1250 = x_1243; -} else { - lean::inc(x_1246); - lean::inc(x_1248); - lean::dec(x_1243); - x_1250 = lean::box(0); -} -x_1251 = l_Lean_Parser_number_View_toNat___main(x_1231); -x_1252 = lean::alloc_cnstr(3, 1, 0); -lean::cnstr_set(x_1252, 0, x_1251); -x_1253 = lean::box(0); -x_1254 = l_Lean_Elaborator_toPexpr___main___closed__34; -x_1255 = l_Lean_KVMap_insertCore___main(x_1253, x_1254, x_1252); -x_1256 = lean_expr_mk_mdata(x_1255, x_1246); -x_1257 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1257) == 0) -{ -obj* x_1260; obj* x_1261; +obj* x_1240; obj* x_1243; obj* x_1246; obj* x_1249; obj* x_1250; obj* x_1252; obj* x_1253; obj* x_1254; obj* x_1257; obj* x_1258; obj* x_1259; obj* x_1260; obj* x_1261; +x_1240 = lean::cnstr_get(x_1235, 0); +lean::inc(x_1240); +lean::dec(x_1235); +x_1243 = lean::cnstr_get(x_2, 0); +lean::inc(x_1243); lean::dec(x_2); -if (lean::is_scalar(x_1250)) { +x_1246 = lean::cnstr_get(x_1243, 2); +lean::inc(x_1246); +lean::dec(x_1243); +x_1249 = l_Lean_FileMap_toPosition(x_1246, x_1240); +x_1250 = lean::cnstr_get(x_1249, 1); +lean::inc(x_1250); +x_1252 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1253 = l_Lean_KVMap_setNat(x_1231, x_1252, x_1250); +x_1254 = lean::cnstr_get(x_1249, 0); +lean::inc(x_1254); +lean::dec(x_1249); +x_1257 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1258 = l_Lean_KVMap_setNat(x_1253, x_1257, x_1254); +x_1259 = lean_expr_mk_mdata(x_1258, x_1234); +if (lean::is_scalar(x_1226)) { x_1260 = lean::alloc_cnstr(0, 2, 0); } else { - x_1260 = x_1250; + x_1260 = x_1226; } -lean::cnstr_set(x_1260, 0, x_1256); -lean::cnstr_set(x_1260, 1, x_1248); -if (lean::is_scalar(x_1245)) { +lean::cnstr_set(x_1260, 0, x_1259); +lean::cnstr_set(x_1260, 1, x_1224); +if (lean::is_scalar(x_1221)) { x_1261 = lean::alloc_cnstr(1, 1, 0); } else { - x_1261 = x_1245; + x_1261 = x_1221; } lean::cnstr_set(x_1261, 0, x_1260); return x_1261; } +} +} else { -obj* x_1262; obj* x_1265; obj* x_1268; obj* x_1271; obj* x_1272; obj* x_1274; obj* x_1275; obj* x_1276; obj* x_1279; obj* x_1280; obj* x_1281; obj* x_1282; obj* x_1283; -x_1262 = lean::cnstr_get(x_1257, 0); +obj* x_1262; obj* x_1265; obj* x_1269; +x_1262 = lean::cnstr_get(x_1201, 0); lean::inc(x_1262); -lean::dec(x_1257); -x_1265 = lean::cnstr_get(x_2, 0); +lean::dec(x_1201); +x_1265 = lean::cnstr_get(x_1202, 0); lean::inc(x_1265); +lean::dec(x_1202); +lean::inc(x_2); +x_1269 = l_Lean_Elaborator_toPexpr___main(x_1262, x_1, x_2, x_3); +if (lean::obj_tag(x_1269) == 0) +{ +obj* x_1273; obj* x_1275; obj* x_1276; +lean::dec(x_0); lean::dec(x_2); -x_1268 = lean::cnstr_get(x_1265, 2); -lean::inc(x_1268); lean::dec(x_1265); -x_1271 = l_Lean_FileMap_toPosition(x_1268, x_1262); -x_1272 = lean::cnstr_get(x_1271, 1); -lean::inc(x_1272); -x_1274 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1275 = l_Lean_KVMap_setNat(x_1253, x_1274, x_1272); -x_1276 = lean::cnstr_get(x_1271, 0); -lean::inc(x_1276); -lean::dec(x_1271); -x_1279 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1280 = l_Lean_KVMap_setNat(x_1275, x_1279, x_1276); -x_1281 = lean_expr_mk_mdata(x_1280, x_1256); -if (lean::is_scalar(x_1250)) { - x_1282 = lean::alloc_cnstr(0, 2, 0); +x_1273 = lean::cnstr_get(x_1269, 0); +if (lean::is_exclusive(x_1269)) { + x_1275 = x_1269; } else { - x_1282 = x_1250; + lean::inc(x_1273); + lean::dec(x_1269); + x_1275 = lean::box(0); } -lean::cnstr_set(x_1282, 0, x_1281); -lean::cnstr_set(x_1282, 1, x_1248); -if (lean::is_scalar(x_1245)) { - x_1283 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_1275)) { + x_1276 = lean::alloc_cnstr(0, 1, 0); } else { - x_1283 = x_1245; -} -lean::cnstr_set(x_1283, 0, x_1282); -return x_1283; -} -} -} + x_1276 = x_1275; } +lean::cnstr_set(x_1276, 0, x_1273); +return x_1276; } else { -obj* x_1285; obj* x_1286; obj* x_1290; obj* x_1291; -lean::dec(x_10); -x_1285 = l_Lean_Parser_Term_let_HasView; -x_1286 = lean::cnstr_get(x_1285, 0); -lean::inc(x_1286); -lean::dec(x_1285); -lean::inc(x_0); -x_1290 = lean::apply_1(x_1286, x_0); -x_1291 = lean::cnstr_get(x_1290, 1); -lean::inc(x_1291); +obj* x_1277; obj* x_1279; obj* x_1280; obj* x_1282; obj* x_1284; obj* x_1285; obj* x_1286; obj* x_1287; obj* x_1288; obj* x_1289; obj* x_1290; obj* x_1291; +x_1277 = lean::cnstr_get(x_1269, 0); +if (lean::is_exclusive(x_1269)) { + lean::cnstr_set(x_1269, 0, lean::box(0)); + x_1279 = x_1269; +} else { + lean::inc(x_1277); + lean::dec(x_1269); + x_1279 = lean::box(0); +} +x_1280 = lean::cnstr_get(x_1277, 0); +x_1282 = lean::cnstr_get(x_1277, 1); +if (lean::is_exclusive(x_1277)) { + lean::cnstr_set(x_1277, 0, lean::box(0)); + lean::cnstr_set(x_1277, 1, lean::box(0)); + x_1284 = x_1277; +} else { + lean::inc(x_1280); + lean::inc(x_1282); + lean::dec(x_1277); + x_1284 = lean::box(0); +} +x_1285 = l_Lean_Parser_number_View_toNat___main(x_1265); +x_1286 = lean::alloc_cnstr(3, 1, 0); +lean::cnstr_set(x_1286, 0, x_1285); +x_1287 = lean::box(0); +x_1288 = l_Lean_Elaborator_toPexpr___main___closed__34; +x_1289 = l_Lean_KVMap_insertCore___main(x_1287, x_1288, x_1286); +x_1290 = lean_expr_mk_mdata(x_1289, x_1280); +x_1291 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); if (lean::obj_tag(x_1291) == 0) { -obj* x_1293; obj* x_1296; -x_1293 = lean::cnstr_get(x_1291, 0); -lean::inc(x_1293); -lean::dec(x_1291); -x_1296 = lean::cnstr_get(x_1293, 1); +obj* x_1294; obj* x_1295; +lean::dec(x_2); +if (lean::is_scalar(x_1284)) { + x_1294 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1294 = x_1284; +} +lean::cnstr_set(x_1294, 0, x_1290); +lean::cnstr_set(x_1294, 1, x_1282); +if (lean::is_scalar(x_1279)) { + x_1295 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1295 = x_1279; +} +lean::cnstr_set(x_1295, 0, x_1294); +return x_1295; +} +else +{ +obj* x_1296; obj* x_1299; obj* x_1302; obj* x_1305; obj* x_1306; obj* x_1308; obj* x_1309; obj* x_1310; obj* x_1313; obj* x_1314; obj* x_1315; obj* x_1316; obj* x_1317; +x_1296 = lean::cnstr_get(x_1291, 0); lean::inc(x_1296); -if (lean::obj_tag(x_1296) == 0) -{ -obj* x_1298; -x_1298 = lean::cnstr_get(x_1293, 2); -lean::inc(x_1298); -if (lean::obj_tag(x_1298) == 0) -{ -obj* x_1303; obj* x_1304; obj* x_1306; -lean::dec(x_1290); -lean::dec(x_1293); -lean::inc(x_0); -x_1303 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1303, 0, x_0); -x_1304 = l_Lean_Elaborator_toPexpr___main___closed__35; -lean::inc(x_2); -x_1306 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1303, x_1304, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_1303); -if (lean::obj_tag(x_1306) == 0) -{ -obj* x_1312; obj* x_1314; obj* x_1315; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_1312 = lean::cnstr_get(x_1306, 0); -if (lean::is_exclusive(x_1306)) { - x_1314 = x_1306; -} else { - lean::inc(x_1312); - lean::dec(x_1306); - x_1314 = lean::box(0); -} -if (lean::is_scalar(x_1314)) { - x_1315 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1315 = x_1314; -} -lean::cnstr_set(x_1315, 0, x_1312); -return x_1315; -} -else -{ -obj* x_1316; -x_1316 = lean::cnstr_get(x_1306, 0); -lean::inc(x_1316); -lean::dec(x_1306); -x_15 = x_1316; -goto lbl_16; -} -} -else -{ -obj* x_1319; obj* x_1322; obj* x_1325; obj* x_1329; -x_1319 = lean::cnstr_get(x_1293, 0); -lean::inc(x_1319); -lean::dec(x_1293); -x_1322 = lean::cnstr_get(x_1298, 0); -lean::inc(x_1322); -lean::dec(x_1298); -x_1325 = lean::cnstr_get(x_1322, 1); -lean::inc(x_1325); -lean::dec(x_1322); -lean::inc(x_2); -x_1329 = l_Lean_Elaborator_toPexpr___main(x_1325, x_1, x_2, x_3); -if (lean::obj_tag(x_1329) == 0) -{ -obj* x_1335; obj* x_1337; obj* x_1338; -lean::dec(x_1290); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1319); -x_1335 = lean::cnstr_get(x_1329, 0); -if (lean::is_exclusive(x_1329)) { - x_1337 = x_1329; -} else { - lean::inc(x_1335); - lean::dec(x_1329); - x_1337 = lean::box(0); -} -if (lean::is_scalar(x_1337)) { - x_1338 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1338 = x_1337; -} -lean::cnstr_set(x_1338, 0, x_1335); -return x_1338; -} -else -{ -obj* x_1339; obj* x_1342; obj* x_1344; obj* x_1347; obj* x_1350; -x_1339 = lean::cnstr_get(x_1329, 0); -lean::inc(x_1339); -lean::dec(x_1329); -x_1342 = lean::cnstr_get(x_1339, 0); -lean::inc(x_1342); -x_1344 = lean::cnstr_get(x_1339, 1); -lean::inc(x_1344); -lean::dec(x_1339); -x_1347 = lean::cnstr_get(x_1290, 3); -lean::inc(x_1347); -lean::inc(x_2); -x_1350 = l_Lean_Elaborator_toPexpr___main(x_1347, x_1, x_2, x_1344); -if (lean::obj_tag(x_1350) == 0) -{ -obj* x_1357; obj* x_1359; obj* x_1360; -lean::dec(x_1290); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1319); -lean::dec(x_1342); -x_1357 = lean::cnstr_get(x_1350, 0); -if (lean::is_exclusive(x_1350)) { - x_1359 = x_1350; -} else { - lean::inc(x_1357); - lean::dec(x_1350); - x_1359 = lean::box(0); -} -if (lean::is_scalar(x_1359)) { - x_1360 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1360 = x_1359; -} -lean::cnstr_set(x_1360, 0, x_1357); -return x_1360; -} -else -{ -obj* x_1361; obj* x_1364; obj* x_1366; obj* x_1369; obj* x_1373; -x_1361 = lean::cnstr_get(x_1350, 0); -lean::inc(x_1361); -lean::dec(x_1350); -x_1364 = lean::cnstr_get(x_1361, 0); -lean::inc(x_1364); -x_1366 = lean::cnstr_get(x_1361, 1); -lean::inc(x_1366); -lean::dec(x_1361); -x_1369 = lean::cnstr_get(x_1290, 5); -lean::inc(x_1369); -lean::dec(x_1290); -lean::inc(x_2); -x_1373 = l_Lean_Elaborator_toPexpr___main(x_1369, x_1, x_2, x_1366); -if (lean::obj_tag(x_1373) == 0) -{ -obj* x_1380; obj* x_1382; obj* x_1383; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_1319); -lean::dec(x_1364); -lean::dec(x_1342); -x_1380 = lean::cnstr_get(x_1373, 0); -if (lean::is_exclusive(x_1373)) { - x_1382 = x_1373; -} else { - lean::inc(x_1380); - lean::dec(x_1373); - x_1382 = lean::box(0); -} -if (lean::is_scalar(x_1382)) { - x_1383 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1383 = x_1382; -} -lean::cnstr_set(x_1383, 0, x_1380); -return x_1383; -} -else -{ -obj* x_1384; obj* x_1387; obj* x_1389; obj* x_1391; obj* x_1392; obj* x_1393; obj* x_1394; -x_1384 = lean::cnstr_get(x_1373, 0); -lean::inc(x_1384); -lean::dec(x_1373); -x_1387 = lean::cnstr_get(x_1384, 0); -x_1389 = lean::cnstr_get(x_1384, 1); -if (lean::is_exclusive(x_1384)) { - x_1391 = x_1384; -} else { - lean::inc(x_1387); - lean::inc(x_1389); - lean::dec(x_1384); - x_1391 = lean::box(0); -} -x_1392 = l_Lean_Elaborator_mangleIdent(x_1319); -x_1393 = lean_expr_mk_let(x_1392, x_1342, x_1364, x_1387); -if (lean::is_scalar(x_1391)) { - x_1394 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1394 = x_1391; -} -lean::cnstr_set(x_1394, 0, x_1393); -lean::cnstr_set(x_1394, 1, x_1389); -x_15 = x_1394; -goto lbl_16; -} -} -} -} -} -else -{ -obj* x_1399; obj* x_1400; obj* x_1402; -lean::dec(x_1290); -lean::dec(x_1293); -lean::dec(x_1296); -lean::inc(x_0); -x_1399 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1399, 0, x_0); -x_1400 = l_Lean_Elaborator_toPexpr___main___closed__35; -lean::inc(x_2); -x_1402 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1399, x_1400, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_1399); -if (lean::obj_tag(x_1402) == 0) -{ -obj* x_1408; obj* x_1410; obj* x_1411; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -x_1408 = lean::cnstr_get(x_1402, 0); -if (lean::is_exclusive(x_1402)) { - x_1410 = x_1402; -} else { - lean::inc(x_1408); - lean::dec(x_1402); - x_1410 = lean::box(0); -} -if (lean::is_scalar(x_1410)) { - x_1411 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1411 = x_1410; -} -lean::cnstr_set(x_1411, 0, x_1408); -return x_1411; -} -else -{ -obj* x_1412; -x_1412 = lean::cnstr_get(x_1402, 0); -lean::inc(x_1412); -lean::dec(x_1402); -x_15 = x_1412; -goto lbl_16; -} -} -} -else -{ -obj* x_1418; obj* x_1419; obj* x_1421; lean::dec(x_1291); -lean::dec(x_1290); -lean::inc(x_0); -x_1418 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1418, 0, x_0); -x_1419 = l_Lean_Elaborator_toPexpr___main___closed__35; -lean::inc(x_2); -x_1421 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1418, x_1419, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_1418); -if (lean::obj_tag(x_1421) == 0) -{ -obj* x_1427; obj* x_1429; obj* x_1430; -lean::dec(x_8); -lean::dec(x_0); +x_1299 = lean::cnstr_get(x_2, 0); +lean::inc(x_1299); lean::dec(x_2); -x_1427 = lean::cnstr_get(x_1421, 0); -if (lean::is_exclusive(x_1421)) { - x_1429 = x_1421; +x_1302 = lean::cnstr_get(x_1299, 2); +lean::inc(x_1302); +lean::dec(x_1299); +x_1305 = l_Lean_FileMap_toPosition(x_1302, x_1296); +x_1306 = lean::cnstr_get(x_1305, 1); +lean::inc(x_1306); +x_1308 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1309 = l_Lean_KVMap_setNat(x_1287, x_1308, x_1306); +x_1310 = lean::cnstr_get(x_1305, 0); +lean::inc(x_1310); +lean::dec(x_1305); +x_1313 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1314 = l_Lean_KVMap_setNat(x_1309, x_1313, x_1310); +x_1315 = lean_expr_mk_mdata(x_1314, x_1290); +if (lean::is_scalar(x_1284)) { + x_1316 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1427); - lean::dec(x_1421); - x_1429 = lean::box(0); + x_1316 = x_1284; } -if (lean::is_scalar(x_1429)) { - x_1430 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1316, 0, x_1315); +lean::cnstr_set(x_1316, 1, x_1282); +if (lean::is_scalar(x_1279)) { + x_1317 = lean::alloc_cnstr(1, 1, 0); } else { - x_1430 = x_1429; + x_1317 = x_1279; +} +lean::cnstr_set(x_1317, 0, x_1316); +return x_1317; +} +} +} } -lean::cnstr_set(x_1430, 0, x_1427); -return x_1430; } else { -obj* x_1431; -x_1431 = lean::cnstr_get(x_1421, 0); -lean::inc(x_1431); -lean::dec(x_1421); -x_15 = x_1431; +obj* x_1319; obj* x_1320; obj* x_1324; obj* x_1325; +lean::dec(x_10); +x_1319 = l_Lean_Parser_Term_let_HasView; +x_1320 = lean::cnstr_get(x_1319, 0); +lean::inc(x_1320); +lean::dec(x_1319); +lean::inc(x_0); +x_1324 = lean::apply_1(x_1320, x_0); +x_1325 = lean::cnstr_get(x_1324, 1); +lean::inc(x_1325); +if (lean::obj_tag(x_1325) == 0) +{ +obj* x_1327; obj* x_1330; +x_1327 = lean::cnstr_get(x_1325, 0); +lean::inc(x_1327); +lean::dec(x_1325); +x_1330 = lean::cnstr_get(x_1327, 1); +lean::inc(x_1330); +if (lean::obj_tag(x_1330) == 0) +{ +obj* x_1332; +x_1332 = lean::cnstr_get(x_1327, 2); +lean::inc(x_1332); +if (lean::obj_tag(x_1332) == 0) +{ +obj* x_1337; obj* x_1338; obj* x_1340; +lean::dec(x_1327); +lean::dec(x_1324); +lean::inc(x_0); +x_1337 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1337, 0, x_0); +x_1338 = l_Lean_Elaborator_toPexpr___main___closed__35; +lean::inc(x_2); +x_1340 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1337, x_1338, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_1); +lean::dec(x_1337); +if (lean::obj_tag(x_1340) == 0) +{ +obj* x_1347; obj* x_1349; obj* x_1350; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_1347 = lean::cnstr_get(x_1340, 0); +if (lean::is_exclusive(x_1340)) { + x_1349 = x_1340; +} else { + lean::inc(x_1347); + lean::dec(x_1340); + x_1349 = lean::box(0); +} +if (lean::is_scalar(x_1349)) { + x_1350 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1350 = x_1349; +} +lean::cnstr_set(x_1350, 0, x_1347); +return x_1350; +} +else +{ +obj* x_1351; +x_1351 = lean::cnstr_get(x_1340, 0); +lean::inc(x_1351); +lean::dec(x_1340); +x_15 = x_1351; +goto lbl_16; +} +} +else +{ +obj* x_1354; obj* x_1357; obj* x_1360; obj* x_1365; +x_1354 = lean::cnstr_get(x_1327, 0); +lean::inc(x_1354); +lean::dec(x_1327); +x_1357 = lean::cnstr_get(x_1332, 0); +lean::inc(x_1357); +lean::dec(x_1332); +x_1360 = lean::cnstr_get(x_1357, 1); +lean::inc(x_1360); +lean::dec(x_1357); +lean::inc(x_2); +lean::inc(x_1); +x_1365 = l_Lean_Elaborator_toPexpr___main(x_1360, x_1, x_2, x_3); +if (lean::obj_tag(x_1365) == 0) +{ +obj* x_1372; obj* x_1374; obj* x_1375; +lean::dec(x_8); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1354); +lean::dec(x_1324); +x_1372 = lean::cnstr_get(x_1365, 0); +if (lean::is_exclusive(x_1365)) { + x_1374 = x_1365; +} else { + lean::inc(x_1372); + lean::dec(x_1365); + x_1374 = lean::box(0); +} +if (lean::is_scalar(x_1374)) { + x_1375 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1375 = x_1374; +} +lean::cnstr_set(x_1375, 0, x_1372); +return x_1375; +} +else +{ +obj* x_1376; obj* x_1379; obj* x_1381; obj* x_1384; obj* x_1388; +x_1376 = lean::cnstr_get(x_1365, 0); +lean::inc(x_1376); +lean::dec(x_1365); +x_1379 = lean::cnstr_get(x_1376, 0); +lean::inc(x_1379); +x_1381 = lean::cnstr_get(x_1376, 1); +lean::inc(x_1381); +lean::dec(x_1376); +x_1384 = lean::cnstr_get(x_1324, 3); +lean::inc(x_1384); +lean::inc(x_2); +lean::inc(x_1); +x_1388 = l_Lean_Elaborator_toPexpr___main(x_1384, x_1, x_2, x_1381); +if (lean::obj_tag(x_1388) == 0) +{ +obj* x_1396; obj* x_1398; obj* x_1399; +lean::dec(x_8); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1354); +lean::dec(x_1379); +lean::dec(x_1324); +x_1396 = lean::cnstr_get(x_1388, 0); +if (lean::is_exclusive(x_1388)) { + x_1398 = x_1388; +} else { + lean::inc(x_1396); + lean::dec(x_1388); + x_1398 = lean::box(0); +} +if (lean::is_scalar(x_1398)) { + x_1399 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1399 = x_1398; +} +lean::cnstr_set(x_1399, 0, x_1396); +return x_1399; +} +else +{ +obj* x_1400; obj* x_1403; obj* x_1405; obj* x_1408; obj* x_1412; +x_1400 = lean::cnstr_get(x_1388, 0); +lean::inc(x_1400); +lean::dec(x_1388); +x_1403 = lean::cnstr_get(x_1400, 0); +lean::inc(x_1403); +x_1405 = lean::cnstr_get(x_1400, 1); +lean::inc(x_1405); +lean::dec(x_1400); +x_1408 = lean::cnstr_get(x_1324, 5); +lean::inc(x_1408); +lean::dec(x_1324); +lean::inc(x_2); +x_1412 = l_Lean_Elaborator_toPexpr___main(x_1408, x_1, x_2, x_1405); +if (lean::obj_tag(x_1412) == 0) +{ +obj* x_1419; obj* x_1421; obj* x_1422; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1354); +lean::dec(x_1379); +lean::dec(x_1403); +x_1419 = lean::cnstr_get(x_1412, 0); +if (lean::is_exclusive(x_1412)) { + x_1421 = x_1412; +} else { + lean::inc(x_1419); + lean::dec(x_1412); + x_1421 = lean::box(0); +} +if (lean::is_scalar(x_1421)) { + x_1422 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1422 = x_1421; +} +lean::cnstr_set(x_1422, 0, x_1419); +return x_1422; +} +else +{ +obj* x_1423; obj* x_1426; obj* x_1428; obj* x_1430; obj* x_1431; obj* x_1432; obj* x_1433; +x_1423 = lean::cnstr_get(x_1412, 0); +lean::inc(x_1423); +lean::dec(x_1412); +x_1426 = lean::cnstr_get(x_1423, 0); +x_1428 = lean::cnstr_get(x_1423, 1); +if (lean::is_exclusive(x_1423)) { + x_1430 = x_1423; +} else { + lean::inc(x_1426); + lean::inc(x_1428); + lean::dec(x_1423); + x_1430 = lean::box(0); +} +x_1431 = l_Lean_Elaborator_mangleIdent(x_1354); +x_1432 = lean_expr_mk_let(x_1431, x_1379, x_1403, x_1426); +if (lean::is_scalar(x_1430)) { + x_1433 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1433 = x_1430; +} +lean::cnstr_set(x_1433, 0, x_1432); +lean::cnstr_set(x_1433, 1, x_1428); +x_15 = x_1433; +goto lbl_16; +} +} +} +} +} +else +{ +obj* x_1438; obj* x_1439; obj* x_1441; +lean::dec(x_1330); +lean::dec(x_1327); +lean::dec(x_1324); +lean::inc(x_0); +x_1438 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1438, 0, x_0); +x_1439 = l_Lean_Elaborator_toPexpr___main___closed__35; +lean::inc(x_2); +x_1441 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1438, x_1439, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_1); +lean::dec(x_1438); +if (lean::obj_tag(x_1441) == 0) +{ +obj* x_1448; obj* x_1450; obj* x_1451; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_1448 = lean::cnstr_get(x_1441, 0); +if (lean::is_exclusive(x_1441)) { + x_1450 = x_1441; +} else { + lean::inc(x_1448); + lean::dec(x_1441); + x_1450 = lean::box(0); +} +if (lean::is_scalar(x_1450)) { + x_1451 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1451 = x_1450; +} +lean::cnstr_set(x_1451, 0, x_1448); +return x_1451; +} +else +{ +obj* x_1452; +x_1452 = lean::cnstr_get(x_1441, 0); +lean::inc(x_1452); +lean::dec(x_1441); +x_15 = x_1452; +goto lbl_16; +} +} +} +else +{ +obj* x_1458; obj* x_1459; obj* x_1461; +lean::dec(x_1324); +lean::dec(x_1325); +lean::inc(x_0); +x_1458 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1458, 0, x_0); +x_1459 = l_Lean_Elaborator_toPexpr___main___closed__35; +lean::inc(x_2); +x_1461 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_1458, x_1459, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_1); +lean::dec(x_1458); +if (lean::obj_tag(x_1461) == 0) +{ +obj* x_1468; obj* x_1470; obj* x_1471; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +x_1468 = lean::cnstr_get(x_1461, 0); +if (lean::is_exclusive(x_1461)) { + x_1470 = x_1461; +} else { + lean::inc(x_1468); + lean::dec(x_1461); + x_1470 = lean::box(0); +} +if (lean::is_scalar(x_1470)) { + x_1471 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1471 = x_1470; +} +lean::cnstr_set(x_1471, 0, x_1468); +return x_1471; +} +else +{ +obj* x_1472; +x_1472 = lean::cnstr_get(x_1461, 0); +lean::inc(x_1472); +lean::dec(x_1461); +x_15 = x_1472; goto lbl_16; } } @@ -9891,1537 +8477,1555 @@ goto lbl_16; } else { -obj* x_1436; obj* x_1437; obj* x_1441; obj* x_1442; obj* x_1445; +obj* x_1477; obj* x_1478; obj* x_1482; obj* x_1483; obj* x_1487; lean::dec(x_8); lean::dec(x_10); -x_1436 = l_Lean_Parser_Term_show_HasView; -x_1437 = lean::cnstr_get(x_1436, 0); -lean::inc(x_1437); -lean::dec(x_1436); +x_1477 = l_Lean_Parser_Term_show_HasView; +x_1478 = lean::cnstr_get(x_1477, 0); +lean::inc(x_1478); +lean::dec(x_1477); lean::inc(x_0); -x_1441 = lean::apply_1(x_1437, x_0); -x_1442 = lean::cnstr_get(x_1441, 1); -lean::inc(x_1442); +x_1482 = lean::apply_1(x_1478, x_0); +x_1483 = lean::cnstr_get(x_1482, 1); +lean::inc(x_1483); lean::inc(x_2); -x_1445 = l_Lean_Elaborator_toPexpr___main(x_1442, x_1, x_2, x_3); -if (lean::obj_tag(x_1445) == 0) +lean::inc(x_1); +x_1487 = l_Lean_Elaborator_toPexpr___main(x_1483, x_1, x_2, x_3); +if (lean::obj_tag(x_1487) == 0) { -obj* x_1449; obj* x_1451; obj* x_1452; +obj* x_1492; obj* x_1494; obj* x_1495; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1441); -x_1449 = lean::cnstr_get(x_1445, 0); -if (lean::is_exclusive(x_1445)) { - x_1451 = x_1445; +lean::dec(x_1482); +x_1492 = lean::cnstr_get(x_1487, 0); +if (lean::is_exclusive(x_1487)) { + x_1494 = x_1487; } else { - lean::inc(x_1449); - lean::dec(x_1445); - x_1451 = lean::box(0); + lean::inc(x_1492); + lean::dec(x_1487); + x_1494 = lean::box(0); } -if (lean::is_scalar(x_1451)) { - x_1452 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1494)) { + x_1495 = lean::alloc_cnstr(0, 1, 0); } else { - x_1452 = x_1451; + x_1495 = x_1494; } -lean::cnstr_set(x_1452, 0, x_1449); -return x_1452; -} -else -{ -obj* x_1453; obj* x_1456; obj* x_1458; obj* x_1461; obj* x_1464; obj* x_1468; -x_1453 = lean::cnstr_get(x_1445, 0); -lean::inc(x_1453); -lean::dec(x_1445); -x_1456 = lean::cnstr_get(x_1453, 0); -lean::inc(x_1456); -x_1458 = lean::cnstr_get(x_1453, 1); -lean::inc(x_1458); -lean::dec(x_1453); -x_1461 = lean::cnstr_get(x_1441, 3); -lean::inc(x_1461); -lean::dec(x_1441); -x_1464 = lean::cnstr_get(x_1461, 1); -lean::inc(x_1464); -lean::dec(x_1461); -lean::inc(x_2); -x_1468 = l_Lean_Elaborator_toPexpr___main(x_1464, x_1, x_2, x_1458); -if (lean::obj_tag(x_1468) == 0) -{ -obj* x_1472; obj* x_1474; obj* x_1475; -lean::dec(x_1456); -lean::dec(x_0); -lean::dec(x_2); -x_1472 = lean::cnstr_get(x_1468, 0); -if (lean::is_exclusive(x_1468)) { - x_1474 = x_1468; -} else { - lean::inc(x_1472); - lean::dec(x_1468); - x_1474 = lean::box(0); -} -if (lean::is_scalar(x_1474)) { - x_1475 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1475 = x_1474; -} -lean::cnstr_set(x_1475, 0, x_1472); -return x_1475; -} -else -{ -obj* x_1476; obj* x_1478; obj* x_1479; obj* x_1481; obj* x_1483; obj* x_1484; uint8 x_1485; obj* x_1486; obj* x_1487; obj* x_1488; obj* x_1489; obj* x_1490; obj* x_1491; -x_1476 = lean::cnstr_get(x_1468, 0); -if (lean::is_exclusive(x_1468)) { - lean::cnstr_set(x_1468, 0, lean::box(0)); - x_1478 = x_1468; -} else { - lean::inc(x_1476); - lean::dec(x_1468); - x_1478 = lean::box(0); -} -x_1479 = lean::cnstr_get(x_1476, 0); -x_1481 = lean::cnstr_get(x_1476, 1); -if (lean::is_exclusive(x_1476)) { - lean::cnstr_set(x_1476, 0, lean::box(0)); - lean::cnstr_set(x_1476, 1, lean::box(0)); - x_1483 = x_1476; -} else { - lean::inc(x_1479); - lean::inc(x_1481); - lean::dec(x_1476); - x_1483 = lean::box(0); -} -x_1484 = l_Lean_Elaborator_toPexpr___main___closed__36; -x_1485 = 0; -x_1486 = l_Lean_Elaborator_toPexpr___main___closed__37; -x_1487 = lean_expr_mk_lambda(x_1484, x_1485, x_1456, x_1486); -x_1488 = lean_expr_mk_app(x_1487, x_1479); -x_1489 = l_Lean_Elaborator_toPexpr___main___closed__38; -x_1490 = l_Lean_Elaborator_Expr_mkAnnotation(x_1489, x_1488); -x_1491 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1491) == 0) -{ -obj* x_1494; obj* x_1495; -lean::dec(x_2); -if (lean::is_scalar(x_1483)) { - x_1494 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1494 = x_1483; -} -lean::cnstr_set(x_1494, 0, x_1490); -lean::cnstr_set(x_1494, 1, x_1481); -if (lean::is_scalar(x_1478)) { - x_1495 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1495 = x_1478; -} -lean::cnstr_set(x_1495, 0, x_1494); +lean::cnstr_set(x_1495, 0, x_1492); return x_1495; } else { -obj* x_1496; obj* x_1499; obj* x_1502; obj* x_1505; obj* x_1506; obj* x_1508; obj* x_1509; obj* x_1510; obj* x_1511; obj* x_1514; obj* x_1515; obj* x_1516; obj* x_1517; obj* x_1518; -x_1496 = lean::cnstr_get(x_1491, 0); +obj* x_1496; obj* x_1499; obj* x_1501; obj* x_1504; obj* x_1507; obj* x_1511; +x_1496 = lean::cnstr_get(x_1487, 0); lean::inc(x_1496); -lean::dec(x_1491); -x_1499 = lean::cnstr_get(x_2, 0); +lean::dec(x_1487); +x_1499 = lean::cnstr_get(x_1496, 0); lean::inc(x_1499); -lean::dec(x_2); -x_1502 = lean::cnstr_get(x_1499, 2); -lean::inc(x_1502); +x_1501 = lean::cnstr_get(x_1496, 1); +lean::inc(x_1501); +lean::dec(x_1496); +x_1504 = lean::cnstr_get(x_1482, 3); +lean::inc(x_1504); +lean::dec(x_1482); +x_1507 = lean::cnstr_get(x_1504, 1); +lean::inc(x_1507); +lean::dec(x_1504); +lean::inc(x_2); +x_1511 = l_Lean_Elaborator_toPexpr___main(x_1507, x_1, x_2, x_1501); +if (lean::obj_tag(x_1511) == 0) +{ +obj* x_1515; obj* x_1517; obj* x_1518; lean::dec(x_1499); -x_1505 = l_Lean_FileMap_toPosition(x_1502, x_1496); -x_1506 = lean::cnstr_get(x_1505, 1); -lean::inc(x_1506); -x_1508 = lean::box(0); -x_1509 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1510 = l_Lean_KVMap_setNat(x_1508, x_1509, x_1506); -x_1511 = lean::cnstr_get(x_1505, 0); -lean::inc(x_1511); -lean::dec(x_1505); -x_1514 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1515 = l_Lean_KVMap_setNat(x_1510, x_1514, x_1511); -x_1516 = lean_expr_mk_mdata(x_1515, x_1490); -if (lean::is_scalar(x_1483)) { - x_1517 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_0); +lean::dec(x_2); +x_1515 = lean::cnstr_get(x_1511, 0); +if (lean::is_exclusive(x_1511)) { + x_1517 = x_1511; } else { - x_1517 = x_1483; + lean::inc(x_1515); + lean::dec(x_1511); + x_1517 = lean::box(0); } -lean::cnstr_set(x_1517, 0, x_1516); -lean::cnstr_set(x_1517, 1, x_1481); -if (lean::is_scalar(x_1478)) { - x_1518 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_1517)) { + x_1518 = lean::alloc_cnstr(0, 1, 0); } else { - x_1518 = x_1478; + x_1518 = x_1517; } -lean::cnstr_set(x_1518, 0, x_1517); +lean::cnstr_set(x_1518, 0, x_1515); return x_1518; } +else +{ +obj* x_1519; obj* x_1521; obj* x_1522; obj* x_1524; obj* x_1526; obj* x_1527; uint8 x_1528; obj* x_1529; obj* x_1530; obj* x_1531; obj* x_1532; obj* x_1533; obj* x_1534; +x_1519 = lean::cnstr_get(x_1511, 0); +if (lean::is_exclusive(x_1511)) { + lean::cnstr_set(x_1511, 0, lean::box(0)); + x_1521 = x_1511; +} else { + lean::inc(x_1519); + lean::dec(x_1511); + x_1521 = lean::box(0); } +x_1522 = lean::cnstr_get(x_1519, 0); +x_1524 = lean::cnstr_get(x_1519, 1); +if (lean::is_exclusive(x_1519)) { + lean::cnstr_set(x_1519, 0, lean::box(0)); + lean::cnstr_set(x_1519, 1, lean::box(0)); + x_1526 = x_1519; +} else { + lean::inc(x_1522); + lean::inc(x_1524); + lean::dec(x_1519); + x_1526 = lean::box(0); } +x_1527 = l_Lean_Elaborator_toPexpr___main___closed__36; +x_1528 = 0; +x_1529 = l_Lean_Elaborator_toPexpr___main___closed__37; +x_1530 = lean_expr_mk_lambda(x_1527, x_1528, x_1499, x_1529); +x_1531 = lean_expr_mk_app(x_1530, x_1522); +x_1532 = l_Lean_Elaborator_toPexpr___main___closed__38; +x_1533 = l_Lean_Elaborator_Expr_mkAnnotation(x_1532, x_1531); +x_1534 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1534) == 0) +{ +obj* x_1537; obj* x_1538; +lean::dec(x_2); +if (lean::is_scalar(x_1526)) { + x_1537 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1537 = x_1526; } +lean::cnstr_set(x_1537, 0, x_1533); +lean::cnstr_set(x_1537, 1, x_1524); +if (lean::is_scalar(x_1521)) { + x_1538 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1538 = x_1521; +} +lean::cnstr_set(x_1538, 0, x_1537); +return x_1538; } else { -obj* x_1520; obj* x_1521; obj* x_1525; obj* x_1526; -lean::dec(x_10); -x_1520 = l_Lean_Parser_Term_have_HasView; -x_1521 = lean::cnstr_get(x_1520, 0); -lean::inc(x_1521); -lean::dec(x_1520); -lean::inc(x_0); -x_1525 = lean::apply_1(x_1521, x_0); -x_1526 = lean::cnstr_get(x_1525, 1); -lean::inc(x_1526); -if (lean::obj_tag(x_1526) == 0) -{ -obj* x_1528; obj* x_1530; obj* x_1533; -x_1528 = lean::cnstr_get(x_1525, 2); -lean::inc(x_1528); -x_1530 = lean::cnstr_get(x_1525, 5); -lean::inc(x_1530); -lean::inc(x_2); -x_1533 = l_Lean_Elaborator_toPexpr___main(x_1528, x_1, x_2, x_3); -if (lean::obj_tag(x_1533) == 0) -{ -obj* x_1539; obj* x_1541; obj* x_1542; -lean::dec(x_1525); -lean::dec(x_8); -lean::dec(x_0); +obj* x_1539; obj* x_1542; obj* x_1545; obj* x_1548; obj* x_1549; obj* x_1551; obj* x_1552; obj* x_1553; obj* x_1554; obj* x_1557; obj* x_1558; obj* x_1559; obj* x_1560; obj* x_1561; +x_1539 = lean::cnstr_get(x_1534, 0); +lean::inc(x_1539); +lean::dec(x_1534); +x_1542 = lean::cnstr_get(x_2, 0); +lean::inc(x_1542); lean::dec(x_2); -lean::dec(x_1530); -x_1539 = lean::cnstr_get(x_1533, 0); -if (lean::is_exclusive(x_1533)) { - x_1541 = x_1533; +x_1545 = lean::cnstr_get(x_1542, 2); +lean::inc(x_1545); +lean::dec(x_1542); +x_1548 = l_Lean_FileMap_toPosition(x_1545, x_1539); +x_1549 = lean::cnstr_get(x_1548, 1); +lean::inc(x_1549); +x_1551 = lean::box(0); +x_1552 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1553 = l_Lean_KVMap_setNat(x_1551, x_1552, x_1549); +x_1554 = lean::cnstr_get(x_1548, 0); +lean::inc(x_1554); +lean::dec(x_1548); +x_1557 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1558 = l_Lean_KVMap_setNat(x_1553, x_1557, x_1554); +x_1559 = lean_expr_mk_mdata(x_1558, x_1533); +if (lean::is_scalar(x_1526)) { + x_1560 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1539); - lean::dec(x_1533); - x_1541 = lean::box(0); + x_1560 = x_1526; } -if (lean::is_scalar(x_1541)) { - x_1542 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_1560, 0, x_1559); +lean::cnstr_set(x_1560, 1, x_1524); +if (lean::is_scalar(x_1521)) { + x_1561 = lean::alloc_cnstr(1, 1, 0); } else { - x_1542 = x_1541; + x_1561 = x_1521; } -lean::cnstr_set(x_1542, 0, x_1539); -return x_1542; -} -else -{ -obj* x_1543; obj* x_1546; obj* x_1548; obj* x_1552; -x_1543 = lean::cnstr_get(x_1533, 0); -lean::inc(x_1543); -lean::dec(x_1533); -x_1546 = lean::cnstr_get(x_1543, 0); -lean::inc(x_1546); -x_1548 = lean::cnstr_get(x_1543, 1); -lean::inc(x_1548); -lean::dec(x_1543); -lean::inc(x_2); -x_1552 = l_Lean_Elaborator_toPexpr___main(x_1530, x_1, x_2, x_1548); -if (lean::obj_tag(x_1552) == 0) -{ -obj* x_1558; obj* x_1560; obj* x_1561; -lean::dec(x_1525); -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_1546); -lean::dec(x_2); -x_1558 = lean::cnstr_get(x_1552, 0); -if (lean::is_exclusive(x_1552)) { - x_1560 = x_1552; -} else { - lean::inc(x_1558); - lean::dec(x_1552); - x_1560 = lean::box(0); -} -if (lean::is_scalar(x_1560)) { - x_1561 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1561 = x_1560; -} -lean::cnstr_set(x_1561, 0, x_1558); +lean::cnstr_set(x_1561, 0, x_1560); return x_1561; } +} +} +} +} else { -obj* x_1562; obj* x_1565; obj* x_1567; obj* x_1570; uint8 x_1571; obj* x_1572; obj* x_1573; -x_1562 = lean::cnstr_get(x_1552, 0); -lean::inc(x_1562); -lean::dec(x_1552); -x_1565 = lean::cnstr_get(x_1562, 0); -lean::inc(x_1565); -x_1567 = lean::cnstr_get(x_1562, 1); -lean::inc(x_1567); -lean::dec(x_1562); -x_1570 = l_Lean_Elaborator_toPexpr___main___closed__36; -x_1571 = 0; -x_1572 = lean_expr_mk_lambda(x_1570, x_1571, x_1546, x_1565); -x_1573 = lean::cnstr_get(x_1525, 3); +obj* x_1563; obj* x_1564; obj* x_1568; obj* x_1569; +lean::dec(x_10); +x_1563 = l_Lean_Parser_Term_have_HasView; +x_1564 = lean::cnstr_get(x_1563, 0); +lean::inc(x_1564); +lean::dec(x_1563); +lean::inc(x_0); +x_1568 = lean::apply_1(x_1564, x_0); +x_1569 = lean::cnstr_get(x_1568, 1); +lean::inc(x_1569); +if (lean::obj_tag(x_1569) == 0) +{ +obj* x_1571; obj* x_1573; obj* x_1577; +x_1571 = lean::cnstr_get(x_1568, 2); +lean::inc(x_1571); +x_1573 = lean::cnstr_get(x_1568, 5); lean::inc(x_1573); -lean::dec(x_1525); -if (lean::obj_tag(x_1573) == 0) -{ -obj* x_1576; obj* x_1579; obj* x_1583; -x_1576 = lean::cnstr_get(x_1573, 0); -lean::inc(x_1576); -lean::dec(x_1573); -x_1579 = lean::cnstr_get(x_1576, 1); -lean::inc(x_1579); -lean::dec(x_1576); lean::inc(x_2); -x_1583 = l_Lean_Elaborator_toPexpr___main(x_1579, x_1, x_2, x_1567); -if (lean::obj_tag(x_1583) == 0) +lean::inc(x_1); +x_1577 = l_Lean_Elaborator_toPexpr___main(x_1571, x_1, x_2, x_3); +if (lean::obj_tag(x_1577) == 0) { -obj* x_1588; obj* x_1590; obj* x_1591; -lean::dec(x_1572); +obj* x_1584; obj* x_1586; obj* x_1587; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_1588 = lean::cnstr_get(x_1583, 0); -if (lean::is_exclusive(x_1583)) { - x_1590 = x_1583; -} else { - lean::inc(x_1588); - lean::dec(x_1583); - x_1590 = lean::box(0); -} -if (lean::is_scalar(x_1590)) { - x_1591 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1591 = x_1590; -} -lean::cnstr_set(x_1591, 0, x_1588); -return x_1591; -} -else -{ -obj* x_1592; obj* x_1595; obj* x_1597; obj* x_1599; obj* x_1600; obj* x_1601; obj* x_1602; obj* x_1603; -x_1592 = lean::cnstr_get(x_1583, 0); -lean::inc(x_1592); -lean::dec(x_1583); -x_1595 = lean::cnstr_get(x_1592, 0); -x_1597 = lean::cnstr_get(x_1592, 1); -if (lean::is_exclusive(x_1592)) { - x_1599 = x_1592; -} else { - lean::inc(x_1595); - lean::inc(x_1597); - lean::dec(x_1592); - x_1599 = lean::box(0); -} -x_1600 = l_Lean_Elaborator_toPexpr___main___closed__39; -x_1601 = l_Lean_Elaborator_Expr_mkAnnotation(x_1600, x_1572); -x_1602 = lean_expr_mk_app(x_1601, x_1595); -if (lean::is_scalar(x_1599)) { - x_1603 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1603 = x_1599; -} -lean::cnstr_set(x_1603, 0, x_1602); -lean::cnstr_set(x_1603, 1, x_1597); -x_15 = x_1603; -goto lbl_16; -} -} -else -{ -obj* x_1604; obj* x_1607; obj* x_1610; obj* x_1614; -x_1604 = lean::cnstr_get(x_1573, 0); -lean::inc(x_1604); +lean::dec(x_1568); lean::dec(x_1573); -x_1607 = lean::cnstr_get(x_1604, 1); -lean::inc(x_1607); -lean::dec(x_1604); -x_1610 = lean::cnstr_get(x_1607, 1); -lean::inc(x_1610); -lean::dec(x_1607); -lean::inc(x_2); -x_1614 = l_Lean_Elaborator_toPexpr___main(x_1610, x_1, x_2, x_1567); -if (lean::obj_tag(x_1614) == 0) +x_1584 = lean::cnstr_get(x_1577, 0); +if (lean::is_exclusive(x_1577)) { + x_1586 = x_1577; +} else { + lean::inc(x_1584); + lean::dec(x_1577); + x_1586 = lean::box(0); +} +if (lean::is_scalar(x_1586)) { + x_1587 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1587 = x_1586; +} +lean::cnstr_set(x_1587, 0, x_1584); +return x_1587; +} +else { -obj* x_1619; obj* x_1621; obj* x_1622; -lean::dec(x_1572); +obj* x_1588; obj* x_1591; obj* x_1593; obj* x_1598; +x_1588 = lean::cnstr_get(x_1577, 0); +lean::inc(x_1588); +lean::dec(x_1577); +x_1591 = lean::cnstr_get(x_1588, 0); +lean::inc(x_1591); +x_1593 = lean::cnstr_get(x_1588, 1); +lean::inc(x_1593); +lean::dec(x_1588); +lean::inc(x_2); +lean::inc(x_1); +x_1598 = l_Lean_Elaborator_toPexpr___main(x_1573, x_1, x_2, x_1593); +if (lean::obj_tag(x_1598) == 0) +{ +obj* x_1605; obj* x_1607; obj* x_1608; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_1619 = lean::cnstr_get(x_1614, 0); -if (lean::is_exclusive(x_1614)) { - x_1621 = x_1614; +lean::dec(x_1568); +lean::dec(x_1591); +x_1605 = lean::cnstr_get(x_1598, 0); +if (lean::is_exclusive(x_1598)) { + x_1607 = x_1598; } else { - lean::inc(x_1619); - lean::dec(x_1614); - x_1621 = lean::box(0); + lean::inc(x_1605); + lean::dec(x_1598); + x_1607 = lean::box(0); } -if (lean::is_scalar(x_1621)) { - x_1622 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1607)) { + x_1608 = lean::alloc_cnstr(0, 1, 0); } else { - x_1622 = x_1621; + x_1608 = x_1607; } -lean::cnstr_set(x_1622, 0, x_1619); -return x_1622; +lean::cnstr_set(x_1608, 0, x_1605); +return x_1608; } else { -obj* x_1623; obj* x_1626; obj* x_1628; obj* x_1630; obj* x_1631; obj* x_1632; obj* x_1633; obj* x_1634; -x_1623 = lean::cnstr_get(x_1614, 0); +obj* x_1609; obj* x_1612; obj* x_1614; obj* x_1617; uint8 x_1618; obj* x_1619; obj* x_1620; +x_1609 = lean::cnstr_get(x_1598, 0); +lean::inc(x_1609); +lean::dec(x_1598); +x_1612 = lean::cnstr_get(x_1609, 0); +lean::inc(x_1612); +x_1614 = lean::cnstr_get(x_1609, 1); +lean::inc(x_1614); +lean::dec(x_1609); +x_1617 = l_Lean_Elaborator_toPexpr___main___closed__36; +x_1618 = 0; +x_1619 = lean_expr_mk_lambda(x_1617, x_1618, x_1591, x_1612); +x_1620 = lean::cnstr_get(x_1568, 3); +lean::inc(x_1620); +lean::dec(x_1568); +if (lean::obj_tag(x_1620) == 0) +{ +obj* x_1623; obj* x_1626; obj* x_1630; +x_1623 = lean::cnstr_get(x_1620, 0); lean::inc(x_1623); -lean::dec(x_1614); -x_1626 = lean::cnstr_get(x_1623, 0); -x_1628 = lean::cnstr_get(x_1623, 1); -if (lean::is_exclusive(x_1623)) { - x_1630 = x_1623; -} else { - lean::inc(x_1626); - lean::inc(x_1628); - lean::dec(x_1623); - x_1630 = lean::box(0); -} -x_1631 = l_Lean_Elaborator_toPexpr___main___closed__39; -x_1632 = l_Lean_Elaborator_Expr_mkAnnotation(x_1631, x_1572); -x_1633 = lean_expr_mk_app(x_1632, x_1626); -if (lean::is_scalar(x_1630)) { - x_1634 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1634 = x_1630; -} -lean::cnstr_set(x_1634, 0, x_1633); -lean::cnstr_set(x_1634, 1, x_1628); -x_15 = x_1634; -goto lbl_16; -} -} -} -} -} -else -{ -obj* x_1635; obj* x_1637; obj* x_1639; obj* x_1643; -x_1635 = lean::cnstr_get(x_1525, 2); -lean::inc(x_1635); -x_1637 = lean::cnstr_get(x_1525, 5); -lean::inc(x_1637); -x_1639 = lean::cnstr_get(x_1526, 0); -lean::inc(x_1639); -lean::dec(x_1526); +lean::dec(x_1620); +x_1626 = lean::cnstr_get(x_1623, 1); +lean::inc(x_1626); +lean::dec(x_1623); lean::inc(x_2); -x_1643 = l_Lean_Elaborator_toPexpr___main(x_1635, x_1, x_2, x_3); -if (lean::obj_tag(x_1643) == 0) +x_1630 = l_Lean_Elaborator_toPexpr___main(x_1626, x_1, x_2, x_1614); +if (lean::obj_tag(x_1630) == 0) { -obj* x_1650; obj* x_1652; obj* x_1653; -lean::dec(x_1525); +obj* x_1635; obj* x_1637; obj* x_1638; +lean::dec(x_1619); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1637); -lean::dec(x_1639); -x_1650 = lean::cnstr_get(x_1643, 0); -if (lean::is_exclusive(x_1643)) { - x_1652 = x_1643; +x_1635 = lean::cnstr_get(x_1630, 0); +if (lean::is_exclusive(x_1630)) { + x_1637 = x_1630; } else { - lean::inc(x_1650); - lean::dec(x_1643); - x_1652 = lean::box(0); + lean::inc(x_1635); + lean::dec(x_1630); + x_1637 = lean::box(0); } -if (lean::is_scalar(x_1652)) { - x_1653 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1637)) { + x_1638 = lean::alloc_cnstr(0, 1, 0); } else { - x_1653 = x_1652; + x_1638 = x_1637; } -lean::cnstr_set(x_1653, 0, x_1650); -return x_1653; +lean::cnstr_set(x_1638, 0, x_1635); +return x_1638; } else { -obj* x_1654; obj* x_1657; obj* x_1659; obj* x_1663; -x_1654 = lean::cnstr_get(x_1643, 0); +obj* x_1639; obj* x_1642; obj* x_1644; obj* x_1646; obj* x_1647; obj* x_1648; obj* x_1649; obj* x_1650; +x_1639 = lean::cnstr_get(x_1630, 0); +lean::inc(x_1639); +lean::dec(x_1630); +x_1642 = lean::cnstr_get(x_1639, 0); +x_1644 = lean::cnstr_get(x_1639, 1); +if (lean::is_exclusive(x_1639)) { + x_1646 = x_1639; +} else { + lean::inc(x_1642); + lean::inc(x_1644); + lean::dec(x_1639); + x_1646 = lean::box(0); +} +x_1647 = l_Lean_Elaborator_toPexpr___main___closed__39; +x_1648 = l_Lean_Elaborator_Expr_mkAnnotation(x_1647, x_1619); +x_1649 = lean_expr_mk_app(x_1648, x_1642); +if (lean::is_scalar(x_1646)) { + x_1650 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1650 = x_1646; +} +lean::cnstr_set(x_1650, 0, x_1649); +lean::cnstr_set(x_1650, 1, x_1644); +x_15 = x_1650; +goto lbl_16; +} +} +else +{ +obj* x_1651; obj* x_1654; obj* x_1657; obj* x_1661; +x_1651 = lean::cnstr_get(x_1620, 0); +lean::inc(x_1651); +lean::dec(x_1620); +x_1654 = lean::cnstr_get(x_1651, 1); lean::inc(x_1654); -lean::dec(x_1643); -x_1657 = lean::cnstr_get(x_1654, 0); +lean::dec(x_1651); +x_1657 = lean::cnstr_get(x_1654, 1); lean::inc(x_1657); -x_1659 = lean::cnstr_get(x_1654, 1); -lean::inc(x_1659); lean::dec(x_1654); lean::inc(x_2); -x_1663 = l_Lean_Elaborator_toPexpr___main(x_1637, x_1, x_2, x_1659); -if (lean::obj_tag(x_1663) == 0) +x_1661 = l_Lean_Elaborator_toPexpr___main(x_1657, x_1, x_2, x_1614); +if (lean::obj_tag(x_1661) == 0) { -obj* x_1670; obj* x_1672; obj* x_1673; -lean::dec(x_1525); +obj* x_1666; obj* x_1668; obj* x_1669; +lean::dec(x_1619); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_1639); -lean::dec(x_1657); -x_1670 = lean::cnstr_get(x_1663, 0); -if (lean::is_exclusive(x_1663)) { - x_1672 = x_1663; +x_1666 = lean::cnstr_get(x_1661, 0); +if (lean::is_exclusive(x_1661)) { + x_1668 = x_1661; } else { - lean::inc(x_1670); - lean::dec(x_1663); - x_1672 = lean::box(0); + lean::inc(x_1666); + lean::dec(x_1661); + x_1668 = lean::box(0); } -if (lean::is_scalar(x_1672)) { - x_1673 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1668)) { + x_1669 = lean::alloc_cnstr(0, 1, 0); } else { - x_1673 = x_1672; + x_1669 = x_1668; } -lean::cnstr_set(x_1673, 0, x_1670); -return x_1673; +lean::cnstr_set(x_1669, 0, x_1666); +return x_1669; } else { -obj* x_1674; obj* x_1677; obj* x_1679; obj* x_1682; obj* x_1685; uint8 x_1686; obj* x_1687; obj* x_1688; -x_1674 = lean::cnstr_get(x_1663, 0); -lean::inc(x_1674); -lean::dec(x_1663); -x_1677 = lean::cnstr_get(x_1674, 0); -lean::inc(x_1677); -x_1679 = lean::cnstr_get(x_1674, 1); -lean::inc(x_1679); -lean::dec(x_1674); -x_1682 = lean::cnstr_get(x_1639, 0); +obj* x_1670; obj* x_1673; obj* x_1675; obj* x_1677; obj* x_1678; obj* x_1679; obj* x_1680; obj* x_1681; +x_1670 = lean::cnstr_get(x_1661, 0); +lean::inc(x_1670); +lean::dec(x_1661); +x_1673 = lean::cnstr_get(x_1670, 0); +x_1675 = lean::cnstr_get(x_1670, 1); +if (lean::is_exclusive(x_1670)) { + x_1677 = x_1670; +} else { + lean::inc(x_1673); + lean::inc(x_1675); + lean::dec(x_1670); + x_1677 = lean::box(0); +} +x_1678 = l_Lean_Elaborator_toPexpr___main___closed__39; +x_1679 = l_Lean_Elaborator_Expr_mkAnnotation(x_1678, x_1619); +x_1680 = lean_expr_mk_app(x_1679, x_1673); +if (lean::is_scalar(x_1677)) { + x_1681 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1681 = x_1677; +} +lean::cnstr_set(x_1681, 0, x_1680); +lean::cnstr_set(x_1681, 1, x_1675); +x_15 = x_1681; +goto lbl_16; +} +} +} +} +} +else +{ +obj* x_1682; obj* x_1684; obj* x_1686; obj* x_1691; +x_1682 = lean::cnstr_get(x_1568, 2); lean::inc(x_1682); -lean::dec(x_1639); -x_1685 = l_Lean_Elaborator_mangleIdent(x_1682); -x_1686 = 0; -x_1687 = lean_expr_mk_lambda(x_1685, x_1686, x_1657, x_1677); -x_1688 = lean::cnstr_get(x_1525, 3); -lean::inc(x_1688); -lean::dec(x_1525); -if (lean::obj_tag(x_1688) == 0) +x_1684 = lean::cnstr_get(x_1568, 5); +lean::inc(x_1684); +x_1686 = lean::cnstr_get(x_1569, 0); +lean::inc(x_1686); +lean::dec(x_1569); +lean::inc(x_2); +lean::inc(x_1); +x_1691 = l_Lean_Elaborator_toPexpr___main(x_1682, x_1, x_2, x_3); +if (lean::obj_tag(x_1691) == 0) { -obj* x_1691; obj* x_1694; obj* x_1698; -x_1691 = lean::cnstr_get(x_1688, 0); -lean::inc(x_1691); -lean::dec(x_1688); -x_1694 = lean::cnstr_get(x_1691, 1); -lean::inc(x_1694); +obj* x_1699; obj* x_1701; obj* x_1702; +lean::dec(x_1686); +lean::dec(x_1684); +lean::dec(x_8); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_1568); +x_1699 = lean::cnstr_get(x_1691, 0); +if (lean::is_exclusive(x_1691)) { + x_1701 = x_1691; +} else { + lean::inc(x_1699); + lean::dec(x_1691); + x_1701 = lean::box(0); +} +if (lean::is_scalar(x_1701)) { + x_1702 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1702 = x_1701; +} +lean::cnstr_set(x_1702, 0, x_1699); +return x_1702; +} +else +{ +obj* x_1703; obj* x_1706; obj* x_1708; obj* x_1713; +x_1703 = lean::cnstr_get(x_1691, 0); +lean::inc(x_1703); lean::dec(x_1691); +x_1706 = lean::cnstr_get(x_1703, 0); +lean::inc(x_1706); +x_1708 = lean::cnstr_get(x_1703, 1); +lean::inc(x_1708); +lean::dec(x_1703); lean::inc(x_2); -x_1698 = l_Lean_Elaborator_toPexpr___main(x_1694, x_1, x_2, x_1679); -if (lean::obj_tag(x_1698) == 0) +lean::inc(x_1); +x_1713 = l_Lean_Elaborator_toPexpr___main(x_1684, x_1, x_2, x_1708); +if (lean::obj_tag(x_1713) == 0) { -obj* x_1703; obj* x_1705; obj* x_1706; -lean::dec(x_1687); +obj* x_1721; obj* x_1723; obj* x_1724; +lean::dec(x_1686); lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_1703 = lean::cnstr_get(x_1698, 0); -if (lean::is_exclusive(x_1698)) { - x_1705 = x_1698; +lean::dec(x_1568); +lean::dec(x_1706); +x_1721 = lean::cnstr_get(x_1713, 0); +if (lean::is_exclusive(x_1713)) { + x_1723 = x_1713; } else { - lean::inc(x_1703); - lean::dec(x_1698); - x_1705 = lean::box(0); + lean::inc(x_1721); + lean::dec(x_1713); + x_1723 = lean::box(0); } -if (lean::is_scalar(x_1705)) { - x_1706 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1723)) { + x_1724 = lean::alloc_cnstr(0, 1, 0); } else { - x_1706 = x_1705; + x_1724 = x_1723; } -lean::cnstr_set(x_1706, 0, x_1703); -return x_1706; +lean::cnstr_set(x_1724, 0, x_1721); +return x_1724; } else { -obj* x_1707; obj* x_1710; obj* x_1712; obj* x_1714; obj* x_1715; obj* x_1716; obj* x_1717; obj* x_1718; -x_1707 = lean::cnstr_get(x_1698, 0); -lean::inc(x_1707); -lean::dec(x_1698); -x_1710 = lean::cnstr_get(x_1707, 0); -x_1712 = lean::cnstr_get(x_1707, 1); -if (lean::is_exclusive(x_1707)) { - x_1714 = x_1707; -} else { - lean::inc(x_1710); - lean::inc(x_1712); - lean::dec(x_1707); - x_1714 = lean::box(0); -} -x_1715 = l_Lean_Elaborator_toPexpr___main___closed__39; -x_1716 = l_Lean_Elaborator_Expr_mkAnnotation(x_1715, x_1687); -x_1717 = lean_expr_mk_app(x_1716, x_1710); -if (lean::is_scalar(x_1714)) { - x_1718 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1718 = x_1714; -} -lean::cnstr_set(x_1718, 0, x_1717); -lean::cnstr_set(x_1718, 1, x_1712); -x_15 = x_1718; -goto lbl_16; -} -} -else -{ -obj* x_1719; obj* x_1722; obj* x_1725; obj* x_1729; -x_1719 = lean::cnstr_get(x_1688, 0); -lean::inc(x_1719); -lean::dec(x_1688); -x_1722 = lean::cnstr_get(x_1719, 1); -lean::inc(x_1722); -lean::dec(x_1719); -x_1725 = lean::cnstr_get(x_1722, 1); +obj* x_1725; obj* x_1728; obj* x_1730; obj* x_1733; obj* x_1736; uint8 x_1737; obj* x_1738; obj* x_1739; +x_1725 = lean::cnstr_get(x_1713, 0); lean::inc(x_1725); -lean::dec(x_1722); +lean::dec(x_1713); +x_1728 = lean::cnstr_get(x_1725, 0); +lean::inc(x_1728); +x_1730 = lean::cnstr_get(x_1725, 1); +lean::inc(x_1730); +lean::dec(x_1725); +x_1733 = lean::cnstr_get(x_1686, 0); +lean::inc(x_1733); +lean::dec(x_1686); +x_1736 = l_Lean_Elaborator_mangleIdent(x_1733); +x_1737 = 0; +x_1738 = lean_expr_mk_lambda(x_1736, x_1737, x_1706, x_1728); +x_1739 = lean::cnstr_get(x_1568, 3); +lean::inc(x_1739); +lean::dec(x_1568); +if (lean::obj_tag(x_1739) == 0) +{ +obj* x_1742; obj* x_1745; obj* x_1749; +x_1742 = lean::cnstr_get(x_1739, 0); +lean::inc(x_1742); +lean::dec(x_1739); +x_1745 = lean::cnstr_get(x_1742, 1); +lean::inc(x_1745); +lean::dec(x_1742); lean::inc(x_2); -x_1729 = l_Lean_Elaborator_toPexpr___main(x_1725, x_1, x_2, x_1679); -if (lean::obj_tag(x_1729) == 0) +x_1749 = l_Lean_Elaborator_toPexpr___main(x_1745, x_1, x_2, x_1730); +if (lean::obj_tag(x_1749) == 0) { -obj* x_1734; obj* x_1736; obj* x_1737; -lean::dec(x_1687); +obj* x_1754; obj* x_1756; obj* x_1757; +lean::dec(x_1738); lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_1734 = lean::cnstr_get(x_1729, 0); -if (lean::is_exclusive(x_1729)) { - x_1736 = x_1729; +x_1754 = lean::cnstr_get(x_1749, 0); +if (lean::is_exclusive(x_1749)) { + x_1756 = x_1749; } else { - lean::inc(x_1734); - lean::dec(x_1729); - x_1736 = lean::box(0); + lean::inc(x_1754); + lean::dec(x_1749); + x_1756 = lean::box(0); } -if (lean::is_scalar(x_1736)) { - x_1737 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1756)) { + x_1757 = lean::alloc_cnstr(0, 1, 0); } else { - x_1737 = x_1736; + x_1757 = x_1756; } -lean::cnstr_set(x_1737, 0, x_1734); -return x_1737; -} -else -{ -obj* x_1738; obj* x_1741; obj* x_1743; obj* x_1745; obj* x_1746; obj* x_1747; obj* x_1748; obj* x_1749; -x_1738 = lean::cnstr_get(x_1729, 0); -lean::inc(x_1738); -lean::dec(x_1729); -x_1741 = lean::cnstr_get(x_1738, 0); -x_1743 = lean::cnstr_get(x_1738, 1); -if (lean::is_exclusive(x_1738)) { - x_1745 = x_1738; -} else { - lean::inc(x_1741); - lean::inc(x_1743); - lean::dec(x_1738); - x_1745 = lean::box(0); -} -x_1746 = l_Lean_Elaborator_toPexpr___main___closed__39; -x_1747 = l_Lean_Elaborator_Expr_mkAnnotation(x_1746, x_1687); -x_1748 = lean_expr_mk_app(x_1747, x_1741); -if (lean::is_scalar(x_1745)) { - x_1749 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1749 = x_1745; -} -lean::cnstr_set(x_1749, 0, x_1748); -lean::cnstr_set(x_1749, 1, x_1743); -x_15 = x_1749; -goto lbl_16; -} -} -} -} -} -} -} -else -{ -obj* x_1752; -lean::dec(x_8); -lean::dec(x_10); -x_1752 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1752) == 0) -{ -obj* x_1755; obj* x_1756; obj* x_1757; -lean::dec(x_2); -x_1755 = l_Lean_Elaborator_toPexpr___main___closed__40; -x_1756 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1756, 0, x_1755); -lean::cnstr_set(x_1756, 1, x_3); -x_1757 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1757, 0, x_1756); +lean::cnstr_set(x_1757, 0, x_1754); return x_1757; } else { -obj* x_1758; obj* x_1761; obj* x_1764; obj* x_1767; obj* x_1768; obj* x_1770; obj* x_1771; obj* x_1772; obj* x_1773; obj* x_1776; obj* x_1777; obj* x_1778; obj* x_1779; obj* x_1780; obj* x_1781; -x_1758 = lean::cnstr_get(x_1752, 0); +obj* x_1758; obj* x_1761; obj* x_1763; obj* x_1765; obj* x_1766; obj* x_1767; obj* x_1768; obj* x_1769; +x_1758 = lean::cnstr_get(x_1749, 0); lean::inc(x_1758); -lean::dec(x_1752); -x_1761 = lean::cnstr_get(x_2, 0); -lean::inc(x_1761); -lean::dec(x_2); -x_1764 = lean::cnstr_get(x_1761, 2); -lean::inc(x_1764); -lean::dec(x_1761); -x_1767 = l_Lean_FileMap_toPosition(x_1764, x_1758); -x_1768 = lean::cnstr_get(x_1767, 1); -lean::inc(x_1768); -x_1770 = lean::box(0); -x_1771 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1772 = l_Lean_KVMap_setNat(x_1770, x_1771, x_1768); -x_1773 = lean::cnstr_get(x_1767, 0); +lean::dec(x_1749); +x_1761 = lean::cnstr_get(x_1758, 0); +x_1763 = lean::cnstr_get(x_1758, 1); +if (lean::is_exclusive(x_1758)) { + x_1765 = x_1758; +} else { + lean::inc(x_1761); + lean::inc(x_1763); + lean::dec(x_1758); + x_1765 = lean::box(0); +} +x_1766 = l_Lean_Elaborator_toPexpr___main___closed__39; +x_1767 = l_Lean_Elaborator_Expr_mkAnnotation(x_1766, x_1738); +x_1768 = lean_expr_mk_app(x_1767, x_1761); +if (lean::is_scalar(x_1765)) { + x_1769 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1769 = x_1765; +} +lean::cnstr_set(x_1769, 0, x_1768); +lean::cnstr_set(x_1769, 1, x_1763); +x_15 = x_1769; +goto lbl_16; +} +} +else +{ +obj* x_1770; obj* x_1773; obj* x_1776; obj* x_1780; +x_1770 = lean::cnstr_get(x_1739, 0); +lean::inc(x_1770); +lean::dec(x_1739); +x_1773 = lean::cnstr_get(x_1770, 1); lean::inc(x_1773); -lean::dec(x_1767); -x_1776 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1777 = l_Lean_KVMap_setNat(x_1772, x_1776, x_1773); -x_1778 = l_Lean_Elaborator_toPexpr___main___closed__40; -x_1779 = lean_expr_mk_mdata(x_1777, x_1778); -x_1780 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1780, 0, x_1779); -lean::cnstr_set(x_1780, 1, x_3); -x_1781 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1781, 0, x_1780); -return x_1781; -} -} -} -else -{ -obj* x_1784; obj* x_1785; obj* x_1789; obj* x_1790; obj* x_1793; obj* x_1794; obj* x_1795; obj* x_1797; -lean::dec(x_8); -lean::dec(x_10); -x_1784 = l_Lean_Parser_Term_anonymousConstructor_HasView; -x_1785 = lean::cnstr_get(x_1784, 0); -lean::inc(x_1785); -lean::dec(x_1784); -lean::inc(x_0); -x_1789 = lean::apply_1(x_1785, x_0); -x_1790 = lean::cnstr_get(x_1789, 1); -lean::inc(x_1790); -lean::dec(x_1789); -x_1793 = l_List_map___main___at_Lean_Expander_paren_transform___spec__1(x_1790); -x_1794 = l_Lean_Expander_getOptType___main___closed__1; -x_1795 = l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(x_1794, x_1793); +lean::dec(x_1770); +x_1776 = lean::cnstr_get(x_1773, 1); +lean::inc(x_1776); +lean::dec(x_1773); lean::inc(x_2); -x_1797 = l_Lean_Elaborator_toPexpr___main(x_1795, x_1, x_2, x_3); -if (lean::obj_tag(x_1797) == 0) +x_1780 = l_Lean_Elaborator_toPexpr___main(x_1776, x_1, x_2, x_1730); +if (lean::obj_tag(x_1780) == 0) { -obj* x_1800; obj* x_1802; obj* x_1803; +obj* x_1785; obj* x_1787; obj* x_1788; +lean::dec(x_1738); +lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_1800 = lean::cnstr_get(x_1797, 0); -if (lean::is_exclusive(x_1797)) { - x_1802 = x_1797; +x_1785 = lean::cnstr_get(x_1780, 0); +if (lean::is_exclusive(x_1780)) { + x_1787 = x_1780; } else { - lean::inc(x_1800); - lean::dec(x_1797); - x_1802 = lean::box(0); + lean::inc(x_1785); + lean::dec(x_1780); + x_1787 = lean::box(0); } -if (lean::is_scalar(x_1802)) { - x_1803 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1787)) { + x_1788 = lean::alloc_cnstr(0, 1, 0); } else { - x_1803 = x_1802; + x_1788 = x_1787; } -lean::cnstr_set(x_1803, 0, x_1800); -return x_1803; +lean::cnstr_set(x_1788, 0, x_1785); +return x_1788; } else { -obj* x_1804; obj* x_1806; obj* x_1807; obj* x_1809; obj* x_1811; obj* x_1812; obj* x_1813; obj* x_1814; -x_1804 = lean::cnstr_get(x_1797, 0); -if (lean::is_exclusive(x_1797)) { - lean::cnstr_set(x_1797, 0, lean::box(0)); - x_1806 = x_1797; +obj* x_1789; obj* x_1792; obj* x_1794; obj* x_1796; obj* x_1797; obj* x_1798; obj* x_1799; obj* x_1800; +x_1789 = lean::cnstr_get(x_1780, 0); +lean::inc(x_1789); +lean::dec(x_1780); +x_1792 = lean::cnstr_get(x_1789, 0); +x_1794 = lean::cnstr_get(x_1789, 1); +if (lean::is_exclusive(x_1789)) { + x_1796 = x_1789; } else { - lean::inc(x_1804); - lean::dec(x_1797); - x_1806 = lean::box(0); + lean::inc(x_1792); + lean::inc(x_1794); + lean::dec(x_1789); + x_1796 = lean::box(0); } -x_1807 = lean::cnstr_get(x_1804, 0); -x_1809 = lean::cnstr_get(x_1804, 1); -if (lean::is_exclusive(x_1804)) { - lean::cnstr_set(x_1804, 0, lean::box(0)); - lean::cnstr_set(x_1804, 1, lean::box(0)); - x_1811 = x_1804; +x_1797 = l_Lean_Elaborator_toPexpr___main___closed__39; +x_1798 = l_Lean_Elaborator_Expr_mkAnnotation(x_1797, x_1738); +x_1799 = lean_expr_mk_app(x_1798, x_1792); +if (lean::is_scalar(x_1796)) { + x_1800 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_1807); - lean::inc(x_1809); - lean::dec(x_1804); - x_1811 = lean::box(0); + x_1800 = x_1796; +} +lean::cnstr_set(x_1800, 0, x_1799); +lean::cnstr_set(x_1800, 1, x_1794); +x_15 = x_1800; +goto lbl_16; +} +} +} } -x_1812 = l_Lean_Elaborator_toPexpr___main___closed__41; -x_1813 = l_Lean_Elaborator_Expr_mkAnnotation(x_1812, x_1807); -x_1814 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1814) == 0) -{ -obj* x_1817; obj* x_1818; -lean::dec(x_2); -if (lean::is_scalar(x_1811)) { - x_1817 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1817 = x_1811; } -lean::cnstr_set(x_1817, 0, x_1813); -lean::cnstr_set(x_1817, 1, x_1809); -if (lean::is_scalar(x_1806)) { - x_1818 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1818 = x_1806; } -lean::cnstr_set(x_1818, 0, x_1817); -return x_1818; } else { -obj* x_1819; obj* x_1822; obj* x_1825; obj* x_1828; obj* x_1829; obj* x_1831; obj* x_1832; obj* x_1833; obj* x_1834; obj* x_1837; obj* x_1838; obj* x_1839; obj* x_1840; obj* x_1841; -x_1819 = lean::cnstr_get(x_1814, 0); -lean::inc(x_1819); -lean::dec(x_1814); -x_1822 = lean::cnstr_get(x_2, 0); -lean::inc(x_1822); +obj* x_1804; +lean::dec(x_8); +lean::dec(x_1); +lean::dec(x_10); +x_1804 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1804) == 0) +{ +obj* x_1807; obj* x_1808; obj* x_1809; lean::dec(x_2); -x_1825 = lean::cnstr_get(x_1822, 2); +x_1807 = l_Lean_Elaborator_toPexpr___main___closed__40; +x_1808 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1808, 0, x_1807); +lean::cnstr_set(x_1808, 1, x_3); +x_1809 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1809, 0, x_1808); +return x_1809; +} +else +{ +obj* x_1810; obj* x_1813; obj* x_1816; obj* x_1819; obj* x_1820; obj* x_1822; obj* x_1823; obj* x_1824; obj* x_1825; obj* x_1828; obj* x_1829; obj* x_1830; obj* x_1831; obj* x_1832; obj* x_1833; +x_1810 = lean::cnstr_get(x_1804, 0); +lean::inc(x_1810); +lean::dec(x_1804); +x_1813 = lean::cnstr_get(x_2, 0); +lean::inc(x_1813); +lean::dec(x_2); +x_1816 = lean::cnstr_get(x_1813, 2); +lean::inc(x_1816); +lean::dec(x_1813); +x_1819 = l_Lean_FileMap_toPosition(x_1816, x_1810); +x_1820 = lean::cnstr_get(x_1819, 1); +lean::inc(x_1820); +x_1822 = lean::box(0); +x_1823 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1824 = l_Lean_KVMap_setNat(x_1822, x_1823, x_1820); +x_1825 = lean::cnstr_get(x_1819, 0); lean::inc(x_1825); -lean::dec(x_1822); -x_1828 = l_Lean_FileMap_toPosition(x_1825, x_1819); -x_1829 = lean::cnstr_get(x_1828, 1); -lean::inc(x_1829); -x_1831 = lean::box(0); -x_1832 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1833 = l_Lean_KVMap_setNat(x_1831, x_1832, x_1829); -x_1834 = lean::cnstr_get(x_1828, 0); -lean::inc(x_1834); -lean::dec(x_1828); -x_1837 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1838 = l_Lean_KVMap_setNat(x_1833, x_1837, x_1834); -x_1839 = lean_expr_mk_mdata(x_1838, x_1813); -if (lean::is_scalar(x_1811)) { - x_1840 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1840 = x_1811; -} -lean::cnstr_set(x_1840, 0, x_1839); -lean::cnstr_set(x_1840, 1, x_1809); -if (lean::is_scalar(x_1806)) { - x_1841 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1841 = x_1806; -} -lean::cnstr_set(x_1841, 0, x_1840); -return x_1841; -} +lean::dec(x_1819); +x_1828 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1829 = l_Lean_KVMap_setNat(x_1824, x_1828, x_1825); +x_1830 = l_Lean_Elaborator_toPexpr___main___closed__40; +x_1831 = lean_expr_mk_mdata(x_1829, x_1830); +x_1832 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1832, 0, x_1831); +lean::cnstr_set(x_1832, 1, x_3); +x_1833 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1833, 0, x_1832); +return x_1833; } } } else { -obj* x_1844; obj* x_1845; obj* x_1849; obj* x_1850; obj* x_1851; obj* x_1854; obj* x_1856; +obj* x_1836; obj* x_1837; obj* x_1841; obj* x_1842; obj* x_1845; obj* x_1846; obj* x_1847; obj* x_1849; lean::dec(x_8); lean::dec(x_10); -x_1844 = l_Lean_Parser_Term_sortApp_HasView; -x_1845 = lean::cnstr_get(x_1844, 0); -lean::inc(x_1845); -lean::dec(x_1844); +x_1836 = l_Lean_Parser_Term_anonymousConstructor_HasView; +x_1837 = lean::cnstr_get(x_1836, 0); +lean::inc(x_1837); +lean::dec(x_1836); lean::inc(x_0); -x_1849 = lean::apply_1(x_1845, x_0); -x_1850 = l_Lean_Parser_Term_sort_HasView; -x_1851 = lean::cnstr_get(x_1850, 0); -lean::inc(x_1851); -lean::dec(x_1850); -x_1854 = lean::cnstr_get(x_1849, 0); -lean::inc(x_1854); -x_1856 = lean::apply_1(x_1851, x_1854); -if (lean::obj_tag(x_1856) == 0) -{ -obj* x_1858; obj* x_1862; -lean::dec(x_1856); -x_1858 = lean::cnstr_get(x_1849, 1); -lean::inc(x_1858); -lean::dec(x_1849); +x_1841 = lean::apply_1(x_1837, x_0); +x_1842 = lean::cnstr_get(x_1841, 1); +lean::inc(x_1842); +lean::dec(x_1841); +x_1845 = l_List_map___main___at_Lean_Expander_paren_transform___spec__1(x_1842); +x_1846 = l_Lean_Expander_getOptType___main___closed__1; +x_1847 = l_List_foldl___main___at_Lean_Parser_Term_mkApp___spec__1(x_1846, x_1845); lean::inc(x_2); -x_1862 = l_Lean_Elaborator_toLevel___main(x_1858, x_1, x_2, x_3); -if (lean::obj_tag(x_1862) == 0) +x_1849 = l_Lean_Elaborator_toPexpr___main(x_1847, x_1, x_2, x_3); +if (lean::obj_tag(x_1849) == 0) { -obj* x_1865; obj* x_1867; obj* x_1868; +obj* x_1852; obj* x_1854; obj* x_1855; lean::dec(x_0); lean::dec(x_2); -x_1865 = lean::cnstr_get(x_1862, 0); -if (lean::is_exclusive(x_1862)) { - x_1867 = x_1862; +x_1852 = lean::cnstr_get(x_1849, 0); +if (lean::is_exclusive(x_1849)) { + x_1854 = x_1849; } else { - lean::inc(x_1865); - lean::dec(x_1862); - x_1867 = lean::box(0); + lean::inc(x_1852); + lean::dec(x_1849); + x_1854 = lean::box(0); } -if (lean::is_scalar(x_1867)) { - x_1868 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1854)) { + x_1855 = lean::alloc_cnstr(0, 1, 0); } else { - x_1868 = x_1867; + x_1855 = x_1854; } -lean::cnstr_set(x_1868, 0, x_1865); -return x_1868; +lean::cnstr_set(x_1855, 0, x_1852); +return x_1855; } else { -obj* x_1869; obj* x_1871; obj* x_1872; obj* x_1874; obj* x_1876; obj* x_1877; obj* x_1878; -x_1869 = lean::cnstr_get(x_1862, 0); -if (lean::is_exclusive(x_1862)) { - lean::cnstr_set(x_1862, 0, lean::box(0)); - x_1871 = x_1862; +obj* x_1856; obj* x_1858; obj* x_1859; obj* x_1861; obj* x_1863; obj* x_1864; obj* x_1865; obj* x_1866; +x_1856 = lean::cnstr_get(x_1849, 0); +if (lean::is_exclusive(x_1849)) { + lean::cnstr_set(x_1849, 0, lean::box(0)); + x_1858 = x_1849; } else { - lean::inc(x_1869); - lean::dec(x_1862); - x_1871 = lean::box(0); + lean::inc(x_1856); + lean::dec(x_1849); + x_1858 = lean::box(0); } -x_1872 = lean::cnstr_get(x_1869, 0); -x_1874 = lean::cnstr_get(x_1869, 1); -if (lean::is_exclusive(x_1869)) { - lean::cnstr_set(x_1869, 0, lean::box(0)); - lean::cnstr_set(x_1869, 1, lean::box(0)); - x_1876 = x_1869; +x_1859 = lean::cnstr_get(x_1856, 0); +x_1861 = lean::cnstr_get(x_1856, 1); +if (lean::is_exclusive(x_1856)) { + lean::cnstr_set(x_1856, 0, lean::box(0)); + lean::cnstr_set(x_1856, 1, lean::box(0)); + x_1863 = x_1856; } else { - lean::inc(x_1872); - lean::inc(x_1874); - lean::dec(x_1869); - x_1876 = lean::box(0); + lean::inc(x_1859); + lean::inc(x_1861); + lean::dec(x_1856); + x_1863 = lean::box(0); } -x_1877 = lean_expr_mk_sort(x_1872); -x_1878 = l_Lean_Parser_Syntax_getPos(x_0); +x_1864 = l_Lean_Elaborator_toPexpr___main___closed__41; +x_1865 = l_Lean_Elaborator_Expr_mkAnnotation(x_1864, x_1859); +x_1866 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1878) == 0) +if (lean::obj_tag(x_1866) == 0) { -obj* x_1881; obj* x_1882; +obj* x_1869; obj* x_1870; lean::dec(x_2); -if (lean::is_scalar(x_1876)) { - x_1881 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1863)) { + x_1869 = lean::alloc_cnstr(0, 2, 0); } else { - x_1881 = x_1876; + x_1869 = x_1863; } -lean::cnstr_set(x_1881, 0, x_1877); -lean::cnstr_set(x_1881, 1, x_1874); -if (lean::is_scalar(x_1871)) { - x_1882 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1869, 0, x_1865); +lean::cnstr_set(x_1869, 1, x_1861); +if (lean::is_scalar(x_1858)) { + x_1870 = lean::alloc_cnstr(1, 1, 0); } else { - x_1882 = x_1871; + x_1870 = x_1858; } -lean::cnstr_set(x_1882, 0, x_1881); -return x_1882; +lean::cnstr_set(x_1870, 0, x_1869); +return x_1870; } else { -obj* x_1883; obj* x_1886; obj* x_1889; obj* x_1892; obj* x_1893; obj* x_1895; obj* x_1896; obj* x_1897; obj* x_1898; obj* x_1901; obj* x_1902; obj* x_1903; obj* x_1904; obj* x_1905; -x_1883 = lean::cnstr_get(x_1878, 0); -lean::inc(x_1883); -lean::dec(x_1878); -x_1886 = lean::cnstr_get(x_2, 0); +obj* x_1871; obj* x_1874; obj* x_1877; obj* x_1880; obj* x_1881; obj* x_1883; obj* x_1884; obj* x_1885; obj* x_1886; obj* x_1889; obj* x_1890; obj* x_1891; obj* x_1892; obj* x_1893; +x_1871 = lean::cnstr_get(x_1866, 0); +lean::inc(x_1871); +lean::dec(x_1866); +x_1874 = lean::cnstr_get(x_2, 0); +lean::inc(x_1874); +lean::dec(x_2); +x_1877 = lean::cnstr_get(x_1874, 2); +lean::inc(x_1877); +lean::dec(x_1874); +x_1880 = l_Lean_FileMap_toPosition(x_1877, x_1871); +x_1881 = lean::cnstr_get(x_1880, 1); +lean::inc(x_1881); +x_1883 = lean::box(0); +x_1884 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1885 = l_Lean_KVMap_setNat(x_1883, x_1884, x_1881); +x_1886 = lean::cnstr_get(x_1880, 0); lean::inc(x_1886); -lean::dec(x_2); -x_1889 = lean::cnstr_get(x_1886, 2); -lean::inc(x_1889); -lean::dec(x_1886); -x_1892 = l_Lean_FileMap_toPosition(x_1889, x_1883); -x_1893 = lean::cnstr_get(x_1892, 1); -lean::inc(x_1893); -x_1895 = lean::box(0); -x_1896 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1897 = l_Lean_KVMap_setNat(x_1895, x_1896, x_1893); -x_1898 = lean::cnstr_get(x_1892, 0); -lean::inc(x_1898); -lean::dec(x_1892); -x_1901 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1902 = l_Lean_KVMap_setNat(x_1897, x_1901, x_1898); -x_1903 = lean_expr_mk_mdata(x_1902, x_1877); -if (lean::is_scalar(x_1876)) { - x_1904 = lean::alloc_cnstr(0, 2, 0); +lean::dec(x_1880); +x_1889 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1890 = l_Lean_KVMap_setNat(x_1885, x_1889, x_1886); +x_1891 = lean_expr_mk_mdata(x_1890, x_1865); +if (lean::is_scalar(x_1863)) { + x_1892 = lean::alloc_cnstr(0, 2, 0); } else { - x_1904 = x_1876; + x_1892 = x_1863; } -lean::cnstr_set(x_1904, 0, x_1903); -lean::cnstr_set(x_1904, 1, x_1874); -if (lean::is_scalar(x_1871)) { - x_1905 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1892, 0, x_1891); +lean::cnstr_set(x_1892, 1, x_1861); +if (lean::is_scalar(x_1858)) { + x_1893 = lean::alloc_cnstr(1, 1, 0); } else { - x_1905 = x_1871; + x_1893 = x_1858; +} +lean::cnstr_set(x_1893, 0, x_1892); +return x_1893; } -lean::cnstr_set(x_1905, 0, x_1904); -return x_1905; } } } else { -obj* x_1907; obj* x_1911; -lean::dec(x_1856); -x_1907 = lean::cnstr_get(x_1849, 1); -lean::inc(x_1907); -lean::dec(x_1849); -lean::inc(x_2); -x_1911 = l_Lean_Elaborator_toLevel___main(x_1907, x_1, x_2, x_3); -if (lean::obj_tag(x_1911) == 0) +obj* x_1896; obj* x_1897; obj* x_1901; obj* x_1902; obj* x_1903; obj* x_1906; obj* x_1908; +lean::dec(x_8); +lean::dec(x_10); +x_1896 = l_Lean_Parser_Term_sortApp_HasView; +x_1897 = lean::cnstr_get(x_1896, 0); +lean::inc(x_1897); +lean::dec(x_1896); +lean::inc(x_0); +x_1901 = lean::apply_1(x_1897, x_0); +x_1902 = l_Lean_Parser_Term_sort_HasView; +x_1903 = lean::cnstr_get(x_1902, 0); +lean::inc(x_1903); +lean::dec(x_1902); +x_1906 = lean::cnstr_get(x_1901, 0); +lean::inc(x_1906); +x_1908 = lean::apply_1(x_1903, x_1906); +if (lean::obj_tag(x_1908) == 0) { -obj* x_1914; obj* x_1916; obj* x_1917; +obj* x_1910; obj* x_1914; +lean::dec(x_1908); +x_1910 = lean::cnstr_get(x_1901, 1); +lean::inc(x_1910); +lean::dec(x_1901); +lean::inc(x_2); +x_1914 = l_Lean_Elaborator_toLevel___main(x_1910, x_1, x_2, x_3); +if (lean::obj_tag(x_1914) == 0) +{ +obj* x_1917; obj* x_1919; obj* x_1920; lean::dec(x_0); lean::dec(x_2); -x_1914 = lean::cnstr_get(x_1911, 0); -if (lean::is_exclusive(x_1911)) { - x_1916 = x_1911; +x_1917 = lean::cnstr_get(x_1914, 0); +if (lean::is_exclusive(x_1914)) { + x_1919 = x_1914; } else { - lean::inc(x_1914); - lean::dec(x_1911); - x_1916 = lean::box(0); + lean::inc(x_1917); + lean::dec(x_1914); + x_1919 = lean::box(0); } -if (lean::is_scalar(x_1916)) { - x_1917 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1919)) { + x_1920 = lean::alloc_cnstr(0, 1, 0); } else { - x_1917 = x_1916; + x_1920 = x_1919; } -lean::cnstr_set(x_1917, 0, x_1914); -return x_1917; +lean::cnstr_set(x_1920, 0, x_1917); +return x_1920; } else { -obj* x_1918; obj* x_1920; obj* x_1921; obj* x_1923; obj* x_1925; obj* x_1926; obj* x_1927; obj* x_1928; -x_1918 = lean::cnstr_get(x_1911, 0); -if (lean::is_exclusive(x_1911)) { - lean::cnstr_set(x_1911, 0, lean::box(0)); - x_1920 = x_1911; -} else { - lean::inc(x_1918); - lean::dec(x_1911); - x_1920 = lean::box(0); -} -x_1921 = lean::cnstr_get(x_1918, 0); -x_1923 = lean::cnstr_get(x_1918, 1); -if (lean::is_exclusive(x_1918)) { - lean::cnstr_set(x_1918, 0, lean::box(0)); - lean::cnstr_set(x_1918, 1, lean::box(0)); - x_1925 = x_1918; +obj* x_1921; obj* x_1923; obj* x_1924; obj* x_1926; obj* x_1928; obj* x_1929; obj* x_1930; +x_1921 = lean::cnstr_get(x_1914, 0); +if (lean::is_exclusive(x_1914)) { + lean::cnstr_set(x_1914, 0, lean::box(0)); + x_1923 = x_1914; } else { lean::inc(x_1921); - lean::inc(x_1923); - lean::dec(x_1918); - x_1925 = lean::box(0); + lean::dec(x_1914); + x_1923 = lean::box(0); } -x_1926 = level_mk_succ(x_1921); -x_1927 = lean_expr_mk_sort(x_1926); -x_1928 = l_Lean_Parser_Syntax_getPos(x_0); +x_1924 = lean::cnstr_get(x_1921, 0); +x_1926 = lean::cnstr_get(x_1921, 1); +if (lean::is_exclusive(x_1921)) { + lean::cnstr_set(x_1921, 0, lean::box(0)); + lean::cnstr_set(x_1921, 1, lean::box(0)); + x_1928 = x_1921; +} else { + lean::inc(x_1924); + lean::inc(x_1926); + lean::dec(x_1921); + x_1928 = lean::box(0); +} +x_1929 = lean_expr_mk_sort(x_1924); +x_1930 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1928) == 0) +if (lean::obj_tag(x_1930) == 0) { -obj* x_1931; obj* x_1932; +obj* x_1933; obj* x_1934; lean::dec(x_2); -if (lean::is_scalar(x_1925)) { - x_1931 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1928)) { + x_1933 = lean::alloc_cnstr(0, 2, 0); } else { - x_1931 = x_1925; + x_1933 = x_1928; } -lean::cnstr_set(x_1931, 0, x_1927); -lean::cnstr_set(x_1931, 1, x_1923); -if (lean::is_scalar(x_1920)) { - x_1932 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1933, 0, x_1929); +lean::cnstr_set(x_1933, 1, x_1926); +if (lean::is_scalar(x_1923)) { + x_1934 = lean::alloc_cnstr(1, 1, 0); } else { - x_1932 = x_1920; + x_1934 = x_1923; } -lean::cnstr_set(x_1932, 0, x_1931); -return x_1932; +lean::cnstr_set(x_1934, 0, x_1933); +return x_1934; } else { -obj* x_1933; obj* x_1936; obj* x_1939; obj* x_1942; obj* x_1943; obj* x_1945; obj* x_1946; obj* x_1947; obj* x_1948; obj* x_1951; obj* x_1952; obj* x_1953; obj* x_1954; obj* x_1955; -x_1933 = lean::cnstr_get(x_1928, 0); -lean::inc(x_1933); -lean::dec(x_1928); -x_1936 = lean::cnstr_get(x_2, 0); -lean::inc(x_1936); +obj* x_1935; obj* x_1938; obj* x_1941; obj* x_1944; obj* x_1945; obj* x_1947; obj* x_1948; obj* x_1949; obj* x_1950; obj* x_1953; obj* x_1954; obj* x_1955; obj* x_1956; obj* x_1957; +x_1935 = lean::cnstr_get(x_1930, 0); +lean::inc(x_1935); +lean::dec(x_1930); +x_1938 = lean::cnstr_get(x_2, 0); +lean::inc(x_1938); lean::dec(x_2); -x_1939 = lean::cnstr_get(x_1936, 2); -lean::inc(x_1939); -lean::dec(x_1936); -x_1942 = l_Lean_FileMap_toPosition(x_1939, x_1933); -x_1943 = lean::cnstr_get(x_1942, 1); -lean::inc(x_1943); -x_1945 = lean::box(0); -x_1946 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1947 = l_Lean_KVMap_setNat(x_1945, x_1946, x_1943); -x_1948 = lean::cnstr_get(x_1942, 0); -lean::inc(x_1948); -lean::dec(x_1942); -x_1951 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1952 = l_Lean_KVMap_setNat(x_1947, x_1951, x_1948); -x_1953 = lean_expr_mk_mdata(x_1952, x_1927); -if (lean::is_scalar(x_1925)) { - x_1954 = lean::alloc_cnstr(0, 2, 0); +x_1941 = lean::cnstr_get(x_1938, 2); +lean::inc(x_1941); +lean::dec(x_1938); +x_1944 = l_Lean_FileMap_toPosition(x_1941, x_1935); +x_1945 = lean::cnstr_get(x_1944, 1); +lean::inc(x_1945); +x_1947 = lean::box(0); +x_1948 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1949 = l_Lean_KVMap_setNat(x_1947, x_1948, x_1945); +x_1950 = lean::cnstr_get(x_1944, 0); +lean::inc(x_1950); +lean::dec(x_1944); +x_1953 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_1954 = l_Lean_KVMap_setNat(x_1949, x_1953, x_1950); +x_1955 = lean_expr_mk_mdata(x_1954, x_1929); +if (lean::is_scalar(x_1928)) { + x_1956 = lean::alloc_cnstr(0, 2, 0); } else { - x_1954 = x_1925; + x_1956 = x_1928; } -lean::cnstr_set(x_1954, 0, x_1953); -lean::cnstr_set(x_1954, 1, x_1923); -if (lean::is_scalar(x_1920)) { - x_1955 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1956, 0, x_1955); +lean::cnstr_set(x_1956, 1, x_1926); +if (lean::is_scalar(x_1923)) { + x_1957 = lean::alloc_cnstr(1, 1, 0); } else { - x_1955 = x_1920; -} -lean::cnstr_set(x_1955, 0, x_1954); -return x_1955; -} + x_1957 = x_1923; } +lean::cnstr_set(x_1957, 0, x_1956); +return x_1957; } } } else { -obj* x_1958; obj* x_1959; obj* x_1963; -lean::dec(x_8); -lean::dec(x_10); -x_1958 = l_Lean_Parser_Term_sort_HasView; -x_1959 = lean::cnstr_get(x_1958, 0); +obj* x_1959; obj* x_1963; +lean::dec(x_1908); +x_1959 = lean::cnstr_get(x_1901, 1); lean::inc(x_1959); -lean::dec(x_1958); -lean::inc(x_0); -x_1963 = lean::apply_1(x_1959, x_0); +lean::dec(x_1901); +lean::inc(x_2); +x_1963 = l_Lean_Elaborator_toLevel___main(x_1959, x_1, x_2, x_3); if (lean::obj_tag(x_1963) == 0) { -obj* x_1965; -lean::dec(x_1963); -x_1965 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_1966; obj* x_1968; obj* x_1969; lean::dec(x_0); -if (lean::obj_tag(x_1965) == 0) -{ -obj* x_1968; obj* x_1969; obj* x_1970; lean::dec(x_2); -x_1968 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_1969 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1969, 0, x_1968); -lean::cnstr_set(x_1969, 1, x_3); -x_1970 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1970, 0, x_1969); -return x_1970; +x_1966 = lean::cnstr_get(x_1963, 0); +if (lean::is_exclusive(x_1963)) { + x_1968 = x_1963; +} else { + lean::inc(x_1966); + lean::dec(x_1963); + x_1968 = lean::box(0); +} +if (lean::is_scalar(x_1968)) { + x_1969 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1969 = x_1968; +} +lean::cnstr_set(x_1969, 0, x_1966); +return x_1969; } else { -obj* x_1971; obj* x_1974; obj* x_1977; obj* x_1980; obj* x_1981; obj* x_1983; obj* x_1984; obj* x_1985; obj* x_1986; obj* x_1989; obj* x_1990; obj* x_1991; obj* x_1992; obj* x_1993; obj* x_1994; -x_1971 = lean::cnstr_get(x_1965, 0); -lean::inc(x_1971); -lean::dec(x_1965); -x_1974 = lean::cnstr_get(x_2, 0); -lean::inc(x_1974); +obj* x_1970; obj* x_1972; obj* x_1973; obj* x_1975; obj* x_1977; obj* x_1978; obj* x_1979; obj* x_1980; +x_1970 = lean::cnstr_get(x_1963, 0); +if (lean::is_exclusive(x_1963)) { + lean::cnstr_set(x_1963, 0, lean::box(0)); + x_1972 = x_1963; +} else { + lean::inc(x_1970); + lean::dec(x_1963); + x_1972 = lean::box(0); +} +x_1973 = lean::cnstr_get(x_1970, 0); +x_1975 = lean::cnstr_get(x_1970, 1); +if (lean::is_exclusive(x_1970)) { + lean::cnstr_set(x_1970, 0, lean::box(0)); + lean::cnstr_set(x_1970, 1, lean::box(0)); + x_1977 = x_1970; +} else { + lean::inc(x_1973); + lean::inc(x_1975); + lean::dec(x_1970); + x_1977 = lean::box(0); +} +x_1978 = level_mk_succ(x_1973); +x_1979 = lean_expr_mk_sort(x_1978); +x_1980 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1980) == 0) +{ +obj* x_1983; obj* x_1984; lean::dec(x_2); -x_1977 = lean::cnstr_get(x_1974, 2); -lean::inc(x_1977); -lean::dec(x_1974); -x_1980 = l_Lean_FileMap_toPosition(x_1977, x_1971); -x_1981 = lean::cnstr_get(x_1980, 1); -lean::inc(x_1981); -x_1983 = lean::box(0); -x_1984 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_1985 = l_Lean_KVMap_setNat(x_1983, x_1984, x_1981); -x_1986 = lean::cnstr_get(x_1980, 0); -lean::inc(x_1986); +if (lean::is_scalar(x_1977)) { + x_1983 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1983 = x_1977; +} +lean::cnstr_set(x_1983, 0, x_1979); +lean::cnstr_set(x_1983, 1, x_1975); +if (lean::is_scalar(x_1972)) { + x_1984 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1984 = x_1972; +} +lean::cnstr_set(x_1984, 0, x_1983); +return x_1984; +} +else +{ +obj* x_1985; obj* x_1988; obj* x_1991; obj* x_1994; obj* x_1995; obj* x_1997; obj* x_1998; obj* x_1999; obj* x_2000; obj* x_2003; obj* x_2004; obj* x_2005; obj* x_2006; obj* x_2007; +x_1985 = lean::cnstr_get(x_1980, 0); +lean::inc(x_1985); lean::dec(x_1980); -x_1989 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_1990 = l_Lean_KVMap_setNat(x_1985, x_1989, x_1986); -x_1991 = l_Lean_Elaborator_toPexpr___main___closed__25; -x_1992 = lean_expr_mk_mdata(x_1990, x_1991); -x_1993 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1993, 0, x_1992); -lean::cnstr_set(x_1993, 1, x_3); -x_1994 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1994, 0, x_1993); -return x_1994; +x_1988 = lean::cnstr_get(x_2, 0); +lean::inc(x_1988); +lean::dec(x_2); +x_1991 = lean::cnstr_get(x_1988, 2); +lean::inc(x_1991); +lean::dec(x_1988); +x_1994 = l_Lean_FileMap_toPosition(x_1991, x_1985); +x_1995 = lean::cnstr_get(x_1994, 1); +lean::inc(x_1995); +x_1997 = lean::box(0); +x_1998 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_1999 = l_Lean_KVMap_setNat(x_1997, x_1998, x_1995); +x_2000 = lean::cnstr_get(x_1994, 0); +lean::inc(x_2000); +lean::dec(x_1994); +x_2003 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2004 = l_Lean_KVMap_setNat(x_1999, x_2003, x_2000); +x_2005 = lean_expr_mk_mdata(x_2004, x_1979); +if (lean::is_scalar(x_1977)) { + x_2006 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2006 = x_1977; +} +lean::cnstr_set(x_2006, 0, x_2005); +lean::cnstr_set(x_2006, 1, x_1975); +if (lean::is_scalar(x_1972)) { + x_2007 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2007 = x_1972; +} +lean::cnstr_set(x_2007, 0, x_2006); +return x_2007; +} +} +} } } else { -obj* x_1996; -lean::dec(x_1963); -x_1996 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1996) == 0) -{ -obj* x_1999; obj* x_2000; obj* x_2001; -lean::dec(x_2); -x_1999 = l_Lean_Elaborator_toPexpr___main___closed__42; -x_2000 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2000, 0, x_1999); -lean::cnstr_set(x_2000, 1, x_3); -x_2001 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2001, 0, x_2000); -return x_2001; -} -else -{ -obj* x_2002; obj* x_2005; obj* x_2008; obj* x_2011; obj* x_2012; obj* x_2014; obj* x_2015; obj* x_2016; obj* x_2017; obj* x_2020; obj* x_2021; obj* x_2022; obj* x_2023; obj* x_2024; obj* x_2025; -x_2002 = lean::cnstr_get(x_1996, 0); -lean::inc(x_2002); -lean::dec(x_1996); -x_2005 = lean::cnstr_get(x_2, 0); -lean::inc(x_2005); -lean::dec(x_2); -x_2008 = lean::cnstr_get(x_2005, 2); -lean::inc(x_2008); -lean::dec(x_2005); -x_2011 = l_Lean_FileMap_toPosition(x_2008, x_2002); -x_2012 = lean::cnstr_get(x_2011, 1); +obj* x_2011; obj* x_2012; obj* x_2016; +lean::dec(x_8); +lean::dec(x_1); +lean::dec(x_10); +x_2011 = l_Lean_Parser_Term_sort_HasView; +x_2012 = lean::cnstr_get(x_2011, 0); lean::inc(x_2012); -x_2014 = lean::box(0); -x_2015 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2016 = l_Lean_KVMap_setNat(x_2014, x_2015, x_2012); -x_2017 = lean::cnstr_get(x_2011, 0); -lean::inc(x_2017); lean::dec(x_2011); -x_2020 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2021 = l_Lean_KVMap_setNat(x_2016, x_2020, x_2017); -x_2022 = l_Lean_Elaborator_toPexpr___main___closed__42; -x_2023 = lean_expr_mk_mdata(x_2021, x_2022); -x_2024 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2024, 0, x_2023); -lean::cnstr_set(x_2024, 1, x_3); -x_2025 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2025, 0, x_2024); -return x_2025; -} -} -} +lean::inc(x_0); +x_2016 = lean::apply_1(x_2012, x_0); +if (lean::obj_tag(x_2016) == 0) +{ +obj* x_2018; +lean::dec(x_2016); +x_2018 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_2018) == 0) +{ +obj* x_2021; obj* x_2022; obj* x_2023; +lean::dec(x_2); +x_2021 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_2022 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2022, 0, x_2021); +lean::cnstr_set(x_2022, 1, x_3); +x_2023 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2023, 0, x_2022); +return x_2023; } else { -obj* x_2027; obj* x_2028; obj* x_2032; obj* x_2033; -lean::dec(x_10); -x_2027 = l_Lean_Parser_Term_pi_HasView; -x_2028 = lean::cnstr_get(x_2027, 0); -lean::inc(x_2028); +obj* x_2024; obj* x_2027; obj* x_2030; obj* x_2033; obj* x_2034; obj* x_2036; obj* x_2037; obj* x_2038; obj* x_2039; obj* x_2042; obj* x_2043; obj* x_2044; obj* x_2045; obj* x_2046; obj* x_2047; +x_2024 = lean::cnstr_get(x_2018, 0); +lean::inc(x_2024); +lean::dec(x_2018); +x_2027 = lean::cnstr_get(x_2, 0); +lean::inc(x_2027); +lean::dec(x_2); +x_2030 = lean::cnstr_get(x_2027, 2); +lean::inc(x_2030); lean::dec(x_2027); -lean::inc(x_0); -x_2032 = lean::apply_1(x_2028, x_0); -x_2033 = lean::cnstr_get(x_2032, 1); -lean::inc(x_2033); -if (lean::obj_tag(x_2033) == 0) -{ -obj* x_2038; obj* x_2039; obj* x_2041; -lean::dec(x_2032); +x_2033 = l_Lean_FileMap_toPosition(x_2030, x_2024); +x_2034 = lean::cnstr_get(x_2033, 1); +lean::inc(x_2034); +x_2036 = lean::box(0); +x_2037 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2038 = l_Lean_KVMap_setNat(x_2036, x_2037, x_2034); +x_2039 = lean::cnstr_get(x_2033, 0); +lean::inc(x_2039); lean::dec(x_2033); -lean::inc(x_0); -x_2038 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2038, 0, x_0); -x_2039 = l_Lean_Elaborator_toPexpr___main___closed__43; -lean::inc(x_2); -x_2041 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2038, x_2039, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_2038); -if (lean::obj_tag(x_2041) == 0) +x_2042 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2043 = l_Lean_KVMap_setNat(x_2038, x_2042, x_2039); +x_2044 = l_Lean_Elaborator_toPexpr___main___closed__25; +x_2045 = lean_expr_mk_mdata(x_2043, x_2044); +x_2046 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2046, 0, x_2045); +lean::cnstr_set(x_2046, 1, x_3); +x_2047 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2047, 0, x_2046); +return x_2047; +} +} +else { -obj* x_2047; obj* x_2049; obj* x_2050; -lean::dec(x_8); +obj* x_2049; +lean::dec(x_2016); +x_2049 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); +if (lean::obj_tag(x_2049) == 0) +{ +obj* x_2052; obj* x_2053; obj* x_2054; lean::dec(x_2); -x_2047 = lean::cnstr_get(x_2041, 0); -if (lean::is_exclusive(x_2041)) { - x_2049 = x_2041; -} else { - lean::inc(x_2047); - lean::dec(x_2041); - x_2049 = lean::box(0); -} -if (lean::is_scalar(x_2049)) { - x_2050 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2050 = x_2049; -} -lean::cnstr_set(x_2050, 0, x_2047); -return x_2050; +x_2052 = l_Lean_Elaborator_toPexpr___main___closed__42; +x_2053 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2053, 0, x_2052); +lean::cnstr_set(x_2053, 1, x_3); +x_2054 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2054, 0, x_2053); +return x_2054; } else { -obj* x_2051; -x_2051 = lean::cnstr_get(x_2041, 0); -lean::inc(x_2051); -lean::dec(x_2041); -x_15 = x_2051; -goto lbl_16; -} -} -else -{ -obj* x_2054; obj* x_2057; obj* x_2058; obj* x_2060; obj* x_2063; obj* x_2065; obj* x_2069; -x_2054 = lean::cnstr_get(x_2033, 0); -lean::inc(x_2054); -lean::dec(x_2033); -x_2057 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2054); -x_2058 = lean::cnstr_get(x_2057, 1); +obj* x_2055; obj* x_2058; obj* x_2061; obj* x_2064; obj* x_2065; obj* x_2067; obj* x_2068; obj* x_2069; obj* x_2070; obj* x_2073; obj* x_2074; obj* x_2075; obj* x_2076; obj* x_2077; obj* x_2078; +x_2055 = lean::cnstr_get(x_2049, 0); +lean::inc(x_2055); +lean::dec(x_2049); +x_2058 = lean::cnstr_get(x_2, 0); lean::inc(x_2058); -x_2060 = lean::cnstr_get(x_2057, 0); -lean::inc(x_2060); -lean::dec(x_2057); -x_2063 = lean::cnstr_get(x_2058, 0); -lean::inc(x_2063); -x_2065 = lean::cnstr_get(x_2058, 1); -lean::inc(x_2065); +lean::dec(x_2); +x_2061 = lean::cnstr_get(x_2058, 2); +lean::inc(x_2061); lean::dec(x_2058); -lean::inc(x_2); -x_2069 = l_Lean_Elaborator_toPexpr___main(x_2065, x_1, x_2, x_3); -if (lean::obj_tag(x_2069) == 0) -{ -obj* x_2076; obj* x_2078; obj* x_2079; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2032); -lean::dec(x_2063); -lean::dec(x_2060); -x_2076 = lean::cnstr_get(x_2069, 0); -if (lean::is_exclusive(x_2069)) { - x_2078 = x_2069; -} else { - lean::inc(x_2076); - lean::dec(x_2069); - x_2078 = lean::box(0); +x_2064 = l_Lean_FileMap_toPosition(x_2061, x_2055); +x_2065 = lean::cnstr_get(x_2064, 1); +lean::inc(x_2065); +x_2067 = lean::box(0); +x_2068 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2069 = l_Lean_KVMap_setNat(x_2067, x_2068, x_2065); +x_2070 = lean::cnstr_get(x_2064, 0); +lean::inc(x_2070); +lean::dec(x_2064); +x_2073 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2074 = l_Lean_KVMap_setNat(x_2069, x_2073, x_2070); +x_2075 = l_Lean_Elaborator_toPexpr___main___closed__42; +x_2076 = lean_expr_mk_mdata(x_2074, x_2075); +x_2077 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2077, 0, x_2076); +lean::cnstr_set(x_2077, 1, x_3); +x_2078 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2078, 0, x_2077); +return x_2078; +} } -if (lean::is_scalar(x_2078)) { - x_2079 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2079 = x_2078; } -lean::cnstr_set(x_2079, 0, x_2076); -return x_2079; } else { -obj* x_2080; obj* x_2083; obj* x_2085; obj* x_2088; obj* x_2092; -x_2080 = lean::cnstr_get(x_2069, 0); -lean::inc(x_2080); -lean::dec(x_2069); -x_2083 = lean::cnstr_get(x_2080, 0); -lean::inc(x_2083); -x_2085 = lean::cnstr_get(x_2080, 1); -lean::inc(x_2085); +obj* x_2080; obj* x_2081; obj* x_2085; obj* x_2086; +lean::dec(x_10); +x_2080 = l_Lean_Parser_Term_pi_HasView; +x_2081 = lean::cnstr_get(x_2080, 0); +lean::inc(x_2081); lean::dec(x_2080); -x_2088 = lean::cnstr_get(x_2032, 3); -lean::inc(x_2088); -lean::dec(x_2032); -lean::inc(x_2); -x_2092 = l_Lean_Elaborator_toPexpr___main(x_2088, x_1, x_2, x_2085); -if (lean::obj_tag(x_2092) == 0) -{ -obj* x_2099; obj* x_2101; obj* x_2102; -lean::dec(x_8); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_2063); -lean::dec(x_2060); -lean::dec(x_2083); -x_2099 = lean::cnstr_get(x_2092, 0); -if (lean::is_exclusive(x_2092)) { - x_2101 = x_2092; -} else { - lean::inc(x_2099); - lean::dec(x_2092); - x_2101 = lean::box(0); -} -if (lean::is_scalar(x_2101)) { - x_2102 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2102 = x_2101; -} -lean::cnstr_set(x_2102, 0, x_2099); -return x_2102; -} -else -{ -obj* x_2103; obj* x_2106; obj* x_2108; obj* x_2110; obj* x_2111; uint8 x_2112; obj* x_2113; obj* x_2114; -x_2103 = lean::cnstr_get(x_2092, 0); -lean::inc(x_2103); -lean::dec(x_2092); -x_2106 = lean::cnstr_get(x_2103, 0); -x_2108 = lean::cnstr_get(x_2103, 1); -if (lean::is_exclusive(x_2103)) { - x_2110 = x_2103; -} else { - lean::inc(x_2106); - lean::inc(x_2108); - lean::dec(x_2103); - x_2110 = lean::box(0); -} -x_2111 = l_Lean_Elaborator_mangleIdent(x_2063); -x_2112 = lean::unbox(x_2060); -x_2113 = lean_expr_mk_pi(x_2111, x_2112, x_2083, x_2106); -if (lean::is_scalar(x_2110)) { - x_2114 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2114 = x_2110; -} -lean::cnstr_set(x_2114, 0, x_2113); -lean::cnstr_set(x_2114, 1, x_2108); -x_15 = x_2114; -goto lbl_16; -} -} -} -} -} -else -{ -obj* x_2116; obj* x_2117; obj* x_2121; obj* x_2122; -lean::dec(x_10); -x_2116 = l_Lean_Parser_Term_lambda_HasView; -x_2117 = lean::cnstr_get(x_2116, 0); -lean::inc(x_2117); -lean::dec(x_2116); lean::inc(x_0); -x_2121 = lean::apply_1(x_2117, x_0); -x_2122 = lean::cnstr_get(x_2121, 1); -lean::inc(x_2122); -if (lean::obj_tag(x_2122) == 0) +x_2085 = lean::apply_1(x_2081, x_0); +x_2086 = lean::cnstr_get(x_2085, 1); +lean::inc(x_2086); +if (lean::obj_tag(x_2086) == 0) { -obj* x_2127; obj* x_2128; obj* x_2130; -lean::dec(x_2121); -lean::dec(x_2122); +obj* x_2091; obj* x_2092; obj* x_2094; +lean::dec(x_2086); +lean::dec(x_2085); lean::inc(x_0); -x_2127 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2127, 0, x_0); -x_2128 = l_Lean_Elaborator_toPexpr___main___closed__44; +x_2091 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2091, 0, x_0); +x_2092 = l_Lean_Elaborator_toPexpr___main___closed__43; lean::inc(x_2); -x_2130 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2127, x_2128, x_1, x_2, x_3); +x_2094 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2091, x_2092, x_1, x_2, x_3); lean::dec(x_3); -lean::dec(x_2127); -if (lean::obj_tag(x_2130) == 0) +lean::dec(x_1); +lean::dec(x_2091); +if (lean::obj_tag(x_2094) == 0) { -obj* x_2136; obj* x_2138; obj* x_2139; +obj* x_2101; obj* x_2103; obj* x_2104; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_2136 = lean::cnstr_get(x_2130, 0); -if (lean::is_exclusive(x_2130)) { - x_2138 = x_2130; +x_2101 = lean::cnstr_get(x_2094, 0); +if (lean::is_exclusive(x_2094)) { + x_2103 = x_2094; } else { - lean::inc(x_2136); - lean::dec(x_2130); - x_2138 = lean::box(0); + lean::inc(x_2101); + lean::dec(x_2094); + x_2103 = lean::box(0); } -if (lean::is_scalar(x_2138)) { - x_2139 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2103)) { + x_2104 = lean::alloc_cnstr(0, 1, 0); } else { - x_2139 = x_2138; + x_2104 = x_2103; } -lean::cnstr_set(x_2139, 0, x_2136); -return x_2139; +lean::cnstr_set(x_2104, 0, x_2101); +return x_2104; } else { -obj* x_2140; -x_2140 = lean::cnstr_get(x_2130, 0); -lean::inc(x_2140); -lean::dec(x_2130); -x_15 = x_2140; +obj* x_2105; +x_2105 = lean::cnstr_get(x_2094, 0); +lean::inc(x_2105); +lean::dec(x_2094); +x_15 = x_2105; goto lbl_16; } } else { -obj* x_2143; obj* x_2146; obj* x_2147; obj* x_2149; obj* x_2152; obj* x_2154; obj* x_2158; -x_2143 = lean::cnstr_get(x_2122, 0); -lean::inc(x_2143); -lean::dec(x_2122); -x_2146 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2143); -x_2147 = lean::cnstr_get(x_2146, 1); -lean::inc(x_2147); -x_2149 = lean::cnstr_get(x_2146, 0); -lean::inc(x_2149); -lean::dec(x_2146); -x_2152 = lean::cnstr_get(x_2147, 0); -lean::inc(x_2152); -x_2154 = lean::cnstr_get(x_2147, 1); -lean::inc(x_2154); -lean::dec(x_2147); +obj* x_2108; obj* x_2111; obj* x_2112; obj* x_2114; obj* x_2117; obj* x_2119; obj* x_2124; +x_2108 = lean::cnstr_get(x_2086, 0); +lean::inc(x_2108); +lean::dec(x_2086); +x_2111 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2108); +x_2112 = lean::cnstr_get(x_2111, 1); +lean::inc(x_2112); +x_2114 = lean::cnstr_get(x_2111, 0); +lean::inc(x_2114); +lean::dec(x_2111); +x_2117 = lean::cnstr_get(x_2112, 0); +lean::inc(x_2117); +x_2119 = lean::cnstr_get(x_2112, 1); +lean::inc(x_2119); +lean::dec(x_2112); lean::inc(x_2); -x_2158 = l_Lean_Elaborator_toPexpr___main(x_2154, x_1, x_2, x_3); -if (lean::obj_tag(x_2158) == 0) +lean::inc(x_1); +x_2124 = l_Lean_Elaborator_toPexpr___main(x_2119, x_1, x_2, x_3); +if (lean::obj_tag(x_2124) == 0) { -obj* x_2165; obj* x_2167; obj* x_2168; +obj* x_2132; obj* x_2134; obj* x_2135; lean::dec(x_8); +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_2121); -lean::dec(x_2149); -lean::dec(x_2152); -x_2165 = lean::cnstr_get(x_2158, 0); -if (lean::is_exclusive(x_2158)) { - x_2167 = x_2158; +lean::dec(x_2085); +lean::dec(x_2114); +lean::dec(x_2117); +x_2132 = lean::cnstr_get(x_2124, 0); +if (lean::is_exclusive(x_2124)) { + x_2134 = x_2124; } else { - lean::inc(x_2165); - lean::dec(x_2158); - x_2167 = lean::box(0); + lean::inc(x_2132); + lean::dec(x_2124); + x_2134 = lean::box(0); } -if (lean::is_scalar(x_2167)) { - x_2168 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2134)) { + x_2135 = lean::alloc_cnstr(0, 1, 0); } else { - x_2168 = x_2167; + x_2135 = x_2134; } -lean::cnstr_set(x_2168, 0, x_2165); -return x_2168; +lean::cnstr_set(x_2135, 0, x_2132); +return x_2135; } else { -obj* x_2169; obj* x_2172; obj* x_2174; obj* x_2177; obj* x_2181; -x_2169 = lean::cnstr_get(x_2158, 0); -lean::inc(x_2169); -lean::dec(x_2158); -x_2172 = lean::cnstr_get(x_2169, 0); -lean::inc(x_2172); -x_2174 = lean::cnstr_get(x_2169, 1); -lean::inc(x_2174); -lean::dec(x_2169); -x_2177 = lean::cnstr_get(x_2121, 3); -lean::inc(x_2177); -lean::dec(x_2121); +obj* x_2136; obj* x_2139; obj* x_2141; obj* x_2144; obj* x_2148; +x_2136 = lean::cnstr_get(x_2124, 0); +lean::inc(x_2136); +lean::dec(x_2124); +x_2139 = lean::cnstr_get(x_2136, 0); +lean::inc(x_2139); +x_2141 = lean::cnstr_get(x_2136, 1); +lean::inc(x_2141); +lean::dec(x_2136); +x_2144 = lean::cnstr_get(x_2085, 3); +lean::inc(x_2144); +lean::dec(x_2085); lean::inc(x_2); -x_2181 = l_Lean_Elaborator_toPexpr___main(x_2177, x_1, x_2, x_2174); -if (lean::obj_tag(x_2181) == 0) +x_2148 = l_Lean_Elaborator_toPexpr___main(x_2144, x_1, x_2, x_2141); +if (lean::obj_tag(x_2148) == 0) { -obj* x_2188; obj* x_2190; obj* x_2191; +obj* x_2155; obj* x_2157; obj* x_2158; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_2114); +lean::dec(x_2117); +lean::dec(x_2139); +x_2155 = lean::cnstr_get(x_2148, 0); +if (lean::is_exclusive(x_2148)) { + x_2157 = x_2148; +} else { + lean::inc(x_2155); + lean::dec(x_2148); + x_2157 = lean::box(0); +} +if (lean::is_scalar(x_2157)) { + x_2158 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2158 = x_2157; +} +lean::cnstr_set(x_2158, 0, x_2155); +return x_2158; +} +else +{ +obj* x_2159; obj* x_2162; obj* x_2164; obj* x_2166; obj* x_2167; uint8 x_2168; obj* x_2169; obj* x_2170; +x_2159 = lean::cnstr_get(x_2148, 0); +lean::inc(x_2159); +lean::dec(x_2148); +x_2162 = lean::cnstr_get(x_2159, 0); +x_2164 = lean::cnstr_get(x_2159, 1); +if (lean::is_exclusive(x_2159)) { + x_2166 = x_2159; +} else { + lean::inc(x_2162); + lean::inc(x_2164); + lean::dec(x_2159); + x_2166 = lean::box(0); +} +x_2167 = l_Lean_Elaborator_mangleIdent(x_2117); +x_2168 = lean::unbox(x_2114); +x_2169 = lean_expr_mk_pi(x_2167, x_2168, x_2139, x_2162); +if (lean::is_scalar(x_2166)) { + x_2170 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2170 = x_2166; +} +lean::cnstr_set(x_2170, 0, x_2169); +lean::cnstr_set(x_2170, 1, x_2164); +x_15 = x_2170; +goto lbl_16; +} +} +} +} +} +else +{ +obj* x_2172; obj* x_2173; obj* x_2177; obj* x_2178; +lean::dec(x_10); +x_2172 = l_Lean_Parser_Term_lambda_HasView; +x_2173 = lean::cnstr_get(x_2172, 0); +lean::inc(x_2173); lean::dec(x_2172); +lean::inc(x_0); +x_2177 = lean::apply_1(x_2173, x_0); +x_2178 = lean::cnstr_get(x_2177, 1); +lean::inc(x_2178); +if (lean::obj_tag(x_2178) == 0) +{ +obj* x_2183; obj* x_2184; obj* x_2186; +lean::dec(x_2177); +lean::dec(x_2178); +lean::inc(x_0); +x_2183 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2183, 0, x_0); +x_2184 = l_Lean_Elaborator_toPexpr___main___closed__44; +lean::inc(x_2); +x_2186 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2183, x_2184, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_1); +lean::dec(x_2183); +if (lean::obj_tag(x_2186) == 0) +{ +obj* x_2193; obj* x_2195; obj* x_2196; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_2149); -lean::dec(x_2152); -x_2188 = lean::cnstr_get(x_2181, 0); -if (lean::is_exclusive(x_2181)) { - x_2190 = x_2181; +x_2193 = lean::cnstr_get(x_2186, 0); +if (lean::is_exclusive(x_2186)) { + x_2195 = x_2186; } else { - lean::inc(x_2188); - lean::dec(x_2181); - x_2190 = lean::box(0); + lean::inc(x_2193); + lean::dec(x_2186); + x_2195 = lean::box(0); } -if (lean::is_scalar(x_2190)) { - x_2191 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2195)) { + x_2196 = lean::alloc_cnstr(0, 1, 0); } else { - x_2191 = x_2190; + x_2196 = x_2195; } -lean::cnstr_set(x_2191, 0, x_2188); -return x_2191; +lean::cnstr_set(x_2196, 0, x_2193); +return x_2196; } else { -obj* x_2192; obj* x_2195; obj* x_2197; obj* x_2199; obj* x_2200; uint8 x_2201; obj* x_2202; obj* x_2203; -x_2192 = lean::cnstr_get(x_2181, 0); -lean::inc(x_2192); -lean::dec(x_2181); -x_2195 = lean::cnstr_get(x_2192, 0); -x_2197 = lean::cnstr_get(x_2192, 1); -if (lean::is_exclusive(x_2192)) { - x_2199 = x_2192; -} else { - lean::inc(x_2195); - lean::inc(x_2197); - lean::dec(x_2192); - x_2199 = lean::box(0); +obj* x_2197; +x_2197 = lean::cnstr_get(x_2186, 0); +lean::inc(x_2197); +lean::dec(x_2186); +x_15 = x_2197; +goto lbl_16; } -x_2200 = l_Lean_Elaborator_mangleIdent(x_2152); -x_2201 = lean::unbox(x_2149); -x_2202 = lean_expr_mk_lambda(x_2200, x_2201, x_2172, x_2195); -if (lean::is_scalar(x_2199)) { - x_2203 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2203 = x_2199; } -lean::cnstr_set(x_2203, 0, x_2202); -lean::cnstr_set(x_2203, 1, x_2197); -x_15 = x_2203; +else +{ +obj* x_2200; obj* x_2203; obj* x_2204; obj* x_2206; obj* x_2209; obj* x_2211; obj* x_2216; +x_2200 = lean::cnstr_get(x_2178, 0); +lean::inc(x_2200); +lean::dec(x_2178); +x_2203 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_2200); +x_2204 = lean::cnstr_get(x_2203, 1); +lean::inc(x_2204); +x_2206 = lean::cnstr_get(x_2203, 0); +lean::inc(x_2206); +lean::dec(x_2203); +x_2209 = lean::cnstr_get(x_2204, 0); +lean::inc(x_2209); +x_2211 = lean::cnstr_get(x_2204, 1); +lean::inc(x_2211); +lean::dec(x_2204); +lean::inc(x_2); +lean::inc(x_1); +x_2216 = l_Lean_Elaborator_toPexpr___main(x_2211, x_1, x_2, x_3); +if (lean::obj_tag(x_2216) == 0) +{ +obj* x_2224; obj* x_2226; obj* x_2227; +lean::dec(x_2209); +lean::dec(x_8); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_2177); +lean::dec(x_2206); +x_2224 = lean::cnstr_get(x_2216, 0); +if (lean::is_exclusive(x_2216)) { + x_2226 = x_2216; +} else { + lean::inc(x_2224); + lean::dec(x_2216); + x_2226 = lean::box(0); +} +if (lean::is_scalar(x_2226)) { + x_2227 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2227 = x_2226; +} +lean::cnstr_set(x_2227, 0, x_2224); +return x_2227; +} +else +{ +obj* x_2228; obj* x_2231; obj* x_2233; obj* x_2236; obj* x_2240; +x_2228 = lean::cnstr_get(x_2216, 0); +lean::inc(x_2228); +lean::dec(x_2216); +x_2231 = lean::cnstr_get(x_2228, 0); +lean::inc(x_2231); +x_2233 = lean::cnstr_get(x_2228, 1); +lean::inc(x_2233); +lean::dec(x_2228); +x_2236 = lean::cnstr_get(x_2177, 3); +lean::inc(x_2236); +lean::dec(x_2177); +lean::inc(x_2); +x_2240 = l_Lean_Elaborator_toPexpr___main(x_2236, x_1, x_2, x_2233); +if (lean::obj_tag(x_2240) == 0) +{ +obj* x_2247; obj* x_2249; obj* x_2250; +lean::dec(x_2209); +lean::dec(x_2231); +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_2206); +x_2247 = lean::cnstr_get(x_2240, 0); +if (lean::is_exclusive(x_2240)) { + x_2249 = x_2240; +} else { + lean::inc(x_2247); + lean::dec(x_2240); + x_2249 = lean::box(0); +} +if (lean::is_scalar(x_2249)) { + x_2250 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2250 = x_2249; +} +lean::cnstr_set(x_2250, 0, x_2247); +return x_2250; +} +else +{ +obj* x_2251; obj* x_2254; obj* x_2256; obj* x_2258; obj* x_2259; uint8 x_2260; obj* x_2261; obj* x_2262; +x_2251 = lean::cnstr_get(x_2240, 0); +lean::inc(x_2251); +lean::dec(x_2240); +x_2254 = lean::cnstr_get(x_2251, 0); +x_2256 = lean::cnstr_get(x_2251, 1); +if (lean::is_exclusive(x_2251)) { + x_2258 = x_2251; +} else { + lean::inc(x_2254); + lean::inc(x_2256); + lean::dec(x_2251); + x_2258 = lean::box(0); +} +x_2259 = l_Lean_Elaborator_mangleIdent(x_2209); +x_2260 = lean::unbox(x_2206); +x_2261 = lean_expr_mk_lambda(x_2259, x_2260, x_2231, x_2254); +if (lean::is_scalar(x_2258)) { + x_2262 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2262 = x_2258; +} +lean::cnstr_set(x_2262, 0, x_2261); +lean::cnstr_set(x_2262, 1, x_2256); +x_15 = x_2262; goto lbl_16; } } @@ -11430,365 +10034,368 @@ goto lbl_16; } else { -obj* x_2206; obj* x_2207; obj* x_2210; obj* x_2211; obj* x_2214; +obj* x_2265; obj* x_2266; obj* x_2269; obj* x_2270; obj* x_2274; lean::dec(x_8); lean::dec(x_10); -x_2206 = l_Lean_Parser_Term_app_HasView; -x_2207 = lean::cnstr_get(x_2206, 0); -lean::inc(x_2207); -lean::dec(x_2206); -x_2210 = lean::apply_1(x_2207, x_0); -x_2211 = lean::cnstr_get(x_2210, 0); -lean::inc(x_2211); +x_2265 = l_Lean_Parser_Term_app_HasView; +x_2266 = lean::cnstr_get(x_2265, 0); +lean::inc(x_2266); +lean::dec(x_2265); +x_2269 = lean::apply_1(x_2266, x_0); +x_2270 = lean::cnstr_get(x_2269, 0); +lean::inc(x_2270); lean::inc(x_2); -x_2214 = l_Lean_Elaborator_toPexpr___main(x_2211, x_1, x_2, x_3); -if (lean::obj_tag(x_2214) == 0) +lean::inc(x_1); +x_2274 = l_Lean_Elaborator_toPexpr___main(x_2270, x_1, x_2, x_3); +if (lean::obj_tag(x_2274) == 0) { -obj* x_2217; obj* x_2219; obj* x_2220; -lean::dec(x_2210); +obj* x_2278; obj* x_2280; obj* x_2281; +lean::dec(x_1); lean::dec(x_2); -x_2217 = lean::cnstr_get(x_2214, 0); -if (lean::is_exclusive(x_2214)) { - x_2219 = x_2214; +lean::dec(x_2269); +x_2278 = lean::cnstr_get(x_2274, 0); +if (lean::is_exclusive(x_2274)) { + x_2280 = x_2274; } else { - lean::inc(x_2217); - lean::dec(x_2214); - x_2219 = lean::box(0); + lean::inc(x_2278); + lean::dec(x_2274); + x_2280 = lean::box(0); } -if (lean::is_scalar(x_2219)) { - x_2220 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2280)) { + x_2281 = lean::alloc_cnstr(0, 1, 0); } else { - x_2220 = x_2219; + x_2281 = x_2280; } -lean::cnstr_set(x_2220, 0, x_2217); -return x_2220; +lean::cnstr_set(x_2281, 0, x_2278); +return x_2281; } else { -obj* x_2221; obj* x_2224; obj* x_2226; obj* x_2229; obj* x_2232; -x_2221 = lean::cnstr_get(x_2214, 0); -lean::inc(x_2221); -lean::dec(x_2214); -x_2224 = lean::cnstr_get(x_2221, 0); -lean::inc(x_2224); -x_2226 = lean::cnstr_get(x_2221, 1); -lean::inc(x_2226); -lean::dec(x_2221); -x_2229 = lean::cnstr_get(x_2210, 1); -lean::inc(x_2229); -lean::dec(x_2210); -x_2232 = l_Lean_Elaborator_toPexpr___main(x_2229, x_1, x_2, x_2226); -if (lean::obj_tag(x_2232) == 0) -{ -obj* x_2234; obj* x_2236; obj* x_2237; -lean::dec(x_2224); -x_2234 = lean::cnstr_get(x_2232, 0); -if (lean::is_exclusive(x_2232)) { - x_2236 = x_2232; -} else { - lean::inc(x_2234); - lean::dec(x_2232); - x_2236 = lean::box(0); -} -if (lean::is_scalar(x_2236)) { - x_2237 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2237 = x_2236; -} -lean::cnstr_set(x_2237, 0, x_2234); -return x_2237; -} -else -{ -obj* x_2238; obj* x_2240; obj* x_2241; obj* x_2243; obj* x_2245; obj* x_2246; obj* x_2247; obj* x_2248; -x_2238 = lean::cnstr_get(x_2232, 0); -if (lean::is_exclusive(x_2232)) { - x_2240 = x_2232; -} else { - lean::inc(x_2238); - lean::dec(x_2232); - x_2240 = lean::box(0); -} -x_2241 = lean::cnstr_get(x_2238, 0); -x_2243 = lean::cnstr_get(x_2238, 1); -if (lean::is_exclusive(x_2238)) { - x_2245 = x_2238; -} else { - lean::inc(x_2241); - lean::inc(x_2243); - lean::dec(x_2238); - x_2245 = lean::box(0); -} -x_2246 = lean_expr_mk_app(x_2224, x_2241); -if (lean::is_scalar(x_2245)) { - x_2247 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2247 = x_2245; -} -lean::cnstr_set(x_2247, 0, x_2246); -lean::cnstr_set(x_2247, 1, x_2243); -if (lean::is_scalar(x_2240)) { - x_2248 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2248 = x_2240; -} -lean::cnstr_set(x_2248, 0, x_2247); -return x_2248; -} -} -} -} -else -{ -obj* x_2250; obj* x_2251; obj* x_2255; obj* x_2256; -lean::dec(x_10); -x_2250 = l_Lean_Parser_identUnivs_HasView; -x_2251 = lean::cnstr_get(x_2250, 0); -lean::inc(x_2251); -lean::dec(x_2250); -lean::inc(x_0); -x_2255 = lean::apply_1(x_2251, x_0); -x_2256 = lean::cnstr_get(x_2255, 1); -lean::inc(x_2256); -if (lean::obj_tag(x_2256) == 0) -{ -obj* x_2258; obj* x_2262; obj* x_2263; obj* x_2264; obj* x_2265; obj* x_2268; obj* x_2269; obj* x_2270; obj* x_2271; obj* x_2272; obj* x_2273; uint8 x_2274; -x_2258 = lean::cnstr_get(x_2255, 0); -lean::inc(x_2258); -lean::dec(x_2255); -lean::inc(x_2258); -x_2262 = l_Lean_Elaborator_mangleIdent(x_2258); -x_2263 = lean::box(0); -x_2264 = lean_expr_mk_const(x_2262, x_2263); -x_2265 = lean::cnstr_get(x_2258, 3); -lean::inc(x_2265); -lean::dec(x_2258); -x_2268 = lean::mk_nat_obj(0ul); -x_2269 = l_List_enumFrom___main___rarg(x_2268, x_2265); -x_2270 = l_Lean_Elaborator_toPexpr___main___closed__45; -x_2271 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__16(x_2270, x_2269); -x_2272 = lean_expr_mk_mdata(x_2271, x_2264); -x_2273 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2274 = lean_name_dec_eq(x_8, x_2273); -lean::dec(x_8); -if (x_2274 == 0) -{ -obj* x_2276; -x_2276 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_2276) == 0) -{ -obj* x_2279; obj* x_2280; -lean::dec(x_2); -x_2279 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2279, 0, x_2272); -lean::cnstr_set(x_2279, 1, x_3); -x_2280 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2280, 0, x_2279); -return x_2280; -} -else -{ -obj* x_2281; obj* x_2284; obj* x_2287; obj* x_2290; obj* x_2291; obj* x_2293; obj* x_2294; obj* x_2295; obj* x_2298; obj* x_2299; obj* x_2300; obj* x_2301; obj* x_2302; -x_2281 = lean::cnstr_get(x_2276, 0); -lean::inc(x_2281); -lean::dec(x_2276); -x_2284 = lean::cnstr_get(x_2, 0); -lean::inc(x_2284); -lean::dec(x_2); -x_2287 = lean::cnstr_get(x_2284, 2); +obj* x_2282; obj* x_2285; obj* x_2287; obj* x_2290; obj* x_2293; +x_2282 = lean::cnstr_get(x_2274, 0); +lean::inc(x_2282); +lean::dec(x_2274); +x_2285 = lean::cnstr_get(x_2282, 0); +lean::inc(x_2285); +x_2287 = lean::cnstr_get(x_2282, 1); lean::inc(x_2287); -lean::dec(x_2284); -x_2290 = l_Lean_FileMap_toPosition(x_2287, x_2281); -x_2291 = lean::cnstr_get(x_2290, 1); -lean::inc(x_2291); -x_2293 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2294 = l_Lean_KVMap_setNat(x_2263, x_2293, x_2291); -x_2295 = lean::cnstr_get(x_2290, 0); -lean::inc(x_2295); -lean::dec(x_2290); -x_2298 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2299 = l_Lean_KVMap_setNat(x_2294, x_2298, x_2295); -x_2300 = lean_expr_mk_mdata(x_2299, x_2272); -x_2301 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2301, 0, x_2300); -lean::cnstr_set(x_2301, 1, x_3); -x_2302 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2302, 0, x_2301); -return x_2302; +lean::dec(x_2282); +x_2290 = lean::cnstr_get(x_2269, 1); +lean::inc(x_2290); +lean::dec(x_2269); +x_2293 = l_Lean_Elaborator_toPexpr___main(x_2290, x_1, x_2, x_2287); +if (lean::obj_tag(x_2293) == 0) +{ +obj* x_2295; obj* x_2297; obj* x_2298; +lean::dec(x_2285); +x_2295 = lean::cnstr_get(x_2293, 0); +if (lean::is_exclusive(x_2293)) { + x_2297 = x_2293; +} else { + lean::inc(x_2295); + lean::dec(x_2293); + x_2297 = lean::box(0); +} +if (lean::is_scalar(x_2297)) { + x_2298 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2298 = x_2297; +} +lean::cnstr_set(x_2298, 0, x_2295); +return x_2298; +} +else +{ +obj* x_2299; obj* x_2301; obj* x_2302; obj* x_2304; obj* x_2306; obj* x_2307; obj* x_2308; obj* x_2309; +x_2299 = lean::cnstr_get(x_2293, 0); +if (lean::is_exclusive(x_2293)) { + x_2301 = x_2293; +} else { + lean::inc(x_2299); + lean::dec(x_2293); + x_2301 = lean::box(0); +} +x_2302 = lean::cnstr_get(x_2299, 0); +x_2304 = lean::cnstr_get(x_2299, 1); +if (lean::is_exclusive(x_2299)) { + x_2306 = x_2299; +} else { + lean::inc(x_2302); + lean::inc(x_2304); + lean::dec(x_2299); + x_2306 = lean::box(0); +} +x_2307 = lean_expr_mk_app(x_2285, x_2302); +if (lean::is_scalar(x_2306)) { + x_2308 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2308 = x_2306; +} +lean::cnstr_set(x_2308, 0, x_2307); +lean::cnstr_set(x_2308, 1, x_2304); +if (lean::is_scalar(x_2301)) { + x_2309 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2309 = x_2301; +} +lean::cnstr_set(x_2309, 0, x_2308); +return x_2309; +} +} } } else { -obj* x_2305; obj* x_2306; -lean::dec(x_0); -lean::dec(x_2); -x_2305 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2305, 0, x_2272); -lean::cnstr_set(x_2305, 1, x_3); -x_2306 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2306, 0, x_2305); -return x_2306; -} -} -else -{ -obj* x_2307; obj* x_2310; obj* x_2313; obj* x_2317; -x_2307 = lean::cnstr_get(x_2255, 0); -lean::inc(x_2307); -lean::dec(x_2255); -x_2310 = lean::cnstr_get(x_2256, 0); -lean::inc(x_2310); -lean::dec(x_2256); -x_2313 = lean::cnstr_get(x_2310, 1); -lean::inc(x_2313); -lean::dec(x_2310); -lean::inc(x_2); -x_2317 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_2313, x_1, x_2, x_3); +obj* x_2311; obj* x_2312; obj* x_2316; obj* x_2317; +lean::dec(x_10); +x_2311 = l_Lean_Parser_identUnivs_HasView; +x_2312 = lean::cnstr_get(x_2311, 0); +lean::inc(x_2312); +lean::dec(x_2311); +lean::inc(x_0); +x_2316 = lean::apply_1(x_2312, x_0); +x_2317 = lean::cnstr_get(x_2316, 1); +lean::inc(x_2317); if (lean::obj_tag(x_2317) == 0) { -obj* x_2322; obj* x_2324; obj* x_2325; +obj* x_2320; obj* x_2324; obj* x_2325; obj* x_2326; obj* x_2327; obj* x_2330; obj* x_2331; obj* x_2332; obj* x_2333; obj* x_2334; obj* x_2335; uint8 x_2336; +lean::dec(x_1); +x_2320 = lean::cnstr_get(x_2316, 0); +lean::inc(x_2320); +lean::dec(x_2316); +lean::inc(x_2320); +x_2324 = l_Lean_Elaborator_mangleIdent(x_2320); +x_2325 = lean::box(0); +x_2326 = lean_expr_mk_const(x_2324, x_2325); +x_2327 = lean::cnstr_get(x_2320, 3); +lean::inc(x_2327); +lean::dec(x_2320); +x_2330 = lean::mk_nat_obj(0ul); +x_2331 = l_List_enumFrom___main___rarg(x_2330, x_2327); +x_2332 = l_Lean_Elaborator_toPexpr___main___closed__45; +x_2333 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__16(x_2332, x_2331); +x_2334 = lean_expr_mk_mdata(x_2333, x_2326); +x_2335 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2336 = lean_name_dec_eq(x_8, x_2335); lean::dec(x_8); +if (x_2336 == 0) +{ +obj* x_2338; +x_2338 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); +if (lean::obj_tag(x_2338) == 0) +{ +obj* x_2341; obj* x_2342; lean::dec(x_2); -lean::dec(x_2307); -x_2322 = lean::cnstr_get(x_2317, 0); -if (lean::is_exclusive(x_2317)) { - x_2324 = x_2317; -} else { - lean::inc(x_2322); - lean::dec(x_2317); - x_2324 = lean::box(0); -} -if (lean::is_scalar(x_2324)) { - x_2325 = lean::alloc_cnstr(0, 1, 0); -} else { - x_2325 = x_2324; -} -lean::cnstr_set(x_2325, 0, x_2322); -return x_2325; +x_2341 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2341, 0, x_2334); +lean::cnstr_set(x_2341, 1, x_3); +x_2342 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2342, 0, x_2341); +return x_2342; } else { -obj* x_2326; obj* x_2328; obj* x_2329; obj* x_2331; obj* x_2333; obj* x_2335; obj* x_2336; obj* x_2337; obj* x_2340; obj* x_2341; obj* x_2342; obj* x_2343; obj* x_2344; obj* x_2345; uint8 x_2346; -x_2326 = lean::cnstr_get(x_2317, 0); -if (lean::is_exclusive(x_2317)) { - lean::cnstr_set(x_2317, 0, lean::box(0)); - x_2328 = x_2317; -} else { - lean::inc(x_2326); - lean::dec(x_2317); - x_2328 = lean::box(0); -} -x_2329 = lean::cnstr_get(x_2326, 0); -x_2331 = lean::cnstr_get(x_2326, 1); -if (lean::is_exclusive(x_2326)) { - lean::cnstr_set(x_2326, 0, lean::box(0)); - lean::cnstr_set(x_2326, 1, lean::box(0)); - x_2333 = x_2326; -} else { - lean::inc(x_2329); - lean::inc(x_2331); - lean::dec(x_2326); - x_2333 = lean::box(0); -} -lean::inc(x_2307); -x_2335 = l_Lean_Elaborator_mangleIdent(x_2307); -x_2336 = lean_expr_mk_const(x_2335, x_2329); -x_2337 = lean::cnstr_get(x_2307, 3); -lean::inc(x_2337); -lean::dec(x_2307); -x_2340 = lean::mk_nat_obj(0ul); -x_2341 = l_List_enumFrom___main___rarg(x_2340, x_2337); -x_2342 = l_Lean_Elaborator_toPexpr___main___closed__46; -x_2343 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__16(x_2342, x_2341); -x_2344 = lean_expr_mk_mdata(x_2343, x_2336); -x_2345 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2346 = lean_name_dec_eq(x_8, x_2345); -lean::dec(x_8); -if (x_2346 == 0) -{ -obj* x_2348; -x_2348 = l_Lean_Parser_Syntax_getPos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_2348) == 0) -{ -obj* x_2351; obj* x_2352; +obj* x_2343; obj* x_2346; obj* x_2349; obj* x_2352; obj* x_2353; obj* x_2355; obj* x_2356; obj* x_2357; obj* x_2360; obj* x_2361; obj* x_2362; obj* x_2363; obj* x_2364; +x_2343 = lean::cnstr_get(x_2338, 0); +lean::inc(x_2343); +lean::dec(x_2338); +x_2346 = lean::cnstr_get(x_2, 0); +lean::inc(x_2346); lean::dec(x_2); -if (lean::is_scalar(x_2333)) { - x_2351 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2351 = x_2333; -} -lean::cnstr_set(x_2351, 0, x_2344); -lean::cnstr_set(x_2351, 1, x_2331); -if (lean::is_scalar(x_2328)) { - x_2352 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2352 = x_2328; -} -lean::cnstr_set(x_2352, 0, x_2351); -return x_2352; -} -else -{ -obj* x_2353; obj* x_2356; obj* x_2357; obj* x_2360; obj* x_2363; obj* x_2364; obj* x_2366; obj* x_2367; obj* x_2368; obj* x_2371; obj* x_2372; obj* x_2373; obj* x_2374; obj* x_2375; -x_2353 = lean::cnstr_get(x_2348, 0); +x_2349 = lean::cnstr_get(x_2346, 2); +lean::inc(x_2349); +lean::dec(x_2346); +x_2352 = l_Lean_FileMap_toPosition(x_2349, x_2343); +x_2353 = lean::cnstr_get(x_2352, 1); lean::inc(x_2353); -lean::dec(x_2348); -x_2356 = lean::box(0); -x_2357 = lean::cnstr_get(x_2, 0); +x_2355 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2356 = l_Lean_KVMap_setNat(x_2325, x_2355, x_2353); +x_2357 = lean::cnstr_get(x_2352, 0); lean::inc(x_2357); -lean::dec(x_2); -x_2360 = lean::cnstr_get(x_2357, 2); -lean::inc(x_2360); -lean::dec(x_2357); -x_2363 = l_Lean_FileMap_toPosition(x_2360, x_2353); -x_2364 = lean::cnstr_get(x_2363, 1); -lean::inc(x_2364); -x_2366 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2367 = l_Lean_KVMap_setNat(x_2356, x_2366, x_2364); -x_2368 = lean::cnstr_get(x_2363, 0); -lean::inc(x_2368); -lean::dec(x_2363); -x_2371 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2372 = l_Lean_KVMap_setNat(x_2367, x_2371, x_2368); -x_2373 = lean_expr_mk_mdata(x_2372, x_2344); -if (lean::is_scalar(x_2333)) { - x_2374 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2374 = x_2333; -} -lean::cnstr_set(x_2374, 0, x_2373); -lean::cnstr_set(x_2374, 1, x_2331); -if (lean::is_scalar(x_2328)) { - x_2375 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2375 = x_2328; -} -lean::cnstr_set(x_2375, 0, x_2374); -return x_2375; +lean::dec(x_2352); +x_2360 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2361 = l_Lean_KVMap_setNat(x_2356, x_2360, x_2357); +x_2362 = lean_expr_mk_mdata(x_2361, x_2334); +x_2363 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2363, 0, x_2362); +lean::cnstr_set(x_2363, 1, x_3); +x_2364 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2364, 0, x_2363); +return x_2364; } } else { -obj* x_2378; obj* x_2379; +obj* x_2367; obj* x_2368; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2333)) { - x_2378 = lean::alloc_cnstr(0, 2, 0); -} else { - x_2378 = x_2333; +x_2367 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2367, 0, x_2334); +lean::cnstr_set(x_2367, 1, x_3); +x_2368 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2368, 0, x_2367); +return x_2368; } -lean::cnstr_set(x_2378, 0, x_2344); -lean::cnstr_set(x_2378, 1, x_2331); -if (lean::is_scalar(x_2328)) { - x_2379 = lean::alloc_cnstr(1, 1, 0); -} else { - x_2379 = x_2328; } -lean::cnstr_set(x_2379, 0, x_2378); -return x_2379; +else +{ +obj* x_2369; obj* x_2372; obj* x_2375; obj* x_2379; +x_2369 = lean::cnstr_get(x_2316, 0); +lean::inc(x_2369); +lean::dec(x_2316); +x_2372 = lean::cnstr_get(x_2317, 0); +lean::inc(x_2372); +lean::dec(x_2317); +x_2375 = lean::cnstr_get(x_2372, 1); +lean::inc(x_2375); +lean::dec(x_2372); +lean::inc(x_2); +x_2379 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_2375, x_1, x_2, x_3); +if (lean::obj_tag(x_2379) == 0) +{ +obj* x_2384; obj* x_2386; obj* x_2387; +lean::dec(x_8); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_2369); +x_2384 = lean::cnstr_get(x_2379, 0); +if (lean::is_exclusive(x_2379)) { + x_2386 = x_2379; +} else { + lean::inc(x_2384); + lean::dec(x_2379); + x_2386 = lean::box(0); +} +if (lean::is_scalar(x_2386)) { + x_2387 = lean::alloc_cnstr(0, 1, 0); +} else { + x_2387 = x_2386; +} +lean::cnstr_set(x_2387, 0, x_2384); +return x_2387; +} +else +{ +obj* x_2388; obj* x_2390; obj* x_2391; obj* x_2393; obj* x_2395; obj* x_2397; obj* x_2398; obj* x_2399; obj* x_2402; obj* x_2403; obj* x_2404; obj* x_2405; obj* x_2406; obj* x_2407; uint8 x_2408; +x_2388 = lean::cnstr_get(x_2379, 0); +if (lean::is_exclusive(x_2379)) { + lean::cnstr_set(x_2379, 0, lean::box(0)); + x_2390 = x_2379; +} else { + lean::inc(x_2388); + lean::dec(x_2379); + x_2390 = lean::box(0); +} +x_2391 = lean::cnstr_get(x_2388, 0); +x_2393 = lean::cnstr_get(x_2388, 1); +if (lean::is_exclusive(x_2388)) { + lean::cnstr_set(x_2388, 0, lean::box(0)); + lean::cnstr_set(x_2388, 1, lean::box(0)); + x_2395 = x_2388; +} else { + lean::inc(x_2391); + lean::inc(x_2393); + lean::dec(x_2388); + x_2395 = lean::box(0); +} +lean::inc(x_2369); +x_2397 = l_Lean_Elaborator_mangleIdent(x_2369); +x_2398 = lean_expr_mk_const(x_2397, x_2391); +x_2399 = lean::cnstr_get(x_2369, 3); +lean::inc(x_2399); +lean::dec(x_2369); +x_2402 = lean::mk_nat_obj(0ul); +x_2403 = l_List_enumFrom___main___rarg(x_2402, x_2399); +x_2404 = l_Lean_Elaborator_toPexpr___main___closed__46; +x_2405 = l_List_foldl___main___at_Lean_Elaborator_toPexpr___main___spec__16(x_2404, x_2403); +x_2406 = lean_expr_mk_mdata(x_2405, x_2398); +x_2407 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2408 = lean_name_dec_eq(x_8, x_2407); +lean::dec(x_8); +if (x_2408 == 0) +{ +obj* x_2410; +x_2410 = l_Lean_Parser_Syntax_getPos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_2410) == 0) +{ +obj* x_2413; obj* x_2414; +lean::dec(x_2); +if (lean::is_scalar(x_2395)) { + x_2413 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2413 = x_2395; +} +lean::cnstr_set(x_2413, 0, x_2406); +lean::cnstr_set(x_2413, 1, x_2393); +if (lean::is_scalar(x_2390)) { + x_2414 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2414 = x_2390; +} +lean::cnstr_set(x_2414, 0, x_2413); +return x_2414; +} +else +{ +obj* x_2415; obj* x_2418; obj* x_2419; obj* x_2422; obj* x_2425; obj* x_2426; obj* x_2428; obj* x_2429; obj* x_2430; obj* x_2433; obj* x_2434; obj* x_2435; obj* x_2436; obj* x_2437; +x_2415 = lean::cnstr_get(x_2410, 0); +lean::inc(x_2415); +lean::dec(x_2410); +x_2418 = lean::box(0); +x_2419 = lean::cnstr_get(x_2, 0); +lean::inc(x_2419); +lean::dec(x_2); +x_2422 = lean::cnstr_get(x_2419, 2); +lean::inc(x_2422); +lean::dec(x_2419); +x_2425 = l_Lean_FileMap_toPosition(x_2422, x_2415); +x_2426 = lean::cnstr_get(x_2425, 1); +lean::inc(x_2426); +x_2428 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2429 = l_Lean_KVMap_setNat(x_2418, x_2428, x_2426); +x_2430 = lean::cnstr_get(x_2425, 0); +lean::inc(x_2430); +lean::dec(x_2425); +x_2433 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2434 = l_Lean_KVMap_setNat(x_2429, x_2433, x_2430); +x_2435 = lean_expr_mk_mdata(x_2434, x_2406); +if (lean::is_scalar(x_2395)) { + x_2436 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2436 = x_2395; +} +lean::cnstr_set(x_2436, 0, x_2435); +lean::cnstr_set(x_2436, 1, x_2393); +if (lean::is_scalar(x_2390)) { + x_2437 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2437 = x_2390; +} +lean::cnstr_set(x_2437, 0, x_2436); +return x_2437; +} +} +else +{ +obj* x_2440; obj* x_2441; +lean::dec(x_0); +lean::dec(x_2); +if (lean::is_scalar(x_2395)) { + x_2440 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2440 = x_2395; +} +lean::cnstr_set(x_2440, 0, x_2406); +lean::cnstr_set(x_2440, 1, x_2393); +if (lean::is_scalar(x_2390)) { + x_2441 = lean::alloc_cnstr(1, 1, 0); +} else { + x_2441 = x_2390; +} +lean::cnstr_set(x_2441, 0, x_2440); +return x_2441; } } } @@ -11797,285 +10404,259 @@ lbl_14: { if (lean::obj_tag(x_13) == 0) { -obj* x_2383; obj* x_2385; obj* x_2386; +obj* x_2445; obj* x_2447; obj* x_2448; lean::dec(x_8); lean::dec(x_0); lean::dec(x_2); -x_2383 = lean::cnstr_get(x_13, 0); +x_2445 = lean::cnstr_get(x_13, 0); if (lean::is_exclusive(x_13)) { - x_2385 = x_13; + x_2447 = x_13; } else { - lean::inc(x_2383); + lean::inc(x_2445); lean::dec(x_13); - x_2385 = lean::box(0); + x_2447 = lean::box(0); } -if (lean::is_scalar(x_2385)) { - x_2386 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2447)) { + x_2448 = lean::alloc_cnstr(0, 1, 0); } else { - x_2386 = x_2385; + x_2448 = x_2447; } -lean::cnstr_set(x_2386, 0, x_2383); -return x_2386; +lean::cnstr_set(x_2448, 0, x_2445); +return x_2448; } else { -obj* x_2387; obj* x_2389; obj* x_2390; obj* x_2392; obj* x_2394; obj* x_2395; uint8 x_2396; -x_2387 = lean::cnstr_get(x_13, 0); +obj* x_2449; obj* x_2451; obj* x_2452; obj* x_2454; obj* x_2456; obj* x_2457; uint8 x_2458; +x_2449 = lean::cnstr_get(x_13, 0); if (lean::is_exclusive(x_13)) { lean::cnstr_set(x_13, 0, lean::box(0)); - x_2389 = x_13; + x_2451 = x_13; } else { - lean::inc(x_2387); + lean::inc(x_2449); lean::dec(x_13); - x_2389 = lean::box(0); + x_2451 = lean::box(0); } -x_2390 = lean::cnstr_get(x_2387, 0); -x_2392 = lean::cnstr_get(x_2387, 1); -if (lean::is_exclusive(x_2387)) { - lean::cnstr_set(x_2387, 0, lean::box(0)); - lean::cnstr_set(x_2387, 1, lean::box(0)); - x_2394 = x_2387; +x_2452 = lean::cnstr_get(x_2449, 0); +x_2454 = lean::cnstr_get(x_2449, 1); +if (lean::is_exclusive(x_2449)) { + lean::cnstr_set(x_2449, 0, lean::box(0)); + lean::cnstr_set(x_2449, 1, lean::box(0)); + x_2456 = x_2449; } else { - lean::inc(x_2390); - lean::inc(x_2392); - lean::dec(x_2387); - x_2394 = lean::box(0); + lean::inc(x_2452); + lean::inc(x_2454); + lean::dec(x_2449); + x_2456 = lean::box(0); } -x_2395 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2396 = lean_name_dec_eq(x_8, x_2395); +x_2457 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2458 = lean_name_dec_eq(x_8, x_2457); lean::dec(x_8); -if (x_2396 == 0) +if (x_2458 == 0) { -obj* x_2398; -x_2398 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2460; +x_2460 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2398) == 0) +if (lean::obj_tag(x_2460) == 0) { -obj* x_2401; obj* x_2402; +obj* x_2463; obj* x_2464; lean::dec(x_2); -if (lean::is_scalar(x_2394)) { - x_2401 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2456)) { + x_2463 = lean::alloc_cnstr(0, 2, 0); } else { - x_2401 = x_2394; + x_2463 = x_2456; } -lean::cnstr_set(x_2401, 0, x_2390); -lean::cnstr_set(x_2401, 1, x_2392); -if (lean::is_scalar(x_2389)) { - x_2402 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2463, 0, x_2452); +lean::cnstr_set(x_2463, 1, x_2454); +if (lean::is_scalar(x_2451)) { + x_2464 = lean::alloc_cnstr(1, 1, 0); } else { - x_2402 = x_2389; + x_2464 = x_2451; } -lean::cnstr_set(x_2402, 0, x_2401); -return x_2402; +lean::cnstr_set(x_2464, 0, x_2463); +return x_2464; } else { -obj* x_2403; obj* x_2406; obj* x_2409; obj* x_2412; obj* x_2413; obj* x_2415; obj* x_2416; obj* x_2417; obj* x_2418; obj* x_2421; obj* x_2422; obj* x_2423; obj* x_2424; obj* x_2425; -x_2403 = lean::cnstr_get(x_2398, 0); -lean::inc(x_2403); -lean::dec(x_2398); -x_2406 = lean::cnstr_get(x_2, 0); -lean::inc(x_2406); +obj* x_2465; obj* x_2468; obj* x_2471; obj* x_2474; obj* x_2475; obj* x_2477; obj* x_2478; obj* x_2479; obj* x_2480; obj* x_2483; obj* x_2484; obj* x_2485; obj* x_2486; obj* x_2487; +x_2465 = lean::cnstr_get(x_2460, 0); +lean::inc(x_2465); +lean::dec(x_2460); +x_2468 = lean::cnstr_get(x_2, 0); +lean::inc(x_2468); lean::dec(x_2); -x_2409 = lean::cnstr_get(x_2406, 2); -lean::inc(x_2409); -lean::dec(x_2406); -x_2412 = l_Lean_FileMap_toPosition(x_2409, x_2403); -x_2413 = lean::cnstr_get(x_2412, 1); -lean::inc(x_2413); -x_2415 = lean::box(0); -x_2416 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2417 = l_Lean_KVMap_setNat(x_2415, x_2416, x_2413); -x_2418 = lean::cnstr_get(x_2412, 0); -lean::inc(x_2418); -lean::dec(x_2412); -x_2421 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2422 = l_Lean_KVMap_setNat(x_2417, x_2421, x_2418); -x_2423 = lean_expr_mk_mdata(x_2422, x_2390); -if (lean::is_scalar(x_2394)) { - x_2424 = lean::alloc_cnstr(0, 2, 0); +x_2471 = lean::cnstr_get(x_2468, 2); +lean::inc(x_2471); +lean::dec(x_2468); +x_2474 = l_Lean_FileMap_toPosition(x_2471, x_2465); +x_2475 = lean::cnstr_get(x_2474, 1); +lean::inc(x_2475); +x_2477 = lean::box(0); +x_2478 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2479 = l_Lean_KVMap_setNat(x_2477, x_2478, x_2475); +x_2480 = lean::cnstr_get(x_2474, 0); +lean::inc(x_2480); +lean::dec(x_2474); +x_2483 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2484 = l_Lean_KVMap_setNat(x_2479, x_2483, x_2480); +x_2485 = lean_expr_mk_mdata(x_2484, x_2452); +if (lean::is_scalar(x_2456)) { + x_2486 = lean::alloc_cnstr(0, 2, 0); } else { - x_2424 = x_2394; + x_2486 = x_2456; } -lean::cnstr_set(x_2424, 0, x_2423); -lean::cnstr_set(x_2424, 1, x_2392); -if (lean::is_scalar(x_2389)) { - x_2425 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2486, 0, x_2485); +lean::cnstr_set(x_2486, 1, x_2454); +if (lean::is_scalar(x_2451)) { + x_2487 = lean::alloc_cnstr(1, 1, 0); } else { - x_2425 = x_2389; + x_2487 = x_2451; } -lean::cnstr_set(x_2425, 0, x_2424); -return x_2425; +lean::cnstr_set(x_2487, 0, x_2486); +return x_2487; } } else { -obj* x_2428; obj* x_2429; +obj* x_2490; obj* x_2491; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2394)) { - x_2428 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2456)) { + x_2490 = lean::alloc_cnstr(0, 2, 0); } else { - x_2428 = x_2394; + x_2490 = x_2456; } -lean::cnstr_set(x_2428, 0, x_2390); -lean::cnstr_set(x_2428, 1, x_2392); -if (lean::is_scalar(x_2389)) { - x_2429 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2490, 0, x_2452); +lean::cnstr_set(x_2490, 1, x_2454); +if (lean::is_scalar(x_2451)) { + x_2491 = lean::alloc_cnstr(1, 1, 0); } else { - x_2429 = x_2389; + x_2491 = x_2451; } -lean::cnstr_set(x_2429, 0, x_2428); -return x_2429; +lean::cnstr_set(x_2491, 0, x_2490); +return x_2491; } } } lbl_16: { -obj* x_2430; obj* x_2432; obj* x_2434; obj* x_2435; uint8 x_2436; -x_2430 = lean::cnstr_get(x_15, 0); -x_2432 = lean::cnstr_get(x_15, 1); +obj* x_2492; obj* x_2494; obj* x_2496; obj* x_2497; uint8 x_2498; +x_2492 = lean::cnstr_get(x_15, 0); +x_2494 = lean::cnstr_get(x_15, 1); if (lean::is_exclusive(x_15)) { lean::cnstr_set(x_15, 0, lean::box(0)); lean::cnstr_set(x_15, 1, lean::box(0)); - x_2434 = x_15; + x_2496 = x_15; } else { - lean::inc(x_2430); - lean::inc(x_2432); + lean::inc(x_2492); + lean::inc(x_2494); lean::dec(x_15); - x_2434 = lean::box(0); + x_2496 = lean::box(0); } -x_2435 = l_Lean_Elaborator_toPexpr___main___closed__2; -x_2436 = lean_name_dec_eq(x_8, x_2435); +x_2497 = l_Lean_Elaborator_toPexpr___main___closed__2; +x_2498 = lean_name_dec_eq(x_8, x_2497); lean::dec(x_8); -if (x_2436 == 0) +if (x_2498 == 0) { -obj* x_2438; -x_2438 = l_Lean_Parser_Syntax_getPos(x_0); +obj* x_2500; +x_2500 = l_Lean_Parser_Syntax_getPos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_2438) == 0) +if (lean::obj_tag(x_2500) == 0) { -obj* x_2441; obj* x_2442; +obj* x_2503; obj* x_2504; lean::dec(x_2); -if (lean::is_scalar(x_2434)) { - x_2441 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2496)) { + x_2503 = lean::alloc_cnstr(0, 2, 0); } else { - x_2441 = x_2434; + x_2503 = x_2496; } -lean::cnstr_set(x_2441, 0, x_2430); -lean::cnstr_set(x_2441, 1, x_2432); -x_2442 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2442, 0, x_2441); -return x_2442; +lean::cnstr_set(x_2503, 0, x_2492); +lean::cnstr_set(x_2503, 1, x_2494); +x_2504 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2504, 0, x_2503); +return x_2504; } else { -obj* x_2443; obj* x_2446; obj* x_2449; obj* x_2452; obj* x_2453; obj* x_2455; obj* x_2456; obj* x_2457; obj* x_2458; obj* x_2461; obj* x_2462; obj* x_2463; obj* x_2464; obj* x_2465; -x_2443 = lean::cnstr_get(x_2438, 0); -lean::inc(x_2443); -lean::dec(x_2438); -x_2446 = lean::cnstr_get(x_2, 0); -lean::inc(x_2446); +obj* x_2505; obj* x_2508; obj* x_2511; obj* x_2514; obj* x_2515; obj* x_2517; obj* x_2518; obj* x_2519; obj* x_2520; obj* x_2523; obj* x_2524; obj* x_2525; obj* x_2526; obj* x_2527; +x_2505 = lean::cnstr_get(x_2500, 0); +lean::inc(x_2505); +lean::dec(x_2500); +x_2508 = lean::cnstr_get(x_2, 0); +lean::inc(x_2508); lean::dec(x_2); -x_2449 = lean::cnstr_get(x_2446, 2); -lean::inc(x_2449); -lean::dec(x_2446); -x_2452 = l_Lean_FileMap_toPosition(x_2449, x_2443); -x_2453 = lean::cnstr_get(x_2452, 1); -lean::inc(x_2453); -x_2455 = lean::box(0); -x_2456 = l_Lean_Elaborator_toPexpr___main___closed__3; -x_2457 = l_Lean_KVMap_setNat(x_2455, x_2456, x_2453); -x_2458 = lean::cnstr_get(x_2452, 0); -lean::inc(x_2458); -lean::dec(x_2452); -x_2461 = l_Lean_Elaborator_toPexpr___main___closed__4; -x_2462 = l_Lean_KVMap_setNat(x_2457, x_2461, x_2458); -x_2463 = lean_expr_mk_mdata(x_2462, x_2430); -if (lean::is_scalar(x_2434)) { - x_2464 = lean::alloc_cnstr(0, 2, 0); +x_2511 = lean::cnstr_get(x_2508, 2); +lean::inc(x_2511); +lean::dec(x_2508); +x_2514 = l_Lean_FileMap_toPosition(x_2511, x_2505); +x_2515 = lean::cnstr_get(x_2514, 1); +lean::inc(x_2515); +x_2517 = lean::box(0); +x_2518 = l_Lean_Elaborator_toPexpr___main___closed__3; +x_2519 = l_Lean_KVMap_setNat(x_2517, x_2518, x_2515); +x_2520 = lean::cnstr_get(x_2514, 0); +lean::inc(x_2520); +lean::dec(x_2514); +x_2523 = l_Lean_Elaborator_toPexpr___main___closed__4; +x_2524 = l_Lean_KVMap_setNat(x_2519, x_2523, x_2520); +x_2525 = lean_expr_mk_mdata(x_2524, x_2492); +if (lean::is_scalar(x_2496)) { + x_2526 = lean::alloc_cnstr(0, 2, 0); } else { - x_2464 = x_2434; + x_2526 = x_2496; } -lean::cnstr_set(x_2464, 0, x_2463); -lean::cnstr_set(x_2464, 1, x_2432); -x_2465 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2465, 0, x_2464); -return x_2465; +lean::cnstr_set(x_2526, 0, x_2525); +lean::cnstr_set(x_2526, 1, x_2494); +x_2527 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2527, 0, x_2526); +return x_2527; } } else { -obj* x_2468; obj* x_2469; +obj* x_2530; obj* x_2531; lean::dec(x_0); lean::dec(x_2); -if (lean::is_scalar(x_2434)) { - x_2468 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2496)) { + x_2530 = lean::alloc_cnstr(0, 2, 0); } else { - x_2468 = x_2434; + x_2530 = x_2496; } -lean::cnstr_set(x_2468, 0, x_2430); -lean::cnstr_set(x_2468, 1, x_2432); -x_2469 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2469, 0, x_2468); -return x_2469; +lean::cnstr_set(x_2530, 0, x_2492); +lean::cnstr_set(x_2530, 1, x_2494); +x_2531 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2531, 0, x_2530); +return x_2531; } } } default: { -obj* x_2470; -x_2470 = lean::box(0); -x_4 = x_2470; +obj* x_2532; +x_2532 = lean::box(0); +x_4 = x_2532; goto lbl_5; } } lbl_5: { -obj* x_2473; obj* x_2474; obj* x_2475; obj* x_2476; obj* x_2477; obj* x_2478; obj* x_2480; +obj* x_2535; obj* x_2536; obj* x_2537; obj* x_2538; obj* x_2539; obj* x_2540; obj* x_2542; lean::dec(x_4); lean::inc(x_0); -x_2473 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_2473, 0, x_0); -x_2474 = l_Lean_Parser_Syntax_toFormat___main(x_0); -x_2475 = l_Lean_Options_empty; -x_2476 = l_Lean_Format_pretty(x_2474, x_2475); -x_2477 = l_Lean_Elaborator_toPexpr___main___closed__1; -x_2478 = lean::string_append(x_2477, x_2476); -lean::dec(x_2476); -x_2480 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2473, x_2478, x_1, x_2, x_3); +x_2535 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2535, 0, x_0); +x_2536 = l_Lean_Parser_Syntax_toFormat___main(x_0); +x_2537 = l_Lean_Options_empty; +x_2538 = l_Lean_Format_pretty(x_2536, x_2537); +x_2539 = l_Lean_Elaborator_toPexpr___main___closed__1; +x_2540 = lean::string_append(x_2539, x_2538); +lean::dec(x_2538); +x_2542 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_2535, x_2540, x_1, x_2, x_3); lean::dec(x_3); -lean::dec(x_2473); -return x_2480; -} -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__1(x_0, x_1, x_2, x_3); lean::dec(x_1); -return x_4; +lean::dec(x_2535); +return x_2542; } } -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} } obj* l_List_foldr___main___at_Lean_Elaborator_toPexpr___main___spec__7___boxed(obj* x_0, obj* x_1) { _start: @@ -12086,96 +10667,6 @@ lean::dec(x_0); return x_2; } } -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__8(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__9(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__10(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__11(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__12(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__13(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__14(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__15(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__17(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_Lean_Elaborator_toPexpr___main___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_toPexpr___main(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* l_Lean_Elaborator_toPexpr(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -12184,15 +10675,6 @@ x_4 = l_Lean_Elaborator_toPexpr___main(x_0, x_1, x_2, x_3); return x_4; } } -obj* l_Lean_Elaborator_toPexpr___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_toPexpr(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* l_Lean_Elaborator_getNamespace(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -12307,26 +10789,26 @@ return x_3; obj* l_RBNode_revFold___main___at_Lean_Elaborator_oldElabCommand___spec__2(obj* x_0, obj* x_1) { _start: { -if (lean::obj_tag(x_0) == 0) +if (lean::obj_tag(x_1) == 0) { -return x_1; +return x_0; } else { obj* x_2; obj* x_4; obj* x_6; obj* x_9; obj* x_10; -x_2 = lean::cnstr_get(x_0, 0); +x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); -x_4 = lean::cnstr_get(x_0, 1); +x_4 = lean::cnstr_get(x_1, 1); lean::inc(x_4); -x_6 = lean::cnstr_get(x_0, 3); +x_6 = lean::cnstr_get(x_1, 3); lean::inc(x_6); -lean::dec(x_0); -x_9 = l_RBNode_revFold___main___at_Lean_Elaborator_oldElabCommand___spec__2(x_6, x_1); +lean::dec(x_1); +x_9 = l_RBNode_revFold___main___at_Lean_Elaborator_oldElabCommand___spec__2(x_0, x_6); x_10 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_10, 0, x_4); lean::cnstr_set(x_10, 1, x_9); -x_0 = x_2; -x_1 = x_10; +x_0 = x_10; +x_1 = x_2; goto _start; } } @@ -12336,7 +10818,7 @@ _start: { obj* x_1; obj* x_2; x_1 = lean::box(0); -x_2 = l_RBNode_revFold___main___at_Lean_Elaborator_oldElabCommand___spec__2(x_0, x_1); +x_2 = l_RBNode_revFold___main___at_Lean_Elaborator_oldElabCommand___spec__2(x_1, x_0); return x_2; } } @@ -12351,18 +10833,30 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +obj* x_2; obj* x_4; obj* x_7; uint8 x_8; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); x_4 = lean::cnstr_get(x_0, 1); lean::inc(x_4); lean::dec(x_0); x_7 = l_RBTree_ofList___main___at_Lean_Elaborator_oldElabCommand___spec__3(x_4); -x_8 = l_Lean_NameMap_contains___rarg___closed__1; +x_8 = l_RBNode_isRed___main___rarg(x_7); +if (x_8 == 0) +{ +obj* x_9; obj* x_10; x_9 = lean::box(0); -x_10 = l_RBNode_insert___rarg(x_8, x_7, x_2, x_9); +x_10 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_7, x_2, x_9); return x_10; } +else +{ +obj* x_11; obj* x_12; obj* x_13; +x_11 = lean::box(0); +x_12 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_7, x_2, x_11); +x_13 = l_RBNode_setBlack___main___rarg(x_12); +return x_13; +} +} } } obj* l_Lean_Elaborator_oldElabCommand___lambda__1(obj* x_0, obj* x_1) { @@ -12377,7 +10871,7 @@ x_6 = lean::cnstr_get(x_1, 2); lean::inc(x_6); x_8 = lean::cnstr_get(x_0, 2); lean::inc(x_8); -x_10 = l_Lean_NameMap_contains___rarg___closed__1; +x_10 = l_Lean_Elaborator_toLevel___main___closed__4; x_11 = l_Lean_Elaborator_OrderedRBMap_ofList___rarg(x_10, x_8); x_12 = lean::cnstr_get(x_0, 3); lean::inc(x_12); @@ -12829,132 +11323,194 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_14; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_toPexpr), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_14 = l_Lean_Elaborator_toPexpr___main(x_8, x_1, x_2, x_3); -if (lean::obj_tag(x_14) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_18; obj* x_20; obj* x_21; +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_18 = lean::cnstr_get(x_14, 0); -if (lean::is_exclusive(x_14)) { - x_20 = x_14; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; +} else { + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); +} +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); +} else { + x_24 = x_23; +} +lean::cnstr_set(x_24, 0, x_21); +return x_24; +} +else +{ +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); +lean::inc(x_25); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); +lean::dec(x_25); +x_33 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) +{ +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; +} else { + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); +} +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); +} else { + x_38 = x_37; +} +lean::cnstr_set(x_38, 0, x_35); +return x_38; +} +else +{ +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; +} else { + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); +} +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; +} else { + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); +} +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); +} else { + x_48 = x_46; +} +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_41; +} +lean::cnstr_set(x_49, 0, x_48); +return x_49; +} +} +} +} +} +obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_7; obj* x_9; +x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); +lean::dec(x_0); +x_7 = lean::cnstr_get(x_4, 1); +lean::inc(x_7); +x_9 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_7, x_1, x_2, x_3); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_11; obj* x_13; obj* x_14; +lean::dec(x_4); +x_11 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_13 = x_9; +} else { + lean::inc(x_11); + lean::dec(x_9); + x_13 = lean::box(0); +} +if (lean::is_scalar(x_13)) { + x_14 = lean::alloc_cnstr(0, 1, 0); +} else { + x_14 = x_13; +} +lean::cnstr_set(x_14, 0, x_11); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_20; obj* x_22; obj* x_23; obj* x_26; obj* x_29; obj* x_30; obj* x_31; +x_15 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_17 = x_9; +} else { + lean::inc(x_15); + lean::dec(x_9); + x_17 = lean::box(0); +} +x_18 = lean::cnstr_get(x_15, 0); +x_20 = lean::cnstr_get(x_15, 1); +if (lean::is_exclusive(x_15)) { + x_22 = x_15; } else { lean::inc(x_18); - lean::dec(x_14); - x_20 = lean::box(0); + lean::inc(x_20); + lean::dec(x_15); + x_22 = lean::box(0); } -if (lean::is_scalar(x_20)) { - x_21 = lean::alloc_cnstr(0, 1, 0); +x_23 = lean::cnstr_get(x_4, 0); +lean::inc(x_23); +lean::dec(x_4); +x_26 = lean::cnstr_get(x_23, 2); +lean::inc(x_26); +lean::dec(x_23); +x_29 = l_Lean_Expr_mkCapp(x_26, x_18); +if (lean::is_scalar(x_22)) { + x_30 = lean::alloc_cnstr(0, 2, 0); } else { - x_21 = x_20; + x_30 = x_22; } -lean::cnstr_set(x_21, 0, x_18); -return x_21; -} -else -{ -obj* x_22; obj* x_25; obj* x_27; obj* x_30; -x_22 = lean::cnstr_get(x_14, 0); -lean::inc(x_22); -lean::dec(x_14); -x_25 = lean::cnstr_get(x_22, 0); -lean::inc(x_25); -x_27 = lean::cnstr_get(x_22, 1); -lean::inc(x_27); -lean::dec(x_22); -x_30 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_10, x_1, x_2, x_27); -if (lean::obj_tag(x_30) == 0) -{ -obj* x_33; obj* x_35; obj* x_36; -lean::dec(x_12); -lean::dec(x_25); -x_33 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_35 = x_30; +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_20); +if (lean::is_scalar(x_17)) { + x_31 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_33); - lean::dec(x_30); - x_35 = lean::box(0); -} -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(0, 1, 0); -} else { - x_36 = x_35; -} -lean::cnstr_set(x_36, 0, x_33); -return x_36; -} -else -{ -obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_37 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_39 = x_30; -} else { - lean::inc(x_37); - lean::dec(x_30); - x_39 = lean::box(0); -} -x_40 = lean::cnstr_get(x_37, 0); -x_42 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_44 = x_37; -} else { - lean::inc(x_40); - lean::inc(x_42); - lean::dec(x_37); - x_44 = lean::box(0); -} -if (lean::is_scalar(x_12)) { - x_45 = lean::alloc_cnstr(1, 2, 0); -} else { - x_45 = x_12; -} -lean::cnstr_set(x_45, 0, x_25); -lean::cnstr_set(x_45, 1, x_40); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(0, 2, 0); -} else { - x_46 = x_44; -} -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_42); -if (lean::is_scalar(x_39)) { - x_47 = lean::alloc_cnstr(1, 1, 0); -} else { - x_47 = x_39; -} -lean::cnstr_set(x_47, 0, x_46); -return x_47; -} + x_31 = x_17; } +lean::cnstr_set(x_31, 0, x_30); +return x_31; } } } @@ -12963,144 +11519,117 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_16; obj* x_19; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} -x_13 = lean::cnstr_get(x_8, 0); -lean::inc(x_13); -lean::dec(x_8); -x_16 = lean::cnstr_get(x_13, 1); -lean::inc(x_16); +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2___lambda__1), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_19 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_16, x_1, x_2, x_3); -if (lean::obj_tag(x_19) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_24; obj* x_26; obj* x_27; -lean::dec(x_13); +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_24 = lean::cnstr_get(x_19, 0); -if (lean::is_exclusive(x_19)) { - x_26 = x_19; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { - lean::inc(x_24); - lean::dec(x_19); - x_26 = lean::box(0); + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); } -if (lean::is_scalar(x_26)) { - x_27 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_27 = x_26; + x_24 = x_23; } -lean::cnstr_set(x_27, 0, x_24); -return x_27; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_28; obj* x_31; obj* x_33; obj* x_36; -x_28 = lean::cnstr_get(x_19, 0); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); +lean::inc(x_25); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); lean::inc(x_28); -lean::dec(x_19); -x_31 = lean::cnstr_get(x_28, 0); -lean::inc(x_31); -x_33 = lean::cnstr_get(x_28, 1); -lean::inc(x_33); -lean::dec(x_28); -x_36 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2(x_10, x_1, x_2, x_33); -if (lean::obj_tag(x_36) == 0) +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); +lean::dec(x_25); +x_33 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) { -obj* x_40; obj* x_42; obj* x_43; -lean::dec(x_13); -lean::dec(x_12); -lean::dec(x_31); -x_40 = lean::cnstr_get(x_36, 0); -if (lean::is_exclusive(x_36)) { - x_42 = x_36; +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_40); - lean::dec(x_36); - x_42 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_42)) { - x_43 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_43 = x_42; + x_38 = x_37; } -lean::cnstr_set(x_43, 0, x_40); -return x_43; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_44; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_55; obj* x_58; obj* x_59; obj* x_60; obj* x_61; -x_44 = lean::cnstr_get(x_36, 0); -if (lean::is_exclusive(x_36)) { - x_46 = x_36; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); +} +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; +} else { + lean::inc(x_42); lean::inc(x_44); - lean::dec(x_36); + lean::dec(x_39); x_46 = lean::box(0); } -x_47 = lean::cnstr_get(x_44, 0); -x_49 = lean::cnstr_get(x_44, 1); -if (lean::is_exclusive(x_44)) { - x_51 = x_44; -} else { - lean::inc(x_47); - lean::inc(x_49); - lean::dec(x_44); - x_51 = lean::box(0); -} -x_52 = lean::cnstr_get(x_13, 0); -lean::inc(x_52); -lean::dec(x_13); -x_55 = lean::cnstr_get(x_52, 2); -lean::inc(x_55); -lean::dec(x_52); -x_58 = l_Lean_Expr_mkCapp(x_55, x_31); -if (lean::is_scalar(x_12)) { - x_59 = lean::alloc_cnstr(1, 2, 0); -} else { - x_59 = x_12; -} -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_47); -if (lean::is_scalar(x_51)) { - x_60 = lean::alloc_cnstr(0, 2, 0); -} else { - x_60 = x_51; -} -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_49); +x_47 = lean::apply_1(x_28, x_42); if (lean::is_scalar(x_46)) { - x_61 = lean::alloc_cnstr(1, 1, 0); + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_61 = x_46; + x_48 = x_46; } -lean::cnstr_set(x_61, 0, x_60); -return x_61; +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_41; +} +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -13170,33 +11699,6 @@ return x_20; } } } -obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__2(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_Lean_Elaborator_attrsToPexpr___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_attrsToPexpr(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* _init_l_Lean_Elaborator_declModifiersToPexpr___closed__1() { _start: { @@ -13707,15 +12209,6 @@ return x_150; } } } -obj* l_Lean_Elaborator_declModifiersToPexpr___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_declModifiersToPexpr(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* l_List_map___main___at_Lean_Elaborator_identUnivParamsToPexpr___spec__1(obj* x_0) { _start: { @@ -13866,154 +12359,201 @@ return x_38; } } } +obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_5; obj* x_7; obj* x_10; obj* x_12; obj* x_15; +x_4 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_0); +x_5 = lean::cnstr_get(x_4, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_4, 0); +lean::inc(x_7); +lean::dec(x_4); +x_10 = lean::cnstr_get(x_5, 0); +lean::inc(x_10); +x_12 = lean::cnstr_get(x_5, 1); +lean::inc(x_12); +lean::dec(x_5); +x_15 = l_Lean_Elaborator_toPexpr___main(x_12, x_1, x_2, x_3); +if (lean::obj_tag(x_15) == 0) +{ +obj* x_18; obj* x_20; obj* x_21; +lean::dec(x_10); +lean::dec(x_7); +x_18 = lean::cnstr_get(x_15, 0); +if (lean::is_exclusive(x_15)) { + x_20 = x_15; +} else { + lean::inc(x_18); + lean::dec(x_15); + x_20 = lean::box(0); +} +if (lean::is_scalar(x_20)) { + x_21 = lean::alloc_cnstr(0, 1, 0); +} else { + x_21 = x_20; +} +lean::cnstr_set(x_21, 0, x_18); +return x_21; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; uint8 x_31; obj* x_33; obj* x_34; obj* x_35; +x_22 = lean::cnstr_get(x_15, 0); +if (lean::is_exclusive(x_15)) { + x_24 = x_15; +} else { + lean::inc(x_22); + lean::dec(x_15); + x_24 = lean::box(0); +} +x_25 = lean::cnstr_get(x_22, 0); +x_27 = lean::cnstr_get(x_22, 1); +if (lean::is_exclusive(x_22)) { + x_29 = x_22; +} else { + lean::inc(x_25); + lean::inc(x_27); + lean::dec(x_22); + x_29 = lean::box(0); +} +x_30 = l_Lean_Elaborator_mangleIdent(x_10); +x_31 = lean::unbox(x_7); +lean::inc(x_30); +x_33 = lean_expr_local(x_30, x_30, x_25, x_31); +if (lean::is_scalar(x_29)) { + x_34 = lean::alloc_cnstr(0, 2, 0); +} else { + x_34 = x_29; +} +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_27); +if (lean::is_scalar(x_24)) { + x_35 = lean::alloc_cnstr(1, 1, 0); +} else { + x_35 = x_24; +} +lean::cnstr_set(x_35, 0, x_34); +return x_35; +} +} +} obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_19; obj* x_21; obj* x_25; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} -x_13 = l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(x_8); -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -x_16 = lean::cnstr_get(x_13, 0); -lean::inc(x_16); -lean::dec(x_13); -x_19 = lean::cnstr_get(x_14, 0); -lean::inc(x_19); -x_21 = lean::cnstr_get(x_14, 1); -lean::inc(x_21); -lean::dec(x_14); +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1___lambda__1), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_25 = l_Lean_Elaborator_toPexpr___main(x_21, x_1, x_2, x_3); -if (lean::obj_tag(x_25) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_31; obj* x_33; obj* x_34; +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -lean::dec(x_16); -lean::dec(x_19); -x_31 = lean::cnstr_get(x_25, 0); -if (lean::is_exclusive(x_25)) { - x_33 = x_25; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { - lean::inc(x_31); - lean::dec(x_25); - x_33 = lean::box(0); + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); } -if (lean::is_scalar(x_33)) { - x_34 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_34 = x_33; + x_24 = x_23; } -lean::cnstr_set(x_34, 0, x_31); -return x_34; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_35; obj* x_38; obj* x_40; obj* x_43; -x_35 = lean::cnstr_get(x_25, 0); -lean::inc(x_35); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); +lean::inc(x_25); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); lean::dec(x_25); -x_38 = lean::cnstr_get(x_35, 0); -lean::inc(x_38); -x_40 = lean::cnstr_get(x_35, 1); -lean::inc(x_40); -lean::dec(x_35); -x_43 = l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1(x_10, x_1, x_2, x_40); -if (lean::obj_tag(x_43) == 0) +x_33 = l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) { -obj* x_48; obj* x_50; obj* x_51; -lean::dec(x_12); -lean::dec(x_38); -lean::dec(x_16); -lean::dec(x_19); -x_48 = lean::cnstr_get(x_43, 0); -if (lean::is_exclusive(x_43)) { - x_50 = x_43; +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_48); - lean::dec(x_43); - x_50 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_50)) { - x_51 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_51 = x_50; + x_38 = x_37; } -lean::cnstr_set(x_51, 0, x_48); -return x_51; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_60; uint8 x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; -x_52 = lean::cnstr_get(x_43, 0); -if (lean::is_exclusive(x_43)) { - x_54 = x_43; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { - lean::inc(x_52); - lean::dec(x_43); - x_54 = lean::box(0); + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); } -x_55 = lean::cnstr_get(x_52, 0); -x_57 = lean::cnstr_get(x_52, 1); -if (lean::is_exclusive(x_52)) { - x_59 = x_52; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_55); - lean::inc(x_57); - lean::dec(x_52); - x_59 = lean::box(0); + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -x_60 = l_Lean_Elaborator_mangleIdent(x_19); -x_61 = lean::unbox(x_16); -lean::inc(x_60); -x_63 = lean_expr_local(x_60, x_60, x_38, x_61); -if (lean::is_scalar(x_12)) { - x_64 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_64 = x_12; + x_48 = x_46; } -lean::cnstr_set(x_64, 0, x_63); -lean::cnstr_set(x_64, 1, x_55); -if (lean::is_scalar(x_59)) { - x_65 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_65 = x_59; + x_49 = x_41; } -lean::cnstr_set(x_65, 0, x_64); -lean::cnstr_set(x_65, 1, x_57); -if (lean::is_scalar(x_54)) { - x_66 = lean::alloc_cnstr(1, 1, 0); -} else { - x_66 = x_54; -} -lean::cnstr_set(x_66, 0, x_65); -return x_66; +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -14083,22 +12623,129 @@ return x_20; } } } -obj* l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_simpleBindersToPexpr___spec__1(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_Lean_Elaborator_simpleBindersToPexpr___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: +obj* x_5; obj* x_9; +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +lean::inc(x_3); +lean::inc(x_2); +x_9 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_5, x_2, x_3, x_4); +if (lean::obj_tag(x_9) == 0) { -obj* x_4; -x_4 = l_Lean_Elaborator_simpleBindersToPexpr(x_0, x_1, x_2, x_3); +obj* x_14; obj* x_16; obj* x_17; lean::dec(x_1); -return x_4; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_14 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_16 = x_9; +} else { + lean::inc(x_14); + lean::dec(x_9); + x_16 = lean::box(0); +} +if (lean::is_scalar(x_16)) { + x_17 = lean::alloc_cnstr(0, 1, 0); +} else { + x_17 = x_16; +} +lean::cnstr_set(x_17, 0, x_14); +return x_17; +} +else +{ +obj* x_18; obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_29; +x_18 = lean::cnstr_get(x_9, 0); +lean::inc(x_18); +lean::dec(x_9); +x_21 = lean::cnstr_get(x_18, 0); +x_23 = lean::cnstr_get(x_18, 1); +if (lean::is_exclusive(x_18)) { + lean::cnstr_set(x_18, 0, lean::box(0)); + lean::cnstr_set(x_18, 1, lean::box(0)); + x_25 = x_18; +} else { + lean::inc(x_21); + lean::inc(x_23); + lean::dec(x_18); + x_25 = lean::box(0); +} +x_26 = lean::cnstr_get(x_0, 3); +lean::inc(x_26); +lean::dec(x_0); +x_29 = l_Lean_Elaborator_toPexpr___main(x_26, x_2, x_3, x_23); +if (lean::obj_tag(x_29) == 0) +{ +obj* x_33; obj* x_35; obj* x_36; +lean::dec(x_25); +lean::dec(x_1); +lean::dec(x_21); +x_33 = lean::cnstr_get(x_29, 0); +if (lean::is_exclusive(x_29)) { + x_35 = x_29; +} else { + lean::inc(x_33); + lean::dec(x_29); + x_35 = lean::box(0); +} +if (lean::is_scalar(x_35)) { + x_36 = lean::alloc_cnstr(0, 1, 0); +} else { + x_36 = x_35; +} +lean::cnstr_set(x_36, 0, x_33); +return x_36; +} +else +{ +obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +x_37 = lean::cnstr_get(x_29, 0); +if (lean::is_exclusive(x_29)) { + x_39 = x_29; +} else { + lean::inc(x_37); + lean::dec(x_29); + x_39 = lean::box(0); +} +x_40 = lean::cnstr_get(x_37, 0); +x_42 = lean::cnstr_get(x_37, 1); +if (lean::is_exclusive(x_37)) { + x_44 = x_37; +} else { + lean::inc(x_40); + lean::inc(x_42); + lean::dec(x_37); + x_44 = lean::box(0); +} +if (lean::is_scalar(x_44)) { + x_45 = lean::alloc_cnstr(0, 2, 0); +} else { + x_45 = x_44; +} +lean::cnstr_set(x_45, 0, x_21); +lean::cnstr_set(x_45, 1, x_40); +if (lean::is_scalar(x_25)) { + x_46 = lean::alloc_cnstr(0, 2, 0); +} else { + x_46 = x_25; +} +lean::cnstr_set(x_46, 0, x_1); +lean::cnstr_set(x_46, 1, x_45); +x_47 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_42); +if (lean::is_scalar(x_39)) { + x_48 = lean::alloc_cnstr(1, 1, 0); +} else { + x_48 = x_39; +} +lean::cnstr_set(x_48, 0, x_47); +return x_48; +} +} } } obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -14106,210 +12753,121 @@ _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_18; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); +lean::inc(x_10); x_12 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_set(x_1, 0, lean::box(0)); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_14 = x_1; -} else { - lean::inc(x_10); - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} -x_15 = lean::cnstr_get(x_10, 1); -lean::inc(x_15); -lean::inc(x_3); -x_18 = l_List_mmap___main___at_Lean_Elaborator_attrsToPexpr___spec__1(x_15, x_2, x_3, x_4); -if (lean::obj_tag(x_18) == 0) -{ -obj* x_24; obj* x_26; obj* x_27; -lean::dec(x_14); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_10); -lean::dec(x_12); -x_24 = lean::cnstr_get(x_18, 0); -if (lean::is_exclusive(x_18)) { - x_26 = x_18; -} else { - lean::inc(x_24); - lean::dec(x_18); - x_26 = lean::box(0); -} -if (lean::is_scalar(x_26)) { - x_27 = lean::alloc_cnstr(0, 1, 0); -} else { - x_27 = x_26; -} -lean::cnstr_set(x_27, 0, x_24); -return x_27; -} -else -{ -obj* x_28; obj* x_31; obj* x_33; obj* x_35; obj* x_36; obj* x_40; -x_28 = lean::cnstr_get(x_18, 0); -lean::inc(x_28); -lean::dec(x_18); -x_31 = lean::cnstr_get(x_28, 0); -x_33 = lean::cnstr_get(x_28, 1); -if (lean::is_exclusive(x_28)) { - lean::cnstr_set(x_28, 0, lean::box(0)); - lean::cnstr_set(x_28, 1, lean::box(0)); - x_35 = x_28; -} else { - lean::inc(x_31); - lean::inc(x_33); - lean::dec(x_28); - x_35 = lean::box(0); -} -x_36 = lean::cnstr_get(x_10, 3); -lean::inc(x_36); -lean::dec(x_10); -lean::inc(x_3); -x_40 = l_Lean_Elaborator_toPexpr___main(x_36, x_2, x_3, x_33); -if (lean::obj_tag(x_40) == 0) -{ -obj* x_47; obj* x_49; obj* x_50; -lean::dec(x_14); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_12); -lean::dec(x_35); -lean::dec(x_31); -x_47 = lean::cnstr_get(x_40, 0); -if (lean::is_exclusive(x_40)) { - x_49 = x_40; -} else { - lean::inc(x_47); - lean::dec(x_40); - x_49 = lean::box(0); -} -if (lean::is_scalar(x_49)) { - x_50 = lean::alloc_cnstr(0, 1, 0); -} else { - x_50 = x_49; -} -lean::cnstr_set(x_50, 0, x_47); -return x_50; -} -else -{ -obj* x_51; obj* x_54; obj* x_56; obj* x_58; obj* x_60; -x_51 = lean::cnstr_get(x_40, 0); -lean::inc(x_51); -lean::dec(x_40); -x_54 = lean::cnstr_get(x_51, 0); -x_56 = lean::cnstr_get(x_51, 1); -if (lean::is_exclusive(x_51)) { - lean::cnstr_set(x_51, 0, lean::box(0)); - lean::cnstr_set(x_51, 1, lean::box(0)); - x_58 = x_51; -} else { - lean::inc(x_54); - lean::inc(x_56); - lean::dec(x_51); - x_58 = lean::box(0); -} +lean::inc(x_12); +lean::dec(x_1); lean::inc(x_0); -x_60 = l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(x_0, x_12, x_2, x_3, x_56); -if (lean::obj_tag(x_60) == 0) +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; +lean::inc(x_3); +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) { -obj* x_67; obj* x_69; obj* x_70; -lean::dec(x_14); +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); +lean::dec(x_3); lean::dec(x_0); -lean::dec(x_35); -lean::dec(x_31); -lean::dec(x_54); -lean::dec(x_58); -x_67 = lean::cnstr_get(x_60, 0); -if (lean::is_exclusive(x_60)) { - x_69 = x_60; +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; } else { - lean::inc(x_67); - lean::dec(x_60); - x_69 = lean::box(0); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); } -if (lean::is_scalar(x_69)) { - x_70 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_70 = x_69; + x_28 = x_27; } -lean::cnstr_set(x_70, 0, x_67); -return x_70; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_71; obj* x_73; obj* x_74; obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; -x_71 = lean::cnstr_get(x_60, 0); -if (lean::is_exclusive(x_60)) { - x_73 = x_60; +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +lean::dec(x_20); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); +lean::inc(x_34); +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) +{ +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; } else { - lean::inc(x_71); - lean::dec(x_60); - x_73 = lean::box(0); + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); } -x_74 = lean::cnstr_get(x_71, 0); -x_76 = lean::cnstr_get(x_71, 1); -if (lean::is_exclusive(x_71)) { - x_78 = x_71; +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); } else { - lean::inc(x_74); - lean::inc(x_76); - lean::dec(x_71); - x_78 = lean::box(0); + x_42 = x_41; } -if (lean::is_scalar(x_78)) { - x_79 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_42, 0, x_39); +return x_42; +} +else +{ +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; } else { - x_79 = x_78; + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); } -lean::cnstr_set(x_79, 0, x_31); -lean::cnstr_set(x_79, 1, x_54); -if (lean::is_scalar(x_58)) { - x_80 = lean::alloc_cnstr(0, 2, 0); +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { - x_80 = x_58; + lean::inc(x_46); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -lean::cnstr_set(x_80, 0, x_0); -lean::cnstr_set(x_80, 1, x_79); -if (lean::is_scalar(x_14)) { - x_81 = lean::alloc_cnstr(1, 2, 0); +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - x_81 = x_14; + x_52 = x_50; } -lean::cnstr_set(x_81, 0, x_80); -lean::cnstr_set(x_81, 1, x_74); -if (lean::is_scalar(x_35)) { - x_82 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_82 = x_35; -} -lean::cnstr_set(x_82, 0, x_81); -lean::cnstr_set(x_82, 1, x_76); -if (lean::is_scalar(x_73)) { - x_83 = lean::alloc_cnstr(1, 1, 0); -} else { - x_83 = x_73; -} -lean::cnstr_set(x_83, 0, x_82); -return x_83; + x_53 = x_45; } +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -14367,7 +12925,7 @@ lean::inc(x_4); lean::dec(x_1); lean::inc(x_2); x_8 = level_mk_param(x_2); -x_9 = l_Lean_NameMap_contains___rarg___closed__1; +x_9 = l_Lean_Elaborator_toLevel___main___closed__4; x_10 = l_Lean_Elaborator_OrderedRBMap_insert___rarg(x_9, x_0, x_2, x_8); x_0 = x_10; x_1 = x_4; @@ -14459,464 +13017,461 @@ lean::cnstr_set(x_16, 0, x_0); x_17 = l_Lean_Elaborator_elabDefLike___closed__1; x_18 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_16, x_17, x_4, x_5, x_6); lean::dec(x_6); +lean::dec(x_4); lean::dec(x_16); return x_18; } else { -obj* x_21; obj* x_23; obj* x_25; obj* x_28; obj* x_31; obj* x_35; -x_21 = lean::cnstr_get(x_2, 1); -lean::inc(x_21); -x_23 = lean::cnstr_get(x_2, 2); -lean::inc(x_23); -x_25 = lean::cnstr_get(x_2, 4); -lean::inc(x_25); +obj* x_22; obj* x_24; obj* x_26; obj* x_29; obj* x_32; obj* x_37; +x_22 = lean::cnstr_get(x_2, 1); +lean::inc(x_22); +x_24 = lean::cnstr_get(x_2, 2); +lean::inc(x_24); +x_26 = lean::cnstr_get(x_2, 4); +lean::inc(x_26); lean::dec(x_2); -x_28 = lean::cnstr_get(x_7, 1); -lean::inc(x_28); +x_29 = lean::cnstr_get(x_7, 1); +lean::inc(x_29); lean::dec(x_7); -x_31 = lean::cnstr_get(x_9, 0); -lean::inc(x_31); +x_32 = lean::cnstr_get(x_9, 0); +lean::inc(x_32); lean::dec(x_9); lean::inc(x_5); -x_35 = l_Lean_Elaborator_declModifiersToPexpr(x_1, x_4, x_5, x_6); -if (lean::obj_tag(x_35) == 0) +lean::inc(x_4); +x_37 = l_Lean_Elaborator_declModifiersToPexpr(x_1, x_4, x_5, x_6); +if (lean::obj_tag(x_37) == 0) { -obj* x_44; obj* x_46; obj* x_47; +obj* x_47; obj* x_49; obj* x_50; lean::dec(x_5); -lean::dec(x_31); +lean::dec(x_29); +lean::dec(x_32); +lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_21); -lean::dec(x_23); -lean::dec(x_25); -lean::dec(x_28); -x_44 = lean::cnstr_get(x_35, 0); -if (lean::is_exclusive(x_35)) { - x_46 = x_35; +lean::dec(x_22); +lean::dec(x_24); +lean::dec(x_26); +x_47 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_49 = x_37; } else { - lean::inc(x_44); - lean::dec(x_35); - x_46 = lean::box(0); + lean::inc(x_47); + lean::dec(x_37); + x_49 = lean::box(0); } -if (lean::is_scalar(x_46)) { - x_47 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_49)) { + x_50 = lean::alloc_cnstr(0, 1, 0); } else { - x_47 = x_46; + x_50 = x_49; } -lean::cnstr_set(x_47, 0, x_44); -return x_47; +lean::cnstr_set(x_50, 0, x_47); +return x_50; } else { -obj* x_48; obj* x_51; obj* x_53; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; -x_48 = lean::cnstr_get(x_35, 0); -lean::inc(x_48); -lean::dec(x_35); -x_51 = lean::cnstr_get(x_48, 0); +obj* x_51; obj* x_54; obj* x_56; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_51 = lean::cnstr_get(x_37, 0); lean::inc(x_51); -x_53 = lean::cnstr_get(x_48, 1); -lean::inc(x_53); -lean::dec(x_48); -x_56 = lean::box(0); -x_57 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_57, 0, x_3); -x_58 = lean_expr_mk_lit(x_57); -if (lean::obj_tag(x_21) == 0) -{ -obj* x_62; obj* x_65; -x_62 = l_Lean_Expander_getOptType___main(x_28); -lean::dec(x_28); -lean::inc(x_5); -x_65 = l_Lean_Elaborator_toPexpr___main(x_62, x_4, x_5, x_53); -if (lean::obj_tag(x_65) == 0) -{ -obj* x_73; obj* x_75; obj* x_76; -lean::dec(x_5); -lean::dec(x_31); -lean::dec(x_0); -lean::dec(x_58); -lean::dec(x_23); -lean::dec(x_25); +lean::dec(x_37); +x_54 = lean::cnstr_get(x_51, 0); +lean::inc(x_54); +x_56 = lean::cnstr_get(x_51, 1); +lean::inc(x_56); lean::dec(x_51); -x_73 = lean::cnstr_get(x_65, 0); -if (lean::is_exclusive(x_65)) { - x_75 = x_65; -} else { - lean::inc(x_73); - lean::dec(x_65); - x_75 = lean::box(0); -} -if (lean::is_scalar(x_75)) { - x_76 = lean::alloc_cnstr(0, 1, 0); -} else { - x_76 = x_75; -} -lean::cnstr_set(x_76, 0, x_73); -return x_76; -} -else +x_59 = lean::box(0); +x_60 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_60, 0, x_3); +x_61 = lean_expr_mk_lit(x_60); +if (lean::obj_tag(x_22) == 0) { -obj* x_77; -x_77 = lean::cnstr_get(x_65, 0); -lean::inc(x_77); -lean::dec(x_65); -x_59 = x_56; -x_60 = x_77; -goto lbl_61; -} -} -else -{ -obj* x_80; obj* x_84; obj* x_86; -x_80 = lean::cnstr_get(x_21, 0); -lean::inc(x_80); -lean::dec(x_21); -lean::inc(x_80); -x_84 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___lambda__1), 2, 1); -lean::closure_set(x_84, 0, x_80); +obj* x_65; obj* x_69; +x_65 = l_Lean_Expander_getOptType___main(x_29); +lean::dec(x_29); lean::inc(x_5); -x_86 = l_Lean_Elaborator_modifyCurrentScope(x_84, x_4, x_5, x_53); -if (lean::obj_tag(x_86) == 0) +lean::inc(x_4); +x_69 = l_Lean_Elaborator_toPexpr___main(x_65, x_4, x_5, x_56); +if (lean::obj_tag(x_69) == 0) { -obj* x_96; obj* x_98; obj* x_99; +obj* x_78; obj* x_80; obj* x_81; lean::dec(x_5); -lean::dec(x_31); +lean::dec(x_32); +lean::dec(x_4); lean::dec(x_0); -lean::dec(x_80); -lean::dec(x_58); -lean::dec(x_23); -lean::dec(x_25); -lean::dec(x_28); -lean::dec(x_51); -x_96 = lean::cnstr_get(x_86, 0); -if (lean::is_exclusive(x_86)) { - x_98 = x_86; +lean::dec(x_24); +lean::dec(x_26); +lean::dec(x_61); +lean::dec(x_54); +x_78 = lean::cnstr_get(x_69, 0); +if (lean::is_exclusive(x_69)) { + x_80 = x_69; } else { - lean::inc(x_96); - lean::dec(x_86); - x_98 = lean::box(0); + lean::inc(x_78); + lean::dec(x_69); + x_80 = lean::box(0); } -if (lean::is_scalar(x_98)) { - x_99 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_80)) { + x_81 = lean::alloc_cnstr(0, 1, 0); } else { - x_99 = x_98; + x_81 = x_80; } -lean::cnstr_set(x_99, 0, x_96); -return x_99; +lean::cnstr_set(x_81, 0, x_78); +return x_81; } else { -obj* x_100; obj* x_103; obj* x_106; obj* x_109; -x_100 = lean::cnstr_get(x_86, 0); -lean::inc(x_100); -lean::dec(x_86); -x_103 = lean::cnstr_get(x_100, 1); -lean::inc(x_103); -lean::dec(x_100); -x_106 = l_Lean_Expander_getOptType___main(x_28); -lean::dec(x_28); +obj* x_82; +x_82 = lean::cnstr_get(x_69, 0); +lean::inc(x_82); +lean::dec(x_69); +x_62 = x_59; +x_63 = x_82; +goto lbl_64; +} +} +else +{ +obj* x_85; obj* x_89; obj* x_91; +x_85 = lean::cnstr_get(x_22, 0); +lean::inc(x_85); +lean::dec(x_22); +lean::inc(x_85); +x_89 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___lambda__1), 2, 1); +lean::closure_set(x_89, 0, x_85); lean::inc(x_5); -x_109 = l_Lean_Elaborator_toPexpr___main(x_106, x_4, x_5, x_103); -if (lean::obj_tag(x_109) == 0) +x_91 = l_Lean_Elaborator_modifyCurrentScope(x_89, x_4, x_5, x_56); +if (lean::obj_tag(x_91) == 0) { -obj* x_118; obj* x_120; obj* x_121; +obj* x_102; obj* x_104; obj* x_105; lean::dec(x_5); -lean::dec(x_31); +lean::dec(x_29); +lean::dec(x_32); +lean::dec(x_4); lean::dec(x_0); -lean::dec(x_80); -lean::dec(x_58); -lean::dec(x_23); -lean::dec(x_25); -lean::dec(x_51); -x_118 = lean::cnstr_get(x_109, 0); -if (lean::is_exclusive(x_109)) { - x_120 = x_109; +lean::dec(x_85); +lean::dec(x_24); +lean::dec(x_26); +lean::dec(x_61); +lean::dec(x_54); +x_102 = lean::cnstr_get(x_91, 0); +if (lean::is_exclusive(x_91)) { + x_104 = x_91; } else { - lean::inc(x_118); - lean::dec(x_109); - x_120 = lean::box(0); + lean::inc(x_102); + lean::dec(x_91); + x_104 = lean::box(0); } -if (lean::is_scalar(x_120)) { - x_121 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_104)) { + x_105 = lean::alloc_cnstr(0, 1, 0); } else { - x_121 = x_120; + x_105 = x_104; } -lean::cnstr_set(x_121, 0, x_118); -return x_121; +lean::cnstr_set(x_105, 0, x_102); +return x_105; } else { -obj* x_122; obj* x_125; obj* x_128; -x_122 = lean::cnstr_get(x_109, 0); -lean::inc(x_122); -lean::dec(x_109); -x_125 = lean::cnstr_get(x_80, 1); -lean::inc(x_125); -lean::dec(x_80); -x_128 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_125); -x_59 = x_128; -x_60 = x_122; -goto lbl_61; -} -} -} -lbl_61: +obj* x_106; obj* x_109; obj* x_112; obj* x_116; +x_106 = lean::cnstr_get(x_91, 0); +lean::inc(x_106); +lean::dec(x_91); +x_109 = lean::cnstr_get(x_106, 1); +lean::inc(x_109); +lean::dec(x_106); +x_112 = l_Lean_Expander_getOptType___main(x_29); +lean::dec(x_29); +lean::inc(x_5); +lean::inc(x_4); +x_116 = l_Lean_Elaborator_toPexpr___main(x_112, x_4, x_5, x_109); +if (lean::obj_tag(x_116) == 0) { -obj* x_129; obj* x_131; obj* x_133; obj* x_134; obj* x_135; obj* x_138; uint8 x_139; obj* x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_147; -x_129 = lean::cnstr_get(x_60, 0); -x_131 = lean::cnstr_get(x_60, 1); -if (lean::is_exclusive(x_60)) { - lean::cnstr_set(x_60, 0, lean::box(0)); - lean::cnstr_set(x_60, 1, lean::box(0)); - x_133 = x_60; +obj* x_126; obj* x_128; obj* x_129; +lean::dec(x_5); +lean::dec(x_32); +lean::dec(x_4); +lean::dec(x_0); +lean::dec(x_85); +lean::dec(x_24); +lean::dec(x_26); +lean::dec(x_61); +lean::dec(x_54); +x_126 = lean::cnstr_get(x_116, 0); +if (lean::is_exclusive(x_116)) { + x_128 = x_116; } else { - lean::inc(x_129); - lean::inc(x_131); - lean::dec(x_60); - x_133 = lean::box(0); + lean::inc(x_126); + lean::dec(x_116); + x_128 = lean::box(0); } -x_134 = l_Lean_Elaborator_namesToPexpr(x_59); -x_135 = lean::cnstr_get(x_23, 0); -lean::inc(x_135); -lean::dec(x_23); -x_138 = l_Lean_Elaborator_mangleIdent(x_135); -x_139 = 4; -lean::inc(x_129); -lean::inc(x_138); -lean::inc(x_138); -x_143 = lean_expr_local(x_138, x_138, x_129, x_139); -x_144 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_144, 0, x_143); -lean::cnstr_set(x_144, 1, x_56); -x_145 = l_Lean_Elaborator_mkEqns___closed__1; -x_146 = l_Lean_Expr_mkCapp(x_145, x_144); -switch (lean::obj_tag(x_25)) { +if (lean::is_scalar(x_128)) { + x_129 = lean::alloc_cnstr(0, 1, 0); +} else { + x_129 = x_128; +} +lean::cnstr_set(x_129, 0, x_126); +return x_129; +} +else +{ +obj* x_130; obj* x_133; obj* x_136; +x_130 = lean::cnstr_get(x_116, 0); +lean::inc(x_130); +lean::dec(x_116); +x_133 = lean::cnstr_get(x_85, 1); +lean::inc(x_133); +lean::dec(x_85); +x_136 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_133); +x_62 = x_136; +x_63 = x_130; +goto lbl_64; +} +} +} +lbl_64: +{ +obj* x_137; obj* x_139; obj* x_141; obj* x_142; obj* x_143; obj* x_146; uint8 x_147; obj* x_151; obj* x_152; obj* x_153; obj* x_154; obj* x_155; +x_137 = lean::cnstr_get(x_63, 0); +x_139 = lean::cnstr_get(x_63, 1); +if (lean::is_exclusive(x_63)) { + lean::cnstr_set(x_63, 0, lean::box(0)); + lean::cnstr_set(x_63, 1, lean::box(0)); + x_141 = x_63; +} else { + lean::inc(x_137); + lean::inc(x_139); + lean::dec(x_63); + x_141 = lean::box(0); +} +x_142 = l_Lean_Elaborator_namesToPexpr(x_62); +x_143 = lean::cnstr_get(x_24, 0); +lean::inc(x_143); +lean::dec(x_24); +x_146 = l_Lean_Elaborator_mangleIdent(x_143); +x_147 = 4; +lean::inc(x_137); +lean::inc(x_146); +lean::inc(x_146); +x_151 = lean_expr_local(x_146, x_146, x_137, x_147); +x_152 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_152, 0, x_151); +lean::cnstr_set(x_152, 1, x_59); +x_153 = l_Lean_Elaborator_mkEqns___closed__1; +x_154 = l_Lean_Expr_mkCapp(x_153, x_152); +switch (lean::obj_tag(x_26)) { case 0: { -obj* x_152; obj* x_155; obj* x_159; -lean::dec(x_129); -lean::dec(x_138); -lean::dec(x_133); -x_152 = lean::cnstr_get(x_25, 0); -lean::inc(x_152); -lean::dec(x_25); -x_155 = lean::cnstr_get(x_152, 1); -lean::inc(x_155); -lean::dec(x_152); -lean::inc(x_5); -x_159 = l_Lean_Elaborator_toPexpr___main(x_155, x_4, x_5, x_131); -if (lean::obj_tag(x_159) == 0) -{ -obj* x_167; obj* x_169; obj* x_170; -lean::dec(x_5); -lean::dec(x_31); -lean::dec(x_0); -lean::dec(x_58); -lean::dec(x_51); +obj* x_160; obj* x_163; obj* x_168; lean::dec(x_146); -lean::dec(x_134); -x_167 = lean::cnstr_get(x_159, 0); -if (lean::is_exclusive(x_159)) { - x_169 = x_159; +lean::dec(x_141); +lean::dec(x_137); +x_160 = lean::cnstr_get(x_26, 0); +lean::inc(x_160); +lean::dec(x_26); +x_163 = lean::cnstr_get(x_160, 1); +lean::inc(x_163); +lean::dec(x_160); +lean::inc(x_5); +lean::inc(x_4); +x_168 = l_Lean_Elaborator_toPexpr___main(x_163, x_4, x_5, x_139); +if (lean::obj_tag(x_168) == 0) +{ +obj* x_177; obj* x_179; obj* x_180; +lean::dec(x_5); +lean::dec(x_32); +lean::dec(x_4); +lean::dec(x_0); +lean::dec(x_61); +lean::dec(x_54); +lean::dec(x_154); +lean::dec(x_142); +x_177 = lean::cnstr_get(x_168, 0); +if (lean::is_exclusive(x_168)) { + x_179 = x_168; } else { - lean::inc(x_167); - lean::dec(x_159); - x_169 = lean::box(0); + lean::inc(x_177); + lean::dec(x_168); + x_179 = lean::box(0); } -if (lean::is_scalar(x_169)) { - x_170 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_179)) { + x_180 = lean::alloc_cnstr(0, 1, 0); } else { - x_170 = x_169; + x_180 = x_179; } -lean::cnstr_set(x_170, 0, x_167); -return x_170; +lean::cnstr_set(x_180, 0, x_177); +return x_180; } else { -obj* x_171; -x_171 = lean::cnstr_get(x_159, 0); -lean::inc(x_171); -lean::dec(x_159); -x_147 = x_171; -goto lbl_148; +obj* x_181; +x_181 = lean::cnstr_get(x_168, 0); +lean::inc(x_181); +lean::dec(x_168); +x_155 = x_181; +goto lbl_156; } } case 1: { -obj* x_176; obj* x_177; -lean::dec(x_25); -lean::dec(x_138); -x_176 = l_Lean_Elaborator_mkEqns(x_129, x_56); -if (lean::is_scalar(x_133)) { - x_177 = lean::alloc_cnstr(0, 2, 0); +obj* x_186; obj* x_187; +lean::dec(x_26); +lean::dec(x_146); +x_186 = l_Lean_Elaborator_mkEqns(x_137, x_59); +if (lean::is_scalar(x_141)) { + x_187 = lean::alloc_cnstr(0, 2, 0); } else { - x_177 = x_133; + x_187 = x_141; } -lean::cnstr_set(x_177, 0, x_176); -lean::cnstr_set(x_177, 1, x_131); -x_147 = x_177; -goto lbl_148; +lean::cnstr_set(x_187, 0, x_186); +lean::cnstr_set(x_187, 1, x_139); +x_155 = x_187; +goto lbl_156; } default: { -obj* x_179; obj* x_183; -lean::dec(x_133); -x_179 = lean::cnstr_get(x_25, 0); -lean::inc(x_179); -lean::dec(x_25); +obj* x_189; obj* x_194; +lean::dec(x_141); +x_189 = lean::cnstr_get(x_26, 0); +lean::inc(x_189); +lean::dec(x_26); lean::inc(x_5); -x_183 = l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(x_138, x_179, x_4, x_5, x_131); -if (lean::obj_tag(x_183) == 0) +lean::inc(x_4); +x_194 = l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(x_146, x_189, x_4, x_5, x_139); +if (lean::obj_tag(x_194) == 0) { -obj* x_192; obj* x_194; obj* x_195; +obj* x_204; obj* x_206; obj* x_207; lean::dec(x_5); -lean::dec(x_31); -lean::dec(x_0); -lean::dec(x_58); -lean::dec(x_51); -lean::dec(x_146); -lean::dec(x_129); -lean::dec(x_134); -x_192 = lean::cnstr_get(x_183, 0); -if (lean::is_exclusive(x_183)) { - x_194 = x_183; -} else { - lean::inc(x_192); - lean::dec(x_183); - x_194 = lean::box(0); -} -if (lean::is_scalar(x_194)) { - x_195 = lean::alloc_cnstr(0, 1, 0); -} else { - x_195 = x_194; -} -lean::cnstr_set(x_195, 0, x_192); -return x_195; -} -else -{ -obj* x_196; obj* x_199; obj* x_201; obj* x_203; obj* x_204; obj* x_205; -x_196 = lean::cnstr_get(x_183, 0); -lean::inc(x_196); -lean::dec(x_183); -x_199 = lean::cnstr_get(x_196, 0); -x_201 = lean::cnstr_get(x_196, 1); -if (lean::is_exclusive(x_196)) { - x_203 = x_196; -} else { - lean::inc(x_199); - lean::inc(x_201); - lean::dec(x_196); - x_203 = lean::box(0); -} -x_204 = l_Lean_Elaborator_mkEqns(x_129, x_199); -if (lean::is_scalar(x_203)) { - x_205 = lean::alloc_cnstr(0, 2, 0); -} else { - x_205 = x_203; -} -lean::cnstr_set(x_205, 0, x_204); -lean::cnstr_set(x_205, 1, x_201); -x_147 = x_205; -goto lbl_148; -} -} -} -lbl_148: -{ -obj* x_206; obj* x_208; obj* x_212; -x_206 = lean::cnstr_get(x_147, 0); -lean::inc(x_206); -x_208 = lean::cnstr_get(x_147, 1); -lean::inc(x_208); -lean::dec(x_147); -lean::inc(x_5); -x_212 = l_Lean_Elaborator_simpleBindersToPexpr(x_31, x_4, x_5, x_208); -if (lean::obj_tag(x_212) == 0) -{ -obj* x_220; obj* x_222; obj* x_223; -lean::dec(x_206); -lean::dec(x_5); -lean::dec(x_0); -lean::dec(x_58); -lean::dec(x_51); -lean::dec(x_146); -lean::dec(x_134); -x_220 = lean::cnstr_get(x_212, 0); -if (lean::is_exclusive(x_212)) { - x_222 = x_212; -} else { - lean::inc(x_220); - lean::dec(x_212); - x_222 = lean::box(0); -} -if (lean::is_scalar(x_222)) { - x_223 = lean::alloc_cnstr(0, 1, 0); -} else { - x_223 = x_222; -} -lean::cnstr_set(x_223, 0, x_220); -return x_223; -} -else -{ -obj* x_224; obj* x_227; obj* x_229; obj* x_232; obj* x_233; obj* x_234; obj* x_235; obj* x_236; obj* x_237; obj* x_238; obj* x_239; obj* x_240; obj* x_241; -x_224 = lean::cnstr_get(x_212, 0); -lean::inc(x_224); -lean::dec(x_212); -x_227 = lean::cnstr_get(x_224, 0); -lean::inc(x_227); -x_229 = lean::cnstr_get(x_224, 1); -lean::inc(x_229); -lean::dec(x_224); -x_232 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_232, 0, x_206); -lean::cnstr_set(x_232, 1, x_56); -x_233 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_233, 0, x_227); -lean::cnstr_set(x_233, 1, x_232); -x_234 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_234, 0, x_146); -lean::cnstr_set(x_234, 1, x_233); -x_235 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_235, 0, x_134); -lean::cnstr_set(x_235, 1, x_234); -x_236 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_236, 0, x_58); -lean::cnstr_set(x_236, 1, x_235); -x_237 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_237, 0, x_51); -lean::cnstr_set(x_237, 1, x_236); -x_238 = l_Lean_Expr_mkCapp(x_145, x_237); -x_239 = l_Lean_Elaborator_elabDefLike___closed__2; -x_240 = lean_expr_mk_mdata(x_239, x_238); -x_241 = l_Lean_Elaborator_oldElabCommand(x_0, x_240, x_4, x_5, x_229); -lean::dec(x_0); -return x_241; -} -} -} -} -} -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_elabDefLike___spec__1(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_Lean_Elaborator_elabDefLike___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { -_start: -{ -obj* x_7; -x_7 = l_Lean_Elaborator_elabDefLike(x_0, x_1, x_2, x_3, x_4, x_5, x_6); +lean::dec(x_32); lean::dec(x_4); -return x_7; +lean::dec(x_0); +lean::dec(x_61); +lean::dec(x_54); +lean::dec(x_154); +lean::dec(x_142); +lean::dec(x_137); +x_204 = lean::cnstr_get(x_194, 0); +if (lean::is_exclusive(x_194)) { + x_206 = x_194; +} else { + lean::inc(x_204); + lean::dec(x_194); + x_206 = lean::box(0); +} +if (lean::is_scalar(x_206)) { + x_207 = lean::alloc_cnstr(0, 1, 0); +} else { + x_207 = x_206; +} +lean::cnstr_set(x_207, 0, x_204); +return x_207; +} +else +{ +obj* x_208; obj* x_211; obj* x_213; obj* x_215; obj* x_216; obj* x_217; +x_208 = lean::cnstr_get(x_194, 0); +lean::inc(x_208); +lean::dec(x_194); +x_211 = lean::cnstr_get(x_208, 0); +x_213 = lean::cnstr_get(x_208, 1); +if (lean::is_exclusive(x_208)) { + x_215 = x_208; +} else { + lean::inc(x_211); + lean::inc(x_213); + lean::dec(x_208); + x_215 = lean::box(0); +} +x_216 = l_Lean_Elaborator_mkEqns(x_137, x_211); +if (lean::is_scalar(x_215)) { + x_217 = lean::alloc_cnstr(0, 2, 0); +} else { + x_217 = x_215; +} +lean::cnstr_set(x_217, 0, x_216); +lean::cnstr_set(x_217, 1, x_213); +x_155 = x_217; +goto lbl_156; +} +} +} +lbl_156: +{ +obj* x_218; obj* x_220; obj* x_225; +x_218 = lean::cnstr_get(x_155, 0); +lean::inc(x_218); +x_220 = lean::cnstr_get(x_155, 1); +lean::inc(x_220); +lean::dec(x_155); +lean::inc(x_5); +lean::inc(x_4); +x_225 = l_Lean_Elaborator_simpleBindersToPexpr(x_32, x_4, x_5, x_220); +if (lean::obj_tag(x_225) == 0) +{ +obj* x_234; obj* x_236; obj* x_237; +lean::dec(x_218); +lean::dec(x_5); +lean::dec(x_4); +lean::dec(x_0); +lean::dec(x_61); +lean::dec(x_54); +lean::dec(x_154); +lean::dec(x_142); +x_234 = lean::cnstr_get(x_225, 0); +if (lean::is_exclusive(x_225)) { + x_236 = x_225; +} else { + lean::inc(x_234); + lean::dec(x_225); + x_236 = lean::box(0); +} +if (lean::is_scalar(x_236)) { + x_237 = lean::alloc_cnstr(0, 1, 0); +} else { + x_237 = x_236; +} +lean::cnstr_set(x_237, 0, x_234); +return x_237; +} +else +{ +obj* x_238; obj* x_241; obj* x_243; obj* x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; obj* x_251; obj* x_252; obj* x_253; obj* x_254; obj* x_255; +x_238 = lean::cnstr_get(x_225, 0); +lean::inc(x_238); +lean::dec(x_225); +x_241 = lean::cnstr_get(x_238, 0); +lean::inc(x_241); +x_243 = lean::cnstr_get(x_238, 1); +lean::inc(x_243); +lean::dec(x_238); +x_246 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_246, 0, x_218); +lean::cnstr_set(x_246, 1, x_59); +x_247 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_247, 0, x_241); +lean::cnstr_set(x_247, 1, x_246); +x_248 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_248, 0, x_154); +lean::cnstr_set(x_248, 1, x_247); +x_249 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_249, 0, x_142); +lean::cnstr_set(x_249, 1, x_248); +x_250 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_250, 0, x_61); +lean::cnstr_set(x_250, 1, x_249); +x_251 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_251, 0, x_54); +lean::cnstr_set(x_251, 1, x_250); +x_252 = l_Lean_Expr_mkCapp(x_153, x_251); +x_253 = l_Lean_Elaborator_elabDefLike___closed__2; +x_254 = lean_expr_mk_mdata(x_253, x_252); +x_255 = l_Lean_Elaborator_oldElabCommand(x_0, x_254, x_4, x_5, x_243); +lean::dec(x_4); +lean::dec(x_0); +return x_255; +} +} +} +} +} } } obj* _init_l_Lean_Elaborator_inferModToPexpr___closed__1() { @@ -15042,7 +13597,7 @@ x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_bind___at_Lean_Elabo return x_2; } } -obj* _init_l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1() { +obj* _init_l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1() { _start: { obj* x_0; @@ -15050,335 +13605,268 @@ x_0 = lean::mk_string("Declaration.elaborate: unexpected input"); return x_0; } } +obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; obj* x_7; +x_5 = lean::cnstr_get(x_0, 3); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_5, 0); +lean::inc(x_7); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; +lean::dec(x_5); +lean::dec(x_7); +lean::dec(x_0); +x_12 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_12, 0, x_1); +x_13 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1; +x_14 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_12, x_13, x_2, x_3, x_4); +lean::dec(x_4); +lean::dec(x_2); +lean::dec(x_12); +return x_14; +} +else +{ +obj* x_18; +x_18 = lean::cnstr_get(x_7, 0); +lean::inc(x_18); +lean::dec(x_7); +if (lean::obj_tag(x_18) == 0) +{ +obj* x_21; +x_21 = lean::cnstr_get(x_5, 1); +lean::inc(x_21); +lean::dec(x_5); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_25; obj* x_26; obj* x_27; +lean::dec(x_0); +x_25 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_25, 0, x_1); +x_26 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1; +x_27 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_25, x_26, x_2, x_3, x_4); +lean::dec(x_4); +lean::dec(x_2); +lean::dec(x_25); +return x_27; +} +else +{ +obj* x_32; obj* x_35; obj* x_38; +lean::dec(x_1); +x_32 = lean::cnstr_get(x_21, 0); +lean::inc(x_32); +lean::dec(x_21); +x_35 = lean::cnstr_get(x_32, 1); +lean::inc(x_35); +lean::dec(x_32); +x_38 = l_Lean_Elaborator_toPexpr___main(x_35, x_2, x_3, x_4); +if (lean::obj_tag(x_38) == 0) +{ +obj* x_40; obj* x_42; obj* x_43; +lean::dec(x_0); +x_40 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_42 = x_38; +} else { + lean::inc(x_40); + lean::dec(x_38); + x_42 = lean::box(0); +} +if (lean::is_scalar(x_42)) { + x_43 = lean::alloc_cnstr(0, 1, 0); +} else { + x_43 = x_42; +} +lean::cnstr_set(x_43, 0, x_40); +return x_43; +} +else +{ +obj* x_44; obj* x_46; obj* x_47; obj* x_49; obj* x_51; obj* x_52; obj* x_55; uint8 x_56; obj* x_58; obj* x_59; obj* x_60; +x_44 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_46 = x_38; +} else { + lean::inc(x_44); + lean::dec(x_38); + x_46 = lean::box(0); +} +x_47 = lean::cnstr_get(x_44, 0); +x_49 = lean::cnstr_get(x_44, 1); +if (lean::is_exclusive(x_44)) { + x_51 = x_44; +} else { + lean::inc(x_47); + lean::inc(x_49); + lean::dec(x_44); + x_51 = lean::box(0); +} +x_52 = lean::cnstr_get(x_0, 1); +lean::inc(x_52); +lean::dec(x_0); +x_55 = l_Lean_Elaborator_mangleIdent(x_52); +x_56 = 0; +lean::inc(x_55); +x_58 = lean_expr_local(x_55, x_55, x_47, x_56); +if (lean::is_scalar(x_51)) { + x_59 = lean::alloc_cnstr(0, 2, 0); +} else { + x_59 = x_51; +} +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_49); +if (lean::is_scalar(x_46)) { + x_60 = lean::alloc_cnstr(1, 1, 0); +} else { + x_60 = x_46; +} +lean::cnstr_set(x_60, 0, x_59); +return x_60; +} +} +} +else +{ +obj* x_64; obj* x_65; obj* x_66; +lean::dec(x_5); +lean::dec(x_18); +lean::dec(x_0); +x_64 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_64, 0, x_1); +x_65 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1; +x_66 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_64, x_65, x_2, x_3, x_4); +lean::dec(x_4); +lean::dec(x_2); +lean::dec(x_64); +return x_66; +} +} +} +} obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_7; obj* x_8; obj* x_9; -lean::dec(x_3); +obj* x_6; obj* x_7; lean::dec(x_0); -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_4); -x_9 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_9, 0, x_8); -return x_9; +x_6 = lean::box(0); +x_7 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_6, x_2, x_3, x_4); +lean::dec(x_3); +lean::dec(x_2); +return x_7; } else { -obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_17; obj* x_19; +obj* x_10; obj* x_12; obj* x_16; obj* x_17; obj* x_20; x_10 = lean::cnstr_get(x_1, 0); +lean::inc(x_10); x_12 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_set(x_1, 0, lean::box(0)); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_14 = x_1; -} else { - lean::inc(x_10); - lean::inc(x_12); - lean::dec(x_1); - x_14 = lean::box(0); -} -x_17 = lean::cnstr_get(x_10, 3); -lean::inc(x_17); -x_19 = lean::cnstr_get(x_17, 0); -lean::inc(x_19); -if (lean::obj_tag(x_19) == 0) -{ -obj* x_25; obj* x_26; obj* x_28; -lean::dec(x_10); -lean::dec(x_17); -lean::dec(x_19); +lean::inc(x_12); +lean::dec(x_1); lean::inc(x_0); -x_25 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_25, 0, x_0); -x_26 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; +x_16 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1), 5, 2); +lean::closure_set(x_16, 0, x_10); +lean::closure_set(x_16, 1, x_0); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_3); -x_28 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_25, x_26, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_25); -if (lean::obj_tag(x_28) == 0) +lean::inc(x_2); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_2, x_3, x_4); +if (lean::obj_tag(x_20) == 0) { -obj* x_35; obj* x_37; obj* x_38; -lean::dec(x_14); +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_12); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_12); -x_35 = lean::cnstr_get(x_28, 0); -if (lean::is_exclusive(x_28)) { - x_37 = x_28; +lean::dec(x_2); +x_25 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_27 = x_20; } else { - lean::inc(x_35); - lean::dec(x_28); - x_37 = lean::box(0); + lean::inc(x_25); + lean::dec(x_20); + x_27 = lean::box(0); } -if (lean::is_scalar(x_37)) { - x_38 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_38 = x_37; + x_28 = x_27; } -lean::cnstr_set(x_38, 0, x_35); -return x_38; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_39; -x_39 = lean::cnstr_get(x_28, 0); -lean::inc(x_39); -lean::dec(x_28); -x_15 = x_39; -goto lbl_16; +obj* x_29; obj* x_32; obj* x_34; obj* x_37; +x_29 = lean::cnstr_get(x_20, 0); +lean::inc(x_29); +lean::dec(x_20); +x_32 = lean::cnstr_get(x_29, 0); +lean::inc(x_32); +x_34 = lean::cnstr_get(x_29, 1); +lean::inc(x_34); +lean::dec(x_29); +x_37 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2(x_0, x_12, x_2, x_3, x_34); +if (lean::obj_tag(x_37) == 0) +{ +obj* x_39; obj* x_41; obj* x_42; +lean::dec(x_32); +x_39 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_41 = x_37; +} else { + lean::inc(x_39); + lean::dec(x_37); + x_41 = lean::box(0); } +if (lean::is_scalar(x_41)) { + x_42 = lean::alloc_cnstr(0, 1, 0); +} else { + x_42 = x_41; +} +lean::cnstr_set(x_42, 0, x_39); +return x_42; } else { -obj* x_42; -x_42 = lean::cnstr_get(x_19, 0); -lean::inc(x_42); -lean::dec(x_19); -if (lean::obj_tag(x_42) == 0) -{ -obj* x_45; -x_45 = lean::cnstr_get(x_17, 1); -lean::inc(x_45); -lean::dec(x_17); -if (lean::obj_tag(x_45) == 0) -{ -obj* x_50; obj* x_51; obj* x_53; -lean::dec(x_10); -lean::inc(x_0); -x_50 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_50, 0, x_0); -x_51 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; -lean::inc(x_3); -x_53 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_50, x_51, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_50); -if (lean::obj_tag(x_53) == 0) -{ -obj* x_60; obj* x_62; obj* x_63; -lean::dec(x_14); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_12); -x_60 = lean::cnstr_get(x_53, 0); -if (lean::is_exclusive(x_53)) { - x_62 = x_53; +obj* x_43; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_43 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + x_45 = x_37; } else { - lean::inc(x_60); - lean::dec(x_53); - x_62 = lean::box(0); + lean::inc(x_43); + lean::dec(x_37); + x_45 = lean::box(0); } -if (lean::is_scalar(x_62)) { - x_63 = lean::alloc_cnstr(0, 1, 0); +x_46 = lean::cnstr_get(x_43, 0); +x_48 = lean::cnstr_get(x_43, 1); +if (lean::is_exclusive(x_43)) { + x_50 = x_43; } else { - x_63 = x_62; + lean::inc(x_46); + lean::inc(x_48); + lean::dec(x_43); + x_50 = lean::box(0); } -lean::cnstr_set(x_63, 0, x_60); -return x_63; -} -else -{ -obj* x_64; -x_64 = lean::cnstr_get(x_53, 0); -lean::inc(x_64); -lean::dec(x_53); -x_15 = x_64; -goto lbl_16; -} -} -else -{ -obj* x_67; obj* x_70; obj* x_74; -x_67 = lean::cnstr_get(x_45, 0); -lean::inc(x_67); -lean::dec(x_45); -x_70 = lean::cnstr_get(x_67, 1); -lean::inc(x_70); -lean::dec(x_67); -lean::inc(x_3); -x_74 = l_Lean_Elaborator_toPexpr___main(x_70, x_2, x_3, x_4); -if (lean::obj_tag(x_74) == 0) -{ -obj* x_80; obj* x_82; obj* x_83; -lean::dec(x_14); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_10); -lean::dec(x_12); -x_80 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_82 = x_74; +x_51 = lean::apply_1(x_32, x_46); +if (lean::is_scalar(x_50)) { + x_52 = lean::alloc_cnstr(0, 2, 0); } else { - lean::inc(x_80); - lean::dec(x_74); - x_82 = lean::box(0); + x_52 = x_50; } -if (lean::is_scalar(x_82)) { - x_83 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_48); +if (lean::is_scalar(x_45)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_83 = x_82; + x_53 = x_45; } -lean::cnstr_set(x_83, 0, x_80); -return x_83; -} -else -{ -obj* x_84; obj* x_87; obj* x_89; obj* x_91; obj* x_92; obj* x_95; uint8 x_96; obj* x_98; obj* x_99; -x_84 = lean::cnstr_get(x_74, 0); -lean::inc(x_84); -lean::dec(x_74); -x_87 = lean::cnstr_get(x_84, 0); -x_89 = lean::cnstr_get(x_84, 1); -if (lean::is_exclusive(x_84)) { - x_91 = x_84; -} else { - lean::inc(x_87); - lean::inc(x_89); - lean::dec(x_84); - x_91 = lean::box(0); -} -x_92 = lean::cnstr_get(x_10, 1); -lean::inc(x_92); -lean::dec(x_10); -x_95 = l_Lean_Elaborator_mangleIdent(x_92); -x_96 = 0; -lean::inc(x_95); -x_98 = lean_expr_local(x_95, x_95, x_87, x_96); -if (lean::is_scalar(x_91)) { - x_99 = lean::alloc_cnstr(0, 2, 0); -} else { - x_99 = x_91; -} -lean::cnstr_set(x_99, 0, x_98); -lean::cnstr_set(x_99, 1, x_89); -x_15 = x_99; -goto lbl_16; -} -} -} -else -{ -obj* x_104; obj* x_105; obj* x_107; -lean::dec(x_10); -lean::dec(x_17); -lean::dec(x_42); -lean::inc(x_0); -x_104 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_104, 0, x_0); -x_105 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; -lean::inc(x_3); -x_107 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_104, x_105, x_2, x_3, x_4); -lean::dec(x_4); -lean::dec(x_104); -if (lean::obj_tag(x_107) == 0) -{ -obj* x_114; obj* x_116; obj* x_117; -lean::dec(x_14); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_12); -x_114 = lean::cnstr_get(x_107, 0); -if (lean::is_exclusive(x_107)) { - x_116 = x_107; -} else { - lean::inc(x_114); - lean::dec(x_107); - x_116 = lean::box(0); -} -if (lean::is_scalar(x_116)) { - x_117 = lean::alloc_cnstr(0, 1, 0); -} else { - x_117 = x_116; -} -lean::cnstr_set(x_117, 0, x_114); -return x_117; -} -else -{ -obj* x_118; -x_118 = lean::cnstr_get(x_107, 0); -lean::inc(x_118); -lean::dec(x_107); -x_15 = x_118; -goto lbl_16; -} -} -} -lbl_16: -{ -obj* x_121; obj* x_123; obj* x_126; -x_121 = lean::cnstr_get(x_15, 0); -lean::inc(x_121); -x_123 = lean::cnstr_get(x_15, 1); -lean::inc(x_123); -lean::dec(x_15); -x_126 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2(x_0, x_12, x_2, x_3, x_123); -if (lean::obj_tag(x_126) == 0) -{ -obj* x_129; obj* x_131; obj* x_132; -lean::dec(x_14); -lean::dec(x_121); -x_129 = lean::cnstr_get(x_126, 0); -if (lean::is_exclusive(x_126)) { - x_131 = x_126; -} else { - lean::inc(x_129); - lean::dec(x_126); - x_131 = lean::box(0); -} -if (lean::is_scalar(x_131)) { - x_132 = lean::alloc_cnstr(0, 1, 0); -} else { - x_132 = x_131; -} -lean::cnstr_set(x_132, 0, x_129); -return x_132; -} -else -{ -obj* x_133; obj* x_135; obj* x_136; obj* x_138; obj* x_140; obj* x_141; obj* x_142; obj* x_143; -x_133 = lean::cnstr_get(x_126, 0); -if (lean::is_exclusive(x_126)) { - x_135 = x_126; -} else { - lean::inc(x_133); - lean::dec(x_126); - x_135 = lean::box(0); -} -x_136 = lean::cnstr_get(x_133, 0); -x_138 = lean::cnstr_get(x_133, 1); -if (lean::is_exclusive(x_133)) { - x_140 = x_133; -} else { - lean::inc(x_136); - lean::inc(x_138); - lean::dec(x_133); - x_140 = lean::box(0); -} -if (lean::is_scalar(x_14)) { - x_141 = lean::alloc_cnstr(1, 2, 0); -} else { - x_141 = x_14; -} -lean::cnstr_set(x_141, 0, x_121); -lean::cnstr_set(x_141, 1, x_136); -if (lean::is_scalar(x_140)) { - x_142 = lean::alloc_cnstr(0, 2, 0); -} else { - x_142 = x_140; -} -lean::cnstr_set(x_142, 0, x_141); -lean::cnstr_set(x_142, 1, x_138); -if (lean::is_scalar(x_135)) { - x_143 = lean::alloc_cnstr(1, 1, 0); -} else { - x_143 = x_135; -} -lean::cnstr_set(x_143, 0, x_142); -return x_143; +lean::cnstr_set(x_53, 0, x_52); +return x_53; } } } @@ -15428,206 +13916,74 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_17; +obj* x_8; obj* x_10; obj* x_13; obj* x_16; obj* x_17; obj* x_20; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_0); x_13 = lean::cnstr_get(x_8, 0); lean::inc(x_13); lean::dec(x_8); +x_16 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_toPexpr), 4, 1); +lean::closure_set(x_16, 0, x_13); +x_17 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_17 = l_Lean_Elaborator_toPexpr___main(x_13, x_1, x_2, x_3); -if (lean::obj_tag(x_17) == 0) +lean::inc(x_1); +x_20 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_17, x_16, x_1, x_2, x_3); +if (lean::obj_tag(x_20) == 0) { -obj* x_21; obj* x_23; obj* x_24; -lean::dec(x_10); -lean::dec(x_12); -lean::dec(x_2); -x_21 = lean::cnstr_get(x_17, 0); -if (lean::is_exclusive(x_17)) { - x_23 = x_17; -} else { - lean::inc(x_21); - lean::dec(x_17); - x_23 = lean::box(0); -} -if (lean::is_scalar(x_23)) { - x_24 = lean::alloc_cnstr(0, 1, 0); -} else { - x_24 = x_23; -} -lean::cnstr_set(x_24, 0, x_21); -return x_24; -} -else -{ -obj* x_25; obj* x_28; obj* x_30; obj* x_33; -x_25 = lean::cnstr_get(x_17, 0); -lean::inc(x_25); -lean::dec(x_17); -x_28 = lean::cnstr_get(x_25, 0); -lean::inc(x_28); -x_30 = lean::cnstr_get(x_25, 1); -lean::inc(x_30); -lean::dec(x_25); -x_33 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4(x_10, x_1, x_2, x_30); -if (lean::obj_tag(x_33) == 0) -{ -obj* x_36; obj* x_38; obj* x_39; -lean::dec(x_12); -lean::dec(x_28); -x_36 = lean::cnstr_get(x_33, 0); -if (lean::is_exclusive(x_33)) { - x_38 = x_33; -} else { - lean::inc(x_36); - lean::dec(x_33); - x_38 = lean::box(0); -} -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(0, 1, 0); -} else { - x_39 = x_38; -} -lean::cnstr_set(x_39, 0, x_36); -return x_39; -} -else -{ -obj* x_40; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_40 = lean::cnstr_get(x_33, 0); -if (lean::is_exclusive(x_33)) { - x_42 = x_33; -} else { - lean::inc(x_40); - lean::dec(x_33); - x_42 = lean::box(0); -} -x_43 = lean::cnstr_get(x_40, 0); -x_45 = lean::cnstr_get(x_40, 1); -if (lean::is_exclusive(x_40)) { - x_47 = x_40; -} else { - lean::inc(x_43); - lean::inc(x_45); - lean::dec(x_40); - x_47 = lean::box(0); -} -if (lean::is_scalar(x_12)) { - x_48 = lean::alloc_cnstr(1, 2, 0); -} else { - x_48 = x_12; -} -lean::cnstr_set(x_48, 0, x_28); -lean::cnstr_set(x_48, 1, x_43); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(0, 2, 0); -} else { - x_49 = x_47; -} -lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_45); -if (lean::is_scalar(x_42)) { - x_50 = lean::alloc_cnstr(1, 1, 0); -} else { - x_50 = x_42; -} -lean::cnstr_set(x_50, 0, x_49); -return x_50; -} -} -} -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -if (lean::obj_tag(x_2) == 0) -{ -obj* x_9; obj* x_10; obj* x_11; -lean::dec(x_4); +obj* x_24; obj* x_26; obj* x_27; lean::dec(x_1); -lean::dec(x_0); -x_9 = lean::box(0); -x_10 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_10, 0, x_9); -lean::cnstr_set(x_10, 1, x_5); -x_11 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_11, 0, x_10); -return x_11; +lean::dec(x_10); +lean::dec(x_2); +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +if (lean::is_scalar(x_26)) { + x_27 = lean::alloc_cnstr(0, 1, 0); +} else { + x_27 = x_26; +} +lean::cnstr_set(x_27, 0, x_24); +return x_27; } else { -obj* x_12; obj* x_14; obj* x_16; obj* x_17; -x_12 = lean::cnstr_get(x_2, 0); -x_14 = lean::cnstr_get(x_2, 1); -if (lean::is_exclusive(x_2)) { - lean::cnstr_set(x_2, 0, lean::box(0)); - lean::cnstr_set(x_2, 1, lean::box(0)); - x_16 = x_2; -} else { - lean::inc(x_12); - lean::inc(x_14); - lean::dec(x_2); - x_16 = lean::box(0); -} -switch (lean::obj_tag(x_12)) { -case 0: -{ -obj* x_19; obj* x_22; -x_19 = lean::cnstr_get(x_12, 0); -lean::inc(x_19); -lean::dec(x_12); -x_22 = lean::cnstr_get(x_19, 1); -lean::inc(x_22); -lean::dec(x_19); -if (lean::obj_tag(x_22) == 0) -{ -obj* x_27; obj* x_28; obj* x_30; -lean::dec(x_22); -lean::inc(x_0); -x_27 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_27, 0, x_0); -x_28 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; -lean::inc(x_4); -x_30 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_27, x_28, x_3, x_4, x_5); -lean::dec(x_5); -lean::dec(x_27); -if (lean::obj_tag(x_30) == 0) +obj* x_28; obj* x_31; obj* x_33; obj* x_36; +x_28 = lean::cnstr_get(x_20, 0); +lean::inc(x_28); +lean::dec(x_20); +x_31 = lean::cnstr_get(x_28, 0); +lean::inc(x_31); +x_33 = lean::cnstr_get(x_28, 1); +lean::inc(x_33); +lean::dec(x_28); +x_36 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4(x_10, x_1, x_2, x_33); +if (lean::obj_tag(x_36) == 0) { obj* x_38; obj* x_40; obj* x_41; -lean::dec(x_14); -lean::dec(x_16); -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_0); -x_38 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_40 = x_30; +lean::dec(x_31); +x_38 = lean::cnstr_get(x_36, 0); +if (lean::is_exclusive(x_36)) { + x_40 = x_36; } else { lean::inc(x_38); - lean::dec(x_30); + lean::dec(x_36); x_40 = lean::box(0); } if (lean::is_scalar(x_40)) { @@ -15640,62 +13996,174 @@ return x_41; } else { -obj* x_42; -x_42 = lean::cnstr_get(x_30, 0); -lean::inc(x_42); -lean::dec(x_30); -x_17 = x_42; -goto lbl_18; +obj* x_42; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; +x_42 = lean::cnstr_get(x_36, 0); +if (lean::is_exclusive(x_36)) { + x_44 = x_36; +} else { + lean::inc(x_42); + lean::dec(x_36); + x_44 = lean::box(0); +} +x_45 = lean::cnstr_get(x_42, 0); +x_47 = lean::cnstr_get(x_42, 1); +if (lean::is_exclusive(x_42)) { + x_49 = x_42; +} else { + lean::inc(x_45); + lean::inc(x_47); + lean::dec(x_42); + x_49 = lean::box(0); +} +x_50 = lean::apply_1(x_31, x_45); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(0, 2, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +lean::cnstr_set(x_51, 1, x_47); +if (lean::is_scalar(x_44)) { + x_52 = lean::alloc_cnstr(1, 1, 0); +} else { + x_52 = x_44; +} +lean::cnstr_set(x_52, 0, x_51); +return x_52; +} +} +} +} +} +obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +obj* x_6; +switch (lean::obj_tag(x_1)) { +case 0: +{ +obj* x_8; obj* x_11; +x_8 = lean::cnstr_get(x_1, 0); +lean::inc(x_8); +lean::dec(x_1); +x_11 = lean::cnstr_get(x_8, 1); +lean::inc(x_11); +lean::dec(x_8); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_15; obj* x_16; obj* x_18; +lean::dec(x_11); +x_15 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_15, 0, x_2); +x_16 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1; +lean::inc(x_4); +x_18 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_15, x_16, x_3, x_4, x_5); +lean::dec(x_5); +lean::dec(x_15); +if (lean::obj_tag(x_18) == 0) +{ +obj* x_24; obj* x_26; obj* x_27; +lean::dec(x_4); +lean::dec(x_3); +lean::dec(x_0); +x_24 = lean::cnstr_get(x_18, 0); +if (lean::is_exclusive(x_18)) { + x_26 = x_18; +} else { + lean::inc(x_24); + lean::dec(x_18); + x_26 = lean::box(0); +} +if (lean::is_scalar(x_26)) { + x_27 = lean::alloc_cnstr(0, 1, 0); +} else { + x_27 = x_26; +} +lean::cnstr_set(x_27, 0, x_24); +return x_27; +} +else +{ +obj* x_28; +x_28 = lean::cnstr_get(x_18, 0); +lean::inc(x_28); +lean::dec(x_18); +x_6 = x_28; +goto lbl_7; } } else { -obj* x_45; uint8 x_48; obj* x_49; obj* x_50; obj* x_51; -x_45 = lean::cnstr_get(x_22, 0); -lean::inc(x_45); -lean::dec(x_22); -x_48 = 0; -x_49 = lean::box(x_48); -x_50 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_50, 0, x_49); -lean::cnstr_set(x_50, 1, x_45); -x_51 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_51, 0, x_50); -lean::cnstr_set(x_51, 1, x_5); -x_17 = x_51; -goto lbl_18; +obj* x_32; uint8 x_35; obj* x_36; obj* x_37; obj* x_38; +lean::dec(x_2); +x_32 = lean::cnstr_get(x_11, 0); +lean::inc(x_32); +lean::dec(x_11); +x_35 = 0; +x_36 = lean::box(x_35); +x_37 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_32); +x_38 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_5); +x_6 = x_38; +goto lbl_7; } } case 1: { -obj* x_52; obj* x_55; uint8 x_58; obj* x_59; obj* x_60; obj* x_61; -x_52 = lean::cnstr_get(x_12, 0); -lean::inc(x_52); -lean::dec(x_12); -x_55 = lean::cnstr_get(x_52, 1); -lean::inc(x_55); -lean::dec(x_52); -x_58 = 1; -x_59 = lean::box(x_58); -x_60 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_55); -x_61 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_61, 0, x_60); -lean::cnstr_set(x_61, 1, x_5); -x_17 = x_61; -goto lbl_18; +obj* x_40; obj* x_43; uint8 x_46; obj* x_47; obj* x_48; obj* x_49; +lean::dec(x_2); +x_40 = lean::cnstr_get(x_1, 0); +lean::inc(x_40); +lean::dec(x_1); +x_43 = lean::cnstr_get(x_40, 1); +lean::inc(x_43); +lean::dec(x_40); +x_46 = 1; +x_47 = lean::box(x_46); +x_48 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_43); +x_49 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_5); +x_6 = x_49; +goto lbl_7; } case 2: { +obj* x_51; obj* x_54; uint8 x_57; obj* x_58; obj* x_59; obj* x_60; +lean::dec(x_2); +x_51 = lean::cnstr_get(x_1, 0); +lean::inc(x_51); +lean::dec(x_1); +x_54 = lean::cnstr_get(x_51, 1); +lean::inc(x_54); +lean::dec(x_51); +x_57 = 2; +x_58 = lean::box(x_57); +x_59 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_54); +x_60 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_5); +x_6 = x_60; +goto lbl_7; +} +default: +{ obj* x_62; obj* x_65; uint8 x_68; obj* x_69; obj* x_70; obj* x_71; -x_62 = lean::cnstr_get(x_12, 0); +lean::dec(x_2); +x_62 = lean::cnstr_get(x_1, 0); lean::inc(x_62); -lean::dec(x_12); +lean::dec(x_1); x_65 = lean::cnstr_get(x_62, 1); lean::inc(x_65); lean::dec(x_62); -x_68 = 2; +x_68 = 3; x_69 = lean::box(x_68); x_70 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_70, 0, x_69); @@ -15703,186 +14171,244 @@ lean::cnstr_set(x_70, 1, x_65); x_71 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_71, 0, x_70); lean::cnstr_set(x_71, 1, x_5); -x_17 = x_71; -goto lbl_18; +x_6 = x_71; +goto lbl_7; } -default: +} +lbl_7: { -obj* x_72; obj* x_75; uint8 x_78; obj* x_79; obj* x_80; obj* x_81; -x_72 = lean::cnstr_get(x_12, 0); +obj* x_72; obj* x_74; obj* x_77; obj* x_79; obj* x_82; obj* x_84; obj* x_87; obj* x_89; +x_72 = lean::cnstr_get(x_6, 0); lean::inc(x_72); -lean::dec(x_12); -x_75 = lean::cnstr_get(x_72, 1); -lean::inc(x_75); +x_74 = lean::cnstr_get(x_6, 1); +lean::inc(x_74); +lean::dec(x_6); +x_77 = lean::cnstr_get(x_72, 0); +lean::inc(x_77); +x_79 = lean::cnstr_get(x_72, 1); +lean::inc(x_79); lean::dec(x_72); -x_78 = 3; -x_79 = lean::box(x_78); -x_80 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_80, 0, x_79); -lean::cnstr_set(x_80, 1, x_75); -x_81 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_81, 0, x_80); -lean::cnstr_set(x_81, 1, x_5); -x_17 = x_81; -goto lbl_18; -} -} -lbl_18: -{ -obj* x_82; obj* x_84; obj* x_87; obj* x_89; obj* x_92; obj* x_94; obj* x_97; obj* x_100; -x_82 = lean::cnstr_get(x_17, 0); +x_82 = lean::cnstr_get(x_79, 2); lean::inc(x_82); -x_84 = lean::cnstr_get(x_17, 1); +x_84 = lean::cnstr_get(x_82, 1); lean::inc(x_84); -lean::dec(x_17); -x_87 = lean::cnstr_get(x_82, 0); -lean::inc(x_87); -x_89 = lean::cnstr_get(x_82, 1); -lean::inc(x_89); lean::dec(x_82); -x_92 = lean::cnstr_get(x_89, 2); -lean::inc(x_92); -x_94 = lean::cnstr_get(x_92, 1); -lean::inc(x_94); -lean::dec(x_92); -x_97 = l_Lean_Expander_getOptType___main(x_94); -lean::dec(x_94); -lean::inc(x_4); -x_100 = l_Lean_Elaborator_toPexpr___main(x_97, x_3, x_4, x_84); -if (lean::obj_tag(x_100) == 0) +x_87 = l_Lean_Expander_getOptType___main(x_84); +lean::dec(x_84); +x_89 = l_Lean_Elaborator_toPexpr___main(x_87, x_3, x_4, x_74); +if (lean::obj_tag(x_89) == 0) { -obj* x_108; obj* x_110; obj* x_111; -lean::dec(x_14); -lean::dec(x_16); -lean::dec(x_4); +obj* x_93; obj* x_95; obj* x_96; +lean::dec(x_0); +lean::dec(x_79); +lean::dec(x_77); +x_93 = lean::cnstr_get(x_89, 0); +if (lean::is_exclusive(x_89)) { + x_95 = x_89; +} else { + lean::inc(x_93); + lean::dec(x_89); + x_95 = lean::box(0); +} +if (lean::is_scalar(x_95)) { + x_96 = lean::alloc_cnstr(0, 1, 0); +} else { + x_96 = x_95; +} +lean::cnstr_set(x_96, 0, x_93); +return x_96; +} +else +{ +obj* x_97; obj* x_99; obj* x_100; obj* x_102; obj* x_104; obj* x_105; uint8 x_106; obj* x_109; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_117; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; +x_97 = lean::cnstr_get(x_89, 0); +if (lean::is_exclusive(x_89)) { + x_99 = x_89; +} else { + lean::inc(x_97); + lean::dec(x_89); + x_99 = lean::box(0); +} +x_100 = lean::cnstr_get(x_97, 0); +x_102 = lean::cnstr_get(x_97, 1); +if (lean::is_exclusive(x_97)) { + x_104 = x_97; +} else { + lean::inc(x_100); + lean::inc(x_102); + lean::dec(x_97); + x_104 = lean::box(0); +} +x_105 = l_Lean_Elaborator_dummy; +x_106 = lean::unbox(x_77); +lean::inc(x_0); +lean::inc(x_0); +x_109 = lean_expr_local(x_0, x_0, x_105, x_106); +x_110 = lean::cnstr_get(x_79, 0); +lean::inc(x_110); +x_112 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_110); +x_113 = l_Lean_Elaborator_namesToPexpr(x_112); +x_114 = lean::cnstr_get(x_79, 1); +lean::inc(x_114); +lean::dec(x_79); +x_117 = l_Lean_Elaborator_inferModToPexpr(x_114); +lean::dec(x_114); +x_119 = lean::box(0); +x_120 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_120, 0, x_100); +lean::cnstr_set(x_120, 1, x_119); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_117); +lean::cnstr_set(x_121, 1, x_120); +x_122 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_122, 0, x_113); +lean::cnstr_set(x_122, 1, x_121); +x_123 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_123, 0, x_109); +lean::cnstr_set(x_123, 1, x_122); +x_124 = l_Lean_Expr_mkCapp(x_0, x_123); +if (lean::is_scalar(x_104)) { + x_125 = lean::alloc_cnstr(0, 2, 0); +} else { + x_125 = x_104; +} +lean::cnstr_set(x_125, 0, x_124); +lean::cnstr_set(x_125, 1, x_102); +if (lean::is_scalar(x_99)) { + x_126 = lean::alloc_cnstr(1, 1, 0); +} else { + x_126 = x_99; +} +lean::cnstr_set(x_126, 0, x_125); +return x_126; +} +} +} +} +obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +_start: +{ +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; obj* x_9; lean::dec(x_1); lean::dec(x_0); -lean::dec(x_87); -lean::dec(x_89); -x_108 = lean::cnstr_get(x_100, 0); -if (lean::is_exclusive(x_100)) { - x_110 = x_100; -} else { - lean::inc(x_108); - lean::dec(x_100); - x_110 = lean::box(0); -} -if (lean::is_scalar(x_110)) { - x_111 = lean::alloc_cnstr(0, 1, 0); -} else { - x_111 = x_110; -} -lean::cnstr_set(x_111, 0, x_108); -return x_111; +x_8 = lean::box(0); +x_9 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_8, x_3, x_4, x_5); +lean::dec(x_4); +lean::dec(x_3); +return x_9; } else { -obj* x_112; obj* x_115; obj* x_117; obj* x_121; -x_112 = lean::cnstr_get(x_100, 0); -lean::inc(x_112); -lean::dec(x_100); -x_115 = lean::cnstr_get(x_112, 0); -lean::inc(x_115); -x_117 = lean::cnstr_get(x_112, 1); -lean::inc(x_117); -lean::dec(x_112); +obj* x_12; obj* x_14; obj* x_19; obj* x_20; obj* x_23; +x_12 = lean::cnstr_get(x_2, 0); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_2, 1); +lean::inc(x_14); +lean::dec(x_2); +lean::inc(x_0); lean::inc(x_1); -x_121 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(x_0, x_1, x_14, x_3, x_4, x_117); -if (lean::obj_tag(x_121) == 0) +x_19 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5___lambda__1), 6, 3); +lean::closure_set(x_19, 0, x_1); +lean::closure_set(x_19, 1, x_12); +lean::closure_set(x_19, 2, x_0); +x_20 = l_List_mmap___main___rarg___closed__1; +lean::inc(x_4); +lean::inc(x_3); +x_23 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_20, x_19, x_3, x_4, x_5); +if (lean::obj_tag(x_23) == 0) { -obj* x_127; obj* x_129; obj* x_130; -lean::dec(x_16); +obj* x_29; obj* x_31; obj* x_32; +lean::dec(x_14); +lean::dec(x_4); lean::dec(x_1); -lean::dec(x_87); -lean::dec(x_89); -lean::dec(x_115); -x_127 = lean::cnstr_get(x_121, 0); -if (lean::is_exclusive(x_121)) { - x_129 = x_121; +lean::dec(x_3); +lean::dec(x_0); +x_29 = lean::cnstr_get(x_23, 0); +if (lean::is_exclusive(x_23)) { + x_31 = x_23; } else { - lean::inc(x_127); - lean::dec(x_121); - x_129 = lean::box(0); + lean::inc(x_29); + lean::dec(x_23); + x_31 = lean::box(0); } -if (lean::is_scalar(x_129)) { - x_130 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_31)) { + x_32 = lean::alloc_cnstr(0, 1, 0); } else { - x_130 = x_129; + x_32 = x_31; } -lean::cnstr_set(x_130, 0, x_127); -return x_130; +lean::cnstr_set(x_32, 0, x_29); +return x_32; } else { -obj* x_131; obj* x_133; obj* x_134; obj* x_136; obj* x_138; obj* x_139; uint8 x_140; obj* x_143; obj* x_144; obj* x_146; obj* x_147; obj* x_148; obj* x_151; obj* x_153; obj* x_154; obj* x_155; obj* x_156; obj* x_157; obj* x_158; obj* x_159; obj* x_160; obj* x_161; -x_131 = lean::cnstr_get(x_121, 0); -if (lean::is_exclusive(x_121)) { - x_133 = x_121; +obj* x_33; obj* x_36; obj* x_38; obj* x_41; +x_33 = lean::cnstr_get(x_23, 0); +lean::inc(x_33); +lean::dec(x_23); +x_36 = lean::cnstr_get(x_33, 0); +lean::inc(x_36); +x_38 = lean::cnstr_get(x_33, 1); +lean::inc(x_38); +lean::dec(x_33); +x_41 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(x_0, x_1, x_14, x_3, x_4, x_38); +if (lean::obj_tag(x_41) == 0) +{ +obj* x_43; obj* x_45; obj* x_46; +lean::dec(x_36); +x_43 = lean::cnstr_get(x_41, 0); +if (lean::is_exclusive(x_41)) { + x_45 = x_41; } else { - lean::inc(x_131); - lean::dec(x_121); - x_133 = lean::box(0); + lean::inc(x_43); + lean::dec(x_41); + x_45 = lean::box(0); } -x_134 = lean::cnstr_get(x_131, 0); -x_136 = lean::cnstr_get(x_131, 1); -if (lean::is_exclusive(x_131)) { - x_138 = x_131; +if (lean::is_scalar(x_45)) { + x_46 = lean::alloc_cnstr(0, 1, 0); } else { - lean::inc(x_134); - lean::inc(x_136); - lean::dec(x_131); - x_138 = lean::box(0); + x_46 = x_45; } -x_139 = l_Lean_Elaborator_dummy; -x_140 = lean::unbox(x_87); -lean::inc(x_1); -lean::inc(x_1); -x_143 = lean_expr_local(x_1, x_1, x_139, x_140); -x_144 = lean::cnstr_get(x_89, 0); -lean::inc(x_144); -x_146 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_144); -x_147 = l_Lean_Elaborator_namesToPexpr(x_146); -x_148 = lean::cnstr_get(x_89, 1); -lean::inc(x_148); -lean::dec(x_89); -x_151 = l_Lean_Elaborator_inferModToPexpr(x_148); -lean::dec(x_148); -x_153 = lean::box(0); -if (lean::is_scalar(x_16)) { - x_154 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_43); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_47 = lean::cnstr_get(x_41, 0); +if (lean::is_exclusive(x_41)) { + x_49 = x_41; } else { - x_154 = x_16; + lean::inc(x_47); + lean::dec(x_41); + x_49 = lean::box(0); } -lean::cnstr_set(x_154, 0, x_115); -lean::cnstr_set(x_154, 1, x_153); -x_155 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_155, 0, x_151); -lean::cnstr_set(x_155, 1, x_154); -x_156 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_156, 0, x_147); -lean::cnstr_set(x_156, 1, x_155); -x_157 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_157, 0, x_143); -lean::cnstr_set(x_157, 1, x_156); -x_158 = l_Lean_Expr_mkCapp(x_1, x_157); -x_159 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_159, 0, x_158); -lean::cnstr_set(x_159, 1, x_134); -if (lean::is_scalar(x_138)) { - x_160 = lean::alloc_cnstr(0, 2, 0); +x_50 = lean::cnstr_get(x_47, 0); +x_52 = lean::cnstr_get(x_47, 1); +if (lean::is_exclusive(x_47)) { + x_54 = x_47; } else { - x_160 = x_138; + lean::inc(x_50); + lean::inc(x_52); + lean::dec(x_47); + x_54 = lean::box(0); } -lean::cnstr_set(x_160, 0, x_159); -lean::cnstr_set(x_160, 1, x_136); -if (lean::is_scalar(x_133)) { - x_161 = lean::alloc_cnstr(1, 1, 0); +x_55 = lean::apply_1(x_36, x_50); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(0, 2, 0); } else { - x_161 = x_133; + x_56 = x_54; } -lean::cnstr_set(x_161, 0, x_160); -return x_161; +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_52); +if (lean::is_scalar(x_49)) { + x_57 = lean::alloc_cnstr(1, 1, 0); +} else { + x_57 = x_49; } +lean::cnstr_set(x_57, 0, x_56); +return x_57; } } } @@ -15891,62 +14417,65 @@ return x_161; obj* l_Lean_Elaborator_Declaration_elaborate___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { -obj* x_9; obj* x_13; +obj* x_9; obj* x_14; x_9 = lean::cnstr_get(x_0, 1); lean::inc(x_9); lean::dec(x_0); lean::inc(x_7); -x_13 = l_Lean_Elaborator_toPexpr___main(x_9, x_6, x_7, x_8); -if (lean::obj_tag(x_13) == 0) +lean::inc(x_6); +x_14 = l_Lean_Elaborator_toPexpr___main(x_9, x_6, x_7, x_8); +if (lean::obj_tag(x_14) == 0) { -obj* x_19; obj* x_21; obj* x_22; +obj* x_21; obj* x_23; obj* x_24; lean::dec(x_5); lean::dec(x_7); lean::dec(x_1); +lean::dec(x_6); lean::dec(x_3); lean::dec(x_2); -x_19 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - x_21 = x_13; +x_21 = lean::cnstr_get(x_14, 0); +if (lean::is_exclusive(x_14)) { + x_23 = x_14; } else { - lean::inc(x_19); - lean::dec(x_13); - x_21 = lean::box(0); + lean::inc(x_21); + lean::dec(x_14); + x_23 = lean::box(0); } -if (lean::is_scalar(x_21)) { - x_22 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_22 = x_21; + x_24 = x_23; } -lean::cnstr_set(x_22, 0, x_19); -return x_22; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_23; obj* x_26; obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_23 = lean::cnstr_get(x_13, 0); -lean::inc(x_23); -lean::dec(x_13); -x_26 = lean::cnstr_get(x_23, 0); -lean::inc(x_26); -x_28 = lean::cnstr_get(x_23, 1); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_25 = lean::cnstr_get(x_14, 0); +lean::inc(x_25); +lean::dec(x_14); +x_28 = lean::cnstr_get(x_25, 0); lean::inc(x_28); -lean::dec(x_23); -x_31 = l_Lean_Elaborator_identUnivParamsToPexpr(x_1); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_26); -lean::cnstr_set(x_32, 1, x_2); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_32); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); +lean::dec(x_25); +x_33 = l_Lean_Elaborator_identUnivParamsToPexpr(x_1); x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_5); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_Lean_Elaborator_mkEqns___closed__1; -x_36 = l_Lean_Expr_mkCapp(x_35, x_34); -x_37 = lean_expr_mk_mdata(x_3, x_36); -x_38 = l_Lean_Elaborator_oldElabCommand(x_4, x_37, x_6, x_7, x_28); -return x_38; +lean::cnstr_set(x_34, 0, x_28); +lean::cnstr_set(x_34, 1, x_2); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_33); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_5); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_Lean_Elaborator_mkEqns___closed__1; +x_38 = l_Lean_Expr_mkCapp(x_37, x_36); +x_39 = lean_expr_mk_mdata(x_3, x_38); +x_40 = l_Lean_Elaborator_oldElabCommand(x_4, x_39, x_6, x_7, x_30); +lean::dec(x_6); +return x_40; } } } @@ -15972,344 +14501,356 @@ goto lbl_14; } lbl_14: { -obj* x_21; +obj* x_22; lean::inc(x_11); -x_21 = l_Lean_Elaborator_attrsToPexpr(x_13, x_10, x_11, x_12); -if (lean::obj_tag(x_21) == 0) +lean::inc(x_10); +x_22 = l_Lean_Elaborator_attrsToPexpr(x_13, x_10, x_11, x_12); +if (lean::obj_tag(x_22) == 0) { -obj* x_31; obj* x_33; obj* x_34; +obj* x_33; obj* x_35; obj* x_36; lean::dec(x_5); lean::dec(x_9); lean::dec(x_11); +lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); lean::dec(x_6); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_31 = lean::cnstr_get(x_21, 0); -if (lean::is_exclusive(x_21)) { - x_33 = x_21; +x_33 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_35 = x_22; } else { - lean::inc(x_31); - lean::dec(x_21); - x_33 = lean::box(0); + lean::inc(x_33); + lean::dec(x_22); + x_35 = lean::box(0); } -if (lean::is_scalar(x_33)) { - x_34 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_35)) { + x_36 = lean::alloc_cnstr(0, 1, 0); } else { - x_34 = x_33; + x_36 = x_35; } -lean::cnstr_set(x_34, 0, x_31); -return x_34; +lean::cnstr_set(x_36, 0, x_33); +return x_36; } else { -obj* x_35; obj* x_38; obj* x_40; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; -x_35 = lean::cnstr_get(x_21, 0); -lean::inc(x_35); -lean::dec(x_21); -x_38 = lean::cnstr_get(x_35, 0); -lean::inc(x_38); -x_40 = lean::cnstr_get(x_35, 1); +obj* x_37; obj* x_40; obj* x_42; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_37 = lean::cnstr_get(x_22, 0); +lean::inc(x_37); +lean::dec(x_22); +x_40 = lean::cnstr_get(x_37, 0); lean::inc(x_40); -lean::dec(x_35); +x_42 = lean::cnstr_get(x_37, 1); +lean::inc(x_42); +lean::dec(x_37); lean::inc(x_0); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_38); -lean::cnstr_set(x_44, 1, x_0); -x_45 = l_Lean_Elaborator_mkEqns___closed__1; -x_46 = l_Lean_Expr_mkCapp(x_45, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_40); +lean::cnstr_set(x_46, 1, x_0); +x_47 = l_Lean_Elaborator_mkEqns___closed__1; +x_48 = l_Lean_Expr_mkCapp(x_47, x_46); if (lean::obj_tag(x_6) == 0) { -obj* x_50; obj* x_52; -x_50 = l_Lean_Expander_getOptType___main(x_7); +obj* x_52; obj* x_55; +x_52 = l_Lean_Expander_getOptType___main(x_7); lean::inc(x_11); -x_52 = l_Lean_Elaborator_toPexpr___main(x_50, x_10, x_11, x_40); -if (lean::obj_tag(x_52) == 0) +lean::inc(x_10); +x_55 = l_Lean_Elaborator_toPexpr___main(x_52, x_10, x_11, x_42); +if (lean::obj_tag(x_55) == 0) { -obj* x_62; obj* x_64; obj* x_65; +obj* x_66; obj* x_68; obj* x_69; lean::dec(x_5); lean::dec(x_9); lean::dec(x_11); +lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_46); -x_62 = lean::cnstr_get(x_52, 0); -if (lean::is_exclusive(x_52)) { - x_64 = x_52; -} else { - lean::inc(x_62); - lean::dec(x_52); - x_64 = lean::box(0); -} -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(0, 1, 0); -} else { - x_65 = x_64; -} -lean::cnstr_set(x_65, 0, x_62); -return x_65; -} -else -{ -obj* x_66; -x_66 = lean::cnstr_get(x_52, 0); -lean::inc(x_66); -lean::dec(x_52); -lean::inc(x_0); -x_47 = x_0; -x_48 = x_66; -goto lbl_49; -} -} -else -{ -obj* x_70; obj* x_74; obj* x_76; -x_70 = lean::cnstr_get(x_6, 0); -lean::inc(x_70); -lean::dec(x_6); -lean::inc(x_70); -x_74 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___lambda__1), 2, 1); -lean::closure_set(x_74, 0, x_70); -lean::inc(x_11); -x_76 = l_Lean_Elaborator_modifyCurrentScope(x_74, x_10, x_11, x_40); -if (lean::obj_tag(x_76) == 0) -{ -obj* x_87; obj* x_89; obj* x_90; -lean::dec(x_5); -lean::dec(x_9); -lean::dec(x_11); -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_70); -lean::dec(x_46); -x_87 = lean::cnstr_get(x_76, 0); -if (lean::is_exclusive(x_76)) { - x_89 = x_76; -} else { - lean::inc(x_87); - lean::dec(x_76); - x_89 = lean::box(0); -} -if (lean::is_scalar(x_89)) { - x_90 = lean::alloc_cnstr(0, 1, 0); -} else { - x_90 = x_89; -} -lean::cnstr_set(x_90, 0, x_87); -return x_90; -} -else -{ -obj* x_91; obj* x_94; obj* x_97; obj* x_99; -x_91 = lean::cnstr_get(x_76, 0); -lean::inc(x_91); -lean::dec(x_76); -x_94 = lean::cnstr_get(x_91, 1); -lean::inc(x_94); -lean::dec(x_91); -x_97 = l_Lean_Expander_getOptType___main(x_7); -lean::inc(x_11); -x_99 = l_Lean_Elaborator_toPexpr___main(x_97, x_10, x_11, x_94); -if (lean::obj_tag(x_99) == 0) -{ -obj* x_110; obj* x_112; obj* x_113; -lean::dec(x_5); -lean::dec(x_9); -lean::dec(x_11); -lean::dec(x_4); -lean::dec(x_1); -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_2); -lean::dec(x_70); -lean::dec(x_46); -x_110 = lean::cnstr_get(x_99, 0); -if (lean::is_exclusive(x_99)) { - x_112 = x_99; -} else { - lean::inc(x_110); - lean::dec(x_99); - x_112 = lean::box(0); -} -if (lean::is_scalar(x_112)) { - x_113 = lean::alloc_cnstr(0, 1, 0); -} else { - x_113 = x_112; -} -lean::cnstr_set(x_113, 0, x_110); -return x_113; -} -else -{ -obj* x_114; obj* x_117; obj* x_120; -x_114 = lean::cnstr_get(x_99, 0); -lean::inc(x_114); -lean::dec(x_99); -x_117 = lean::cnstr_get(x_70, 1); -lean::inc(x_117); -lean::dec(x_70); -x_120 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_117); -x_47 = x_120; -x_48 = x_114; -goto lbl_49; -} -} -} -lbl_49: -{ -obj* x_121; obj* x_123; obj* x_127; -x_121 = lean::cnstr_get(x_48, 0); -lean::inc(x_121); -x_123 = lean::cnstr_get(x_48, 1); -lean::inc(x_123); lean::dec(x_48); -lean::inc(x_11); -x_127 = l_Lean_Elaborator_simpleBindersToPexpr(x_1, x_10, x_11, x_123); -if (lean::obj_tag(x_127) == 0) +x_66 = lean::cnstr_get(x_55, 0); +if (lean::is_exclusive(x_55)) { + x_68 = x_55; +} else { + lean::inc(x_66); + lean::dec(x_55); + x_68 = lean::box(0); +} +if (lean::is_scalar(x_68)) { + x_69 = lean::alloc_cnstr(0, 1, 0); +} else { + x_69 = x_68; +} +lean::cnstr_set(x_69, 0, x_66); +return x_69; +} +else { -obj* x_138; obj* x_140; obj* x_141; +obj* x_70; +x_70 = lean::cnstr_get(x_55, 0); +lean::inc(x_70); +lean::dec(x_55); +lean::inc(x_0); +x_49 = x_0; +x_50 = x_70; +goto lbl_51; +} +} +else +{ +obj* x_74; obj* x_78; obj* x_80; +x_74 = lean::cnstr_get(x_6, 0); +lean::inc(x_74); +lean::dec(x_6); +lean::inc(x_74); +x_78 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___lambda__1), 2, 1); +lean::closure_set(x_78, 0, x_74); +lean::inc(x_11); +x_80 = l_Lean_Elaborator_modifyCurrentScope(x_78, x_10, x_11, x_42); +if (lean::obj_tag(x_80) == 0) +{ +obj* x_92; obj* x_94; obj* x_95; lean::dec(x_5); lean::dec(x_9); lean::dec(x_11); +lean::dec(x_10); +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_74); +lean::dec(x_48); +x_92 = lean::cnstr_get(x_80, 0); +if (lean::is_exclusive(x_80)) { + x_94 = x_80; +} else { + lean::inc(x_92); + lean::dec(x_80); + x_94 = lean::box(0); +} +if (lean::is_scalar(x_94)) { + x_95 = lean::alloc_cnstr(0, 1, 0); +} else { + x_95 = x_94; +} +lean::cnstr_set(x_95, 0, x_92); +return x_95; +} +else +{ +obj* x_96; obj* x_99; obj* x_102; obj* x_105; +x_96 = lean::cnstr_get(x_80, 0); +lean::inc(x_96); +lean::dec(x_80); +x_99 = lean::cnstr_get(x_96, 1); +lean::inc(x_99); +lean::dec(x_96); +x_102 = l_Lean_Expander_getOptType___main(x_7); +lean::inc(x_11); +lean::inc(x_10); +x_105 = l_Lean_Elaborator_toPexpr___main(x_102, x_10, x_11, x_99); +if (lean::obj_tag(x_105) == 0) +{ +obj* x_117; obj* x_119; obj* x_120; +lean::dec(x_5); +lean::dec(x_9); +lean::dec(x_11); +lean::dec(x_10); +lean::dec(x_4); +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +lean::dec(x_74); +lean::dec(x_48); +x_117 = lean::cnstr_get(x_105, 0); +if (lean::is_exclusive(x_105)) { + x_119 = x_105; +} else { + lean::inc(x_117); + lean::dec(x_105); + x_119 = lean::box(0); +} +if (lean::is_scalar(x_119)) { + x_120 = lean::alloc_cnstr(0, 1, 0); +} else { + x_120 = x_119; +} +lean::cnstr_set(x_120, 0, x_117); +return x_120; +} +else +{ +obj* x_121; obj* x_124; obj* x_127; +x_121 = lean::cnstr_get(x_105, 0); +lean::inc(x_121); +lean::dec(x_105); +x_124 = lean::cnstr_get(x_74, 1); +lean::inc(x_124); +lean::dec(x_74); +x_127 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_124); +x_49 = x_127; +x_50 = x_121; +goto lbl_51; +} +} +} +lbl_51: +{ +obj* x_128; obj* x_130; obj* x_135; +x_128 = lean::cnstr_get(x_50, 0); +lean::inc(x_128); +x_130 = lean::cnstr_get(x_50, 1); +lean::inc(x_130); +lean::dec(x_50); +lean::inc(x_11); +lean::inc(x_10); +x_135 = l_Lean_Elaborator_simpleBindersToPexpr(x_1, x_10, x_11, x_130); +if (lean::obj_tag(x_135) == 0) +{ +obj* x_147; obj* x_149; obj* x_150; +lean::dec(x_5); +lean::dec(x_9); +lean::dec(x_11); +lean::dec(x_10); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_46); -lean::dec(x_47); -lean::dec(x_121); -x_138 = lean::cnstr_get(x_127, 0); -if (lean::is_exclusive(x_127)) { - x_140 = x_127; +lean::dec(x_48); +lean::dec(x_128); +lean::dec(x_49); +x_147 = lean::cnstr_get(x_135, 0); +if (lean::is_exclusive(x_135)) { + x_149 = x_135; } else { - lean::inc(x_138); - lean::dec(x_127); - x_140 = lean::box(0); + lean::inc(x_147); + lean::dec(x_135); + x_149 = lean::box(0); } -if (lean::is_scalar(x_140)) { - x_141 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_149)) { + x_150 = lean::alloc_cnstr(0, 1, 0); } else { - x_141 = x_140; + x_150 = x_149; } -lean::cnstr_set(x_141, 0, x_138); -return x_141; +lean::cnstr_set(x_150, 0, x_147); +return x_150; } else { -obj* x_142; obj* x_145; obj* x_147; obj* x_153; -x_142 = lean::cnstr_get(x_127, 0); -lean::inc(x_142); -lean::dec(x_127); -x_145 = lean::cnstr_get(x_142, 0); -lean::inc(x_145); -x_147 = lean::cnstr_get(x_142, 1); -lean::inc(x_147); -lean::dec(x_142); +obj* x_151; obj* x_154; obj* x_156; obj* x_163; +x_151 = lean::cnstr_get(x_135, 0); +lean::inc(x_151); +lean::dec(x_135); +x_154 = lean::cnstr_get(x_151, 0); +lean::inc(x_154); +x_156 = lean::cnstr_get(x_151, 1); +lean::inc(x_156); +lean::dec(x_151); lean::inc(x_11); +lean::inc(x_10); lean::inc(x_3); lean::inc(x_2); -x_153 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2(x_2, x_3, x_10, x_11, x_147); -if (lean::obj_tag(x_153) == 0) +x_163 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2(x_2, x_3, x_10, x_11, x_156); +if (lean::obj_tag(x_163) == 0) { -obj* x_165; obj* x_167; obj* x_168; +obj* x_176; obj* x_178; obj* x_179; lean::dec(x_5); lean::dec(x_9); lean::dec(x_11); +lean::dec(x_10); lean::dec(x_4); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_46); -lean::dec(x_145); -lean::dec(x_47); -lean::dec(x_121); -x_165 = lean::cnstr_get(x_153, 0); -if (lean::is_exclusive(x_153)) { - x_167 = x_153; +lean::dec(x_48); +lean::dec(x_154); +lean::dec(x_128); +lean::dec(x_49); +x_176 = lean::cnstr_get(x_163, 0); +if (lean::is_exclusive(x_163)) { + x_178 = x_163; } else { - lean::inc(x_165); - lean::dec(x_153); - x_167 = lean::box(0); + lean::inc(x_176); + lean::dec(x_163); + x_178 = lean::box(0); } -if (lean::is_scalar(x_167)) { - x_168 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_178)) { + x_179 = lean::alloc_cnstr(0, 1, 0); } else { - x_168 = x_167; + x_179 = x_178; } -lean::cnstr_set(x_168, 0, x_165); -return x_168; +lean::cnstr_set(x_179, 0, x_176); +return x_179; } else { -obj* x_169; obj* x_172; obj* x_174; obj* x_177; obj* x_178; obj* x_181; uint8 x_182; obj* x_184; obj* x_186; obj* x_187; obj* x_188; obj* x_190; obj* x_191; obj* x_192; obj* x_193; obj* x_195; obj* x_196; obj* x_197; obj* x_198; obj* x_199; obj* x_200; obj* x_201; obj* x_202; obj* x_203; obj* x_204; obj* x_205; obj* x_206; -x_169 = lean::cnstr_get(x_153, 0); -lean::inc(x_169); -lean::dec(x_153); -x_172 = lean::cnstr_get(x_169, 0); -lean::inc(x_172); -x_174 = lean::cnstr_get(x_169, 1); -lean::inc(x_174); -lean::dec(x_169); -x_177 = l_Lean_Elaborator_namesToPexpr(x_47); -x_178 = lean::cnstr_get(x_4, 0); -lean::inc(x_178); +obj* x_180; obj* x_183; obj* x_185; obj* x_188; obj* x_189; obj* x_192; uint8 x_193; obj* x_195; obj* x_197; obj* x_198; obj* x_199; obj* x_201; obj* x_202; obj* x_203; obj* x_204; obj* x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; obj* x_212; obj* x_213; obj* x_214; obj* x_215; obj* x_216; obj* x_217; +x_180 = lean::cnstr_get(x_163, 0); +lean::inc(x_180); +lean::dec(x_163); +x_183 = lean::cnstr_get(x_180, 0); +lean::inc(x_183); +x_185 = lean::cnstr_get(x_180, 1); +lean::inc(x_185); +lean::dec(x_180); +x_188 = l_Lean_Elaborator_namesToPexpr(x_49); +x_189 = lean::cnstr_get(x_4, 0); +lean::inc(x_189); lean::dec(x_4); -x_181 = l_Lean_Elaborator_mangleIdent(x_178); -x_182 = 0; -lean::inc(x_181); -x_184 = lean_expr_local(x_181, x_181, x_121, x_182); +x_192 = l_Lean_Elaborator_mangleIdent(x_189); +x_193 = 0; +lean::inc(x_192); +x_195 = lean_expr_local(x_192, x_192, x_128, x_193); lean::inc(x_0); -x_186 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_186, 0, x_184); -lean::cnstr_set(x_186, 1, x_0); -x_187 = l_Lean_Expr_mkCapp(x_45, x_186); -x_188 = l_Lean_Expr_mkCapp(x_45, x_172); -lean::inc(x_0); -x_190 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_190, 0, x_188); -lean::cnstr_set(x_190, 1, x_0); -x_191 = l_Lean_Expr_mkCapp(x_45, x_190); -x_192 = l_List_map___main___at_Lean_Elaborator_Declaration_elaborate___spec__3(x_3); -x_193 = l_Lean_Expr_mkCapp(x_45, x_192); -lean::inc(x_0); -x_195 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_195, 0, x_193); -lean::cnstr_set(x_195, 1, x_0); -x_196 = l_Lean_Expr_mkCapp(x_45, x_195); x_197 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_197, 0, x_196); +lean::cnstr_set(x_197, 0, x_195); lean::cnstr_set(x_197, 1, x_0); -x_198 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_198, 0, x_191); -lean::cnstr_set(x_198, 1, x_197); -x_199 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_199, 0, x_145); -lean::cnstr_set(x_199, 1, x_198); -x_200 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_200, 0, x_187); -lean::cnstr_set(x_200, 1, x_199); +x_198 = l_Lean_Expr_mkCapp(x_47, x_197); +x_199 = l_Lean_Expr_mkCapp(x_47, x_183); +lean::inc(x_0); x_201 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_201, 0, x_177); -lean::cnstr_set(x_201, 1, x_200); -x_202 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_202, 0, x_46); -lean::cnstr_set(x_202, 1, x_201); -x_203 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_203, 0, x_9); -lean::cnstr_set(x_203, 1, x_202); -x_204 = l_Lean_Expr_mkCapp(x_45, x_203); -x_205 = lean_expr_mk_mdata(x_5, x_204); -x_206 = l_Lean_Elaborator_oldElabCommand(x_2, x_205, x_10, x_11, x_174); +lean::cnstr_set(x_201, 0, x_199); +lean::cnstr_set(x_201, 1, x_0); +x_202 = l_Lean_Expr_mkCapp(x_47, x_201); +x_203 = l_List_map___main___at_Lean_Elaborator_Declaration_elaborate___spec__3(x_3); +x_204 = l_Lean_Expr_mkCapp(x_47, x_203); +lean::inc(x_0); +x_206 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_206, 0, x_204); +lean::cnstr_set(x_206, 1, x_0); +x_207 = l_Lean_Expr_mkCapp(x_47, x_206); +x_208 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_208, 0, x_207); +lean::cnstr_set(x_208, 1, x_0); +x_209 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_209, 0, x_202); +lean::cnstr_set(x_209, 1, x_208); +x_210 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_210, 0, x_154); +lean::cnstr_set(x_210, 1, x_209); +x_211 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_211, 0, x_198); +lean::cnstr_set(x_211, 1, x_210); +x_212 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_212, 0, x_188); +lean::cnstr_set(x_212, 1, x_211); +x_213 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_213, 0, x_48); +lean::cnstr_set(x_213, 1, x_212); +x_214 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_214, 0, x_9); +lean::cnstr_set(x_214, 1, x_213); +x_215 = l_Lean_Expr_mkCapp(x_47, x_214); +x_216 = lean_expr_mk_mdata(x_5, x_215); +x_217 = l_Lean_Elaborator_oldElabCommand(x_2, x_216, x_10, x_11, x_185); +lean::dec(x_10); lean::dec(x_2); -return x_206; +return x_217; } } } @@ -16342,14 +14883,16 @@ _start: obj* x_14; obj* x_15; if (lean::obj_tag(x_8) == 0) { -obj* x_17; obj* x_19; +obj* x_17; obj* x_20; x_17 = l_Lean_Expander_getOptType___main(x_9); lean::inc(x_12); -x_19 = l_Lean_Elaborator_toPexpr___main(x_17, x_11, x_12, x_13); -if (lean::obj_tag(x_19) == 0) +lean::inc(x_11); +x_20 = l_Lean_Elaborator_toPexpr___main(x_17, x_11, x_12, x_13); +if (lean::obj_tag(x_20) == 0) { -obj* x_29; obj* x_31; obj* x_32; +obj* x_31; obj* x_33; obj* x_34; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); @@ -16358,49 +14901,50 @@ lean::dec(x_3); lean::dec(x_0); lean::dec(x_12); lean::dec(x_2); -x_29 = lean::cnstr_get(x_19, 0); -if (lean::is_exclusive(x_19)) { - x_31 = x_19; +x_31 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_33 = x_20; } else { - lean::inc(x_29); - lean::dec(x_19); - x_31 = lean::box(0); + lean::inc(x_31); + lean::dec(x_20); + x_33 = lean::box(0); } -if (lean::is_scalar(x_31)) { - x_32 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_33)) { + x_34 = lean::alloc_cnstr(0, 1, 0); } else { - x_32 = x_31; + x_34 = x_33; } -lean::cnstr_set(x_32, 0, x_29); -return x_32; +lean::cnstr_set(x_34, 0, x_31); +return x_34; } else { -obj* x_33; -x_33 = lean::cnstr_get(x_19, 0); -lean::inc(x_33); -lean::dec(x_19); +obj* x_35; +x_35 = lean::cnstr_get(x_20, 0); +lean::inc(x_35); +lean::dec(x_20); lean::inc(x_5); x_14 = x_5; -x_15 = x_33; +x_15 = x_35; goto lbl_16; } } else { -obj* x_37; obj* x_41; obj* x_43; -x_37 = lean::cnstr_get(x_8, 0); -lean::inc(x_37); +obj* x_39; obj* x_43; obj* x_45; +x_39 = lean::cnstr_get(x_8, 0); +lean::inc(x_39); lean::dec(x_8); -lean::inc(x_37); -x_41 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___lambda__1), 2, 1); -lean::closure_set(x_41, 0, x_37); +lean::inc(x_39); +x_43 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___lambda__1), 2, 1); +lean::closure_set(x_43, 0, x_39); lean::inc(x_12); -x_43 = l_Lean_Elaborator_modifyCurrentScope(x_41, x_11, x_12, x_13); -if (lean::obj_tag(x_43) == 0) +x_45 = l_Lean_Elaborator_modifyCurrentScope(x_43, x_11, x_12, x_13); +if (lean::obj_tag(x_45) == 0) { -obj* x_54; obj* x_56; obj* x_57; +obj* x_57; obj* x_59; obj* x_60; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); @@ -16409,39 +14953,41 @@ lean::dec(x_3); lean::dec(x_0); lean::dec(x_12); lean::dec(x_2); -lean::dec(x_37); -x_54 = lean::cnstr_get(x_43, 0); -if (lean::is_exclusive(x_43)) { - x_56 = x_43; +lean::dec(x_39); +x_57 = lean::cnstr_get(x_45, 0); +if (lean::is_exclusive(x_45)) { + x_59 = x_45; } else { - lean::inc(x_54); - lean::dec(x_43); - x_56 = lean::box(0); + lean::inc(x_57); + lean::dec(x_45); + x_59 = lean::box(0); } -if (lean::is_scalar(x_56)) { - x_57 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_59)) { + x_60 = lean::alloc_cnstr(0, 1, 0); } else { - x_57 = x_56; + x_60 = x_59; } -lean::cnstr_set(x_57, 0, x_54); -return x_57; +lean::cnstr_set(x_60, 0, x_57); +return x_60; } else { -obj* x_58; obj* x_61; obj* x_64; obj* x_66; -x_58 = lean::cnstr_get(x_43, 0); -lean::inc(x_58); -lean::dec(x_43); -x_61 = lean::cnstr_get(x_58, 1); +obj* x_61; obj* x_64; obj* x_67; obj* x_70; +x_61 = lean::cnstr_get(x_45, 0); lean::inc(x_61); -lean::dec(x_58); -x_64 = l_Lean_Expander_getOptType___main(x_9); +lean::dec(x_45); +x_64 = lean::cnstr_get(x_61, 1); +lean::inc(x_64); +lean::dec(x_61); +x_67 = l_Lean_Expander_getOptType___main(x_9); lean::inc(x_12); -x_66 = l_Lean_Elaborator_toPexpr___main(x_64, x_11, x_12, x_61); -if (lean::obj_tag(x_66) == 0) +lean::inc(x_11); +x_70 = l_Lean_Elaborator_toPexpr___main(x_67, x_11, x_12, x_64); +if (lean::obj_tag(x_70) == 0) { -obj* x_77; obj* x_79; obj* x_80; +obj* x_82; obj* x_84; obj* x_85; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); @@ -16450,53 +14996,55 @@ lean::dec(x_3); lean::dec(x_0); lean::dec(x_12); lean::dec(x_2); -lean::dec(x_37); -x_77 = lean::cnstr_get(x_66, 0); -if (lean::is_exclusive(x_66)) { - x_79 = x_66; +lean::dec(x_39); +x_82 = lean::cnstr_get(x_70, 0); +if (lean::is_exclusive(x_70)) { + x_84 = x_70; } else { - lean::inc(x_77); - lean::dec(x_66); - x_79 = lean::box(0); + lean::inc(x_82); + lean::dec(x_70); + x_84 = lean::box(0); } -if (lean::is_scalar(x_79)) { - x_80 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_84)) { + x_85 = lean::alloc_cnstr(0, 1, 0); } else { - x_80 = x_79; + x_85 = x_84; } -lean::cnstr_set(x_80, 0, x_77); -return x_80; +lean::cnstr_set(x_85, 0, x_82); +return x_85; } else { -obj* x_81; obj* x_84; obj* x_87; -x_81 = lean::cnstr_get(x_66, 0); -lean::inc(x_81); -lean::dec(x_66); -x_84 = lean::cnstr_get(x_37, 1); -lean::inc(x_84); -lean::dec(x_37); -x_87 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_84); -x_14 = x_87; -x_15 = x_81; +obj* x_86; obj* x_89; obj* x_92; +x_86 = lean::cnstr_get(x_70, 0); +lean::inc(x_86); +lean::dec(x_70); +x_89 = lean::cnstr_get(x_39, 1); +lean::inc(x_89); +lean::dec(x_39); +x_92 = l_List_map___main___at_Lean_Elaborator_elabDefLike___spec__2(x_89); +x_14 = x_92; +x_15 = x_86; goto lbl_16; } } } lbl_16: { -obj* x_88; obj* x_90; obj* x_94; -x_88 = lean::cnstr_get(x_15, 0); -lean::inc(x_88); -x_90 = lean::cnstr_get(x_15, 1); -lean::inc(x_90); +obj* x_93; obj* x_95; obj* x_100; +x_93 = lean::cnstr_get(x_15, 0); +lean::inc(x_93); +x_95 = lean::cnstr_get(x_15, 1); +lean::inc(x_95); lean::dec(x_15); lean::inc(x_12); -x_94 = l_Lean_Elaborator_simpleBindersToPexpr(x_0, x_11, x_12, x_90); -if (lean::obj_tag(x_94) == 0) +lean::inc(x_11); +x_100 = l_Lean_Elaborator_simpleBindersToPexpr(x_0, x_11, x_12, x_95); +if (lean::obj_tag(x_100) == 0) { -obj* x_105; obj* x_107; obj* x_108; +obj* x_112; obj* x_114; obj* x_115; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_4); lean::dec(x_1); @@ -16505,297 +15053,304 @@ lean::dec(x_3); lean::dec(x_12); lean::dec(x_2); lean::dec(x_14); -lean::dec(x_88); -x_105 = lean::cnstr_get(x_94, 0); -if (lean::is_exclusive(x_94)) { - x_107 = x_94; +lean::dec(x_93); +x_112 = lean::cnstr_get(x_100, 0); +if (lean::is_exclusive(x_100)) { + x_114 = x_100; } else { - lean::inc(x_105); - lean::dec(x_94); - x_107 = lean::box(0); + lean::inc(x_112); + lean::dec(x_100); + x_114 = lean::box(0); } -if (lean::is_scalar(x_107)) { - x_108 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_114)) { + x_115 = lean::alloc_cnstr(0, 1, 0); } else { - x_108 = x_107; + x_115 = x_114; } -lean::cnstr_set(x_108, 0, x_105); -return x_108; +lean::cnstr_set(x_115, 0, x_112); +return x_115; } else { -obj* x_109; obj* x_112; obj* x_114; obj* x_117; obj* x_118; obj* x_121; obj* x_122; uint8 x_123; obj* x_125; obj* x_126; -x_109 = lean::cnstr_get(x_94, 0); -lean::inc(x_109); -lean::dec(x_94); -x_112 = lean::cnstr_get(x_109, 0); -lean::inc(x_112); -x_114 = lean::cnstr_get(x_109, 1); -lean::inc(x_114); -lean::dec(x_109); -x_117 = l_Lean_Elaborator_namesToPexpr(x_14); -x_118 = lean::cnstr_get(x_1, 0); -lean::inc(x_118); -lean::dec(x_1); -x_121 = l_Lean_Elaborator_mangleIdent(x_118); -x_122 = l_Lean_Elaborator_dummy; -x_123 = 0; +obj* x_116; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_128; obj* x_129; uint8 x_130; obj* x_132; obj* x_133; +x_116 = lean::cnstr_get(x_100, 0); +lean::inc(x_116); +lean::dec(x_100); +x_119 = lean::cnstr_get(x_116, 0); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_116, 1); lean::inc(x_121); -x_125 = lean_expr_local(x_121, x_121, x_122, x_123); +lean::dec(x_116); +x_124 = l_Lean_Elaborator_namesToPexpr(x_14); +x_125 = lean::cnstr_get(x_1, 0); +lean::inc(x_125); +lean::dec(x_1); +x_128 = l_Lean_Elaborator_mangleIdent(x_125); +x_129 = l_Lean_Elaborator_dummy; +x_130 = 0; +lean::inc(x_128); +x_132 = lean_expr_local(x_128, x_128, x_129, x_130); if (lean::obj_tag(x_7) == 0) { lean::inc(x_5); -x_126 = x_5; -goto lbl_127; +x_133 = x_5; +goto lbl_134; } else { -obj* x_129; obj* x_130; -x_129 = lean::cnstr_get(x_7, 0); -x_130 = lean::cnstr_get(x_129, 1); -lean::inc(x_130); -x_126 = x_130; -goto lbl_127; +obj* x_136; obj* x_137; +x_136 = lean::cnstr_get(x_7, 0); +x_137 = lean::cnstr_get(x_136, 1); +lean::inc(x_137); +x_133 = x_137; +goto lbl_134; } -lbl_127: +lbl_134: { -obj* x_133; +obj* x_141; lean::inc(x_12); -x_133 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4(x_126, x_11, x_12, x_114); -if (lean::obj_tag(x_133) == 0) +lean::inc(x_11); +x_141 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4(x_133, x_11, x_12, x_121); +if (lean::obj_tag(x_141) == 0) { -obj* x_145; obj* x_147; obj* x_148; +obj* x_154; obj* x_156; obj* x_157; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_4); lean::dec(x_6); lean::dec(x_3); lean::dec(x_12); lean::dec(x_2); -lean::dec(x_112); -lean::dec(x_88); -lean::dec(x_117); -lean::dec(x_125); -x_145 = lean::cnstr_get(x_133, 0); -if (lean::is_exclusive(x_133)) { - x_147 = x_133; +lean::dec(x_124); +lean::dec(x_93); +lean::dec(x_119); +lean::dec(x_132); +x_154 = lean::cnstr_get(x_141, 0); +if (lean::is_exclusive(x_141)) { + x_156 = x_141; } else { - lean::inc(x_145); - lean::dec(x_133); - x_147 = lean::box(0); + lean::inc(x_154); + lean::dec(x_141); + x_156 = lean::box(0); } -if (lean::is_scalar(x_147)) { - x_148 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_156)) { + x_157 = lean::alloc_cnstr(0, 1, 0); } else { - x_148 = x_147; + x_157 = x_156; } -lean::cnstr_set(x_148, 0, x_145); -return x_148; +lean::cnstr_set(x_157, 0, x_154); +return x_157; } else { -obj* x_149; obj* x_152; obj* x_154; obj* x_157; obj* x_158; obj* x_161; obj* x_162; -x_149 = lean::cnstr_get(x_133, 0); -lean::inc(x_149); -lean::dec(x_133); -x_152 = lean::cnstr_get(x_149, 0); -lean::inc(x_152); -x_154 = lean::cnstr_get(x_149, 1); -lean::inc(x_154); -lean::dec(x_149); -x_157 = l_Lean_Elaborator_mkEqns___closed__1; -x_158 = l_Lean_Expr_mkCapp(x_157, x_152); +obj* x_158; obj* x_161; obj* x_163; obj* x_166; obj* x_167; obj* x_171; obj* x_172; +x_158 = lean::cnstr_get(x_141, 0); +lean::inc(x_158); +lean::dec(x_141); +x_161 = lean::cnstr_get(x_158, 0); +lean::inc(x_161); +x_163 = lean::cnstr_get(x_158, 1); +lean::inc(x_163); +lean::dec(x_158); +x_166 = l_Lean_Elaborator_mkEqns___closed__1; +x_167 = l_Lean_Expr_mkCapp(x_166, x_161); lean::inc(x_12); +lean::inc(x_11); lean::inc(x_2); -x_161 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(x_2, x_157, x_3, x_11, x_12, x_154); +x_171 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(x_2, x_166, x_3, x_11, x_12, x_163); if (lean::obj_tag(x_4) == 0) { -obj* x_164; -x_164 = l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__2; -x_162 = x_164; -goto lbl_163; +obj* x_174; +x_174 = l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__2; +x_172 = x_174; +goto lbl_173; } else { -obj* x_165; obj* x_167; obj* x_170; -x_165 = lean::cnstr_get(x_4, 0); -lean::inc(x_165); -x_167 = lean::cnstr_get(x_165, 0); -lean::inc(x_167); -lean::dec(x_165); -x_170 = l_Lean_Elaborator_mangleIdent(x_167); -x_162 = x_170; -goto lbl_163; +obj* x_175; obj* x_177; obj* x_180; +x_175 = lean::cnstr_get(x_4, 0); +lean::inc(x_175); +x_177 = lean::cnstr_get(x_175, 0); +lean::inc(x_177); +lean::dec(x_175); +x_180 = l_Lean_Elaborator_mangleIdent(x_177); +x_172 = x_180; +goto lbl_173; } -lbl_163: +lbl_173: { -obj* x_172; -lean::inc(x_162); -x_172 = lean_expr_local(x_162, x_162, x_122, x_123); +obj* x_182; +lean::inc(x_172); +x_182 = lean_expr_local(x_172, x_172, x_129, x_130); if (lean::obj_tag(x_4) == 0) { -if (lean::obj_tag(x_161) == 0) +if (lean::obj_tag(x_171) == 0) { -obj* x_184; obj* x_186; obj* x_187; +obj* x_195; obj* x_197; obj* x_198; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_6); lean::dec(x_12); lean::dec(x_2); -lean::dec(x_158); -lean::dec(x_172); -lean::dec(x_112); -lean::dec(x_88); -lean::dec(x_117); -lean::dec(x_125); -x_184 = lean::cnstr_get(x_161, 0); -if (lean::is_exclusive(x_161)) { - x_186 = x_161; +lean::dec(x_182); +lean::dec(x_167); +lean::dec(x_124); +lean::dec(x_93); +lean::dec(x_119); +lean::dec(x_132); +x_195 = lean::cnstr_get(x_171, 0); +if (lean::is_exclusive(x_171)) { + x_197 = x_171; } else { - lean::inc(x_184); - lean::dec(x_161); - x_186 = lean::box(0); + lean::inc(x_195); + lean::dec(x_171); + x_197 = lean::box(0); } -if (lean::is_scalar(x_186)) { - x_187 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_197)) { + x_198 = lean::alloc_cnstr(0, 1, 0); } else { - x_187 = x_186; + x_198 = x_197; } -lean::cnstr_set(x_187, 0, x_184); -return x_187; +lean::cnstr_set(x_198, 0, x_195); +return x_198; } else { -obj* x_188; obj* x_191; obj* x_193; obj* x_196; obj* x_197; obj* x_198; obj* x_199; obj* x_200; obj* x_201; obj* x_202; obj* x_203; obj* x_204; obj* x_205; obj* x_206; obj* x_207; obj* x_208; obj* x_209; -x_188 = lean::cnstr_get(x_161, 0); -lean::inc(x_188); -lean::dec(x_161); -x_191 = lean::cnstr_get(x_188, 0); -lean::inc(x_191); -x_193 = lean::cnstr_get(x_188, 1); -lean::inc(x_193); -lean::dec(x_188); -x_196 = l_Lean_Expr_mkCapp(x_157, x_191); -x_197 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_197, 0, x_196); -lean::cnstr_set(x_197, 1, x_5); -x_198 = l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__1; -x_199 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_199, 0, x_198); -lean::cnstr_set(x_199, 1, x_197); -x_200 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_200, 0, x_172); -lean::cnstr_set(x_200, 1, x_199); -x_201 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_201, 0, x_88); -lean::cnstr_set(x_201, 1, x_200); -x_202 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_202, 0, x_158); -lean::cnstr_set(x_202, 1, x_201); -x_203 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_203, 0, x_112); -lean::cnstr_set(x_203, 1, x_202); -x_204 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_204, 0, x_125); -lean::cnstr_set(x_204, 1, x_203); -x_205 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_205, 0, x_117); -lean::cnstr_set(x_205, 1, x_204); -x_206 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_206, 0, x_10); -lean::cnstr_set(x_206, 1, x_205); -x_207 = l_Lean_Expr_mkCapp(x_157, x_206); -x_208 = lean_expr_mk_mdata(x_6, x_207); -x_209 = l_Lean_Elaborator_oldElabCommand(x_2, x_208, x_11, x_12, x_193); +obj* x_199; obj* x_202; obj* x_204; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; obj* x_212; obj* x_213; obj* x_214; obj* x_215; obj* x_216; obj* x_217; obj* x_218; obj* x_219; obj* x_220; +x_199 = lean::cnstr_get(x_171, 0); +lean::inc(x_199); +lean::dec(x_171); +x_202 = lean::cnstr_get(x_199, 0); +lean::inc(x_202); +x_204 = lean::cnstr_get(x_199, 1); +lean::inc(x_204); +lean::dec(x_199); +x_207 = l_Lean_Expr_mkCapp(x_166, x_202); +x_208 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_208, 0, x_207); +lean::cnstr_set(x_208, 1, x_5); +x_209 = l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__1; +x_210 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_210, 0, x_209); +lean::cnstr_set(x_210, 1, x_208); +x_211 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_211, 0, x_182); +lean::cnstr_set(x_211, 1, x_210); +x_212 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_212, 0, x_93); +lean::cnstr_set(x_212, 1, x_211); +x_213 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_213, 0, x_167); +lean::cnstr_set(x_213, 1, x_212); +x_214 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_214, 0, x_119); +lean::cnstr_set(x_214, 1, x_213); +x_215 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_215, 0, x_132); +lean::cnstr_set(x_215, 1, x_214); +x_216 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_216, 0, x_124); +lean::cnstr_set(x_216, 1, x_215); +x_217 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_217, 0, x_10); +lean::cnstr_set(x_217, 1, x_216); +x_218 = l_Lean_Expr_mkCapp(x_166, x_217); +x_219 = lean_expr_mk_mdata(x_6, x_218); +x_220 = l_Lean_Elaborator_oldElabCommand(x_2, x_219, x_11, x_12, x_204); +lean::dec(x_11); lean::dec(x_2); -return x_209; +return x_220; } } else { -if (lean::obj_tag(x_161) == 0) +if (lean::obj_tag(x_171) == 0) { -obj* x_223; obj* x_225; obj* x_226; +obj* x_236; obj* x_238; obj* x_239; lean::dec(x_5); +lean::dec(x_11); lean::dec(x_10); lean::dec(x_4); lean::dec(x_6); lean::dec(x_12); lean::dec(x_2); -lean::dec(x_158); -lean::dec(x_172); -lean::dec(x_112); -lean::dec(x_88); -lean::dec(x_117); -lean::dec(x_125); -x_223 = lean::cnstr_get(x_161, 0); -if (lean::is_exclusive(x_161)) { - x_225 = x_161; +lean::dec(x_182); +lean::dec(x_167); +lean::dec(x_124); +lean::dec(x_93); +lean::dec(x_119); +lean::dec(x_132); +x_236 = lean::cnstr_get(x_171, 0); +if (lean::is_exclusive(x_171)) { + x_238 = x_171; } else { - lean::inc(x_223); - lean::dec(x_161); - x_225 = lean::box(0); + lean::inc(x_236); + lean::dec(x_171); + x_238 = lean::box(0); } -if (lean::is_scalar(x_225)) { - x_226 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_238)) { + x_239 = lean::alloc_cnstr(0, 1, 0); } else { - x_226 = x_225; + x_239 = x_238; } -lean::cnstr_set(x_226, 0, x_223); -return x_226; +lean::cnstr_set(x_239, 0, x_236); +return x_239; } else { -obj* x_227; obj* x_230; obj* x_233; obj* x_235; obj* x_238; obj* x_241; obj* x_243; obj* x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; obj* x_251; obj* x_252; obj* x_253; obj* x_254; obj* x_255; -x_227 = lean::cnstr_get(x_161, 0); -lean::inc(x_227); -lean::dec(x_161); -x_230 = lean::cnstr_get(x_4, 0); -lean::inc(x_230); +obj* x_240; obj* x_243; obj* x_246; obj* x_248; obj* x_251; obj* x_254; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; obj* x_261; obj* x_262; obj* x_263; obj* x_264; obj* x_265; obj* x_266; obj* x_267; obj* x_268; +x_240 = lean::cnstr_get(x_171, 0); +lean::inc(x_240); +lean::dec(x_171); +x_243 = lean::cnstr_get(x_4, 0); +lean::inc(x_243); lean::dec(x_4); -x_233 = lean::cnstr_get(x_227, 0); -lean::inc(x_233); -x_235 = lean::cnstr_get(x_227, 1); -lean::inc(x_235); -lean::dec(x_227); -x_238 = lean::cnstr_get(x_230, 1); -lean::inc(x_238); -lean::dec(x_230); -x_241 = l_Lean_Elaborator_inferModToPexpr(x_238); -lean::dec(x_238); -x_243 = l_Lean_Expr_mkCapp(x_157, x_233); -x_244 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_244, 0, x_243); -lean::cnstr_set(x_244, 1, x_5); -x_245 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_245, 0, x_241); -lean::cnstr_set(x_245, 1, x_244); -x_246 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_246, 0, x_172); -lean::cnstr_set(x_246, 1, x_245); -x_247 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_247, 0, x_88); -lean::cnstr_set(x_247, 1, x_246); -x_248 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_248, 0, x_158); -lean::cnstr_set(x_248, 1, x_247); -x_249 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_249, 0, x_112); -lean::cnstr_set(x_249, 1, x_248); -x_250 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_250, 0, x_125); -lean::cnstr_set(x_250, 1, x_249); -x_251 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_251, 0, x_117); -lean::cnstr_set(x_251, 1, x_250); -x_252 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_252, 0, x_10); -lean::cnstr_set(x_252, 1, x_251); -x_253 = l_Lean_Expr_mkCapp(x_157, x_252); -x_254 = lean_expr_mk_mdata(x_6, x_253); -x_255 = l_Lean_Elaborator_oldElabCommand(x_2, x_254, x_11, x_12, x_235); +x_246 = lean::cnstr_get(x_240, 0); +lean::inc(x_246); +x_248 = lean::cnstr_get(x_240, 1); +lean::inc(x_248); +lean::dec(x_240); +x_251 = lean::cnstr_get(x_243, 1); +lean::inc(x_251); +lean::dec(x_243); +x_254 = l_Lean_Elaborator_inferModToPexpr(x_251); +lean::dec(x_251); +x_256 = l_Lean_Expr_mkCapp(x_166, x_246); +x_257 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_257, 0, x_256); +lean::cnstr_set(x_257, 1, x_5); +x_258 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_258, 0, x_254); +lean::cnstr_set(x_258, 1, x_257); +x_259 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_259, 0, x_182); +lean::cnstr_set(x_259, 1, x_258); +x_260 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_260, 0, x_93); +lean::cnstr_set(x_260, 1, x_259); +x_261 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_261, 0, x_167); +lean::cnstr_set(x_261, 1, x_260); +x_262 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_262, 0, x_119); +lean::cnstr_set(x_262, 1, x_261); +x_263 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_263, 0, x_132); +lean::cnstr_set(x_263, 1, x_262); +x_264 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_264, 0, x_124); +lean::cnstr_set(x_264, 1, x_263); +x_265 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_265, 0, x_10); +lean::cnstr_set(x_265, 1, x_264); +x_266 = l_Lean_Expr_mkCapp(x_166, x_265); +x_267 = lean_expr_mk_mdata(x_6, x_266); +x_268 = l_Lean_Elaborator_oldElabCommand(x_2, x_267, x_11, x_12, x_248); +lean::dec(x_11); lean::dec(x_2); -return x_255; +return x_268; } } } @@ -16918,7 +15473,7 @@ x_20 = lean::cnstr_get(x_11, 0); lean::inc(x_20); lean::dec(x_11); x_23 = lean::mk_nat_obj(1ul); -x_24 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_24 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_24, 0, x_0); lean::closure_set(x_24, 1, x_20); lean::closure_set(x_24, 2, x_14); @@ -16934,7 +15489,7 @@ x_27 = lean::cnstr_get(x_11, 0); lean::inc(x_27); lean::dec(x_11); x_30 = lean::mk_nat_obj(0ul); -x_31 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_31 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_31, 0, x_0); lean::closure_set(x_31, 1, x_27); lean::closure_set(x_31, 2, x_14); @@ -16950,7 +15505,7 @@ x_34 = lean::cnstr_get(x_11, 0); lean::inc(x_34); lean::dec(x_11); x_37 = lean::mk_nat_obj(2ul); -x_38 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_38 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_38, 0, x_0); lean::closure_set(x_38, 1, x_34); lean::closure_set(x_38, 2, x_14); @@ -16966,7 +15521,7 @@ x_41 = lean::cnstr_get(x_11, 0); lean::inc(x_41); lean::dec(x_11); x_44 = lean::mk_nat_obj(6ul); -x_45 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_45 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_45, 0, x_0); lean::closure_set(x_45, 1, x_41); lean::closure_set(x_45, 2, x_14); @@ -17015,7 +15570,7 @@ lean::cnstr_set(x_70, 2, x_69); lean::cnstr_set(x_70, 3, x_64); lean::cnstr_set(x_70, 4, x_65); x_71 = lean::mk_nat_obj(4ul); -x_72 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_72 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_72, 0, x_0); lean::closure_set(x_72, 1, x_50); lean::closure_set(x_72, 2, x_70); @@ -17040,7 +15595,7 @@ lean::cnstr_set(x_81, 2, x_77); lean::cnstr_set(x_81, 3, x_64); lean::cnstr_set(x_81, 4, x_74); x_82 = lean::mk_nat_obj(4ul); -x_83 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_83 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_83, 0, x_0); lean::closure_set(x_83, 1, x_50); lean::closure_set(x_83, 2, x_81); @@ -17083,7 +15638,7 @@ lean::cnstr_set(x_106, 2, x_105); lean::cnstr_set(x_106, 3, x_100); lean::cnstr_set(x_106, 4, x_101); x_107 = lean::mk_nat_obj(3ul); -x_108 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike___boxed), 7, 4); +x_108 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_elabDefLike), 7, 4); lean::closure_set(x_108, 0, x_0); lean::closure_set(x_108, 1, x_88); lean::closure_set(x_108, 2, x_106); @@ -17131,7 +15686,7 @@ x_131 = lean::box(0); x_132 = lean::cnstr_get(x_11, 0); lean::inc(x_132); lean::dec(x_11); -x_135 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); +x_135 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr), 4, 1); lean::closure_set(x_135, 0, x_132); x_136 = l_Lean_Elaborator_Declaration_elaborate___closed__3; x_137 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__1___boxed), 9, 5); @@ -17206,7 +15761,7 @@ x_173 = lean::cnstr_get(x_11, 0); lean::inc(x_173); lean::dec(x_11); lean::inc(x_173); -x_177 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); +x_177 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr), 4, 1); lean::closure_set(x_177, 0, x_173); x_178 = l_Lean_Elaborator_Declaration_elaborate___closed__4; x_179 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__2___boxed), 13, 9); @@ -17288,7 +15843,7 @@ x_218 = lean::box(0); x_219 = lean::cnstr_get(x_11, 0); lean::inc(x_219); lean::dec(x_11); -x_222 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr___boxed), 4, 1); +x_222 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_declModifiersToPexpr), 4, 1); lean::closure_set(x_222, 0, x_219); x_223 = l_Lean_Elaborator_Declaration_elaborate___closed__5; x_224 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_Declaration_elaborate___lambda__3___boxed), 14, 10); @@ -17327,7 +15882,7 @@ obj* x_232; obj* x_233; obj* x_234; obj* x_235; lean::dec(x_4); x_232 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_232, 0, x_0); -x_233 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1; +x_233 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1; x_234 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg___boxed), 5, 2); lean::closure_set(x_234, 0, x_232); lean::closure_set(x_234, 1, x_233); @@ -17346,40 +15901,12 @@ lean::dec(x_1); return x_2; } } -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_5; -x_5 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2(x_0, x_1, x_2, x_3, x_4); -lean::dec(x_2); -return x_5; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__4(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { -_start: -{ -obj* x_6; -x_6 = l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__5(x_0, x_1, x_2, x_3, x_4, x_5); -lean::dec(x_3); -return x_6; -} -} obj* l_Lean_Elaborator_Declaration_elaborate___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; x_9 = l_Lean_Elaborator_Declaration_elaborate___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); lean::dec(x_4); -lean::dec(x_6); return x_9; } } @@ -17390,7 +15917,6 @@ obj* x_13; x_13 = l_Lean_Elaborator_Declaration_elaborate___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); lean::dec(x_7); lean::dec(x_8); -lean::dec(x_10); return x_13; } } @@ -17401,7 +15927,6 @@ obj* x_14; x_14 = l_Lean_Elaborator_Declaration_elaborate___lambda__3(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12, x_13); lean::dec(x_7); lean::dec(x_9); -lean::dec(x_11); return x_14; } } @@ -17429,7 +15954,7 @@ lean::cnstr_set(x_19, 0, x_14); lean::cnstr_set(x_19, 1, x_16); lean::cnstr_set_scalar(x_19, sizeof(void*)*2, x_1); x_20 = x_19; -x_21 = l_Lean_NameMap_contains___rarg___closed__1; +x_21 = l_Lean_Elaborator_toLevel___main___closed__4; x_22 = l_Lean_Elaborator_OrderedRBMap_insert___rarg(x_21, x_12, x_2, x_20); x_23 = lean::cnstr_get(x_3, 5); lean::inc(x_23); @@ -17567,7 +16092,7 @@ x_55 = l_Lean_Elaborator_mangleIdent(x_21); x_56 = lean::cnstr_get(x_50, 4); lean::inc(x_56); lean::dec(x_50); -x_59 = l_Lean_NameMap_contains___rarg___closed__1; +x_59 = l_Lean_Elaborator_toLevel___main___closed__4; lean::inc(x_55); x_61 = l_Lean_Elaborator_OrderedRBMap_find___rarg(x_59, x_56, x_55); if (lean::obj_tag(x_61) == 0) @@ -17877,157 +16402,165 @@ lean::dec(x_3); lean::dec(x_15); if (lean::obj_tag(x_18) == 0) { -obj* x_23; obj* x_25; obj* x_26; +obj* x_24; obj* x_26; obj* x_27; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_23 = lean::cnstr_get(x_18, 0); +x_24 = lean::cnstr_get(x_18, 0); if (lean::is_exclusive(x_18)) { - x_25 = x_18; + x_26 = x_18; } else { - lean::inc(x_23); + lean::inc(x_24); lean::dec(x_18); - x_25 = lean::box(0); + x_26 = lean::box(0); } -if (lean::is_scalar(x_25)) { - x_26 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_26)) { + x_27 = lean::alloc_cnstr(0, 1, 0); } else { - x_26 = x_25; + x_27 = x_26; } -lean::cnstr_set(x_26, 0, x_23); -return x_26; +lean::cnstr_set(x_27, 0, x_24); +return x_27; } else { -obj* x_27; obj* x_30; obj* x_32; obj* x_36; -x_27 = lean::cnstr_get(x_18, 0); -lean::inc(x_27); +obj* x_28; obj* x_31; obj* x_33; obj* x_38; +x_28 = lean::cnstr_get(x_18, 0); +lean::inc(x_28); lean::dec(x_18); -x_30 = lean::cnstr_get(x_27, 0); -lean::inc(x_30); -x_32 = lean::cnstr_get(x_27, 1); -lean::inc(x_32); -lean::dec(x_27); +x_31 = lean::cnstr_get(x_28, 0); +lean::inc(x_31); +x_33 = lean::cnstr_get(x_28, 1); +lean::inc(x_33); +lean::dec(x_28); lean::inc(x_2); -x_36 = l_Lean_Elaborator_simpleBindersToPexpr(x_30, x_1, x_2, x_32); -if (lean::obj_tag(x_36) == 0) +lean::inc(x_1); +x_38 = l_Lean_Elaborator_simpleBindersToPexpr(x_31, x_1, x_2, x_33); +if (lean::obj_tag(x_38) == 0) { -obj* x_39; obj* x_41; obj* x_42; +obj* x_42; obj* x_44; obj* x_45; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_39 = lean::cnstr_get(x_36, 0); -if (lean::is_exclusive(x_36)) { - x_41 = x_36; +x_42 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_44 = x_38; } else { - lean::inc(x_39); - lean::dec(x_36); - x_41 = lean::box(0); + lean::inc(x_42); + lean::dec(x_38); + x_44 = lean::box(0); } -if (lean::is_scalar(x_41)) { - x_42 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_44)) { + x_45 = lean::alloc_cnstr(0, 1, 0); } else { - x_42 = x_41; + x_45 = x_44; } -lean::cnstr_set(x_42, 0, x_39); -return x_42; +lean::cnstr_set(x_45, 0, x_42); +return x_45; } else { -obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_52; obj* x_53; -x_43 = lean::cnstr_get(x_36, 0); -lean::inc(x_43); -lean::dec(x_36); -x_46 = lean::cnstr_get(x_43, 0); +obj* x_46; obj* x_49; obj* x_51; obj* x_54; obj* x_55; obj* x_56; +x_46 = lean::cnstr_get(x_38, 0); lean::inc(x_46); -x_48 = lean::cnstr_get(x_43, 1); -lean::inc(x_48); -lean::dec(x_43); -x_51 = l_Lean_Elaborator_variables_elaborate___closed__2; -x_52 = lean_expr_mk_mdata(x_51, x_46); -x_53 = l_Lean_Elaborator_oldElabCommand(x_0, x_52, x_1, x_2, x_48); +lean::dec(x_38); +x_49 = lean::cnstr_get(x_46, 0); +lean::inc(x_49); +x_51 = lean::cnstr_get(x_46, 1); +lean::inc(x_51); +lean::dec(x_46); +x_54 = l_Lean_Elaborator_variables_elaborate___closed__2; +x_55 = lean_expr_mk_mdata(x_54, x_49); +x_56 = l_Lean_Elaborator_oldElabCommand(x_0, x_55, x_1, x_2, x_51); +lean::dec(x_1); lean::dec(x_0); -return x_53; +return x_56; } } } else { -obj* x_55; obj* x_59; -x_55 = lean::cnstr_get(x_10, 0); -lean::inc(x_55); +obj* x_59; obj* x_63; +x_59 = lean::cnstr_get(x_10, 0); +lean::inc(x_59); lean::dec(x_10); lean::inc(x_2); -x_59 = l_List_mfilter___main___at_Lean_Elaborator_variables_elaborate___spec__1(x_55, x_1, x_2, x_3); -if (lean::obj_tag(x_59) == 0) +x_63 = l_List_mfilter___main___at_Lean_Elaborator_variables_elaborate___spec__1(x_59, x_1, x_2, x_3); +if (lean::obj_tag(x_63) == 0) { -obj* x_62; obj* x_64; obj* x_65; +obj* x_67; obj* x_69; obj* x_70; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_62 = lean::cnstr_get(x_59, 0); -if (lean::is_exclusive(x_59)) { - x_64 = x_59; +x_67 = lean::cnstr_get(x_63, 0); +if (lean::is_exclusive(x_63)) { + x_69 = x_63; } else { - lean::inc(x_62); - lean::dec(x_59); - x_64 = lean::box(0); + lean::inc(x_67); + lean::dec(x_63); + x_69 = lean::box(0); } -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_69)) { + x_70 = lean::alloc_cnstr(0, 1, 0); } else { - x_65 = x_64; + x_70 = x_69; } -lean::cnstr_set(x_65, 0, x_62); -return x_65; +lean::cnstr_set(x_70, 0, x_67); +return x_70; } else { -obj* x_66; obj* x_69; obj* x_71; obj* x_75; -x_66 = lean::cnstr_get(x_59, 0); -lean::inc(x_66); -lean::dec(x_59); -x_69 = lean::cnstr_get(x_66, 0); -lean::inc(x_69); -x_71 = lean::cnstr_get(x_66, 1); +obj* x_71; obj* x_74; obj* x_76; obj* x_81; +x_71 = lean::cnstr_get(x_63, 0); lean::inc(x_71); -lean::dec(x_66); +lean::dec(x_63); +x_74 = lean::cnstr_get(x_71, 0); +lean::inc(x_74); +x_76 = lean::cnstr_get(x_71, 1); +lean::inc(x_76); +lean::dec(x_71); lean::inc(x_2); -x_75 = l_Lean_Elaborator_simpleBindersToPexpr(x_69, x_1, x_2, x_71); -if (lean::obj_tag(x_75) == 0) +lean::inc(x_1); +x_81 = l_Lean_Elaborator_simpleBindersToPexpr(x_74, x_1, x_2, x_76); +if (lean::obj_tag(x_81) == 0) { -obj* x_78; obj* x_80; obj* x_81; +obj* x_85; obj* x_87; obj* x_88; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_78 = lean::cnstr_get(x_75, 0); -if (lean::is_exclusive(x_75)) { - x_80 = x_75; +x_85 = lean::cnstr_get(x_81, 0); +if (lean::is_exclusive(x_81)) { + x_87 = x_81; } else { - lean::inc(x_78); - lean::dec(x_75); - x_80 = lean::box(0); + lean::inc(x_85); + lean::dec(x_81); + x_87 = lean::box(0); } -if (lean::is_scalar(x_80)) { - x_81 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_87)) { + x_88 = lean::alloc_cnstr(0, 1, 0); } else { - x_81 = x_80; + x_88 = x_87; } -lean::cnstr_set(x_81, 0, x_78); -return x_81; +lean::cnstr_set(x_88, 0, x_85); +return x_88; } else { -obj* x_82; obj* x_85; obj* x_87; obj* x_90; obj* x_91; obj* x_92; -x_82 = lean::cnstr_get(x_75, 0); -lean::inc(x_82); -lean::dec(x_75); -x_85 = lean::cnstr_get(x_82, 0); -lean::inc(x_85); -x_87 = lean::cnstr_get(x_82, 1); -lean::inc(x_87); -lean::dec(x_82); -x_90 = l_Lean_Elaborator_variables_elaborate___closed__2; -x_91 = lean_expr_mk_mdata(x_90, x_85); -x_92 = l_Lean_Elaborator_oldElabCommand(x_0, x_91, x_1, x_2, x_87); +obj* x_89; obj* x_92; obj* x_94; obj* x_97; obj* x_98; obj* x_99; +x_89 = lean::cnstr_get(x_81, 0); +lean::inc(x_89); +lean::dec(x_81); +x_92 = lean::cnstr_get(x_89, 0); +lean::inc(x_92); +x_94 = lean::cnstr_get(x_89, 1); +lean::inc(x_94); +lean::dec(x_89); +x_97 = l_Lean_Elaborator_variables_elaborate___closed__2; +x_98 = lean_expr_mk_mdata(x_97, x_92); +x_99 = l_Lean_Elaborator_oldElabCommand(x_0, x_98, x_1, x_2, x_94); +lean::dec(x_1); lean::dec(x_0); -return x_92; +return x_99; } } } @@ -18051,15 +16584,6 @@ lean::dec(x_1); return x_4; } } -obj* l_Lean_Elaborator_variables_elaborate___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_variables_elaborate(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* l_List_foldl___main___at_Lean_Elaborator_include_elaborate___spec__1(obj* x_0, obj* x_1) { _start: { @@ -18069,20 +16593,34 @@ return x_0; } else { -obj* x_2; obj* x_4; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +obj* x_2; obj* x_4; obj* x_7; uint8 x_8; x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); x_4 = lean::cnstr_get(x_1, 1); lean::inc(x_4); lean::dec(x_1); x_7 = l_Lean_Elaborator_mangleIdent(x_2); -x_8 = l_Lean_NameMap_contains___rarg___closed__1; +x_8 = l_RBNode_isRed___main___rarg(x_0); +if (x_8 == 0) +{ +obj* x_9; obj* x_10; x_9 = lean::box(0); -x_10 = l_RBNode_insert___rarg(x_8, x_0, x_7, x_9); +x_10 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_0, x_7, x_9); x_0 = x_10; x_1 = x_4; goto _start; } +else +{ +obj* x_12; obj* x_13; obj* x_14; +x_12 = lean::box(0); +x_13 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_0, x_7, x_12); +x_14 = l_RBNode_setBlack___main___rarg(x_13); +x_0 = x_14; +x_1 = x_4; +goto _start; +} +} } } obj* l_Lean_Elaborator_include_elaborate___lambda__1(obj* x_0, obj* x_1) { @@ -21056,9 +19594,10 @@ return x_9; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_40; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_48; obj* x_50; obj* x_53; obj* x_54; obj* x_55; +obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_20; obj* x_22; obj* x_24; obj* x_26; obj* x_29; obj* x_31; obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_40; obj* x_42; obj* x_44; obj* x_47; uint8 x_50; x_10 = lean::cnstr_get(x_4, 0); if (lean::is_exclusive(x_4)) { + lean::cnstr_set(x_4, 0, lean::box(0)); x_12 = x_4; } else { lean::inc(x_10); @@ -21068,6 +19607,8 @@ if (lean::is_exclusive(x_4)) { x_13 = lean::cnstr_get(x_10, 0); x_15 = lean::cnstr_get(x_10, 1); if (lean::is_exclusive(x_10)) { + lean::cnstr_set(x_10, 0, lean::box(0)); + lean::cnstr_set(x_10, 1, lean::box(0)); x_17 = x_10; } else { lean::inc(x_13); @@ -21075,64 +19616,67 @@ if (lean::is_exclusive(x_10)) { lean::dec(x_10); x_17 = lean::box(0); } -lean::inc(x_13); -x_19 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_19, 0, x_13); -lean::cnstr_set(x_19, 1, x_0); -lean::inc(x_19); -x_21 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_mkNotationTransformer), 3, 1); -lean::closure_set(x_21, 0, x_19); -x_22 = lean::cnstr_get(x_15, 0); +x_18 = lean::cnstr_get(x_15, 7); +lean::inc(x_18); +x_20 = lean::cnstr_get(x_18, 1); +lean::inc(x_20); +x_22 = lean::cnstr_get(x_15, 8); lean::inc(x_22); -x_24 = lean::cnstr_get(x_15, 1); +x_24 = lean::cnstr_get(x_15, 9); lean::inc(x_24); -x_26 = lean::cnstr_get(x_15, 2); +x_26 = lean::cnstr_get(x_15, 10); lean::inc(x_26); -x_28 = lean::cnstr_get(x_15, 3); -lean::inc(x_28); -x_30 = lean::cnstr_get(x_15, 4); -lean::inc(x_30); -x_32 = lean::cnstr_get(x_15, 5); +lean::inc(x_13); +x_29 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_29, 0, x_13); +lean::cnstr_set(x_29, 1, x_0); +lean::inc(x_29); +x_31 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_mkNotationTransformer), 3, 1); +lean::closure_set(x_31, 0, x_29); +x_32 = lean::cnstr_get(x_15, 0); lean::inc(x_32); -x_34 = lean::cnstr_get(x_15, 6); +x_34 = lean::cnstr_get(x_15, 1); lean::inc(x_34); -x_36 = lean::cnstr_get(x_15, 7); +x_36 = lean::cnstr_get(x_15, 2); lean::inc(x_36); -x_38 = lean::cnstr_get(x_36, 0); +x_38 = lean::cnstr_get(x_15, 3); lean::inc(x_38); -x_40 = lean::cnstr_get(x_36, 1); +x_40 = lean::cnstr_get(x_15, 4); lean::inc(x_40); -lean::dec(x_36); -x_43 = l_Lean_NameMap_contains___rarg___closed__1; -x_44 = l_RBNode_insert___rarg(x_43, x_40, x_13, x_21); -x_45 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_45, 0, x_38); -lean::cnstr_set(x_45, 1, x_44); -x_46 = lean::cnstr_get(x_15, 8); -lean::inc(x_46); -x_48 = lean::cnstr_get(x_15, 9); -lean::inc(x_48); -x_50 = lean::cnstr_get(x_15, 10); -lean::inc(x_50); +x_42 = lean::cnstr_get(x_15, 5); +lean::inc(x_42); +x_44 = lean::cnstr_get(x_15, 6); +lean::inc(x_44); lean::dec(x_15); +x_47 = lean::cnstr_get(x_18, 0); +lean::inc(x_47); +lean::dec(x_18); +x_50 = l_RBNode_isRed___main___rarg(x_20); +if (x_50 == 0) +{ +obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_51 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_20, x_13, x_31); +x_52 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_52, 0, x_47); +lean::cnstr_set(x_52, 1, x_51); x_53 = lean::alloc_cnstr(0, 11, 0); -lean::cnstr_set(x_53, 0, x_22); -lean::cnstr_set(x_53, 1, x_24); -lean::cnstr_set(x_53, 2, x_26); -lean::cnstr_set(x_53, 3, x_28); -lean::cnstr_set(x_53, 4, x_30); -lean::cnstr_set(x_53, 5, x_32); -lean::cnstr_set(x_53, 6, x_34); -lean::cnstr_set(x_53, 7, x_45); -lean::cnstr_set(x_53, 8, x_46); -lean::cnstr_set(x_53, 9, x_48); -lean::cnstr_set(x_53, 10, x_50); +lean::cnstr_set(x_53, 0, x_32); +lean::cnstr_set(x_53, 1, x_34); +lean::cnstr_set(x_53, 2, x_36); +lean::cnstr_set(x_53, 3, x_38); +lean::cnstr_set(x_53, 4, x_40); +lean::cnstr_set(x_53, 5, x_42); +lean::cnstr_set(x_53, 6, x_44); +lean::cnstr_set(x_53, 7, x_52); +lean::cnstr_set(x_53, 8, x_22); +lean::cnstr_set(x_53, 9, x_24); +lean::cnstr_set(x_53, 10, x_26); if (lean::is_scalar(x_17)) { x_54 = lean::alloc_cnstr(0, 2, 0); } else { x_54 = x_17; } -lean::cnstr_set(x_54, 0, x_19); +lean::cnstr_set(x_54, 0, x_29); lean::cnstr_set(x_54, 1, x_53); if (lean::is_scalar(x_12)) { x_55 = lean::alloc_cnstr(1, 1, 0); @@ -21142,6 +19686,42 @@ if (lean::is_scalar(x_12)) { lean::cnstr_set(x_55, 0, x_54); return x_55; } +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_56 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_20, x_13, x_31); +x_57 = l_RBNode_setBlack___main___rarg(x_56); +x_58 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_58, 0, x_47); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(0, 11, 0); +lean::cnstr_set(x_59, 0, x_32); +lean::cnstr_set(x_59, 1, x_34); +lean::cnstr_set(x_59, 2, x_36); +lean::cnstr_set(x_59, 3, x_38); +lean::cnstr_set(x_59, 4, x_40); +lean::cnstr_set(x_59, 5, x_42); +lean::cnstr_set(x_59, 6, x_44); +lean::cnstr_set(x_59, 7, x_58); +lean::cnstr_set(x_59, 8, x_22); +lean::cnstr_set(x_59, 9, x_24); +lean::cnstr_set(x_59, 10, x_26); +if (lean::is_scalar(x_17)) { + x_60 = lean::alloc_cnstr(0, 2, 0); +} else { + x_60 = x_17; +} +lean::cnstr_set(x_60, 0, x_29); +lean::cnstr_set(x_60, 1, x_59); +if (lean::is_scalar(x_12)) { + x_61 = lean::alloc_cnstr(1, 1, 0); +} else { + x_61 = x_12; +} +lean::cnstr_set(x_61, 0, x_60); +return x_61; +} +} } } obj* l_Lean_Elaborator_registerNotationMacro___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { @@ -21561,7 +20141,7 @@ x_8 = lean::cnstr_get(x_1, 3); lean::inc(x_8); lean::inc(x_0); x_11 = level_mk_param(x_0); -x_12 = l_Lean_NameMap_contains___rarg___closed__1; +x_12 = l_Lean_Elaborator_toLevel___main___closed__4; x_13 = l_Lean_Elaborator_OrderedRBMap_insert___rarg(x_12, x_8, x_0, x_11); x_14 = lean::cnstr_get(x_1, 4); lean::inc(x_14); @@ -21654,7 +20234,7 @@ x_29 = l_Lean_Elaborator_mangleIdent(x_26); x_30 = lean::cnstr_get(x_15, 3); lean::inc(x_30); lean::dec(x_15); -x_33 = l_Lean_NameMap_contains___rarg___closed__1; +x_33 = l_Lean_Elaborator_toLevel___main___closed__4; lean::inc(x_29); x_35 = l_Lean_Elaborator_OrderedRBMap_find___rarg(x_33, x_30, x_29); if (lean::obj_tag(x_35) == 0) @@ -21706,7 +20286,7 @@ lean::dec(x_1); return x_4; } } -obj* _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__1() { +obj* _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__1() { _start: { obj* x_0; @@ -21714,7 +20294,7 @@ x_0 = lean::mk_string("unknown identifier '"); return x_0; } } -obj* _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__2() { +obj* _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__2() { _start: { obj* x_0; @@ -21722,72 +20302,145 @@ x_0 = lean::mk_string("invalid 'attribute' command, identifier is ambiguous"); return x_0; } } +obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = lean::cnstr_get(x_0, 3); +lean::inc(x_4); +if (lean::obj_tag(x_4) == 0) +{ +obj* x_7; obj* x_8; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; +lean::inc(x_0); +x_7 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_7, 0, x_0); +x_8 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_8, 0, x_7); +x_9 = lean::cnstr_get(x_0, 2); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_toString___closed__1; +x_13 = l_Lean_Name_toStringWithSep___main(x_12, x_9); +x_14 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__1; +x_15 = lean::string_append(x_14, x_13); +lean::dec(x_13); +x_17 = l_Char_HasRepr___closed__1; +x_18 = lean::string_append(x_15, x_17); +x_19 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_8, x_18, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_8); +return x_19; +} +else +{ +obj* x_22; +x_22 = lean::cnstr_get(x_4, 1); +lean::inc(x_22); +if (lean::obj_tag(x_22) == 0) +{ +obj* x_26; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +lean::dec(x_0); +lean::dec(x_2); +x_26 = lean::cnstr_get(x_4, 0); +lean::inc(x_26); +lean::dec(x_4); +x_29 = lean::box(0); +x_30 = lean_expr_mk_const(x_26, x_29); +x_31 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_3); +x_32 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_32, 0, x_31); +return x_32; +} +else +{ +obj* x_35; obj* x_36; obj* x_37; obj* x_38; +lean::dec(x_4); +lean::dec(x_22); +x_35 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_35, 0, x_0); +x_36 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_36, 0, x_35); +x_37 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__2; +x_38 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_36, x_37, x_1, x_2, x_3); +lean::dec(x_3); +lean::dec(x_36); +return x_38; +} +} +} +} obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); lean::inc(x_8); -x_10 = lean::cnstr_get(x_8, 3); +x_10 = lean::cnstr_get(x_0, 1); lean::inc(x_10); -if (lean::obj_tag(x_10) == 0) -{ -obj* x_12; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_29; -x_12 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_release(x_0, 0); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_14 = x_0; -} else { - lean::inc(x_12); - lean::dec(x_0); - x_14 = lean::box(0); -} -lean::inc(x_8); -x_16 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_16, 0, x_8); -x_17 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_17, 0, x_16); -x_18 = lean::cnstr_get(x_8, 2); -lean::inc(x_18); -lean::dec(x_8); -x_21 = l_Lean_Name_toString___closed__1; -x_22 = l_Lean_Name_toStringWithSep___main(x_21, x_18); -x_23 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__1; -x_24 = lean::string_append(x_23, x_22); -lean::dec(x_22); -x_26 = l_Char_HasRepr___closed__1; -x_27 = lean::string_append(x_24, x_26); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___boxed), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_29 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_17, x_27, x_1, x_2, x_3); -lean::dec(x_3); +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) +{ +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); +lean::dec(x_10); +lean::dec(x_2); +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; +} else { + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); +} +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); +} else { + x_24 = x_23; +} +lean::cnstr_set(x_24, 0, x_21); +return x_24; +} +else +{ +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); +lean::inc(x_25); lean::dec(x_17); -if (lean::obj_tag(x_29) == 0) +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); +lean::dec(x_25); +x_33 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) { obj* x_35; obj* x_37; obj* x_38; -lean::dec(x_12); -lean::dec(x_14); -lean::dec(x_2); -x_35 = lean::cnstr_get(x_29, 0); -if (lean::is_exclusive(x_29)) { - x_37 = x_29; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { lean::inc(x_35); - lean::dec(x_29); + lean::dec(x_33); x_37 = lean::box(0); } if (lean::is_scalar(x_37)) { @@ -21800,295 +20453,40 @@ return x_38; } else { -obj* x_39; obj* x_42; obj* x_44; obj* x_47; -x_39 = lean::cnstr_get(x_29, 0); -lean::inc(x_39); -lean::dec(x_29); +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; +} else { + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); +} x_42 = lean::cnstr_get(x_39, 0); -lean::inc(x_42); x_44 = lean::cnstr_get(x_39, 1); -lean::inc(x_44); -lean::dec(x_39); -x_47 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_12, x_1, x_2, x_44); -if (lean::obj_tag(x_47) == 0) -{ -obj* x_50; obj* x_52; obj* x_53; -lean::dec(x_14); -lean::dec(x_42); -x_50 = lean::cnstr_get(x_47, 0); -if (lean::is_exclusive(x_47)) { - x_52 = x_47; +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_50); - lean::dec(x_47); - x_52 = lean::box(0); + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_52)) { - x_53 = lean::alloc_cnstr(0, 1, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_53 = x_52; + x_48 = x_46; } -lean::cnstr_set(x_53, 0, x_50); -return x_53; -} -else -{ -obj* x_54; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_54 = lean::cnstr_get(x_47, 0); -if (lean::is_exclusive(x_47)) { - x_56 = x_47; +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - lean::inc(x_54); - lean::dec(x_47); - x_56 = lean::box(0); -} -x_57 = lean::cnstr_get(x_54, 0); -x_59 = lean::cnstr_get(x_54, 1); -if (lean::is_exclusive(x_54)) { - x_61 = x_54; -} else { - lean::inc(x_57); - lean::inc(x_59); - lean::dec(x_54); - x_61 = lean::box(0); -} -if (lean::is_scalar(x_14)) { - x_62 = lean::alloc_cnstr(1, 2, 0); -} else { - x_62 = x_14; -} -lean::cnstr_set(x_62, 0, x_42); -lean::cnstr_set(x_62, 1, x_57); -if (lean::is_scalar(x_61)) { - x_63 = lean::alloc_cnstr(0, 2, 0); -} else { - x_63 = x_61; -} -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_59); -if (lean::is_scalar(x_56)) { - x_64 = lean::alloc_cnstr(1, 1, 0); -} else { - x_64 = x_56; -} -lean::cnstr_set(x_64, 0, x_63); -return x_64; -} -} -} -else -{ -obj* x_65; -x_65 = lean::cnstr_get(x_10, 1); -lean::inc(x_65); -if (lean::obj_tag(x_65) == 0) -{ -obj* x_68; obj* x_71; obj* x_73; obj* x_74; -lean::dec(x_8); -x_68 = lean::cnstr_get(x_0, 1); -lean::inc(x_68); -lean::dec(x_0); -x_71 = lean::cnstr_get(x_10, 0); -if (lean::is_exclusive(x_10)) { - lean::cnstr_set(x_10, 0, lean::box(0)); - lean::cnstr_release(x_10, 1); - x_73 = x_10; -} else { - lean::inc(x_71); - lean::dec(x_10); - x_73 = lean::box(0); -} -x_74 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_68, x_1, x_2, x_3); -if (lean::obj_tag(x_74) == 0) -{ -obj* x_77; obj* x_79; obj* x_80; -lean::dec(x_71); -lean::dec(x_73); -x_77 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_79 = x_74; -} else { - lean::inc(x_77); - lean::dec(x_74); - x_79 = lean::box(0); -} -if (lean::is_scalar(x_79)) { - x_80 = lean::alloc_cnstr(0, 1, 0); -} else { - x_80 = x_79; -} -lean::cnstr_set(x_80, 0, x_77); -return x_80; -} -else -{ -obj* x_81; obj* x_83; obj* x_84; obj* x_86; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; -x_81 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_83 = x_74; -} else { - lean::inc(x_81); - lean::dec(x_74); - x_83 = lean::box(0); -} -x_84 = lean::cnstr_get(x_81, 0); -x_86 = lean::cnstr_get(x_81, 1); -if (lean::is_exclusive(x_81)) { - x_88 = x_81; -} else { - lean::inc(x_84); - lean::inc(x_86); - lean::dec(x_81); - x_88 = lean::box(0); -} -x_89 = lean::box(0); -x_90 = lean_expr_mk_const(x_71, x_89); -if (lean::is_scalar(x_73)) { - x_91 = lean::alloc_cnstr(1, 2, 0); -} else { - x_91 = x_73; -} -lean::cnstr_set(x_91, 0, x_90); -lean::cnstr_set(x_91, 1, x_84); -if (lean::is_scalar(x_88)) { - x_92 = lean::alloc_cnstr(0, 2, 0); -} else { - x_92 = x_88; -} -lean::cnstr_set(x_92, 0, x_91); -lean::cnstr_set(x_92, 1, x_86); -if (lean::is_scalar(x_83)) { - x_93 = lean::alloc_cnstr(1, 1, 0); -} else { - x_93 = x_83; -} -lean::cnstr_set(x_93, 0, x_92); -return x_93; -} -} -else -{ -obj* x_95; obj* x_96; obj* x_99; obj* x_100; obj* x_101; obj* x_103; -lean::dec(x_10); -if (lean::is_exclusive(x_65)) { - lean::cnstr_release(x_65, 0); - lean::cnstr_release(x_65, 1); - x_95 = x_65; -} else { - lean::dec(x_65); - x_95 = lean::box(0); -} -x_96 = lean::cnstr_get(x_0, 1); -lean::inc(x_96); -lean::dec(x_0); -x_99 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_99, 0, x_8); -x_100 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_100, 0, x_99); -x_101 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__2; -lean::inc(x_2); -x_103 = l_Lean_Expander_error___at_Lean_Elaborator_currentScope___spec__1___rarg(x_100, x_101, x_1, x_2, x_3); -lean::dec(x_3); -lean::dec(x_100); -if (lean::obj_tag(x_103) == 0) -{ -obj* x_109; obj* x_111; obj* x_112; -lean::dec(x_2); -lean::dec(x_95); -lean::dec(x_96); -x_109 = lean::cnstr_get(x_103, 0); -if (lean::is_exclusive(x_103)) { - x_111 = x_103; -} else { - lean::inc(x_109); - lean::dec(x_103); - x_111 = lean::box(0); -} -if (lean::is_scalar(x_111)) { - x_112 = lean::alloc_cnstr(0, 1, 0); -} else { - x_112 = x_111; -} -lean::cnstr_set(x_112, 0, x_109); -return x_112; -} -else -{ -obj* x_113; obj* x_116; obj* x_118; obj* x_121; -x_113 = lean::cnstr_get(x_103, 0); -lean::inc(x_113); -lean::dec(x_103); -x_116 = lean::cnstr_get(x_113, 0); -lean::inc(x_116); -x_118 = lean::cnstr_get(x_113, 1); -lean::inc(x_118); -lean::dec(x_113); -x_121 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_96, x_1, x_2, x_118); -if (lean::obj_tag(x_121) == 0) -{ -obj* x_124; obj* x_126; obj* x_127; -lean::dec(x_95); -lean::dec(x_116); -x_124 = lean::cnstr_get(x_121, 0); -if (lean::is_exclusive(x_121)) { - x_126 = x_121; -} else { - lean::inc(x_124); - lean::dec(x_121); - x_126 = lean::box(0); -} -if (lean::is_scalar(x_126)) { - x_127 = lean::alloc_cnstr(0, 1, 0); -} else { - x_127 = x_126; -} -lean::cnstr_set(x_127, 0, x_124); -return x_127; -} -else -{ -obj* x_128; obj* x_130; obj* x_131; obj* x_133; obj* x_135; obj* x_136; obj* x_137; obj* x_138; -x_128 = lean::cnstr_get(x_121, 0); -if (lean::is_exclusive(x_121)) { - x_130 = x_121; -} else { - lean::inc(x_128); - lean::dec(x_121); - x_130 = lean::box(0); -} -x_131 = lean::cnstr_get(x_128, 0); -x_133 = lean::cnstr_get(x_128, 1); -if (lean::is_exclusive(x_128)) { - x_135 = x_128; -} else { - lean::inc(x_131); - lean::inc(x_133); - lean::dec(x_128); - x_135 = lean::box(0); -} -if (lean::is_scalar(x_95)) { - x_136 = lean::alloc_cnstr(1, 2, 0); -} else { - x_136 = x_95; -} -lean::cnstr_set(x_136, 0, x_116); -lean::cnstr_set(x_136, 1, x_131); -if (lean::is_scalar(x_135)) { - x_137 = lean::alloc_cnstr(0, 2, 0); -} else { - x_137 = x_135; -} -lean::cnstr_set(x_137, 0, x_136); -lean::cnstr_set(x_137, 1, x_133); -if (lean::is_scalar(x_130)) { - x_138 = lean::alloc_cnstr(1, 1, 0); -} else { - x_138 = x_130; -} -lean::cnstr_set(x_138, 0, x_137); -return x_138; -} + x_49 = x_41; } +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -22121,7 +20519,7 @@ return x_2; obj* l_Lean_Elaborator_attribute_elaborate(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_5; obj* x_9; uint8 x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_18; +obj* x_4; obj* x_5; obj* x_9; uint8 x_10; obj* x_11; obj* x_13; obj* x_15; obj* x_19; x_4 = l_Lean_Parser_command_attribute_HasView; x_5 = lean::cnstr_get(x_4, 0); lean::inc(x_5); @@ -22133,154 +20531,151 @@ lean::inc(x_13); x_15 = lean::cnstr_get(x_9, 3); lean::inc(x_15); lean::inc(x_2); -x_18 = l_Lean_Elaborator_attrsToPexpr(x_15, x_1, x_2, x_3); +lean::inc(x_1); +x_19 = l_Lean_Elaborator_attrsToPexpr(x_15, x_1, x_2, x_3); if (lean::obj_tag(x_13) == 0) { -if (lean::obj_tag(x_18) == 0) +if (lean::obj_tag(x_19) == 0) { -obj* x_22; obj* x_24; obj* x_25; +obj* x_24; obj* x_26; obj* x_27; +lean::dec(x_1); lean::dec(x_9); lean::dec(x_0); lean::dec(x_2); -x_22 = lean::cnstr_get(x_18, 0); -if (lean::is_exclusive(x_18)) { - x_24 = x_18; +x_24 = lean::cnstr_get(x_19, 0); +if (lean::is_exclusive(x_19)) { + x_26 = x_19; } else { - lean::inc(x_22); - lean::dec(x_18); - x_24 = lean::box(0); + lean::inc(x_24); + lean::dec(x_19); + x_26 = lean::box(0); } -if (lean::is_scalar(x_24)) { - x_25 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_26)) { + x_27 = lean::alloc_cnstr(0, 1, 0); } else { - x_25 = x_24; + x_27 = x_26; } -lean::cnstr_set(x_25, 0, x_22); -return x_25; +lean::cnstr_set(x_27, 0, x_24); +return x_27; } else { -obj* x_26; uint8 x_29; -x_26 = lean::cnstr_get(x_18, 0); -lean::inc(x_26); -lean::dec(x_18); -x_29 = 0; -x_10 = x_29; -x_11 = x_26; +obj* x_28; uint8 x_31; +x_28 = lean::cnstr_get(x_19, 0); +lean::inc(x_28); +lean::dec(x_19); +x_31 = 0; +x_10 = x_31; +x_11 = x_28; goto lbl_12; } } else { lean::dec(x_13); -if (lean::obj_tag(x_18) == 0) +if (lean::obj_tag(x_19) == 0) { -obj* x_34; obj* x_36; obj* x_37; +obj* x_37; obj* x_39; obj* x_40; +lean::dec(x_1); lean::dec(x_9); lean::dec(x_0); lean::dec(x_2); -x_34 = lean::cnstr_get(x_18, 0); -if (lean::is_exclusive(x_18)) { - x_36 = x_18; +x_37 = lean::cnstr_get(x_19, 0); +if (lean::is_exclusive(x_19)) { + x_39 = x_19; } else { - lean::inc(x_34); - lean::dec(x_18); - x_36 = lean::box(0); + lean::inc(x_37); + lean::dec(x_19); + x_39 = lean::box(0); } -if (lean::is_scalar(x_36)) { - x_37 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_39)) { + x_40 = lean::alloc_cnstr(0, 1, 0); } else { - x_37 = x_36; + x_40 = x_39; } -lean::cnstr_set(x_37, 0, x_34); -return x_37; +lean::cnstr_set(x_40, 0, x_37); +return x_40; } else { -obj* x_38; uint8 x_41; -x_38 = lean::cnstr_get(x_18, 0); -lean::inc(x_38); -lean::dec(x_18); -x_41 = 1; -x_10 = x_41; -x_11 = x_38; +obj* x_41; uint8 x_44; +x_41 = lean::cnstr_get(x_19, 0); +lean::inc(x_41); +lean::dec(x_19); +x_44 = 1; +x_10 = x_44; +x_11 = x_41; goto lbl_12; } } lbl_12: { -obj* x_42; obj* x_44; obj* x_47; obj* x_51; -x_42 = lean::cnstr_get(x_11, 0); -lean::inc(x_42); -x_44 = lean::cnstr_get(x_11, 1); -lean::inc(x_44); -lean::dec(x_11); -x_47 = lean::cnstr_get(x_9, 5); +obj* x_45; obj* x_47; obj* x_50; obj* x_55; +x_45 = lean::cnstr_get(x_11, 0); +lean::inc(x_45); +x_47 = lean::cnstr_get(x_11, 1); lean::inc(x_47); +lean::dec(x_11); +x_50 = lean::cnstr_get(x_9, 5); +lean::inc(x_50); lean::dec(x_9); lean::inc(x_2); -x_51 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_47, x_1, x_2, x_44); -if (lean::obj_tag(x_51) == 0) +lean::inc(x_1); +x_55 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_50, x_1, x_2, x_47); +if (lean::obj_tag(x_55) == 0) { -obj* x_55; obj* x_57; obj* x_58; +obj* x_60; obj* x_62; obj* x_63; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -lean::dec(x_42); -x_55 = lean::cnstr_get(x_51, 0); -if (lean::is_exclusive(x_51)) { - x_57 = x_51; +lean::dec(x_45); +x_60 = lean::cnstr_get(x_55, 0); +if (lean::is_exclusive(x_55)) { + x_62 = x_55; } else { - lean::inc(x_55); - lean::dec(x_51); - x_57 = lean::box(0); + lean::inc(x_60); + lean::dec(x_55); + x_62 = lean::box(0); } -if (lean::is_scalar(x_57)) { - x_58 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_62)) { + x_63 = lean::alloc_cnstr(0, 1, 0); } else { - x_58 = x_57; + x_63 = x_62; } -lean::cnstr_set(x_58, 0, x_55); -return x_58; +lean::cnstr_set(x_63, 0, x_60); +return x_63; } else { -obj* x_59; obj* x_62; obj* x_64; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; -x_59 = lean::cnstr_get(x_51, 0); -lean::inc(x_59); -lean::dec(x_51); -x_62 = lean::cnstr_get(x_59, 0); -lean::inc(x_62); -x_64 = lean::cnstr_get(x_59, 1); +obj* x_64; obj* x_67; obj* x_69; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; +x_64 = lean::cnstr_get(x_55, 0); lean::inc(x_64); -lean::dec(x_59); -x_67 = l_Lean_Elaborator_attribute_elaborate___closed__1; -x_68 = l_Lean_Elaborator_attribute_elaborate___closed__2; -x_69 = l_Lean_KVMap_setBool(x_67, x_68, x_10); -x_70 = l_Lean_Elaborator_mkEqns___closed__1; -x_71 = l_Lean_Expr_mkCapp(x_70, x_62); -x_72 = lean_expr_mk_app(x_42, x_71); -x_73 = lean_expr_mk_mdata(x_69, x_72); -x_74 = l_Lean_Elaborator_oldElabCommand(x_0, x_73, x_1, x_2, x_64); -lean::dec(x_0); -return x_74; -} -} -} -} -obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1(x_0, x_1, x_2, x_3); +lean::dec(x_55); +x_67 = lean::cnstr_get(x_64, 0); +lean::inc(x_67); +x_69 = lean::cnstr_get(x_64, 1); +lean::inc(x_69); +lean::dec(x_64); +x_72 = l_Lean_Elaborator_attribute_elaborate___closed__1; +x_73 = l_Lean_Elaborator_attribute_elaborate___closed__2; +x_74 = l_Lean_KVMap_setBool(x_72, x_73, x_10); +x_75 = l_Lean_Elaborator_mkEqns___closed__1; +x_76 = l_Lean_Expr_mkCapp(x_75, x_67); +x_77 = lean_expr_mk_app(x_45, x_76); +x_78 = lean_expr_mk_mdata(x_74, x_77); +x_79 = l_Lean_Elaborator_oldElabCommand(x_0, x_78, x_1, x_2, x_69); lean::dec(x_1); -return x_4; +lean::dec(x_0); +return x_79; } } -obj* l_Lean_Elaborator_attribute_elaborate___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +} +} +obj* l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; -x_4 = l_Lean_Elaborator_attribute_elaborate(x_0, x_1, x_2, x_3); +x_4 = l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1(x_0, x_1, x_2, x_3); lean::dec(x_1); return x_4; } @@ -22302,7 +20697,7 @@ return x_6; obj* l_Lean_Elaborator_check_elaborate(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_5; obj* x_9; obj* x_10; obj* x_14; +obj* x_4; obj* x_5; obj* x_9; obj* x_10; obj* x_15; x_4 = l_Lean_Parser_command_check_HasView; x_5 = lean::cnstr_get(x_4, 0); lean::inc(x_5); @@ -22313,54 +20708,48 @@ x_10 = lean::cnstr_get(x_9, 1); lean::inc(x_10); lean::dec(x_9); lean::inc(x_2); -x_14 = l_Lean_Elaborator_toPexpr___main(x_10, x_1, x_2, x_3); -if (lean::obj_tag(x_14) == 0) +lean::inc(x_1); +x_15 = l_Lean_Elaborator_toPexpr___main(x_10, x_1, x_2, x_3); +if (lean::obj_tag(x_15) == 0) { -obj* x_17; obj* x_19; obj* x_20; +obj* x_19; obj* x_21; obj* x_22; +lean::dec(x_1); lean::dec(x_0); lean::dec(x_2); -x_17 = lean::cnstr_get(x_14, 0); -if (lean::is_exclusive(x_14)) { - x_19 = x_14; +x_19 = lean::cnstr_get(x_15, 0); +if (lean::is_exclusive(x_15)) { + x_21 = x_15; } else { - lean::inc(x_17); - lean::dec(x_14); - x_19 = lean::box(0); + lean::inc(x_19); + lean::dec(x_15); + x_21 = lean::box(0); } -if (lean::is_scalar(x_19)) { - x_20 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_21)) { + x_22 = lean::alloc_cnstr(0, 1, 0); } else { - x_20 = x_19; + x_22 = x_21; } -lean::cnstr_set(x_20, 0, x_17); -return x_20; +lean::cnstr_set(x_22, 0, x_19); +return x_22; } else { -obj* x_21; obj* x_24; obj* x_26; obj* x_29; obj* x_30; obj* x_31; -x_21 = lean::cnstr_get(x_14, 0); -lean::inc(x_21); -lean::dec(x_14); -x_24 = lean::cnstr_get(x_21, 0); -lean::inc(x_24); -x_26 = lean::cnstr_get(x_21, 1); +obj* x_23; obj* x_26; obj* x_28; obj* x_31; obj* x_32; obj* x_33; +x_23 = lean::cnstr_get(x_15, 0); +lean::inc(x_23); +lean::dec(x_15); +x_26 = lean::cnstr_get(x_23, 0); lean::inc(x_26); -lean::dec(x_21); -x_29 = l_Lean_Elaborator_check_elaborate___closed__1; -x_30 = lean_expr_mk_mdata(x_29, x_24); -x_31 = l_Lean_Elaborator_oldElabCommand(x_0, x_30, x_1, x_2, x_26); -lean::dec(x_0); -return x_31; -} -} -} -obj* l_Lean_Elaborator_check_elaborate___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_check_elaborate(x_0, x_1, x_2, x_3); +x_28 = lean::cnstr_get(x_23, 1); +lean::inc(x_28); +lean::dec(x_23); +x_31 = l_Lean_Elaborator_check_elaborate___closed__1; +x_32 = lean_expr_mk_mdata(x_31, x_26); +x_33 = l_Lean_Elaborator_oldElabCommand(x_0, x_32, x_1, x_2, x_28); lean::dec(x_1); -return x_4; +lean::dec(x_0); +return x_33; +} } } obj* l_Lean_Elaborator_open_elaborate___lambda__1(obj* x_0, obj* x_1) { @@ -22824,61 +21213,57 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_6; obj* x_7; obj* x_8; -lean::dec(x_1); +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_7, 0, x_6); -lean::cnstr_set(x_7, 1, x_3); -x_8 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_8, 0, x_7); -return x_8; +lean::dec(x_1); +return x_5; } else { -obj* x_9; obj* x_11; obj* x_16; -x_9 = lean::cnstr_get(x_0, 0); -lean::inc(x_9); -x_11 = lean::cnstr_get(x_0, 1); -lean::inc(x_11); +obj* x_8; obj* x_10; obj* x_15; +x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_0, 1); +lean::inc(x_10); lean::dec(x_0); lean::inc(x_2); lean::inc(x_1); -x_16 = lean::apply_3(x_1, x_9, x_2, x_3); -if (lean::obj_tag(x_16) == 0) +x_15 = lean::apply_3(x_1, x_8, x_2, x_3); +if (lean::obj_tag(x_15) == 0) { -obj* x_20; obj* x_22; obj* x_23; +obj* x_19; obj* x_21; obj* x_22; lean::dec(x_1); -lean::dec(x_11); +lean::dec(x_10); lean::dec(x_2); -x_20 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_22 = x_16; +x_19 = lean::cnstr_get(x_15, 0); +if (lean::is_exclusive(x_15)) { + x_21 = x_15; } else { - lean::inc(x_20); - lean::dec(x_16); - x_22 = lean::box(0); + lean::inc(x_19); + lean::dec(x_15); + x_21 = lean::box(0); } -if (lean::is_scalar(x_22)) { - x_23 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_21)) { + x_22 = lean::alloc_cnstr(0, 1, 0); } else { - x_23 = x_22; + x_22 = x_21; } -lean::cnstr_set(x_23, 0, x_20); -return x_23; +lean::cnstr_set(x_22, 0, x_19); +return x_22; } else { -obj* x_24; obj* x_27; -x_24 = lean::cnstr_get(x_16, 0); -lean::inc(x_24); -lean::dec(x_16); -x_27 = lean::cnstr_get(x_24, 1); -lean::inc(x_27); -lean::dec(x_24); -x_0 = x_11; -x_3 = x_27; +obj* x_23; obj* x_26; +x_23 = lean::cnstr_get(x_15, 0); +lean::inc(x_23); +lean::dec(x_15); +x_26 = lean::cnstr_get(x_23, 1); +lean::inc(x_26); +lean::dec(x_23); +x_0 = x_10; +x_3 = x_26; goto _start; } } @@ -23779,6 +22164,278 @@ lean::dec(x_1); return x_4; } } +obj* l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_List_foldl___main___at_Lean_Elaborator_elaborators___spec__2(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_1) == 0) +{ +return x_0; +} +else +{ +obj* x_2; obj* x_4; obj* x_7; obj* x_9; uint8 x_12; +x_2 = lean::cnstr_get(x_1, 0); +lean::inc(x_2); +x_4 = lean::cnstr_get(x_1, 1); +lean::inc(x_4); +lean::dec(x_1); +x_7 = lean::cnstr_get(x_2, 0); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_2, 1); +lean::inc(x_9); +lean::dec(x_2); +x_12 = l_RBNode_isRed___main___rarg(x_0); +if (x_12 == 0) +{ +obj* x_13; +x_13 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_0, x_7, x_9); +x_0 = x_13; +x_1 = x_4; +goto _start; +} +else +{ +obj* x_15; obj* x_16; +x_15 = l_RBNode_ins___main___at_Lean_Elaborator_elaborators___spec__1(x_0, x_7, x_9); +x_16 = l_RBNode_setBlack___main___rarg(x_15); +x_0 = x_16; +x_1 = x_4; +goto _start; +} +} +} +} obj* _init_l_Lean_Elaborator_elaborators() { _start: { @@ -23824,7 +22481,7 @@ x_23 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_23, 0, x_21); lean::cnstr_set(x_23, 1, x_22); x_24 = l_Lean_Parser_command_variables; -x_25 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_variables_elaborate___boxed), 4, 0); +x_25 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_variables_elaborate), 4, 0); x_26 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_26, 0, x_24); lean::cnstr_set(x_26, 1, x_25); @@ -23839,7 +22496,7 @@ x_32 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_32, 0, x_30); lean::cnstr_set(x_32, 1, x_31); x_33 = l_Lean_Parser_command_attribute; -x_34 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_attribute_elaborate___boxed), 4, 0); +x_34 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_attribute_elaborate), 4, 0); x_35 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_35, 0, x_33); lean::cnstr_set(x_35, 1, x_34); @@ -23854,7 +22511,7 @@ x_41 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_41, 0, x_39); lean::cnstr_set(x_41, 1, x_40); x_42 = l_Lean_Parser_command_check; -x_43 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_check_elaborate___boxed), 4, 0); +x_43 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_check_elaborate), 4, 0); x_44 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_44, 0, x_42); lean::cnstr_set(x_44, 1, x_43); @@ -23928,8 +22585,8 @@ lean::cnstr_set(x_71, 1, x_70); x_72 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_72, 0, x_2); lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); -x_74 = l_RBMap_fromList___rarg(x_72, x_73); +x_73 = lean::box(0); +x_74 = l_List_foldl___main___at_Lean_Elaborator_elaborators___spec__2(x_73, x_72); return x_74; } } @@ -24614,7 +23271,7 @@ if (lean::is_exclusive(x_12)) { } x_20 = lean::cnstr_get(x_15, 4); lean::inc(x_20); -x_22 = l_Lean_NameMap_contains___rarg___closed__1; +x_22 = l_Lean_Elaborator_toLevel___main___closed__4; lean::inc(x_0); x_24 = l_Lean_Elaborator_OrderedRBMap_find___rarg(x_22, x_20, x_0); if (lean::obj_tag(x_24) == 0) @@ -24843,130 +23500,117 @@ _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; obj* x_7; +obj* x_4; obj* x_5; +x_4 = lean::box(0); +x_5 = l_ReaderT_pure___at_Lean_Elaborator_toLevel___main___spec__2___rarg(x_4, x_1, x_2, x_3); lean::dec(x_2); -x_5 = lean::box(0); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_3); -x_7 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_7, 0, x_6); -return x_7; +lean::dec(x_1); +return x_5; } else { -obj* x_8; obj* x_10; obj* x_12; obj* x_14; +obj* x_8; obj* x_10; obj* x_13; obj* x_14; obj* x_17; x_8 = lean::cnstr_get(x_0, 0); +lean::inc(x_8); x_10 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_12 = x_0; -} else { - lean::inc(x_8); - lean::inc(x_10); - lean::dec(x_0); - x_12 = lean::box(0); -} +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Elaborator_preresolve___main), 4, 1); +lean::closure_set(x_13, 0, x_8); +x_14 = l_List_mmap___main___rarg___closed__1; lean::inc(x_2); -x_14 = l_Lean_Elaborator_preresolve___main(x_8, x_1, x_2, x_3); -if (lean::obj_tag(x_14) == 0) +lean::inc(x_1); +x_17 = l_ReaderT_map___at_Lean_Elaborator_toLevel___main___spec__1___rarg(x_14, x_13, x_1, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { -obj* x_18; obj* x_20; obj* x_21; +obj* x_21; obj* x_23; obj* x_24; +lean::dec(x_1); lean::dec(x_10); -lean::dec(x_12); lean::dec(x_2); -x_18 = lean::cnstr_get(x_14, 0); -if (lean::is_exclusive(x_14)) { - x_20 = x_14; +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { - lean::inc(x_18); - lean::dec(x_14); - x_20 = lean::box(0); + lean::inc(x_21); + lean::dec(x_17); + x_23 = lean::box(0); } -if (lean::is_scalar(x_20)) { - x_21 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_23)) { + x_24 = lean::alloc_cnstr(0, 1, 0); } else { - x_21 = x_20; + x_24 = x_23; } -lean::cnstr_set(x_21, 0, x_18); -return x_21; +lean::cnstr_set(x_24, 0, x_21); +return x_24; } else { -obj* x_22; obj* x_25; obj* x_27; obj* x_30; -x_22 = lean::cnstr_get(x_14, 0); -lean::inc(x_22); -lean::dec(x_14); -x_25 = lean::cnstr_get(x_22, 0); +obj* x_25; obj* x_28; obj* x_30; obj* x_33; +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -x_27 = lean::cnstr_get(x_22, 1); -lean::inc(x_27); -lean::dec(x_22); -x_30 = l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1(x_10, x_1, x_2, x_27); -if (lean::obj_tag(x_30) == 0) -{ -obj* x_33; obj* x_35; obj* x_36; -lean::dec(x_12); +lean::dec(x_17); +x_28 = lean::cnstr_get(x_25, 0); +lean::inc(x_28); +x_30 = lean::cnstr_get(x_25, 1); +lean::inc(x_30); lean::dec(x_25); -x_33 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_35 = x_30; +x_33 = l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1(x_10, x_1, x_2, x_30); +if (lean::obj_tag(x_33) == 0) +{ +obj* x_35; obj* x_37; obj* x_38; +lean::dec(x_28); +x_35 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_37 = x_33; } else { - lean::inc(x_33); - lean::dec(x_30); - x_35 = lean::box(0); + lean::inc(x_35); + lean::dec(x_33); + x_37 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_36 = x_35; + x_38 = x_37; } -lean::cnstr_set(x_36, 0, x_33); -return x_36; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_37 = lean::cnstr_get(x_30, 0); -if (lean::is_exclusive(x_30)) { - x_39 = x_30; +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); +if (lean::is_exclusive(x_33)) { + x_41 = x_33; } else { - lean::inc(x_37); - lean::dec(x_30); - x_39 = lean::box(0); + lean::inc(x_39); + lean::dec(x_33); + x_41 = lean::box(0); } -x_40 = lean::cnstr_get(x_37, 0); -x_42 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_44 = x_37; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_40); lean::inc(x_42); - lean::dec(x_37); - x_44 = lean::box(0); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_12)) { - x_45 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_12; + x_48 = x_46; } -lean::cnstr_set(x_45, 0, x_25); -lean::cnstr_set(x_45, 1, x_40); -if (lean::is_scalar(x_44)) { - x_46 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_46 = x_44; + x_49 = x_41; } -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_42); -if (lean::is_scalar(x_39)) { - x_47 = lean::alloc_cnstr(1, 1, 0); -} else { - x_47 = x_39; -} -lean::cnstr_set(x_47, 0, x_46); -return x_47; +lean::cnstr_set(x_49, 0, x_48); +return x_49; } } } @@ -24991,208 +23635,192 @@ if (lean::is_exclusive(x_0)) { lean::inc(x_4); x_8 = l_Lean_Elaborator_mangleIdent(x_4); x_9 = l_Lean_Elaborator_resolveContext___main(x_8, x_1, x_2, x_3); +lean::dec(x_1); if (lean::obj_tag(x_9) == 0) { -obj* x_12; obj* x_14; obj* x_15; +obj* x_13; obj* x_15; obj* x_16; lean::dec(x_6); lean::dec(x_4); -x_12 = lean::cnstr_get(x_9, 0); +x_13 = lean::cnstr_get(x_9, 0); if (lean::is_exclusive(x_9)) { - x_14 = x_9; + x_15 = x_9; } else { - lean::inc(x_12); + lean::inc(x_13); lean::dec(x_9); - x_14 = lean::box(0); + x_15 = lean::box(0); } -if (lean::is_scalar(x_14)) { - x_15 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_15)) { + x_16 = lean::alloc_cnstr(0, 1, 0); } else { - x_15 = x_14; + x_16 = x_15; } -lean::cnstr_set(x_15, 0, x_12); -return x_15; +lean::cnstr_set(x_16, 0, x_13); +return x_16; } else { -obj* x_16; obj* x_18; obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_26; obj* x_28; obj* x_30; obj* x_32; obj* x_33; obj* x_36; obj* x_37; obj* x_38; obj* x_39; -x_16 = lean::cnstr_get(x_9, 0); +obj* x_17; obj* x_19; obj* x_20; obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_31; obj* x_33; obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_17 = lean::cnstr_get(x_9, 0); if (lean::is_exclusive(x_9)) { - x_18 = x_9; + x_19 = x_9; } else { - lean::inc(x_16); + lean::inc(x_17); lean::dec(x_9); - x_18 = lean::box(0); + x_19 = lean::box(0); } -x_19 = lean::cnstr_get(x_16, 0); -x_21 = lean::cnstr_get(x_16, 1); -if (lean::is_exclusive(x_16)) { - x_23 = x_16; +x_20 = lean::cnstr_get(x_17, 0); +x_22 = lean::cnstr_get(x_17, 1); +if (lean::is_exclusive(x_17)) { + x_24 = x_17; } else { - lean::inc(x_19); - lean::inc(x_21); - lean::dec(x_16); - x_23 = lean::box(0); + lean::inc(x_20); + lean::inc(x_22); + lean::dec(x_17); + x_24 = lean::box(0); } -x_24 = lean::cnstr_get(x_4, 0); -lean::inc(x_24); -x_26 = lean::cnstr_get(x_4, 1); -lean::inc(x_26); -x_28 = lean::cnstr_get(x_4, 2); -lean::inc(x_28); -x_30 = lean::cnstr_get(x_4, 3); -lean::inc(x_30); -x_32 = l_List_append___rarg(x_19, x_30); -x_33 = lean::cnstr_get(x_4, 4); -lean::inc(x_33); +x_25 = lean::cnstr_get(x_4, 0); +lean::inc(x_25); +x_27 = lean::cnstr_get(x_4, 1); +lean::inc(x_27); +x_29 = lean::cnstr_get(x_4, 2); +lean::inc(x_29); +x_31 = lean::cnstr_get(x_4, 3); +lean::inc(x_31); +x_33 = l_List_append___rarg(x_20, x_31); +x_34 = lean::cnstr_get(x_4, 4); +lean::inc(x_34); lean::dec(x_4); -x_36 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_36, 0, x_24); -lean::cnstr_set(x_36, 1, x_26); -lean::cnstr_set(x_36, 2, x_28); -lean::cnstr_set(x_36, 3, x_32); -lean::cnstr_set(x_36, 4, x_33); +x_37 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_37, 0, x_25); +lean::cnstr_set(x_37, 1, x_27); +lean::cnstr_set(x_37, 2, x_29); +lean::cnstr_set(x_37, 3, x_33); +lean::cnstr_set(x_37, 4, x_34); if (lean::is_scalar(x_6)) { - x_37 = lean::alloc_cnstr(1, 1, 0); + x_38 = lean::alloc_cnstr(1, 1, 0); } else { - x_37 = x_6; -} -lean::cnstr_set(x_37, 0, x_36); -if (lean::is_scalar(x_23)) { - x_38 = lean::alloc_cnstr(0, 2, 0); -} else { - x_38 = x_23; + x_38 = x_6; } lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_21); -if (lean::is_scalar(x_18)) { - x_39 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_24)) { + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_39 = x_18; + x_39 = x_24; } lean::cnstr_set(x_39, 0, x_38); -return x_39; +lean::cnstr_set(x_39, 1, x_22); +if (lean::is_scalar(x_19)) { + x_40 = lean::alloc_cnstr(1, 1, 0); +} else { + x_40 = x_19; +} +lean::cnstr_set(x_40, 0, x_39); +return x_40; } } case 2: { -obj* x_40; obj* x_42; obj* x_43; obj* x_45; -x_40 = lean::cnstr_get(x_0, 0); +obj* x_41; obj* x_43; obj* x_44; obj* x_46; +x_41 = lean::cnstr_get(x_0, 0); if (lean::is_exclusive(x_0)) { lean::cnstr_set(x_0, 0, lean::box(0)); - x_42 = x_0; + x_43 = x_0; } else { - lean::inc(x_40); + lean::inc(x_41); lean::dec(x_0); - x_42 = lean::box(0); + x_43 = lean::box(0); } -x_43 = lean::cnstr_get(x_40, 1); -lean::inc(x_43); -x_45 = l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1(x_43, x_1, x_2, x_3); -if (lean::obj_tag(x_45) == 0) +x_44 = lean::cnstr_get(x_41, 1); +lean::inc(x_44); +x_46 = l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1(x_44, x_1, x_2, x_3); +if (lean::obj_tag(x_46) == 0) { -obj* x_48; obj* x_50; obj* x_51; -lean::dec(x_40); -lean::dec(x_42); -x_48 = lean::cnstr_get(x_45, 0); -if (lean::is_exclusive(x_45)) { - x_50 = x_45; +obj* x_49; obj* x_51; obj* x_52; +lean::dec(x_41); +lean::dec(x_43); +x_49 = lean::cnstr_get(x_46, 0); +if (lean::is_exclusive(x_46)) { + x_51 = x_46; } else { - lean::inc(x_48); - lean::dec(x_45); - x_50 = lean::box(0); + lean::inc(x_49); + lean::dec(x_46); + x_51 = lean::box(0); } -if (lean::is_scalar(x_50)) { - x_51 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_51)) { + x_52 = lean::alloc_cnstr(0, 1, 0); } else { - x_51 = x_50; + x_52 = x_51; } -lean::cnstr_set(x_51, 0, x_48); -return x_51; +lean::cnstr_set(x_52, 0, x_49); +return x_52; } else { -obj* x_52; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; -x_52 = lean::cnstr_get(x_45, 0); -if (lean::is_exclusive(x_45)) { - x_54 = x_45; +obj* x_53; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_61; obj* x_63; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_53 = lean::cnstr_get(x_46, 0); +if (lean::is_exclusive(x_46)) { + x_55 = x_46; } else { - lean::inc(x_52); - lean::dec(x_45); - x_54 = lean::box(0); + lean::inc(x_53); + lean::dec(x_46); + x_55 = lean::box(0); } -x_55 = lean::cnstr_get(x_52, 0); -x_57 = lean::cnstr_get(x_52, 1); -if (lean::is_exclusive(x_52)) { - x_59 = x_52; +x_56 = lean::cnstr_get(x_53, 0); +x_58 = lean::cnstr_get(x_53, 1); +if (lean::is_exclusive(x_53)) { + x_60 = x_53; } else { - lean::inc(x_55); - lean::inc(x_57); - lean::dec(x_52); - x_59 = lean::box(0); + lean::inc(x_56); + lean::inc(x_58); + lean::dec(x_53); + x_60 = lean::box(0); } -x_60 = lean::cnstr_get(x_40, 0); -lean::inc(x_60); -x_62 = lean::cnstr_get(x_40, 2); -lean::inc(x_62); -lean::dec(x_40); -x_65 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_65, 0, x_60); -lean::cnstr_set(x_65, 1, x_55); -lean::cnstr_set(x_65, 2, x_62); -if (lean::is_scalar(x_42)) { - x_66 = lean::alloc_cnstr(2, 1, 0); +x_61 = lean::cnstr_get(x_41, 0); +lean::inc(x_61); +x_63 = lean::cnstr_get(x_41, 2); +lean::inc(x_63); +lean::dec(x_41); +x_66 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_66, 0, x_61); +lean::cnstr_set(x_66, 1, x_56); +lean::cnstr_set(x_66, 2, x_63); +if (lean::is_scalar(x_43)) { + x_67 = lean::alloc_cnstr(2, 1, 0); } else { - x_66 = x_42; -} -lean::cnstr_set(x_66, 0, x_65); -if (lean::is_scalar(x_59)) { - x_67 = lean::alloc_cnstr(0, 2, 0); -} else { - x_67 = x_59; + x_67 = x_43; } lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_57); -if (lean::is_scalar(x_54)) { - x_68 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_60)) { + x_68 = lean::alloc_cnstr(0, 2, 0); } else { - x_68 = x_54; + x_68 = x_60; } lean::cnstr_set(x_68, 0, x_67); -return x_68; +lean::cnstr_set(x_68, 1, x_58); +if (lean::is_scalar(x_55)) { + x_69 = lean::alloc_cnstr(1, 1, 0); +} else { + x_69 = x_55; +} +lean::cnstr_set(x_69, 0, x_68); +return x_69; } } default: { -obj* x_70; obj* x_71; +obj* x_72; obj* x_73; +lean::dec(x_1); lean::dec(x_2); -x_70 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_70, 0, x_0); -lean::cnstr_set(x_70, 1, x_3); -x_71 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_71, 0, x_70); -return x_71; +x_72 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_72, 0, x_0); +lean::cnstr_set(x_72, 1, x_3); +x_73 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_73, 0, x_72); +return x_73; } } } } -obj* l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_List_mmap___main___at_Lean_Elaborator_preresolve___main___spec__1(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} -obj* l_Lean_Elaborator_preresolve___main___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_preresolve___main(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* l_Lean_Elaborator_preresolve(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -25201,15 +23829,6 @@ x_4 = l_Lean_Elaborator_preresolve___main(x_0, x_1, x_2, x_3); return x_4; } } -obj* l_Lean_Elaborator_preresolve___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_4; -x_4 = l_Lean_Elaborator_preresolve(x_0, x_1, x_2, x_3); -lean::dec(x_1); -return x_4; -} -} obj* _init_l_Lean_Elaborator_mkState___closed__1() { _start: { @@ -25480,6 +24099,60 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lea return x_1; } } +obj* l_RBNode_find___main___at_Lean_Elaborator_processCommand___spec__3(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} obj* _init_l_Lean_Elaborator_processCommand___lambda__1___closed__1() { _start: { @@ -25522,7 +24195,7 @@ return x_14; } else { -obj* x_18; obj* x_20; obj* x_21; obj* x_24; obj* x_25; obj* x_27; +obj* x_18; obj* x_20; obj* x_21; obj* x_24; obj* x_25; x_18 = lean::cnstr_get(x_5, 0); if (lean::is_exclusive(x_5)) { lean::cnstr_set(x_5, 0, lean::box(0)); @@ -25535,75 +24208,74 @@ if (lean::is_exclusive(x_5)) { x_21 = lean::cnstr_get(x_18, 0); lean::inc(x_21); lean::dec(x_18); -x_24 = l_Lean_NameMap_contains___rarg___closed__1; -x_25 = l_Lean_Elaborator_elaborators; -lean::inc(x_21); -x_27 = l_RBNode_find___main___rarg(x_24, lean::box(0), x_25, x_21); -if (lean::obj_tag(x_27) == 0) +x_24 = l_Lean_Elaborator_elaborators; +x_25 = l_RBNode_find___main___at_Lean_Elaborator_processCommand___spec__3(x_24, x_21); +if (lean::obj_tag(x_25) == 0) { -obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_34; +obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; if (lean::is_scalar(x_20)) { - x_28 = lean::alloc_cnstr(1, 1, 0); + x_26 = lean::alloc_cnstr(1, 1, 0); } else { - x_28 = x_20; + x_26 = x_20; } -lean::cnstr_set(x_28, 0, x_1); -x_29 = l_Lean_Name_toString___closed__1; -x_30 = l_Lean_Name_toStringWithSep___main(x_29, x_21); -x_31 = l_Lean_Elaborator_processCommand___lambda__1___closed__2; -x_32 = lean::string_append(x_31, x_30); -lean::dec(x_30); -x_34 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(x_28, x_32, x_0, x_2, x_3); +lean::cnstr_set(x_26, 0, x_1); +x_27 = l_Lean_Name_toString___closed__1; +x_28 = l_Lean_Name_toStringWithSep___main(x_27, x_21); +x_29 = l_Lean_Elaborator_processCommand___lambda__1___closed__2; +x_30 = lean::string_append(x_29, x_28); +lean::dec(x_28); +x_32 = l_Lean_Expander_error___at_Lean_Elaborator_processCommand___spec__2___rarg(x_26, x_30, x_0, x_2, x_3); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_28); -return x_34; +lean::dec(x_26); +return x_32; } else { -obj* x_40; obj* x_44; +obj* x_38; obj* x_43; lean::dec(x_20); lean::dec(x_21); -x_40 = lean::cnstr_get(x_27, 0); -lean::inc(x_40); -lean::dec(x_27); +x_38 = lean::cnstr_get(x_25, 0); +lean::inc(x_38); +lean::dec(x_25); lean::inc(x_2); -x_44 = l_Lean_Elaborator_preresolve___main(x_1, x_0, x_2, x_3); -if (lean::obj_tag(x_44) == 0) +lean::inc(x_0); +x_43 = l_Lean_Elaborator_preresolve___main(x_1, x_0, x_2, x_3); +if (lean::obj_tag(x_43) == 0) { -obj* x_48; obj* x_50; obj* x_51; +obj* x_47; obj* x_49; obj* x_50; lean::dec(x_0); lean::dec(x_2); -lean::dec(x_40); -x_48 = lean::cnstr_get(x_44, 0); -if (lean::is_exclusive(x_44)) { - x_50 = x_44; +lean::dec(x_38); +x_47 = lean::cnstr_get(x_43, 0); +if (lean::is_exclusive(x_43)) { + x_49 = x_43; } else { - lean::inc(x_48); - lean::dec(x_44); - x_50 = lean::box(0); + lean::inc(x_47); + lean::dec(x_43); + x_49 = lean::box(0); } -if (lean::is_scalar(x_50)) { - x_51 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_49)) { + x_50 = lean::alloc_cnstr(0, 1, 0); } else { - x_51 = x_50; + x_50 = x_49; } -lean::cnstr_set(x_51, 0, x_48); -return x_51; +lean::cnstr_set(x_50, 0, x_47); +return x_50; } else { -obj* x_52; obj* x_55; obj* x_57; obj* x_60; -x_52 = lean::cnstr_get(x_44, 0); -lean::inc(x_52); -lean::dec(x_44); -x_55 = lean::cnstr_get(x_52, 0); -lean::inc(x_55); -x_57 = lean::cnstr_get(x_52, 1); -lean::inc(x_57); -lean::dec(x_52); -x_60 = lean::apply_4(x_40, x_55, x_0, x_2, x_57); -return x_60; +obj* x_51; obj* x_54; obj* x_56; obj* x_59; +x_51 = lean::cnstr_get(x_43, 0); +lean::inc(x_51); +lean::dec(x_43); +x_54 = lean::cnstr_get(x_51, 0); +lean::inc(x_54); +x_56 = lean::cnstr_get(x_51, 1); +lean::inc(x_56); +lean::dec(x_51); +x_59 = lean::apply_4(x_38, x_54, x_0, x_2, x_56); +return x_59; } } } @@ -25752,6 +24424,15 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at_Lean_Elaborator_processCommand___spec__3___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Elaborator_processCommand___spec__3(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* initialize_init_lean_parser_module(obj*); obj* initialize_init_lean_expander(obj*); obj* initialize_init_lean_expr(obj*); @@ -25794,6 +24475,8 @@ lean::mark_persistent(l_Lean_Elaborator_toLevel___main___closed__2); lean::mark_persistent(l_Lean_Elaborator_toLevel___main___closed__3); l_Lean_Elaborator_toLevel___main___closed__4 = _init_l_Lean_Elaborator_toLevel___main___closed__4(); lean::mark_persistent(l_Lean_Elaborator_toLevel___main___closed__4); + l_Lean_Elaborator_toLevel___main___closed__5 = _init_l_Lean_Elaborator_toLevel___main___closed__5(); +lean::mark_persistent(l_Lean_Elaborator_toLevel___main___closed__5); l_Lean_Elaborator_Expr_mkAnnotation___closed__1 = _init_l_Lean_Elaborator_Expr_mkAnnotation___closed__1(); lean::mark_persistent(l_Lean_Elaborator_Expr_mkAnnotation___closed__1); l_Lean_Elaborator_dummy = _init_l_Lean_Elaborator_dummy(); @@ -25804,12 +24487,12 @@ lean::mark_persistent(l_List_map___main___at_Lean_Elaborator_mkEqns___spec__1___ lean::mark_persistent(l_Lean_Elaborator_mkEqns___closed__1); l_Lean_Elaborator_mkEqns___closed__2 = _init_l_Lean_Elaborator_mkEqns___closed__2(); lean::mark_persistent(l_Lean_Elaborator_mkEqns___closed__2); - l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___closed__1(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___closed__1); - l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__1); - l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2 = _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___closed__2); + l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1___closed__1(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__3___lambda__1___closed__1); + l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__1(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__1); + l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2 = _init_l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_toPexpr___main___spec__6___lambda__1___closed__2); l_Lean_Elaborator_toPexpr___main___closed__1 = _init_l_Lean_Elaborator_toPexpr___main___closed__1(); lean::mark_persistent(l_Lean_Elaborator_toPexpr___main___closed__1); l_Lean_Elaborator_toPexpr___main___closed__2 = _init_l_Lean_Elaborator_toPexpr___main___closed__2(); @@ -25926,8 +24609,8 @@ lean::mark_persistent(l_Lean_Elaborator_inferModToPexpr___closed__1); lean::mark_persistent(l_Lean_Elaborator_inferModToPexpr___closed__2); l_Lean_Elaborator_inferModToPexpr___closed__3 = _init_l_Lean_Elaborator_inferModToPexpr___closed__3(); lean::mark_persistent(l_Lean_Elaborator_inferModToPexpr___closed__3); - l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___closed__1); + l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_Declaration_elaborate___spec__2___lambda__1___closed__1); l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__1 = _init_l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__1(); lean::mark_persistent(l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__1); l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__2 = _init_l_Lean_Elaborator_Declaration_elaborate___lambda__3___closed__2(); @@ -25978,10 +24661,10 @@ lean::mark_persistent(l_Lean_Elaborator_notation_elaborate___closed__2); lean::mark_persistent(l_Lean_Elaborator_universe_elaborate___closed__1); l_Lean_Elaborator_universe_elaborate___closed__2 = _init_l_Lean_Elaborator_universe_elaborate___closed__2(); lean::mark_persistent(l_Lean_Elaborator_universe_elaborate___closed__2); - l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__1(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__1); - l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__2 = _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__2(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___closed__2); + l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__1 = _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__1(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__1); + l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__2 = _init_l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__2(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Elaborator_attribute_elaborate___spec__1___lambda__1___closed__2); l_Lean_Elaborator_attribute_elaborate___closed__1 = _init_l_Lean_Elaborator_attribute_elaborate___closed__1(); lean::mark_persistent(l_Lean_Elaborator_attribute_elaborate___closed__1); l_Lean_Elaborator_attribute_elaborate___closed__2 = _init_l_Lean_Elaborator_attribute_elaborate___closed__2(); diff --git a/src/stage0/init/lean/expander.cpp b/src/stage0/init/lean/expander.cpp index 4a1ec107e2..858916aee3 100644 --- a/src/stage0/init/lean/expander.cpp +++ b/src/stage0/init/lean/expander.cpp @@ -14,17 +14,18 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; obj* l_Lean_Expander_error___at___private_init_lean_expander_2__expandCore___main___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_mixfix_transform___closed__5; -extern obj* l_Lean_NameMap_contains___rarg___closed__1; +obj* l_RBNode_setBlack___main___rarg(obj*); extern obj* l_Lean_Parser_Term_arrow; obj* l_Lean_Expander_getOptType___main(obj*); obj* l_Lean_Expander_sorry_transform___boxed(obj*, obj*); obj* l_Lean_Expander_ExpanderState_new; obj* l_Lean_Expander_error___at___private_init_lean_expander_2__expandCore___main___spec__1(obj*); +obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__9(obj*, obj*); obj* l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); extern "C" uint8 lean_name_dec_eq(obj*, obj*); +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__10(obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__2___boxed(obj*, obj*, obj*); obj* l_Lean_Expander_sorry_transform(obj*, obj*); obj* l_Lean_Expander_getOptType___main___closed__1; @@ -42,13 +43,17 @@ obj* nat_sub(obj*, obj*); } obj* l_Lean_Expander_bindingAnnotationUpdate_HasView_x_27___lambda__1___closed__1; obj* l_coe___at_Lean_Expander_coeMixedBindersBindersExt___spec__1___boxed(obj*); +obj* l_Id_map___boxed(obj*, obj*); +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___boxed(obj*); obj* l_List_foldr___main___at_Lean_Expander_expandBinders___spec__1(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_binderDefault_HasView; obj* l_Lean_Expander_assume_transform___closed__1; extern obj* l_Lean_Parser_command_reserveMixfix; obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__4(uint8, obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__6(obj*, obj*); +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3(obj*); obj* l_List_mfoldr___main___at_Lean_Expander_expandBinders___spec__4___closed__1; +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; obj* l_Lean_Expander_mkSimpleBinder(obj*, uint8, obj*); obj* l_Lean_Expander_mixfix_transform___closed__6; obj* l_Lean_Expander_expandBracketedBinder___main___closed__5; @@ -98,11 +103,14 @@ obj* l_Lean_Expander_mkSimpleBinder___closed__5; obj* l_Lean_Expander_Level_leading_transform(obj*, obj*); obj* l_Lean_Expander_lambda_transform___lambda__1(obj*, obj*); obj* l_Lean_Expander_TransformM_Monad; -obj* l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__1(obj*, obj*); +obj* l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2(obj*, obj*); +obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__9___boxed(obj*, obj*); extern obj* l_Lean_Parser_Term_bracketedBinders; -obj* l_Lean_Name_quickLt___boxed(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__2(uint8, obj*, obj*); obj* l___private_init_lean_expander_1__popStxArg(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(obj*, obj*, obj*); +obj* l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___rarg(obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1(obj*, obj*); obj* l_Lean_Expander_variable_transform___closed__1; obj* l_ExceptT_MonadExcept___rarg(obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__20(uint8, obj*, obj*); @@ -110,41 +118,45 @@ extern obj* l_Lean_Parser_command_mixfix_HasView; obj* l_Lean_Expander_axiom_transform___closed__1; obj* l_Lean_Expander_expandBracketedBinder___main___closed__3; obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__4___boxed(obj*, obj*, obj*); +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3(obj*); extern obj* l_Lean_Parser_command_reserveNotation_HasView; obj* l_Lean_Expander_coeSimpleBinderBinders(obj*); extern obj* l_Lean_Parser_command_axiom_HasView; obj* l_Lean_Expander_paren_transform___closed__1; obj* l_Lean_Expander_TransformM_MonadReader; +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg(obj*, obj*, obj*); extern obj* l_Lean_Parser_command_variables_HasView; -obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1; obj* l_Lean_Expander_mixfixToNotationSpec___closed__6; obj* l_coe___at_Lean_Expander_depArrow_transform___spec__1(obj*); +obj* l_RBNode_balance2___main___rarg(obj*, obj*); obj* l_Lean_Expander_error___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_read___rarg(obj*, obj*); obj* l___private_init_lean_expander_2__expandCore(obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__3___boxed(obj*, obj*, obj*); +obj* l_coe___at_Lean_Expander_mkNotationTransformer___spec__4(obj*); obj* l_Lean_Parser_Syntax_asNode___main(obj*); +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___boxed(obj*); +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1; obj* l_List_foldr1Opt___main___at_Lean_Expander_paren_transform___spec__2(obj*); extern obj* l_Lean_Parser_Term_depArrow; extern obj* l_Lean_Parser_command_introRule_HasView; extern obj* l_Lean_Parser_command_universes_HasView; obj* l_Lean_Expander_coeBracketedBinderMixedBinder(obj*); -obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__6___boxed(obj*, obj*); extern obj* l_Lean_Parser_command_variable_HasView; obj* l_Lean_Expander_coeNameIdent(obj*); obj* l_List_map___main___at_Lean_Expander_coeMixedBindersBindersExt___spec__2(obj*); obj* l_ReaderT_Monad___rarg(obj*); obj* l_Lean_Expander_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Expander_coeIdentsBindersExt___rarg(obj*, obj*); -obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; +obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__7(obj*, obj*, obj*, obj*); obj* l_List_join___main___rarg(obj*); obj* l_List_foldr1___main___at_Lean_Expander_paren_transform___spec__3___boxed(obj*, obj*); -obj* l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__3(obj*); obj* l_Lean_Expander_binderIdentToIdent___main___closed__1; extern obj* l_Lean_Parser_command_axiom; +obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__8___boxed(obj*, obj*); obj* l_Lean_Expander_mkScope(obj*, obj*); obj* l_Lean_Expander_Level_leading_transform___boxed(obj*, obj*); -obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__4(obj*, obj*, obj*, obj*); +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__10(obj*, obj*); obj* l_Lean_Expander_coeMixedBindersBindersExt(obj*); extern obj* l_Lean_Parser_Term_if; @@ -178,11 +190,13 @@ obj* l_List_foldr1___main___at_Lean_Expander_paren_transform___spec__3___closed_ extern obj* l_Lean_Parser_noKind; extern obj* l_Lean_Parser_Term_lambda_HasView; obj* l_List_mfoldr___main___at_Lean_Expander_expandBinders___spec__4___closed__4; +obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__8(obj*, obj*); extern obj* l_Lean_Parser_Term_paren; obj* l_List_map___main___at_Lean_Expander_coeIdentsBindersExt___spec__2(obj*); obj* l_Lean_Parser_symbolCore___at_Lean_Parser_command_NotationSpec_precedenceTerm_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Expander_Subtype_transform___closed__1; extern "C" obj* lean_name_mk_string(obj*, obj*); +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg(obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_binderIdent_HasView; obj* l_Lean_Expander_mkNotationTransformer(obj*, obj*, obj*); obj* l_List_foldr___main___at_Lean_Expander_expandBinders___spec__2(obj*, obj*, obj*, obj*); @@ -191,8 +205,10 @@ namespace lean { obj* nat_add(obj*, obj*); } obj* l_Lean_Expander_mkSimpleBinder___closed__1; +obj* l_List_foldl___main___at_Lean_Expander_builtinTransformers___spec__2(obj*, obj*); obj* l_Lean_Expander_pi_transform(obj*, obj*); extern obj* l_Lean_Parser_Term_sorry; +obj* l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___boxed(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__8(obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); @@ -202,12 +218,13 @@ obj* l_Lean_Expander_error___at___private_init_lean_expander_2__expandCore___mai obj* l_List_foldr___main___at_Lean_Expander_expandBinders___spec__3(obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_Subtype; obj* l_Lean_Expander_binderIdentToIdent___main___boxed(obj*); +uint8 l_RBNode_isRed___main___rarg(obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__3(uint8, obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__1___boxed(obj*, obj*, obj*); obj* l_Lean_Expander_mkSimpleBinder___closed__6; +obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__5(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_error___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_identUnivs; -obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__7___boxed(obj*, obj*); obj* l_Lean_Expander_ExpanderConfig_HasLift___boxed(obj*); extern obj* l_Lean_Parser_command_Declaration; extern obj* l_Lean_Parser_Term_Subtype_HasView; @@ -217,16 +234,18 @@ obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__1 extern obj* l_Lean_Parser_command_variable; obj* l_Lean_Expander_expandBracketedBinder___main___closed__4; obj* l_Lean_Expander_if_transform___closed__2; +obj* l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2___rarg(obj*, obj*, obj*, obj*); +obj* l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__7(obj*); obj* l_Lean_Expander_expandBracketedBinder___main___closed__1; extern obj* l_Lean_Parser_Level_leading; -obj* l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__3(obj*, obj*); obj* l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___boxed(obj*); obj* l_Id_pure___boxed(obj*); extern obj* l_Lean_Parser_command_notation_HasView; +obj* l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2(obj*, obj*); obj* l_Lean_Expander_axiom_transform(obj*, obj*); +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___rarg(obj*, obj*); extern obj* l_Lean_Parser_Term_app_HasView; obj* l_Lean_Expander_mixfix_transform___closed__3; -obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4(obj*, obj*, obj*, obj*); obj* l___private_init_lean_expander_1__popStxArg___closed__1; extern obj* l_Lean_Parser_Term_assume; obj* l_Lean_Expander_coeIdentIdentUnivs(obj*); @@ -236,7 +255,6 @@ obj* l_List_mfoldr___main___at_Lean_Expander_expandBinders___spec__4(obj*, obj*, obj* l_Lean_Expander_mkScope___boxed(obj*, obj*); obj* l_coe___at_Lean_Expander_coeMixedBindersBindersExt___spec__1___rarg(obj*, obj*); obj* l_Lean_Expander_paren_transform___closed__2; -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_binderIdentToIdent(obj*); obj* l_Lean_Expander_mkSimpleBinder___boxed(obj*, obj*, obj*); obj* l_Lean_Expander_if_transform___closed__1; @@ -247,19 +265,24 @@ obj* l_Lean_Expander_bindingAnnotationUpdate; obj* l_Lean_Expander_lambda_transform(obj*, obj*); obj* l_Lean_Expander_coeBindersExtBinders(obj*); obj* l_List_map___main___at_Lean_Expander_coeMixedBindersBindersExt___spec__2___boxed(obj*); -obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__2(obj*, obj*, obj*, obj*); +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_universes_transform(obj*, obj*); obj* l_Lean_Expander_getOptType___main___boxed(obj*); obj* l_Lean_Expander_coeBinderBracketedBinder___closed__2; obj* l_Lean_Expander_getOptType(obj*); extern obj* l_Lean_Parser_TermParserM_Monad; +uint8 l_Lean_Name_quickLt(obj*, obj*); obj* l_ReaderT_MonadExcept___rarg(obj*); obj* l_Lean_Expander_sorry_transform___closed__1; obj* l_Lean_Expander_error___at_Lean_Expander_mkNotationTransformer___spec__1___rarg(obj*, obj*, obj*); +obj* l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1___closed__1; +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg___boxed(obj*, obj*, obj*); extern obj* l_Lean_Parser_Term_bracketedBinders_HasView; extern obj* l_Lean_Parser_command_universe_HasView; +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___rarg___boxed(obj*, obj*); obj* l_Lean_Expander_if_transform___closed__3; obj* l_Lean_Expander_reserveMixfix_transform(obj*, obj*); +obj* l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l_coe___at_Lean_Expander_coeMixedBindersBindersExt___spec__1(obj*); obj* l_List_map___main___at_Lean_Expander_coeMixedBindersBindersExt___spec__2___rarg(obj*, obj*); extern obj* l_Lean_Parser_Term_anonymousConstructor_HasView; @@ -276,7 +299,6 @@ obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__1 obj* l_Lean_Expander_depArrow_transform___closed__1; obj* l_DList_singleton___rarg(obj*, obj*); extern obj* l_Lean_Parser_Level_leading_HasView; -obj* l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___closed__1; obj* l_Lean_Expander_pi_transform___lambda__1(obj*, obj*, obj*); obj* l_Lean_Expander_Subtype_transform___boxed(obj*, obj*); obj* l_List_foldr___main___at_Lean_Expander_expandBinders___spec__3___boxed(obj*, obj*, obj*); @@ -284,15 +306,17 @@ obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__1 extern obj* l_Lean_Parser_Term_arrow_HasView; obj* l_Lean_Expander_mkSimpleBinder___closed__7; obj* l_ExceptT_Monad___rarg(obj*); +obj* l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1(obj*, obj*); obj* l_Lean_Expander_variables_transform(obj*, obj*); -obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__7(obj*, obj*); extern obj* l_Lean_Parser_Term_paren_HasView; extern obj* l_Lean_Parser_Term_lambda; +obj* l_RBNode_balance1___main___rarg(obj*, obj*); obj* l_Lean_Expander_error___at_Lean_Expander_mkNotationTransformer___spec__1___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Expander_mixfix_transform___closed__2; extern obj* l_Lean_Name_toString___closed__1; obj* l_Lean_Expander_bindingAnnotationUpdate_Parser_Lean_Parser_HasView; obj* l_Lean_Expander_paren_transform___boxed(obj*, obj*); +extern obj* l_List_mmap___main___rarg___closed__1; obj* l_Lean_Expander_expandBracketedBinder___main___closed__6; obj* l_coe___at_Lean_Expander_coeIdentsBindersExt___spec__1___boxed(obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__15(obj*, obj*); @@ -304,7 +328,6 @@ obj* l_Lean_Expander_coeMixedBindersBindersExt___rarg(obj*, obj*); obj* l_Lean_Expander_Declaration_transform___closed__3; obj* l_Lean_Expander_mixfix_transform(obj*, obj*); extern obj* l_Lean_Parser_Term_pi; -obj* l_RBMap_fromList___rarg(obj*, obj*); obj* l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_universes_transform___spec__1___closed__1; obj* l_coe___at_Lean_Expander_coeIdentsBindersExt___spec__1___rarg(obj*, obj*); @@ -317,25 +340,32 @@ obj* l_List_map___main___at_Lean_Expander_universes_transform___spec__1(obj*); obj* l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Expander_bindingAnnotationUpdate_HasView_x_27; extern obj* l_Lean_Parser_TermParserM_MonadExcept; +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___boxed(obj*); obj* l_Lean_Expander_bindingAnnotationUpdate_Parser___closed__1; -obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__6(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__9(obj*, obj*); extern obj* l_Lean_Parser_Term_match_HasView; +obj* l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___boxed(obj*, obj*); obj* l_Lean_Expander_mixfixToNotationSpec(obj*, obj*, obj*); obj* l_Lean_Parser_Substring_ofString(obj*); +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2(obj*); extern obj* l_Lean_Parser_command_Declaration_HasView; obj* l_Lean_Expander_mkSimpleBinder___closed__4; obj* l_Lean_Expander_noExpansion___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_expander_2__expandCore___main___spec__4___boxed(obj*, obj*); obj* l_Lean_Expander_binderIdentToIdent___main(obj*); extern obj* l_Lean_Parser_identUnivs_HasView; obj* l_Lean_Expander_coeIdentsBindersExt(obj*); +obj* l_RBNode_find___main___at___private_init_lean_expander_2__expandCore___main___spec__4(obj*, obj*); extern obj* l_Lean_Parser_Term_if_HasView; obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__19___boxed(obj*, obj*, obj*); obj* l_List_foldr1___main___at_Lean_Expander_paren_transform___spec__3(obj*, obj*); obj* l_List_foldr___main___at_Lean_Expander_expandBinders___spec__1___boxed(obj*, obj*, obj*, obj*); +obj* l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2___boxed(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__12(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__18___boxed(obj*, obj*, obj*); +obj* l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__6(obj*, obj*); extern obj* l_Lean_Parser_command_NotationSpec_precedence_HasView; +obj* l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__3(obj*, obj*); obj* l_List_map___main___at_Lean_Expander_expandBracketedBinder___main___spec__19(uint8, obj*, obj*); extern obj* l_Lean_Parser_Term_binders_HasView; extern obj* l_Lean_Parser_Term_let_HasView; @@ -354,8 +384,8 @@ obj* l_List_map___main___at_Lean_Expander_paren_transform___spec__1(obj*); obj* l_Lean_Expander_expand(obj*, obj*); extern obj* l_String_splitAux___main___closed__1; obj* l_Lean_Expander_if_transform(obj*, obj*); -obj* l_coe___at_Lean_Expander_mkNotationTransformer___spec__2(obj*); obj* l_List_mfoldr___main___at_Lean_Expander_expandBinders___spec__4___closed__2; +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Expander_mixfix_transform___closed__4; obj* l_Lean_Expander_transformerConfigCoeFrontendConfig(obj* x_0) { _start: @@ -376,20 +406,20 @@ return x_1; obj* _init_l_Lean_Expander_TransformM_Monad() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -404,20 +434,20 @@ return x_11; obj* _init_l_Lean_Expander_TransformM_MonadReader() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -433,20 +463,20 @@ return x_11; obj* _init_l_Lean_Expander_TransformM_MonadExcept() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1241,7 +1271,99 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at_Lea return x_1; } } -obj* l_coe___at_Lean_Expander_mkNotationTransformer___spec__2(obj* x_0) { +obj* l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = lean::apply_2(x_1, x_2, x_3); +if (lean::obj_tag(x_4) == 0) +{ +obj* x_6; obj* x_8; obj* x_9; +lean::dec(x_0); +x_6 = lean::cnstr_get(x_4, 0); +if (lean::is_exclusive(x_4)) { + x_8 = x_4; +} else { + lean::inc(x_6); + lean::dec(x_4); + x_8 = lean::box(0); +} +if (lean::is_scalar(x_8)) { + x_9 = lean::alloc_cnstr(0, 1, 0); +} else { + x_9 = x_8; +} +lean::cnstr_set(x_9, 0, x_6); +return x_9; +} +else +{ +obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_10 = lean::cnstr_get(x_4, 0); +if (lean::is_exclusive(x_4)) { + x_12 = x_4; +} else { + lean::inc(x_10); + lean::dec(x_4); + x_12 = lean::box(0); +} +x_13 = lean::cnstr_get(x_10, 0); +x_15 = lean::cnstr_get(x_10, 1); +if (lean::is_exclusive(x_10)) { + x_17 = x_10; +} else { + lean::inc(x_13); + lean::inc(x_15); + lean::dec(x_10); + x_17 = lean::box(0); +} +x_18 = lean::apply_1(x_0, x_13); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(0, 2, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +lean::cnstr_set(x_19, 1, x_15); +if (lean::is_scalar(x_12)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_12; +} +lean::cnstr_set(x_20, 0, x_19); +return x_20; +} +} +} +obj* l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2___rarg), 4, 0); +return x_2; +} +} +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_4; +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_4, 0, x_3); +return x_4; +} +} +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_coe___at_Lean_Expander_mkNotationTransformer___spec__4(obj* x_0) { _start: { obj* x_1; @@ -1250,7 +1372,7 @@ lean::cnstr_set(x_1, 0, x_0); return x_1; } } -obj* l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__3(obj* x_0) { +obj* l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(obj* x_0) { _start: { if (lean::obj_tag(x_0) == 0) @@ -1274,7 +1396,7 @@ if (lean::is_exclusive(x_0)) { } x_7 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_7, 0, x_2); -x_8 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__3(x_4); +x_8 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_4); if (lean::is_scalar(x_6)) { x_9 = lean::alloc_cnstr(1, 2, 0); } else { @@ -1286,7 +1408,7 @@ return x_9; } } } -obj* _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1() { +obj* _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1() { _start: { obj* x_0; @@ -1294,7 +1416,7 @@ x_0 = lean::mk_string("mkNotationTransformer: unimplemented"); return x_0; } } -obj* _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2() { +obj* _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; @@ -1308,7 +1430,7 @@ lean::cnstr_set(x_3, 0, x_2); return x_3; } } -obj* _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3() { +obj* _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_4; obj* x_5; @@ -1324,705 +1446,701 @@ lean::cnstr_set(x_5, 0, x_4); return x_5; } } -obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_6; obj* x_7; obj* x_8; -lean::dec(x_3); +obj* x_5; obj* x_6; lean::dec(x_0); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_7, 0, x_6); -lean::cnstr_set(x_7, 1, x_2); -x_8 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_8, 0, x_7); -return x_8; +x_5 = lean::box(0); +x_6 = l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg(x_5, x_2, x_3); +lean::dec(x_3); +return x_6; } else { -obj* x_9; obj* x_11; obj* x_13; -x_9 = lean::cnstr_get(x_1, 0); -lean::inc(x_9); -x_11 = lean::cnstr_get(x_9, 0); -lean::inc(x_11); -x_13 = lean::cnstr_get(x_11, 1); -lean::inc(x_13); -lean::dec(x_11); -if (lean::obj_tag(x_13) == 0) +obj* x_8; obj* x_10; obj* x_12; +x_8 = lean::cnstr_get(x_1, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_8, 0); +lean::inc(x_10); +x_12 = lean::cnstr_get(x_10, 1); +lean::inc(x_12); +lean::dec(x_10); +if (lean::obj_tag(x_12) == 0) { -obj* x_16; obj* x_18; obj* x_20; obj* x_21; obj* x_23; -x_16 = lean::cnstr_get(x_1, 1); +obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_22; +x_15 = lean::cnstr_get(x_1, 1); if (lean::is_exclusive(x_1)) { lean::cnstr_release(x_1, 0); lean::cnstr_set(x_1, 1, lean::box(0)); - x_18 = x_1; + x_17 = x_1; } else { - lean::inc(x_16); + lean::inc(x_15); lean::dec(x_1); - x_18 = lean::box(0); + x_17 = lean::box(0); } lean::inc(x_0); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_0); -x_21 = l___private_init_lean_expander_1__popStxArg___closed__1; +x_19 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_19, 0, x_0); +x_20 = l___private_init_lean_expander_1__popStxArg___closed__1; lean::inc(x_3); -x_23 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_20, x_21, x_2, x_3); +x_22 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_19, x_20, x_2, x_3); lean::dec(x_2); -if (lean::obj_tag(x_23) == 0) +if (lean::obj_tag(x_22) == 0) { -obj* x_31; obj* x_33; obj* x_34; -lean::dec(x_16); -lean::dec(x_9); +obj* x_30; obj* x_32; obj* x_33; +lean::dec(x_15); +lean::dec(x_8); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_18); -lean::dec(x_20); -x_31 = lean::cnstr_get(x_23, 0); -if (lean::is_exclusive(x_23)) { - x_33 = x_23; +lean::dec(x_17); +lean::dec(x_19); +x_30 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_32 = x_22; } else { - lean::inc(x_31); - lean::dec(x_23); - x_33 = lean::box(0); + lean::inc(x_30); + lean::dec(x_22); + x_32 = lean::box(0); } -if (lean::is_scalar(x_33)) { - x_34 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_32)) { + x_33 = lean::alloc_cnstr(0, 1, 0); } else { - x_34 = x_33; + x_33 = x_32; } -lean::cnstr_set(x_34, 0, x_31); -return x_34; +lean::cnstr_set(x_33, 0, x_30); +return x_33; } else { -obj* x_35; obj* x_38; -x_35 = lean::cnstr_get(x_23, 0); -lean::inc(x_35); -lean::dec(x_23); -x_38 = lean::cnstr_get(x_9, 1); -lean::inc(x_38); -lean::dec(x_9); -if (lean::obj_tag(x_38) == 0) +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_22, 0); +lean::inc(x_34); +lean::dec(x_22); +x_37 = lean::cnstr_get(x_8, 1); +lean::inc(x_37); +lean::dec(x_8); +if (lean::obj_tag(x_37) == 0) { -obj* x_43; -lean::dec(x_18); -lean::dec(x_20); -x_43 = lean::cnstr_get(x_35, 1); -lean::inc(x_43); -lean::dec(x_35); -x_1 = x_16; -x_2 = x_43; +obj* x_42; +lean::dec(x_17); +lean::dec(x_19); +x_42 = lean::cnstr_get(x_34, 1); +lean::inc(x_42); +lean::dec(x_34); +x_1 = x_15; +x_2 = x_42; goto _start; } else { -obj* x_47; obj* x_49; -x_47 = lean::cnstr_get(x_38, 0); -if (lean::is_exclusive(x_38)) { - lean::cnstr_set(x_38, 0, lean::box(0)); - x_49 = x_38; +obj* x_46; obj* x_48; +x_46 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + lean::cnstr_set(x_37, 0, lean::box(0)); + x_48 = x_37; } else { - lean::inc(x_47); - lean::dec(x_38); - x_49 = lean::box(0); + lean::inc(x_46); + lean::dec(x_37); + x_48 = lean::box(0); } -switch (lean::obj_tag(x_47)) { +switch (lean::obj_tag(x_46)) { case 0: { -obj* x_52; obj* x_56; -lean::dec(x_20); -lean::dec(x_47); -x_52 = lean::cnstr_get(x_35, 1); -lean::inc(x_52); -lean::dec(x_35); +obj* x_51; obj* x_55; +lean::dec(x_19); +lean::dec(x_46); +x_51 = lean::cnstr_get(x_34, 1); +lean::inc(x_51); +lean::dec(x_34); lean::inc(x_3); -x_56 = l___private_init_lean_expander_1__popStxArg(x_52, x_3); -if (lean::obj_tag(x_56) == 0) +x_55 = l___private_init_lean_expander_1__popStxArg(x_51, x_3); +if (lean::obj_tag(x_55) == 0) { -obj* x_62; obj* x_64; obj* x_65; -lean::dec(x_16); +obj* x_61; obj* x_63; obj* x_64; +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_18); -lean::dec(x_49); -x_62 = lean::cnstr_get(x_56, 0); -if (lean::is_exclusive(x_56)) { - x_64 = x_56; +lean::dec(x_17); +lean::dec(x_48); +x_61 = lean::cnstr_get(x_55, 0); +if (lean::is_exclusive(x_55)) { + x_63 = x_55; } else { - lean::inc(x_62); - lean::dec(x_56); - x_64 = lean::box(0); + lean::inc(x_61); + lean::dec(x_55); + x_63 = lean::box(0); } -if (lean::is_scalar(x_64)) { - x_65 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(0, 1, 0); } else { - x_65 = x_64; + x_64 = x_63; } -lean::cnstr_set(x_65, 0, x_62); -return x_65; +lean::cnstr_set(x_64, 0, x_61); +return x_64; } else { -obj* x_66; obj* x_69; obj* x_71; obj* x_74; obj* x_76; obj* x_78; obj* x_81; obj* x_82; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; -x_66 = lean::cnstr_get(x_56, 0); -lean::inc(x_66); -lean::dec(x_56); -x_69 = lean::cnstr_get(x_66, 0); -lean::inc(x_69); -x_71 = lean::cnstr_get(x_66, 1); -lean::inc(x_71); -lean::dec(x_66); -x_74 = lean::cnstr_get(x_71, 0); -lean::inc(x_74); -x_76 = lean::cnstr_get(x_71, 1); -lean::inc(x_76); -x_78 = lean::cnstr_get(x_71, 2); -lean::inc(x_78); -lean::dec(x_71); -x_81 = l_Lean_Parser_Term_binderIdent_HasView; -x_82 = lean::cnstr_get(x_81, 0); -lean::inc(x_82); -lean::dec(x_81); -x_85 = lean::apply_1(x_82, x_69); -x_86 = lean::box(0); -if (lean::is_scalar(x_18)) { - x_87 = lean::alloc_cnstr(1, 2, 0); +obj* x_65; obj* x_68; obj* x_70; obj* x_73; obj* x_75; obj* x_77; obj* x_80; obj* x_81; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_65 = lean::cnstr_get(x_55, 0); +lean::inc(x_65); +lean::dec(x_55); +x_68 = lean::cnstr_get(x_65, 0); +lean::inc(x_68); +x_70 = lean::cnstr_get(x_65, 1); +lean::inc(x_70); +lean::dec(x_65); +x_73 = lean::cnstr_get(x_70, 0); +lean::inc(x_73); +x_75 = lean::cnstr_get(x_70, 1); +lean::inc(x_75); +x_77 = lean::cnstr_get(x_70, 2); +lean::inc(x_77); +lean::dec(x_70); +x_80 = l_Lean_Parser_Term_binderIdent_HasView; +x_81 = lean::cnstr_get(x_80, 0); +lean::inc(x_81); +lean::dec(x_80); +x_84 = lean::apply_1(x_81, x_68); +x_85 = lean::box(0); +if (lean::is_scalar(x_17)) { + x_86 = lean::alloc_cnstr(1, 2, 0); } else { - x_87 = x_18; + x_86 = x_17; +} +lean::cnstr_set(x_86, 0, x_84); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::box(0); +x_88 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_88, 0, x_86); +lean::cnstr_set(x_88, 1, x_87); +x_89 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_89, 0, x_88); +if (lean::is_scalar(x_48)) { + x_90 = lean::alloc_cnstr(1, 1, 0); +} else { + x_90 = x_48; } -lean::cnstr_set(x_87, 0, x_85); -lean::cnstr_set(x_87, 1, x_86); -x_88 = lean::box(0); -x_89 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_89, 0, x_87); -lean::cnstr_set(x_89, 1, x_88); -x_90 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_90, 0, x_89); -if (lean::is_scalar(x_49)) { - x_91 = lean::alloc_cnstr(1, 1, 0); -} else { - x_91 = x_49; -} -lean::cnstr_set(x_91, 0, x_90); -x_92 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_92, 0, x_74); -lean::cnstr_set(x_92, 1, x_76); -lean::cnstr_set(x_92, 2, x_78); -lean::cnstr_set(x_92, 3, x_91); -x_1 = x_16; -x_2 = x_92; +x_91 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_91, 0, x_73); +lean::cnstr_set(x_91, 1, x_75); +lean::cnstr_set(x_91, 2, x_77); +lean::cnstr_set(x_91, 3, x_90); +x_1 = x_15; +x_2 = x_91; goto _start; } } case 1: { -obj* x_97; obj* x_101; -lean::dec(x_18); -lean::dec(x_20); -lean::dec(x_47); -x_97 = lean::cnstr_get(x_35, 1); -lean::inc(x_97); -lean::dec(x_35); +obj* x_96; obj* x_100; +lean::dec(x_17); +lean::dec(x_19); +lean::dec(x_46); +x_96 = lean::cnstr_get(x_34, 1); +lean::inc(x_96); +lean::dec(x_34); lean::inc(x_3); -x_101 = l___private_init_lean_expander_1__popStxArg(x_97, x_3); -if (lean::obj_tag(x_101) == 0) +x_100 = l___private_init_lean_expander_1__popStxArg(x_96, x_3); +if (lean::obj_tag(x_100) == 0) { -obj* x_106; obj* x_108; obj* x_109; -lean::dec(x_16); +obj* x_105; obj* x_107; obj* x_108; +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_49); -x_106 = lean::cnstr_get(x_101, 0); -if (lean::is_exclusive(x_101)) { - x_108 = x_101; +lean::dec(x_48); +x_105 = lean::cnstr_get(x_100, 0); +if (lean::is_exclusive(x_100)) { + x_107 = x_100; } else { - lean::inc(x_106); - lean::dec(x_101); - x_108 = lean::box(0); + lean::inc(x_105); + lean::dec(x_100); + x_107 = lean::box(0); } -if (lean::is_scalar(x_108)) { - x_109 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_107)) { + x_108 = lean::alloc_cnstr(0, 1, 0); } else { - x_109 = x_108; + x_108 = x_107; } -lean::cnstr_set(x_109, 0, x_106); -return x_109; +lean::cnstr_set(x_108, 0, x_105); +return x_108; } else { -obj* x_110; obj* x_113; obj* x_115; obj* x_118; obj* x_120; obj* x_122; obj* x_125; obj* x_126; obj* x_129; obj* x_130; obj* x_131; -x_110 = lean::cnstr_get(x_101, 0); -lean::inc(x_110); -lean::dec(x_101); -x_113 = lean::cnstr_get(x_110, 0); -lean::inc(x_113); -x_115 = lean::cnstr_get(x_110, 1); -lean::inc(x_115); -lean::dec(x_110); -x_118 = lean::cnstr_get(x_115, 0); -lean::inc(x_118); -x_120 = lean::cnstr_get(x_115, 1); -lean::inc(x_120); -x_122 = lean::cnstr_get(x_115, 2); -lean::inc(x_122); -lean::dec(x_115); -x_125 = l_Lean_Parser_Term_binders_HasView; -x_126 = lean::cnstr_get(x_125, 0); -lean::inc(x_126); -lean::dec(x_125); -x_129 = lean::apply_1(x_126, x_113); -if (lean::is_scalar(x_49)) { - x_130 = lean::alloc_cnstr(1, 1, 0); +obj* x_109; obj* x_112; obj* x_114; obj* x_117; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_128; obj* x_129; obj* x_130; +x_109 = lean::cnstr_get(x_100, 0); +lean::inc(x_109); +lean::dec(x_100); +x_112 = lean::cnstr_get(x_109, 0); +lean::inc(x_112); +x_114 = lean::cnstr_get(x_109, 1); +lean::inc(x_114); +lean::dec(x_109); +x_117 = lean::cnstr_get(x_114, 0); +lean::inc(x_117); +x_119 = lean::cnstr_get(x_114, 1); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_114, 2); +lean::inc(x_121); +lean::dec(x_114); +x_124 = l_Lean_Parser_Term_binders_HasView; +x_125 = lean::cnstr_get(x_124, 0); +lean::inc(x_125); +lean::dec(x_124); +x_128 = lean::apply_1(x_125, x_112); +if (lean::is_scalar(x_48)) { + x_129 = lean::alloc_cnstr(1, 1, 0); } else { - x_130 = x_49; + x_129 = x_48; } -lean::cnstr_set(x_130, 0, x_129); -x_131 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_131, 0, x_118); -lean::cnstr_set(x_131, 1, x_120); -lean::cnstr_set(x_131, 2, x_122); -lean::cnstr_set(x_131, 3, x_130); -x_1 = x_16; -x_2 = x_131; +lean::cnstr_set(x_129, 0, x_128); +x_130 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_130, 0, x_117); +lean::cnstr_set(x_130, 1, x_119); +lean::cnstr_set(x_130, 2, x_121); +lean::cnstr_set(x_130, 3, x_129); +x_1 = x_15; +x_2 = x_130; goto _start; } } default: { -obj* x_134; obj* x_137; -lean::dec(x_49); -x_134 = lean::cnstr_get(x_47, 0); -lean::inc(x_134); -lean::dec(x_47); -x_137 = lean::cnstr_get(x_134, 1); -lean::inc(x_137); -if (lean::obj_tag(x_137) == 0) +obj* x_133; obj* x_136; +lean::dec(x_48); +x_133 = lean::cnstr_get(x_46, 0); +lean::inc(x_133); +lean::dec(x_46); +x_136 = lean::cnstr_get(x_133, 1); +lean::inc(x_136); +if (lean::obj_tag(x_136) == 0) { -obj* x_140; obj* x_143; obj* x_147; -lean::dec(x_20); -x_140 = lean::cnstr_get(x_35, 1); -lean::inc(x_140); -lean::dec(x_35); -x_143 = lean::cnstr_get(x_134, 0); -lean::inc(x_143); -lean::dec(x_134); +obj* x_139; obj* x_142; obj* x_146; +lean::dec(x_19); +x_139 = lean::cnstr_get(x_34, 1); +lean::inc(x_139); +lean::dec(x_34); +x_142 = lean::cnstr_get(x_133, 0); +lean::inc(x_142); +lean::dec(x_133); lean::inc(x_3); -x_147 = l___private_init_lean_expander_1__popStxArg(x_140, x_3); -if (lean::obj_tag(x_147) == 0) +x_146 = l___private_init_lean_expander_1__popStxArg(x_139, x_3); +if (lean::obj_tag(x_146) == 0) { -obj* x_153; obj* x_155; obj* x_156; -lean::dec(x_16); +obj* x_152; obj* x_154; obj* x_155; +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_18); -lean::dec(x_143); -x_153 = lean::cnstr_get(x_147, 0); -if (lean::is_exclusive(x_147)) { - x_155 = x_147; +lean::dec(x_17); +lean::dec(x_142); +x_152 = lean::cnstr_get(x_146, 0); +if (lean::is_exclusive(x_146)) { + x_154 = x_146; } else { - lean::inc(x_153); - lean::dec(x_147); - x_155 = lean::box(0); + lean::inc(x_152); + lean::dec(x_146); + x_154 = lean::box(0); } -if (lean::is_scalar(x_155)) { - x_156 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_154)) { + x_155 = lean::alloc_cnstr(0, 1, 0); } else { - x_156 = x_155; + x_155 = x_154; } -lean::cnstr_set(x_156, 0, x_153); -return x_156; +lean::cnstr_set(x_155, 0, x_152); +return x_155; } else { -obj* x_157; obj* x_160; obj* x_162; obj* x_164; obj* x_165; obj* x_167; obj* x_169; obj* x_170; obj* x_172; obj* x_173; obj* x_176; -x_157 = lean::cnstr_get(x_147, 0); -lean::inc(x_157); -lean::dec(x_147); -x_160 = lean::cnstr_get(x_157, 0); -x_162 = lean::cnstr_get(x_157, 1); -if (lean::is_exclusive(x_157)) { - x_164 = x_157; +obj* x_156; obj* x_159; obj* x_161; obj* x_163; obj* x_164; obj* x_166; obj* x_168; obj* x_169; obj* x_171; obj* x_172; obj* x_175; +x_156 = lean::cnstr_get(x_146, 0); +lean::inc(x_156); +lean::dec(x_146); +x_159 = lean::cnstr_get(x_156, 0); +x_161 = lean::cnstr_get(x_156, 1); +if (lean::is_exclusive(x_156)) { + x_163 = x_156; } else { - lean::inc(x_160); - lean::inc(x_162); - lean::dec(x_157); - x_164 = lean::box(0); + lean::inc(x_159); + lean::inc(x_161); + lean::dec(x_156); + x_163 = lean::box(0); } -x_165 = lean::cnstr_get(x_162, 0); -lean::inc(x_165); -x_167 = lean::cnstr_get(x_162, 1); -lean::inc(x_167); -if (lean::is_scalar(x_164)) { - x_169 = lean::alloc_cnstr(0, 2, 0); +x_164 = lean::cnstr_get(x_161, 0); +lean::inc(x_164); +x_166 = lean::cnstr_get(x_161, 1); +lean::inc(x_166); +if (lean::is_scalar(x_163)) { + x_168 = lean::alloc_cnstr(0, 2, 0); } else { - x_169 = x_164; + x_168 = x_163; } -lean::cnstr_set(x_169, 0, x_143); -lean::cnstr_set(x_169, 1, x_160); -x_170 = lean::cnstr_get(x_162, 2); -lean::inc(x_170); -if (lean::is_scalar(x_18)) { - x_172 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_168, 0, x_142); +lean::cnstr_set(x_168, 1, x_159); +x_169 = lean::cnstr_get(x_161, 2); +lean::inc(x_169); +if (lean::is_scalar(x_17)) { + x_171 = lean::alloc_cnstr(1, 2, 0); } else { - x_172 = x_18; + x_171 = x_17; } -lean::cnstr_set(x_172, 0, x_169); -lean::cnstr_set(x_172, 1, x_170); -x_173 = lean::cnstr_get(x_162, 3); -lean::inc(x_173); -lean::dec(x_162); -x_176 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_176, 0, x_165); -lean::cnstr_set(x_176, 1, x_167); -lean::cnstr_set(x_176, 2, x_172); -lean::cnstr_set(x_176, 3, x_173); -x_1 = x_16; -x_2 = x_176; +lean::cnstr_set(x_171, 0, x_168); +lean::cnstr_set(x_171, 1, x_169); +x_172 = lean::cnstr_get(x_161, 3); +lean::inc(x_172); +lean::dec(x_161); +x_175 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_175, 0, x_164); +lean::cnstr_set(x_175, 1, x_166); +lean::cnstr_set(x_175, 2, x_171); +lean::cnstr_set(x_175, 3, x_172); +x_1 = x_15; +x_2 = x_175; goto _start; } } else { -obj* x_178; obj* x_181; -x_178 = lean::cnstr_get(x_137, 0); -lean::inc(x_178); -lean::dec(x_137); -x_181 = lean::cnstr_get(x_178, 1); -lean::inc(x_181); -lean::dec(x_178); -switch (lean::obj_tag(x_181)) { +obj* x_177; obj* x_180; +x_177 = lean::cnstr_get(x_136, 0); +lean::inc(x_177); +lean::dec(x_136); +x_180 = lean::cnstr_get(x_177, 1); +lean::inc(x_180); +lean::dec(x_177); +switch (lean::obj_tag(x_180)) { case 0: { -obj* x_186; obj* x_189; obj* x_193; -lean::dec(x_181); -lean::dec(x_20); -x_186 = lean::cnstr_get(x_35, 1); -lean::inc(x_186); -lean::dec(x_35); -x_189 = lean::cnstr_get(x_134, 0); -lean::inc(x_189); -lean::dec(x_134); +obj* x_185; obj* x_188; obj* x_192; +lean::dec(x_180); +lean::dec(x_19); +x_185 = lean::cnstr_get(x_34, 1); +lean::inc(x_185); +lean::dec(x_34); +x_188 = lean::cnstr_get(x_133, 0); +lean::inc(x_188); +lean::dec(x_133); lean::inc(x_3); -x_193 = l___private_init_lean_expander_1__popStxArg(x_186, x_3); -if (lean::obj_tag(x_193) == 0) +x_192 = l___private_init_lean_expander_1__popStxArg(x_185, x_3); +if (lean::obj_tag(x_192) == 0) { -obj* x_199; obj* x_201; obj* x_202; -lean::dec(x_189); -lean::dec(x_16); +obj* x_198; obj* x_200; obj* x_201; +lean::dec(x_188); +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_18); -x_199 = lean::cnstr_get(x_193, 0); -if (lean::is_exclusive(x_193)) { - x_201 = x_193; +lean::dec(x_17); +x_198 = lean::cnstr_get(x_192, 0); +if (lean::is_exclusive(x_192)) { + x_200 = x_192; } else { - lean::inc(x_199); - lean::dec(x_193); - x_201 = lean::box(0); + lean::inc(x_198); + lean::dec(x_192); + x_200 = lean::box(0); } -if (lean::is_scalar(x_201)) { - x_202 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_200)) { + x_201 = lean::alloc_cnstr(0, 1, 0); } else { - x_202 = x_201; + x_201 = x_200; } -lean::cnstr_set(x_202, 0, x_199); -return x_202; +lean::cnstr_set(x_201, 0, x_198); +return x_201; } else { -obj* x_203; obj* x_206; obj* x_208; obj* x_210; obj* x_211; obj* x_213; obj* x_215; obj* x_216; obj* x_218; obj* x_219; obj* x_222; -x_203 = lean::cnstr_get(x_193, 0); -lean::inc(x_203); -lean::dec(x_193); -x_206 = lean::cnstr_get(x_203, 0); -x_208 = lean::cnstr_get(x_203, 1); -if (lean::is_exclusive(x_203)) { - x_210 = x_203; +obj* x_202; obj* x_205; obj* x_207; obj* x_209; obj* x_210; obj* x_212; obj* x_214; obj* x_215; obj* x_217; obj* x_218; obj* x_221; +x_202 = lean::cnstr_get(x_192, 0); +lean::inc(x_202); +lean::dec(x_192); +x_205 = lean::cnstr_get(x_202, 0); +x_207 = lean::cnstr_get(x_202, 1); +if (lean::is_exclusive(x_202)) { + x_209 = x_202; } else { - lean::inc(x_206); - lean::inc(x_208); - lean::dec(x_203); - x_210 = lean::box(0); + lean::inc(x_205); + lean::inc(x_207); + lean::dec(x_202); + x_209 = lean::box(0); } -x_211 = lean::cnstr_get(x_208, 0); -lean::inc(x_211); -x_213 = lean::cnstr_get(x_208, 1); -lean::inc(x_213); -if (lean::is_scalar(x_210)) { - x_215 = lean::alloc_cnstr(0, 2, 0); +x_210 = lean::cnstr_get(x_207, 0); +lean::inc(x_210); +x_212 = lean::cnstr_get(x_207, 1); +lean::inc(x_212); +if (lean::is_scalar(x_209)) { + x_214 = lean::alloc_cnstr(0, 2, 0); } else { - x_215 = x_210; + x_214 = x_209; } -lean::cnstr_set(x_215, 0, x_189); -lean::cnstr_set(x_215, 1, x_206); -x_216 = lean::cnstr_get(x_208, 2); -lean::inc(x_216); -if (lean::is_scalar(x_18)) { - x_218 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_214, 0, x_188); +lean::cnstr_set(x_214, 1, x_205); +x_215 = lean::cnstr_get(x_207, 2); +lean::inc(x_215); +if (lean::is_scalar(x_17)) { + x_217 = lean::alloc_cnstr(1, 2, 0); } else { - x_218 = x_18; + x_217 = x_17; } -lean::cnstr_set(x_218, 0, x_215); -lean::cnstr_set(x_218, 1, x_216); -x_219 = lean::cnstr_get(x_208, 3); -lean::inc(x_219); -lean::dec(x_208); -x_222 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_222, 0, x_211); -lean::cnstr_set(x_222, 1, x_213); -lean::cnstr_set(x_222, 2, x_218); -lean::cnstr_set(x_222, 3, x_219); -x_1 = x_16; -x_2 = x_222; +lean::cnstr_set(x_217, 0, x_214); +lean::cnstr_set(x_217, 1, x_215); +x_218 = lean::cnstr_get(x_207, 3); +lean::inc(x_218); +lean::dec(x_207); +x_221 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_221, 0, x_210); +lean::cnstr_set(x_221, 1, x_212); +lean::cnstr_set(x_221, 2, x_217); +lean::cnstr_set(x_221, 3, x_218); +x_1 = x_15; +x_2 = x_221; goto _start; } } case 2: { -obj* x_224; obj* x_227; obj* x_230; obj* x_234; -x_224 = lean::cnstr_get(x_35, 1); -lean::inc(x_224); -lean::dec(x_35); -x_227 = lean::cnstr_get(x_134, 0); -lean::inc(x_227); -lean::dec(x_134); -x_230 = lean::cnstr_get(x_181, 0); -lean::inc(x_230); -lean::dec(x_181); +obj* x_223; obj* x_226; obj* x_229; obj* x_233; +x_223 = lean::cnstr_get(x_34, 1); +lean::inc(x_223); +lean::dec(x_34); +x_226 = lean::cnstr_get(x_133, 0); +lean::inc(x_226); +lean::dec(x_133); +x_229 = lean::cnstr_get(x_180, 0); +lean::inc(x_229); +lean::dec(x_180); lean::inc(x_3); -x_234 = l___private_init_lean_expander_1__popStxArg(x_224, x_3); -if (lean::obj_tag(x_234) == 0) +x_233 = l___private_init_lean_expander_1__popStxArg(x_223, x_3); +if (lean::obj_tag(x_233) == 0) { -obj* x_242; obj* x_244; obj* x_245; -lean::dec(x_230); -lean::dec(x_16); +obj* x_241; obj* x_243; obj* x_244; +lean::dec(x_229); +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_227); -lean::dec(x_18); -lean::dec(x_20); -x_242 = lean::cnstr_get(x_234, 0); -if (lean::is_exclusive(x_234)) { - x_244 = x_234; +lean::dec(x_226); +lean::dec(x_17); +lean::dec(x_19); +x_241 = lean::cnstr_get(x_233, 0); +if (lean::is_exclusive(x_233)) { + x_243 = x_233; } else { - lean::inc(x_242); - lean::dec(x_234); - x_244 = lean::box(0); + lean::inc(x_241); + lean::dec(x_233); + x_243 = lean::box(0); } -if (lean::is_scalar(x_244)) { - x_245 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_243)) { + x_244 = lean::alloc_cnstr(0, 1, 0); } else { - x_245 = x_244; + x_244 = x_243; } -lean::cnstr_set(x_245, 0, x_242); -return x_245; +lean::cnstr_set(x_244, 0, x_241); +return x_244; } else { -obj* x_246; obj* x_249; obj* x_251; -x_246 = lean::cnstr_get(x_234, 0); -lean::inc(x_246); -lean::dec(x_234); -x_249 = lean::cnstr_get(x_246, 1); -lean::inc(x_249); -x_251 = lean::cnstr_get(x_249, 3); -lean::inc(x_251); -if (lean::obj_tag(x_251) == 0) +obj* x_245; obj* x_248; obj* x_250; +x_245 = lean::cnstr_get(x_233, 0); +lean::inc(x_245); +lean::dec(x_233); +x_248 = lean::cnstr_get(x_245, 1); +lean::inc(x_248); +x_250 = lean::cnstr_get(x_248, 3); +lean::inc(x_250); +if (lean::obj_tag(x_250) == 0) { -obj* x_258; -lean::dec(x_246); -lean::dec(x_230); -lean::dec(x_227); -lean::dec(x_18); +obj* x_257; +lean::dec(x_245); +lean::dec(x_229); +lean::dec(x_226); +lean::dec(x_17); lean::inc(x_3); -x_258 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_20, x_21, x_249, x_3); -lean::dec(x_249); -lean::dec(x_20); -if (lean::obj_tag(x_258) == 0) +x_257 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_19, x_20, x_248, x_3); +lean::dec(x_248); +lean::dec(x_19); +if (lean::obj_tag(x_257) == 0) { -obj* x_264; obj* x_266; obj* x_267; -lean::dec(x_16); +obj* x_263; obj* x_265; obj* x_266; +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -x_264 = lean::cnstr_get(x_258, 0); -if (lean::is_exclusive(x_258)) { - x_266 = x_258; +x_263 = lean::cnstr_get(x_257, 0); +if (lean::is_exclusive(x_257)) { + x_265 = x_257; } else { - lean::inc(x_264); - lean::dec(x_258); - x_266 = lean::box(0); + lean::inc(x_263); + lean::dec(x_257); + x_265 = lean::box(0); } -if (lean::is_scalar(x_266)) { - x_267 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_265)) { + x_266 = lean::alloc_cnstr(0, 1, 0); } else { - x_267 = x_266; + x_266 = x_265; } -lean::cnstr_set(x_267, 0, x_264); -return x_267; +lean::cnstr_set(x_266, 0, x_263); +return x_266; } else { -obj* x_268; obj* x_271; -x_268 = lean::cnstr_get(x_258, 0); -lean::inc(x_268); -lean::dec(x_258); -x_271 = lean::cnstr_get(x_268, 1); -lean::inc(x_271); -lean::dec(x_268); -x_1 = x_16; -x_2 = x_271; +obj* x_267; obj* x_270; +x_267 = lean::cnstr_get(x_257, 0); +lean::inc(x_267); +lean::dec(x_257); +x_270 = lean::cnstr_get(x_267, 1); +lean::inc(x_270); +lean::dec(x_267); +x_1 = x_15; +x_2 = x_270; goto _start; } } else { -obj* x_276; obj* x_278; obj* x_279; obj* x_281; obj* x_283; obj* x_285; obj* x_286; obj* x_288; obj* x_289; obj* x_292; obj* x_293; obj* x_295; obj* x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_303; obj* x_304; obj* x_305; obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_311; obj* x_314; obj* x_315; obj* x_316; obj* x_317; obj* x_318; -lean::dec(x_20); -x_276 = lean::cnstr_get(x_246, 0); -if (lean::is_exclusive(x_246)) { - lean::cnstr_release(x_246, 1); - x_278 = x_246; +obj* x_275; obj* x_277; obj* x_278; obj* x_280; obj* x_282; obj* x_284; obj* x_285; obj* x_287; obj* x_288; obj* x_291; obj* x_292; obj* x_294; obj* x_295; obj* x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_302; obj* x_303; obj* x_304; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_313; obj* x_314; obj* x_315; obj* x_316; obj* x_317; +lean::dec(x_19); +x_275 = lean::cnstr_get(x_245, 0); +if (lean::is_exclusive(x_245)) { + lean::cnstr_release(x_245, 1); + x_277 = x_245; } else { - lean::inc(x_276); - lean::dec(x_246); - x_278 = lean::box(0); + lean::inc(x_275); + lean::dec(x_245); + x_277 = lean::box(0); } -x_279 = lean::cnstr_get(x_249, 0); -x_281 = lean::cnstr_get(x_249, 1); -x_283 = lean::cnstr_get(x_249, 2); -if (lean::is_exclusive(x_249)) { - lean::cnstr_release(x_249, 3); - x_285 = x_249; +x_278 = lean::cnstr_get(x_248, 0); +x_280 = lean::cnstr_get(x_248, 1); +x_282 = lean::cnstr_get(x_248, 2); +if (lean::is_exclusive(x_248)) { + lean::cnstr_release(x_248, 3); + x_284 = x_248; } else { - lean::inc(x_279); - lean::inc(x_281); - lean::inc(x_283); - lean::dec(x_249); - x_285 = lean::box(0); + lean::inc(x_278); + lean::inc(x_280); + lean::inc(x_282); + lean::dec(x_248); + x_284 = lean::box(0); } -x_286 = lean::cnstr_get(x_251, 0); -lean::inc(x_286); -x_288 = l_Lean_Parser_Term_lambda_HasView; -x_289 = lean::cnstr_get(x_288, 1); -lean::inc(x_289); -lean::dec(x_288); -x_292 = lean::box(0); -x_293 = lean::cnstr_get(x_230, 3); -lean::inc(x_293); -x_295 = lean::box(0); -if (lean::is_scalar(x_18)) { - x_296 = lean::alloc_cnstr(1, 2, 0); +x_285 = lean::cnstr_get(x_250, 0); +lean::inc(x_285); +x_287 = l_Lean_Parser_Term_lambda_HasView; +x_288 = lean::cnstr_get(x_287, 1); +lean::inc(x_288); +lean::dec(x_287); +x_291 = lean::box(0); +x_292 = lean::cnstr_get(x_229, 3); +lean::inc(x_292); +x_294 = lean::box(0); +if (lean::is_scalar(x_17)) { + x_295 = lean::alloc_cnstr(1, 2, 0); } else { - x_296 = x_18; + x_295 = x_17; } -lean::cnstr_set(x_296, 0, x_293); -lean::cnstr_set(x_296, 1, x_295); -x_297 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__3(x_296); -x_298 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_295, 0, x_292); +lean::cnstr_set(x_295, 1, x_294); +x_296 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_295); +x_297 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_297, 0, x_296); +lean::cnstr_set(x_297, 1, x_291); +x_298 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_298, 0, x_297); -lean::cnstr_set(x_298, 1, x_292); -x_299 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_299, 0, x_298); -x_300 = lean::cnstr_get(x_230, 5); -lean::inc(x_300); -lean::dec(x_230); -x_303 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_304 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; -x_305 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_305, 0, x_303); -lean::cnstr_set(x_305, 1, x_299); -lean::cnstr_set(x_305, 2, x_304); -lean::cnstr_set(x_305, 3, x_300); -lean::inc(x_289); -x_307 = lean::apply_1(x_289, x_305); -x_308 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_308, 0, x_303); -lean::cnstr_set(x_308, 1, x_286); -lean::cnstr_set(x_308, 2, x_304); -lean::cnstr_set(x_308, 3, x_276); -x_309 = lean::apply_1(x_289, x_308); -x_310 = l_Lean_Parser_Term_app_HasView; -x_311 = lean::cnstr_get(x_310, 1); -lean::inc(x_311); -lean::dec(x_310); -x_314 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_314, 0, x_307); -lean::cnstr_set(x_314, 1, x_309); -x_315 = lean::apply_1(x_311, x_314); -if (lean::is_scalar(x_278)) { - x_316 = lean::alloc_cnstr(0, 2, 0); +x_299 = lean::cnstr_get(x_229, 5); +lean::inc(x_299); +lean::dec(x_229); +x_302 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_303 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; +x_304 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_304, 0, x_302); +lean::cnstr_set(x_304, 1, x_298); +lean::cnstr_set(x_304, 2, x_303); +lean::cnstr_set(x_304, 3, x_299); +lean::inc(x_288); +x_306 = lean::apply_1(x_288, x_304); +x_307 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_307, 0, x_302); +lean::cnstr_set(x_307, 1, x_285); +lean::cnstr_set(x_307, 2, x_303); +lean::cnstr_set(x_307, 3, x_275); +x_308 = lean::apply_1(x_288, x_307); +x_309 = l_Lean_Parser_Term_app_HasView; +x_310 = lean::cnstr_get(x_309, 1); +lean::inc(x_310); +lean::dec(x_309); +x_313 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_313, 0, x_306); +lean::cnstr_set(x_313, 1, x_308); +x_314 = lean::apply_1(x_310, x_313); +if (lean::is_scalar(x_277)) { + x_315 = lean::alloc_cnstr(0, 2, 0); } else { - x_316 = x_278; + x_315 = x_277; } -lean::cnstr_set(x_316, 0, x_227); -lean::cnstr_set(x_316, 1, x_315); -x_317 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_317, 0, x_316); -lean::cnstr_set(x_317, 1, x_283); -if (lean::is_scalar(x_285)) { - x_318 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_315, 0, x_226); +lean::cnstr_set(x_315, 1, x_314); +x_316 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_316, 0, x_315); +lean::cnstr_set(x_316, 1, x_282); +if (lean::is_scalar(x_284)) { + x_317 = lean::alloc_cnstr(0, 4, 0); } else { - x_318 = x_285; + x_317 = x_284; } -lean::cnstr_set(x_318, 0, x_279); -lean::cnstr_set(x_318, 1, x_281); -lean::cnstr_set(x_318, 2, x_317); -lean::cnstr_set(x_318, 3, x_251); -x_1 = x_16; -x_2 = x_318; +lean::cnstr_set(x_317, 0, x_278); +lean::cnstr_set(x_317, 1, x_280); +lean::cnstr_set(x_317, 2, x_316); +lean::cnstr_set(x_317, 3, x_250); +x_1 = x_15; +x_2 = x_317; goto _start; } } } default: { -obj* x_323; obj* x_326; obj* x_328; -lean::dec(x_181); -lean::dec(x_18); -lean::dec(x_134); -x_323 = lean::cnstr_get(x_35, 1); -lean::inc(x_323); -lean::dec(x_35); -x_326 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1; +obj* x_322; obj* x_325; obj* x_327; +lean::dec(x_180); +lean::dec(x_17); +lean::dec(x_133); +x_322 = lean::cnstr_get(x_34, 1); +lean::inc(x_322); +lean::dec(x_34); +x_325 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1; lean::inc(x_3); -x_328 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_20, x_326, x_323, x_3); -lean::dec(x_323); -lean::dec(x_20); -if (lean::obj_tag(x_328) == 0) +x_327 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_19, x_325, x_322, x_3); +lean::dec(x_322); +lean::dec(x_19); +if (lean::obj_tag(x_327) == 0) { -obj* x_334; obj* x_336; obj* x_337; -lean::dec(x_16); +obj* x_333; obj* x_335; obj* x_336; +lean::dec(x_15); lean::dec(x_3); lean::dec(x_0); -x_334 = lean::cnstr_get(x_328, 0); -if (lean::is_exclusive(x_328)) { - x_336 = x_328; +x_333 = lean::cnstr_get(x_327, 0); +if (lean::is_exclusive(x_327)) { + x_335 = x_327; } else { - lean::inc(x_334); - lean::dec(x_328); - x_336 = lean::box(0); + lean::inc(x_333); + lean::dec(x_327); + x_335 = lean::box(0); } -if (lean::is_scalar(x_336)) { - x_337 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_335)) { + x_336 = lean::alloc_cnstr(0, 1, 0); } else { - x_337 = x_336; + x_336 = x_335; } -lean::cnstr_set(x_337, 0, x_334); -return x_337; +lean::cnstr_set(x_336, 0, x_333); +return x_336; } else { -obj* x_338; obj* x_341; -x_338 = lean::cnstr_get(x_328, 0); -lean::inc(x_338); -lean::dec(x_328); -x_341 = lean::cnstr_get(x_338, 1); -lean::inc(x_341); -lean::dec(x_338); -x_1 = x_16; -x_2 = x_341; +obj* x_337; obj* x_340; +x_337 = lean::cnstr_get(x_327, 0); +lean::inc(x_337); +lean::dec(x_327); +x_340 = lean::cnstr_get(x_337, 1); +lean::inc(x_340); +lean::dec(x_337); +x_1 = x_15; +x_2 = x_340; goto _start; } } @@ -2035,689 +2153,689 @@ goto _start; } else { -obj* x_346; obj* x_348; obj* x_350; -lean::dec(x_13); -x_346 = lean::cnstr_get(x_1, 1); +obj* x_345; obj* x_347; obj* x_349; +lean::dec(x_12); +x_345 = lean::cnstr_get(x_1, 1); if (lean::is_exclusive(x_1)) { lean::cnstr_release(x_1, 0); lean::cnstr_set(x_1, 1, lean::box(0)); - x_348 = x_1; + x_347 = x_1; } else { - lean::inc(x_346); + lean::inc(x_345); lean::dec(x_1); - x_348 = lean::box(0); + x_347 = lean::box(0); } lean::inc(x_3); -x_350 = l___private_init_lean_expander_1__popStxArg(x_2, x_3); -if (lean::obj_tag(x_350) == 0) +x_349 = l___private_init_lean_expander_1__popStxArg(x_2, x_3); +if (lean::obj_tag(x_349) == 0) { -obj* x_356; obj* x_358; obj* x_359; -lean::dec(x_9); +obj* x_355; obj* x_357; obj* x_358; +lean::dec(x_8); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_348); -lean::dec(x_346); -x_356 = lean::cnstr_get(x_350, 0); -if (lean::is_exclusive(x_350)) { - x_358 = x_350; +lean::dec(x_347); +lean::dec(x_345); +x_355 = lean::cnstr_get(x_349, 0); +if (lean::is_exclusive(x_349)) { + x_357 = x_349; } else { - lean::inc(x_356); - lean::dec(x_350); - x_358 = lean::box(0); + lean::inc(x_355); + lean::dec(x_349); + x_357 = lean::box(0); } -if (lean::is_scalar(x_358)) { - x_359 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_357)) { + x_358 = lean::alloc_cnstr(0, 1, 0); } else { - x_359 = x_358; + x_358 = x_357; } -lean::cnstr_set(x_359, 0, x_356); -return x_359; +lean::cnstr_set(x_358, 0, x_355); +return x_358; } else { -obj* x_360; obj* x_363; -x_360 = lean::cnstr_get(x_350, 0); -lean::inc(x_360); -lean::dec(x_350); -x_363 = lean::cnstr_get(x_9, 1); -lean::inc(x_363); -lean::dec(x_9); -if (lean::obj_tag(x_363) == 0) +obj* x_359; obj* x_362; +x_359 = lean::cnstr_get(x_349, 0); +lean::inc(x_359); +lean::dec(x_349); +x_362 = lean::cnstr_get(x_8, 1); +lean::inc(x_362); +lean::dec(x_8); +if (lean::obj_tag(x_362) == 0) { -obj* x_367; -lean::dec(x_348); -x_367 = lean::cnstr_get(x_360, 1); -lean::inc(x_367); -lean::dec(x_360); -x_1 = x_346; -x_2 = x_367; +obj* x_366; +lean::dec(x_347); +x_366 = lean::cnstr_get(x_359, 1); +lean::inc(x_366); +lean::dec(x_359); +x_1 = x_345; +x_2 = x_366; goto _start; } else { -obj* x_371; obj* x_373; -x_371 = lean::cnstr_get(x_363, 0); -if (lean::is_exclusive(x_363)) { - lean::cnstr_set(x_363, 0, lean::box(0)); - x_373 = x_363; +obj* x_370; obj* x_372; +x_370 = lean::cnstr_get(x_362, 0); +if (lean::is_exclusive(x_362)) { + lean::cnstr_set(x_362, 0, lean::box(0)); + x_372 = x_362; } else { - lean::inc(x_371); - lean::dec(x_363); - x_373 = lean::box(0); + lean::inc(x_370); + lean::dec(x_362); + x_372 = lean::box(0); } -switch (lean::obj_tag(x_371)) { +switch (lean::obj_tag(x_370)) { case 0: { -obj* x_375; obj* x_379; -lean::dec(x_371); -x_375 = lean::cnstr_get(x_360, 1); -lean::inc(x_375); -lean::dec(x_360); +obj* x_374; obj* x_378; +lean::dec(x_370); +x_374 = lean::cnstr_get(x_359, 1); +lean::inc(x_374); +lean::dec(x_359); lean::inc(x_3); -x_379 = l___private_init_lean_expander_1__popStxArg(x_375, x_3); -if (lean::obj_tag(x_379) == 0) +x_378 = l___private_init_lean_expander_1__popStxArg(x_374, x_3); +if (lean::obj_tag(x_378) == 0) { -obj* x_385; obj* x_387; obj* x_388; -lean::dec(x_373); +obj* x_384; obj* x_386; obj* x_387; +lean::dec(x_372); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_348); -lean::dec(x_346); -x_385 = lean::cnstr_get(x_379, 0); -if (lean::is_exclusive(x_379)) { - x_387 = x_379; +lean::dec(x_347); +lean::dec(x_345); +x_384 = lean::cnstr_get(x_378, 0); +if (lean::is_exclusive(x_378)) { + x_386 = x_378; } else { - lean::inc(x_385); - lean::dec(x_379); - x_387 = lean::box(0); + lean::inc(x_384); + lean::dec(x_378); + x_386 = lean::box(0); } -if (lean::is_scalar(x_387)) { - x_388 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_386)) { + x_387 = lean::alloc_cnstr(0, 1, 0); } else { - x_388 = x_387; + x_387 = x_386; } -lean::cnstr_set(x_388, 0, x_385); -return x_388; +lean::cnstr_set(x_387, 0, x_384); +return x_387; } else { -obj* x_389; obj* x_392; obj* x_394; obj* x_397; obj* x_399; obj* x_401; obj* x_404; obj* x_405; obj* x_408; obj* x_409; obj* x_410; obj* x_411; obj* x_412; obj* x_413; obj* x_414; obj* x_415; -x_389 = lean::cnstr_get(x_379, 0); -lean::inc(x_389); -lean::dec(x_379); -x_392 = lean::cnstr_get(x_389, 0); -lean::inc(x_392); -x_394 = lean::cnstr_get(x_389, 1); -lean::inc(x_394); -lean::dec(x_389); -x_397 = lean::cnstr_get(x_394, 0); -lean::inc(x_397); -x_399 = lean::cnstr_get(x_394, 1); -lean::inc(x_399); -x_401 = lean::cnstr_get(x_394, 2); -lean::inc(x_401); -lean::dec(x_394); -x_404 = l_Lean_Parser_Term_binderIdent_HasView; -x_405 = lean::cnstr_get(x_404, 0); -lean::inc(x_405); -lean::dec(x_404); -x_408 = lean::apply_1(x_405, x_392); -x_409 = lean::box(0); -if (lean::is_scalar(x_348)) { - x_410 = lean::alloc_cnstr(1, 2, 0); +obj* x_388; obj* x_391; obj* x_393; obj* x_396; obj* x_398; obj* x_400; obj* x_403; obj* x_404; obj* x_407; obj* x_408; obj* x_409; obj* x_410; obj* x_411; obj* x_412; obj* x_413; obj* x_414; +x_388 = lean::cnstr_get(x_378, 0); +lean::inc(x_388); +lean::dec(x_378); +x_391 = lean::cnstr_get(x_388, 0); +lean::inc(x_391); +x_393 = lean::cnstr_get(x_388, 1); +lean::inc(x_393); +lean::dec(x_388); +x_396 = lean::cnstr_get(x_393, 0); +lean::inc(x_396); +x_398 = lean::cnstr_get(x_393, 1); +lean::inc(x_398); +x_400 = lean::cnstr_get(x_393, 2); +lean::inc(x_400); +lean::dec(x_393); +x_403 = l_Lean_Parser_Term_binderIdent_HasView; +x_404 = lean::cnstr_get(x_403, 0); +lean::inc(x_404); +lean::dec(x_403); +x_407 = lean::apply_1(x_404, x_391); +x_408 = lean::box(0); +if (lean::is_scalar(x_347)) { + x_409 = lean::alloc_cnstr(1, 2, 0); } else { - x_410 = x_348; + x_409 = x_347; +} +lean::cnstr_set(x_409, 0, x_407); +lean::cnstr_set(x_409, 1, x_408); +x_410 = lean::box(0); +x_411 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_411, 0, x_409); +lean::cnstr_set(x_411, 1, x_410); +x_412 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_412, 0, x_411); +if (lean::is_scalar(x_372)) { + x_413 = lean::alloc_cnstr(1, 1, 0); +} else { + x_413 = x_372; } -lean::cnstr_set(x_410, 0, x_408); -lean::cnstr_set(x_410, 1, x_409); -x_411 = lean::box(0); -x_412 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_412, 0, x_410); -lean::cnstr_set(x_412, 1, x_411); -x_413 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_413, 0, x_412); -if (lean::is_scalar(x_373)) { - x_414 = lean::alloc_cnstr(1, 1, 0); -} else { - x_414 = x_373; -} -lean::cnstr_set(x_414, 0, x_413); -x_415 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_415, 0, x_397); -lean::cnstr_set(x_415, 1, x_399); -lean::cnstr_set(x_415, 2, x_401); -lean::cnstr_set(x_415, 3, x_414); -x_1 = x_346; -x_2 = x_415; +x_414 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_414, 0, x_396); +lean::cnstr_set(x_414, 1, x_398); +lean::cnstr_set(x_414, 2, x_400); +lean::cnstr_set(x_414, 3, x_413); +x_1 = x_345; +x_2 = x_414; goto _start; } } case 1: { -obj* x_419; obj* x_423; -lean::dec(x_348); -lean::dec(x_371); -x_419 = lean::cnstr_get(x_360, 1); -lean::inc(x_419); -lean::dec(x_360); +obj* x_418; obj* x_422; +lean::dec(x_347); +lean::dec(x_370); +x_418 = lean::cnstr_get(x_359, 1); +lean::inc(x_418); +lean::dec(x_359); lean::inc(x_3); -x_423 = l___private_init_lean_expander_1__popStxArg(x_419, x_3); -if (lean::obj_tag(x_423) == 0) +x_422 = l___private_init_lean_expander_1__popStxArg(x_418, x_3); +if (lean::obj_tag(x_422) == 0) { -obj* x_428; obj* x_430; obj* x_431; -lean::dec(x_373); +obj* x_427; obj* x_429; obj* x_430; +lean::dec(x_372); lean::dec(x_3); lean::dec(x_0); -lean::dec(x_346); -x_428 = lean::cnstr_get(x_423, 0); -if (lean::is_exclusive(x_423)) { - x_430 = x_423; +lean::dec(x_345); +x_427 = lean::cnstr_get(x_422, 0); +if (lean::is_exclusive(x_422)) { + x_429 = x_422; } else { - lean::inc(x_428); - lean::dec(x_423); - x_430 = lean::box(0); + lean::inc(x_427); + lean::dec(x_422); + x_429 = lean::box(0); } -if (lean::is_scalar(x_430)) { - x_431 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_429)) { + x_430 = lean::alloc_cnstr(0, 1, 0); } else { - x_431 = x_430; + x_430 = x_429; } -lean::cnstr_set(x_431, 0, x_428); -return x_431; +lean::cnstr_set(x_430, 0, x_427); +return x_430; } else { -obj* x_432; obj* x_435; obj* x_437; obj* x_440; obj* x_442; obj* x_444; obj* x_447; obj* x_448; obj* x_451; obj* x_452; obj* x_453; -x_432 = lean::cnstr_get(x_423, 0); -lean::inc(x_432); -lean::dec(x_423); -x_435 = lean::cnstr_get(x_432, 0); -lean::inc(x_435); -x_437 = lean::cnstr_get(x_432, 1); -lean::inc(x_437); -lean::dec(x_432); -x_440 = lean::cnstr_get(x_437, 0); -lean::inc(x_440); -x_442 = lean::cnstr_get(x_437, 1); -lean::inc(x_442); -x_444 = lean::cnstr_get(x_437, 2); -lean::inc(x_444); -lean::dec(x_437); -x_447 = l_Lean_Parser_Term_binders_HasView; -x_448 = lean::cnstr_get(x_447, 0); -lean::inc(x_448); -lean::dec(x_447); -x_451 = lean::apply_1(x_448, x_435); -if (lean::is_scalar(x_373)) { - x_452 = lean::alloc_cnstr(1, 1, 0); +obj* x_431; obj* x_434; obj* x_436; obj* x_439; obj* x_441; obj* x_443; obj* x_446; obj* x_447; obj* x_450; obj* x_451; obj* x_452; +x_431 = lean::cnstr_get(x_422, 0); +lean::inc(x_431); +lean::dec(x_422); +x_434 = lean::cnstr_get(x_431, 0); +lean::inc(x_434); +x_436 = lean::cnstr_get(x_431, 1); +lean::inc(x_436); +lean::dec(x_431); +x_439 = lean::cnstr_get(x_436, 0); +lean::inc(x_439); +x_441 = lean::cnstr_get(x_436, 1); +lean::inc(x_441); +x_443 = lean::cnstr_get(x_436, 2); +lean::inc(x_443); +lean::dec(x_436); +x_446 = l_Lean_Parser_Term_binders_HasView; +x_447 = lean::cnstr_get(x_446, 0); +lean::inc(x_447); +lean::dec(x_446); +x_450 = lean::apply_1(x_447, x_434); +if (lean::is_scalar(x_372)) { + x_451 = lean::alloc_cnstr(1, 1, 0); } else { - x_452 = x_373; + x_451 = x_372; } -lean::cnstr_set(x_452, 0, x_451); -x_453 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_453, 0, x_440); -lean::cnstr_set(x_453, 1, x_442); -lean::cnstr_set(x_453, 2, x_444); -lean::cnstr_set(x_453, 3, x_452); -x_1 = x_346; -x_2 = x_453; +lean::cnstr_set(x_451, 0, x_450); +x_452 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_452, 0, x_439); +lean::cnstr_set(x_452, 1, x_441); +lean::cnstr_set(x_452, 2, x_443); +lean::cnstr_set(x_452, 3, x_451); +x_1 = x_345; +x_2 = x_452; goto _start; } } default: { -obj* x_456; obj* x_459; -lean::dec(x_373); -x_456 = lean::cnstr_get(x_371, 0); -lean::inc(x_456); -lean::dec(x_371); -x_459 = lean::cnstr_get(x_456, 1); -lean::inc(x_459); -if (lean::obj_tag(x_459) == 0) +obj* x_455; obj* x_458; +lean::dec(x_372); +x_455 = lean::cnstr_get(x_370, 0); +lean::inc(x_455); +lean::dec(x_370); +x_458 = lean::cnstr_get(x_455, 1); +lean::inc(x_458); +if (lean::obj_tag(x_458) == 0) { -obj* x_461; obj* x_464; obj* x_468; -x_461 = lean::cnstr_get(x_360, 1); -lean::inc(x_461); -lean::dec(x_360); -x_464 = lean::cnstr_get(x_456, 0); -lean::inc(x_464); -lean::dec(x_456); +obj* x_460; obj* x_463; obj* x_467; +x_460 = lean::cnstr_get(x_359, 1); +lean::inc(x_460); +lean::dec(x_359); +x_463 = lean::cnstr_get(x_455, 0); +lean::inc(x_463); +lean::dec(x_455); lean::inc(x_3); -x_468 = l___private_init_lean_expander_1__popStxArg(x_461, x_3); -if (lean::obj_tag(x_468) == 0) +x_467 = l___private_init_lean_expander_1__popStxArg(x_460, x_3); +if (lean::obj_tag(x_467) == 0) { -obj* x_474; obj* x_476; obj* x_477; +obj* x_473; obj* x_475; obj* x_476; lean::dec(x_3); lean::dec(x_0); -lean::dec(x_464); -lean::dec(x_348); -lean::dec(x_346); -x_474 = lean::cnstr_get(x_468, 0); -if (lean::is_exclusive(x_468)) { - x_476 = x_468; +lean::dec(x_463); +lean::dec(x_347); +lean::dec(x_345); +x_473 = lean::cnstr_get(x_467, 0); +if (lean::is_exclusive(x_467)) { + x_475 = x_467; } else { - lean::inc(x_474); - lean::dec(x_468); - x_476 = lean::box(0); + lean::inc(x_473); + lean::dec(x_467); + x_475 = lean::box(0); } -if (lean::is_scalar(x_476)) { - x_477 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_475)) { + x_476 = lean::alloc_cnstr(0, 1, 0); } else { - x_477 = x_476; + x_476 = x_475; } -lean::cnstr_set(x_477, 0, x_474); -return x_477; +lean::cnstr_set(x_476, 0, x_473); +return x_476; } else { -obj* x_478; obj* x_481; obj* x_483; obj* x_485; obj* x_486; obj* x_488; obj* x_490; obj* x_491; obj* x_493; obj* x_494; obj* x_497; -x_478 = lean::cnstr_get(x_468, 0); -lean::inc(x_478); -lean::dec(x_468); -x_481 = lean::cnstr_get(x_478, 0); -x_483 = lean::cnstr_get(x_478, 1); -if (lean::is_exclusive(x_478)) { - x_485 = x_478; +obj* x_477; obj* x_480; obj* x_482; obj* x_484; obj* x_485; obj* x_487; obj* x_489; obj* x_490; obj* x_492; obj* x_493; obj* x_496; +x_477 = lean::cnstr_get(x_467, 0); +lean::inc(x_477); +lean::dec(x_467); +x_480 = lean::cnstr_get(x_477, 0); +x_482 = lean::cnstr_get(x_477, 1); +if (lean::is_exclusive(x_477)) { + x_484 = x_477; } else { - lean::inc(x_481); - lean::inc(x_483); - lean::dec(x_478); - x_485 = lean::box(0); + lean::inc(x_480); + lean::inc(x_482); + lean::dec(x_477); + x_484 = lean::box(0); } -x_486 = lean::cnstr_get(x_483, 0); -lean::inc(x_486); -x_488 = lean::cnstr_get(x_483, 1); -lean::inc(x_488); -if (lean::is_scalar(x_485)) { - x_490 = lean::alloc_cnstr(0, 2, 0); +x_485 = lean::cnstr_get(x_482, 0); +lean::inc(x_485); +x_487 = lean::cnstr_get(x_482, 1); +lean::inc(x_487); +if (lean::is_scalar(x_484)) { + x_489 = lean::alloc_cnstr(0, 2, 0); } else { - x_490 = x_485; + x_489 = x_484; } -lean::cnstr_set(x_490, 0, x_464); -lean::cnstr_set(x_490, 1, x_481); -x_491 = lean::cnstr_get(x_483, 2); -lean::inc(x_491); -if (lean::is_scalar(x_348)) { - x_493 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_489, 0, x_463); +lean::cnstr_set(x_489, 1, x_480); +x_490 = lean::cnstr_get(x_482, 2); +lean::inc(x_490); +if (lean::is_scalar(x_347)) { + x_492 = lean::alloc_cnstr(1, 2, 0); } else { - x_493 = x_348; + x_492 = x_347; } -lean::cnstr_set(x_493, 0, x_490); -lean::cnstr_set(x_493, 1, x_491); -x_494 = lean::cnstr_get(x_483, 3); -lean::inc(x_494); -lean::dec(x_483); -x_497 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_497, 0, x_486); -lean::cnstr_set(x_497, 1, x_488); -lean::cnstr_set(x_497, 2, x_493); -lean::cnstr_set(x_497, 3, x_494); -x_1 = x_346; -x_2 = x_497; +lean::cnstr_set(x_492, 0, x_489); +lean::cnstr_set(x_492, 1, x_490); +x_493 = lean::cnstr_get(x_482, 3); +lean::inc(x_493); +lean::dec(x_482); +x_496 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_496, 0, x_485); +lean::cnstr_set(x_496, 1, x_487); +lean::cnstr_set(x_496, 2, x_492); +lean::cnstr_set(x_496, 3, x_493); +x_1 = x_345; +x_2 = x_496; goto _start; } } else { -obj* x_499; obj* x_501; obj* x_502; -x_499 = lean::cnstr_get(x_459, 0); -if (lean::is_exclusive(x_459)) { - lean::cnstr_set(x_459, 0, lean::box(0)); - x_501 = x_459; +obj* x_498; obj* x_500; obj* x_501; +x_498 = lean::cnstr_get(x_458, 0); +if (lean::is_exclusive(x_458)) { + lean::cnstr_set(x_458, 0, lean::box(0)); + x_500 = x_458; } else { - lean::inc(x_499); - lean::dec(x_459); - x_501 = lean::box(0); + lean::inc(x_498); + lean::dec(x_458); + x_500 = lean::box(0); } -x_502 = lean::cnstr_get(x_499, 1); -lean::inc(x_502); -lean::dec(x_499); -switch (lean::obj_tag(x_502)) { +x_501 = lean::cnstr_get(x_498, 1); +lean::inc(x_501); +lean::dec(x_498); +switch (lean::obj_tag(x_501)) { case 0: { -obj* x_507; obj* x_510; obj* x_514; +obj* x_506; obj* x_509; obj* x_513; +lean::dec(x_500); lean::dec(x_501); -lean::dec(x_502); -x_507 = lean::cnstr_get(x_360, 1); -lean::inc(x_507); -lean::dec(x_360); -x_510 = lean::cnstr_get(x_456, 0); -lean::inc(x_510); -lean::dec(x_456); +x_506 = lean::cnstr_get(x_359, 1); +lean::inc(x_506); +lean::dec(x_359); +x_509 = lean::cnstr_get(x_455, 0); +lean::inc(x_509); +lean::dec(x_455); lean::inc(x_3); -x_514 = l___private_init_lean_expander_1__popStxArg(x_507, x_3); -if (lean::obj_tag(x_514) == 0) +x_513 = l___private_init_lean_expander_1__popStxArg(x_506, x_3); +if (lean::obj_tag(x_513) == 0) { -obj* x_520; obj* x_522; obj* x_523; +obj* x_519; obj* x_521; obj* x_522; lean::dec(x_3); lean::dec(x_0); -lean::dec(x_510); -lean::dec(x_348); -lean::dec(x_346); -x_520 = lean::cnstr_get(x_514, 0); -if (lean::is_exclusive(x_514)) { - x_522 = x_514; +lean::dec(x_509); +lean::dec(x_347); +lean::dec(x_345); +x_519 = lean::cnstr_get(x_513, 0); +if (lean::is_exclusive(x_513)) { + x_521 = x_513; } else { - lean::inc(x_520); - lean::dec(x_514); - x_522 = lean::box(0); + lean::inc(x_519); + lean::dec(x_513); + x_521 = lean::box(0); } -if (lean::is_scalar(x_522)) { - x_523 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_521)) { + x_522 = lean::alloc_cnstr(0, 1, 0); } else { - x_523 = x_522; + x_522 = x_521; } -lean::cnstr_set(x_523, 0, x_520); -return x_523; +lean::cnstr_set(x_522, 0, x_519); +return x_522; } else { -obj* x_524; obj* x_527; obj* x_529; obj* x_531; obj* x_532; obj* x_534; obj* x_536; obj* x_537; obj* x_539; obj* x_540; obj* x_543; -x_524 = lean::cnstr_get(x_514, 0); -lean::inc(x_524); -lean::dec(x_514); -x_527 = lean::cnstr_get(x_524, 0); -x_529 = lean::cnstr_get(x_524, 1); -if (lean::is_exclusive(x_524)) { - x_531 = x_524; +obj* x_523; obj* x_526; obj* x_528; obj* x_530; obj* x_531; obj* x_533; obj* x_535; obj* x_536; obj* x_538; obj* x_539; obj* x_542; +x_523 = lean::cnstr_get(x_513, 0); +lean::inc(x_523); +lean::dec(x_513); +x_526 = lean::cnstr_get(x_523, 0); +x_528 = lean::cnstr_get(x_523, 1); +if (lean::is_exclusive(x_523)) { + x_530 = x_523; } else { - lean::inc(x_527); - lean::inc(x_529); - lean::dec(x_524); - x_531 = lean::box(0); + lean::inc(x_526); + lean::inc(x_528); + lean::dec(x_523); + x_530 = lean::box(0); } -x_532 = lean::cnstr_get(x_529, 0); -lean::inc(x_532); -x_534 = lean::cnstr_get(x_529, 1); -lean::inc(x_534); -if (lean::is_scalar(x_531)) { - x_536 = lean::alloc_cnstr(0, 2, 0); +x_531 = lean::cnstr_get(x_528, 0); +lean::inc(x_531); +x_533 = lean::cnstr_get(x_528, 1); +lean::inc(x_533); +if (lean::is_scalar(x_530)) { + x_535 = lean::alloc_cnstr(0, 2, 0); } else { - x_536 = x_531; + x_535 = x_530; } -lean::cnstr_set(x_536, 0, x_510); -lean::cnstr_set(x_536, 1, x_527); -x_537 = lean::cnstr_get(x_529, 2); -lean::inc(x_537); -if (lean::is_scalar(x_348)) { - x_539 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_535, 0, x_509); +lean::cnstr_set(x_535, 1, x_526); +x_536 = lean::cnstr_get(x_528, 2); +lean::inc(x_536); +if (lean::is_scalar(x_347)) { + x_538 = lean::alloc_cnstr(1, 2, 0); } else { - x_539 = x_348; + x_538 = x_347; } -lean::cnstr_set(x_539, 0, x_536); -lean::cnstr_set(x_539, 1, x_537); -x_540 = lean::cnstr_get(x_529, 3); -lean::inc(x_540); -lean::dec(x_529); -x_543 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_543, 0, x_532); -lean::cnstr_set(x_543, 1, x_534); -lean::cnstr_set(x_543, 2, x_539); -lean::cnstr_set(x_543, 3, x_540); -x_1 = x_346; -x_2 = x_543; +lean::cnstr_set(x_538, 0, x_535); +lean::cnstr_set(x_538, 1, x_536); +x_539 = lean::cnstr_get(x_528, 3); +lean::inc(x_539); +lean::dec(x_528); +x_542 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_542, 0, x_531); +lean::cnstr_set(x_542, 1, x_533); +lean::cnstr_set(x_542, 2, x_538); +lean::cnstr_set(x_542, 3, x_539); +x_1 = x_345; +x_2 = x_542; goto _start; } } case 2: { -obj* x_545; obj* x_548; obj* x_551; obj* x_555; -x_545 = lean::cnstr_get(x_360, 1); -lean::inc(x_545); -lean::dec(x_360); -x_548 = lean::cnstr_get(x_456, 0); -lean::inc(x_548); -lean::dec(x_456); -x_551 = lean::cnstr_get(x_502, 0); -lean::inc(x_551); -lean::dec(x_502); -lean::inc(x_3); -x_555 = l___private_init_lean_expander_1__popStxArg(x_545, x_3); -if (lean::obj_tag(x_555) == 0) -{ -obj* x_563; obj* x_565; obj* x_566; -lean::dec(x_3); -lean::dec(x_0); +obj* x_544; obj* x_547; obj* x_550; obj* x_554; +x_544 = lean::cnstr_get(x_359, 1); +lean::inc(x_544); +lean::dec(x_359); +x_547 = lean::cnstr_get(x_455, 0); +lean::inc(x_547); +lean::dec(x_455); +x_550 = lean::cnstr_get(x_501, 0); +lean::inc(x_550); lean::dec(x_501); -lean::dec(x_348); -lean::dec(x_346); -lean::dec(x_548); -lean::dec(x_551); -x_563 = lean::cnstr_get(x_555, 0); -if (lean::is_exclusive(x_555)) { - x_565 = x_555; -} else { - lean::inc(x_563); - lean::dec(x_555); - x_565 = lean::box(0); -} -if (lean::is_scalar(x_565)) { - x_566 = lean::alloc_cnstr(0, 1, 0); -} else { - x_566 = x_565; -} -lean::cnstr_set(x_566, 0, x_563); -return x_566; -} -else -{ -obj* x_567; obj* x_570; obj* x_572; -x_567 = lean::cnstr_get(x_555, 0); -lean::inc(x_567); -lean::dec(x_555); -x_570 = lean::cnstr_get(x_567, 1); -lean::inc(x_570); -x_572 = lean::cnstr_get(x_570, 3); -lean::inc(x_572); -if (lean::obj_tag(x_572) == 0) -{ -obj* x_579; obj* x_580; obj* x_582; -lean::dec(x_348); -lean::dec(x_548); -lean::dec(x_551); -lean::dec(x_567); -lean::inc(x_0); -if (lean::is_scalar(x_501)) { - x_579 = lean::alloc_cnstr(1, 1, 0); -} else { - x_579 = x_501; -} -lean::cnstr_set(x_579, 0, x_0); -x_580 = l___private_init_lean_expander_1__popStxArg___closed__1; lean::inc(x_3); -x_582 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_579, x_580, x_570, x_3); -lean::dec(x_570); -lean::dec(x_579); -if (lean::obj_tag(x_582) == 0) +x_554 = l___private_init_lean_expander_1__popStxArg(x_544, x_3); +if (lean::obj_tag(x_554) == 0) { -obj* x_588; obj* x_590; obj* x_591; +obj* x_562; obj* x_564; obj* x_565; lean::dec(x_3); lean::dec(x_0); -lean::dec(x_346); -x_588 = lean::cnstr_get(x_582, 0); -if (lean::is_exclusive(x_582)) { - x_590 = x_582; +lean::dec(x_500); +lean::dec(x_347); +lean::dec(x_345); +lean::dec(x_547); +lean::dec(x_550); +x_562 = lean::cnstr_get(x_554, 0); +if (lean::is_exclusive(x_554)) { + x_564 = x_554; } else { - lean::inc(x_588); - lean::dec(x_582); - x_590 = lean::box(0); + lean::inc(x_562); + lean::dec(x_554); + x_564 = lean::box(0); } -if (lean::is_scalar(x_590)) { - x_591 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_564)) { + x_565 = lean::alloc_cnstr(0, 1, 0); } else { - x_591 = x_590; + x_565 = x_564; } -lean::cnstr_set(x_591, 0, x_588); -return x_591; +lean::cnstr_set(x_565, 0, x_562); +return x_565; } else { -obj* x_592; obj* x_595; -x_592 = lean::cnstr_get(x_582, 0); -lean::inc(x_592); -lean::dec(x_582); -x_595 = lean::cnstr_get(x_592, 1); -lean::inc(x_595); -lean::dec(x_592); -x_1 = x_346; -x_2 = x_595; +obj* x_566; obj* x_569; obj* x_571; +x_566 = lean::cnstr_get(x_554, 0); +lean::inc(x_566); +lean::dec(x_554); +x_569 = lean::cnstr_get(x_566, 1); +lean::inc(x_569); +x_571 = lean::cnstr_get(x_569, 3); +lean::inc(x_571); +if (lean::obj_tag(x_571) == 0) +{ +obj* x_578; obj* x_579; obj* x_581; +lean::dec(x_347); +lean::dec(x_547); +lean::dec(x_550); +lean::dec(x_566); +lean::inc(x_0); +if (lean::is_scalar(x_500)) { + x_578 = lean::alloc_cnstr(1, 1, 0); +} else { + x_578 = x_500; +} +lean::cnstr_set(x_578, 0, x_0); +x_579 = l___private_init_lean_expander_1__popStxArg___closed__1; +lean::inc(x_3); +x_581 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_578, x_579, x_569, x_3); +lean::dec(x_569); +lean::dec(x_578); +if (lean::obj_tag(x_581) == 0) +{ +obj* x_587; obj* x_589; obj* x_590; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_345); +x_587 = lean::cnstr_get(x_581, 0); +if (lean::is_exclusive(x_581)) { + x_589 = x_581; +} else { + lean::inc(x_587); + lean::dec(x_581); + x_589 = lean::box(0); +} +if (lean::is_scalar(x_589)) { + x_590 = lean::alloc_cnstr(0, 1, 0); +} else { + x_590 = x_589; +} +lean::cnstr_set(x_590, 0, x_587); +return x_590; +} +else +{ +obj* x_591; obj* x_594; +x_591 = lean::cnstr_get(x_581, 0); +lean::inc(x_591); +lean::dec(x_581); +x_594 = lean::cnstr_get(x_591, 1); +lean::inc(x_594); +lean::dec(x_591); +x_1 = x_345; +x_2 = x_594; goto _start; } } else { -obj* x_600; obj* x_602; obj* x_603; obj* x_605; obj* x_607; obj* x_609; obj* x_610; obj* x_612; obj* x_613; obj* x_616; obj* x_617; obj* x_619; obj* x_620; obj* x_621; obj* x_622; obj* x_623; obj* x_624; obj* x_627; obj* x_628; obj* x_629; obj* x_631; obj* x_632; obj* x_633; obj* x_634; obj* x_635; obj* x_638; obj* x_639; obj* x_640; obj* x_641; obj* x_642; -lean::dec(x_501); -x_600 = lean::cnstr_get(x_567, 0); -if (lean::is_exclusive(x_567)) { - lean::cnstr_release(x_567, 1); - x_602 = x_567; +obj* x_599; obj* x_601; obj* x_602; obj* x_604; obj* x_606; obj* x_608; obj* x_609; obj* x_611; obj* x_612; obj* x_615; obj* x_616; obj* x_618; obj* x_619; obj* x_620; obj* x_621; obj* x_622; obj* x_623; obj* x_626; obj* x_627; obj* x_628; obj* x_630; obj* x_631; obj* x_632; obj* x_633; obj* x_634; obj* x_637; obj* x_638; obj* x_639; obj* x_640; obj* x_641; +lean::dec(x_500); +x_599 = lean::cnstr_get(x_566, 0); +if (lean::is_exclusive(x_566)) { + lean::cnstr_release(x_566, 1); + x_601 = x_566; } else { - lean::inc(x_600); - lean::dec(x_567); - x_602 = lean::box(0); + lean::inc(x_599); + lean::dec(x_566); + x_601 = lean::box(0); } -x_603 = lean::cnstr_get(x_570, 0); -x_605 = lean::cnstr_get(x_570, 1); -x_607 = lean::cnstr_get(x_570, 2); -if (lean::is_exclusive(x_570)) { - lean::cnstr_release(x_570, 3); - x_609 = x_570; +x_602 = lean::cnstr_get(x_569, 0); +x_604 = lean::cnstr_get(x_569, 1); +x_606 = lean::cnstr_get(x_569, 2); +if (lean::is_exclusive(x_569)) { + lean::cnstr_release(x_569, 3); + x_608 = x_569; } else { - lean::inc(x_603); - lean::inc(x_605); - lean::inc(x_607); - lean::dec(x_570); - x_609 = lean::box(0); + lean::inc(x_602); + lean::inc(x_604); + lean::inc(x_606); + lean::dec(x_569); + x_608 = lean::box(0); } -x_610 = lean::cnstr_get(x_572, 0); -lean::inc(x_610); -x_612 = l_Lean_Parser_Term_lambda_HasView; -x_613 = lean::cnstr_get(x_612, 1); -lean::inc(x_613); -lean::dec(x_612); -x_616 = lean::box(0); -x_617 = lean::cnstr_get(x_551, 3); -lean::inc(x_617); -x_619 = lean::box(0); -if (lean::is_scalar(x_348)) { - x_620 = lean::alloc_cnstr(1, 2, 0); +x_609 = lean::cnstr_get(x_571, 0); +lean::inc(x_609); +x_611 = l_Lean_Parser_Term_lambda_HasView; +x_612 = lean::cnstr_get(x_611, 1); +lean::inc(x_612); +lean::dec(x_611); +x_615 = lean::box(0); +x_616 = lean::cnstr_get(x_550, 3); +lean::inc(x_616); +x_618 = lean::box(0); +if (lean::is_scalar(x_347)) { + x_619 = lean::alloc_cnstr(1, 2, 0); } else { - x_620 = x_348; + x_619 = x_347; } -lean::cnstr_set(x_620, 0, x_617); -lean::cnstr_set(x_620, 1, x_619); -x_621 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__3(x_620); -x_622 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_619, 0, x_616); +lean::cnstr_set(x_619, 1, x_618); +x_620 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_619); +x_621 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_621, 0, x_620); +lean::cnstr_set(x_621, 1, x_615); +x_622 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_622, 0, x_621); -lean::cnstr_set(x_622, 1, x_616); -x_623 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_623, 0, x_622); -x_624 = lean::cnstr_get(x_551, 5); -lean::inc(x_624); -lean::dec(x_551); -x_627 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_628 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; -x_629 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_629, 0, x_627); -lean::cnstr_set(x_629, 1, x_623); -lean::cnstr_set(x_629, 2, x_628); -lean::cnstr_set(x_629, 3, x_624); -lean::inc(x_613); -x_631 = lean::apply_1(x_613, x_629); -x_632 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_632, 0, x_627); -lean::cnstr_set(x_632, 1, x_610); -lean::cnstr_set(x_632, 2, x_628); -lean::cnstr_set(x_632, 3, x_600); -x_633 = lean::apply_1(x_613, x_632); -x_634 = l_Lean_Parser_Term_app_HasView; -x_635 = lean::cnstr_get(x_634, 1); -lean::inc(x_635); -lean::dec(x_634); -x_638 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_638, 0, x_631); -lean::cnstr_set(x_638, 1, x_633); -x_639 = lean::apply_1(x_635, x_638); -if (lean::is_scalar(x_602)) { - x_640 = lean::alloc_cnstr(0, 2, 0); +x_623 = lean::cnstr_get(x_550, 5); +lean::inc(x_623); +lean::dec(x_550); +x_626 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_627 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; +x_628 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_628, 0, x_626); +lean::cnstr_set(x_628, 1, x_622); +lean::cnstr_set(x_628, 2, x_627); +lean::cnstr_set(x_628, 3, x_623); +lean::inc(x_612); +x_630 = lean::apply_1(x_612, x_628); +x_631 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_631, 0, x_626); +lean::cnstr_set(x_631, 1, x_609); +lean::cnstr_set(x_631, 2, x_627); +lean::cnstr_set(x_631, 3, x_599); +x_632 = lean::apply_1(x_612, x_631); +x_633 = l_Lean_Parser_Term_app_HasView; +x_634 = lean::cnstr_get(x_633, 1); +lean::inc(x_634); +lean::dec(x_633); +x_637 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_637, 0, x_630); +lean::cnstr_set(x_637, 1, x_632); +x_638 = lean::apply_1(x_634, x_637); +if (lean::is_scalar(x_601)) { + x_639 = lean::alloc_cnstr(0, 2, 0); } else { - x_640 = x_602; + x_639 = x_601; } -lean::cnstr_set(x_640, 0, x_548); -lean::cnstr_set(x_640, 1, x_639); -x_641 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_641, 0, x_640); -lean::cnstr_set(x_641, 1, x_607); -if (lean::is_scalar(x_609)) { - x_642 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_639, 0, x_547); +lean::cnstr_set(x_639, 1, x_638); +x_640 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_640, 0, x_639); +lean::cnstr_set(x_640, 1, x_606); +if (lean::is_scalar(x_608)) { + x_641 = lean::alloc_cnstr(0, 4, 0); } else { - x_642 = x_609; + x_641 = x_608; } -lean::cnstr_set(x_642, 0, x_603); -lean::cnstr_set(x_642, 1, x_605); -lean::cnstr_set(x_642, 2, x_641); -lean::cnstr_set(x_642, 3, x_572); -x_1 = x_346; -x_2 = x_642; +lean::cnstr_set(x_641, 0, x_602); +lean::cnstr_set(x_641, 1, x_604); +lean::cnstr_set(x_641, 2, x_640); +lean::cnstr_set(x_641, 3, x_571); +x_1 = x_345; +x_2 = x_641; goto _start; } } } default: { -obj* x_647; obj* x_651; obj* x_652; obj* x_654; -lean::dec(x_456); -lean::dec(x_502); -lean::dec(x_348); -x_647 = lean::cnstr_get(x_360, 1); -lean::inc(x_647); -lean::dec(x_360); +obj* x_646; obj* x_650; obj* x_651; obj* x_653; +lean::dec(x_455); +lean::dec(x_501); +lean::dec(x_347); +x_646 = lean::cnstr_get(x_359, 1); +lean::inc(x_646); +lean::dec(x_359); lean::inc(x_0); -if (lean::is_scalar(x_501)) { - x_651 = lean::alloc_cnstr(1, 1, 0); +if (lean::is_scalar(x_500)) { + x_650 = lean::alloc_cnstr(1, 1, 0); } else { - x_651 = x_501; + x_650 = x_500; } -lean::cnstr_set(x_651, 0, x_0); -x_652 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1; +lean::cnstr_set(x_650, 0, x_0); +x_651 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1; lean::inc(x_3); -x_654 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_651, x_652, x_647, x_3); -lean::dec(x_647); -lean::dec(x_651); -if (lean::obj_tag(x_654) == 0) +x_653 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_650, x_651, x_646, x_3); +lean::dec(x_646); +lean::dec(x_650); +if (lean::obj_tag(x_653) == 0) { -obj* x_660; obj* x_662; obj* x_663; +obj* x_659; obj* x_661; obj* x_662; lean::dec(x_3); lean::dec(x_0); -lean::dec(x_346); -x_660 = lean::cnstr_get(x_654, 0); -if (lean::is_exclusive(x_654)) { - x_662 = x_654; +lean::dec(x_345); +x_659 = lean::cnstr_get(x_653, 0); +if (lean::is_exclusive(x_653)) { + x_661 = x_653; } else { - lean::inc(x_660); - lean::dec(x_654); - x_662 = lean::box(0); + lean::inc(x_659); + lean::dec(x_653); + x_661 = lean::box(0); } -if (lean::is_scalar(x_662)) { - x_663 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_661)) { + x_662 = lean::alloc_cnstr(0, 1, 0); } else { - x_663 = x_662; + x_662 = x_661; } -lean::cnstr_set(x_663, 0, x_660); -return x_663; +lean::cnstr_set(x_662, 0, x_659); +return x_662; } else { -obj* x_664; obj* x_667; -x_664 = lean::cnstr_get(x_654, 0); -lean::inc(x_664); -lean::dec(x_654); -x_667 = lean::cnstr_get(x_664, 1); -lean::inc(x_667); -lean::dec(x_664); -x_1 = x_346; -x_2 = x_667; +obj* x_663; obj* x_666; +x_663 = lean::cnstr_get(x_653, 0); +lean::inc(x_663); +lean::dec(x_653); +x_666 = lean::cnstr_get(x_663, 1); +lean::inc(x_666); +lean::dec(x_663); +x_1 = x_345; +x_2 = x_666; goto _start; } } @@ -2731,7 +2849,7 @@ goto _start; } } } -obj* l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(obj* x_0) { +obj* l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__7(obj* x_0) { _start: { if (lean::obj_tag(x_0) == 0) @@ -2763,7 +2881,7 @@ if (lean::is_exclusive(x_2)) { lean::dec(x_2); x_11 = lean::box(0); } -x_12 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_4); +x_12 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__7(x_4); x_13 = lean::cnstr_get(x_7, 2); lean::inc(x_13); lean::dec(x_7); @@ -2785,7 +2903,7 @@ return x_17; } } } -obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__6(obj* x_0, obj* x_1) { +obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__8(obj* x_0, obj* x_1) { _start: { uint8 x_2; @@ -2811,7 +2929,7 @@ return x_10; } } } -obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__7(obj* x_0, obj* x_1) { +obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__9(obj* x_0, obj* x_1) { _start: { if (lean::obj_tag(x_1) == 0) @@ -2852,12 +2970,1415 @@ return x_18; } } } +obj* l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +if (lean::obj_tag(x_1) == 0) +{ +obj* x_5; obj* x_6; +lean::dec(x_0); +x_5 = lean::box(0); +x_6 = l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg(x_5, x_2, x_3); +lean::dec(x_3); +return x_6; +} +else +{ +obj* x_8; obj* x_10; obj* x_12; +x_8 = lean::cnstr_get(x_1, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_8, 0); +lean::inc(x_10); +x_12 = lean::cnstr_get(x_10, 1); +lean::inc(x_12); +lean::dec(x_10); +if (lean::obj_tag(x_12) == 0) +{ +obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_22; +x_15 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + lean::cnstr_release(x_1, 0); + lean::cnstr_set(x_1, 1, lean::box(0)); + x_17 = x_1; +} else { + lean::inc(x_15); + lean::dec(x_1); + x_17 = lean::box(0); +} +lean::inc(x_0); +x_19 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_19, 0, x_0); +x_20 = l___private_init_lean_expander_1__popStxArg___closed__1; +lean::inc(x_3); +x_22 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_19, x_20, x_2, x_3); +lean::dec(x_2); +if (lean::obj_tag(x_22) == 0) +{ +obj* x_30; obj* x_32; obj* x_33; +lean::dec(x_15); +lean::dec(x_8); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_17); +lean::dec(x_19); +x_30 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_32 = x_22; +} else { + lean::inc(x_30); + lean::dec(x_22); + x_32 = lean::box(0); +} +if (lean::is_scalar(x_32)) { + x_33 = lean::alloc_cnstr(0, 1, 0); +} else { + x_33 = x_32; +} +lean::cnstr_set(x_33, 0, x_30); +return x_33; +} +else +{ +obj* x_34; obj* x_37; +x_34 = lean::cnstr_get(x_22, 0); +lean::inc(x_34); +lean::dec(x_22); +x_37 = lean::cnstr_get(x_8, 1); +lean::inc(x_37); +lean::dec(x_8); +if (lean::obj_tag(x_37) == 0) +{ +obj* x_42; +lean::dec(x_17); +lean::dec(x_19); +x_42 = lean::cnstr_get(x_34, 1); +lean::inc(x_42); +lean::dec(x_34); +x_1 = x_15; +x_2 = x_42; +goto _start; +} +else +{ +obj* x_46; obj* x_48; +x_46 = lean::cnstr_get(x_37, 0); +if (lean::is_exclusive(x_37)) { + lean::cnstr_set(x_37, 0, lean::box(0)); + x_48 = x_37; +} else { + lean::inc(x_46); + lean::dec(x_37); + x_48 = lean::box(0); +} +switch (lean::obj_tag(x_46)) { +case 0: +{ +obj* x_51; obj* x_55; +lean::dec(x_19); +lean::dec(x_46); +x_51 = lean::cnstr_get(x_34, 1); +lean::inc(x_51); +lean::dec(x_34); +lean::inc(x_3); +x_55 = l___private_init_lean_expander_1__popStxArg(x_51, x_3); +if (lean::obj_tag(x_55) == 0) +{ +obj* x_61; obj* x_63; obj* x_64; +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_17); +lean::dec(x_48); +x_61 = lean::cnstr_get(x_55, 0); +if (lean::is_exclusive(x_55)) { + x_63 = x_55; +} else { + lean::inc(x_61); + lean::dec(x_55); + x_63 = lean::box(0); +} +if (lean::is_scalar(x_63)) { + x_64 = lean::alloc_cnstr(0, 1, 0); +} else { + x_64 = x_63; +} +lean::cnstr_set(x_64, 0, x_61); +return x_64; +} +else +{ +obj* x_65; obj* x_68; obj* x_70; obj* x_73; obj* x_75; obj* x_77; obj* x_80; obj* x_81; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_65 = lean::cnstr_get(x_55, 0); +lean::inc(x_65); +lean::dec(x_55); +x_68 = lean::cnstr_get(x_65, 0); +lean::inc(x_68); +x_70 = lean::cnstr_get(x_65, 1); +lean::inc(x_70); +lean::dec(x_65); +x_73 = lean::cnstr_get(x_70, 0); +lean::inc(x_73); +x_75 = lean::cnstr_get(x_70, 1); +lean::inc(x_75); +x_77 = lean::cnstr_get(x_70, 2); +lean::inc(x_77); +lean::dec(x_70); +x_80 = l_Lean_Parser_Term_binderIdent_HasView; +x_81 = lean::cnstr_get(x_80, 0); +lean::inc(x_81); +lean::dec(x_80); +x_84 = lean::apply_1(x_81, x_68); +x_85 = lean::box(0); +if (lean::is_scalar(x_17)) { + x_86 = lean::alloc_cnstr(1, 2, 0); +} else { + x_86 = x_17; +} +lean::cnstr_set(x_86, 0, x_84); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::box(0); +x_88 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_88, 0, x_86); +lean::cnstr_set(x_88, 1, x_87); +x_89 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_89, 0, x_88); +if (lean::is_scalar(x_48)) { + x_90 = lean::alloc_cnstr(1, 1, 0); +} else { + x_90 = x_48; +} +lean::cnstr_set(x_90, 0, x_89); +x_91 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_91, 0, x_73); +lean::cnstr_set(x_91, 1, x_75); +lean::cnstr_set(x_91, 2, x_77); +lean::cnstr_set(x_91, 3, x_90); +x_1 = x_15; +x_2 = x_91; +goto _start; +} +} +case 1: +{ +obj* x_96; obj* x_100; +lean::dec(x_17); +lean::dec(x_19); +lean::dec(x_46); +x_96 = lean::cnstr_get(x_34, 1); +lean::inc(x_96); +lean::dec(x_34); +lean::inc(x_3); +x_100 = l___private_init_lean_expander_1__popStxArg(x_96, x_3); +if (lean::obj_tag(x_100) == 0) +{ +obj* x_105; obj* x_107; obj* x_108; +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_48); +x_105 = lean::cnstr_get(x_100, 0); +if (lean::is_exclusive(x_100)) { + x_107 = x_100; +} else { + lean::inc(x_105); + lean::dec(x_100); + x_107 = lean::box(0); +} +if (lean::is_scalar(x_107)) { + x_108 = lean::alloc_cnstr(0, 1, 0); +} else { + x_108 = x_107; +} +lean::cnstr_set(x_108, 0, x_105); +return x_108; +} +else +{ +obj* x_109; obj* x_112; obj* x_114; obj* x_117; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_128; obj* x_129; obj* x_130; +x_109 = lean::cnstr_get(x_100, 0); +lean::inc(x_109); +lean::dec(x_100); +x_112 = lean::cnstr_get(x_109, 0); +lean::inc(x_112); +x_114 = lean::cnstr_get(x_109, 1); +lean::inc(x_114); +lean::dec(x_109); +x_117 = lean::cnstr_get(x_114, 0); +lean::inc(x_117); +x_119 = lean::cnstr_get(x_114, 1); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_114, 2); +lean::inc(x_121); +lean::dec(x_114); +x_124 = l_Lean_Parser_Term_binders_HasView; +x_125 = lean::cnstr_get(x_124, 0); +lean::inc(x_125); +lean::dec(x_124); +x_128 = lean::apply_1(x_125, x_112); +if (lean::is_scalar(x_48)) { + x_129 = lean::alloc_cnstr(1, 1, 0); +} else { + x_129 = x_48; +} +lean::cnstr_set(x_129, 0, x_128); +x_130 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_130, 0, x_117); +lean::cnstr_set(x_130, 1, x_119); +lean::cnstr_set(x_130, 2, x_121); +lean::cnstr_set(x_130, 3, x_129); +x_1 = x_15; +x_2 = x_130; +goto _start; +} +} +default: +{ +obj* x_133; obj* x_136; +lean::dec(x_48); +x_133 = lean::cnstr_get(x_46, 0); +lean::inc(x_133); +lean::dec(x_46); +x_136 = lean::cnstr_get(x_133, 1); +lean::inc(x_136); +if (lean::obj_tag(x_136) == 0) +{ +obj* x_139; obj* x_142; obj* x_146; +lean::dec(x_19); +x_139 = lean::cnstr_get(x_34, 1); +lean::inc(x_139); +lean::dec(x_34); +x_142 = lean::cnstr_get(x_133, 0); +lean::inc(x_142); +lean::dec(x_133); +lean::inc(x_3); +x_146 = l___private_init_lean_expander_1__popStxArg(x_139, x_3); +if (lean::obj_tag(x_146) == 0) +{ +obj* x_152; obj* x_154; obj* x_155; +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_17); +lean::dec(x_142); +x_152 = lean::cnstr_get(x_146, 0); +if (lean::is_exclusive(x_146)) { + x_154 = x_146; +} else { + lean::inc(x_152); + lean::dec(x_146); + x_154 = lean::box(0); +} +if (lean::is_scalar(x_154)) { + x_155 = lean::alloc_cnstr(0, 1, 0); +} else { + x_155 = x_154; +} +lean::cnstr_set(x_155, 0, x_152); +return x_155; +} +else +{ +obj* x_156; obj* x_159; obj* x_161; obj* x_163; obj* x_164; obj* x_166; obj* x_168; obj* x_169; obj* x_171; obj* x_172; obj* x_175; +x_156 = lean::cnstr_get(x_146, 0); +lean::inc(x_156); +lean::dec(x_146); +x_159 = lean::cnstr_get(x_156, 0); +x_161 = lean::cnstr_get(x_156, 1); +if (lean::is_exclusive(x_156)) { + x_163 = x_156; +} else { + lean::inc(x_159); + lean::inc(x_161); + lean::dec(x_156); + x_163 = lean::box(0); +} +x_164 = lean::cnstr_get(x_161, 0); +lean::inc(x_164); +x_166 = lean::cnstr_get(x_161, 1); +lean::inc(x_166); +if (lean::is_scalar(x_163)) { + x_168 = lean::alloc_cnstr(0, 2, 0); +} else { + x_168 = x_163; +} +lean::cnstr_set(x_168, 0, x_142); +lean::cnstr_set(x_168, 1, x_159); +x_169 = lean::cnstr_get(x_161, 2); +lean::inc(x_169); +if (lean::is_scalar(x_17)) { + x_171 = lean::alloc_cnstr(1, 2, 0); +} else { + x_171 = x_17; +} +lean::cnstr_set(x_171, 0, x_168); +lean::cnstr_set(x_171, 1, x_169); +x_172 = lean::cnstr_get(x_161, 3); +lean::inc(x_172); +lean::dec(x_161); +x_175 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_175, 0, x_164); +lean::cnstr_set(x_175, 1, x_166); +lean::cnstr_set(x_175, 2, x_171); +lean::cnstr_set(x_175, 3, x_172); +x_1 = x_15; +x_2 = x_175; +goto _start; +} +} +else +{ +obj* x_177; obj* x_180; +x_177 = lean::cnstr_get(x_136, 0); +lean::inc(x_177); +lean::dec(x_136); +x_180 = lean::cnstr_get(x_177, 1); +lean::inc(x_180); +lean::dec(x_177); +switch (lean::obj_tag(x_180)) { +case 0: +{ +obj* x_185; obj* x_188; obj* x_192; +lean::dec(x_180); +lean::dec(x_19); +x_185 = lean::cnstr_get(x_34, 1); +lean::inc(x_185); +lean::dec(x_34); +x_188 = lean::cnstr_get(x_133, 0); +lean::inc(x_188); +lean::dec(x_133); +lean::inc(x_3); +x_192 = l___private_init_lean_expander_1__popStxArg(x_185, x_3); +if (lean::obj_tag(x_192) == 0) +{ +obj* x_198; obj* x_200; obj* x_201; +lean::dec(x_188); +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_17); +x_198 = lean::cnstr_get(x_192, 0); +if (lean::is_exclusive(x_192)) { + x_200 = x_192; +} else { + lean::inc(x_198); + lean::dec(x_192); + x_200 = lean::box(0); +} +if (lean::is_scalar(x_200)) { + x_201 = lean::alloc_cnstr(0, 1, 0); +} else { + x_201 = x_200; +} +lean::cnstr_set(x_201, 0, x_198); +return x_201; +} +else +{ +obj* x_202; obj* x_205; obj* x_207; obj* x_209; obj* x_210; obj* x_212; obj* x_214; obj* x_215; obj* x_217; obj* x_218; obj* x_221; +x_202 = lean::cnstr_get(x_192, 0); +lean::inc(x_202); +lean::dec(x_192); +x_205 = lean::cnstr_get(x_202, 0); +x_207 = lean::cnstr_get(x_202, 1); +if (lean::is_exclusive(x_202)) { + x_209 = x_202; +} else { + lean::inc(x_205); + lean::inc(x_207); + lean::dec(x_202); + x_209 = lean::box(0); +} +x_210 = lean::cnstr_get(x_207, 0); +lean::inc(x_210); +x_212 = lean::cnstr_get(x_207, 1); +lean::inc(x_212); +if (lean::is_scalar(x_209)) { + x_214 = lean::alloc_cnstr(0, 2, 0); +} else { + x_214 = x_209; +} +lean::cnstr_set(x_214, 0, x_188); +lean::cnstr_set(x_214, 1, x_205); +x_215 = lean::cnstr_get(x_207, 2); +lean::inc(x_215); +if (lean::is_scalar(x_17)) { + x_217 = lean::alloc_cnstr(1, 2, 0); +} else { + x_217 = x_17; +} +lean::cnstr_set(x_217, 0, x_214); +lean::cnstr_set(x_217, 1, x_215); +x_218 = lean::cnstr_get(x_207, 3); +lean::inc(x_218); +lean::dec(x_207); +x_221 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_221, 0, x_210); +lean::cnstr_set(x_221, 1, x_212); +lean::cnstr_set(x_221, 2, x_217); +lean::cnstr_set(x_221, 3, x_218); +x_1 = x_15; +x_2 = x_221; +goto _start; +} +} +case 2: +{ +obj* x_223; obj* x_226; obj* x_229; obj* x_233; +x_223 = lean::cnstr_get(x_34, 1); +lean::inc(x_223); +lean::dec(x_34); +x_226 = lean::cnstr_get(x_133, 0); +lean::inc(x_226); +lean::dec(x_133); +x_229 = lean::cnstr_get(x_180, 0); +lean::inc(x_229); +lean::dec(x_180); +lean::inc(x_3); +x_233 = l___private_init_lean_expander_1__popStxArg(x_223, x_3); +if (lean::obj_tag(x_233) == 0) +{ +obj* x_241; obj* x_243; obj* x_244; +lean::dec(x_229); +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_226); +lean::dec(x_17); +lean::dec(x_19); +x_241 = lean::cnstr_get(x_233, 0); +if (lean::is_exclusive(x_233)) { + x_243 = x_233; +} else { + lean::inc(x_241); + lean::dec(x_233); + x_243 = lean::box(0); +} +if (lean::is_scalar(x_243)) { + x_244 = lean::alloc_cnstr(0, 1, 0); +} else { + x_244 = x_243; +} +lean::cnstr_set(x_244, 0, x_241); +return x_244; +} +else +{ +obj* x_245; obj* x_248; obj* x_250; +x_245 = lean::cnstr_get(x_233, 0); +lean::inc(x_245); +lean::dec(x_233); +x_248 = lean::cnstr_get(x_245, 1); +lean::inc(x_248); +x_250 = lean::cnstr_get(x_248, 3); +lean::inc(x_250); +if (lean::obj_tag(x_250) == 0) +{ +obj* x_257; +lean::dec(x_245); +lean::dec(x_229); +lean::dec(x_226); +lean::dec(x_17); +lean::inc(x_3); +x_257 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_19, x_20, x_248, x_3); +lean::dec(x_248); +lean::dec(x_19); +if (lean::obj_tag(x_257) == 0) +{ +obj* x_263; obj* x_265; obj* x_266; +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +x_263 = lean::cnstr_get(x_257, 0); +if (lean::is_exclusive(x_257)) { + x_265 = x_257; +} else { + lean::inc(x_263); + lean::dec(x_257); + x_265 = lean::box(0); +} +if (lean::is_scalar(x_265)) { + x_266 = lean::alloc_cnstr(0, 1, 0); +} else { + x_266 = x_265; +} +lean::cnstr_set(x_266, 0, x_263); +return x_266; +} +else +{ +obj* x_267; obj* x_270; +x_267 = lean::cnstr_get(x_257, 0); +lean::inc(x_267); +lean::dec(x_257); +x_270 = lean::cnstr_get(x_267, 1); +lean::inc(x_270); +lean::dec(x_267); +x_1 = x_15; +x_2 = x_270; +goto _start; +} +} +else +{ +obj* x_275; obj* x_277; obj* x_278; obj* x_280; obj* x_282; obj* x_284; obj* x_285; obj* x_287; obj* x_288; obj* x_291; obj* x_292; obj* x_294; obj* x_295; obj* x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_302; obj* x_303; obj* x_304; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_313; obj* x_314; obj* x_315; obj* x_316; obj* x_317; +lean::dec(x_19); +x_275 = lean::cnstr_get(x_245, 0); +if (lean::is_exclusive(x_245)) { + lean::cnstr_release(x_245, 1); + x_277 = x_245; +} else { + lean::inc(x_275); + lean::dec(x_245); + x_277 = lean::box(0); +} +x_278 = lean::cnstr_get(x_248, 0); +x_280 = lean::cnstr_get(x_248, 1); +x_282 = lean::cnstr_get(x_248, 2); +if (lean::is_exclusive(x_248)) { + lean::cnstr_release(x_248, 3); + x_284 = x_248; +} else { + lean::inc(x_278); + lean::inc(x_280); + lean::inc(x_282); + lean::dec(x_248); + x_284 = lean::box(0); +} +x_285 = lean::cnstr_get(x_250, 0); +lean::inc(x_285); +x_287 = l_Lean_Parser_Term_lambda_HasView; +x_288 = lean::cnstr_get(x_287, 1); +lean::inc(x_288); +lean::dec(x_287); +x_291 = lean::box(0); +x_292 = lean::cnstr_get(x_229, 3); +lean::inc(x_292); +x_294 = lean::box(0); +if (lean::is_scalar(x_17)) { + x_295 = lean::alloc_cnstr(1, 2, 0); +} else { + x_295 = x_17; +} +lean::cnstr_set(x_295, 0, x_292); +lean::cnstr_set(x_295, 1, x_294); +x_296 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_295); +x_297 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_297, 0, x_296); +lean::cnstr_set(x_297, 1, x_291); +x_298 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_298, 0, x_297); +x_299 = lean::cnstr_get(x_229, 5); +lean::inc(x_299); +lean::dec(x_229); +x_302 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_303 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; +x_304 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_304, 0, x_302); +lean::cnstr_set(x_304, 1, x_298); +lean::cnstr_set(x_304, 2, x_303); +lean::cnstr_set(x_304, 3, x_299); +lean::inc(x_288); +x_306 = lean::apply_1(x_288, x_304); +x_307 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_307, 0, x_302); +lean::cnstr_set(x_307, 1, x_285); +lean::cnstr_set(x_307, 2, x_303); +lean::cnstr_set(x_307, 3, x_275); +x_308 = lean::apply_1(x_288, x_307); +x_309 = l_Lean_Parser_Term_app_HasView; +x_310 = lean::cnstr_get(x_309, 1); +lean::inc(x_310); +lean::dec(x_309); +x_313 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_313, 0, x_306); +lean::cnstr_set(x_313, 1, x_308); +x_314 = lean::apply_1(x_310, x_313); +if (lean::is_scalar(x_277)) { + x_315 = lean::alloc_cnstr(0, 2, 0); +} else { + x_315 = x_277; +} +lean::cnstr_set(x_315, 0, x_226); +lean::cnstr_set(x_315, 1, x_314); +x_316 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_316, 0, x_315); +lean::cnstr_set(x_316, 1, x_282); +if (lean::is_scalar(x_284)) { + x_317 = lean::alloc_cnstr(0, 4, 0); +} else { + x_317 = x_284; +} +lean::cnstr_set(x_317, 0, x_278); +lean::cnstr_set(x_317, 1, x_280); +lean::cnstr_set(x_317, 2, x_316); +lean::cnstr_set(x_317, 3, x_250); +x_1 = x_15; +x_2 = x_317; +goto _start; +} +} +} +default: +{ +obj* x_322; obj* x_325; obj* x_327; +lean::dec(x_180); +lean::dec(x_17); +lean::dec(x_133); +x_322 = lean::cnstr_get(x_34, 1); +lean::inc(x_322); +lean::dec(x_34); +x_325 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1; +lean::inc(x_3); +x_327 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_19, x_325, x_322, x_3); +lean::dec(x_322); +lean::dec(x_19); +if (lean::obj_tag(x_327) == 0) +{ +obj* x_333; obj* x_335; obj* x_336; +lean::dec(x_15); +lean::dec(x_3); +lean::dec(x_0); +x_333 = lean::cnstr_get(x_327, 0); +if (lean::is_exclusive(x_327)) { + x_335 = x_327; +} else { + lean::inc(x_333); + lean::dec(x_327); + x_335 = lean::box(0); +} +if (lean::is_scalar(x_335)) { + x_336 = lean::alloc_cnstr(0, 1, 0); +} else { + x_336 = x_335; +} +lean::cnstr_set(x_336, 0, x_333); +return x_336; +} +else +{ +obj* x_337; obj* x_340; +x_337 = lean::cnstr_get(x_327, 0); +lean::inc(x_337); +lean::dec(x_327); +x_340 = lean::cnstr_get(x_337, 1); +lean::inc(x_340); +lean::dec(x_337); +x_1 = x_15; +x_2 = x_340; +goto _start; +} +} +} +} +} +} +} +} +} +else +{ +obj* x_345; obj* x_347; obj* x_349; +lean::dec(x_12); +x_345 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + lean::cnstr_release(x_1, 0); + lean::cnstr_set(x_1, 1, lean::box(0)); + x_347 = x_1; +} else { + lean::inc(x_345); + lean::dec(x_1); + x_347 = lean::box(0); +} +lean::inc(x_3); +x_349 = l___private_init_lean_expander_1__popStxArg(x_2, x_3); +if (lean::obj_tag(x_349) == 0) +{ +obj* x_355; obj* x_357; obj* x_358; +lean::dec(x_8); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_347); +lean::dec(x_345); +x_355 = lean::cnstr_get(x_349, 0); +if (lean::is_exclusive(x_349)) { + x_357 = x_349; +} else { + lean::inc(x_355); + lean::dec(x_349); + x_357 = lean::box(0); +} +if (lean::is_scalar(x_357)) { + x_358 = lean::alloc_cnstr(0, 1, 0); +} else { + x_358 = x_357; +} +lean::cnstr_set(x_358, 0, x_355); +return x_358; +} +else +{ +obj* x_359; obj* x_362; +x_359 = lean::cnstr_get(x_349, 0); +lean::inc(x_359); +lean::dec(x_349); +x_362 = lean::cnstr_get(x_8, 1); +lean::inc(x_362); +lean::dec(x_8); +if (lean::obj_tag(x_362) == 0) +{ +obj* x_366; +lean::dec(x_347); +x_366 = lean::cnstr_get(x_359, 1); +lean::inc(x_366); +lean::dec(x_359); +x_1 = x_345; +x_2 = x_366; +goto _start; +} +else +{ +obj* x_370; obj* x_372; +x_370 = lean::cnstr_get(x_362, 0); +if (lean::is_exclusive(x_362)) { + lean::cnstr_set(x_362, 0, lean::box(0)); + x_372 = x_362; +} else { + lean::inc(x_370); + lean::dec(x_362); + x_372 = lean::box(0); +} +switch (lean::obj_tag(x_370)) { +case 0: +{ +obj* x_374; obj* x_378; +lean::dec(x_370); +x_374 = lean::cnstr_get(x_359, 1); +lean::inc(x_374); +lean::dec(x_359); +lean::inc(x_3); +x_378 = l___private_init_lean_expander_1__popStxArg(x_374, x_3); +if (lean::obj_tag(x_378) == 0) +{ +obj* x_384; obj* x_386; obj* x_387; +lean::dec(x_372); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_347); +lean::dec(x_345); +x_384 = lean::cnstr_get(x_378, 0); +if (lean::is_exclusive(x_378)) { + x_386 = x_378; +} else { + lean::inc(x_384); + lean::dec(x_378); + x_386 = lean::box(0); +} +if (lean::is_scalar(x_386)) { + x_387 = lean::alloc_cnstr(0, 1, 0); +} else { + x_387 = x_386; +} +lean::cnstr_set(x_387, 0, x_384); +return x_387; +} +else +{ +obj* x_388; obj* x_391; obj* x_393; obj* x_396; obj* x_398; obj* x_400; obj* x_403; obj* x_404; obj* x_407; obj* x_408; obj* x_409; obj* x_410; obj* x_411; obj* x_412; obj* x_413; obj* x_414; +x_388 = lean::cnstr_get(x_378, 0); +lean::inc(x_388); +lean::dec(x_378); +x_391 = lean::cnstr_get(x_388, 0); +lean::inc(x_391); +x_393 = lean::cnstr_get(x_388, 1); +lean::inc(x_393); +lean::dec(x_388); +x_396 = lean::cnstr_get(x_393, 0); +lean::inc(x_396); +x_398 = lean::cnstr_get(x_393, 1); +lean::inc(x_398); +x_400 = lean::cnstr_get(x_393, 2); +lean::inc(x_400); +lean::dec(x_393); +x_403 = l_Lean_Parser_Term_binderIdent_HasView; +x_404 = lean::cnstr_get(x_403, 0); +lean::inc(x_404); +lean::dec(x_403); +x_407 = lean::apply_1(x_404, x_391); +x_408 = lean::box(0); +if (lean::is_scalar(x_347)) { + x_409 = lean::alloc_cnstr(1, 2, 0); +} else { + x_409 = x_347; +} +lean::cnstr_set(x_409, 0, x_407); +lean::cnstr_set(x_409, 1, x_408); +x_410 = lean::box(0); +x_411 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_411, 0, x_409); +lean::cnstr_set(x_411, 1, x_410); +x_412 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_412, 0, x_411); +if (lean::is_scalar(x_372)) { + x_413 = lean::alloc_cnstr(1, 1, 0); +} else { + x_413 = x_372; +} +lean::cnstr_set(x_413, 0, x_412); +x_414 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_414, 0, x_396); +lean::cnstr_set(x_414, 1, x_398); +lean::cnstr_set(x_414, 2, x_400); +lean::cnstr_set(x_414, 3, x_413); +x_1 = x_345; +x_2 = x_414; +goto _start; +} +} +case 1: +{ +obj* x_418; obj* x_422; +lean::dec(x_347); +lean::dec(x_370); +x_418 = lean::cnstr_get(x_359, 1); +lean::inc(x_418); +lean::dec(x_359); +lean::inc(x_3); +x_422 = l___private_init_lean_expander_1__popStxArg(x_418, x_3); +if (lean::obj_tag(x_422) == 0) +{ +obj* x_427; obj* x_429; obj* x_430; +lean::dec(x_372); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_345); +x_427 = lean::cnstr_get(x_422, 0); +if (lean::is_exclusive(x_422)) { + x_429 = x_422; +} else { + lean::inc(x_427); + lean::dec(x_422); + x_429 = lean::box(0); +} +if (lean::is_scalar(x_429)) { + x_430 = lean::alloc_cnstr(0, 1, 0); +} else { + x_430 = x_429; +} +lean::cnstr_set(x_430, 0, x_427); +return x_430; +} +else +{ +obj* x_431; obj* x_434; obj* x_436; obj* x_439; obj* x_441; obj* x_443; obj* x_446; obj* x_447; obj* x_450; obj* x_451; obj* x_452; +x_431 = lean::cnstr_get(x_422, 0); +lean::inc(x_431); +lean::dec(x_422); +x_434 = lean::cnstr_get(x_431, 0); +lean::inc(x_434); +x_436 = lean::cnstr_get(x_431, 1); +lean::inc(x_436); +lean::dec(x_431); +x_439 = lean::cnstr_get(x_436, 0); +lean::inc(x_439); +x_441 = lean::cnstr_get(x_436, 1); +lean::inc(x_441); +x_443 = lean::cnstr_get(x_436, 2); +lean::inc(x_443); +lean::dec(x_436); +x_446 = l_Lean_Parser_Term_binders_HasView; +x_447 = lean::cnstr_get(x_446, 0); +lean::inc(x_447); +lean::dec(x_446); +x_450 = lean::apply_1(x_447, x_434); +if (lean::is_scalar(x_372)) { + x_451 = lean::alloc_cnstr(1, 1, 0); +} else { + x_451 = x_372; +} +lean::cnstr_set(x_451, 0, x_450); +x_452 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_452, 0, x_439); +lean::cnstr_set(x_452, 1, x_441); +lean::cnstr_set(x_452, 2, x_443); +lean::cnstr_set(x_452, 3, x_451); +x_1 = x_345; +x_2 = x_452; +goto _start; +} +} +default: +{ +obj* x_455; obj* x_458; +lean::dec(x_372); +x_455 = lean::cnstr_get(x_370, 0); +lean::inc(x_455); +lean::dec(x_370); +x_458 = lean::cnstr_get(x_455, 1); +lean::inc(x_458); +if (lean::obj_tag(x_458) == 0) +{ +obj* x_460; obj* x_463; obj* x_467; +x_460 = lean::cnstr_get(x_359, 1); +lean::inc(x_460); +lean::dec(x_359); +x_463 = lean::cnstr_get(x_455, 0); +lean::inc(x_463); +lean::dec(x_455); +lean::inc(x_3); +x_467 = l___private_init_lean_expander_1__popStxArg(x_460, x_3); +if (lean::obj_tag(x_467) == 0) +{ +obj* x_473; obj* x_475; obj* x_476; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_463); +lean::dec(x_347); +lean::dec(x_345); +x_473 = lean::cnstr_get(x_467, 0); +if (lean::is_exclusive(x_467)) { + x_475 = x_467; +} else { + lean::inc(x_473); + lean::dec(x_467); + x_475 = lean::box(0); +} +if (lean::is_scalar(x_475)) { + x_476 = lean::alloc_cnstr(0, 1, 0); +} else { + x_476 = x_475; +} +lean::cnstr_set(x_476, 0, x_473); +return x_476; +} +else +{ +obj* x_477; obj* x_480; obj* x_482; obj* x_484; obj* x_485; obj* x_487; obj* x_489; obj* x_490; obj* x_492; obj* x_493; obj* x_496; +x_477 = lean::cnstr_get(x_467, 0); +lean::inc(x_477); +lean::dec(x_467); +x_480 = lean::cnstr_get(x_477, 0); +x_482 = lean::cnstr_get(x_477, 1); +if (lean::is_exclusive(x_477)) { + x_484 = x_477; +} else { + lean::inc(x_480); + lean::inc(x_482); + lean::dec(x_477); + x_484 = lean::box(0); +} +x_485 = lean::cnstr_get(x_482, 0); +lean::inc(x_485); +x_487 = lean::cnstr_get(x_482, 1); +lean::inc(x_487); +if (lean::is_scalar(x_484)) { + x_489 = lean::alloc_cnstr(0, 2, 0); +} else { + x_489 = x_484; +} +lean::cnstr_set(x_489, 0, x_463); +lean::cnstr_set(x_489, 1, x_480); +x_490 = lean::cnstr_get(x_482, 2); +lean::inc(x_490); +if (lean::is_scalar(x_347)) { + x_492 = lean::alloc_cnstr(1, 2, 0); +} else { + x_492 = x_347; +} +lean::cnstr_set(x_492, 0, x_489); +lean::cnstr_set(x_492, 1, x_490); +x_493 = lean::cnstr_get(x_482, 3); +lean::inc(x_493); +lean::dec(x_482); +x_496 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_496, 0, x_485); +lean::cnstr_set(x_496, 1, x_487); +lean::cnstr_set(x_496, 2, x_492); +lean::cnstr_set(x_496, 3, x_493); +x_1 = x_345; +x_2 = x_496; +goto _start; +} +} +else +{ +obj* x_498; obj* x_500; obj* x_501; +x_498 = lean::cnstr_get(x_458, 0); +if (lean::is_exclusive(x_458)) { + lean::cnstr_set(x_458, 0, lean::box(0)); + x_500 = x_458; +} else { + lean::inc(x_498); + lean::dec(x_458); + x_500 = lean::box(0); +} +x_501 = lean::cnstr_get(x_498, 1); +lean::inc(x_501); +lean::dec(x_498); +switch (lean::obj_tag(x_501)) { +case 0: +{ +obj* x_506; obj* x_509; obj* x_513; +lean::dec(x_500); +lean::dec(x_501); +x_506 = lean::cnstr_get(x_359, 1); +lean::inc(x_506); +lean::dec(x_359); +x_509 = lean::cnstr_get(x_455, 0); +lean::inc(x_509); +lean::dec(x_455); +lean::inc(x_3); +x_513 = l___private_init_lean_expander_1__popStxArg(x_506, x_3); +if (lean::obj_tag(x_513) == 0) +{ +obj* x_519; obj* x_521; obj* x_522; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_509); +lean::dec(x_347); +lean::dec(x_345); +x_519 = lean::cnstr_get(x_513, 0); +if (lean::is_exclusive(x_513)) { + x_521 = x_513; +} else { + lean::inc(x_519); + lean::dec(x_513); + x_521 = lean::box(0); +} +if (lean::is_scalar(x_521)) { + x_522 = lean::alloc_cnstr(0, 1, 0); +} else { + x_522 = x_521; +} +lean::cnstr_set(x_522, 0, x_519); +return x_522; +} +else +{ +obj* x_523; obj* x_526; obj* x_528; obj* x_530; obj* x_531; obj* x_533; obj* x_535; obj* x_536; obj* x_538; obj* x_539; obj* x_542; +x_523 = lean::cnstr_get(x_513, 0); +lean::inc(x_523); +lean::dec(x_513); +x_526 = lean::cnstr_get(x_523, 0); +x_528 = lean::cnstr_get(x_523, 1); +if (lean::is_exclusive(x_523)) { + x_530 = x_523; +} else { + lean::inc(x_526); + lean::inc(x_528); + lean::dec(x_523); + x_530 = lean::box(0); +} +x_531 = lean::cnstr_get(x_528, 0); +lean::inc(x_531); +x_533 = lean::cnstr_get(x_528, 1); +lean::inc(x_533); +if (lean::is_scalar(x_530)) { + x_535 = lean::alloc_cnstr(0, 2, 0); +} else { + x_535 = x_530; +} +lean::cnstr_set(x_535, 0, x_509); +lean::cnstr_set(x_535, 1, x_526); +x_536 = lean::cnstr_get(x_528, 2); +lean::inc(x_536); +if (lean::is_scalar(x_347)) { + x_538 = lean::alloc_cnstr(1, 2, 0); +} else { + x_538 = x_347; +} +lean::cnstr_set(x_538, 0, x_535); +lean::cnstr_set(x_538, 1, x_536); +x_539 = lean::cnstr_get(x_528, 3); +lean::inc(x_539); +lean::dec(x_528); +x_542 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_542, 0, x_531); +lean::cnstr_set(x_542, 1, x_533); +lean::cnstr_set(x_542, 2, x_538); +lean::cnstr_set(x_542, 3, x_539); +x_1 = x_345; +x_2 = x_542; +goto _start; +} +} +case 2: +{ +obj* x_544; obj* x_547; obj* x_550; obj* x_554; +x_544 = lean::cnstr_get(x_359, 1); +lean::inc(x_544); +lean::dec(x_359); +x_547 = lean::cnstr_get(x_455, 0); +lean::inc(x_547); +lean::dec(x_455); +x_550 = lean::cnstr_get(x_501, 0); +lean::inc(x_550); +lean::dec(x_501); +lean::inc(x_3); +x_554 = l___private_init_lean_expander_1__popStxArg(x_544, x_3); +if (lean::obj_tag(x_554) == 0) +{ +obj* x_562; obj* x_564; obj* x_565; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_500); +lean::dec(x_347); +lean::dec(x_345); +lean::dec(x_547); +lean::dec(x_550); +x_562 = lean::cnstr_get(x_554, 0); +if (lean::is_exclusive(x_554)) { + x_564 = x_554; +} else { + lean::inc(x_562); + lean::dec(x_554); + x_564 = lean::box(0); +} +if (lean::is_scalar(x_564)) { + x_565 = lean::alloc_cnstr(0, 1, 0); +} else { + x_565 = x_564; +} +lean::cnstr_set(x_565, 0, x_562); +return x_565; +} +else +{ +obj* x_566; obj* x_569; obj* x_571; +x_566 = lean::cnstr_get(x_554, 0); +lean::inc(x_566); +lean::dec(x_554); +x_569 = lean::cnstr_get(x_566, 1); +lean::inc(x_569); +x_571 = lean::cnstr_get(x_569, 3); +lean::inc(x_571); +if (lean::obj_tag(x_571) == 0) +{ +obj* x_578; obj* x_579; obj* x_581; +lean::dec(x_347); +lean::dec(x_547); +lean::dec(x_550); +lean::dec(x_566); +lean::inc(x_0); +if (lean::is_scalar(x_500)) { + x_578 = lean::alloc_cnstr(1, 1, 0); +} else { + x_578 = x_500; +} +lean::cnstr_set(x_578, 0, x_0); +x_579 = l___private_init_lean_expander_1__popStxArg___closed__1; +lean::inc(x_3); +x_581 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_578, x_579, x_569, x_3); +lean::dec(x_569); +lean::dec(x_578); +if (lean::obj_tag(x_581) == 0) +{ +obj* x_587; obj* x_589; obj* x_590; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_345); +x_587 = lean::cnstr_get(x_581, 0); +if (lean::is_exclusive(x_581)) { + x_589 = x_581; +} else { + lean::inc(x_587); + lean::dec(x_581); + x_589 = lean::box(0); +} +if (lean::is_scalar(x_589)) { + x_590 = lean::alloc_cnstr(0, 1, 0); +} else { + x_590 = x_589; +} +lean::cnstr_set(x_590, 0, x_587); +return x_590; +} +else +{ +obj* x_591; obj* x_594; +x_591 = lean::cnstr_get(x_581, 0); +lean::inc(x_591); +lean::dec(x_581); +x_594 = lean::cnstr_get(x_591, 1); +lean::inc(x_594); +lean::dec(x_591); +x_1 = x_345; +x_2 = x_594; +goto _start; +} +} +else +{ +obj* x_599; obj* x_601; obj* x_602; obj* x_604; obj* x_606; obj* x_608; obj* x_609; obj* x_611; obj* x_612; obj* x_615; obj* x_616; obj* x_618; obj* x_619; obj* x_620; obj* x_621; obj* x_622; obj* x_623; obj* x_626; obj* x_627; obj* x_628; obj* x_630; obj* x_631; obj* x_632; obj* x_633; obj* x_634; obj* x_637; obj* x_638; obj* x_639; obj* x_640; obj* x_641; +lean::dec(x_500); +x_599 = lean::cnstr_get(x_566, 0); +if (lean::is_exclusive(x_566)) { + lean::cnstr_release(x_566, 1); + x_601 = x_566; +} else { + lean::inc(x_599); + lean::dec(x_566); + x_601 = lean::box(0); +} +x_602 = lean::cnstr_get(x_569, 0); +x_604 = lean::cnstr_get(x_569, 1); +x_606 = lean::cnstr_get(x_569, 2); +if (lean::is_exclusive(x_569)) { + lean::cnstr_release(x_569, 3); + x_608 = x_569; +} else { + lean::inc(x_602); + lean::inc(x_604); + lean::inc(x_606); + lean::dec(x_569); + x_608 = lean::box(0); +} +x_609 = lean::cnstr_get(x_571, 0); +lean::inc(x_609); +x_611 = l_Lean_Parser_Term_lambda_HasView; +x_612 = lean::cnstr_get(x_611, 1); +lean::inc(x_612); +lean::dec(x_611); +x_615 = lean::box(0); +x_616 = lean::cnstr_get(x_550, 3); +lean::inc(x_616); +x_618 = lean::box(0); +if (lean::is_scalar(x_347)) { + x_619 = lean::alloc_cnstr(1, 2, 0); +} else { + x_619 = x_347; +} +lean::cnstr_set(x_619, 0, x_616); +lean::cnstr_set(x_619, 1, x_618); +x_620 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_619); +x_621 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_621, 0, x_620); +lean::cnstr_set(x_621, 1, x_615); +x_622 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_622, 0, x_621); +x_623 = lean::cnstr_get(x_550, 5); +lean::inc(x_623); +lean::dec(x_550); +x_626 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_627 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; +x_628 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_628, 0, x_626); +lean::cnstr_set(x_628, 1, x_622); +lean::cnstr_set(x_628, 2, x_627); +lean::cnstr_set(x_628, 3, x_623); +lean::inc(x_612); +x_630 = lean::apply_1(x_612, x_628); +x_631 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_631, 0, x_626); +lean::cnstr_set(x_631, 1, x_609); +lean::cnstr_set(x_631, 2, x_627); +lean::cnstr_set(x_631, 3, x_599); +x_632 = lean::apply_1(x_612, x_631); +x_633 = l_Lean_Parser_Term_app_HasView; +x_634 = lean::cnstr_get(x_633, 1); +lean::inc(x_634); +lean::dec(x_633); +x_637 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_637, 0, x_630); +lean::cnstr_set(x_637, 1, x_632); +x_638 = lean::apply_1(x_634, x_637); +if (lean::is_scalar(x_601)) { + x_639 = lean::alloc_cnstr(0, 2, 0); +} else { + x_639 = x_601; +} +lean::cnstr_set(x_639, 0, x_547); +lean::cnstr_set(x_639, 1, x_638); +x_640 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_640, 0, x_639); +lean::cnstr_set(x_640, 1, x_606); +if (lean::is_scalar(x_608)) { + x_641 = lean::alloc_cnstr(0, 4, 0); +} else { + x_641 = x_608; +} +lean::cnstr_set(x_641, 0, x_602); +lean::cnstr_set(x_641, 1, x_604); +lean::cnstr_set(x_641, 2, x_640); +lean::cnstr_set(x_641, 3, x_571); +x_1 = x_345; +x_2 = x_641; +goto _start; +} +} +} +default: +{ +obj* x_646; obj* x_650; obj* x_651; obj* x_653; +lean::dec(x_455); +lean::dec(x_501); +lean::dec(x_347); +x_646 = lean::cnstr_get(x_359, 1); +lean::inc(x_646); +lean::dec(x_359); +lean::inc(x_0); +if (lean::is_scalar(x_500)) { + x_650 = lean::alloc_cnstr(1, 1, 0); +} else { + x_650 = x_500; +} +lean::cnstr_set(x_650, 0, x_0); +x_651 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1; +lean::inc(x_3); +x_653 = l_Lean_Expander_error___at___private_init_lean_expander_1__popStxArg___spec__1___rarg(x_650, x_651, x_646, x_3); +lean::dec(x_646); +lean::dec(x_650); +if (lean::obj_tag(x_653) == 0) +{ +obj* x_659; obj* x_661; obj* x_662; +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_345); +x_659 = lean::cnstr_get(x_653, 0); +if (lean::is_exclusive(x_653)) { + x_661 = x_653; +} else { + lean::inc(x_659); + lean::dec(x_653); + x_661 = lean::box(0); +} +if (lean::is_scalar(x_661)) { + x_662 = lean::alloc_cnstr(0, 1, 0); +} else { + x_662 = x_661; +} +lean::cnstr_set(x_662, 0, x_659); +return x_662; +} +else +{ +obj* x_663; obj* x_666; +x_663 = lean::cnstr_get(x_653, 0); +lean::inc(x_663); +lean::dec(x_653); +x_666 = lean::cnstr_get(x_663, 1); +lean::inc(x_666); +lean::dec(x_663); +x_1 = x_345; +x_2 = x_666; +goto _start; +} +} +} +} +} +} +} +} +} +} +} +} obj* l_Lean_Expander_mkNotationTransformer___lambda__1(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_3; x_2 = l_Lean_Parser_identUnivs; -x_3 = l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__6(x_2, x_1); +x_3 = l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__8(x_2, x_1); if (lean::obj_tag(x_3) == 0) { obj* x_5; @@ -2882,7 +4403,7 @@ lean::dec(x_6); x_14 = lean::cnstr_get(x_11, 2); lean::inc(x_14); lean::dec(x_11); -x_17 = l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__7(x_14, x_0); +x_17 = l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__9(x_14, x_0); lean::dec(x_14); return x_17; } @@ -2917,7 +4438,7 @@ return x_8; } else { -obj* x_10; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_23; obj* x_25; obj* x_27; +obj* x_10; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_23; obj* x_25; x_10 = lean::cnstr_get(x_4, 0); if (lean::is_exclusive(x_4)) { lean::cnstr_set(x_4, 0, lean::box(0)); @@ -2947,163 +4468,214 @@ x_25 = lean::cnstr_get(x_23, 0); lean::inc(x_25); if (lean::obj_tag(x_25) == 0) { -obj* x_29; obj* x_30; -x_29 = lean::box(0); -x_30 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_30, 0, x_29); -lean::cnstr_set(x_30, 1, x_19); -x_27 = x_30; -goto lbl_28; -} -else -{ -obj* x_31; obj* x_35; -x_31 = lean::cnstr_get(x_25, 0); -lean::inc(x_31); -lean::dec(x_25); -lean::inc(x_2); -x_35 = l___private_init_lean_expander_1__popStxArg(x_19, x_2); -if (lean::obj_tag(x_35) == 0) -{ -obj* x_42; obj* x_44; obj* x_45; -lean::dec(x_1); -lean::dec(x_12); -lean::dec(x_2); -lean::dec(x_31); -lean::dec(x_20); +obj* x_27; obj* x_30; +x_27 = lean::cnstr_get(x_23, 1); +lean::inc(x_27); lean::dec(x_23); -x_42 = lean::cnstr_get(x_35, 0); -if (lean::is_exclusive(x_35)) { - x_44 = x_35; -} else { - lean::inc(x_42); - lean::dec(x_35); - x_44 = lean::box(0); -} -if (lean::is_scalar(x_44)) { - x_45 = lean::alloc_cnstr(0, 1, 0); -} else { - x_45 = x_44; -} -lean::cnstr_set(x_45, 0, x_42); -return x_45; -} -else +x_30 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6(x_1, x_27, x_19, x_2); +if (lean::obj_tag(x_30) == 0) { -obj* x_46; obj* x_49; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_59; obj* x_61; obj* x_62; obj* x_65; obj* x_66; obj* x_67; -x_46 = lean::cnstr_get(x_35, 0); -lean::inc(x_46); -lean::dec(x_35); -x_49 = lean::cnstr_get(x_46, 0); -x_51 = lean::cnstr_get(x_46, 1); -if (lean::is_exclusive(x_46)) { - x_53 = x_46; -} else { - lean::inc(x_49); - lean::inc(x_51); - lean::dec(x_46); - x_53 = lean::box(0); -} -x_54 = lean::cnstr_get(x_51, 0); -lean::inc(x_54); -x_56 = lean::cnstr_get(x_51, 1); -lean::inc(x_56); -if (lean::is_scalar(x_53)) { - x_58 = lean::alloc_cnstr(0, 2, 0); -} else { - x_58 = x_53; -} -lean::cnstr_set(x_58, 0, x_31); -lean::cnstr_set(x_58, 1, x_49); -x_59 = lean::cnstr_get(x_51, 2); -lean::inc(x_59); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_58); -lean::cnstr_set(x_61, 1, x_59); -x_62 = lean::cnstr_get(x_51, 3); -lean::inc(x_62); -lean::dec(x_51); -x_65 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_65, 0, x_54); -lean::cnstr_set(x_65, 1, x_56); -lean::cnstr_set(x_65, 2, x_61); -lean::cnstr_set(x_65, 3, x_62); -x_66 = lean::box(0); -x_67 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_65); -x_27 = x_67; -goto lbl_28; -} -} -lbl_28: -{ -obj* x_68; obj* x_71; obj* x_74; -x_68 = lean::cnstr_get(x_27, 1); -lean::inc(x_68); -lean::dec(x_27); -x_71 = lean::cnstr_get(x_23, 1); -lean::inc(x_71); -lean::dec(x_23); -x_74 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4(x_1, x_71, x_68, x_2); -if (lean::obj_tag(x_74) == 0) -{ -obj* x_77; obj* x_79; obj* x_80; +obj* x_33; obj* x_35; obj* x_36; lean::dec(x_12); lean::dec(x_20); -x_77 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_79 = x_74; +x_33 = lean::cnstr_get(x_30, 0); +if (lean::is_exclusive(x_30)) { + x_35 = x_30; } else { - lean::inc(x_77); - lean::dec(x_74); - x_79 = lean::box(0); + lean::inc(x_33); + lean::dec(x_30); + x_35 = lean::box(0); } -if (lean::is_scalar(x_79)) { - x_80 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_35)) { + x_36 = lean::alloc_cnstr(0, 1, 0); } else { - x_80 = x_79; + x_36 = x_35; } -lean::cnstr_set(x_80, 0, x_77); -return x_80; +lean::cnstr_set(x_36, 0, x_33); +return x_36; } else { -obj* x_81; obj* x_83; obj* x_84; obj* x_87; obj* x_90; obj* x_91; obj* x_92; obj* x_95; obj* x_96; obj* x_97; -x_81 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_83 = x_74; +obj* x_37; obj* x_39; obj* x_40; obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_51; obj* x_52; obj* x_53; +x_37 = lean::cnstr_get(x_30, 0); +if (lean::is_exclusive(x_30)) { + x_39 = x_30; } else { - lean::inc(x_81); - lean::dec(x_74); - x_83 = lean::box(0); + lean::inc(x_37); + lean::dec(x_30); + x_39 = lean::box(0); } -x_84 = lean::cnstr_get(x_81, 1); -lean::inc(x_84); -lean::dec(x_81); -x_87 = lean::cnstr_get(x_84, 2); -lean::inc(x_87); -lean::dec(x_84); -x_90 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__5(x_87); -x_91 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_mkNotationTransformer___lambda__1), 2, 1); -lean::closure_set(x_91, 0, x_90); -x_92 = lean::cnstr_get(x_20, 4); -lean::inc(x_92); +x_40 = lean::cnstr_get(x_37, 1); +lean::inc(x_40); +lean::dec(x_37); +x_43 = lean::cnstr_get(x_40, 2); +lean::inc(x_43); +lean::dec(x_40); +x_46 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__7(x_43); +x_47 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_mkNotationTransformer___lambda__1), 2, 1); +lean::closure_set(x_47, 0, x_46); +x_48 = lean::cnstr_get(x_20, 4); +lean::inc(x_48); lean::dec(x_20); -x_95 = l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_replace___spec__1(x_91, x_92); +x_51 = l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_replace___spec__1(x_47, x_48); if (lean::is_scalar(x_12)) { - x_96 = lean::alloc_cnstr(1, 1, 0); + x_52 = lean::alloc_cnstr(1, 1, 0); } else { - x_96 = x_12; + x_52 = x_12; } -lean::cnstr_set(x_96, 0, x_95); -if (lean::is_scalar(x_83)) { - x_97 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_52, 0, x_51); +if (lean::is_scalar(x_39)) { + x_53 = lean::alloc_cnstr(1, 1, 0); } else { - x_97 = x_83; + x_53 = x_39; +} +lean::cnstr_set(x_53, 0, x_52); +return x_53; +} +} +else +{ +obj* x_55; obj* x_57; obj* x_59; +lean::dec(x_12); +x_55 = lean::cnstr_get(x_25, 0); +if (lean::is_exclusive(x_25)) { + lean::cnstr_set(x_25, 0, lean::box(0)); + x_57 = x_25; +} else { + lean::inc(x_55); + lean::dec(x_25); + x_57 = lean::box(0); +} +lean::inc(x_2); +x_59 = l___private_init_lean_expander_1__popStxArg(x_19, x_2); +if (lean::obj_tag(x_59) == 0) +{ +obj* x_66; obj* x_68; obj* x_69; +lean::dec(x_1); +lean::dec(x_2); +lean::dec(x_57); +lean::dec(x_20); +lean::dec(x_23); +lean::dec(x_55); +x_66 = lean::cnstr_get(x_59, 0); +if (lean::is_exclusive(x_59)) { + x_68 = x_59; +} else { + lean::inc(x_66); + lean::dec(x_59); + x_68 = lean::box(0); +} +if (lean::is_scalar(x_68)) { + x_69 = lean::alloc_cnstr(0, 1, 0); +} else { + x_69 = x_68; +} +lean::cnstr_set(x_69, 0, x_66); +return x_69; +} +else +{ +obj* x_70; obj* x_73; obj* x_75; obj* x_77; obj* x_78; obj* x_80; obj* x_82; obj* x_83; obj* x_85; obj* x_86; obj* x_89; obj* x_90; obj* x_93; +x_70 = lean::cnstr_get(x_59, 0); +lean::inc(x_70); +lean::dec(x_59); +x_73 = lean::cnstr_get(x_70, 0); +x_75 = lean::cnstr_get(x_70, 1); +if (lean::is_exclusive(x_70)) { + x_77 = x_70; +} else { + lean::inc(x_73); + lean::inc(x_75); + lean::dec(x_70); + x_77 = lean::box(0); +} +x_78 = lean::cnstr_get(x_75, 0); +lean::inc(x_78); +x_80 = lean::cnstr_get(x_75, 1); +lean::inc(x_80); +if (lean::is_scalar(x_77)) { + x_82 = lean::alloc_cnstr(0, 2, 0); +} else { + x_82 = x_77; +} +lean::cnstr_set(x_82, 0, x_55); +lean::cnstr_set(x_82, 1, x_73); +x_83 = lean::cnstr_get(x_75, 2); +lean::inc(x_83); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_82); +lean::cnstr_set(x_85, 1, x_83); +x_86 = lean::cnstr_get(x_75, 3); +lean::inc(x_86); +lean::dec(x_75); +x_89 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_89, 0, x_78); +lean::cnstr_set(x_89, 1, x_80); +lean::cnstr_set(x_89, 2, x_85); +lean::cnstr_set(x_89, 3, x_86); +x_90 = lean::cnstr_get(x_23, 1); +lean::inc(x_90); +lean::dec(x_23); +x_93 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__10(x_1, x_90, x_89, x_2); +if (lean::obj_tag(x_93) == 0) +{ +obj* x_96; obj* x_98; obj* x_99; +lean::dec(x_57); +lean::dec(x_20); +x_96 = lean::cnstr_get(x_93, 0); +if (lean::is_exclusive(x_93)) { + x_98 = x_93; +} else { + lean::inc(x_96); + lean::dec(x_93); + x_98 = lean::box(0); +} +if (lean::is_scalar(x_98)) { + x_99 = lean::alloc_cnstr(0, 1, 0); +} else { + x_99 = x_98; +} +lean::cnstr_set(x_99, 0, x_96); +return x_99; +} +else +{ +obj* x_100; obj* x_102; obj* x_103; obj* x_106; obj* x_109; obj* x_110; obj* x_111; obj* x_114; obj* x_115; obj* x_116; +x_100 = lean::cnstr_get(x_93, 0); +if (lean::is_exclusive(x_93)) { + x_102 = x_93; +} else { + lean::inc(x_100); + lean::dec(x_93); + x_102 = lean::box(0); +} +x_103 = lean::cnstr_get(x_100, 1); +lean::inc(x_103); +lean::dec(x_100); +x_106 = lean::cnstr_get(x_103, 2); +lean::inc(x_106); +lean::dec(x_103); +x_109 = l_List_map___main___at_Lean_Expander_mkNotationTransformer___spec__7(x_106); +x_110 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_mkNotationTransformer___lambda__1), 2, 1); +lean::closure_set(x_110, 0, x_109); +x_111 = lean::cnstr_get(x_20, 4); +lean::inc(x_111); +lean::dec(x_20); +x_114 = l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_replace___spec__1(x_110, x_111); +if (lean::is_scalar(x_57)) { + x_115 = lean::alloc_cnstr(1, 1, 0); +} else { + x_115 = x_57; +} +lean::cnstr_set(x_115, 0, x_114); +if (lean::is_scalar(x_102)) { + x_116 = lean::alloc_cnstr(1, 1, 0); +} else { + x_116 = x_102; +} +lean::cnstr_set(x_116, 0, x_115); +return x_116; } -lean::cnstr_set(x_97, 0, x_96); -return x_97; } } } @@ -3127,20 +4699,48 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__6___boxed(obj* x_0, obj* x_1) { +obj* l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__6(x_0, x_1); +x_2 = l_StateT_map___at_Lean_Expander_mkNotationTransformer___spec__2(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___rarg(x_0, x_1, x_2); +lean::dec(x_2); +return x_3; +} +} +obj* l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_StateT_pure___at_Lean_Expander_mkNotationTransformer___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__8___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Lean_Parser_tryView___at_Lean_Expander_mkNotationTransformer___spec__8(x_0, x_1); lean::dec(x_0); return x_2; } } -obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__7___boxed(obj* x_0, obj* x_1) { +obj* l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__9___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__7(x_0, x_1); +x_2 = l_List_lookup___main___at_Lean_Expander_mkNotationTransformer___spec__9(x_0, x_1); lean::dec(x_0); return x_2; } @@ -6904,108 +8504,170 @@ lean::dec(x_3); return x_4; } } -obj* l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__1(obj* x_0, obj* x_1) { +obj* l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::apply_1(x_1, x_2); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_5; obj* x_7; obj* x_8; +lean::dec(x_0); +x_5 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_7 = x_3; +} else { + lean::inc(x_5); + lean::dec(x_3); + x_7 = lean::box(0); +} +if (lean::is_scalar(x_7)) { + x_8 = lean::alloc_cnstr(0, 1, 0); +} else { + x_8 = x_7; +} +lean::cnstr_set(x_8, 0, x_5); +return x_8; +} +else +{ +obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_9 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_11 = x_3; +} else { + lean::inc(x_9); + lean::dec(x_3); + x_11 = lean::box(0); +} +x_12 = lean::apply_1(x_0, x_9); +if (lean::is_scalar(x_11)) { + x_13 = lean::alloc_cnstr(1, 1, 0); +} else { + x_13 = x_11; +} +lean::cnstr_set(x_13, 0, x_12); +return x_13; +} +} +} +obj* l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___rarg), 3, 0); +return x_2; +} +} +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2, 0, x_0); +return x_2; +} +} +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__3(obj* x_0, obj* x_1) { _start: { if (lean::obj_tag(x_0) == 0) { -obj* x_3; +obj* x_3; obj* x_4; lean::dec(x_1); -x_3 = l_Lean_Expander_expandBracketedBinder___main___closed__4; -return x_3; +x_3 = lean::box(0); +x_4 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_4, 0, x_3); +return x_4; } else { -obj* x_4; obj* x_6; obj* x_8; obj* x_10; -x_4 = lean::cnstr_get(x_0, 0); -x_6 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_8 = x_0; -} else { - lean::inc(x_4); - lean::inc(x_6); - lean::dec(x_0); - x_8 = lean::box(0); -} +obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_13; +x_5 = lean::cnstr_get(x_0, 0); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 1); +lean::inc(x_7); +lean::dec(x_0); +x_10 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_expandBracketedBinder), 2, 1); +lean::closure_set(x_10, 0, x_5); +x_11 = l_List_mmap___main___rarg___closed__1; lean::inc(x_1); -x_10 = l_Lean_Expander_expandBracketedBinder___main(x_4, x_1); -if (lean::obj_tag(x_10) == 0) +x_13 = l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___rarg(x_11, x_10, x_1); +if (lean::obj_tag(x_13) == 0) { -obj* x_14; obj* x_16; obj* x_17; -lean::dec(x_8); -lean::dec(x_6); +obj* x_16; obj* x_18; obj* x_19; +lean::dec(x_7); lean::dec(x_1); -x_14 = lean::cnstr_get(x_10, 0); -if (lean::is_exclusive(x_10)) { - x_16 = x_10; +x_16 = lean::cnstr_get(x_13, 0); +if (lean::is_exclusive(x_13)) { + x_18 = x_13; } else { - lean::inc(x_14); - lean::dec(x_10); - x_16 = lean::box(0); + lean::inc(x_16); + lean::dec(x_13); + x_18 = lean::box(0); } -if (lean::is_scalar(x_16)) { - x_17 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_18)) { + x_19 = lean::alloc_cnstr(0, 1, 0); } else { - x_17 = x_16; + x_19 = x_18; } -lean::cnstr_set(x_17, 0, x_14); -return x_17; +lean::cnstr_set(x_19, 0, x_16); +return x_19; } else { -obj* x_18; obj* x_21; -x_18 = lean::cnstr_get(x_10, 0); -lean::inc(x_18); -lean::dec(x_10); -x_21 = l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__1(x_6, x_1); -if (lean::obj_tag(x_21) == 0) +obj* x_20; obj* x_23; +x_20 = lean::cnstr_get(x_13, 0); +lean::inc(x_20); +lean::dec(x_13); +x_23 = l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__3(x_7, x_1); +if (lean::obj_tag(x_23) == 0) { -obj* x_24; obj* x_26; obj* x_27; -lean::dec(x_8); -lean::dec(x_18); -x_24 = lean::cnstr_get(x_21, 0); -if (lean::is_exclusive(x_21)) { - x_26 = x_21; +obj* x_25; obj* x_27; obj* x_28; +lean::dec(x_20); +x_25 = lean::cnstr_get(x_23, 0); +if (lean::is_exclusive(x_23)) { + x_27 = x_23; } else { - lean::inc(x_24); - lean::dec(x_21); - x_26 = lean::box(0); + lean::inc(x_25); + lean::dec(x_23); + x_27 = lean::box(0); } -if (lean::is_scalar(x_26)) { - x_27 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_27)) { + x_28 = lean::alloc_cnstr(0, 1, 0); } else { - x_27 = x_26; + x_28 = x_27; } -lean::cnstr_set(x_27, 0, x_24); -return x_27; +lean::cnstr_set(x_28, 0, x_25); +return x_28; } else { -obj* x_28; obj* x_30; obj* x_31; obj* x_32; -x_28 = lean::cnstr_get(x_21, 0); -if (lean::is_exclusive(x_21)) { - x_30 = x_21; +obj* x_29; obj* x_31; obj* x_32; obj* x_33; +x_29 = lean::cnstr_get(x_23, 0); +if (lean::is_exclusive(x_23)) { + x_31 = x_23; } else { - lean::inc(x_28); - lean::dec(x_21); - x_30 = lean::box(0); + lean::inc(x_29); + lean::dec(x_23); + x_31 = lean::box(0); } -if (lean::is_scalar(x_8)) { - x_31 = lean::alloc_cnstr(1, 2, 0); +x_32 = lean::apply_1(x_20, x_29); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(1, 1, 0); } else { - x_31 = x_8; + x_33 = x_31; } -lean::cnstr_set(x_31, 0, x_18); -lean::cnstr_set(x_31, 1, x_28); -if (lean::is_scalar(x_30)) { - x_32 = lean::alloc_cnstr(1, 1, 0); -} else { - x_32 = x_30; -} -lean::cnstr_set(x_32, 0, x_31); -return x_32; +lean::cnstr_set(x_33, 0, x_32); +return x_33; } } } @@ -7031,7 +8693,7 @@ if (lean::is_exclusive(x_5)) { lean::dec(x_5); x_8 = lean::box(0); } -x_9 = l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__1(x_6, x_1); +x_9 = l_List_mmap___main___at_Lean_Expander_bracketedBinders_transform___spec__3(x_6, x_1); if (lean::obj_tag(x_9) == 0) { obj* x_11; obj* x_13; obj* x_14; @@ -7096,6 +8758,34 @@ return x_28; } } } +obj* l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_ReaderT_pure___at_Lean_Expander_bracketedBinders_transform___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_Expander_lambda_transform___lambda__1(obj* x_0, obj* x_1) { _start: { @@ -7104,8 +8794,8 @@ x_2 = l_Lean_Parser_Term_lambda_HasView; x_3 = lean::cnstr_get(x_2, 1); lean::inc(x_3); lean::dec(x_2); -x_6 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_7 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_6 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_7 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_8 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_8, 0, x_6); lean::cnstr_set(x_8, 1, x_0); @@ -7153,7 +8843,7 @@ lean::dec(x_3); x_7 = lean::cnstr_get(x_0, 0); lean::inc(x_7); lean::dec(x_0); -x_10 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_10 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_11 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_11, 0, x_7); lean::cnstr_set(x_11, 1, x_1); @@ -7276,7 +8966,7 @@ x_20 = lean::cnstr_get(x_6, 2); lean::inc(x_20); lean::dec(x_6); x_23 = l_Lean_Expander_depArrow_transform___closed__1; -x_24 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_24 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_25 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_25, 0, x_23); lean::cnstr_set(x_25, 1, x_19); @@ -7355,7 +9045,7 @@ x_20 = lean::cnstr_get(x_6, 2); lean::inc(x_20); lean::dec(x_6); x_23 = l_Lean_Expander_depArrow_transform___closed__1; -x_24 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_24 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_25 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_25, 0, x_23); lean::cnstr_set(x_25, 1, x_19); @@ -7732,8 +9422,8 @@ x_27 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_27, 0, x_26); x_28 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_28, 0, x_27); -x_29 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_30 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_29 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_30 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_31 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_31, 0, x_29); lean::cnstr_set(x_31, 1, x_28); @@ -7758,8 +9448,8 @@ lean::dec(x_6); x_41 = lean::cnstr_get(x_7, 0); lean::inc(x_41); lean::dec(x_7); -x_44 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_45 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_44 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_45 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_46 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_46, 0, x_44); lean::cnstr_set(x_46, 1, x_41); @@ -7892,8 +9582,8 @@ x_43 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_43, 0, x_42); x_44 = lean::cnstr_get(x_6, 4); lean::inc(x_44); -x_46 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_47 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_46 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_47 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_48 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_48, 0, x_46); lean::cnstr_set(x_48, 1, x_43); @@ -8126,7 +9816,7 @@ lean::dec(x_60); x_64 = l_Lean_Expander_getOptType___main(x_46); lean::dec(x_46); x_66 = l_Lean_Expander_depArrow_transform___closed__1; -x_67 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_67 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; lean::inc(x_54); x_69 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_69, 0, x_66); @@ -8162,7 +9852,7 @@ lean::inc(x_79); lean::dec(x_78); x_82 = lean::cnstr_get(x_5, 3); lean::inc(x_82); -x_84 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; +x_84 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; x_85 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_85, 0, x_84); lean::cnstr_set(x_85, 1, x_54); @@ -8326,7 +10016,7 @@ x_34 = lean::cnstr_get(x_10, 1); lean::inc(x_34); lean::dec(x_10); x_37 = l_Lean_Expander_depArrow_transform___closed__1; -x_38 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_38 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_39 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_39, 0, x_37); lean::cnstr_set(x_39, 1, x_21); @@ -8915,7 +10605,7 @@ x_43 = lean::cnstr_get(x_20, 1); lean::inc(x_43); lean::dec(x_20); x_46 = l_Lean_Expander_depArrow_transform___closed__1; -x_47 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_47 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_48 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_48, 0, x_46); lean::cnstr_set(x_48, 1, x_28); @@ -9204,7 +10894,7 @@ x_7 = l_Lean_Parser_Combinators_node___at_Lean_Parser_command_NotationSpec_prece return x_7; } } -obj* _init_l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___closed__1() { +obj* _init_l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; @@ -9238,6 +10928,139 @@ lean::cnstr_set(x_17, 0, x_16); return x_17; } } +obj* l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1(obj* x_0, obj* x_1) { +_start: +{ +switch (lean::obj_tag(x_0)) { +case 0: +{ +obj* x_2; obj* x_4; +x_2 = lean::cnstr_get(x_0, 0); +lean::inc(x_2); +x_4 = lean::cnstr_get(x_2, 1); +lean::inc(x_4); +if (lean::obj_tag(x_4) == 0) +{ +obj* x_8; +lean::dec(x_4); +lean::dec(x_2); +x_8 = l_Lean_Expander_expandBracketedBinder___main(x_0, x_1); +return x_8; +} +else +{ +obj* x_9; obj* x_11; obj* x_12; +x_9 = lean::cnstr_get(x_4, 0); +if (lean::is_exclusive(x_4)) { + lean::cnstr_set(x_4, 0, lean::box(0)); + x_11 = x_4; +} else { + lean::inc(x_9); + lean::dec(x_4); + x_11 = lean::box(0); +} +x_12 = lean::cnstr_get(x_9, 1); +lean::inc(x_12); +if (lean::obj_tag(x_12) == 0) +{ +obj* x_14; +x_14 = lean::cnstr_get(x_9, 2); +lean::inc(x_14); +if (lean::obj_tag(x_14) == 0) +{ +obj* x_16; obj* x_17; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +if (lean::is_exclusive(x_0)) { + lean::cnstr_release(x_0, 0); + x_16 = x_0; +} else { + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::cnstr_get(x_2, 0); +x_19 = lean::cnstr_get(x_2, 2); +if (lean::is_exclusive(x_2)) { + lean::cnstr_release(x_2, 1); + x_21 = x_2; +} else { + lean::inc(x_17); + lean::inc(x_19); + lean::dec(x_2); + x_21 = lean::box(0); +} +x_22 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + lean::cnstr_release(x_9, 1); + lean::cnstr_release(x_9, 2); + x_24 = x_9; +} else { + lean::inc(x_22); + lean::dec(x_9); + x_24 = lean::box(0); +} +x_25 = l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1___closed__1; +if (lean::is_scalar(x_24)) { + x_26 = lean::alloc_cnstr(0, 3, 0); +} else { + x_26 = x_24; +} +lean::cnstr_set(x_26, 0, x_22); +lean::cnstr_set(x_26, 1, x_25); +lean::cnstr_set(x_26, 2, x_14); +if (lean::is_scalar(x_11)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_11; +} +lean::cnstr_set(x_27, 0, x_26); +if (lean::is_scalar(x_21)) { + x_28 = lean::alloc_cnstr(0, 3, 0); +} else { + x_28 = x_21; +} +lean::cnstr_set(x_28, 0, x_17); +lean::cnstr_set(x_28, 1, x_27); +lean::cnstr_set(x_28, 2, x_19); +if (lean::is_scalar(x_16)) { + x_29 = lean::alloc_cnstr(0, 1, 0); +} else { + x_29 = x_16; +} +lean::cnstr_set(x_29, 0, x_28); +x_30 = l_Lean_Expander_expandBracketedBinder___main(x_29, x_1); +return x_30; +} +else +{ +obj* x_35; +lean::dec(x_11); +lean::dec(x_9); +lean::dec(x_2); +lean::dec(x_14); +x_35 = l_Lean_Expander_expandBracketedBinder___main(x_0, x_1); +return x_35; +} +} +else +{ +obj* x_40; +lean::dec(x_11); +lean::dec(x_9); +lean::dec(x_12); +lean::dec(x_2); +x_40 = l_Lean_Expander_expandBracketedBinder___main(x_0, x_1); +return x_40; +} +} +} +default: +{ +obj* x_41; +x_41 = l_Lean_Expander_expandBracketedBinder___main(x_0, x_1); +return x_41; +} +} +} +} obj* l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1(obj* x_0, obj* x_1) { _start: { @@ -9250,235 +11073,84 @@ return x_3; } else { -obj* x_4; obj* x_6; obj* x_8; obj* x_9; +obj* x_4; obj* x_6; obj* x_9; obj* x_10; obj* x_12; x_4 = lean::cnstr_get(x_0, 0); +lean::inc(x_4); x_6 = lean::cnstr_get(x_0, 1); -if (lean::is_exclusive(x_0)) { - lean::cnstr_set(x_0, 0, lean::box(0)); - lean::cnstr_set(x_0, 1, lean::box(0)); - x_8 = x_0; -} else { - lean::inc(x_4); - lean::inc(x_6); - lean::dec(x_0); - x_8 = lean::box(0); -} -switch (lean::obj_tag(x_4)) { -case 0: -{ -obj* x_11; obj* x_13; -x_11 = lean::cnstr_get(x_4, 0); -lean::inc(x_11); -x_13 = lean::cnstr_get(x_11, 1); -lean::inc(x_13); -if (lean::obj_tag(x_13) == 0) -{ -obj* x_18; -lean::dec(x_11); -lean::dec(x_13); +lean::inc(x_6); +lean::dec(x_0); +x_9 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1), 2, 1); +lean::closure_set(x_9, 0, x_4); +x_10 = l_List_mmap___main___rarg___closed__1; lean::inc(x_1); -x_18 = l_Lean_Expander_expandBracketedBinder___main(x_4, x_1); -x_9 = x_18; -goto lbl_10; -} -else +x_12 = l_ReaderT_map___at_Lean_Expander_bracketedBinders_transform___spec__1___rarg(x_10, x_9, x_1); +if (lean::obj_tag(x_12) == 0) { -obj* x_19; obj* x_21; obj* x_22; -x_19 = lean::cnstr_get(x_13, 0); -if (lean::is_exclusive(x_13)) { - lean::cnstr_set(x_13, 0, lean::box(0)); - x_21 = x_13; -} else { - lean::inc(x_19); - lean::dec(x_13); - x_21 = lean::box(0); -} -x_22 = lean::cnstr_get(x_19, 1); -lean::inc(x_22); -if (lean::obj_tag(x_22) == 0) -{ -obj* x_24; -x_24 = lean::cnstr_get(x_19, 2); -lean::inc(x_24); -if (lean::obj_tag(x_24) == 0) -{ -obj* x_26; obj* x_27; obj* x_29; obj* x_31; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; -if (lean::is_exclusive(x_4)) { - lean::cnstr_release(x_4, 0); - x_26 = x_4; -} else { - lean::dec(x_4); - x_26 = lean::box(0); -} -x_27 = lean::cnstr_get(x_11, 0); -x_29 = lean::cnstr_get(x_11, 2); -if (lean::is_exclusive(x_11)) { - lean::cnstr_release(x_11, 1); - x_31 = x_11; -} else { - lean::inc(x_27); - lean::inc(x_29); - lean::dec(x_11); - x_31 = lean::box(0); -} -x_32 = lean::cnstr_get(x_19, 0); -if (lean::is_exclusive(x_19)) { - lean::cnstr_release(x_19, 1); - lean::cnstr_release(x_19, 2); - x_34 = x_19; -} else { - lean::inc(x_32); - lean::dec(x_19); - x_34 = lean::box(0); -} -x_35 = l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___closed__1; -if (lean::is_scalar(x_34)) { - x_36 = lean::alloc_cnstr(0, 3, 0); -} else { - x_36 = x_34; -} -lean::cnstr_set(x_36, 0, x_32); -lean::cnstr_set(x_36, 1, x_35); -lean::cnstr_set(x_36, 2, x_24); -if (lean::is_scalar(x_21)) { - x_37 = lean::alloc_cnstr(1, 1, 0); -} else { - x_37 = x_21; -} -lean::cnstr_set(x_37, 0, x_36); -if (lean::is_scalar(x_31)) { - x_38 = lean::alloc_cnstr(0, 3, 0); -} else { - x_38 = x_31; -} -lean::cnstr_set(x_38, 0, x_27); -lean::cnstr_set(x_38, 1, x_37); -lean::cnstr_set(x_38, 2, x_29); -if (lean::is_scalar(x_26)) { - x_39 = lean::alloc_cnstr(0, 1, 0); -} else { - x_39 = x_26; -} -lean::cnstr_set(x_39, 0, x_38); -lean::inc(x_1); -x_41 = l_Lean_Expander_expandBracketedBinder___main(x_39, x_1); -x_9 = x_41; -goto lbl_10; -} -else -{ -obj* x_47; -lean::dec(x_11); -lean::dec(x_24); -lean::dec(x_19); -lean::dec(x_21); -lean::inc(x_1); -x_47 = l_Lean_Expander_expandBracketedBinder___main(x_4, x_1); -x_9 = x_47; -goto lbl_10; -} -} -else -{ -obj* x_53; -lean::dec(x_22); -lean::dec(x_11); -lean::dec(x_19); -lean::dec(x_21); -lean::inc(x_1); -x_53 = l_Lean_Expander_expandBracketedBinder___main(x_4, x_1); -x_9 = x_53; -goto lbl_10; -} -} -} -default: -{ -obj* x_55; -lean::inc(x_1); -x_55 = l_Lean_Expander_expandBracketedBinder___main(x_4, x_1); -x_9 = x_55; -goto lbl_10; -} -} -lbl_10: -{ -if (lean::obj_tag(x_9) == 0) -{ -obj* x_59; obj* x_61; obj* x_62; -lean::dec(x_8); +obj* x_15; obj* x_17; obj* x_18; lean::dec(x_6); lean::dec(x_1); -x_59 = lean::cnstr_get(x_9, 0); -if (lean::is_exclusive(x_9)) { - x_61 = x_9; +x_15 = lean::cnstr_get(x_12, 0); +if (lean::is_exclusive(x_12)) { + x_17 = x_12; } else { - lean::inc(x_59); - lean::dec(x_9); - x_61 = lean::box(0); + lean::inc(x_15); + lean::dec(x_12); + x_17 = lean::box(0); } -if (lean::is_scalar(x_61)) { - x_62 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_17)) { + x_18 = lean::alloc_cnstr(0, 1, 0); } else { - x_62 = x_61; + x_18 = x_17; } -lean::cnstr_set(x_62, 0, x_59); -return x_62; +lean::cnstr_set(x_18, 0, x_15); +return x_18; } else { -obj* x_63; obj* x_66; -x_63 = lean::cnstr_get(x_9, 0); -lean::inc(x_63); -lean::dec(x_9); -x_66 = l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1(x_6, x_1); -if (lean::obj_tag(x_66) == 0) +obj* x_19; obj* x_22; +x_19 = lean::cnstr_get(x_12, 0); +lean::inc(x_19); +lean::dec(x_12); +x_22 = l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1(x_6, x_1); +if (lean::obj_tag(x_22) == 0) { -obj* x_69; obj* x_71; obj* x_72; -lean::dec(x_8); -lean::dec(x_63); -x_69 = lean::cnstr_get(x_66, 0); -if (lean::is_exclusive(x_66)) { - x_71 = x_66; +obj* x_24; obj* x_26; obj* x_27; +lean::dec(x_19); +x_24 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_26 = x_22; } else { - lean::inc(x_69); - lean::dec(x_66); - x_71 = lean::box(0); + lean::inc(x_24); + lean::dec(x_22); + x_26 = lean::box(0); } -if (lean::is_scalar(x_71)) { - x_72 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_26)) { + x_27 = lean::alloc_cnstr(0, 1, 0); } else { - x_72 = x_71; + x_27 = x_26; } -lean::cnstr_set(x_72, 0, x_69); -return x_72; +lean::cnstr_set(x_27, 0, x_24); +return x_27; } else { -obj* x_73; obj* x_75; obj* x_76; obj* x_77; -x_73 = lean::cnstr_get(x_66, 0); -if (lean::is_exclusive(x_66)) { - x_75 = x_66; +obj* x_28; obj* x_30; obj* x_31; obj* x_32; +x_28 = lean::cnstr_get(x_22, 0); +if (lean::is_exclusive(x_22)) { + x_30 = x_22; } else { - lean::inc(x_73); - lean::dec(x_66); - x_75 = lean::box(0); + lean::inc(x_28); + lean::dec(x_22); + x_30 = lean::box(0); } -if (lean::is_scalar(x_8)) { - x_76 = lean::alloc_cnstr(1, 2, 0); +x_31 = lean::apply_1(x_19, x_28); +if (lean::is_scalar(x_30)) { + x_32 = lean::alloc_cnstr(1, 1, 0); } else { - x_76 = x_8; -} -lean::cnstr_set(x_76, 0, x_63); -lean::cnstr_set(x_76, 1, x_73); -if (lean::is_scalar(x_75)) { - x_77 = lean::alloc_cnstr(1, 1, 0); -} else { - x_77 = x_75; -} -lean::cnstr_set(x_77, 0, x_76); -return x_77; + x_32 = x_30; } +lean::cnstr_set(x_32, 0, x_31); +return x_32; } } } @@ -9657,8 +11329,8 @@ lean::cnstr_set(x_19, 0, x_18); x_20 = lean::cnstr_get(x_6, 4); lean::inc(x_20); lean::dec(x_6); -x_23 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2; -x_24 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3; +x_23 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2; +x_24 = l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3; x_25 = lean::alloc_cnstr(0, 4, 0); lean::cnstr_set(x_25, 0, x_23); lean::cnstr_set(x_25, 1, x_19); @@ -9837,6 +11509,278 @@ lean::dec(x_1); return x_2; } } +obj* l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_List_foldl___main___at_Lean_Expander_builtinTransformers___spec__2(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_1) == 0) +{ +return x_0; +} +else +{ +obj* x_2; obj* x_4; obj* x_7; obj* x_9; uint8 x_12; +x_2 = lean::cnstr_get(x_1, 0); +lean::inc(x_2); +x_4 = lean::cnstr_get(x_1, 1); +lean::inc(x_4); +lean::dec(x_1); +x_7 = lean::cnstr_get(x_2, 0); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_2, 1); +lean::inc(x_9); +lean::dec(x_2); +x_12 = l_RBNode_isRed___main___rarg(x_0); +if (x_12 == 0) +{ +obj* x_13; +x_13 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_0, x_7, x_9); +x_0 = x_13; +x_1 = x_4; +goto _start; +} +else +{ +obj* x_15; obj* x_16; +x_15 = l_RBNode_ins___main___at_Lean_Expander_builtinTransformers___spec__1(x_0, x_7, x_9); +x_16 = l_RBNode_setBlack___main___rarg(x_15); +x_0 = x_16; +x_1 = x_4; +goto _start; +} +} +} +} obj* _init_l_Lean_Expander_builtinTransformers() { _start: { @@ -10002,8 +11946,8 @@ lean::cnstr_set(x_79, 1, x_78); x_80 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_80, 0, x_2); lean::cnstr_set(x_80, 1, x_79); -x_81 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); -x_82 = l_RBMap_fromList___rarg(x_80, x_81); +x_81 = lean::box(0); +x_82 = l_List_foldl___main___at_Lean_Expander_builtinTransformers___spec__2(x_81, x_80); return x_82; } } @@ -10144,53 +12088,191 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Expander_error___at___p return x_1; } } -obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = lean::apply_2(x_1, x_2, x_3); +if (lean::obj_tag(x_4) == 0) +{ +obj* x_6; obj* x_8; obj* x_9; +lean::dec(x_0); +x_6 = lean::cnstr_get(x_4, 0); +if (lean::is_exclusive(x_4)) { + x_8 = x_4; +} else { + lean::inc(x_6); + lean::dec(x_4); + x_8 = lean::box(0); +} +if (lean::is_scalar(x_8)) { + x_9 = lean::alloc_cnstr(0, 1, 0); +} else { + x_9 = x_8; +} +lean::cnstr_set(x_9, 0, x_6); +return x_9; +} +else +{ +obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_10 = lean::cnstr_get(x_4, 0); +if (lean::is_exclusive(x_4)) { + x_12 = x_4; +} else { + lean::inc(x_10); + lean::dec(x_4); + x_12 = lean::box(0); +} +x_13 = lean::cnstr_get(x_10, 0); +x_15 = lean::cnstr_get(x_10, 1); +if (lean::is_exclusive(x_10)) { + x_17 = x_10; +} else { + lean::inc(x_13); + lean::inc(x_15); + lean::dec(x_10); + x_17 = lean::box(0); +} +x_18 = lean::apply_1(x_0, x_13); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(0, 2, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +lean::cnstr_set(x_19, 1, x_15); +if (lean::is_scalar(x_12)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_12; +} +lean::cnstr_set(x_20, 0, x_19); +return x_20; +} +} +} +obj* l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___rarg), 4, 0); +return x_2; +} +} +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_4; +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_4, 0, x_3); +return x_4; +} +} +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_expander_2__expandCore___main___spec__4(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_6; obj* x_7; obj* x_8; -lean::dec(x_3); +obj* x_5; obj* x_6; lean::dec(x_0); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_7, 0, x_6); -lean::cnstr_set(x_7, 1, x_2); -x_8 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_8, 0, x_7); -return x_8; +x_5 = lean::box(0); +x_6 = l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg(x_5, x_2, x_3); +lean::dec(x_3); +return x_6; } else { -obj* x_9; obj* x_11; obj* x_13; obj* x_16; -x_9 = lean::cnstr_get(x_1, 0); -x_11 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_set(x_1, 0, lean::box(0)); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_13 = x_1; -} else { - lean::inc(x_9); - lean::inc(x_11); - lean::dec(x_1); - x_13 = lean::box(0); -} -lean::inc(x_3); +obj* x_8; obj* x_10; obj* x_14; obj* x_15; obj* x_17; +x_8 = lean::cnstr_get(x_1, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_1, 1); +lean::inc(x_10); +lean::dec(x_1); lean::inc(x_0); -x_16 = l___private_init_lean_expander_2__expandCore___main(x_0, x_9, x_2, x_3); -if (lean::obj_tag(x_16) == 0) +x_14 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_expander_2__expandCore___main), 4, 2); +lean::closure_set(x_14, 0, x_0); +lean::closure_set(x_14, 1, x_8); +x_15 = l_List_mmap___main___rarg___closed__1; +lean::inc(x_3); +x_17 = l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___rarg(x_15, x_14, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { obj* x_21; obj* x_23; obj* x_24; lean::dec(x_3); lean::dec(x_0); -lean::dec(x_11); -lean::dec(x_13); -x_21 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_23 = x_16; +lean::dec(x_10); +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { lean::inc(x_21); - lean::dec(x_16); + lean::dec(x_17); x_23 = lean::box(0); } if (lean::is_scalar(x_23)) { @@ -10204,84 +12286,77 @@ return x_24; else { obj* x_25; obj* x_28; obj* x_30; obj* x_33; -x_25 = lean::cnstr_get(x_16, 0); +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -lean::dec(x_16); +lean::dec(x_17); x_28 = lean::cnstr_get(x_25, 0); lean::inc(x_28); x_30 = lean::cnstr_get(x_25, 1); lean::inc(x_30); lean::dec(x_25); -x_33 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__2(x_0, x_11, x_30, x_3); +x_33 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__5(x_0, x_10, x_30, x_3); if (lean::obj_tag(x_33) == 0) { -obj* x_36; obj* x_38; obj* x_39; -lean::dec(x_13); +obj* x_35; obj* x_37; obj* x_38; lean::dec(x_28); -x_36 = lean::cnstr_get(x_33, 0); +x_35 = lean::cnstr_get(x_33, 0); if (lean::is_exclusive(x_33)) { - x_38 = x_33; + x_37 = x_33; } else { - lean::inc(x_36); + lean::inc(x_35); lean::dec(x_33); - x_38 = lean::box(0); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_36); -return x_39; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_40; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_40 = lean::cnstr_get(x_33, 0); +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); if (lean::is_exclusive(x_33)) { - x_42 = x_33; + x_41 = x_33; } else { - lean::inc(x_40); + lean::inc(x_39); lean::dec(x_33); - x_42 = lean::box(0); + x_41 = lean::box(0); } -x_43 = lean::cnstr_get(x_40, 0); -x_45 = lean::cnstr_get(x_40, 1); -if (lean::is_exclusive(x_40)) { - x_47 = x_40; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_43); - lean::inc(x_45); - lean::dec(x_40); - x_47 = lean::box(0); + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_13)) { - x_48 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_48 = x_13; + x_48 = x_46; } -lean::cnstr_set(x_48, 0, x_28); -lean::cnstr_set(x_48, 1, x_43); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_49 = x_47; + x_49 = x_41; } lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_45); -if (lean::is_scalar(x_42)) { - x_50 = lean::alloc_cnstr(1, 1, 0); -} else { - x_50 = x_42; -} -lean::cnstr_set(x_50, 0, x_49); -return x_50; +return x_49; } } } } } -obj* l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__3(obj* x_0, obj* x_1) { +obj* l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__6(obj* x_0, obj* x_1) { _start: { if (lean::obj_tag(x_1) == 0) @@ -10314,7 +12389,7 @@ if (lean::is_scalar(x_8)) { lean::cnstr_set(x_11, 0, x_0); lean::cnstr_set(x_11, 1, x_9); x_12 = l_Lean_Parser_Syntax_flipScopes___main(x_11, x_4); -x_13 = l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__3(x_0, x_6); +x_13 = l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__6(x_0, x_6); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_12); lean::cnstr_set(x_14, 1, x_13); @@ -10322,53 +12397,45 @@ return x_14; } } } -obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_1) == 0) { -obj* x_6; obj* x_7; obj* x_8; -lean::dec(x_3); +obj* x_5; obj* x_6; lean::dec(x_0); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_7, 0, x_6); -lean::cnstr_set(x_7, 1, x_2); -x_8 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_8, 0, x_7); -return x_8; +x_5 = lean::box(0); +x_6 = l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg(x_5, x_2, x_3); +lean::dec(x_3); +return x_6; } else { -obj* x_9; obj* x_11; obj* x_13; obj* x_16; -x_9 = lean::cnstr_get(x_1, 0); -x_11 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_set(x_1, 0, lean::box(0)); - lean::cnstr_set(x_1, 1, lean::box(0)); - x_13 = x_1; -} else { - lean::inc(x_9); - lean::inc(x_11); - lean::dec(x_1); - x_13 = lean::box(0); -} -lean::inc(x_3); +obj* x_8; obj* x_10; obj* x_14; obj* x_15; obj* x_17; +x_8 = lean::cnstr_get(x_1, 0); +lean::inc(x_8); +x_10 = lean::cnstr_get(x_1, 1); +lean::inc(x_10); +lean::dec(x_1); lean::inc(x_0); -x_16 = l___private_init_lean_expander_2__expandCore___main(x_0, x_9, x_2, x_3); -if (lean::obj_tag(x_16) == 0) +x_14 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_expander_2__expandCore___main), 4, 2); +lean::closure_set(x_14, 0, x_0); +lean::closure_set(x_14, 1, x_8); +x_15 = l_List_mmap___main___rarg___closed__1; +lean::inc(x_3); +x_17 = l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___rarg(x_15, x_14, x_2, x_3); +if (lean::obj_tag(x_17) == 0) { obj* x_21; obj* x_23; obj* x_24; lean::dec(x_3); lean::dec(x_0); -lean::dec(x_11); -lean::dec(x_13); -x_21 = lean::cnstr_get(x_16, 0); -if (lean::is_exclusive(x_16)) { - x_23 = x_16; +lean::dec(x_10); +x_21 = lean::cnstr_get(x_17, 0); +if (lean::is_exclusive(x_17)) { + x_23 = x_17; } else { lean::inc(x_21); - lean::dec(x_16); + lean::dec(x_17); x_23 = lean::box(0); } if (lean::is_scalar(x_23)) { @@ -10382,78 +12449,71 @@ return x_24; else { obj* x_25; obj* x_28; obj* x_30; obj* x_33; -x_25 = lean::cnstr_get(x_16, 0); +x_25 = lean::cnstr_get(x_17, 0); lean::inc(x_25); -lean::dec(x_16); +lean::dec(x_17); x_28 = lean::cnstr_get(x_25, 0); lean::inc(x_28); x_30 = lean::cnstr_get(x_25, 1); lean::inc(x_30); lean::dec(x_25); -x_33 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__4(x_0, x_11, x_30, x_3); +x_33 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__7(x_0, x_10, x_30, x_3); if (lean::obj_tag(x_33) == 0) { -obj* x_36; obj* x_38; obj* x_39; -lean::dec(x_13); +obj* x_35; obj* x_37; obj* x_38; lean::dec(x_28); -x_36 = lean::cnstr_get(x_33, 0); +x_35 = lean::cnstr_get(x_33, 0); if (lean::is_exclusive(x_33)) { - x_38 = x_33; + x_37 = x_33; } else { - lean::inc(x_36); + lean::inc(x_35); lean::dec(x_33); - x_38 = lean::box(0); + x_37 = lean::box(0); } -if (lean::is_scalar(x_38)) { - x_39 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_37)) { + x_38 = lean::alloc_cnstr(0, 1, 0); } else { - x_39 = x_38; + x_38 = x_37; } -lean::cnstr_set(x_39, 0, x_36); -return x_39; +lean::cnstr_set(x_38, 0, x_35); +return x_38; } else { -obj* x_40; obj* x_42; obj* x_43; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_40 = lean::cnstr_get(x_33, 0); +obj* x_39; obj* x_41; obj* x_42; obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_33, 0); if (lean::is_exclusive(x_33)) { - x_42 = x_33; + x_41 = x_33; } else { - lean::inc(x_40); + lean::inc(x_39); lean::dec(x_33); - x_42 = lean::box(0); + x_41 = lean::box(0); } -x_43 = lean::cnstr_get(x_40, 0); -x_45 = lean::cnstr_get(x_40, 1); -if (lean::is_exclusive(x_40)) { - x_47 = x_40; +x_42 = lean::cnstr_get(x_39, 0); +x_44 = lean::cnstr_get(x_39, 1); +if (lean::is_exclusive(x_39)) { + x_46 = x_39; } else { - lean::inc(x_43); - lean::inc(x_45); - lean::dec(x_40); - x_47 = lean::box(0); + lean::inc(x_42); + lean::inc(x_44); + lean::dec(x_39); + x_46 = lean::box(0); } -if (lean::is_scalar(x_13)) { - x_48 = lean::alloc_cnstr(1, 2, 0); +x_47 = lean::apply_1(x_28, x_42); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_48 = x_13; + x_48 = x_46; } -lean::cnstr_set(x_48, 0, x_28); -lean::cnstr_set(x_48, 1, x_43); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_44); +if (lean::is_scalar(x_41)) { + x_49 = lean::alloc_cnstr(1, 1, 0); } else { - x_49 = x_47; + x_49 = x_41; } lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_45); -if (lean::is_scalar(x_42)) { - x_50 = lean::alloc_cnstr(1, 1, 0); -} else { - x_50 = x_42; -} -lean::cnstr_set(x_50, 0, x_49); -return x_50; +return x_49; } } } @@ -10492,7 +12552,7 @@ return x_11; } else { -obj* x_13; obj* x_16; obj* x_17; obj* x_19; obj* x_21; obj* x_23; obj* x_25; +obj* x_13; obj* x_16; obj* x_17; obj* x_19; obj* x_21; obj* x_23; lean::dec(x_1); x_13 = lean::cnstr_get(x_7, 0); lean::inc(x_13); @@ -10504,237 +12564,235 @@ x_19 = lean::cnstr_get(x_3, 1); lean::inc(x_19); x_21 = lean::cnstr_get(x_13, 0); lean::inc(x_21); -x_23 = l_Lean_NameMap_contains___rarg___closed__1; -lean::inc(x_21); -x_25 = l_RBNode_find___main___rarg(x_23, lean::box(0), x_19, x_21); -if (lean::obj_tag(x_25) == 0) +x_23 = l_RBNode_find___main___at___private_init_lean_expander_2__expandCore___main___spec__4(x_19, x_21); +if (lean::obj_tag(x_23) == 0) { -obj* x_26; obj* x_29; -x_26 = lean::cnstr_get(x_13, 1); -lean::inc(x_26); +obj* x_24; obj* x_27; +x_24 = lean::cnstr_get(x_13, 1); +lean::inc(x_24); lean::dec(x_13); -x_29 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__2(x_17, x_26, x_2, x_3); -if (lean::obj_tag(x_29) == 0) +x_27 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__5(x_17, x_24, x_2, x_3); +if (lean::obj_tag(x_27) == 0) { -obj* x_31; obj* x_33; obj* x_34; +obj* x_29; obj* x_31; obj* x_32; lean::dec(x_21); -x_31 = lean::cnstr_get(x_29, 0); -if (lean::is_exclusive(x_29)) { - x_33 = x_29; +x_29 = lean::cnstr_get(x_27, 0); +if (lean::is_exclusive(x_27)) { + x_31 = x_27; } else { - lean::inc(x_31); - lean::dec(x_29); - x_33 = lean::box(0); + lean::inc(x_29); + lean::dec(x_27); + x_31 = lean::box(0); } -if (lean::is_scalar(x_33)) { - x_34 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_31)) { + x_32 = lean::alloc_cnstr(0, 1, 0); } else { - x_34 = x_33; + x_32 = x_31; } -lean::cnstr_set(x_34, 0, x_31); -return x_34; +lean::cnstr_set(x_32, 0, x_29); +return x_32; } else { -obj* x_35; obj* x_37; obj* x_38; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45; -x_35 = lean::cnstr_get(x_29, 0); -if (lean::is_exclusive(x_29)) { - x_37 = x_29; +obj* x_33; obj* x_35; obj* x_36; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_33 = lean::cnstr_get(x_27, 0); +if (lean::is_exclusive(x_27)) { + x_35 = x_27; } else { - lean::inc(x_35); - lean::dec(x_29); - x_37 = lean::box(0); + lean::inc(x_33); + lean::dec(x_27); + x_35 = lean::box(0); } -x_38 = lean::cnstr_get(x_35, 0); -x_40 = lean::cnstr_get(x_35, 1); -if (lean::is_exclusive(x_35)) { - x_42 = x_35; +x_36 = lean::cnstr_get(x_33, 0); +x_38 = lean::cnstr_get(x_33, 1); +if (lean::is_exclusive(x_33)) { + x_40 = x_33; } else { + lean::inc(x_36); lean::inc(x_38); - lean::inc(x_40); - lean::dec(x_35); - x_42 = lean::box(0); + lean::dec(x_33); + x_40 = lean::box(0); } -x_43 = l_Lean_Parser_Syntax_mkNode(x_21, x_38); -if (lean::is_scalar(x_42)) { - x_44 = lean::alloc_cnstr(0, 2, 0); +x_41 = l_Lean_Parser_Syntax_mkNode(x_21, x_36); +if (lean::is_scalar(x_40)) { + x_42 = lean::alloc_cnstr(0, 2, 0); } else { - x_44 = x_42; + x_42 = x_40; } -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_40); -if (lean::is_scalar(x_37)) { - x_45 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_38); +if (lean::is_scalar(x_35)) { + x_43 = lean::alloc_cnstr(1, 1, 0); } else { - x_45 = x_37; + x_43 = x_35; } -lean::cnstr_set(x_45, 0, x_44); -return x_45; +lean::cnstr_set(x_43, 0, x_42); +return x_43; } } else { -obj* x_46; obj* x_49; -x_46 = lean::cnstr_get(x_25, 0); -lean::inc(x_46); -lean::dec(x_25); -x_49 = l_Lean_Expander_mkScope(x_2, x_3); -if (lean::obj_tag(x_49) == 0) +obj* x_44; obj* x_47; +x_44 = lean::cnstr_get(x_23, 0); +lean::inc(x_44); +lean::dec(x_23); +x_47 = l_Lean_Expander_mkScope(x_2, x_3); +if (lean::obj_tag(x_47) == 0) { -obj* x_55; obj* x_57; obj* x_58; +obj* x_53; obj* x_55; obj* x_56; lean::dec(x_13); lean::dec(x_3); -lean::dec(x_46); +lean::dec(x_44); lean::dec(x_17); lean::dec(x_21); -x_55 = lean::cnstr_get(x_49, 0); -if (lean::is_exclusive(x_49)) { - x_57 = x_49; +x_53 = lean::cnstr_get(x_47, 0); +if (lean::is_exclusive(x_47)) { + x_55 = x_47; } else { - lean::inc(x_55); - lean::dec(x_49); - x_57 = lean::box(0); + lean::inc(x_53); + lean::dec(x_47); + x_55 = lean::box(0); } -if (lean::is_scalar(x_57)) { - x_58 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_55)) { + x_56 = lean::alloc_cnstr(0, 1, 0); } else { - x_58 = x_57; + x_56 = x_55; } -lean::cnstr_set(x_58, 0, x_55); -return x_58; +lean::cnstr_set(x_56, 0, x_53); +return x_56; } else { -obj* x_59; obj* x_62; obj* x_64; obj* x_67; obj* x_72; obj* x_74; obj* x_75; obj* x_77; -x_59 = lean::cnstr_get(x_49, 0); -lean::inc(x_59); -lean::dec(x_49); -x_62 = lean::cnstr_get(x_59, 0); +obj* x_57; obj* x_60; obj* x_62; obj* x_65; obj* x_70; obj* x_72; obj* x_73; obj* x_75; +x_57 = lean::cnstr_get(x_47, 0); +lean::inc(x_57); +lean::dec(x_47); +x_60 = lean::cnstr_get(x_57, 0); +lean::inc(x_60); +x_62 = lean::cnstr_get(x_57, 1); lean::inc(x_62); -x_64 = lean::cnstr_get(x_59, 1); -lean::inc(x_64); -lean::dec(x_59); -x_67 = lean::cnstr_get(x_13, 1); -lean::inc(x_67); +lean::dec(x_57); +x_65 = lean::cnstr_get(x_13, 1); +lean::inc(x_65); lean::dec(x_13); -lean::inc(x_67); -lean::inc(x_62); -x_72 = l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__3(x_62, x_67); +lean::inc(x_65); +lean::inc(x_60); +x_70 = l_List_map___main___at___private_init_lean_expander_2__expandCore___main___spec__6(x_60, x_65); lean::inc(x_21); -x_74 = l_Lean_Parser_Syntax_mkNode(x_21, x_72); -x_75 = lean::cnstr_get(x_3, 0); -lean::inc(x_75); -x_77 = lean::apply_2(x_46, x_74, x_75); -if (lean::obj_tag(x_77) == 0) +x_72 = l_Lean_Parser_Syntax_mkNode(x_21, x_70); +x_73 = lean::cnstr_get(x_3, 0); +lean::inc(x_73); +x_75 = lean::apply_2(x_44, x_72, x_73); +if (lean::obj_tag(x_75) == 0) { -obj* x_84; obj* x_86; obj* x_87; +obj* x_82; obj* x_84; obj* x_85; lean::dec(x_3); -lean::dec(x_64); +lean::dec(x_65); +lean::dec(x_60); lean::dec(x_62); -lean::dec(x_67); lean::dec(x_17); lean::dec(x_21); -x_84 = lean::cnstr_get(x_77, 0); -if (lean::is_exclusive(x_77)) { - x_86 = x_77; +x_82 = lean::cnstr_get(x_75, 0); +if (lean::is_exclusive(x_75)) { + x_84 = x_75; } else { - lean::inc(x_84); - lean::dec(x_77); - x_86 = lean::box(0); + lean::inc(x_82); + lean::dec(x_75); + x_84 = lean::box(0); } -if (lean::is_scalar(x_86)) { - x_87 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_84)) { + x_85 = lean::alloc_cnstr(0, 1, 0); } else { - x_87 = x_86; + x_85 = x_84; } -lean::cnstr_set(x_87, 0, x_84); -return x_87; +lean::cnstr_set(x_85, 0, x_82); +return x_85; } else { -obj* x_88; -x_88 = lean::cnstr_get(x_77, 0); -lean::inc(x_88); -lean::dec(x_77); -if (lean::obj_tag(x_88) == 0) +obj* x_86; +x_86 = lean::cnstr_get(x_75, 0); +lean::inc(x_86); +lean::dec(x_75); +if (lean::obj_tag(x_86) == 0) { -obj* x_92; -lean::dec(x_62); -x_92 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__4(x_17, x_67, x_64, x_3); -if (lean::obj_tag(x_92) == 0) +obj* x_90; +lean::dec(x_60); +x_90 = l_List_mmap___main___at___private_init_lean_expander_2__expandCore___main___spec__7(x_17, x_65, x_62, x_3); +if (lean::obj_tag(x_90) == 0) { -obj* x_94; obj* x_96; obj* x_97; +obj* x_92; obj* x_94; obj* x_95; lean::dec(x_21); -x_94 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_96 = x_92; +x_92 = lean::cnstr_get(x_90, 0); +if (lean::is_exclusive(x_90)) { + x_94 = x_90; } else { - lean::inc(x_94); - lean::dec(x_92); - x_96 = lean::box(0); + lean::inc(x_92); + lean::dec(x_90); + x_94 = lean::box(0); } -if (lean::is_scalar(x_96)) { - x_97 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_94)) { + x_95 = lean::alloc_cnstr(0, 1, 0); } else { - x_97 = x_96; + x_95 = x_94; } -lean::cnstr_set(x_97, 0, x_94); -return x_97; +lean::cnstr_set(x_95, 0, x_92); +return x_95; } else { -obj* x_98; obj* x_100; obj* x_101; obj* x_103; obj* x_105; obj* x_106; obj* x_107; obj* x_108; -x_98 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - x_100 = x_92; +obj* x_96; obj* x_98; obj* x_99; obj* x_101; obj* x_103; obj* x_104; obj* x_105; obj* x_106; +x_96 = lean::cnstr_get(x_90, 0); +if (lean::is_exclusive(x_90)) { + x_98 = x_90; } else { - lean::inc(x_98); - lean::dec(x_92); - x_100 = lean::box(0); + lean::inc(x_96); + lean::dec(x_90); + x_98 = lean::box(0); } -x_101 = lean::cnstr_get(x_98, 0); -x_103 = lean::cnstr_get(x_98, 1); -if (lean::is_exclusive(x_98)) { - x_105 = x_98; +x_99 = lean::cnstr_get(x_96, 0); +x_101 = lean::cnstr_get(x_96, 1); +if (lean::is_exclusive(x_96)) { + x_103 = x_96; } else { + lean::inc(x_99); lean::inc(x_101); - lean::inc(x_103); - lean::dec(x_98); - x_105 = lean::box(0); + lean::dec(x_96); + x_103 = lean::box(0); } -x_106 = l_Lean_Parser_Syntax_mkNode(x_21, x_101); -if (lean::is_scalar(x_105)) { - x_107 = lean::alloc_cnstr(0, 2, 0); +x_104 = l_Lean_Parser_Syntax_mkNode(x_21, x_99); +if (lean::is_scalar(x_103)) { + x_105 = lean::alloc_cnstr(0, 2, 0); } else { - x_107 = x_105; + x_105 = x_103; } -lean::cnstr_set(x_107, 0, x_106); -lean::cnstr_set(x_107, 1, x_103); -if (lean::is_scalar(x_100)) { - x_108 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_105, 0, x_104); +lean::cnstr_set(x_105, 1, x_101); +if (lean::is_scalar(x_98)) { + x_106 = lean::alloc_cnstr(1, 1, 0); } else { - x_108 = x_100; + x_106 = x_98; } -lean::cnstr_set(x_108, 0, x_107); -return x_108; +lean::cnstr_set(x_106, 0, x_105); +return x_106; } } else { -obj* x_111; obj* x_114; obj* x_115; obj* x_116; -lean::dec(x_67); +obj* x_109; obj* x_112; obj* x_113; obj* x_114; +lean::dec(x_65); lean::dec(x_21); -x_111 = lean::cnstr_get(x_88, 0); -lean::inc(x_111); -lean::dec(x_88); -x_114 = lean::box(0); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_62); -lean::cnstr_set(x_115, 1, x_114); -x_116 = l_Lean_Parser_Syntax_flipScopes___main(x_115, x_111); +x_109 = lean::cnstr_get(x_86, 0); +lean::inc(x_109); +lean::dec(x_86); +x_112 = lean::box(0); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_60); +lean::cnstr_set(x_113, 1, x_112); +x_114 = l_Lean_Parser_Syntax_flipScopes___main(x_113, x_109); x_0 = x_17; -x_1 = x_116; -x_2 = x_64; +x_1 = x_114; +x_2 = x_62; goto _start; } } @@ -10744,15 +12802,15 @@ goto _start; } else { -obj* x_119; obj* x_120; obj* x_121; +obj* x_117; obj* x_118; obj* x_119; lean::dec(x_0); -x_119 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_119, 0, x_1); -x_120 = l___private_init_lean_expander_2__expandCore___main___closed__1; -x_121 = l_Lean_Expander_error___at___private_init_lean_expander_2__expandCore___main___spec__1___rarg(x_119, x_120, x_2, x_3); +x_117 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_117, 0, x_1); +x_118 = l___private_init_lean_expander_2__expandCore___main___closed__1; +x_119 = l_Lean_Expander_error___at___private_init_lean_expander_2__expandCore___main___spec__1___rarg(x_117, x_118, x_2, x_3); lean::dec(x_2); -lean::dec(x_119); -return x_121; +lean::dec(x_117); +return x_119; } } } @@ -10775,6 +12833,43 @@ lean::dec(x_0); return x_1; } } +obj* l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_StateT_map___at___private_init_lean_expander_2__expandCore___main___spec__2(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___rarg(x_0, x_1, x_2); +lean::dec(x_2); +return x_3; +} +} +obj* l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_StateT_pure___at___private_init_lean_expander_2__expandCore___main___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_expander_2__expandCore___main___spec__4___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_expander_2__expandCore___main___spec__4(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* l___private_init_lean_expander_2__expandCore(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -10857,12 +12952,12 @@ lean::mark_persistent(l_Lean_Expander_coeBinderBracketedBinder___closed__1); lean::mark_persistent(l_Lean_Expander_coeBinderBracketedBinder___closed__2); l___private_init_lean_expander_1__popStxArg___closed__1 = _init_l___private_init_lean_expander_1__popStxArg___closed__1(); lean::mark_persistent(l___private_init_lean_expander_1__popStxArg___closed__1); - l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1 = _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1(); -lean::mark_persistent(l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__1); - l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2 = _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2(); -lean::mark_persistent(l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__2); - l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3 = _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3(); -lean::mark_persistent(l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__4___closed__3); + l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1 = _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1(); +lean::mark_persistent(l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__1); + l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2 = _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2(); +lean::mark_persistent(l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__2); + l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3 = _init_l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3(); +lean::mark_persistent(l_List_mfor___main___at_Lean_Expander_mkNotationTransformer___spec__6___closed__3); l_Lean_Expander_mixfixToNotationSpec___closed__1 = _init_l_Lean_Expander_mixfixToNotationSpec___closed__1(); lean::mark_persistent(l_Lean_Expander_mixfixToNotationSpec___closed__1); l_Lean_Expander_mixfixToNotationSpec___closed__2 = _init_l_Lean_Expander_mixfixToNotationSpec___closed__2(); @@ -10973,8 +13068,8 @@ lean::mark_persistent(l_Lean_Expander_bindingAnnotationUpdate_HasView); lean::mark_persistent(l_Lean_Expander_bindingAnnotationUpdate_Parser_Lean_Parser_HasView); l_Lean_Expander_bindingAnnotationUpdate_Parser___closed__1 = _init_l_Lean_Expander_bindingAnnotationUpdate_Parser___closed__1(); lean::mark_persistent(l_Lean_Expander_bindingAnnotationUpdate_Parser___closed__1); - l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___closed__1 = _init_l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___closed__1(); -lean::mark_persistent(l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___closed__1); + l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1___closed__1 = _init_l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1___closed__1(); +lean::mark_persistent(l_List_mmap___main___at_Lean_Expander_variables_transform___spec__1___lambda__1___closed__1); l_Lean_Expander_Subtype_transform___closed__1 = _init_l_Lean_Expander_Subtype_transform___closed__1(); lean::mark_persistent(l_Lean_Expander_Subtype_transform___closed__1); l_List_map___main___at_Lean_Expander_universes_transform___spec__1___closed__1 = _init_l_List_map___main___at_Lean_Expander_universes_transform___spec__1___closed__1(); diff --git a/src/stage0/init/lean/name.cpp b/src/stage0/init/lean/name.cpp index 723db67454..f6581c861c 100644 --- a/src/stage0/init/lean/name.cpp +++ b/src/stage0/init/lean/name.cpp @@ -14,11 +14,13 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -obj* l_Lean_NameMap_contains___rarg___closed__1; +obj* l_RBNode_setBlack___main___rarg(obj*); extern "C" uint8 lean_name_dec_eq(obj*, obj*); obj* l_Lean_Name_HasToString; obj* l_Lean_Name_toStringWithSep___main___closed__1; +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___boxed(obj*); obj* l_Lean_NameMap_insert(obj*); +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1(obj*); obj* l_Lean_Name_Hashable; obj* l_Lean_stringToName; obj* l_Lean_Name_hasLtQuick; @@ -30,7 +32,6 @@ obj* l_Lean_Name_components(obj*); obj* l_List_reverse___rarg(obj*); obj* l_Lean_Name_updatePrefix(obj*, obj*); obj* l_Lean_Name_hash___boxed(obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Name_toStringWithSep___main(obj*, obj*); obj* l_Lean_Inhabited; obj* l_Lean_Name_decEq___boxed(obj*, obj*); @@ -39,6 +40,7 @@ obj* l_Lean_mkSimpleName(obj*); obj* l_Lean_NameMap_find___rarg(obj*, obj*); obj* l_Lean_mkStrName(obj*, obj*); obj* l_Lean_Name_DecidableEq; +obj* l_RBNode_balance2___main___rarg(obj*, obj*); uint8 l_Lean_NameSet_contains(obj*, obj*); obj* l_Nat_repr(obj*); obj* l_Lean_Name_append(obj*, obj*); @@ -62,6 +64,7 @@ uint8 nat_dec_lt(obj*, obj*); } obj* l_Lean_NameMap_find___boxed(obj*); obj* l_Lean_NameSet_contains___boxed(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(obj*, obj*, obj*); obj* l_Lean_Name_getPrefix(obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_Lean_mkNameSet; @@ -69,31 +72,44 @@ uint8 l_Lean_NameMap_contains___rarg(obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(obj*, obj*); +uint8 l_RBNode_isRed___main___rarg(obj*); obj* l_Lean_NameMap_insert___rarg(obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___boxed(obj*); +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2(obj*); namespace lean { uint8 string_dec_eq(obj*, obj*); } obj* l_Lean_mkNameMap(obj*); obj* l_Lean_Name_getPrefix___boxed(obj*); +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___boxed(obj*); obj* l_Lean_NameMap_contains(obj*); obj* l_Lean_Name_updatePrefix___main(obj*, obj*); -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1(obj*); obj* l_String_trim(obj*); uint8 l_Lean_Name_quickLtCore___main(obj*, obj*); obj* l_Lean_Name_replacePrefix___main(obj*, obj*, obj*); obj* l_Lean_NameMap_insert___boxed(obj*); obj* l_String_split(obj*, obj*); +obj* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1___boxed(obj*, obj*); obj* l_Lean_Name_toStringWithSep(obj*, obj*); obj* l_Lean_Name_append___boxed(obj*, obj*); +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(obj*, obj*); uint8 l_Lean_Name_quickLt(obj*, obj*); extern "C" obj* lean_name_mk_numeral(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(obj*, obj*, obj*); obj* l_String_toName(obj*); obj* l_Lean_NameMap_Inhabited(obj*); +obj* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1(obj*); obj* l_Lean_NameSet_Inhabited; obj* l_Lean_Name_getPrefix___main(obj*); obj* l_Lean_Name_components_x_27___main(obj*); +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___boxed(obj*); uint8 l_Lean_Name_DecidableRel(obj*, obj*); +obj* l_RBNode_balance1___main___rarg(obj*, obj*); obj* l_Lean_Name_toString___closed__1; +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed(obj*, obj*); obj* l_Lean_Name_replacePrefix(obj*, obj*, obj*); obj* l_Lean_Name_getPrefix___main___boxed(obj*); obj* l_Lean_mkNameMap___boxed(obj*); @@ -102,6 +118,8 @@ obj* l_Lean_Name_replacePrefix___main___boxed(obj*, obj*, obj*); obj* l_Lean_Name_HasAppend; obj* l_Lean_NameSet_insert(obj*, obj*); obj* l_Lean_NameMap_HasEmptyc___boxed(obj*); +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg___boxed(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(obj*, obj*, obj*); obj* l_Lean_NameMap_contains___rarg___boxed(obj*, obj*); obj* l_Lean_Name_append___main(obj*, obj*); obj* l_Lean_Name_quickLtCore___main___boxed(obj*, obj*); @@ -109,6 +127,7 @@ obj* l_Lean_Name_toStringWithSep___boxed(obj*, obj*); obj* l_Lean_mkNumName(obj*, obj*); obj* l_Lean_Name_toString(obj*); obj* l_Lean_NameSet_HasEmptyc; +obj* l_Lean_NameMap_find___rarg___boxed(obj*, obj*); obj* _init_l_Lean_Inhabited() { _start: { @@ -897,14 +916,503 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg), 3, 0); +return x_1; +} +} obj* l_Lean_NameMap_insert___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_4; -x_3 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); -x_4 = l_RBNode_insert___rarg(x_3, x_0, x_1, x_2); +uint8 x_3; +x_3 = l_RBNode_isRed___main___rarg(x_0); +if (x_3 == 0) +{ +obj* x_4; +x_4 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___rarg(x_0, x_1, x_2); return x_4; } +else +{ +obj* x_5; obj* x_6; +x_5 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___rarg(x_0, x_1, x_2); +x_6 = l_RBNode_setBlack___main___rarg(x_5); +return x_6; +} +} } obj* l_Lean_NameMap_insert(obj* x_0) { _start: @@ -914,6 +1422,24 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_NameMap_insert___rarg), return x_1; } } +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at_Lean_NameMap_insert___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_NameMap_insert___boxed(obj* x_0) { _start: { @@ -923,32 +1449,85 @@ lean::dec(x_0); return x_1; } } -obj* _init_l_Lean_NameMap_contains___rarg___closed__1() { +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); -return x_0; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg___boxed), 2, 0); +return x_1; } } uint8 l_Lean_NameMap_contains___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_3; -x_2 = l_Lean_NameMap_contains___rarg___closed__1; -x_3 = l_RBNode_find___main___rarg(x_2, lean::box(0), x_0, x_1); -if (lean::obj_tag(x_3) == 0) +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(x_0, x_1); +if (lean::obj_tag(x_2) == 0) { -uint8 x_4; -x_4 = 0; -return x_4; +uint8 x_3; +x_3 = 0; +return x_3; } else { -uint8 x_6; -lean::dec(x_3); -x_6 = 1; -return x_6; +uint8 x_5; +lean::dec(x_2); +x_5 = 1; +return x_5; } } } @@ -960,12 +1539,31 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_NameMap_contains___rarg return x_1; } } +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_NameMap_contains___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_NameMap_contains___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_NameMap_contains___rarg___boxed(obj* x_0, obj* x_1) { _start: { uint8 x_2; obj* x_3; x_2 = l_Lean_NameMap_contains___rarg(x_0, x_1); x_3 = lean::box(x_2); +lean::dec(x_1); return x_3; } } @@ -978,23 +1576,111 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} obj* l_Lean_NameMap_find___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_3; -x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); -x_3 = l_RBNode_find___main___rarg(x_2, lean::box(0), x_0, x_1); -return x_3; +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(x_0, x_1); +return x_2; } } obj* l_Lean_NameMap_find(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_NameMap_find___rarg), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_NameMap_find___rarg___boxed), 2, 0); return x_1; } } +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_NameMap_find___spec__1___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_NameMap_find___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_NameMap_find___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Lean_NameMap_find___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_Lean_NameMap_find___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* l_Lean_NameMap_find___boxed(obj* x_0) { _start: { @@ -1028,43 +1714,349 @@ x_0 = lean::box(0); return x_0; } } +obj* l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} obj* l_Lean_NameSet_insert(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_3; obj* x_4; -x_2 = lean::alloc_closure(reinterpret_cast(l_Lean_Name_quickLt___boxed), 2, 0); +uint8 x_2; +x_2 = l_RBNode_isRed___main___rarg(x_0); +if (x_2 == 0) +{ +obj* x_3; obj* x_4; x_3 = lean::box(0); -x_4 = l_RBNode_insert___rarg(x_2, x_0, x_1, x_3); +x_4 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_0, x_1, x_3); return x_4; } +else +{ +obj* x_5; obj* x_6; obj* x_7; +x_5 = lean::box(0); +x_6 = l_RBNode_ins___main___at_Lean_NameSet_insert___spec__1(x_0, x_1, x_5); +x_7 = l_RBNode_setBlack___main___rarg(x_6); +return x_7; +} +} +} +obj* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} } uint8 l_Lean_NameSet_contains(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_3; -x_2 = l_Lean_NameMap_contains___rarg___closed__1; -x_3 = l_RBNode_find___main___rarg(x_2, lean::box(0), x_0, x_1); -if (lean::obj_tag(x_3) == 0) +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(x_0, x_1); +if (lean::obj_tag(x_2) == 0) { -uint8 x_4; -x_4 = 0; -return x_4; +uint8 x_3; +x_3 = 0; +return x_3; } else { -uint8 x_6; -lean::dec(x_3); -x_6 = 1; -return x_6; +uint8 x_5; +lean::dec(x_2); +x_5 = 1; +return x_5; } } } +obj* l_RBNode_find___main___at_Lean_NameSet_contains___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_NameSet_contains___spec__1(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* l_Lean_NameSet_contains___boxed(obj* x_0, obj* x_1) { _start: { uint8 x_2; obj* x_3; x_2 = l_Lean_NameSet_contains(x_0, x_1); x_3 = lean::box(x_2); +lean::dec(x_1); return x_3; } } @@ -1152,8 +2144,6 @@ lean::mark_persistent(l_Lean_Name_toStringWithSep___main___closed__1); lean::mark_persistent(l_Lean_Name_toString___closed__1); l_Lean_Name_HasToString = _init_l_Lean_Name_HasToString(); lean::mark_persistent(l_Lean_Name_HasToString); - l_Lean_NameMap_contains___rarg___closed__1 = _init_l_Lean_NameMap_contains___rarg___closed__1(); -lean::mark_persistent(l_Lean_NameMap_contains___rarg___closed__1); l_Lean_mkNameSet = _init_l_Lean_mkNameSet(); lean::mark_persistent(l_Lean_mkNameSet); l_Lean_NameSet_HasEmptyc = _init_l_Lean_NameSet_HasEmptyc(); diff --git a/src/stage0/init/lean/options.cpp b/src/stage0/init/lean/options.cpp index 2432b5bf2a..748b137380 100644 --- a/src/stage0/init/lean/options.cpp +++ b/src/stage0/init/lean/options.cpp @@ -14,14 +14,12 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -extern obj* l_Lean_NameMap_contains___rarg___closed__1; obj* l___private_init_lean_options_1__initOptionDeclsRef(obj*); obj* l_Lean_setOptionFromString___closed__2; obj* l_Lean_KVMap_setBool(obj*, obj*, uint8); obj* l_String_toNat(obj*); obj* l_Lean_setOptionFromString___closed__5; obj* l_Lean_Options_HasEmptyc; -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_KVMap_setNat(obj*, obj*, obj*); obj* l_List_map___main___at_Lean_setOptionFromString___spec__1(obj*); obj* l_Lean_Name_toStringWithSep___main(obj*, obj*); @@ -31,25 +29,28 @@ obj* l_Lean_Options_empty; obj* l_Lean_registerOption___closed__1; extern obj* l_Bool_HasRepr___closed__2; obj* l_Lean_setOptionFromString___closed__1; +obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(obj*, obj*); obj* l_Lean_KVMap_setInt(obj*, obj*, obj*); namespace lean { obj* string_append(obj*, obj*); } obj* l_Lean_KVMap_setName(obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1___boxed(obj*, obj*); extern obj* l_Char_HasRepr___closed__1; extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_Lean_registerOption(obj*, obj*, obj*); uint8 l_Lean_NameMap_contains___rarg(obj*, obj*); obj* l_Lean_setOptionFromString___closed__4; uint8 l_String_isInt(obj*); +obj* l_Lean_NameMap_insert___rarg(obj*, obj*, obj*); namespace lean { uint8 string_dec_eq(obj*, obj*); } -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_String_trim(obj*); obj* l_String_split(obj*, obj*); obj* l___private_init_lean_options_2__optionDeclsRef; obj* l_Lean_getOptionDescr(obj*, obj*); +uint8 l_Lean_Name_quickLt(obj*, obj*); obj* l_Lean_getOptionDecls(obj*); uint8 l_String_isNat(obj*); obj* l_String_toName(obj*); @@ -111,7 +112,7 @@ x_3 = l___private_init_lean_options_2__optionDeclsRef; x_4 = lean::io_ref_get(x_3, x_2); if (lean::obj_tag(x_4) == 0) { -obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +obj* x_5; obj* x_7; obj* x_9; uint8 x_11; x_5 = lean::cnstr_get(x_4, 0); x_7 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { @@ -124,71 +125,69 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_9 = lean::box(0); } -lean::inc(x_0); lean::inc(x_5); -x_12 = l_Lean_NameMap_contains___rarg(x_5, x_0); -if (x_12 == 0) +x_11 = l_Lean_NameMap_contains___rarg(x_5, x_0); +if (x_11 == 0) { -obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; -x_13 = lean::box(0); +obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_12 = lean::box(0); if (lean::is_scalar(x_9)) { - x_14 = lean::alloc_cnstr(0, 2, 0); + x_13 = lean::alloc_cnstr(0, 2, 0); } else { - x_14 = x_9; + x_13 = x_9; } -lean::cnstr_set(x_14, 0, x_13); -lean::cnstr_set(x_14, 1, x_7); -x_15 = l_Lean_NameMap_contains___rarg___closed__1; -x_16 = l_RBNode_insert___rarg(x_15, x_5, x_0, x_1); -x_17 = lean::io_ref_set(x_3, x_16, x_14); -return x_17; +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_7); +x_14 = l_Lean_NameMap_insert___rarg(x_5, x_0, x_1); +x_15 = lean::io_ref_set(x_3, x_14, x_13); +return x_15; } else { -obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; lean::dec(x_5); lean::dec(x_1); -x_20 = l_Lean_Name_toString___closed__1; -x_21 = l_Lean_Name_toStringWithSep___main(x_20, x_0); -x_22 = l_Lean_registerOption___closed__1; -x_23 = lean::string_append(x_22, x_21); -lean::dec(x_21); -x_25 = l_Lean_registerOption___closed__2; -x_26 = lean::string_append(x_23, x_25); +x_18 = l_Lean_Name_toString___closed__1; +x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_0); +x_20 = l_Lean_registerOption___closed__1; +x_21 = lean::string_append(x_20, x_19); +lean::dec(x_19); +x_23 = l_Lean_registerOption___closed__2; +x_24 = lean::string_append(x_21, x_23); if (lean::is_scalar(x_9)) { - x_27 = lean::alloc_cnstr(1, 2, 0); + x_25 = lean::alloc_cnstr(1, 2, 0); } else { - x_27 = x_9; + x_25 = x_9; lean::cnstr_set_tag(x_9, 1); } -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_7); -return x_27; +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_7); +return x_25; } } else { -obj* x_30; obj* x_32; obj* x_34; obj* x_35; +obj* x_28; obj* x_30; obj* x_32; obj* x_33; lean::dec(x_1); lean::dec(x_0); -x_30 = lean::cnstr_get(x_4, 0); -x_32 = lean::cnstr_get(x_4, 1); +x_28 = lean::cnstr_get(x_4, 0); +x_30 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { - x_34 = x_4; + x_32 = x_4; } else { + lean::inc(x_28); lean::inc(x_30); - lean::inc(x_32); lean::dec(x_4); - x_34 = lean::box(0); + x_32 = lean::box(0); } -if (lean::is_scalar(x_34)) { - x_35 = lean::alloc_cnstr(1, 2, 0); +if (lean::is_scalar(x_32)) { + x_33 = lean::alloc_cnstr(1, 2, 0); } else { - x_35 = x_34; + x_33 = x_32; } -lean::cnstr_set(x_35, 0, x_30); -lean::cnstr_set(x_35, 1, x_32); -return x_35; +lean::cnstr_set(x_33, 0, x_28); +lean::cnstr_set(x_33, 1, x_30); +return x_33; } } } @@ -201,6 +200,60 @@ x_2 = lean::io_ref_get(x_1, x_0); return x_2; } } +obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} obj* _init_l_Lean_getOptionDecl___closed__1() { _start: { @@ -217,7 +270,7 @@ x_2 = l___private_init_lean_options_2__optionDeclsRef; x_3 = lean::io_ref_get(x_2, x_1); if (lean::obj_tag(x_3) == 0) { -obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_11; +obj* x_4; obj* x_6; obj* x_8; obj* x_9; x_4 = lean::cnstr_get(x_3, 0); x_6 = lean::cnstr_get(x_3, 1); if (lean::is_exclusive(x_3)) { @@ -230,71 +283,78 @@ if (lean::is_exclusive(x_3)) { lean::dec(x_3); x_8 = lean::box(0); } -x_9 = l_Lean_NameMap_contains___rarg___closed__1; -lean::inc(x_0); -x_11 = l_RBNode_find___main___rarg(x_9, lean::box(0), x_4, x_0); -if (lean::obj_tag(x_11) == 0) +x_9 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_4, x_0); +if (lean::obj_tag(x_9) == 0) { -obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; -x_12 = l_Lean_Name_toString___closed__1; -x_13 = l_Lean_Name_toStringWithSep___main(x_12, x_0); -x_14 = l_Lean_getOptionDecl___closed__1; -x_15 = lean::string_append(x_14, x_13); -lean::dec(x_13); -x_17 = l_Char_HasRepr___closed__1; -x_18 = lean::string_append(x_15, x_17); +obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; +x_10 = l_Lean_Name_toString___closed__1; +x_11 = l_Lean_Name_toStringWithSep___main(x_10, x_0); +x_12 = l_Lean_getOptionDecl___closed__1; +x_13 = lean::string_append(x_12, x_11); +lean::dec(x_11); +x_15 = l_Char_HasRepr___closed__1; +x_16 = lean::string_append(x_13, x_15); if (lean::is_scalar(x_8)) { - x_19 = lean::alloc_cnstr(1, 2, 0); + x_17 = lean::alloc_cnstr(1, 2, 0); } else { - x_19 = x_8; + x_17 = x_8; lean::cnstr_set_tag(x_8, 1); } -lean::cnstr_set(x_19, 0, x_18); -lean::cnstr_set(x_19, 1, x_6); -return x_19; +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_6); +return x_17; } else { -obj* x_21; obj* x_24; +obj* x_19; obj* x_22; lean::dec(x_0); -x_21 = lean::cnstr_get(x_11, 0); -lean::inc(x_21); -lean::dec(x_11); +x_19 = lean::cnstr_get(x_9, 0); +lean::inc(x_19); +lean::dec(x_9); if (lean::is_scalar(x_8)) { - x_24 = lean::alloc_cnstr(0, 2, 0); + x_22 = lean::alloc_cnstr(0, 2, 0); } else { - x_24 = x_8; + x_22 = x_8; } -lean::cnstr_set(x_24, 0, x_21); -lean::cnstr_set(x_24, 1, x_6); -return x_24; +lean::cnstr_set(x_22, 0, x_19); +lean::cnstr_set(x_22, 1, x_6); +return x_22; } } else { -obj* x_26; obj* x_28; obj* x_30; obj* x_31; +obj* x_24; obj* x_26; obj* x_28; obj* x_29; lean::dec(x_0); -x_26 = lean::cnstr_get(x_3, 0); -x_28 = lean::cnstr_get(x_3, 1); +x_24 = lean::cnstr_get(x_3, 0); +x_26 = lean::cnstr_get(x_3, 1); if (lean::is_exclusive(x_3)) { - x_30 = x_3; + x_28 = x_3; } else { + lean::inc(x_24); lean::inc(x_26); - lean::inc(x_28); lean::dec(x_3); - x_30 = lean::box(0); + x_28 = lean::box(0); } -if (lean::is_scalar(x_30)) { - x_31 = lean::alloc_cnstr(1, 2, 0); +if (lean::is_scalar(x_28)) { + x_29 = lean::alloc_cnstr(1, 2, 0); } else { - x_31 = x_30; + x_29 = x_28; } -lean::cnstr_set(x_31, 0, x_26); -lean::cnstr_set(x_31, 1, x_28); -return x_31; +lean::cnstr_set(x_29, 0, x_24); +lean::cnstr_set(x_29, 1, x_26); +return x_29; } } } +obj* l_RBNode_find___main___at_Lean_getOptionDecl___spec__1___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_getOptionDecl___spec__1(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} obj* l_Lean_getOptionDefaulValue(obj* x_0, obj* x_1) { _start: { diff --git a/src/stage0/init/lean/parser/basic.cpp b/src/stage0/init/lean/parser/basic.cpp index df69dba776..1fa2d3abba 100644 --- a/src/stage0/init/lean/parser/basic.cpp +++ b/src/stage0/init/lean/parser/basic.cpp @@ -15,7 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadRec___boxed(obj*); -extern obj* l_Lean_NameMap_contains___rarg___closed__1; +obj* l_RBNode_setBlack___main___rarg(obj*); obj* l_Lean_Parser_tryView___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_trailingTermParserCoe___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_monadParsecTrans___rarg(obj*, obj*, obj*); @@ -25,11 +25,13 @@ obj* l_Lean_Parser_TrailingTermParserM_Lean_Parser_MonadRec; obj* l_Lean_Parser_BasicParserM_Lean_Parser_MonadParsec; obj* l_Lean_Parser_BasicParserM_Alternative; obj* l_Lean_Parser_TermParserM_Lean_Parser_MonadRec; +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___boxed(obj*); extern obj* l_Lean_MessageLog_empty; obj* l_Lean_Parser_CommandParserM_Monad___closed__1; obj* l_Lean_Parser_TokenMap_ofList___boxed(obj*); obj* l_Lean_Parser_TokenMap_ofList___main(obj*); obj* l_Lean_Parser_logMessage(obj*, obj*, obj*); +obj* l_Id_map___boxed(obj*, obj*); obj* l_Lean_Parser_CommandParserM_MonadReader(obj*); obj* l_Lean_Parser_messageOfParsecMessage(obj*); obj* l_Lean_Parser_MonadRec_trans___rarg___boxed(obj*, obj*, obj*, obj*); @@ -44,6 +46,7 @@ extern obj* l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; obj* l_Lean_Parser_HasTokens_Inhabited(obj*, obj*); obj* l_Lean_Parser_BasicParserM_Monad; obj* l_Lean_Parser_ParsecT_run___at_Lean_Parser_run___spec__1___rarg___lambda__1(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(obj*, obj*, obj*); obj* l_StateT_Monad___rarg(obj*); obj* l_Lean_Parser_run___rarg___closed__1; obj* l_Lean_Parser_TokenMap_ofList(obj*); @@ -55,7 +58,7 @@ obj* l_Lean_Parser_CommandParserM_basicParser(obj*); obj* l_Lean_Parser_tokenMapNil_tokens(obj*); obj* l_Lean_Parser_run___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_TokenMap_insert___rarg(obj*, obj*, obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___boxed(obj*); obj* l_Lean_Parser_ParserT_MonadExcept___rarg(obj*); uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_ReaderT_MonadReaderAdapter___boxed(obj*, obj*, obj*, obj*, obj*); @@ -71,11 +74,17 @@ obj* l_List_mfoldl___main___at_Lean_Parser_mkTokenTrie___spec__1(obj*, obj*); obj* l_Lean_Parser_tokenMapCons_tokens___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_parserCoreT_Alternative___rarg(obj*); obj* l_Lean_Parser_tokenMapCons_tokens(obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1(obj*); obj* l_Lean_Parser_logMessage___boxed(obj*, obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2(obj*); obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadParsec___boxed(obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___boxed(obj*); +obj* l_RBNode_balance2___main___rarg(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_logMessage___rarg___lambda__2(obj*, obj*, obj*, obj*); obj* l_ReaderT_read___rarg(obj*, obj*); obj* l_Lean_Parser_parserCoreT_MonadExcept___rarg(obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3(obj*); obj* l_Nat_repr(obj*); obj* l_Lean_Parser_commandParserConfigCoeParserConfig___boxed(obj*); obj* l_ReaderT_lift___rarg___boxed(obj*, obj*); @@ -85,6 +94,7 @@ obj* l_Lean_Parser_TokenMap_insert___boxed(obj*); obj* l_Lean_Parser_getCache___boxed(obj*); obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_CommandParserM_MonadExcept___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_TrailingTermParserM_Alternative; namespace lean { obj* string_append(obj*, obj*); @@ -93,6 +103,7 @@ obj* l_Lean_Parser_parserCoreT_MonadExcept(obj*); obj* l___private_init_lean_parser_trie_3__findAux___main___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_MonadExcept___rarg(obj*, obj*); obj* l_Lean_Parser_List_cons_tokens___rarg___boxed(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___boxed(obj*); obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadRec(obj*); obj* l_Lean_Parser_CommandParserM_MonadReaderAdapter___boxed(obj*, obj*); obj* l_Lean_Parser_commandParserConfigCoeParserConfig(obj*); @@ -111,6 +122,7 @@ obj* l_Lean_Parser_tokens___rarg(obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } +uint8 l_RBNode_isRed___main___rarg(obj*); obj* l_Lean_Parser_CommandParserM_basicParser___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_trailingTermParserCoe(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_List_cons_tokens(obj*, obj*, obj*); @@ -128,7 +140,6 @@ obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadParsec(obj*); obj* l_Lean_Parser_ParsecT_run___at_Lean_Parser_run___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_maxPrec; obj* l_Lean_Parser_ParserT_Monad___rarg(obj*); -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_List_nil_tokens(obj*); obj* l_Lean_Parser_Lean_Parser_MonadParsec___rarg(obj*); obj* l_Lean_Parser_getCache___rarg(obj*, obj*); @@ -136,8 +147,10 @@ obj* l_Lean_Parser_TrailingTermParserM_MonadReader; obj* l_ReaderT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_run___rarg___lambda__1___closed__1; obj* l_Lean_Parser_CommandParserM_MonadReader___boxed(obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_HasView_default___boxed(obj*); obj* l_Lean_Parser_TermParserM_Monad; +uint8 l_Lean_Name_quickLt(obj*, obj*); obj* l_ReaderT_MonadExcept___rarg(obj*); obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadRec___closed__1; obj* l_Lean_Parser_CommandParserM_Monad___boxed(obj*); @@ -146,14 +159,17 @@ obj* l_Lean_Parser_List_cons_tokens___rarg(obj*, obj*); obj* l_Id_bind___boxed(obj*, obj*); extern obj* l_Lean_Parser_Trie_empty___closed__1; obj* l_Lean_Parser_tokens(obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg(obj*, obj*); obj* l_Lean_Parser_parserCoreT_Lean_Parser_MonadParsec(obj*); obj* l_Lean_Parser_tokenMapCons_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_ParsecT_Monad___rarg(obj*, obj*); +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4(obj*); obj* l_Lean_Parser_RecT_recurse___rarg(obj*, obj*); obj* l_Lean_Parser_ParsecT_Alternative___rarg(obj*, obj*); obj* l_Lean_Parser_ParsecT_run___at_Lean_Parser_run___spec__1___boxed(obj*); obj* l_Lean_Parser_messageOfParsecMessage___rarg(obj*, obj*); obj* l_Lean_Parser_CommandParserM_MonadReaderAdapter(obj*, obj*); +obj* l_RBNode_balance1___main___rarg(obj*, obj*); obj* l_Lean_Parser_TermParserM_Lean_Parser_monadBasicParser; obj* l_ReaderT_Alternative___rarg(obj*, obj*); obj* l_Lean_Parser_parserCoreT_Monad___rarg(obj*); @@ -175,6 +191,7 @@ obj* l_Lean_Parser_TermParserM_MonadExcept; obj* l_Lean_Parser_ParserT_Alternative___boxed(obj*, obj*); obj* l_Lean_Parser_TokenMap_ofList___main___boxed(obj*); obj* l_Lean_Parser_CommandParserM_MonadReaderAdapter___closed__1; +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5(obj*); obj* l_Lean_Parser_CommandParserM_MonadExcept___boxed(obj*); obj* l_Lean_Parser_HasView_default(obj*); obj* l_Lean_Parser_parserCoreT_Alternative___boxed(obj*); @@ -190,6 +207,7 @@ obj* l_Lean_Parser_tryView___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_ParserT_Monad(obj*, obj*); obj* l_Lean_Parser_messageOfParsecMessage___boxed(obj*); obj* l_Lean_Parser_mkTokenTrie___closed__1; +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___boxed(obj*); obj* l_Lean_Parser_TokenMap_ofList___main___rarg(obj*); obj* l_Lean_Parser_parserCoreT_Lean_Parser_MonadParsec___rarg(obj*); obj* l_Lean_Parser_ParsecT_run___at_Lean_Parser_run___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -199,6 +217,7 @@ obj* l_Lean_Parser_tryView___boxed(obj*); obj* l_List_mfoldl___main___at_Lean_Parser_mkTokenTrie___spec__1___closed__1; obj* l_Lean_Parser_parserCoreT_Monad___boxed(obj*); obj* l_Lean_Parser_TermParserM_Lean_Parser_MonadParsec; +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_2__insertAux___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_parserCoreT_Alternative(obj*); extern obj* l_String_splitAux___main___closed__1; @@ -487,20 +506,20 @@ return x_2; obj* _init_l_Lean_Parser_BasicParserM_Monad() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -514,20 +533,20 @@ return x_10; obj* _init_l_Lean_Parser_BasicParserM_Alternative() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -541,20 +560,20 @@ return x_10; obj* _init_l_Lean_Parser_BasicParserM_MonadReader() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -568,20 +587,20 @@ return x_10; obj* _init_l_Lean_Parser_BasicParserM_Lean_Parser_MonadParsec() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -595,20 +614,20 @@ return x_10; obj* _init_l_Lean_Parser_BasicParserM_MonadExcept() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1499,20 +1518,20 @@ return x_12; obj* _init_l_Lean_Parser_CommandParserM_Monad___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1545,20 +1564,20 @@ return x_1; obj* _init_l_Lean_Parser_CommandParserM_Alternative___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1595,20 +1614,20 @@ return x_1; obj* _init_l_Lean_Parser_CommandParserM_MonadReader___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1642,20 +1661,20 @@ return x_1; obj* _init_l_Lean_Parser_CommandParserM_Lean_Parser_MonadParsec___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1704,20 +1723,20 @@ return x_1; obj* _init_l_Lean_Parser_CommandParserM_MonadExcept___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1750,20 +1769,20 @@ return x_1; obj* _init_l_Lean_Parser_CommandParserM_Lean_Parser_MonadRec___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -1805,20 +1824,20 @@ return x_1; obj* _init_l_Lean_Parser_CommandParserM_MonadReaderAdapter___closed__1() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -2071,35 +2090,1075 @@ lean::dec(x_1); return x_7; } } -obj* l_Lean_Parser_TokenMap_insert___rarg(obj* x_0, obj* x_1, obj* x_2) { +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg(obj* x_0, obj* x_1) { _start: { -obj* x_3; obj* x_6; -x_3 = l_Lean_NameMap_contains___rarg___closed__1; -lean::inc(x_1); -lean::inc(x_0); -x_6 = l_RBNode_find___main___rarg(x_3, lean::box(0), x_0, x_1); -if (lean::obj_tag(x_6) == 0) +if (lean::obj_tag(x_0) == 0) { -obj* x_7; obj* x_8; obj* x_9; -x_7 = lean::box(0); -x_8 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_8, 0, x_2); -lean::cnstr_set(x_8, 1, x_7); -x_9 = l_RBNode_insert___rarg(x_3, x_0, x_1, x_8); -return x_9; +obj* x_2; +x_2 = lean::box(0); +return x_2; } else { -obj* x_10; obj* x_13; obj* x_14; -x_10 = lean::cnstr_get(x_6, 0); -lean::inc(x_10); -lean::dec(x_6); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_2); -lean::cnstr_set(x_13, 1, x_10); -x_14 = l_RBNode_insert___rarg(x_3, x_0, x_1, x_13); -return x_14; +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = l_Lean_Name_quickLt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = l_Lean_Name_quickLt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = l_Lean_Name_quickLt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = l_Lean_Name_quickLt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg), 3, 0); +return x_1; +} +} +obj* l_Lean_Parser_TokenMap_insert___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_4; +lean::inc(x_0); +x_4 = l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg(x_0, x_1); +if (lean::obj_tag(x_4) == 0) +{ +obj* x_5; obj* x_6; uint8 x_7; +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_2); +lean::cnstr_set(x_6, 1, x_5); +x_7 = l_RBNode_isRed___main___rarg(x_0); +if (x_7 == 0) +{ +obj* x_8; +x_8 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___rarg(x_0, x_1, x_6); +return x_8; +} +else +{ +obj* x_9; obj* x_10; +x_9 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___rarg(x_0, x_1, x_6); +x_10 = l_RBNode_setBlack___main___rarg(x_9); +return x_10; +} +} +else +{ +obj* x_11; obj* x_14; uint8 x_15; +x_11 = lean::cnstr_get(x_4, 0); +lean::inc(x_11); +lean::dec(x_4); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_2); +lean::cnstr_set(x_14, 1, x_11); +x_15 = l_RBNode_isRed___main___rarg(x_0); +if (x_15 == 0) +{ +obj* x_16; +x_16 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___rarg(x_0, x_1, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_18; +x_17 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___rarg(x_0, x_1, x_14); +x_18 = l_RBNode_setBlack___main___rarg(x_17); +return x_18; +} } } } @@ -2111,6 +3170,60 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_TokenMap_insert_ return x_1; } } +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__5(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_Parser_TokenMap_insert___boxed(obj* x_0) { _start: { diff --git a/src/stage0/init/lean/parser/command.cpp b/src/stage0/init/lean/parser/command.cpp index 2ee8d873ce..8fc1fa2230 100644 --- a/src/stage0/init/lean/parser/command.cpp +++ b/src/stage0/init/lean/parser/command.cpp @@ -14,9 +14,9 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___boxed(obj*); obj* l_Lean_Parser_command_namespace_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_only_HasView_x_27___lambda__2(obj*); -extern obj* l_Lean_NameMap_contains___rarg___closed__1; obj* l_Lean_Parser_command_export_HasView_x_27___lambda__1___closed__1; extern obj* l_Lean_Parser_Term_bracketedBinders_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_Parser___rarg___closed__1; @@ -42,10 +42,10 @@ obj* l_Lean_Parser_command_reserveNotation_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_commandParser_run(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbol_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_command_attribute_HasView_x_27___lambda__1___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming; extern obj* l_Lean_Parser_command_notation_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_initQuot_HasView_x_27; -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_export_HasView_x_27___lambda__2(obj*); extern obj* l_Lean_Parser_command_declAttributes_HasView_x_27___lambda__1___closed__2; obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_command_attribute_HasView_x_27___spec__1(obj*, obj*, obj*); @@ -61,11 +61,13 @@ obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_namespace_HasView_x_27; extern obj* l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; obj* l_Lean_Parser_command_omit_HasView; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3(obj*); obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_openSpec_hiding_HasView_x_27___lambda__1(obj*); extern obj* l_Lean_Parser_finishCommentBlock___closed__2; extern obj* l_Lean_Parser_command_NotationSpec_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Parser_termParser_run(obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___boxed(obj*); obj* l_Lean_Parser_command_universe_HasView_x_27___lambda__1___closed__1; obj* l_ReaderT_orelse___at_Lean_Parser_command_universe_Parser___spec__2___boxed(obj*); obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1___closed__2; @@ -83,6 +85,7 @@ obj* l_Lean_Parser_command_end_HasView_x_27___lambda__1(obj*); obj* l_List_map___main___at_Lean_Parser_command_structBinderContent_HasView_x_27___spec__1(obj*); obj* l_Lean_Parser_command_boolOptionValue; extern obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(obj*, obj*); uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_Lean_Parser_command_variables; obj* l_Lean_Parser_command_openSpec_hiding; @@ -94,6 +97,7 @@ obj* l_List_map___main___rarg(obj*, obj*); obj* l_Lean_Parser_command_open_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__2(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_commandParser_run___closed__1; obj* l_Lean_Parser_command_include_Parser___closed__1; obj* l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_command_universe_Parser___spec__1(obj*, obj*, obj*, obj*, obj*); @@ -115,8 +119,10 @@ obj* l_Lean_Parser_command_attribute_HasView; obj* l_Lean_Parser_command_Parser___rarg(obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_namespace_HasView_x_27___lambda__2(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5(obj*); extern obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1; obj* l_Lean_Parser_command_export_HasView; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_command_section_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_openSpec_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Combinators_many___at_Lean_Parser_command_attrInstance_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*, obj*); @@ -141,6 +147,7 @@ obj* l_Lean_Parser_command_end_HasView_x_27; obj* l_Lean_Parser_command_open_HasView_x_27; obj* l_Lean_Parser_command_openSpec_as_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_variable_HasView_x_27___lambda__1___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(obj*, obj*); obj* l_Lean_Parser_command_end; obj* l_Lean_Parser_command_variable_HasView; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); @@ -157,6 +164,7 @@ obj* l_Lean_Parser_command_optionValue_HasView_x_27; obj* l_Lean_Parser_Term_Parser(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_declAttributes_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_check_HasView_x_27___lambda__1___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(obj*, obj*); obj* l_Lean_Parser_symbolCore___at_Lean_Parser_command_docComment_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_commandParser_run___spec__1___boxed(obj*); obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27; @@ -167,6 +175,7 @@ obj* l_Lean_Parser_RecT_recurse___at_Lean_Parser_command_Parser_Lean_Parser_HasV obj* l_Lean_Parser_command_omit_Parser___closed__1; obj* l_Lean_Parser_command_universe_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_setOption_HasView; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(obj*, obj*); extern obj* l_Lean_Parser_command_reserveMixfix_Parser_Lean_Parser_HasTokens; extern obj* l_Lean_Parser_CommandParserM_MonadExcept___closed__1; obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1___closed__3; @@ -188,9 +197,11 @@ extern obj* l_Lean_Parser_Term_binder_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_check; obj* l_Lean_Parser_command_openSpec_hiding_HasView; obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___boxed(obj*); obj* l_Lean_Parser_command_include_HasView; obj* l_Lean_Parser_command_end_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_boolOptionValue_HasView_x_27___lambda__1(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___boxed(obj*); obj* l_Lean_Parser_command_variables_HasView_x_27___lambda__1(obj*); extern obj* l_Lean_Parser_noKind; obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1(obj*); @@ -255,6 +266,7 @@ obj* l_Lean_Parser_command_namespace_Parser___closed__1; extern obj* l_Lean_Parser_command_Declaration_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_Declaration_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_end_HasView_x_27___lambda__1___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinders_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_optionValue; @@ -268,7 +280,6 @@ obj* l_Lean_Parser_command_openSpec_hiding_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_openSpec_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_variables_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_openSpec_renaming_item_HasView_x_27; -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_openSpec_renaming_item; obj* l_Lean_Parser_command_universes_HasView_x_27___lambda__2(obj*); obj* l_String_trim(obj*); @@ -285,6 +296,7 @@ obj* l_Lean_Parser_command_check_Parser___closed__1; obj* l_Lean_Parser_command_openSpec_renaming_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_command_variables_Parser(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_section_Parser___closed__1; +uint8 l_Lean_Name_quickLt(obj*, obj*); extern obj* l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; extern obj* l_Lean_Parser_CommandParserM_Lean_Parser_MonadRec___closed__1; obj* l_Lean_Parser_command_openSpec_only_HasView_x_27; @@ -325,8 +337,10 @@ obj* l_ReaderT_orelse___at_Lean_Parser_command_universe_Parser___spec__2(obj*); obj* l_Lean_Parser_command_section_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_attribute_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_command_open_HasView_x_27___lambda__1___closed__3; +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_optionValue_HasView; obj* l_Lean_Parser_command_Declaration_Parser_Lean_Parser_HasView___lambda__1(obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6(obj*); obj* l_Lean_Parser_Term_binder_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_Parser___at_Lean_Parser_command_setOption_Parser_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_command_attribute_Parser_Lean_Parser_HasView; @@ -346,6 +360,7 @@ obj* l_Lean_Parser_symbolOrIdent___at_Lean_Parser_command_setOption_Parser_Lean_ obj* l_Lean_Parser_command_universes_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_command_attribute_HasView_x_27___lambda__1(obj*); extern obj* l_Lean_Parser_command_mixfix_Parser_Lean_Parser_HasTokens; +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4(obj*); obj* l_Lean_Parser_command_setOption_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_command_open_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_command_boolOptionValue_HasView; @@ -12732,6 +12747,254 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_erro return x_1; } } +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed), 2, 0); +return x_1; +} +} obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { @@ -12796,7 +13059,7 @@ lean::dec(x_13); switch (lean::obj_tag(x_37)) { case 0: { -obj* x_40; obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; +obj* x_40; obj* x_43; obj* x_46; obj* x_48; obj* x_51; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; x_40 = lean::cnstr_get(x_37, 0); lean::inc(x_40); lean::dec(x_37); @@ -12813,9 +13076,9 @@ lean::inc(x_51); lean::dec(x_40); x_54 = lean::box(0); x_55 = lean_name_mk_string(x_54, x_51); -x_56 = l_Lean_NameMap_contains___rarg___closed__1; -x_57 = l_RBNode_find___main___rarg(x_56, lean::box(0), x_0, x_55); -x_58 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_57, x_5, x_46, x_43); +x_56 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(x_0, x_55); +lean::dec(x_55); +x_58 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_56, x_5, x_46, x_43); lean::dec(x_5); x_60 = lean::cnstr_get(x_58, 0); x_62 = lean::cnstr_get(x_58, 1); @@ -12841,7 +13104,7 @@ return x_68; } case 1: { -obj* x_70; obj* x_73; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_83; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +obj* x_70; obj* x_73; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; lean::dec(x_37); x_70 = lean::cnstr_get(x_10, 1); lean::inc(x_70); @@ -12851,171 +13114,170 @@ lean::inc(x_73); x_75 = lean::cnstr_get(x_11, 2); lean::inc(x_75); lean::dec(x_11); -x_78 = l_Lean_NameMap_contains___rarg___closed__1; -x_79 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_80 = l_RBNode_find___main___rarg(x_78, lean::box(0), x_0, x_79); -x_81 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_80, x_5, x_73, x_70); +x_78 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_79 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(x_0, x_78); +x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_79, x_5, x_73, x_70); lean::dec(x_5); -x_83 = lean::cnstr_get(x_81, 0); -x_85 = lean::cnstr_get(x_81, 1); -if (lean::is_exclusive(x_81)) { - x_87 = x_81; +x_82 = lean::cnstr_get(x_80, 0); +x_84 = lean::cnstr_get(x_80, 1); +if (lean::is_exclusive(x_80)) { + x_86 = x_80; } else { - lean::inc(x_83); - lean::inc(x_85); - lean::dec(x_81); - x_87 = lean::box(0); + lean::inc(x_82); + lean::inc(x_84); + lean::dec(x_80); + x_86 = lean::box(0); } -x_88 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_88, x_83); -x_90 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_89); -if (lean::is_scalar(x_87)) { - x_91 = lean::alloc_cnstr(0, 2, 0); +x_87 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_82); +x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_88); +if (lean::is_scalar(x_86)) { + x_90 = lean::alloc_cnstr(0, 2, 0); } else { - x_91 = x_87; + x_90 = x_86; } -lean::cnstr_set(x_91, 0, x_90); -lean::cnstr_set(x_91, 1, x_85); -return x_91; +lean::cnstr_set(x_90, 0, x_89); +lean::cnstr_set(x_90, 1, x_84); +return x_90; } case 2: { -obj* x_92; obj* x_95; obj* x_97; obj* x_100; obj* x_103; obj* x_106; obj* x_107; obj* x_108; obj* x_110; obj* x_112; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; -x_92 = lean::cnstr_get(x_10, 1); -lean::inc(x_92); +obj* x_91; obj* x_94; obj* x_96; obj* x_99; obj* x_102; obj* x_105; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; +x_91 = lean::cnstr_get(x_10, 1); +lean::inc(x_91); lean::dec(x_10); -x_95 = lean::cnstr_get(x_11, 1); -lean::inc(x_95); -x_97 = lean::cnstr_get(x_11, 2); -lean::inc(x_97); +x_94 = lean::cnstr_get(x_11, 1); +lean::inc(x_94); +x_96 = lean::cnstr_get(x_11, 2); +lean::inc(x_96); lean::dec(x_11); -x_100 = lean::cnstr_get(x_37, 0); -lean::inc(x_100); +x_99 = lean::cnstr_get(x_37, 0); +lean::inc(x_99); lean::dec(x_37); -x_103 = lean::cnstr_get(x_100, 0); -lean::inc(x_103); -lean::dec(x_100); -x_106 = l_Lean_NameMap_contains___rarg___closed__1; -x_107 = l_RBNode_find___main___rarg(x_106, lean::box(0), x_0, x_103); -x_108 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_107, x_5, x_95, x_92); +x_102 = lean::cnstr_get(x_99, 0); +lean::inc(x_102); +lean::dec(x_99); +x_105 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(x_0, x_102); +lean::dec(x_102); +x_107 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_105, x_5, x_94, x_91); lean::dec(x_5); -x_110 = lean::cnstr_get(x_108, 0); -x_112 = lean::cnstr_get(x_108, 1); -if (lean::is_exclusive(x_108)) { - x_114 = x_108; +x_109 = lean::cnstr_get(x_107, 0); +x_111 = lean::cnstr_get(x_107, 1); +if (lean::is_exclusive(x_107)) { + x_113 = x_107; } else { - lean::inc(x_110); - lean::inc(x_112); - lean::dec(x_108); - x_114 = lean::box(0); + lean::inc(x_109); + lean::inc(x_111); + lean::dec(x_107); + x_113 = lean::box(0); } -x_115 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_115, x_110); -x_117 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_97, x_116); -if (lean::is_scalar(x_114)) { - x_118 = lean::alloc_cnstr(0, 2, 0); +x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_109); +x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_115); +if (lean::is_scalar(x_113)) { + x_117 = lean::alloc_cnstr(0, 2, 0); } else { - x_118 = x_114; + x_117 = x_113; } -lean::cnstr_set(x_118, 0, x_117); -lean::cnstr_set(x_118, 1, x_112); -return x_118; +lean::cnstr_set(x_117, 0, x_116); +lean::cnstr_set(x_117, 1, x_111); +return x_117; } default: { -obj* x_119; obj* x_122; obj* x_124; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; -x_119 = lean::cnstr_get(x_10, 1); -lean::inc(x_119); +obj* x_118; obj* x_121; obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; +x_118 = lean::cnstr_get(x_10, 1); +lean::inc(x_118); lean::dec(x_10); -x_122 = lean::cnstr_get(x_11, 1); -lean::inc(x_122); -x_124 = lean::cnstr_get(x_11, 2); -lean::inc(x_124); +x_121 = lean::cnstr_get(x_11, 1); +lean::inc(x_121); +x_123 = lean::cnstr_get(x_11, 2); +lean::inc(x_123); lean::dec(x_11); -x_127 = lean::box(0); -x_128 = l_String_splitAux___main___closed__1; -x_129 = l_mjoin___rarg___closed__1; -x_130 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_128, x_129, x_127, x_127, x_5, x_122, x_119); -x_131 = lean::cnstr_get(x_130, 0); -lean::inc(x_131); -if (lean::obj_tag(x_131) == 0) +x_126 = lean::box(0); +x_127 = l_String_splitAux___main___closed__1; +x_128 = l_mjoin___rarg___closed__1; +x_129 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_127, x_128, x_126, x_126, x_5, x_121, x_118); +x_130 = lean::cnstr_get(x_129, 0); +lean::inc(x_130); +if (lean::obj_tag(x_130) == 0) { -obj* x_133; obj* x_136; obj* x_138; obj* x_140; obj* x_143; obj* x_144; obj* x_145; obj* x_147; obj* x_149; obj* x_151; obj* x_152; obj* x_153; obj* x_154; -x_133 = lean::cnstr_get(x_130, 1); -lean::inc(x_133); +obj* x_132; obj* x_135; obj* x_137; obj* x_139; obj* x_142; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_151; obj* x_152; obj* x_153; +x_132 = lean::cnstr_get(x_129, 1); +lean::inc(x_132); +lean::dec(x_129); +x_135 = lean::cnstr_get(x_130, 0); +lean::inc(x_135); +x_137 = lean::cnstr_get(x_130, 1); +lean::inc(x_137); +x_139 = lean::cnstr_get(x_130, 2); +lean::inc(x_139); lean::dec(x_130); -x_136 = lean::cnstr_get(x_131, 0); -lean::inc(x_136); -x_138 = lean::cnstr_get(x_131, 1); -lean::inc(x_138); -x_140 = lean::cnstr_get(x_131, 2); -lean::inc(x_140); -lean::dec(x_131); -x_143 = l_Lean_NameMap_contains___rarg___closed__1; -x_144 = l_RBNode_find___main___rarg(x_143, lean::box(0), x_0, x_136); -x_145 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_144, x_5, x_138, x_133); +x_142 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_135); +lean::dec(x_135); +x_144 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_142, x_5, x_137, x_132); lean::dec(x_5); -x_147 = lean::cnstr_get(x_145, 0); -x_149 = lean::cnstr_get(x_145, 1); -if (lean::is_exclusive(x_145)) { - x_151 = x_145; +x_146 = lean::cnstr_get(x_144, 0); +x_148 = lean::cnstr_get(x_144, 1); +if (lean::is_exclusive(x_144)) { + x_150 = x_144; } else { - lean::inc(x_147); - lean::inc(x_149); - lean::dec(x_145); - x_151 = lean::box(0); + lean::inc(x_146); + lean::inc(x_148); + lean::dec(x_144); + x_150 = lean::box(0); } -x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_140, x_147); -x_153 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_152); -if (lean::is_scalar(x_151)) { - x_154 = lean::alloc_cnstr(0, 2, 0); +x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_139, x_146); +x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_151); +if (lean::is_scalar(x_150)) { + x_153 = lean::alloc_cnstr(0, 2, 0); } else { - x_154 = x_151; + x_153 = x_150; } -lean::cnstr_set(x_154, 0, x_153); -lean::cnstr_set(x_154, 1, x_149); -return x_154; +lean::cnstr_set(x_153, 0, x_152); +lean::cnstr_set(x_153, 1, x_148); +return x_153; } else { -obj* x_157; obj* x_159; obj* x_160; uint8 x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; +obj* x_156; obj* x_158; obj* x_159; uint8 x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; lean::dec(x_5); lean::dec(x_0); -x_157 = lean::cnstr_get(x_130, 1); +x_156 = lean::cnstr_get(x_129, 1); +if (lean::is_exclusive(x_129)) { + lean::cnstr_release(x_129, 0); + x_158 = x_129; +} else { + lean::inc(x_156); + lean::dec(x_129); + x_158 = lean::box(0); +} +x_159 = lean::cnstr_get(x_130, 0); +x_161 = lean::cnstr_get_scalar(x_130, sizeof(void*)*1); if (lean::is_exclusive(x_130)) { - lean::cnstr_release(x_130, 0); - x_159 = x_130; + x_162 = x_130; } else { - lean::inc(x_157); + lean::inc(x_159); lean::dec(x_130); - x_159 = lean::box(0); + x_162 = lean::box(0); } -x_160 = lean::cnstr_get(x_131, 0); -x_162 = lean::cnstr_get_scalar(x_131, sizeof(void*)*1); -if (lean::is_exclusive(x_131)) { - x_163 = x_131; +if (lean::is_scalar(x_162)) { + x_163 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_160); - lean::dec(x_131); - x_163 = lean::box(0); + x_163 = x_162; } -if (lean::is_scalar(x_163)) { - x_164 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_163, 0, x_159); +lean::cnstr_set_scalar(x_163, sizeof(void*)*1, x_161); +x_164 = x_163; +x_165 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_164); +if (lean::is_scalar(x_158)) { + x_166 = lean::alloc_cnstr(0, 2, 0); } else { - x_164 = x_163; + x_166 = x_158; } -lean::cnstr_set(x_164, 0, x_160); -lean::cnstr_set_scalar(x_164, sizeof(void*)*1, x_162); -x_165 = x_164; -x_166 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_124, x_165); -if (lean::is_scalar(x_159)) { - x_167 = lean::alloc_cnstr(0, 2, 0); -} else { - x_167 = x_159; -} -lean::cnstr_set(x_167, 0, x_166); -lean::cnstr_set(x_167, 1, x_157); -return x_167; +lean::cnstr_set(x_166, 0, x_165); +lean::cnstr_set(x_166, 1, x_156); +return x_166; } } } @@ -13023,43 +13285,43 @@ return x_167; } else { -obj* x_170; obj* x_172; obj* x_173; uint8 x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; +obj* x_169; obj* x_171; obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; lean::dec(x_5); lean::dec(x_0); -x_170 = lean::cnstr_get(x_10, 1); +x_169 = lean::cnstr_get(x_10, 1); if (lean::is_exclusive(x_10)) { lean::cnstr_release(x_10, 0); - x_172 = x_10; + x_171 = x_10; } else { - lean::inc(x_170); + lean::inc(x_169); lean::dec(x_10); - x_172 = lean::box(0); + x_171 = lean::box(0); } -x_173 = lean::cnstr_get(x_11, 0); -x_175 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); +x_172 = lean::cnstr_get(x_11, 0); +x_174 = lean::cnstr_get_scalar(x_11, sizeof(void*)*1); if (lean::is_exclusive(x_11)) { - x_176 = x_11; + x_175 = x_11; } else { - lean::inc(x_173); + lean::inc(x_172); lean::dec(x_11); - x_176 = lean::box(0); + x_175 = lean::box(0); } -if (lean::is_scalar(x_176)) { - x_177 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_175)) { + x_176 = lean::alloc_cnstr(1, 1, 1); } else { - x_177 = x_176; + x_176 = x_175; } -lean::cnstr_set(x_177, 0, x_173); -lean::cnstr_set_scalar(x_177, sizeof(void*)*1, x_175); -x_178 = x_177; -if (lean::is_scalar(x_172)) { - x_179 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_176, 0, x_172); +lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_174); +x_177 = x_176; +if (lean::is_scalar(x_171)) { + x_178 = lean::alloc_cnstr(0, 2, 0); } else { - x_179 = x_172; + x_178 = x_171; } -lean::cnstr_set(x_179, 0, x_178); -lean::cnstr_set(x_179, 1, x_170); -return x_179; +lean::cnstr_set(x_178, 0, x_177); +lean::cnstr_set(x_178, 1, x_169); +return x_178; } } } @@ -13199,6 +13461,78 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__5(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_commandParser_run___spec__6(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_Parser_indexed___at_Lean_Parser_commandParser_run___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { diff --git a/src/stage0/init/lean/parser/module.cpp b/src/stage0/init/lean/parser/module.cpp index 00e09ffdf5..428defd54c 100644 --- a/src/stage0/init/lean/parser/module.cpp +++ b/src/stage0/init/lean/parser/module.cpp @@ -31,6 +31,7 @@ obj* l_Lean_Parser_symbol_tokens___rarg(obj*, obj*); namespace lean { obj* nat_sub(obj*, obj*); } +obj* l_Id_map___boxed(obj*, obj*); obj* l_Lean_Parser_ModuleParserM_Monad; obj* l_Lean_Parser_ModuleParserM_liftParserT___boxed(obj*); obj* l_Lean_Parser_resumeModuleParser___boxed(obj*); @@ -248,20 +249,20 @@ return x_1; obj* _init_l_Lean_Parser_ModuleParserM_Monad() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -276,20 +277,20 @@ return x_11; obj* _init_l_Lean_Parser_ModuleParserM_Alternative() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -306,20 +307,20 @@ return x_13; obj* _init_l_Lean_Parser_ModuleParserM_MonadReader() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -339,20 +340,20 @@ return x_13; obj* _init_l_Lean_Parser_ModuleParserM_MonadState() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -367,20 +368,20 @@ return x_11; obj* _init_l_Lean_Parser_ModuleParserM_Lean_Parser_MonadParsec() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_16; obj* x_17; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_16; obj* x_17; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); @@ -407,20 +408,20 @@ return x_17; obj* _init_l_Lean_Parser_ModuleParserM_MonadExcept() { _start: { -obj* x_0; obj* x_1; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; -x_0 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); +obj* x_0; obj* x_1; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::alloc_closure(reinterpret_cast(l_Id_map___boxed), 2, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__1___boxed), 4, 0); lean::inc(x_1); -lean::inc(x_0); -x_4 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_4, 0, x_0); -lean::cnstr_set(x_4, 1, x_1); -x_5 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_1); +x_4 = lean::alloc_closure(reinterpret_cast(l_Id_pure___boxed), 1, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__2___boxed), 4, 0); x_6 = lean::alloc_closure(reinterpret_cast(l_Id_Monad___lambda__3___boxed), 4, 0); x_7 = lean::alloc_cnstr(0, 5, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_5); -lean::cnstr_set(x_7, 2, x_0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_4); +lean::cnstr_set(x_7, 2, x_5); lean::cnstr_set(x_7, 3, x_1); lean::cnstr_set(x_7, 4, x_6); x_8 = lean::alloc_closure(reinterpret_cast(l_Id_bind___boxed), 2, 0); diff --git a/src/stage0/init/lean/parser/parsec.cpp b/src/stage0/init/lean/parser/parsec.cpp index 29f71db834..b91d7e1aea 100644 --- a/src/stage0/init/lean/parser/parsec.cpp +++ b/src/stage0/init/lean/parser/parsec.cpp @@ -165,7 +165,6 @@ obj* l___private_init_lean_parser_parsec_1__oldLineColumnAux___main(obj*, obj*, obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___rarg(obj*, obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux(obj*); obj* l_Lean_Parser_MonadParsec_try___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1; obj* l_Lean_Parser_MonadParsec_lower(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_MonadParsec_takeUntil1___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_ensure___rarg___lambda__1___closed__1; @@ -176,7 +175,6 @@ obj* l_Lean_Parser_ParsecT_parseWithEoi___rarg___lambda__1(obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_Alternative___rarg___lambda__2___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_Monad___rarg___lambda__6(obj*, obj*, obj*, obj*); obj* l_id___rarg___boxed(obj*); -obj* l_Lean_Parser_MonadParsec_sepBy1___rarg___lambda__1(obj*, obj*); obj* l_Lean_Parser_MonadParsec_many1Aux(obj*, obj*); obj* l_String_OldIterator_remaining___main(obj*); obj* l_Lean_Parser_MonadParsec_upper___boxed(obj*, obj*); @@ -623,6 +621,7 @@ obj* string_utf8_extract(obj*, obj*, obj*); } obj* l_Lean_Parser_MonadParsec_whitespace(obj*, obj*); obj* l_Lean_Parser_Parsec_parse___rarg___boxed(obj*, obj*, obj*); +extern obj* l_List_mmap___main___rarg___closed__1; obj* l_Lean_Parser_ParsecT_expect___boxed(obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_MonadParsec_num___spec__3(obj*); obj* l_Lean_Parser_MonadParsec_foldl(obj*, obj*); @@ -9151,24 +9150,6 @@ lean::dec(x_1); return x_2; } } -obj* l_Lean_Parser_MonadParsec_sepBy1___rarg___lambda__1(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_2, 0, x_0); -lean::cnstr_set(x_2, 1, x_1); -return x_2; -} -} -obj* _init_l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_MonadParsec_sepBy1___rarg___lambda__1), 2, 0); -return x_0; -} -} obj* l_Lean_Parser_MonadParsec_sepBy1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { @@ -9182,7 +9163,7 @@ lean::inc(x_11); x_13 = lean::cnstr_get(x_11, 0); lean::inc(x_13); lean::dec(x_11); -x_16 = l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1; +x_16 = l_List_mmap___main___rarg___closed__1; lean::inc(x_5); x_18 = lean::apply_4(x_13, lean::box(0), lean::box(0), x_16, x_5); x_19 = lean::cnstr_get(x_7, 4); @@ -11412,8 +11393,6 @@ lean::mark_persistent(l_Lean_Parser_MonadParsec_ensure___rarg___lambda__1___clos lean::mark_persistent(l_Lean_Parser_MonadParsec_pos___rarg___closed__1); l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1(); lean::mark_persistent(l_Lean_Parser_MonadParsec_eoi___rarg___lambda__1___closed__1); - l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1 = _init_l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1(); -lean::mark_persistent(l_Lean_Parser_MonadParsec_sepBy1___rarg___closed__1); l_Lean_Parser_MonadParsec_fixAux___main___rarg___closed__1 = _init_l_Lean_Parser_MonadParsec_fixAux___main___rarg___closed__1(); lean::mark_persistent(l_Lean_Parser_MonadParsec_fixAux___main___rarg___closed__1); l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1 = _init_l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1(); diff --git a/src/stage0/init/lean/parser/pratt.cpp b/src/stage0/init/lean/parser/pratt.cpp index 3d3a718f01..a1299bb681 100644 --- a/src/stage0/init/lean/parser/pratt.cpp +++ b/src/stage0/init/lean/parser/pratt.cpp @@ -31,7 +31,6 @@ obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___boxed(obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_String_OldIterator_remaining___main(obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___boxed(obj*, obj*); obj* l_Lean_Parser_currLbp(obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main(obj*); @@ -40,12 +39,11 @@ obj* l_Lean_Parser_currLbp___rarg___lambda__1___closed__1; obj* l_Lean_Parser_prattParser_View___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___boxed(obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop(obj*); +extern obj* l_Lean_Parser_MonadParsec_remaining___rarg___closed__1; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___boxed(obj*, obj*); -obj* l_Lean_Parser_prattParser___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_prattParser___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; namespace lean { uint8 nat_dec_lt(obj*, obj*); @@ -54,7 +52,7 @@ extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg__ obj* l_List_append___rarg(obj*, obj*); obj* l_Lean_Parser_currLbp___rarg(obj*, obj*, obj*, obj*, obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); -obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); namespace lean { obj* nat_add(obj*, obj*); } @@ -86,7 +84,7 @@ obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___boxed( obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_currLbp___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj*, obj*); +obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -735,22 +733,7 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; obj* x_3; obj* x_6; obj* x_9; -x_2 = l_String_OldIterator_remaining___main(x_1); -x_3 = lean::cnstr_get(x_0, 0); -lean::inc(x_3); -lean::dec(x_0); -x_6 = lean::cnstr_get(x_3, 1); -lean::inc(x_6); -lean::dec(x_3); -x_9 = lean::apply_2(x_6, lean::box(0), x_2); -return x_9; -} -} -obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; obj* x_10; obj* x_11; @@ -761,33 +744,38 @@ lean::dec(x_10); return x_11; } } -obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { -obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_16; obj* x_17; obj* x_18; +obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; x_9 = lean::cnstr_get(x_0, 0); lean::inc(x_9); x_11 = l_Lean_Parser_MonadParsec_leftOver___rarg___closed__1; x_12 = lean::apply_2(x_9, lean::box(0), x_11); -lean::inc(x_1); -x_14 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__1___boxed), 2, 1); -lean::closure_set(x_14, 0, x_1); -lean::inc(x_2); -x_16 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_12, x_14); -x_17 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__2___boxed), 9, 8); -lean::closure_set(x_17, 0, x_1); -lean::closure_set(x_17, 1, x_3); -lean::closure_set(x_17, 2, x_0); -lean::closure_set(x_17, 3, x_4); -lean::closure_set(x_17, 4, x_5); -lean::closure_set(x_17, 5, x_6); -lean::closure_set(x_17, 6, x_8); -lean::closure_set(x_17, 7, x_7); -x_18 = lean::apply_4(x_2, lean::box(0), lean::box(0), x_16, x_17); -return x_18; +x_13 = lean::cnstr_get(x_1, 0); +lean::inc(x_13); +x_15 = lean::cnstr_get(x_13, 0); +lean::inc(x_15); +lean::dec(x_13); +x_18 = lean::cnstr_get(x_15, 0); +lean::inc(x_18); +lean::dec(x_15); +x_21 = l_Lean_Parser_MonadParsec_remaining___rarg___closed__1; +x_22 = lean::apply_4(x_18, lean::box(0), lean::box(0), x_21, x_12); +x_23 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__1___boxed), 9, 8); +lean::closure_set(x_23, 0, x_1); +lean::closure_set(x_23, 1, x_2); +lean::closure_set(x_23, 2, x_0); +lean::closure_set(x_23, 3, x_3); +lean::closure_set(x_23, 4, x_4); +lean::closure_set(x_23, 5, x_5); +lean::closure_set(x_23, 6, x_8); +lean::closure_set(x_23, 7, x_6); +x_24 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_22, x_23); +return x_24; } } -obj* l_Lean_Parser_prattParser___rarg___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { obj* x_8; obj* x_11; obj* x_13; obj* x_14; @@ -796,15 +784,15 @@ lean::inc(x_8); lean::inc(x_6); x_11 = lean::apply_1(x_1, x_6); lean::inc(x_8); -x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__3), 9, 8); +x_13 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__2), 9, 8); lean::closure_set(x_13, 0, x_2); lean::closure_set(x_13, 1, x_0); -lean::closure_set(x_13, 2, x_8); -lean::closure_set(x_13, 3, x_3); -lean::closure_set(x_13, 4, x_4); -lean::closure_set(x_13, 5, x_5); -lean::closure_set(x_13, 6, x_7); -lean::closure_set(x_13, 7, x_6); +lean::closure_set(x_13, 2, x_3); +lean::closure_set(x_13, 3, x_4); +lean::closure_set(x_13, 4, x_5); +lean::closure_set(x_13, 5, x_7); +lean::closure_set(x_13, 6, x_6); +lean::closure_set(x_13, 7, x_8); x_14 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_11, x_13); return x_14; } @@ -816,7 +804,7 @@ obj* x_10; obj* x_11; obj* x_12; obj* x_13; lean::inc(x_2); x_10 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed), 2, 1); lean::closure_set(x_10, 0, x_2); -x_11 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__4), 8, 6); +x_11 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___rarg___lambda__3), 8, 6); lean::closure_set(x_11, 0, x_0); lean::closure_set(x_11, 1, x_6); lean::closure_set(x_11, 2, x_2); @@ -838,20 +826,11 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_prattParser___ra return x_1; } } -obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_Lean_Parser_prattParser___rarg___lambda__1(x_0, x_1); -lean::dec(x_1); -return x_2; -} -} -obj* l_Lean_Parser_prattParser___rarg___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; -x_9 = l_Lean_Parser_prattParser___rarg___lambda__2(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +x_9 = l_Lean_Parser_prattParser___rarg___lambda__1(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); lean::dec(x_8); return x_9; } diff --git a/src/stage0/init/lean/parser/syntax.cpp b/src/stage0/init/lean/parser/syntax.cpp index 32f8c7e11a..afabab2642 100644 --- a/src/stage0/init/lean/parser/syntax.cpp +++ b/src/stage0/init/lean/parser/syntax.cpp @@ -17,13 +17,14 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; obj* l_Lean_Parser_Syntax_replace(obj*, obj*); uint8 l_List_foldr___main___at_Lean_Parser_Syntax_reprint___main___spec__2(obj*, uint8, obj*); obj* l_Lean_Parser_MacroScope_Lean_HasToFormat; -obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(obj*, obj*, obj*); +obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___boxed(obj*, obj*); obj* l_Lean_Format_joinSep___main___at_Lean_Parser_Syntax_toFormat___main___spec__9(obj*, obj*); obj* l_Lean_Parser_macroScopes_flip___main___boxed(obj*, obj*); extern "C" uint8 lean_name_dec_eq(obj*, obj*); obj* l_Lean_Parser_Syntax_flipScopes___main(obj*, obj*); obj* l_Lean_Parser_macroScopes_flip___main(obj*, obj*); obj* l_Lean_Parser_Syntax_mreplace___main___rarg(obj*, obj*, obj*); +obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___boxed(obj*); obj* l_Lean_Parser_Syntax_toFormat___main___closed__8; obj* l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_replace___spec__1(obj*, obj*); namespace lean { @@ -41,11 +42,11 @@ obj* l_Lean_Parser_Syntax_toFormat___main___closed__9; obj* l_Lean_Parser_Syntax_isOfKind___main___boxed(obj*, obj*); obj* l_Lean_Parser_choice; obj* l_Lean_Parser_Syntax_toFormat___main___closed__4; +obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2(obj*, obj*); obj* l_Lean_Parser_Substring_HasToString; obj* l_Function_comp___rarg(obj*, obj*, obj*); obj* l_List_reverse___rarg(obj*); obj* l_Lean_Format_joinSep___main___at_Lean_Parser_Syntax_toFormat___main___spec__6(obj*, obj*); -obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_List_foldr___main___at_Lean_Parser_Syntax_reprint___main___spec__2___boxed(obj*, obj*, obj*); obj* l_Lean_Name_toStringWithSep___main(obj*, obj*); @@ -67,7 +68,6 @@ obj* l_Lean_Parser_Syntax_getHeadInfo___main___boxed(obj*); obj* l_List_mmap___main___at_Lean_Parser_Syntax_replace___spec__2(obj*, obj*); obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1(obj*); obj* l_Lean_natHasToFormat(obj*); -obj* l_List_mmap___main___rarg___lambda__1(obj*, obj*, obj*); obj* l_Lean_toFmt___at_Lean_Parser_Syntax_toFormat___main___spec__1(obj*); obj* l_List_mmap___main___at_Lean_Parser_Syntax_reprint___main___spec__1(obj*); namespace lean { @@ -82,6 +82,7 @@ obj* l_Lean_Parser_Syntax_kind(obj*); obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Syntax_toFormat___main___closed__2; obj* l_Lean_Parser_Syntax_getPos(obj*); +obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3(obj*); obj* l_Lean_Parser_Syntax_toFormat___main___closed__1; obj* l_Lean_Parser_noKind; obj* l_Lean_Parser_Syntax_reprintAtom___main(obj*); @@ -100,6 +101,7 @@ obj* l_Lean_Parser_Syntax_reprint___main___closed__1; obj* l_Lean_Parser_Syntax_reprintAtom(obj*); obj* l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1(obj*, obj*, obj*); obj* l_Lean_Parser_Syntax_reprint(obj*); +obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg(obj*, obj*, obj*); namespace lean { uint8 string_dec_eq(obj*, obj*); } @@ -107,6 +109,7 @@ obj* l_Lean_HasRepr___lambda__1(obj*); obj* l_Lean_Parser_Syntax_updateLeading(obj*, obj*); obj* l___private_init_lean_parser_syntax_1__updateLeadingAux(obj*, obj*); obj* l_Lean_Parser_Syntax_Lean_HasToFormat; +obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___rarg(obj*, obj*); obj* l_Lean_Name_replacePrefix___main(obj*, obj*, obj*); extern obj* l_Lean_Format_sbracket___closed__3; obj* l_Lean_Parser_Syntax_HasToString; @@ -125,6 +128,7 @@ obj* l_Lean_Parser_Syntax_toFormat___main___closed__3; extern obj* l_Lean_Name_toString___closed__1; obj* l_Lean_Parser_Syntax_flipScopes(obj*, obj*); obj* l_Lean_toFmt___at_Lean_Parser_Syntax_toFormat___main___spec__2(obj*); +extern obj* l_List_mmap___main___rarg___closed__1; obj* l_Lean_Parser_Syntax_kind___main(obj*); obj* l_Lean_Parser_Syntax_toFormat___main___closed__6; obj* l_Lean_Parser_macroScopes_flip___boxed(obj*, obj*); @@ -137,6 +141,7 @@ obj* l_String_quote(obj*); obj* l_Lean_Parser_Syntax_toFormat___main___closed__7; obj* l_Lean_Parser_Substring_ofString(obj*); uint8 l_Lean_Parser_Syntax_isOfKind(obj*, obj*); +obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(obj*, obj*, obj*); obj* l_Lean_Parser_Syntax_toFormat___main(obj*); obj* l_List_mmap___main___at_Lean_Parser_Syntax_reprint___main___spec__1___closed__1; obj* l_List_map___main___at_Lean_Parser_Syntax_toFormat___main___spec__5(obj*); @@ -628,19 +633,6 @@ lean::dec(x_1); return x_3; } } -obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { -_start: -{ -obj* x_6; obj* x_7; obj* x_8; -lean::inc(x_0); -x_6 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_0, x_1, x_2); -x_7 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___rarg___lambda__1), 3, 2); -lean::closure_set(x_7, 0, x_0); -lean::closure_set(x_7, 1, x_4); -x_8 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_6, x_7); -return x_8; -} -} obj* l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -660,25 +652,30 @@ return x_11; } else { -obj* x_12; obj* x_14; obj* x_17; obj* x_21; obj* x_23; obj* x_24; -x_12 = lean::cnstr_get(x_2, 0); +obj* x_12; obj* x_14; obj* x_16; obj* x_19; obj* x_21; obj* x_24; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_12 = lean::cnstr_get(x_0, 0); lean::inc(x_12); -x_14 = lean::cnstr_get(x_2, 1); +x_14 = lean::cnstr_get(x_2, 0); lean::inc(x_14); +x_16 = lean::cnstr_get(x_2, 1); +lean::inc(x_16); lean::dec(x_2); -x_17 = lean::cnstr_get(x_0, 1); -lean::inc(x_17); +x_19 = lean::cnstr_get(x_12, 2); +lean::inc(x_19); +x_21 = lean::cnstr_get(x_12, 0); +lean::inc(x_21); +lean::dec(x_12); +x_24 = lean::cnstr_get(x_21, 0); +lean::inc(x_24); +lean::dec(x_21); lean::inc(x_1); lean::inc(x_0); -x_21 = l_Lean_Parser_Syntax_mreplace___main___rarg(x_0, x_1, x_12); -lean::inc(x_17); -x_23 = lean::alloc_closure(reinterpret_cast(l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg___lambda__1), 5, 4); -lean::closure_set(x_23, 0, x_0); -lean::closure_set(x_23, 1, x_1); -lean::closure_set(x_23, 2, x_14); -lean::closure_set(x_23, 3, x_17); -x_24 = lean::apply_4(x_17, lean::box(0), lean::box(0), x_21, x_23); -return x_24; +x_29 = l_Lean_Parser_Syntax_mreplace___main___rarg(x_0, x_1, x_14); +x_30 = l_List_mmap___main___rarg___closed__1; +x_31 = lean::apply_4(x_24, lean::box(0), lean::box(0), x_30, x_29); +x_32 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_0, x_1, x_16); +x_33 = lean::apply_4(x_19, lean::box(0), lean::box(0), x_31, x_32); +return x_33; } } } @@ -726,26 +723,23 @@ return x_20; obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_6; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; -x_3 = lean::cnstr_get(x_0, 0); +obj* x_3; obj* x_6; obj* x_8; obj* x_11; obj* x_12; obj* x_13; +x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = lean::cnstr_get(x_3, 1); +x_6 = lean::cnstr_get(x_1, 0); lean::inc(x_6); -lean::dec(x_3); -x_9 = lean::cnstr_get(x_1, 0); -lean::inc(x_9); -x_11 = lean::cnstr_get(x_1, 2); -lean::inc(x_11); +x_8 = lean::cnstr_get(x_1, 2); +lean::inc(x_8); lean::dec(x_1); -x_14 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_14, 0, x_9); -lean::cnstr_set(x_14, 1, x_2); -lean::cnstr_set(x_14, 2, x_11); -x_15 = lean::alloc_cnstr(2, 1, 0); -lean::cnstr_set(x_15, 0, x_14); -x_16 = lean::apply_2(x_6, lean::box(0), x_15); -return x_16; +x_11 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_11, 0, x_6); +lean::cnstr_set(x_11, 1, x_2); +lean::cnstr_set(x_11, 2, x_8); +x_12 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_12, 0, x_11); +x_13 = lean::apply_2(x_3, lean::box(0), x_12); +return x_13; } } obj* l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -753,34 +747,35 @@ _start: { if (lean::obj_tag(x_4) == 0) { -obj* x_5; obj* x_8; obj* x_9; obj* x_10; -x_5 = lean::cnstr_get(x_0, 1); +obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_11; +x_5 = lean::cnstr_get(x_0, 0); lean::inc(x_5); -lean::inc(x_1); -x_8 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_1, x_2, x_5); -x_9 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2), 3, 2); -lean::closure_set(x_9, 0, x_1); -lean::closure_set(x_9, 1, x_0); -x_10 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_8, x_9); -return x_10; +x_7 = lean::cnstr_get(x_1, 1); +lean::inc(x_7); +x_9 = l_List_mmap___main___at_Lean_Parser_Syntax_mreplace___main___spec__1___rarg(x_0, x_2, x_7); +x_10 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__2), 3, 2); +lean::closure_set(x_10, 0, x_5); +lean::closure_set(x_10, 1, x_1); +x_11 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_9, x_10); +return x_11; } else { -obj* x_14; obj* x_17; obj* x_20; obj* x_23; -lean::dec(x_3); -lean::dec(x_0); -lean::dec(x_2); -x_14 = lean::cnstr_get(x_4, 0); -lean::inc(x_14); -lean::dec(x_4); -x_17 = lean::cnstr_get(x_1, 0); -lean::inc(x_17); +obj* x_15; obj* x_18; obj* x_21; obj* x_24; lean::dec(x_1); -x_20 = lean::cnstr_get(x_17, 1); -lean::inc(x_20); -lean::dec(x_17); -x_23 = lean::apply_2(x_20, lean::box(0), x_14); -return x_23; +lean::dec(x_3); +lean::dec(x_2); +x_15 = lean::cnstr_get(x_4, 0); +lean::inc(x_15); +lean::dec(x_4); +x_18 = lean::cnstr_get(x_0, 0); +lean::inc(x_18); +lean::dec(x_0); +x_21 = lean::cnstr_get(x_18, 1); +lean::inc(x_21); +lean::dec(x_18); +x_24 = lean::apply_2(x_21, lean::box(0), x_15); +return x_24; } } } @@ -800,8 +795,8 @@ lean::inc(x_1); x_10 = lean::apply_1(x_1, x_2); lean::inc(x_7); x_12 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_Syntax_mreplace___main___rarg___lambda__3), 5, 4); -lean::closure_set(x_12, 0, x_5); -lean::closure_set(x_12, 1, x_0); +lean::closure_set(x_12, 0, x_0); +lean::closure_set(x_12, 1, x_5); lean::closure_set(x_12, 2, x_1); lean::closure_set(x_12, 3, x_7); x_13 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_10, x_12); @@ -1239,7 +1234,59 @@ x_2 = l___private_init_lean_parser_syntax_1__updateLeadingAux___main(x_0, x_1); return x_2; } } -obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(obj* x_0, obj* x_1, obj* x_2) { +obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; +x_3 = lean::apply_1(x_1, x_2); +x_4 = lean::cnstr_get(x_3, 0); +x_6 = lean::cnstr_get(x_3, 1); +if (lean::is_exclusive(x_3)) { + x_8 = x_3; +} else { + lean::inc(x_4); + lean::inc(x_6); + lean::dec(x_3); + x_8 = lean::box(0); +} +x_9 = lean::apply_1(x_0, x_4); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(0, 2, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +lean::cnstr_set(x_10, 1, x_6); +return x_10; +} +} +obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_closure(reinterpret_cast(l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg), 3, 0); +return x_2; +} +} +obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2, 0, x_0); +lean::cnstr_set(x_2, 1, x_1); +return x_2; +} +} +obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___rarg), 2, 0); +return x_1; +} +} +obj* l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(obj* x_0, obj* x_1, obj* x_2) { _start: { if (lean::obj_tag(x_1) == 0) @@ -1254,50 +1301,43 @@ return x_5; } else { -obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_18; obj* x_19; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +obj* x_6; obj* x_8; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_27; x_6 = lean::cnstr_get(x_1, 0); +lean::inc(x_6); x_8 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - x_10 = x_1; -} else { - lean::inc(x_6); - lean::inc(x_8); - lean::dec(x_1); - x_10 = lean::box(0); -} +lean::inc(x_8); +lean::dec(x_1); lean::inc(x_0); -x_12 = l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1(x_0, x_6, x_2); -x_13 = lean::cnstr_get(x_12, 0); -lean::inc(x_13); -x_15 = lean::cnstr_get(x_12, 1); +x_12 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_Syntax_mreplace___main___at_Lean_Parser_Syntax_updateLeading___spec__1), 3, 2); +lean::closure_set(x_12, 0, x_0); +lean::closure_set(x_12, 1, x_6); +x_13 = l_List_mmap___main___rarg___closed__1; +x_14 = l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___rarg(x_13, x_12, x_2); +x_15 = lean::cnstr_get(x_14, 0); lean::inc(x_15); -lean::dec(x_12); -x_18 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(x_0, x_8, x_15); -x_19 = lean::cnstr_get(x_18, 0); -x_21 = lean::cnstr_get(x_18, 1); -if (lean::is_exclusive(x_18)) { - x_23 = x_18; +x_17 = lean::cnstr_get(x_14, 1); +lean::inc(x_17); +lean::dec(x_14); +x_20 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(x_0, x_8, x_17); +x_21 = lean::cnstr_get(x_20, 0); +x_23 = lean::cnstr_get(x_20, 1); +if (lean::is_exclusive(x_20)) { + x_25 = x_20; } else { - lean::inc(x_19); lean::inc(x_21); - lean::dec(x_18); - x_23 = lean::box(0); + lean::inc(x_23); + lean::dec(x_20); + x_25 = lean::box(0); } -if (lean::is_scalar(x_10)) { - x_24 = lean::alloc_cnstr(1, 2, 0); +x_26 = lean::apply_1(x_15, x_21); +if (lean::is_scalar(x_25)) { + x_27 = lean::alloc_cnstr(0, 2, 0); } else { - x_24 = x_10; + x_27 = x_25; } -lean::cnstr_set(x_24, 0, x_13); -lean::cnstr_set(x_24, 1, x_19); -if (lean::is_scalar(x_23)) { - x_25 = lean::alloc_cnstr(0, 2, 0); -} else { - x_25 = x_23; -} -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_21); -return x_25; +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_23); +return x_27; } } } @@ -1331,7 +1371,7 @@ lean::inc(x_13); lean::dec(x_9); x_16 = lean::cnstr_get(x_5, 1); lean::inc(x_16); -x_18 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__2(x_0, x_16, x_13); +x_18 = l_List_mmap___main___at_Lean_Parser_Syntax_updateLeading___spec__4(x_0, x_16, x_13); x_19 = lean::cnstr_get(x_18, 0); x_21 = lean::cnstr_get(x_18, 1); if (lean::is_exclusive(x_18)) { @@ -1484,6 +1524,25 @@ lean::dec(x_5); return x_6; } } +obj* l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_StateT_map___at_Lean_Parser_Syntax_updateLeading___spec__2(x_0, x_1); +lean::dec(x_0); +lean::dec(x_1); +return x_2; +} +} +obj* l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_StateT_pure___at_Lean_Parser_Syntax_updateLeading___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_List_foldr___main___at_Lean_Parser_Syntax_getHeadInfo___main___spec__1(obj* x_0, obj* x_1) { _start: { diff --git a/src/stage0/init/lean/parser/term.cpp b/src/stage0/init/lean/parser/term.cpp index 611ce0e331..30518d80c7 100644 --- a/src/stage0/init/lean/parser/term.cpp +++ b/src/stage0/init/lean/parser/term.cpp @@ -14,6 +14,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinder_HasView___boxed(obj*); obj* l_Lean_Parser_Term_typed_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_sort_Parser_Lean_Parser_HasView; @@ -26,8 +27,6 @@ obj* l_Lean_Parser_Term_explicitBinder_HasView_x_27___boxed(obj*); obj* l_Lean_Parser_Term_structInst_Parser___closed__1; obj* l_Lean_Parser_Combinators_many1___at_Lean_Parser_identUnivSpec_Parser_Lean_Parser_HasTokens___spec__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sort_Parser(obj*, obj*, obj*, obj*, obj*); -extern obj* l_Lean_NameMap_contains___rarg___closed__1; -obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_parenContent_HasView; obj* l_Lean_Parser_Term_arrow; obj* l_Lean_Parser_Term_sort_HasView_x_27; @@ -62,7 +61,7 @@ obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_Term_assume_Parser___closed__1; obj* l_Lean_Parser_Term_lambda_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Trie_oldMatchPrefix___rarg(obj*, obj*); -obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___boxed(obj*); +obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___boxed(obj*); obj* l_Lean_Parser_Term_hole_Parser___closed__1; obj* l_Lean_Parser_Term_builtinTrailingParsers_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_typeSpec_Parser_Lean_Parser_HasTokens; @@ -76,6 +75,7 @@ obj* l_Lean_Parser_Term_pi_HasView_x_27___lambda__1(obj*); extern obj* l_Lean_Parser_command_mixfix_kind_HasView_x_27___lambda__2___closed__6; obj* l_Lean_Parser_Term_builtinLeadingParsers; obj* l_Lean_Parser_Term_hole_HasView; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__3___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbol_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_Term_typed_HasView_x_27___lambda__1(obj*); @@ -98,12 +98,12 @@ obj* l_Lean_Parser_Combinators_longestChoice___at_Lean_Parser_Term_bracketedBind uint8 l_String_isEmpty(obj*); obj* l_Lean_Parser_Term_binders_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_bindersTypes_HasView_x_27___lambda__1(obj*); -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_mixedBinder_HasView_x_27; obj* l_Lean_Parser_Combinators_sepBy___at_Lean_Parser_Term_paren_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_anonymousConstructor_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_haveFrom_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_optType_Parser___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___boxed(obj*); obj* l_Lean_Parser_Term_assumeAnonymous_HasView; extern obj* l_Lean_Parser_Level_Parser_Lean_Parser_HasTokens___closed__1; obj* l_Lean_Parser_Term_letLhsId; @@ -116,7 +116,6 @@ obj* l_Lean_Parser_Term_bindersTypes_HasView_x_27___lambda__1___closed__1; obj* l_ReaderT_bind___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*); obj* l_Lean_Parser_Term_typeSpec_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_Subtype_Parser_Lean_Parser_HasView; -obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7(obj*); obj* l_Lean_Parser_Term_projection; obj* l_Lean_Parser_Term_optIdent_Parser___closed__1; obj* l_Lean_Parser_Term_instImplicitBinder_HasView_x_27___lambda__1___closed__2; @@ -124,12 +123,12 @@ obj* l_Lean_Parser_Term_lambda_Parser___closed__1; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2(obj*); obj* l_Lean_Parser_Combinators_sepBy1_tokens___rarg(obj*, obj*); obj* l_Lean_Parser_Term_pi_HasView_x_27___lambda__1___closed__1; -obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_Term_simpleInstImplicitBinder; obj* l_Lean_Parser_Term_assumeBinders_HasView_x_27; obj* l_Lean_Parser_Term_strictImplicitBinder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_let; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___boxed(obj*); obj* l_Lean_Parser_stringLit_Parser___at_Lean_Parser_Term_builtinLeadingParsers_Lean_Parser_HasTokens___spec__1___rarg___closed__1; obj* l_Lean_Parser_Term_structInstType_HasView_x_27; obj* l_Lean_Parser_Term_parenSpecial; @@ -156,6 +155,7 @@ extern obj* l_Lean_Parser_finishCommentBlock___closed__2; obj* l_Lean_Parser_Term_typeSpec_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_letLhsId_HasView; obj* l_Lean_Parser_Term_have_HasView_x_27___lambda__1___closed__2; +obj* l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__6(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_inaccessible_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_termParser_run(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinder___closed__1; @@ -166,20 +166,20 @@ obj* l_List_mfoldl___main___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTo obj* l_Lean_Parser_Term_match_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_binder_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_implicitBinder_HasView_x_27; -obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_term_1__trailing___closed__2; obj* l_Lean_Parser_Term_binderContent_Parser(uint8, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_unicodeSymbol___at_Lean_Parser_Term_arrow_Parser_Lean_Parser_HasTokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__2; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Term_simpleImplicitBinder_HasView_x_27; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___boxed(obj*); obj* l_ReaderT_lift___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasView___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_inaccessible_Parser___closed__1; obj* l_Lean_Parser_Term_hole_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_parenContent_HasView_x_27; +obj* l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__10(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_match_Parser(obj*, obj*, obj*, obj*, obj*); -obj* l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__8(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__3___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sortApp; obj* l_Lean_Parser_Term_instImplicitNamedBinder_HasView; @@ -193,10 +193,12 @@ obj* l_Lean_Parser_Term_Subtype_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_haveFrom_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Combinators_optional___at_Lean_Parser_command_NotationSpec_symbolQuote_Parser_Lean_Parser_HasTokens___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_structInstField_HasView_x_27___lambda__1___closed__2; +obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8(obj*); obj* l_Lean_Parser_Term_tuple; obj* l_Lean_Parser_Term_instImplicitBinder_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_number_Parser___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__3(obj*, obj*); obj* l_Lean_Parser_stringLit_HasView_x_27___lambda__1(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(obj*, obj*); obj* l_Lean_Parser_identUnivs_HasView_x_27; obj* l_Lean_Parser_Term_binderDefaultTac_HasView_x_27___lambda__1___closed__1; obj* l_Function_comp___rarg(obj*, obj*, obj*); @@ -217,6 +219,7 @@ obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_implicitBinder_HasView; obj* l_Lean_Parser_Term_strictImplicitBinder_HasView_x_27; obj* l_Lean_Parser_Term_strictImplicitBinder_HasView_x_27___lambda__1___closed__1; +obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11(obj*); obj* l_Lean_Parser_Term_pi_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_projection_HasView_x_27; obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_Term_tuple_HasView_x_27___spec__1(obj*, obj*, obj*); @@ -224,7 +227,9 @@ extern obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1; obj* l_Lean_Parser_Term_inaccessible_HasView_x_27___lambda__2(obj*); extern obj* l_Lean_Parser_levelParser_run_Lean_Parser_HasView___closed__3; uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Term_instImplicitBinder_HasView_x_27___lambda__1(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4(obj*); obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2___closed__2; obj* l_Lean_Parser_Term_simpleExplicitBinder_HasView_x_27___lambda__2(obj*); @@ -243,6 +248,7 @@ obj* l___private_init_lean_parser_term_2__leading___closed__1; extern obj* l_Lean_Parser_TermParserM_Alternative; obj* l_Lean_Parser_Term_binderContent_Parser_Lean_Parser_HasView___closed__2; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___boxed(obj*); obj* l_Lean_Parser_Term_haveProof_HasView; obj* l_Lean_Parser_Term_have_HasView; obj* l_Lean_Parser_Term_Subtype_HasView_x_27; @@ -253,6 +259,7 @@ obj* l_Lean_Parser_Term_binderContent_HasView_x_27(uint8); obj* l_Lean_Parser_Term_borrowed_HasView_x_27; obj* l_Lean_Parser_Term_have_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_unicodeSymbol___at_Lean_Parser_Term_arrow_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg___boxed(obj*, obj*); obj* l_String_OldIterator_remaining___main(obj*); obj* l_Lean_Parser_Term_simpleBinder_View_toBinderInfo___main(obj*); obj* l_Lean_Parser_Term_explicitBinderContent___boxed(obj*); @@ -265,17 +272,20 @@ obj* l_Lean_Parser_Term_simpleStrictImplicitBinder_HasView_x_27; obj* l_Lean_Parser_Term_instImplicitBinder; obj* l_Lean_Parser_Term_explicitBinderContent_HasView___boxed(obj*); obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(obj*, obj*); obj* l_Lean_Parser_Term_Subtype_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_borrowed_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_implicitBinder; obj* l_Lean_Parser_Term_binderIdent_Parser___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3(obj*); obj* l_Lean_Parser_Term_pi_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_Lean_Parser_HasView; obj* l_Lean_Parser_Term_haveFrom_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_structInstType_HasView; obj* l_Lean_Parser_Term_explicitBinder_HasView(uint8); obj* l_Lean_Parser_Term_structInst_HasView_x_27___lambda__1___closed__5; +obj* l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__13(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasView___closed__1; extern obj* l_Lean_Parser_number_HasView; obj* l_Lean_Parser_Term_have_Parser_Lean_Parser_HasTokens; @@ -290,6 +300,7 @@ obj* l_Lean_Parser_Term_matchEquation_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_pi_HasView_x_27; obj* l_Lean_Parser_Term_tuple_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_bindersTypes_HasView_x_27; +obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8___boxed(obj*); obj* l_Lean_Parser_Term_match_Parser___closed__1; obj* l_Lean_Parser_Term_explicitBinder_HasView___boxed(obj*); obj* l_Lean_Parser_Term_hole_Parser(obj*, obj*, obj*, obj*, obj*); @@ -302,7 +313,7 @@ obj* l_Lean_Parser_Term_show_HasView_x_27; extern obj* l_Lean_Parser_command_notation_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_bindersExt_HasView_x_27___lambda__1___closed__5; obj* l_Lean_Parser_Term_bracketedBinder_HasView_x_27(uint8); -obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___boxed(obj*); obj* l_Lean_Parser_Term_binderIdent_HasView_x_27; obj* l_Lean_Parser_Term_optIdent_Parser_Lean_Parser_HasView___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasView___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -323,6 +334,7 @@ obj* l_Lean_Parser_Term_match_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_number_Parser___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*); obj* l_Lean_Parser_Term_if_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_strictImplicitBinder; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2(obj*); obj* l_Lean_Parser_Combinators_node___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__4(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_sepBy1___at_Lean_Parser_Term_match_HasView_x_27___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binder_Parser_Lean_Parser_HasView; @@ -339,7 +351,6 @@ obj* l_Lean_Parser_Term_instImplicitNamedBinder_HasView_x_27___lambda__1___close obj* l_Lean_Parser_Combinators_choiceAux___main___at_Lean_Parser_command_NotationSpec_precedenceLit_Parser_Lean_Parser_HasTokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_simpleBinder_Parser(obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_haveProof; obj* l_Lean_Parser_Term_explicit_HasView_x_27___lambda__1___closed__1; @@ -385,8 +396,10 @@ obj* l_Lean_Parser_Term_haveProof_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_bindersExt_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_Term_assumeAnonymous_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_unicodeSymbol___at_Lean_Parser_Term_lambda_Parser_Lean_Parser_HasTokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(obj*, obj*); obj* l_Lean_Parser_Term_binderDefaultVal; obj* l_List_enumFrom___main___rarg(obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5(obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__8___rarg(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_command_notationLike_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_bracketedBinder___boxed(obj*); @@ -402,7 +415,6 @@ obj* l_Lean_Parser_Term_paren_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_simpleStrictImplicitBinder; obj* l_Lean_Parser_Term_Parser(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_borrowed_Parser_Lean_Parser_HasTokens; -obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__3(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinder_Parser(uint8, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_anyOf___at_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___spec__2(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_try_view___rarg(obj*, obj*, obj*, obj*); @@ -412,6 +424,7 @@ obj* l_ReaderT_bind___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens__ obj* l_Lean_Parser_Term_binderIdent; obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_simpleBinder_HasView_x_27; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(obj*, obj*); obj* l_Lean_Parser_Term_bindersExt_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_explicitBinder_HasView_x_27(uint8); @@ -447,6 +460,7 @@ obj* l_Lean_Parser_Term_anonymousConstructor_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_binderDefaultTac_HasView; extern obj* l_Lean_Parser_TrailingTermParserM_Alternative; obj* l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__1(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3(obj*); obj* l_Lean_Parser_Term_strictImplicitBinder_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_haveFrom_HasView_x_27; obj* l_Lean_Parser_Term_binderDefault_Parser(obj*, obj*, obj*, obj*, obj*); @@ -473,7 +487,6 @@ obj* l_Lean_Parser_Term_if; obj* l_Lean_Parser_Term_tuple_HasView; obj* l_Lean_Parser_Term_bracketedBinder_Parser___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binder_HasView; -obj* l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__6(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_Combinators_anyOf___rarg___closed__1; obj* l_Lean_Parser_Syntax_mkNode(obj*, obj*); obj* l_Lean_Parser_Term_bindersRemainder_HasView_x_27___lambda__2___closed__1; @@ -485,9 +498,9 @@ obj* l_Lean_Parser_Term_explicitBinder_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_anonymousInaccessible_Parser___closed__1; obj* l_Lean_Parser_Term_instImplicitBinderContent_HasView_x_27; obj* l_Lean_Parser_MonadParsec_strCore___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_anonymousInaccessible_HasView_x_27; obj* l_Lean_Parser_Term_simpleBinder; -obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4(obj*); obj* l_Lean_Parser_Term_projection_Parser(obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__1; namespace lean { @@ -522,6 +535,7 @@ obj* l_Lean_Parser_Term_app_Parser(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binderDefaultTac_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_simpleExplicitBinder_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasView___closed__4; +obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__6(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_identUnivSpec_Parser_Lean_Parser_HasView; obj* l_ReaderT_lift___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bindersExt; @@ -564,6 +578,7 @@ obj* nat_add(obj*, obj*); } obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__2___boxed(obj*); obj* l_Lean_Parser_Term_let_HasView_x_27___lambda__1___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4(obj*); obj* l_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_identUnivSpec_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_typeSpec_Parser___closed__1; @@ -572,6 +587,7 @@ obj* l_Lean_Parser_Term_sorry; obj* l_Lean_Parser_Term_implicitBinder_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_Term_match; obj* l_Lean_Parser_identUnivSpec_Parser_Lean_Parser_HasTokens; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg(obj*, obj*); obj* l_Lean_Parser_Term_simpleStrictImplicitBinder_HasView_x_27___lambda__1___closed__1; extern obj* l_Lean_Parser_number_HasView_x_27___lambda__2___closed__4; obj* l_Lean_Parser_identUnivs_Parser_Lean_Parser_HasView___lambda__1___boxed(obj*, obj*, obj*, obj*); @@ -584,6 +600,7 @@ uint8 nat_dec_eq(obj*, obj*); } obj* l_Lean_Parser_Term_bindersExt_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_tuple_HasView_x_27___lambda__1___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Term_borrowed_Parser(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_ident_Parser_View___rarg___lambda__1___closed__1; extern obj* l_Lean_Parser_peekToken___closed__1; @@ -600,6 +617,7 @@ obj* l_Lean_Parser_Term_binder_Parser___closed__1; obj* l_Lean_Parser_Term_simpleInstImplicitBinder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasView(uint8); obj* l_Lean_Parser_Term_binders_HasView_x_27___lambda__1(obj*); +obj* l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__12(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_identUnivs; obj* l_List_map___main___at_Lean_Parser_Term_bracketedBinder_Parser_Lean_Parser_HasTokens___spec__2___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_instImplicitNamedBinder_HasView_x_27___lambda__1___closed__1; @@ -616,6 +634,7 @@ obj* l_Lean_Parser_Term_structInstWith_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_optType_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_binderContent_HasView___boxed(obj*); obj* l_Lean_Parser_Term_parenSpecial_HasView_x_27___lambda__1(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___boxed(obj*); obj* l_Lean_Parser_Term_sorry_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_anonymousConstructor_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_Subtype_HasView; @@ -629,6 +648,7 @@ obj* l_Lean_Parser_Term_parenContent; obj* l_Lean_Parser_Term_match_HasView_x_27___lambda__1(obj*); obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_Term_structInst_HasView_x_27___spec__1___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_strCore___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Term_bindersExt_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_seqRight_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__2___closed__2; @@ -655,6 +675,7 @@ obj* l_Lean_Parser_Term_bindersRemainder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_simpleInstImplicitBinder_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_assume; obj* l_Lean_Parser_Term_bracketedBinders_Parser(obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__7(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_Subtype_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_letLhs_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_from_Parser_Lean_Parser_HasView; @@ -663,11 +684,14 @@ obj* l_Lean_Parser_Term_projectionSpec_HasView_x_27; obj* l_Lean_Parser_Term_explicitBinder_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_pi_Parser___closed__1; obj* l_Lean_Parser_Term_from_HasView; +obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__7(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__2___closed__1; obj* l_Lean_Parser_Term_projection_HasView; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg(obj*, obj*); extern obj* l_Lean_Parser_maxPrec; obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_termParser_run___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_tuple_HasView_x_27___lambda__1___closed__5; +obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bindersRemainder_HasView_x_27; obj* l_Lean_Parser_Term_Subtype_Parser___closed__1; obj* l_Lean_Parser_Term_haveProof_HasView_x_27___lambda__1___closed__1; @@ -678,7 +702,6 @@ obj* l_ReaderT_lift___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens__ obj* l_Lean_Parser_Term_sort_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_instImplicitAnonymousBinder; obj* l_Lean_Parser_Term_sorry_Parser(obj*, obj*, obj*, obj*, obj*); -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binderIdent_Parser_Lean_Parser_HasTokens; obj* l_List_map___main___at_Lean_Parser_Term_tuple_HasView_x_27___spec__2(obj*); obj* l_Lean_Parser_Term_projectionSpec_HasView_x_27___lambda__2(obj*); @@ -727,6 +750,7 @@ obj* l_Lean_Parser_Term_structInstType; obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27; obj* l_Lean_Parser_Term_show; obj* l_Lean_Parser_Term_projection_HasView_x_27___lambda__1___closed__2; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg(obj*, obj*); obj* l_List_map___main___at_Lean_Parser_identUnivSpec_HasView_x_27___spec__1(obj*); extern obj* l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__1; obj* l_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens; @@ -735,6 +759,7 @@ obj* l_Lean_Parser_Term_bracketedBinders_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_parenContent_HasView_x_27___lambda__2(obj*); extern obj* l_Lean_Parser_TermParserM_Monad; obj* l_Lean_Parser_Term_arrow_Parser_Lean_Parser_HasView___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); +uint8 l_Lean_Name_quickLt(obj*, obj*); obj* l_Lean_Parser_Term_simpleBinder_View_toBinderInfo(obj*); extern obj* l_Lean_Parser_detailIdentPartEscaped_HasView_x_27___lambda__2___closed__2; obj* l_Lean_Parser_Term_parenContent_HasView_x_27___lambda__1___closed__2; @@ -746,7 +771,6 @@ obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___close obj* l_Lean_Parser_Term_if_Parser___closed__1; obj* l_Lean_Parser_Term_sortApp_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_assumeAnonymous; -obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4___boxed(obj*); obj* l_Lean_Parser_Term_show_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_anonymousInaccessible_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1(obj*); @@ -821,7 +845,6 @@ obj* l_Lean_Parser_Term_structInstSource_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_Term_binderContent_HasView_x_27___lambda__1___closed__5; obj* l_Lean_Parser_Term_arrow_HasView; obj* l_Lean_Parser_Term_instImplicitBinder_HasView_x_27___lambda__1___closed__3; -obj* l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__6; obj* l_Lean_Parser_Term_binderContent_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_Subtype_Parser_Lean_Parser_HasTokens; @@ -860,7 +883,9 @@ obj* l_Lean_Parser_Term_bracketedBinder(uint8); obj* l_Lean_Parser_Term_depArrow_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_bindersExt_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_lambda_Parser(obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5(obj*); obj* l_Lean_Parser_Term_matchEquation_HasView_x_27; +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sorry_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_structInstWith; obj* l_Lean_Parser_Term_explicitModifier_HasView_x_27___lambda__2(obj*); @@ -871,6 +896,7 @@ obj* l_Lean_Parser_Term_assume_Parser_Lean_Parser_HasTokens; obj* l_Lean_Parser_Term_typeSpec_HasView; obj* l_Lean_Parser_Term_explicitBinder___boxed(obj*); obj* l_Lean_Parser_Term_pi_Parser(obj*, obj*, obj*, obj*, obj*); +obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_sorry_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_bracketedBinder_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__1___closed__1; @@ -915,6 +941,7 @@ obj* l_Lean_Parser_Term_lambda_Parser_Lean_Parser_HasTokens; obj* l___private_init_lean_parser_combinators_3__sepBy_viewAux___main___at_Lean_Parser_Term_anonymousConstructor_HasView_x_27___spec__1(obj*, obj*, obj*); obj* l_String_quote(obj*); obj* l_Lean_Parser_identUnivs_Parser___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_prattParser___at_Lean_Parser_termParser_run___spec__1___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_app_Parser___closed__1; obj* l_Lean_Parser_Term_app_Parser_Lean_Parser_HasView; @@ -947,6 +974,7 @@ obj* l_Lean_Parser_Term_bindersTypes_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_Term_if_HasView; obj* l_Lean_Parser_Term_binders_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_Term_haveTerm_HasView_x_27; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2(obj*); extern obj* l_Lean_Parser_Combinators_many___rarg___closed__1; obj* l_Lean_Parser_Combinators_many___at_Lean_Parser_command_NotationSpec_Parser_Lean_Parser_HasTokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_binderDefault_Parser_Lean_Parser_HasView; @@ -974,12 +1002,12 @@ obj* l_Lean_Parser_Term_typeSpec; obj* l_Lean_Parser_Term_projectionSpec_HasView_x_27___lambda__1___closed__4; obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_2__leading___spec__1(obj*); obj* l_Lean_Parser_Term_binderContent(uint8); -obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_structInstType_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_prattParser___at_Lean_Parser_levelParser_run___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_Term_projection_Parser_Lean_Parser_HasView___spec__5(obj*); obj* l_Lean_Parser_Term_simpleInstImplicitBinder_HasView; obj* l_Lean_Parser_Term_have_Parser_Lean_Parser_HasView; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___boxed(obj*); obj* l_Lean_Parser_ident_Parser___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__4___boxed(obj*); obj* l_Lean_Parser_Term_binders_HasView; obj* l_Lean_Parser_Term_bracketedBinders_HasView_x_27___lambda__1___closed__2; @@ -993,6 +1021,7 @@ obj* l_Lean_Parser_Term_binder_HasView_x_27___lambda__1___closed__1; obj* l_Lean_Parser_Term_binders_Parser(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_Term_bracketedBinder_HasView_x_27___closed__1; obj* l_Lean_Parser_Term_have_HasView_x_27; +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___boxed(obj*); obj* l_Lean_Parser_Term_binderDefault_HasView_x_27___lambda__1___closed__2; extern obj* l_Lean_Parser_TermParserM_Lean_Parser_MonadParsec; obj* l_Lean_Parser_Term_binderDefault_Parser___closed__1; @@ -1010,6 +1039,8 @@ obj* l_Lean_Parser_Term_simpleBinder_Parser_Lean_Parser_HasView; obj* l_Lean_Parser_Term_anonymousInaccessible_HasView; obj* l_Lean_Parser_Term_bindersRemainder_HasView_x_27___lambda__1___closed__4; extern obj* l_String_splitAux___main___closed__1; +obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg(obj*, obj*); obj* l_Lean_Parser_identUnivs_HasView_x_27___lambda__1___closed__5; namespace lean { obj* string_length(obj*); @@ -39842,7 +39873,7 @@ x_8 = lean::cnstr_get(x_7, 0); lean::inc(x_8); if (lean::obj_tag(x_8) == 0) { -obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_20; uint8 x_21; uint8 x_23; +obj* x_10; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_20; uint8 x_21; x_10 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); @@ -39873,228 +39904,211 @@ x_21 = l_Lean_Parser_Syntax_isOfKind___main(x_20, x_13); lean::dec(x_13); if (x_21 == 0) { -uint8 x_25; -x_25 = 0; -x_23 = x_25; -goto lbl_24; -} -else -{ -uint8 x_26; -x_26 = 1; -x_23 = x_26; -goto lbl_24; -} -lbl_24: -{ -if (x_23 == 0) -{ -obj* x_29; obj* x_30; obj* x_32; obj* x_34; obj* x_35; +obj* x_25; obj* x_26; obj* x_28; obj* x_30; obj* x_31; lean::dec(x_12); lean::dec(x_19); -x_29 = l_Lean_Parser_ParsecT_failure___at_Lean_Parser_token___spec__4___rarg(x_15, x_10); -x_30 = lean::cnstr_get(x_29, 0); -x_32 = lean::cnstr_get(x_29, 1); -if (lean::is_exclusive(x_29)) { - lean::cnstr_set(x_29, 0, lean::box(0)); - lean::cnstr_set(x_29, 1, lean::box(0)); - x_34 = x_29; +x_25 = l_Lean_Parser_ParsecT_failure___at_Lean_Parser_token___spec__4___rarg(x_15, x_10); +x_26 = lean::cnstr_get(x_25, 0); +x_28 = lean::cnstr_get(x_25, 1); +if (lean::is_exclusive(x_25)) { + lean::cnstr_set(x_25, 0, lean::box(0)); + lean::cnstr_set(x_25, 1, lean::box(0)); + x_30 = x_25; } else { - lean::inc(x_30); - lean::inc(x_32); - lean::dec(x_29); - x_34 = lean::box(0); + lean::inc(x_26); + lean::inc(x_28); + lean::dec(x_25); + x_30 = lean::box(0); } -x_35 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_30); -if (lean::obj_tag(x_35) == 0) +x_31 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_26); +if (lean::obj_tag(x_31) == 0) { -obj* x_37; obj* x_39; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_49; obj* x_50; obj* x_51; -lean::dec(x_34); -x_37 = lean::cnstr_get(x_35, 1); -lean::inc(x_37); -x_39 = lean::cnstr_get(x_35, 2); -lean::inc(x_39); -lean::dec(x_35); -x_42 = l_Lean_Parser_Term_sortApp; -x_43 = l_Lean_Parser_Term_sortApp_Parser___closed__1; -x_44 = l_Lean_Parser_Combinators_node___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__3(x_42, x_43, x_0, x_1, x_2, x_3, x_37, x_32); -x_45 = lean::cnstr_get(x_44, 0); -x_47 = lean::cnstr_get(x_44, 1); -if (lean::is_exclusive(x_44)) { - x_49 = x_44; +obj* x_33; obj* x_35; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_45; obj* x_46; obj* x_47; +lean::dec(x_30); +x_33 = lean::cnstr_get(x_31, 1); +lean::inc(x_33); +x_35 = lean::cnstr_get(x_31, 2); +lean::inc(x_35); +lean::dec(x_31); +x_38 = l_Lean_Parser_Term_sortApp; +x_39 = l_Lean_Parser_Term_sortApp_Parser___closed__1; +x_40 = l_Lean_Parser_Combinators_node___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__3(x_38, x_39, x_0, x_1, x_2, x_3, x_33, x_28); +x_41 = lean::cnstr_get(x_40, 0); +x_43 = lean::cnstr_get(x_40, 1); +if (lean::is_exclusive(x_40)) { + x_45 = x_40; } else { - lean::inc(x_45); - lean::inc(x_47); - lean::dec(x_44); - x_49 = lean::box(0); + lean::inc(x_41); + lean::inc(x_43); + lean::dec(x_40); + x_45 = lean::box(0); } -x_50 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_39, x_45); -if (lean::is_scalar(x_49)) { - x_51 = lean::alloc_cnstr(0, 2, 0); +x_46 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_35, x_41); +if (lean::is_scalar(x_45)) { + x_47 = lean::alloc_cnstr(0, 2, 0); } else { - x_51 = x_49; + x_47 = x_45; } -lean::cnstr_set(x_51, 0, x_50); -lean::cnstr_set(x_51, 1, x_47); -return x_51; +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_43); +return x_47; } else { -obj* x_56; uint8 x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +obj* x_52; uint8 x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_56 = lean::cnstr_get(x_35, 0); -x_58 = lean::cnstr_get_scalar(x_35, sizeof(void*)*1); -if (lean::is_exclusive(x_35)) { - x_59 = x_35; +x_52 = lean::cnstr_get(x_31, 0); +x_54 = lean::cnstr_get_scalar(x_31, sizeof(void*)*1); +if (lean::is_exclusive(x_31)) { + x_55 = x_31; } else { - lean::inc(x_56); - lean::dec(x_35); - x_59 = lean::box(0); + lean::inc(x_52); + lean::dec(x_31); + x_55 = lean::box(0); } -if (lean::is_scalar(x_59)) { - x_60 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_55)) { + x_56 = lean::alloc_cnstr(1, 1, 1); } else { - x_60 = x_59; + x_56 = x_55; } -lean::cnstr_set(x_60, 0, x_56); -lean::cnstr_set_scalar(x_60, sizeof(void*)*1, x_58); -x_61 = x_60; -if (lean::is_scalar(x_34)) { - x_62 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_56, 0, x_52); +lean::cnstr_set_scalar(x_56, sizeof(void*)*1, x_54); +x_57 = x_56; +if (lean::is_scalar(x_30)) { + x_58 = lean::alloc_cnstr(0, 2, 0); } else { - x_62 = x_34; + x_58 = x_30; } -lean::cnstr_set(x_62, 0, x_61); -lean::cnstr_set(x_62, 1, x_32); -return x_62; +lean::cnstr_set(x_58, 0, x_57); +lean::cnstr_set(x_58, 1, x_28); +return x_58; } } else { -obj* x_63; obj* x_64; obj* x_65; obj* x_66; -x_63 = lean::box(0); -x_64 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_59 = lean::box(0); +x_60 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; if (lean::is_scalar(x_19)) { - x_65 = lean::alloc_cnstr(0, 3, 0); + x_61 = lean::alloc_cnstr(0, 3, 0); } else { - x_65 = x_19; + x_61 = x_19; } -lean::cnstr_set(x_65, 0, x_63); -lean::cnstr_set(x_65, 1, x_15); -lean::cnstr_set(x_65, 2, x_64); -x_66 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_65); -if (lean::obj_tag(x_66) == 0) +lean::cnstr_set(x_61, 0, x_59); +lean::cnstr_set(x_61, 1, x_15); +lean::cnstr_set(x_61, 2, x_60); +x_62 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_17, x_61); +if (lean::obj_tag(x_62) == 0) { -obj* x_68; obj* x_70; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_78; obj* x_80; obj* x_81; obj* x_82; +obj* x_64; obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_74; obj* x_76; obj* x_77; obj* x_78; lean::dec(x_12); -x_68 = lean::cnstr_get(x_66, 1); -lean::inc(x_68); -x_70 = lean::cnstr_get(x_66, 2); -lean::inc(x_70); -lean::dec(x_66); -x_73 = l_Lean_Parser_Term_sortApp; -x_74 = l_Lean_Parser_Term_sortApp_Parser___closed__1; -x_75 = l_Lean_Parser_Combinators_node___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__3(x_73, x_74, x_0, x_1, x_2, x_3, x_68, x_10); -x_76 = lean::cnstr_get(x_75, 0); -x_78 = lean::cnstr_get(x_75, 1); -if (lean::is_exclusive(x_75)) { - x_80 = x_75; +x_64 = lean::cnstr_get(x_62, 1); +lean::inc(x_64); +x_66 = lean::cnstr_get(x_62, 2); +lean::inc(x_66); +lean::dec(x_62); +x_69 = l_Lean_Parser_Term_sortApp; +x_70 = l_Lean_Parser_Term_sortApp_Parser___closed__1; +x_71 = l_Lean_Parser_Combinators_node___at_Lean_Parser_Term_sortApp_Parser_Lean_Parser_HasTokens___spec__3(x_69, x_70, x_0, x_1, x_2, x_3, x_64, x_10); +x_72 = lean::cnstr_get(x_71, 0); +x_74 = lean::cnstr_get(x_71, 1); +if (lean::is_exclusive(x_71)) { + x_76 = x_71; } else { - lean::inc(x_76); - lean::inc(x_78); - lean::dec(x_75); - x_80 = lean::box(0); + lean::inc(x_72); + lean::inc(x_74); + lean::dec(x_71); + x_76 = lean::box(0); } -x_81 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_70, x_76); -if (lean::is_scalar(x_80)) { - x_82 = lean::alloc_cnstr(0, 2, 0); +x_77 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_66, x_72); +if (lean::is_scalar(x_76)) { + x_78 = lean::alloc_cnstr(0, 2, 0); } else { - x_82 = x_80; + x_78 = x_76; } -lean::cnstr_set(x_82, 0, x_81); -lean::cnstr_set(x_82, 1, x_78); -return x_82; +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_74); +return x_78; } else { -obj* x_87; uint8 x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; +obj* x_83; uint8 x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_87 = lean::cnstr_get(x_66, 0); -x_89 = lean::cnstr_get_scalar(x_66, sizeof(void*)*1); -if (lean::is_exclusive(x_66)) { - x_90 = x_66; +x_83 = lean::cnstr_get(x_62, 0); +x_85 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); +if (lean::is_exclusive(x_62)) { + x_86 = x_62; } else { - lean::inc(x_87); - lean::dec(x_66); - x_90 = lean::box(0); + lean::inc(x_83); + lean::dec(x_62); + x_86 = lean::box(0); } -if (lean::is_scalar(x_90)) { - x_91 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_86)) { + x_87 = lean::alloc_cnstr(1, 1, 1); } else { - x_91 = x_90; + x_87 = x_86; } -lean::cnstr_set(x_91, 0, x_87); -lean::cnstr_set_scalar(x_91, sizeof(void*)*1, x_89); -x_92 = x_91; +lean::cnstr_set(x_87, 0, x_83); +lean::cnstr_set_scalar(x_87, sizeof(void*)*1, x_85); +x_88 = x_87; if (lean::is_scalar(x_12)) { - x_93 = lean::alloc_cnstr(0, 2, 0); + x_89 = lean::alloc_cnstr(0, 2, 0); } else { - x_93 = x_12; -} -lean::cnstr_set(x_93, 0, x_92); -lean::cnstr_set(x_93, 1, x_10); -return x_93; + x_89 = x_12; } +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_10); +return x_89; } } } else { -obj* x_98; obj* x_100; obj* x_101; uint8 x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; +obj* x_94; obj* x_96; obj* x_97; uint8 x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; lean::dec(x_1); lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_98 = lean::cnstr_get(x_7, 1); +x_94 = lean::cnstr_get(x_7, 1); if (lean::is_exclusive(x_7)) { lean::cnstr_release(x_7, 0); - x_100 = x_7; + x_96 = x_7; } else { - lean::inc(x_98); + lean::inc(x_94); lean::dec(x_7); + x_96 = lean::box(0); +} +x_97 = lean::cnstr_get(x_8, 0); +x_99 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); +if (lean::is_exclusive(x_8)) { + x_100 = x_8; +} else { + lean::inc(x_97); + lean::dec(x_8); x_100 = lean::box(0); } -x_101 = lean::cnstr_get(x_8, 0); -x_103 = lean::cnstr_get_scalar(x_8, sizeof(void*)*1); -if (lean::is_exclusive(x_8)) { - x_104 = x_8; -} else { - lean::inc(x_101); - lean::dec(x_8); - x_104 = lean::box(0); -} -if (lean::is_scalar(x_104)) { - x_105 = lean::alloc_cnstr(1, 1, 1); -} else { - x_105 = x_104; -} -lean::cnstr_set(x_105, 0, x_101); -lean::cnstr_set_scalar(x_105, sizeof(void*)*1, x_103); -x_106 = x_105; if (lean::is_scalar(x_100)) { - x_107 = lean::alloc_cnstr(0, 2, 0); + x_101 = lean::alloc_cnstr(1, 1, 1); } else { - x_107 = x_100; + x_101 = x_100; } -lean::cnstr_set(x_107, 0, x_106); -lean::cnstr_set(x_107, 1, x_98); -return x_107; +lean::cnstr_set(x_101, 0, x_97); +lean::cnstr_set_scalar(x_101, sizeof(void*)*1, x_99); +x_102 = x_101; +if (lean::is_scalar(x_96)) { + x_103 = lean::alloc_cnstr(0, 2, 0); +} else { + x_103 = x_96; +} +lean::cnstr_set(x_103, 0, x_102); +lean::cnstr_set(x_103, 1, x_94); +return x_103; } } } @@ -42399,6 +42413,254 @@ x_17 = l_Lean_Parser_TokenMap_ofList___main___rarg(x_16); return x_17; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg___boxed), 2, 0); +return x_1; +} +} obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { @@ -42460,7 +42722,7 @@ lean::dec(x_12); switch (lean::obj_tag(x_36)) { case 0: { -obj* x_39; obj* x_42; obj* x_45; obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; +obj* x_39; obj* x_42; obj* x_45; obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; x_39 = lean::cnstr_get(x_36, 0); lean::inc(x_39); lean::dec(x_36); @@ -42477,9 +42739,9 @@ lean::inc(x_50); lean::dec(x_39); x_53 = lean::box(0); x_54 = lean_name_mk_string(x_53, x_50); -x_55 = l_Lean_NameMap_contains___rarg___closed__1; -x_56 = l_RBNode_find___main___rarg(x_55, lean::box(0), x_0, x_54); -x_57 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_56, x_3, x_45, x_42); +x_55 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(x_0, x_54); +lean::dec(x_54); +x_57 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_55, x_3, x_45, x_42); lean::dec(x_3); x_59 = lean::cnstr_get(x_57, 0); x_61 = lean::cnstr_get(x_57, 1); @@ -42505,7 +42767,7 @@ return x_67; } case 1: { -obj* x_69; obj* x_72; obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +obj* x_69; obj* x_72; obj* x_74; obj* x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; lean::dec(x_36); x_69 = lean::cnstr_get(x_9, 1); lean::inc(x_69); @@ -42515,171 +42777,170 @@ lean::inc(x_72); x_74 = lean::cnstr_get(x_10, 2); lean::inc(x_74); lean::dec(x_10); -x_77 = l_Lean_NameMap_contains___rarg___closed__1; -x_78 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_79 = l_RBNode_find___main___rarg(x_77, lean::box(0), x_0, x_78); -x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_79, x_3, x_72, x_69); +x_77 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_78 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg(x_0, x_77); +x_79 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_78, x_3, x_72, x_69); lean::dec(x_3); -x_82 = lean::cnstr_get(x_80, 0); -x_84 = lean::cnstr_get(x_80, 1); -if (lean::is_exclusive(x_80)) { - x_86 = x_80; +x_81 = lean::cnstr_get(x_79, 0); +x_83 = lean::cnstr_get(x_79, 1); +if (lean::is_exclusive(x_79)) { + x_85 = x_79; } else { - lean::inc(x_82); - lean::inc(x_84); - lean::dec(x_80); - x_86 = lean::box(0); + lean::inc(x_81); + lean::inc(x_83); + lean::dec(x_79); + x_85 = lean::box(0); } -x_87 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_87, x_82); -x_89 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_88); -if (lean::is_scalar(x_86)) { - x_90 = lean::alloc_cnstr(0, 2, 0); +x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_81); +x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_74, x_87); +if (lean::is_scalar(x_85)) { + x_89 = lean::alloc_cnstr(0, 2, 0); } else { - x_90 = x_86; + x_89 = x_85; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_84); -return x_90; +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_83); +return x_89; } case 2: { -obj* x_91; obj* x_94; obj* x_96; obj* x_99; obj* x_102; obj* x_105; obj* x_106; obj* x_107; obj* x_109; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; -x_91 = lean::cnstr_get(x_9, 1); -lean::inc(x_91); +obj* x_90; obj* x_93; obj* x_95; obj* x_98; obj* x_101; obj* x_104; obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; +x_90 = lean::cnstr_get(x_9, 1); +lean::inc(x_90); lean::dec(x_9); -x_94 = lean::cnstr_get(x_10, 1); -lean::inc(x_94); -x_96 = lean::cnstr_get(x_10, 2); -lean::inc(x_96); +x_93 = lean::cnstr_get(x_10, 1); +lean::inc(x_93); +x_95 = lean::cnstr_get(x_10, 2); +lean::inc(x_95); lean::dec(x_10); -x_99 = lean::cnstr_get(x_36, 0); -lean::inc(x_99); +x_98 = lean::cnstr_get(x_36, 0); +lean::inc(x_98); lean::dec(x_36); -x_102 = lean::cnstr_get(x_99, 0); -lean::inc(x_102); -lean::dec(x_99); -x_105 = l_Lean_NameMap_contains___rarg___closed__1; -x_106 = l_RBNode_find___main___rarg(x_105, lean::box(0), x_0, x_102); -x_107 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_106, x_3, x_94, x_91); +x_101 = lean::cnstr_get(x_98, 0); +lean::inc(x_101); +lean::dec(x_98); +x_104 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(x_0, x_101); +lean::dec(x_101); +x_106 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_104, x_3, x_93, x_90); lean::dec(x_3); -x_109 = lean::cnstr_get(x_107, 0); -x_111 = lean::cnstr_get(x_107, 1); -if (lean::is_exclusive(x_107)) { - x_113 = x_107; +x_108 = lean::cnstr_get(x_106, 0); +x_110 = lean::cnstr_get(x_106, 1); +if (lean::is_exclusive(x_106)) { + x_112 = x_106; } else { - lean::inc(x_109); - lean::inc(x_111); - lean::dec(x_107); - x_113 = lean::box(0); + lean::inc(x_108); + lean::inc(x_110); + lean::dec(x_106); + x_112 = lean::box(0); } -x_114 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_114, x_109); -x_116 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_96, x_115); -if (lean::is_scalar(x_113)) { - x_117 = lean::alloc_cnstr(0, 2, 0); +x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_108); +x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_114); +if (lean::is_scalar(x_112)) { + x_116 = lean::alloc_cnstr(0, 2, 0); } else { - x_117 = x_113; + x_116 = x_112; } -lean::cnstr_set(x_117, 0, x_116); -lean::cnstr_set(x_117, 1, x_111); -return x_117; +lean::cnstr_set(x_116, 0, x_115); +lean::cnstr_set(x_116, 1, x_110); +return x_116; } default: { -obj* x_118; obj* x_121; obj* x_123; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; -x_118 = lean::cnstr_get(x_9, 1); -lean::inc(x_118); +obj* x_117; obj* x_120; obj* x_122; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; +x_117 = lean::cnstr_get(x_9, 1); +lean::inc(x_117); lean::dec(x_9); -x_121 = lean::cnstr_get(x_10, 1); -lean::inc(x_121); -x_123 = lean::cnstr_get(x_10, 2); -lean::inc(x_123); +x_120 = lean::cnstr_get(x_10, 1); +lean::inc(x_120); +x_122 = lean::cnstr_get(x_10, 2); +lean::inc(x_122); lean::dec(x_10); -x_126 = lean::box(0); -x_127 = l_String_splitAux___main___closed__1; -x_128 = l_mjoin___rarg___closed__1; -x_129 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_127, x_128, x_126, x_126, x_3, x_121, x_118); -x_130 = lean::cnstr_get(x_129, 0); -lean::inc(x_130); -if (lean::obj_tag(x_130) == 0) +x_125 = lean::box(0); +x_126 = l_String_splitAux___main___closed__1; +x_127 = l_mjoin___rarg___closed__1; +x_128 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_126, x_127, x_125, x_125, x_3, x_120, x_117); +x_129 = lean::cnstr_get(x_128, 0); +lean::inc(x_129); +if (lean::obj_tag(x_129) == 0) { -obj* x_132; obj* x_135; obj* x_137; obj* x_139; obj* x_142; obj* x_143; obj* x_144; obj* x_146; obj* x_148; obj* x_150; obj* x_151; obj* x_152; obj* x_153; -x_132 = lean::cnstr_get(x_129, 1); -lean::inc(x_132); +obj* x_131; obj* x_134; obj* x_136; obj* x_138; obj* x_141; obj* x_143; obj* x_145; obj* x_147; obj* x_149; obj* x_150; obj* x_151; obj* x_152; +x_131 = lean::cnstr_get(x_128, 1); +lean::inc(x_131); +lean::dec(x_128); +x_134 = lean::cnstr_get(x_129, 0); +lean::inc(x_134); +x_136 = lean::cnstr_get(x_129, 1); +lean::inc(x_136); +x_138 = lean::cnstr_get(x_129, 2); +lean::inc(x_138); lean::dec(x_129); -x_135 = lean::cnstr_get(x_130, 0); -lean::inc(x_135); -x_137 = lean::cnstr_get(x_130, 1); -lean::inc(x_137); -x_139 = lean::cnstr_get(x_130, 2); -lean::inc(x_139); -lean::dec(x_130); -x_142 = l_Lean_NameMap_contains___rarg___closed__1; -x_143 = l_RBNode_find___main___rarg(x_142, lean::box(0), x_0, x_135); -x_144 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_143, x_3, x_137, x_132); +x_141 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(x_0, x_134); +lean::dec(x_134); +x_143 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_141, x_3, x_136, x_131); lean::dec(x_3); -x_146 = lean::cnstr_get(x_144, 0); -x_148 = lean::cnstr_get(x_144, 1); -if (lean::is_exclusive(x_144)) { - x_150 = x_144; +x_145 = lean::cnstr_get(x_143, 0); +x_147 = lean::cnstr_get(x_143, 1); +if (lean::is_exclusive(x_143)) { + x_149 = x_143; } else { - lean::inc(x_146); - lean::inc(x_148); - lean::dec(x_144); - x_150 = lean::box(0); + lean::inc(x_145); + lean::inc(x_147); + lean::dec(x_143); + x_149 = lean::box(0); } -x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_139, x_146); -x_152 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_151); -if (lean::is_scalar(x_150)) { - x_153 = lean::alloc_cnstr(0, 2, 0); +x_150 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_138, x_145); +x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_150); +if (lean::is_scalar(x_149)) { + x_152 = lean::alloc_cnstr(0, 2, 0); } else { - x_153 = x_150; + x_152 = x_149; } -lean::cnstr_set(x_153, 0, x_152); -lean::cnstr_set(x_153, 1, x_148); -return x_153; +lean::cnstr_set(x_152, 0, x_151); +lean::cnstr_set(x_152, 1, x_147); +return x_152; } else { -obj* x_156; obj* x_158; obj* x_159; uint8 x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; +obj* x_155; obj* x_157; obj* x_158; uint8 x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; lean::dec(x_3); lean::dec(x_0); -x_156 = lean::cnstr_get(x_129, 1); +x_155 = lean::cnstr_get(x_128, 1); +if (lean::is_exclusive(x_128)) { + lean::cnstr_release(x_128, 0); + x_157 = x_128; +} else { + lean::inc(x_155); + lean::dec(x_128); + x_157 = lean::box(0); +} +x_158 = lean::cnstr_get(x_129, 0); +x_160 = lean::cnstr_get_scalar(x_129, sizeof(void*)*1); if (lean::is_exclusive(x_129)) { - lean::cnstr_release(x_129, 0); - x_158 = x_129; + x_161 = x_129; } else { - lean::inc(x_156); + lean::inc(x_158); lean::dec(x_129); - x_158 = lean::box(0); + x_161 = lean::box(0); } -x_159 = lean::cnstr_get(x_130, 0); -x_161 = lean::cnstr_get_scalar(x_130, sizeof(void*)*1); -if (lean::is_exclusive(x_130)) { - x_162 = x_130; +if (lean::is_scalar(x_161)) { + x_162 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_159); - lean::dec(x_130); - x_162 = lean::box(0); + x_162 = x_161; } -if (lean::is_scalar(x_162)) { - x_163 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_162, 0, x_158); +lean::cnstr_set_scalar(x_162, sizeof(void*)*1, x_160); +x_163 = x_162; +x_164 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_163); +if (lean::is_scalar(x_157)) { + x_165 = lean::alloc_cnstr(0, 2, 0); } else { - x_163 = x_162; + x_165 = x_157; } -lean::cnstr_set(x_163, 0, x_159); -lean::cnstr_set_scalar(x_163, sizeof(void*)*1, x_161); -x_164 = x_163; -x_165 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_123, x_164); -if (lean::is_scalar(x_158)) { - x_166 = lean::alloc_cnstr(0, 2, 0); -} else { - x_166 = x_158; -} -lean::cnstr_set(x_166, 0, x_165); -lean::cnstr_set(x_166, 1, x_156); -return x_166; +lean::cnstr_set(x_165, 0, x_164); +lean::cnstr_set(x_165, 1, x_155); +return x_165; } } } @@ -42687,43 +42948,43 @@ return x_166; } else { -obj* x_169; obj* x_171; obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; +obj* x_168; obj* x_170; obj* x_171; uint8 x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; lean::dec(x_3); lean::dec(x_0); -x_169 = lean::cnstr_get(x_9, 1); +x_168 = lean::cnstr_get(x_9, 1); if (lean::is_exclusive(x_9)) { lean::cnstr_release(x_9, 0); - x_171 = x_9; + x_170 = x_9; } else { - lean::inc(x_169); + lean::inc(x_168); lean::dec(x_9); - x_171 = lean::box(0); + x_170 = lean::box(0); } -x_172 = lean::cnstr_get(x_10, 0); -x_174 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); +x_171 = lean::cnstr_get(x_10, 0); +x_173 = lean::cnstr_get_scalar(x_10, sizeof(void*)*1); if (lean::is_exclusive(x_10)) { - x_175 = x_10; + x_174 = x_10; } else { - lean::inc(x_172); + lean::inc(x_171); lean::dec(x_10); - x_175 = lean::box(0); + x_174 = lean::box(0); } -if (lean::is_scalar(x_175)) { - x_176 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_174)) { + x_175 = lean::alloc_cnstr(1, 1, 1); } else { - x_176 = x_175; + x_175 = x_174; } -lean::cnstr_set(x_176, 0, x_172); -lean::cnstr_set_scalar(x_176, sizeof(void*)*1, x_174); -x_177 = x_176; -if (lean::is_scalar(x_171)) { - x_178 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_175, 0, x_171); +lean::cnstr_set_scalar(x_175, sizeof(void*)*1, x_173); +x_176 = x_175; +if (lean::is_scalar(x_170)) { + x_177 = lean::alloc_cnstr(0, 2, 0); } else { - x_178 = x_171; + x_177 = x_170; } -lean::cnstr_set(x_178, 0, x_177); -lean::cnstr_set(x_178, 1, x_169); -return x_178; +lean::cnstr_set(x_177, 0, x_176); +lean::cnstr_set(x_177, 1, x_168); +return x_177; } } } @@ -42735,7 +42996,7 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_indexed___at___p return x_1; } } -obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_15; obj* x_16; @@ -43012,15 +43273,15 @@ goto lbl_10; } } } -obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4(obj* x_0) { +obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4___rarg), 8, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8___rarg), 8, 0); return x_1; } } -obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { if (lean::obj_tag(x_2) == 0) @@ -43052,7 +43313,7 @@ lean::inc(x_6); lean::inc(x_5); lean::inc(x_4); lean::inc(x_3); -x_25 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5(x_0, x_1, x_18, x_3, x_4, x_5, x_6, x_7, x_8); +x_25 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(x_0, x_1, x_18, x_3, x_4, x_5, x_6, x_7, x_8); x_26 = lean::cnstr_get(x_25, 0); lean::inc(x_26); if (lean::obj_tag(x_26) == 0) @@ -43068,7 +43329,7 @@ lean::inc(x_33); x_35 = lean::cnstr_get(x_26, 2); lean::inc(x_35); lean::dec(x_26); -x_38 = l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(x_16, x_31, x_3, x_4, x_5, x_6, x_33, x_28); +x_38 = l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8___rarg(x_16, x_31, x_3, x_4, x_5, x_6, x_33, x_28); x_39 = lean::cnstr_get(x_38, 0); x_41 = lean::cnstr_get(x_38, 1); if (lean::is_exclusive(x_38)) { @@ -43135,7 +43396,7 @@ return x_60; } } } -obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_15; @@ -43145,7 +43406,7 @@ x_9 = l_mjoin___rarg___closed__1; lean::inc(x_5); x_11 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__8___rarg(x_8, x_9, x_7, x_7, x_5); lean::inc(x_5); -x_13 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5(x_5, x_11, x_0, x_1, x_2, x_3, x_4, x_5, x_6); +x_13 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(x_5, x_11, x_0, x_1, x_2, x_3, x_4, x_5, x_6); lean::dec(x_5); x_15 = lean::cnstr_get(x_13, 0); lean::inc(x_15); @@ -43220,11 +43481,11 @@ return x_40; } } } -obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { obj* x_7; obj* x_8; -x_7 = l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__3(x_0, x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l_Lean_Parser_MonadParsec_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__7(x_0, x_1, x_2, x_3, x_4, x_5, x_6); x_8 = lean::cnstr_get(x_7, 0); lean::inc(x_8); if (lean::obj_tag(x_8) == 0) @@ -43361,7 +43622,7 @@ return x_52; } } } -obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { obj* x_13; obj* x_14; @@ -43464,15 +43725,15 @@ return x_50; } } } -obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7(obj* x_0) { +obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___rarg), 8, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___rarg), 8, 0); return x_1; } } -obj* l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__12(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { if (lean::obj_tag(x_1) == 0) @@ -43489,7 +43750,7 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_1, 1); lean::inc(x_11); lean::dec(x_1); -x_14 = lean::alloc_closure(reinterpret_cast(l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___rarg), 8, 2); +x_14 = lean::alloc_closure(reinterpret_cast(l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___rarg), 8, 2); lean::closure_set(x_14, 0, x_0); lean::closure_set(x_14, 1, x_9); x_0 = x_14; @@ -43498,7 +43759,7 @@ goto _start; } } } -obj* l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__10(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { if (lean::obj_tag(x_0) == 0) @@ -43522,12 +43783,12 @@ lean::inc(x_15); x_17 = lean::cnstr_get(x_0, 1); lean::inc(x_17); lean::dec(x_0); -x_20 = l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__8(x_15, x_17, x_1, x_2, x_3, x_4, x_5, x_6); +x_20 = l_List_foldl___main___at___private_init_lean_parser_term_1__trailing___spec__12(x_15, x_17, x_1, x_2, x_3, x_4, x_5, x_6); return x_20; } } } -obj* l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { +obj* l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__13(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) { _start: { if (lean::obj_tag(x_1) == 0) @@ -43544,10 +43805,10 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_1, 1); lean::inc(x_11); lean::dec(x_1); -x_14 = lean::alloc_closure(reinterpret_cast(l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__9), 8, 2); +x_14 = lean::alloc_closure(reinterpret_cast(l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__13), 8, 2); lean::closure_set(x_14, 0, x_0); lean::closure_set(x_14, 1, x_11); -x_15 = l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___rarg(x_9, x_14, x_2, x_3, x_4, x_5, x_6, x_7); +x_15 = l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___rarg(x_9, x_14, x_2, x_3, x_4, x_5, x_6, x_7); return x_15; } } @@ -43615,7 +43876,7 @@ lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); lean::inc(x_1); -x_35 = l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(x_30, x_23, x_1, x_2, x_3, x_4, x_25, x_20); +x_35 = l_List_foldr___main___at___private_init_lean_parser_term_1__trailing___spec__13(x_30, x_23, x_1, x_2, x_3, x_4, x_25, x_20); x_36 = lean::cnstr_get(x_35, 0); lean::inc(x_36); x_38 = lean::cnstr_get(x_35, 1); @@ -43701,7 +43962,7 @@ lean::inc(x_4); lean::inc(x_3); lean::inc(x_2); lean::inc(x_1); -x_81 = l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__2(x_70, x_1, x_2, x_3, x_4, x_72, x_67); +x_81 = l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_1__trailing___spec__6(x_70, x_1, x_2, x_3, x_4, x_72, x_67); x_82 = lean::cnstr_get(x_81, 0); x_84 = lean::cnstr_get(x_81, 1); if (lean::is_exclusive(x_81)) { @@ -43745,7 +44006,7 @@ x_97 = lean::cnstr_get(x_87, 0); lean::inc(x_97); lean::dec(x_87); x_100 = l___private_init_lean_parser_term_1__trailing___closed__1; -x_101 = l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__6(x_100, x_1, x_2, x_3, x_4, x_5, x_84); +x_101 = l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__10(x_100, x_1, x_2, x_3, x_4, x_5, x_84); x_102 = lean::cnstr_get(x_101, 0); x_104 = lean::cnstr_get(x_101, 1); if (lean::is_exclusive(x_101)) { @@ -43801,7 +44062,7 @@ x_121 = lean::cnstr_get(x_65, 0); lean::inc(x_121); lean::dec(x_65); x_124 = l___private_init_lean_parser_term_1__trailing___closed__1; -x_125 = l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__6(x_124, x_1, x_2, x_3, x_4, x_5, x_118); +x_125 = l_Lean_Parser_Combinators_anyOf___at___private_init_lean_parser_term_1__trailing___spec__10(x_124, x_1, x_2, x_3, x_4, x_5, x_118); x_126 = lean::cnstr_get(x_125, 0); x_128 = lean::cnstr_get(x_125, 1); if (lean::is_exclusive(x_125)) { @@ -43886,6 +44147,78 @@ return x_155; } } } +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_1__trailing___spec__5(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { @@ -43906,33 +44239,281 @@ lean::dec(x_0); return x_1; } } -obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4___boxed(obj* x_0) { +obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__4(x_0); +x_1 = l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_term_1__trailing___spec__8(x_0); lean::dec(x_0); return x_1; } } -obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { +obj* l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) { _start: { obj* x_9; -x_9 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__5(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); +x_9 = l_List_mfoldr___main___at___private_init_lean_parser_term_1__trailing___spec__9(x_0, x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8); lean::dec(x_0); return x_9; } } -obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7___boxed(obj* x_0) { +obj* l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__7(x_0); +x_1 = l_ReaderT_orelse___at___private_init_lean_parser_term_1__trailing___spec__11(x_0); lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg___boxed), 2, 0); +return x_1; +} +} obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_2__leading___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { @@ -43994,7 +44575,7 @@ lean::dec(x_11); switch (lean::obj_tag(x_35)) { case 0: { -obj* x_38; obj* x_41; obj* x_44; obj* x_46; obj* x_49; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +obj* x_38; obj* x_41; obj* x_44; obj* x_46; obj* x_49; obj* x_52; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; x_38 = lean::cnstr_get(x_35, 0); lean::inc(x_38); lean::dec(x_35); @@ -44011,9 +44592,9 @@ lean::inc(x_49); lean::dec(x_38); x_52 = lean::box(0); x_53 = lean_name_mk_string(x_52, x_49); -x_54 = l_Lean_NameMap_contains___rarg___closed__1; -x_55 = l_RBNode_find___main___rarg(x_54, lean::box(0), x_0, x_53); -x_56 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_55, x_2, x_44, x_41); +x_54 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg(x_0, x_53); +lean::dec(x_53); +x_56 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_54, x_2, x_44, x_41); lean::dec(x_2); x_58 = lean::cnstr_get(x_56, 0); x_60 = lean::cnstr_get(x_56, 1); @@ -44039,7 +44620,7 @@ return x_66; } case 1: { -obj* x_68; obj* x_71; obj* x_73; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +obj* x_68; obj* x_71; obj* x_73; obj* x_76; obj* x_77; obj* x_78; obj* x_80; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; lean::dec(x_35); x_68 = lean::cnstr_get(x_8, 1); lean::inc(x_68); @@ -44049,171 +44630,170 @@ lean::inc(x_71); x_73 = lean::cnstr_get(x_9, 2); lean::inc(x_73); lean::dec(x_9); -x_76 = l_Lean_NameMap_contains___rarg___closed__1; -x_77 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_78 = l_RBNode_find___main___rarg(x_76, lean::box(0), x_0, x_77); -x_79 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_78, x_2, x_71, x_68); +x_76 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_77 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(x_0, x_76); +x_78 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_77, x_2, x_71, x_68); lean::dec(x_2); -x_81 = lean::cnstr_get(x_79, 0); -x_83 = lean::cnstr_get(x_79, 1); -if (lean::is_exclusive(x_79)) { - x_85 = x_79; +x_80 = lean::cnstr_get(x_78, 0); +x_82 = lean::cnstr_get(x_78, 1); +if (lean::is_exclusive(x_78)) { + x_84 = x_78; } else { - lean::inc(x_81); - lean::inc(x_83); - lean::dec(x_79); - x_85 = lean::box(0); + lean::inc(x_80); + lean::inc(x_82); + lean::dec(x_78); + x_84 = lean::box(0); } -x_86 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_86, x_81); -x_88 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_87); -if (lean::is_scalar(x_85)) { - x_89 = lean::alloc_cnstr(0, 2, 0); +x_85 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_85, x_80); +x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_73, x_86); +if (lean::is_scalar(x_84)) { + x_88 = lean::alloc_cnstr(0, 2, 0); } else { - x_89 = x_85; + x_88 = x_84; } -lean::cnstr_set(x_89, 0, x_88); -lean::cnstr_set(x_89, 1, x_83); -return x_89; +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_82); +return x_88; } case 2: { -obj* x_90; obj* x_93; obj* x_95; obj* x_98; obj* x_101; obj* x_104; obj* x_105; obj* x_106; obj* x_108; obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; -x_90 = lean::cnstr_get(x_8, 1); -lean::inc(x_90); +obj* x_89; obj* x_92; obj* x_94; obj* x_97; obj* x_100; obj* x_103; obj* x_105; obj* x_107; obj* x_109; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; +x_89 = lean::cnstr_get(x_8, 1); +lean::inc(x_89); lean::dec(x_8); -x_93 = lean::cnstr_get(x_9, 1); -lean::inc(x_93); -x_95 = lean::cnstr_get(x_9, 2); -lean::inc(x_95); +x_92 = lean::cnstr_get(x_9, 1); +lean::inc(x_92); +x_94 = lean::cnstr_get(x_9, 2); +lean::inc(x_94); lean::dec(x_9); -x_98 = lean::cnstr_get(x_35, 0); -lean::inc(x_98); +x_97 = lean::cnstr_get(x_35, 0); +lean::inc(x_97); lean::dec(x_35); -x_101 = lean::cnstr_get(x_98, 0); -lean::inc(x_101); -lean::dec(x_98); -x_104 = l_Lean_NameMap_contains___rarg___closed__1; -x_105 = l_RBNode_find___main___rarg(x_104, lean::box(0), x_0, x_101); -x_106 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_105, x_2, x_93, x_90); +x_100 = lean::cnstr_get(x_97, 0); +lean::inc(x_100); +lean::dec(x_97); +x_103 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg(x_0, x_100); +lean::dec(x_100); +x_105 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_103, x_2, x_92, x_89); lean::dec(x_2); -x_108 = lean::cnstr_get(x_106, 0); -x_110 = lean::cnstr_get(x_106, 1); -if (lean::is_exclusive(x_106)) { - x_112 = x_106; +x_107 = lean::cnstr_get(x_105, 0); +x_109 = lean::cnstr_get(x_105, 1); +if (lean::is_exclusive(x_105)) { + x_111 = x_105; } else { - lean::inc(x_108); - lean::inc(x_110); - lean::dec(x_106); - x_112 = lean::box(0); + lean::inc(x_107); + lean::inc(x_109); + lean::dec(x_105); + x_111 = lean::box(0); } -x_113 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_113, x_108); -x_115 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_95, x_114); -if (lean::is_scalar(x_112)) { - x_116 = lean::alloc_cnstr(0, 2, 0); +x_112 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_113 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_112, x_107); +x_114 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_94, x_113); +if (lean::is_scalar(x_111)) { + x_115 = lean::alloc_cnstr(0, 2, 0); } else { - x_116 = x_112; + x_115 = x_111; } -lean::cnstr_set(x_116, 0, x_115); -lean::cnstr_set(x_116, 1, x_110); -return x_116; +lean::cnstr_set(x_115, 0, x_114); +lean::cnstr_set(x_115, 1, x_109); +return x_115; } default: { -obj* x_117; obj* x_120; obj* x_122; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; -x_117 = lean::cnstr_get(x_8, 1); -lean::inc(x_117); +obj* x_116; obj* x_119; obj* x_121; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; +x_116 = lean::cnstr_get(x_8, 1); +lean::inc(x_116); lean::dec(x_8); -x_120 = lean::cnstr_get(x_9, 1); -lean::inc(x_120); -x_122 = lean::cnstr_get(x_9, 2); -lean::inc(x_122); +x_119 = lean::cnstr_get(x_9, 1); +lean::inc(x_119); +x_121 = lean::cnstr_get(x_9, 2); +lean::inc(x_121); lean::dec(x_9); -x_125 = lean::box(0); -x_126 = l_String_splitAux___main___closed__1; -x_127 = l_mjoin___rarg___closed__1; -x_128 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_126, x_127, x_125, x_125, x_2, x_120, x_117); -x_129 = lean::cnstr_get(x_128, 0); -lean::inc(x_129); -if (lean::obj_tag(x_129) == 0) +x_124 = lean::box(0); +x_125 = l_String_splitAux___main___closed__1; +x_126 = l_mjoin___rarg___closed__1; +x_127 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_125, x_126, x_124, x_124, x_2, x_119, x_116); +x_128 = lean::cnstr_get(x_127, 0); +lean::inc(x_128); +if (lean::obj_tag(x_128) == 0) { -obj* x_131; obj* x_134; obj* x_136; obj* x_138; obj* x_141; obj* x_142; obj* x_143; obj* x_145; obj* x_147; obj* x_149; obj* x_150; obj* x_151; obj* x_152; -x_131 = lean::cnstr_get(x_128, 1); -lean::inc(x_131); +obj* x_130; obj* x_133; obj* x_135; obj* x_137; obj* x_140; obj* x_142; obj* x_144; obj* x_146; obj* x_148; obj* x_149; obj* x_150; obj* x_151; +x_130 = lean::cnstr_get(x_127, 1); +lean::inc(x_130); +lean::dec(x_127); +x_133 = lean::cnstr_get(x_128, 0); +lean::inc(x_133); +x_135 = lean::cnstr_get(x_128, 1); +lean::inc(x_135); +x_137 = lean::cnstr_get(x_128, 2); +lean::inc(x_137); lean::dec(x_128); -x_134 = lean::cnstr_get(x_129, 0); -lean::inc(x_134); -x_136 = lean::cnstr_get(x_129, 1); -lean::inc(x_136); -x_138 = lean::cnstr_get(x_129, 2); -lean::inc(x_138); -lean::dec(x_129); -x_141 = l_Lean_NameMap_contains___rarg___closed__1; -x_142 = l_RBNode_find___main___rarg(x_141, lean::box(0), x_0, x_134); -x_143 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_142, x_2, x_136, x_131); +x_140 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg(x_0, x_133); +lean::dec(x_133); +x_142 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_140, x_2, x_135, x_130); lean::dec(x_2); -x_145 = lean::cnstr_get(x_143, 0); -x_147 = lean::cnstr_get(x_143, 1); -if (lean::is_exclusive(x_143)) { - x_149 = x_143; +x_144 = lean::cnstr_get(x_142, 0); +x_146 = lean::cnstr_get(x_142, 1); +if (lean::is_exclusive(x_142)) { + x_148 = x_142; } else { - lean::inc(x_145); - lean::inc(x_147); - lean::dec(x_143); - x_149 = lean::box(0); + lean::inc(x_144); + lean::inc(x_146); + lean::dec(x_142); + x_148 = lean::box(0); } -x_150 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_138, x_145); -x_151 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_150); -if (lean::is_scalar(x_149)) { - x_152 = lean::alloc_cnstr(0, 2, 0); +x_149 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_137, x_144); +x_150 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_149); +if (lean::is_scalar(x_148)) { + x_151 = lean::alloc_cnstr(0, 2, 0); } else { - x_152 = x_149; + x_151 = x_148; } -lean::cnstr_set(x_152, 0, x_151); -lean::cnstr_set(x_152, 1, x_147); -return x_152; +lean::cnstr_set(x_151, 0, x_150); +lean::cnstr_set(x_151, 1, x_146); +return x_151; } else { -obj* x_155; obj* x_157; obj* x_158; uint8 x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; +obj* x_154; obj* x_156; obj* x_157; uint8 x_159; obj* x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; lean::dec(x_0); lean::dec(x_2); -x_155 = lean::cnstr_get(x_128, 1); +x_154 = lean::cnstr_get(x_127, 1); +if (lean::is_exclusive(x_127)) { + lean::cnstr_release(x_127, 0); + x_156 = x_127; +} else { + lean::inc(x_154); + lean::dec(x_127); + x_156 = lean::box(0); +} +x_157 = lean::cnstr_get(x_128, 0); +x_159 = lean::cnstr_get_scalar(x_128, sizeof(void*)*1); if (lean::is_exclusive(x_128)) { - lean::cnstr_release(x_128, 0); - x_157 = x_128; + x_160 = x_128; } else { - lean::inc(x_155); + lean::inc(x_157); lean::dec(x_128); - x_157 = lean::box(0); + x_160 = lean::box(0); } -x_158 = lean::cnstr_get(x_129, 0); -x_160 = lean::cnstr_get_scalar(x_129, sizeof(void*)*1); -if (lean::is_exclusive(x_129)) { - x_161 = x_129; +if (lean::is_scalar(x_160)) { + x_161 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_158); - lean::dec(x_129); - x_161 = lean::box(0); + x_161 = x_160; } -if (lean::is_scalar(x_161)) { - x_162 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_161, 0, x_157); +lean::cnstr_set_scalar(x_161, sizeof(void*)*1, x_159); +x_162 = x_161; +x_163 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_121, x_162); +if (lean::is_scalar(x_156)) { + x_164 = lean::alloc_cnstr(0, 2, 0); } else { - x_162 = x_161; + x_164 = x_156; } -lean::cnstr_set(x_162, 0, x_158); -lean::cnstr_set_scalar(x_162, sizeof(void*)*1, x_160); -x_163 = x_162; -x_164 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_122, x_163); -if (lean::is_scalar(x_157)) { - x_165 = lean::alloc_cnstr(0, 2, 0); -} else { - x_165 = x_157; -} -lean::cnstr_set(x_165, 0, x_164); -lean::cnstr_set(x_165, 1, x_155); -return x_165; +lean::cnstr_set(x_164, 0, x_163); +lean::cnstr_set(x_164, 1, x_154); +return x_164; } } } @@ -44221,43 +44801,43 @@ return x_165; } else { -obj* x_168; obj* x_170; obj* x_171; uint8 x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; +obj* x_167; obj* x_169; obj* x_170; uint8 x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; lean::dec(x_0); lean::dec(x_2); -x_168 = lean::cnstr_get(x_8, 1); +x_167 = lean::cnstr_get(x_8, 1); if (lean::is_exclusive(x_8)) { lean::cnstr_release(x_8, 0); - x_170 = x_8; + x_169 = x_8; } else { - lean::inc(x_168); + lean::inc(x_167); lean::dec(x_8); - x_170 = lean::box(0); + x_169 = lean::box(0); } -x_171 = lean::cnstr_get(x_9, 0); -x_173 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); +x_170 = lean::cnstr_get(x_9, 0); +x_172 = lean::cnstr_get_scalar(x_9, sizeof(void*)*1); if (lean::is_exclusive(x_9)) { - x_174 = x_9; + x_173 = x_9; } else { - lean::inc(x_171); + lean::inc(x_170); lean::dec(x_9); - x_174 = lean::box(0); + x_173 = lean::box(0); } -if (lean::is_scalar(x_174)) { - x_175 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_173)) { + x_174 = lean::alloc_cnstr(1, 1, 1); } else { - x_175 = x_174; + x_174 = x_173; } -lean::cnstr_set(x_175, 0, x_171); -lean::cnstr_set_scalar(x_175, sizeof(void*)*1, x_173); -x_176 = x_175; -if (lean::is_scalar(x_170)) { - x_177 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_174, 0, x_170); +lean::cnstr_set_scalar(x_174, sizeof(void*)*1, x_172); +x_175 = x_174; +if (lean::is_scalar(x_169)) { + x_176 = lean::alloc_cnstr(0, 2, 0); } else { - x_177 = x_170; + x_176 = x_169; } -lean::cnstr_set(x_177, 0, x_176); -lean::cnstr_set(x_177, 1, x_168); -return x_177; +lean::cnstr_set(x_176, 0, x_175); +lean::cnstr_set(x_176, 1, x_167); +return x_176; } } } @@ -44269,7 +44849,7 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_indexed___at___p return x_1; } } -obj* l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { +obj* l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) { _start: { if (lean::obj_tag(x_1) == 0) @@ -44286,7 +44866,7 @@ lean::inc(x_8); x_10 = lean::cnstr_get(x_1, 1); lean::inc(x_10); lean::dec(x_1); -x_13 = lean::alloc_closure(reinterpret_cast(l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__2), 7, 2); +x_13 = lean::alloc_closure(reinterpret_cast(l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__6), 7, 2); lean::closure_set(x_13, 0, x_0); lean::closure_set(x_13, 1, x_10); x_14 = l_ReaderT_orelse___at_Lean_Parser_command_NotationSpec_foldAction_Parser_Lean_Parser_HasTokens___spec__2___rarg(x_8, x_13, x_2, x_3, x_4, x_5, x_6); @@ -44294,7 +44874,7 @@ return x_14; } } } -obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__7(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_7; @@ -44481,7 +45061,7 @@ x_26 = l___private_init_lean_parser_term_2__leading___closed__1; lean::inc(x_3); lean::inc(x_2); lean::inc(x_1); -x_30 = l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__2(x_26, x_19, x_1, x_2, x_3, x_21, x_13); +x_30 = l_List_foldr___main___at___private_init_lean_parser_term_2__leading___spec__6(x_26, x_19, x_1, x_2, x_3, x_21, x_13); x_31 = lean::cnstr_get(x_30, 0); x_33 = lean::cnstr_get(x_30, 1); if (lean::is_exclusive(x_30)) { @@ -44540,7 +45120,7 @@ lean::inc(x_57); x_59 = lean::cnstr_get(x_50, 2); lean::inc(x_59); lean::dec(x_50); -x_62 = l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__3(x_55, x_1, x_2, x_3, x_57, x_52); +x_62 = l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__7(x_55, x_1, x_2, x_3, x_57, x_52); x_63 = lean::cnstr_get(x_62, 0); x_65 = lean::cnstr_get(x_62, 1); if (lean::is_exclusive(x_62)) { @@ -44657,7 +45237,7 @@ lean::inc(x_110); x_112 = lean::cnstr_get(x_103, 2); lean::inc(x_112); lean::dec(x_103); -x_115 = l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__3(x_108, x_1, x_2, x_3, x_110, x_105); +x_115 = l_Lean_Parser_Combinators_longestMatch___at___private_init_lean_parser_term_2__leading___spec__7(x_108, x_1, x_2, x_3, x_110, x_105); x_116 = lean::cnstr_get(x_115, 0); x_118 = lean::cnstr_get(x_115, 1); if (lean::is_exclusive(x_115)) { @@ -44767,6 +45347,78 @@ return x_151; } } } +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_term_2__leading___spec__5(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_Lean_Parser_indexed___at___private_init_lean_parser_term_2__leading___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { diff --git a/src/stage0/init/lean/parser/token.cpp b/src/stage0/init/lean/parser/token.cpp index 6385df16e1..94016352f4 100644 --- a/src/stage0/init/lean/parser/token.cpp +++ b/src/stage0/init/lean/parser/token.cpp @@ -22,7 +22,6 @@ obj* l_Lean_Parser_withTrailing___rarg___lambda__1(obj*, obj*); obj* l_Lean_Parser_rawStr_Lean_Parser_HasTokens___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_Parser_view___rarg___closed__2; obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___boxed(obj*); -extern obj* l_Lean_NameMap_contains___rarg___closed__1; obj* l___private_init_lean_parser_parsec_4__mkStringResult___rarg(obj*, obj*); obj* l_Lean_Parser_indexed___rarg___closed__1; obj* l_Lean_Parser_raw_view___rarg(obj*, obj*, obj*, obj*, obj*, uint8); @@ -67,7 +66,9 @@ obj* l___private_init_lean_parser_token_4__ident_x_27(obj*, obj*, obj*); obj* l___private_init_lean_parser_token_4__ident_x_27___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_many1Aux_x_27___main___at_Lean_Parser_parseBinLit___spec__2(obj*, obj*, obj*, obj*, obj*); obj* l_List_map___main___at_Lean_Parser_number_x_27___spec__5(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_rawStr(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___boxed(obj*); uint8 l_Lean_isIdEndEscape(uint32); obj* l_Lean_Parser_stringLit_Parser_tokens(obj*, obj*); obj* l_Lean_Parser_MonadParsec_curr___at___private_init_lean_parser_token_4__ident_x_27___spec__2___rarg(obj*, obj*); @@ -76,7 +77,6 @@ obj* l_Lean_Parser_symbolOrIdent_View___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___boxed(obj*, obj*); uint8 l_String_isEmpty(obj*); obj* l_Lean_Parser_detailIdent_HasView_x_27___lambda__1___closed__1; -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_2__whitespaceAux___main___boxed(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_7__toNatCore___boxed(obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_parseHexDigit___rarg___lambda__3___closed__1; @@ -124,6 +124,7 @@ obj* l___private_init_lean_parser_token_2__whitespaceAux(obj*, obj*, obj*, obj*) obj* l_Lean_Parser_stringLit_x_27___closed__1; obj* l_Lean_Parser_number_Parser_tokens(obj*, obj*); obj* l_Lean_Parser_number_HasView_x_27___lambda__2(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(obj*, obj*); uint8 l_Char_isAlpha(uint32); obj* l_Lean_Parser_rawIdent_Parser___rarg___closed__1; obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_View_value___spec__7___rarg(obj*, obj*, obj*); @@ -142,6 +143,7 @@ obj* l_Lean_Parser_indexed___rarg___lambda__1___closed__1; obj* l_Lean_Parser_raw___rarg___lambda__2(obj*, uint8, obj*, obj*, obj*, obj*, obj*, obj*); uint8 l_Lean_Parser_Syntax_isOfKind___main(obj*, obj*); obj* l_ReaderT_orelse___at_Lean_Parser_parseBinLit___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4(obj*); obj* l_Lean_Parser_detailIdent_HasView_x_27___lambda__1___closed__2; obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_Parser_View___boxed(obj*); @@ -156,6 +158,7 @@ obj* l_String_OldIterator_remaining___main(obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_number_x_27___spec__2___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_x_27___spec__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_lift___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__4___boxed(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_Combinators_node_view___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_2__whitespaceAux___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_x_27___lambda__4___boxed(obj*, obj*, obj*, obj*); @@ -163,6 +166,7 @@ obj* l_Lean_Parser_withTrailing___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_raw_view___boxed(obj*); obj* l_Lean_Parser_number_HasView; obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__2; +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___boxed(obj*); obj* l_Lean_Parser_unicodeSymbol___boxed(obj*); obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_View_value___spec__4___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_unicodeSymbol_viewDefault___rarg___boxed(obj*, obj*, obj*, obj*); @@ -173,7 +177,6 @@ obj* l_Lean_Parser_ParsecT_lookahead___at___private_init_lean_parser_token_4__id obj* l_Lean_Parser_detailIdentPart_Parser(obj*, obj*, obj*); obj* l_Lean_Parser_indexed___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_parseStringLiteral___at_Lean_Parser_stringLit_x_27___spec__1(obj*, obj*, obj*); -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___boxed(obj*); obj* l_Lean_Parser_MonadParsec_curr___at___private_init_lean_parser_token_4__ident_x_27___spec__2(obj*); obj* l_Lean_Parser_MonadParsec_digit___at_Lean_Parser_stringLit_x_27___spec__6___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_asSubstring___rarg(obj*, obj*, obj*, obj*); @@ -205,6 +208,7 @@ obj* l_Lean_Parser_parseStringLiteralAux___main___at_Lean_Parser_stringLit_View_ obj* l_Lean_Parser_matchToken(obj*, obj*, obj*); obj* l_Lean_Parser_finishCommentBlock___boxed(obj*, obj*, obj*, obj*); obj* l_Nat_repr(obj*); +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2(obj*); obj* l_Lean_Parser_unicodeSymbol_Lean_Parser_HasTokens___rarg___boxed(obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__7(obj*, obj*, obj*); obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_detailIdentSuffix_Parser___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); @@ -236,6 +240,7 @@ obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_detailIdentPart_Pa obj* l_Lean_Parser_ident_Parser___boxed(obj*); obj* l_Lean_Parser_MonadParsec_takeWhile_x_27___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__2(obj*); obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_number_x_27___spec__8___boxed(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(obj*, obj*); obj* l_ReaderT_Monad___rarg(obj*); obj* l___private_init_lean_parser_parsec_5__takeWhileAux___main___at_Lean_Parser_number_x_27___spec__3(obj*, obj*, obj*); obj* l_Lean_Parser_Combinators_anyOf_view___rarg(obj*, obj*, obj*); @@ -262,6 +267,7 @@ obj* l_Lean_Parser_symbolCore___boxed(obj*); obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2___closed__2; obj* l___private_init_lean_parser_token_3__updateTrailing(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at___private_init_lean_parser_token_4__ident_x_27___spec__4(obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(obj*, obj*); obj* l_Lean_Parser_stringLit_Parser_View___rarg___boxed(obj*); obj* l_Lean_Parser_tryView___at_Lean_Parser_stringLit_Parser___spec__1(obj*, obj*); namespace lean { @@ -269,6 +275,7 @@ obj* string_append(obj*, obj*); } obj* l_Lean_Parser_rawStr_viewDefault(obj*); obj* l_String_OldIterator_next___main(obj*); +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_unicodeSymbol(obj*); obj* l_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasView___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__1; @@ -352,7 +359,6 @@ obj* l_Lean_Parser_ident_Parser_tokens___boxed(obj*, obj*); obj* l_Lean_Parser_symbol_tokens___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_peekToken___closed__1; obj* l_Lean_Parser_ParsecT_lookahead___at_Lean_Parser_token___spec__1___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbol___boxed(obj*); obj* l_Lean_Parser_ParsecT_tryMkRes___rarg(obj*); obj* l_Lean_Parser_MonadParsec_takeWhile___at_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasTokens___spec__6___boxed(obj*); @@ -419,7 +425,6 @@ obj* l___private_init_lean_parser_token_7__toNatCore___main(obj*, obj*, obj*, ob obj* l___private_init_lean_parser_token_8__toNatBase___boxed(obj*, obj*); obj* l_Lean_Parser_ident_Parser_View___rarg___boxed(obj*); obj* l_Lean_Parser_stringLit_Parser___boxed(obj*); -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_parseOctLit(obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__1___closed__3; obj* l_Lean_Parser_withTrailing___rarg___lambda__2(obj*, obj*, obj*, obj*); @@ -445,6 +450,7 @@ extern obj* l_Lean_Parser_MonadParsec_longestMatch___rarg___lambda__2___closed__ obj* l_Lean_Parser_MonadParsec_foldlAux___main___at___private_init_lean_parser_token_4__ident_x_27___spec__9(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbol___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentSuffix_HasView_x_27___lambda__1___closed__1; +uint8 l_Lean_Name_quickLt(obj*, obj*); obj* l_Lean_Parser_symbol_viewDefault___boxed(obj*); obj* l___private_init_lean_parser_parsec_7__takeWhileAux_x_27___main___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__3___boxed(obj*, obj*, obj*); obj* l_ReaderT_MonadExcept___rarg(obj*); @@ -468,11 +474,11 @@ obj* l___private_init_lean_parser_token_2__whitespaceAux___main___closed__2; obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_parseHexLit___spec__1___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_stringLit_Parser___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_List_cons_tokens___rarg(obj*, obj*); -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1(obj*); obj* l_Lean_Parser_raw___rarg___lambda__3(uint8, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_withTrailing___at_Lean_Parser_token___spec__3___boxed(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_number_View_ofNat(obj*); uint8 l_Char_isWhitespace(uint32); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___boxed(obj*); obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__2(obj*); obj* l_Lean_Parser_number_x_27(obj*, obj*, obj*); obj* l_DList_singleton___rarg(obj*, obj*); @@ -482,10 +488,14 @@ obj* l_Lean_Parser_detailIdentPart_HasView_x_27___lambda__1___closed__2; obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__4; obj* l_Lean_Parser_detailIdent_Parser(obj*, obj*, obj*); obj* l_Lean_Parser_peekToken(obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___boxed(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1(obj*); obj* l_Lean_Parser_detailIdentSuffix_Parser___closed__1; +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed(obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhile1___at_Lean_Parser_number_x_27___spec__1___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_ch___at___private_init_lean_parser_token_4__ident_x_27___spec__6___boxed(obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(obj*, obj*); obj* l_Lean_Parser_number_HasView_x_27; obj* l_Lean_Parser_MonadParsec_strCore___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Parser_symbolCore___rarg___boxed(obj*, obj*, obj*, obj*); @@ -517,6 +527,7 @@ obj* l_Lean_Parser_number_HasView_x_27___lambda__1___closed__3; namespace lean { uint8 nat_dec_le(obj*, obj*); } +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___boxed(obj*); obj* l___private_init_lean_parser_token_2__whitespaceAux___main___closed__3; obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_ReaderT_Alternative___rarg(obj*, obj*); @@ -526,6 +537,7 @@ obj* l_List_map___main___at_Lean_Parser_number_x_27___spec__5___lambda__1(obj*, obj* l_ReaderT_lift___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__4___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_unexpectedAt___at_Lean_Parser_stringLit_x_27___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_strCore___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__3___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_7__takeWhileAux_x_27___main___at___private_init_lean_parser_token_2__whitespaceAux___main___spec__3(obj*, uint8, obj*); obj* l_Lean_Parser_raw___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Parser_detailIdentSuffix_HasView_x_27___lambda__1(obj*); @@ -578,11 +590,13 @@ obj* l_Lean_Parser_detailIdentPart_Parser_Lean_Parser_HasView___lambda__1(obj*, obj* l_Lean_Parser_symbolOrIdent_tokens(obj*, obj*, obj*); obj* l_Lean_Parser_idPartEscaped___at___private_init_lean_parser_token_4__ident_x_27___spec__5(obj*, obj*, obj*); obj* l_Lean_Parser_MonadParsec_takeWhileCont___at_Lean_Parser_parseHexLit___spec__2(obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5(obj*); extern obj* l_Lean_Parser_BasicParserM_MonadExcept; obj* l_Lean_Parser_asSubstring___rarg___lambda__1(obj*, obj*, obj*); obj* l_ReaderT_lift___at_Lean_Parser_detailIdentSuffix_Parser_Lean_Parser_HasTokens___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*); extern obj* l_Lean_Parser_ParsecT_failure___rarg___closed__1; uint8 l_Lean_isIdFirst(uint32); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1(obj*); namespace lean { obj* nat_mul(obj*, obj*); } @@ -606,6 +620,7 @@ obj* l_Lean_Parser_number_HasView_x_27___lambda__1(obj*); obj* l_Lean_Parser_withTrailing(obj*); obj* l_Lean_Parser_rawStr_Lean_Parser_HasTokens(obj*, obj*, obj*, obj*, obj*, uint8); obj* l_Lean_Parser_parseStringLiteral___at_Lean_Parser_stringLit_View_value___spec__1(obj*); +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3(obj*); obj* l_Lean_Parser_MonadParsec_digit___at_Lean_Parser_stringLit_x_27___spec__6(obj*, obj*, obj*); obj* l___private_init_lean_parser_token_1__finishCommentBlockAux___main___closed__2; obj* l_Lean_Parser_MonadParsec_ch___at_Lean_Parser_stringLit_View_value___spec__2___boxed(obj*, obj*); @@ -22640,7 +22655,69 @@ lean::dec(x_0); return x_1; } } -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { if (lean::obj_tag(x_0) == 0) @@ -22667,11 +22744,197 @@ return x_10; } } } -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1(obj* x_0) { +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg___boxed), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg___boxed), 4, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(obj* x_0, obj* x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = l_Lean_Name_quickLt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_14; +lean::dec(x_3); +x_14 = l_Lean_Name_quickLt(x_5, x_1); +lean::dec(x_5); +if (x_14 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg___boxed), 2, 0); return x_1; } } @@ -22708,7 +22971,7 @@ lean::dec(x_1); switch (lean::obj_tag(x_11)) { case 0: { -obj* x_14; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +obj* x_14; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_14 = lean::cnstr_get(x_11, 0); lean::inc(x_14); lean::dec(x_11); @@ -22717,9 +22980,9 @@ lean::inc(x_17); lean::dec(x_14); x_20 = lean::box(0); x_21 = lean_name_mk_string(x_20, x_17); -x_22 = l_Lean_NameMap_contains___rarg___closed__1; -x_23 = l_RBNode_find___main___rarg(x_22, lean::box(0), x_0, x_21); -x_24 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_23, x_2, x_3, x_4); +x_22 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_21); +lean::dec(x_21); +x_24 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_22, x_2, x_3, x_4); x_25 = lean::cnstr_get(x_24, 0); x_27 = lean::cnstr_get(x_24, 1); if (lean::is_exclusive(x_24)) { @@ -22743,149 +23006,148 @@ return x_32; } case 1: { -obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; lean::dec(x_11); -x_34 = l_Lean_NameMap_contains___rarg___closed__1; -x_35 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; -x_36 = l_RBNode_find___main___rarg(x_34, lean::box(0), x_0, x_35); -x_37 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_36, x_2, x_3, x_4); -x_38 = lean::cnstr_get(x_37, 0); -x_40 = lean::cnstr_get(x_37, 1); -if (lean::is_exclusive(x_37)) { - x_42 = x_37; +x_34 = l_Lean_Parser_indexed___rarg___lambda__1___closed__1; +x_35 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(x_0, x_34); +x_36 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_35, x_2, x_3, x_4); +x_37 = lean::cnstr_get(x_36, 0); +x_39 = lean::cnstr_get(x_36, 1); +if (lean::is_exclusive(x_36)) { + x_41 = x_36; } else { - lean::inc(x_38); - lean::inc(x_40); - lean::dec(x_37); - x_42 = lean::box(0); + lean::inc(x_37); + lean::inc(x_39); + lean::dec(x_36); + x_41 = lean::box(0); } -x_43 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_44 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_43, x_38); -if (lean::is_scalar(x_42)) { - x_45 = lean::alloc_cnstr(0, 2, 0); +x_42 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_43 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_42, x_37); +if (lean::is_scalar(x_41)) { + x_44 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_42; + x_44 = x_41; } -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_40); -return x_45; +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_39); +return x_44; } case 2: { -obj* x_46; obj* x_49; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; -x_46 = lean::cnstr_get(x_11, 0); -lean::inc(x_46); +obj* x_45; obj* x_48; obj* x_51; obj* x_53; obj* x_54; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_45 = lean::cnstr_get(x_11, 0); +lean::inc(x_45); lean::dec(x_11); -x_49 = lean::cnstr_get(x_46, 0); -lean::inc(x_49); -lean::dec(x_46); -x_52 = l_Lean_NameMap_contains___rarg___closed__1; -x_53 = l_RBNode_find___main___rarg(x_52, lean::box(0), x_0, x_49); -x_54 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_53, x_2, x_3, x_4); -x_55 = lean::cnstr_get(x_54, 0); -x_57 = lean::cnstr_get(x_54, 1); -if (lean::is_exclusive(x_54)) { - x_59 = x_54; +x_48 = lean::cnstr_get(x_45, 0); +lean::inc(x_48); +lean::dec(x_45); +x_51 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(x_0, x_48); +lean::dec(x_48); +x_53 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_51, x_2, x_3, x_4); +x_54 = lean::cnstr_get(x_53, 0); +x_56 = lean::cnstr_get(x_53, 1); +if (lean::is_exclusive(x_53)) { + x_58 = x_53; } else { - lean::inc(x_55); - lean::inc(x_57); - lean::dec(x_54); - x_59 = lean::box(0); + lean::inc(x_54); + lean::inc(x_56); + lean::dec(x_53); + x_58 = lean::box(0); } -x_60 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; -x_61 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_60, x_55); -if (lean::is_scalar(x_59)) { - x_62 = lean::alloc_cnstr(0, 2, 0); +x_59 = l_Lean_Parser_Parsec_Result_mkEps___rarg___closed__1; +x_60 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_59, x_54); +if (lean::is_scalar(x_58)) { + x_61 = lean::alloc_cnstr(0, 2, 0); } else { - x_62 = x_59; + x_61 = x_58; } -lean::cnstr_set(x_62, 0, x_61); -lean::cnstr_set(x_62, 1, x_57); -return x_62; +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_56); +return x_61; } default: { -obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; -x_63 = lean::box(0); -x_64 = l_String_splitAux___main___closed__1; -x_65 = l_mjoin___rarg___closed__1; -x_66 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_64, x_65, x_63, x_63, x_2, x_3, x_4); -x_67 = lean::cnstr_get(x_66, 0); -lean::inc(x_67); -if (lean::obj_tag(x_67) == 0) +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +x_62 = lean::box(0); +x_63 = l_String_splitAux___main___closed__1; +x_64 = l_mjoin___rarg___closed__1; +x_65 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_token_1__finishCommentBlockAux___main___spec__1___rarg(x_63, x_64, x_62, x_62, x_2, x_3, x_4); +x_66 = lean::cnstr_get(x_65, 0); +lean::inc(x_66); +if (lean::obj_tag(x_66) == 0) { -obj* x_69; obj* x_72; obj* x_74; obj* x_76; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_86; obj* x_87; obj* x_88; -x_69 = lean::cnstr_get(x_66, 1); -lean::inc(x_69); +obj* x_68; obj* x_71; obj* x_73; obj* x_75; obj* x_78; obj* x_80; obj* x_81; obj* x_83; obj* x_85; obj* x_86; obj* x_87; +x_68 = lean::cnstr_get(x_65, 1); +lean::inc(x_68); +lean::dec(x_65); +x_71 = lean::cnstr_get(x_66, 0); +lean::inc(x_71); +x_73 = lean::cnstr_get(x_66, 1); +lean::inc(x_73); +x_75 = lean::cnstr_get(x_66, 2); +lean::inc(x_75); lean::dec(x_66); -x_72 = lean::cnstr_get(x_67, 0); -lean::inc(x_72); -x_74 = lean::cnstr_get(x_67, 1); -lean::inc(x_74); -x_76 = lean::cnstr_get(x_67, 2); -lean::inc(x_76); -lean::dec(x_67); -x_79 = l_Lean_NameMap_contains___rarg___closed__1; -x_80 = l_RBNode_find___main___rarg(x_79, lean::box(0), x_0, x_72); -x_81 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_80, x_2, x_74, x_69); -x_82 = lean::cnstr_get(x_81, 0); -x_84 = lean::cnstr_get(x_81, 1); -if (lean::is_exclusive(x_81)) { - x_86 = x_81; +x_78 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(x_0, x_71); +lean::dec(x_71); +x_80 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_78, x_2, x_73, x_68); +x_81 = lean::cnstr_get(x_80, 0); +x_83 = lean::cnstr_get(x_80, 1); +if (lean::is_exclusive(x_80)) { + x_85 = x_80; } else { - lean::inc(x_82); - lean::inc(x_84); - lean::dec(x_81); - x_86 = lean::box(0); + lean::inc(x_81); + lean::inc(x_83); + lean::dec(x_80); + x_85 = lean::box(0); } -x_87 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_76, x_82); -if (lean::is_scalar(x_86)) { - x_88 = lean::alloc_cnstr(0, 2, 0); +x_86 = l_Lean_Parser_ParsecT_bindMkRes___rarg(x_75, x_81); +if (lean::is_scalar(x_85)) { + x_87 = lean::alloc_cnstr(0, 2, 0); } else { - x_88 = x_86; + x_87 = x_85; } -lean::cnstr_set(x_88, 0, x_87); -lean::cnstr_set(x_88, 1, x_84); -return x_88; +lean::cnstr_set(x_87, 0, x_86); +lean::cnstr_set(x_87, 1, x_83); +return x_87; } else { -obj* x_90; obj* x_92; obj* x_93; uint8 x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +obj* x_89; obj* x_91; obj* x_92; uint8 x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; lean::dec(x_0); -x_90 = lean::cnstr_get(x_66, 1); +x_89 = lean::cnstr_get(x_65, 1); +if (lean::is_exclusive(x_65)) { + lean::cnstr_release(x_65, 0); + x_91 = x_65; +} else { + lean::inc(x_89); + lean::dec(x_65); + x_91 = lean::box(0); +} +x_92 = lean::cnstr_get(x_66, 0); +x_94 = lean::cnstr_get_scalar(x_66, sizeof(void*)*1); if (lean::is_exclusive(x_66)) { - lean::cnstr_release(x_66, 0); - x_92 = x_66; + x_95 = x_66; } else { - lean::inc(x_90); + lean::inc(x_92); lean::dec(x_66); - x_92 = lean::box(0); + x_95 = lean::box(0); } -x_93 = lean::cnstr_get(x_67, 0); -x_95 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); -if (lean::is_exclusive(x_67)) { - x_96 = x_67; +if (lean::is_scalar(x_95)) { + x_96 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_93); - lean::dec(x_67); - x_96 = lean::box(0); + x_96 = x_95; } -if (lean::is_scalar(x_96)) { - x_97 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_96, 0, x_92); +lean::cnstr_set_scalar(x_96, sizeof(void*)*1, x_94); +x_97 = x_96; +if (lean::is_scalar(x_91)) { + x_98 = lean::alloc_cnstr(0, 2, 0); } else { - x_97 = x_96; + x_98 = x_91; } -lean::cnstr_set(x_97, 0, x_93); -lean::cnstr_set_scalar(x_97, sizeof(void*)*1, x_95); -x_98 = x_97; -if (lean::is_scalar(x_92)) { - x_99 = lean::alloc_cnstr(0, 2, 0); -} else { - x_99 = x_92; -} -lean::cnstr_set(x_99, 0, x_98); -lean::cnstr_set(x_99, 1, x_90); -return x_99; +lean::cnstr_set(x_98, 0, x_97); +lean::cnstr_set(x_98, 1, x_89); +return x_98; } } } @@ -22922,20 +23184,92 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Parser_indexed___rarg__ return x_1; } } -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; -x_4 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___rarg(x_0, x_1, x_2, x_3); +x_4 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___rarg(x_0, x_1, x_2, x_3); lean::dec(x_1); return x_4; } } -obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1___boxed(obj* x_0) { +obj* l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__1(x_0); +x_1 = l_Option_toMonad___main___at_Lean_Parser_indexed___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___rarg(x_0, x_1); +lean::dec(x_1); +return x_2; +} +} +obj* l_RBNode_find___main___at_Lean_Parser_indexed___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at_Lean_Parser_indexed___spec__5(x_0); lean::dec(x_0); return x_1; } diff --git a/src/stage0/init/lean/parser/trie.cpp b/src/stage0/init/lean/parser/trie.cpp index 1fd8b9bb73..82186d3828 100644 --- a/src/stage0/init/lean/parser/trie.cpp +++ b/src/stage0/init/lean/parser/trie.cpp @@ -15,6 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_Lean_Parser_Trie_HasToString___boxed(obj*); +obj* l_RBNode_setBlack___main___rarg(obj*); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___boxed(obj*); obj* l_Lean_Parser_Trie_oldMatchPrefix___rarg(obj*, obj*); obj* l_Lean_Parser_Trie_oldMatchPrefix___boxed(obj*); @@ -30,26 +31,38 @@ obj* l___private_init_lean_parser_trie_1__insertEmptyAux___main(obj*); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___main___rarg___boxed(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___main(obj*); obj* l___private_init_lean_parser_trie_2__insertAux___boxed(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___boxed(obj*); obj* l___private_init_lean_parser_trie_2__insertAux(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Trie_Inhabited___boxed(obj*); obj* l_Lean_Format_group___main(obj*); obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___boxed(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5(obj*); obj* l_Lean_Parser_Trie_HasToString___rarg___boxed(obj*); obj* l_Lean_Format_joinSep___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__1(obj*, obj*); uint32 l_String_OldIterator_curr___main(obj*); obj* l___private_init_lean_parser_trie_2__insertAux___main___boxed(obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_1__insertEmptyAux___boxed(obj*); obj* l_Lean_Parser_Trie_find(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg(obj*, uint32); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___main___boxed(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1(obj*); obj* l_String_OldIterator_remaining___main(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4(obj*); extern obj* l_Lean_Options_empty; obj* l___private_init_lean_parser_trie_1__insertEmptyAux___main___boxed(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(obj*, uint32, obj*); obj* l_Lean_Parser_Trie_empty___boxed(obj*); obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___boxed(obj*); obj* l_Lean_Parser_Trie_insert___rarg(obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg___boxed(obj*, obj*); +obj* l_RBNode_balance2___main___rarg(obj*, obj*); obj* l_Lean_Parser_Trie_Inhabited(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___boxed(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(obj*, uint32, obj*); obj* l___private_init_lean_parser_trie_4__updtAcc(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg(obj*, uint32); obj* l_Lean_toFmt___at___private_init_lean_parser_trie_7__toStringAux___main___spec__2___boxed(obj*); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_7__toStringAux___main(obj*); @@ -63,17 +76,20 @@ obj* string_append(obj*, obj*); obj* l_Lean_Parser_Trie_find___boxed(obj*); obj* l___private_init_lean_parser_trie_3__findAux___main___rarg(obj*, obj*, obj*); obj* l_String_OldIterator_next___main(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1(obj*); obj* l___private_init_lean_parser_trie_3__findAux___boxed(obj*); obj* l___private_init_lean_parser_trie_3__findAux(obj*); namespace lean { uint8 string_utf8_at_end(obj*, obj*); } +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3(obj*); obj* l_Lean_Parser_Trie_HasToString___rarg(obj*); obj* l___private_init_lean_parser_trie_7__toStringAux___main___boxed(obj*); extern obj* l_Char_HasRepr___closed__1; obj* l___private_init_lean_parser_trie_2__insertAux___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___rarg(obj*, obj*, obj*, obj*); -obj* l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1; +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg___boxed(obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg___boxed(obj*, obj*); obj* l_RBNode_singleton___rarg(obj*, obj*); obj* l___private_init_lean_parser_trie_3__findAux___main(obj*); obj* l_Char_quoteCore(uint32); @@ -83,8 +99,12 @@ namespace lean { uint8 nat_dec_eq(obj*, obj*); } obj* l___private_init_lean_parser_trie_1__insertEmptyAux___main___rarg(obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Trie_empty(obj*); +uint8 l_RBNode_isRed___main___rarg(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1(obj*); obj* l___private_init_lean_parser_trie_3__findAux___main___rarg___boxed(obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg(obj*, uint32); obj* l___private_init_lean_parser_trie_7__toStringAux___boxed(obj*); obj* l___private_init_lean_parser_trie_1__insertEmptyAux___rarg___boxed(obj*, obj*, obj*); namespace lean { @@ -92,6 +112,8 @@ uint32 string_utf8_get(obj*, obj*); } obj* l___private_init_lean_parser_trie_7__toStringAux___main___rarg(obj*); obj* l___private_init_lean_parser_trie_4__updtAcc___rarg(obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg___boxed(obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Trie_find___rarg___boxed(obj*, obj*); obj* l_Lean_toFmt___at___private_init_lean_parser_trie_7__toStringAux___main___spec__2(obj*); obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___rarg(obj*, obj*, obj*, obj*); @@ -99,33 +121,43 @@ obj* l___private_init_lean_parser_trie_5__matchPrefixAux(obj*); obj* l_Lean_Parser_Trie_HasToString(obj*); obj* l_Lean_Parser_Trie_insert___rarg___boxed(obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_7__toStringAux___rarg___boxed(obj*); -obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg___boxed(obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___boxed(obj*); obj* l_Lean_Parser_Trie_matchPrefix(obj*); obj* l_Lean_Parser_Trie_matchPrefix___rarg___boxed(obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_3__findAux___rarg___boxed(obj*, obj*, obj*); obj* l___private_init_lean_parser_trie_7__toStringAux___main___rarg___boxed(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___boxed(obj*); obj* l___private_init_lean_parser_trie_1__insertEmptyAux(obj*); -obj* l_Char_lt___boxed(obj*, obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1(obj*); obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg___boxed(obj*, obj*); obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3(obj*); obj* l_Lean_Parser_Trie_empty___closed__1; namespace lean { obj* string_utf8_next(obj*, obj*); } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___boxed(obj*); +obj* l_RBNode_balance1___main___rarg(obj*, obj*); obj* l___private_init_lean_parser_trie_7__toStringAux___rarg(obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(obj*, uint32, obj*); obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___boxed(obj*); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___main(obj*); obj* l___private_init_lean_parser_trie_2__insertAux___main(obj*); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___boxed(obj*); obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux(obj*); +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg(obj*, uint32); obj* l___private_init_lean_parser_trie_1__insertEmptyAux___main___rarg___boxed(obj*, obj*, obj*); obj* l_Lean_Parser_Trie_find___rarg(obj*, obj*); obj* l___private_init_lean_parser_trie_5__matchPrefixAux___main___rarg(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(obj*, uint32, obj*); obj* l___private_init_lean_parser_trie_4__updtAcc___boxed(obj*); obj* l_Lean_Parser_Trie_insert(obj*); obj* l___private_init_lean_parser_trie_7__toStringAux(obj*); obj* l___private_init_lean_parser_trie_2__insertAux___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___boxed(obj*); obj* l___private_init_lean_parser_trie_2__insertAux___main___rarg(obj*, obj*, obj*, obj*); +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___boxed(obj*); obj* _init_l_Lean_Parser_Trie_empty___closed__1() { _start: { @@ -267,12 +299,1033 @@ lean::dec(x_0); return x_1; } } -obj* _init_l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1() { +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg(obj* x_0, uint32 x_1) { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_Char_lt___boxed), 2, 0); -return x_0; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint32 x_12; uint8 x_13; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = lean::unbox_uint32(x_5); +x_13 = x_1 < x_12; +if (x_13 == 0) +{ +uint8 x_15; +lean::dec(x_3); +x_15 = x_12 < x_1; +if (x_15 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = 0; +x_4 = lean::box_uint32(x_1); +x_5 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_4); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_0); +lean::cnstr_set_scalar(x_5, sizeof(void*)*4, x_3); +x_6 = x_5; +return x_6; +} +else +{ +uint8 x_7; +x_7 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_7 == 0) +{ +obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_16; uint32 x_17; uint8 x_18; +x_8 = lean::cnstr_get(x_0, 0); +x_10 = lean::cnstr_get(x_0, 1); +x_12 = lean::cnstr_get(x_0, 2); +x_14 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_16 = x_0; +} else { + lean::inc(x_8); + lean::inc(x_10); + lean::inc(x_12); + lean::inc(x_14); + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::unbox_uint32(x_10); +x_18 = x_1 < x_17; +if (x_18 == 0) +{ +uint8 x_19; +x_19 = x_17 < x_1; +if (x_19 == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_12); +x_21 = lean::box_uint32(x_1); +if (lean::is_scalar(x_16)) { + x_22 = lean::alloc_cnstr(1, 4, 1); +} else { + x_22 = x_16; +} +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +lean::cnstr_set(x_22, 2, x_2); +lean::cnstr_set(x_22, 3, x_14); +lean::cnstr_set_scalar(x_22, sizeof(void*)*4, x_7); +x_23 = x_22; +return x_23; +} +else +{ +obj* x_24; obj* x_25; obj* x_26; +x_24 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_14, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(1, 4, 1); +} else { + x_25 = x_16; +} +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_10); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_24); +lean::cnstr_set_scalar(x_25, sizeof(void*)*4, x_7); +x_26 = x_25; +return x_26; +} +} +else +{ +obj* x_27; obj* x_28; obj* x_29; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_8, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_28 = lean::alloc_cnstr(1, 4, 1); +} else { + x_28 = x_16; +} +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_10); +lean::cnstr_set(x_28, 2, x_12); +lean::cnstr_set(x_28, 3, x_14); +lean::cnstr_set_scalar(x_28, sizeof(void*)*4, x_7); +x_29 = x_28; +return x_29; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; uint32 x_39; uint8 x_40; +x_30 = lean::cnstr_get(x_0, 0); +x_32 = lean::cnstr_get(x_0, 1); +x_34 = lean::cnstr_get(x_0, 2); +x_36 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_38 = x_0; +} else { + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::dec(x_0); + x_38 = lean::box(0); +} +x_39 = lean::unbox_uint32(x_32); +x_40 = x_1 < x_39; +if (x_40 == 0) +{ +uint8 x_41; +x_41 = x_39 < x_1; +if (x_41 == 0) +{ +obj* x_43; obj* x_44; obj* x_45; +lean::dec(x_34); +x_43 = lean::box_uint32(x_1); +if (lean::is_scalar(x_38)) { + x_44 = lean::alloc_cnstr(1, 4, 1); +} else { + x_44 = x_38; +} +lean::cnstr_set(x_44, 0, x_30); +lean::cnstr_set(x_44, 1, x_43); +lean::cnstr_set(x_44, 2, x_2); +lean::cnstr_set(x_44, 3, x_36); +lean::cnstr_set_scalar(x_44, sizeof(void*)*4, x_7); +x_45 = x_44; +return x_45; +} +else +{ +uint8 x_46; +x_46 = l_RBNode_isRed___main___rarg(x_36); +if (x_46 == 0) +{ +obj* x_47; obj* x_48; obj* x_49; +x_47 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_36, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_38; +} +lean::cnstr_set(x_48, 0, x_30); +lean::cnstr_set(x_48, 1, x_32); +lean::cnstr_set(x_48, 2, x_34); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_7); +x_49 = x_48; +return x_49; +} +else +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_50 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_51 = lean::alloc_cnstr(1, 4, 1); +} else { + x_51 = x_38; +} +lean::cnstr_set(x_51, 0, x_30); +lean::cnstr_set(x_51, 1, x_32); +lean::cnstr_set(x_51, 2, x_34); +lean::cnstr_set(x_51, 3, x_50); +lean::cnstr_set_scalar(x_51, sizeof(void*)*4, x_7); +x_52 = x_51; +x_53 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_36, x_1, x_2); +x_54 = l_RBNode_balance2___main___rarg(x_52, x_53); +return x_54; +} +} +} +else +{ +uint8 x_55; +x_55 = l_RBNode_isRed___main___rarg(x_30); +if (x_55 == 0) +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_30, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_38; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_32); +lean::cnstr_set(x_57, 2, x_34); +lean::cnstr_set(x_57, 3, x_36); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_7); +x_58 = x_57; +return x_58; +} +else +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_60 = lean::alloc_cnstr(1, 4, 1); +} else { + x_60 = x_38; +} +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_32); +lean::cnstr_set(x_60, 2, x_34); +lean::cnstr_set(x_60, 3, x_36); +lean::cnstr_set_scalar(x_60, sizeof(void*)*4, x_7); +x_61 = x_60; +x_62 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_30, x_1, x_2); +x_63 = l_RBNode_balance1___main___rarg(x_61, x_62); +return x_63; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = 0; +x_4 = lean::box_uint32(x_1); +x_5 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_4); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_0); +lean::cnstr_set_scalar(x_5, sizeof(void*)*4, x_3); +x_6 = x_5; +return x_6; +} +else +{ +uint8 x_7; +x_7 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_7 == 0) +{ +obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_16; uint32 x_17; uint8 x_18; +x_8 = lean::cnstr_get(x_0, 0); +x_10 = lean::cnstr_get(x_0, 1); +x_12 = lean::cnstr_get(x_0, 2); +x_14 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_16 = x_0; +} else { + lean::inc(x_8); + lean::inc(x_10); + lean::inc(x_12); + lean::inc(x_14); + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::unbox_uint32(x_10); +x_18 = x_1 < x_17; +if (x_18 == 0) +{ +uint8 x_19; +x_19 = x_17 < x_1; +if (x_19 == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_12); +x_21 = lean::box_uint32(x_1); +if (lean::is_scalar(x_16)) { + x_22 = lean::alloc_cnstr(1, 4, 1); +} else { + x_22 = x_16; +} +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +lean::cnstr_set(x_22, 2, x_2); +lean::cnstr_set(x_22, 3, x_14); +lean::cnstr_set_scalar(x_22, sizeof(void*)*4, x_7); +x_23 = x_22; +return x_23; +} +else +{ +obj* x_24; obj* x_25; obj* x_26; +x_24 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_14, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(1, 4, 1); +} else { + x_25 = x_16; +} +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_10); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_24); +lean::cnstr_set_scalar(x_25, sizeof(void*)*4, x_7); +x_26 = x_25; +return x_26; +} +} +else +{ +obj* x_27; obj* x_28; obj* x_29; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_8, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_28 = lean::alloc_cnstr(1, 4, 1); +} else { + x_28 = x_16; +} +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_10); +lean::cnstr_set(x_28, 2, x_12); +lean::cnstr_set(x_28, 3, x_14); +lean::cnstr_set_scalar(x_28, sizeof(void*)*4, x_7); +x_29 = x_28; +return x_29; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; uint32 x_39; uint8 x_40; +x_30 = lean::cnstr_get(x_0, 0); +x_32 = lean::cnstr_get(x_0, 1); +x_34 = lean::cnstr_get(x_0, 2); +x_36 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_38 = x_0; +} else { + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::dec(x_0); + x_38 = lean::box(0); +} +x_39 = lean::unbox_uint32(x_32); +x_40 = x_1 < x_39; +if (x_40 == 0) +{ +uint8 x_41; +x_41 = x_39 < x_1; +if (x_41 == 0) +{ +obj* x_43; obj* x_44; obj* x_45; +lean::dec(x_34); +x_43 = lean::box_uint32(x_1); +if (lean::is_scalar(x_38)) { + x_44 = lean::alloc_cnstr(1, 4, 1); +} else { + x_44 = x_38; +} +lean::cnstr_set(x_44, 0, x_30); +lean::cnstr_set(x_44, 1, x_43); +lean::cnstr_set(x_44, 2, x_2); +lean::cnstr_set(x_44, 3, x_36); +lean::cnstr_set_scalar(x_44, sizeof(void*)*4, x_7); +x_45 = x_44; +return x_45; +} +else +{ +uint8 x_46; +x_46 = l_RBNode_isRed___main___rarg(x_36); +if (x_46 == 0) +{ +obj* x_47; obj* x_48; obj* x_49; +x_47 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_36, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_38; +} +lean::cnstr_set(x_48, 0, x_30); +lean::cnstr_set(x_48, 1, x_32); +lean::cnstr_set(x_48, 2, x_34); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_7); +x_49 = x_48; +return x_49; +} +else +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_50 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_51 = lean::alloc_cnstr(1, 4, 1); +} else { + x_51 = x_38; +} +lean::cnstr_set(x_51, 0, x_30); +lean::cnstr_set(x_51, 1, x_32); +lean::cnstr_set(x_51, 2, x_34); +lean::cnstr_set(x_51, 3, x_50); +lean::cnstr_set_scalar(x_51, sizeof(void*)*4, x_7); +x_52 = x_51; +x_53 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_36, x_1, x_2); +x_54 = l_RBNode_balance2___main___rarg(x_52, x_53); +return x_54; +} +} +} +else +{ +uint8 x_55; +x_55 = l_RBNode_isRed___main___rarg(x_30); +if (x_55 == 0) +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_30, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_38; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_32); +lean::cnstr_set(x_57, 2, x_34); +lean::cnstr_set(x_57, 3, x_36); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_7); +x_58 = x_57; +return x_58; +} +else +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_60 = lean::alloc_cnstr(1, 4, 1); +} else { + x_60 = x_38; +} +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_32); +lean::cnstr_set(x_60, 2, x_34); +lean::cnstr_set(x_60, 3, x_36); +lean::cnstr_set_scalar(x_60, sizeof(void*)*4, x_7); +x_61 = x_60; +x_62 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_30, x_1, x_2); +x_63 = l_RBNode_balance1___main___rarg(x_61, x_62); +return x_63; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = 0; +x_4 = lean::box_uint32(x_1); +x_5 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_4); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_0); +lean::cnstr_set_scalar(x_5, sizeof(void*)*4, x_3); +x_6 = x_5; +return x_6; +} +else +{ +uint8 x_7; +x_7 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_7 == 0) +{ +obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_16; uint32 x_17; uint8 x_18; +x_8 = lean::cnstr_get(x_0, 0); +x_10 = lean::cnstr_get(x_0, 1); +x_12 = lean::cnstr_get(x_0, 2); +x_14 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_16 = x_0; +} else { + lean::inc(x_8); + lean::inc(x_10); + lean::inc(x_12); + lean::inc(x_14); + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::unbox_uint32(x_10); +x_18 = x_1 < x_17; +if (x_18 == 0) +{ +uint8 x_19; +x_19 = x_17 < x_1; +if (x_19 == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_12); +x_21 = lean::box_uint32(x_1); +if (lean::is_scalar(x_16)) { + x_22 = lean::alloc_cnstr(1, 4, 1); +} else { + x_22 = x_16; +} +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +lean::cnstr_set(x_22, 2, x_2); +lean::cnstr_set(x_22, 3, x_14); +lean::cnstr_set_scalar(x_22, sizeof(void*)*4, x_7); +x_23 = x_22; +return x_23; +} +else +{ +obj* x_24; obj* x_25; obj* x_26; +x_24 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_14, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(1, 4, 1); +} else { + x_25 = x_16; +} +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_10); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_24); +lean::cnstr_set_scalar(x_25, sizeof(void*)*4, x_7); +x_26 = x_25; +return x_26; +} +} +else +{ +obj* x_27; obj* x_28; obj* x_29; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_8, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_28 = lean::alloc_cnstr(1, 4, 1); +} else { + x_28 = x_16; +} +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_10); +lean::cnstr_set(x_28, 2, x_12); +lean::cnstr_set(x_28, 3, x_14); +lean::cnstr_set_scalar(x_28, sizeof(void*)*4, x_7); +x_29 = x_28; +return x_29; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; uint32 x_39; uint8 x_40; +x_30 = lean::cnstr_get(x_0, 0); +x_32 = lean::cnstr_get(x_0, 1); +x_34 = lean::cnstr_get(x_0, 2); +x_36 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_38 = x_0; +} else { + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::dec(x_0); + x_38 = lean::box(0); +} +x_39 = lean::unbox_uint32(x_32); +x_40 = x_1 < x_39; +if (x_40 == 0) +{ +uint8 x_41; +x_41 = x_39 < x_1; +if (x_41 == 0) +{ +obj* x_43; obj* x_44; obj* x_45; +lean::dec(x_34); +x_43 = lean::box_uint32(x_1); +if (lean::is_scalar(x_38)) { + x_44 = lean::alloc_cnstr(1, 4, 1); +} else { + x_44 = x_38; +} +lean::cnstr_set(x_44, 0, x_30); +lean::cnstr_set(x_44, 1, x_43); +lean::cnstr_set(x_44, 2, x_2); +lean::cnstr_set(x_44, 3, x_36); +lean::cnstr_set_scalar(x_44, sizeof(void*)*4, x_7); +x_45 = x_44; +return x_45; +} +else +{ +uint8 x_46; +x_46 = l_RBNode_isRed___main___rarg(x_36); +if (x_46 == 0) +{ +obj* x_47; obj* x_48; obj* x_49; +x_47 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_36, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_38; +} +lean::cnstr_set(x_48, 0, x_30); +lean::cnstr_set(x_48, 1, x_32); +lean::cnstr_set(x_48, 2, x_34); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_7); +x_49 = x_48; +return x_49; +} +else +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_50 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_51 = lean::alloc_cnstr(1, 4, 1); +} else { + x_51 = x_38; +} +lean::cnstr_set(x_51, 0, x_30); +lean::cnstr_set(x_51, 1, x_32); +lean::cnstr_set(x_51, 2, x_34); +lean::cnstr_set(x_51, 3, x_50); +lean::cnstr_set_scalar(x_51, sizeof(void*)*4, x_7); +x_52 = x_51; +x_53 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_36, x_1, x_2); +x_54 = l_RBNode_balance2___main___rarg(x_52, x_53); +return x_54; +} +} +} +else +{ +uint8 x_55; +x_55 = l_RBNode_isRed___main___rarg(x_30); +if (x_55 == 0) +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_30, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_38; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_32); +lean::cnstr_set(x_57, 2, x_34); +lean::cnstr_set(x_57, 3, x_36); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_7); +x_58 = x_57; +return x_58; +} +else +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_60 = lean::alloc_cnstr(1, 4, 1); +} else { + x_60 = x_38; +} +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_32); +lean::cnstr_set(x_60, 2, x_34); +lean::cnstr_set(x_60, 3, x_36); +lean::cnstr_set_scalar(x_60, sizeof(void*)*4, x_7); +x_61 = x_60; +x_62 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_30, x_1, x_2); +x_63 = l_RBNode_balance1___main___rarg(x_61, x_62); +return x_63; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg___boxed), 3, 0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(obj* x_0, uint32 x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; obj* x_6; +x_3 = 0; +x_4 = lean::box_uint32(x_1); +x_5 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_4); +lean::cnstr_set(x_5, 2, x_2); +lean::cnstr_set(x_5, 3, x_0); +lean::cnstr_set_scalar(x_5, sizeof(void*)*4, x_3); +x_6 = x_5; +return x_6; +} +else +{ +uint8 x_7; +x_7 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_7 == 0) +{ +obj* x_8; obj* x_10; obj* x_12; obj* x_14; obj* x_16; uint32 x_17; uint8 x_18; +x_8 = lean::cnstr_get(x_0, 0); +x_10 = lean::cnstr_get(x_0, 1); +x_12 = lean::cnstr_get(x_0, 2); +x_14 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_16 = x_0; +} else { + lean::inc(x_8); + lean::inc(x_10); + lean::inc(x_12); + lean::inc(x_14); + lean::dec(x_0); + x_16 = lean::box(0); +} +x_17 = lean::unbox_uint32(x_10); +x_18 = x_1 < x_17; +if (x_18 == 0) +{ +uint8 x_19; +x_19 = x_17 < x_1; +if (x_19 == 0) +{ +obj* x_21; obj* x_22; obj* x_23; +lean::dec(x_12); +x_21 = lean::box_uint32(x_1); +if (lean::is_scalar(x_16)) { + x_22 = lean::alloc_cnstr(1, 4, 1); +} else { + x_22 = x_16; +} +lean::cnstr_set(x_22, 0, x_8); +lean::cnstr_set(x_22, 1, x_21); +lean::cnstr_set(x_22, 2, x_2); +lean::cnstr_set(x_22, 3, x_14); +lean::cnstr_set_scalar(x_22, sizeof(void*)*4, x_7); +x_23 = x_22; +return x_23; +} +else +{ +obj* x_24; obj* x_25; obj* x_26; +x_24 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_14, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_25 = lean::alloc_cnstr(1, 4, 1); +} else { + x_25 = x_16; +} +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_10); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_24); +lean::cnstr_set_scalar(x_25, sizeof(void*)*4, x_7); +x_26 = x_25; +return x_26; +} +} +else +{ +obj* x_27; obj* x_28; obj* x_29; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_8, x_1, x_2); +if (lean::is_scalar(x_16)) { + x_28 = lean::alloc_cnstr(1, 4, 1); +} else { + x_28 = x_16; +} +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_10); +lean::cnstr_set(x_28, 2, x_12); +lean::cnstr_set(x_28, 3, x_14); +lean::cnstr_set_scalar(x_28, sizeof(void*)*4, x_7); +x_29 = x_28; +return x_29; +} +} +else +{ +obj* x_30; obj* x_32; obj* x_34; obj* x_36; obj* x_38; uint32 x_39; uint8 x_40; +x_30 = lean::cnstr_get(x_0, 0); +x_32 = lean::cnstr_get(x_0, 1); +x_34 = lean::cnstr_get(x_0, 2); +x_36 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_38 = x_0; +} else { + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::dec(x_0); + x_38 = lean::box(0); +} +x_39 = lean::unbox_uint32(x_32); +x_40 = x_1 < x_39; +if (x_40 == 0) +{ +uint8 x_41; +x_41 = x_39 < x_1; +if (x_41 == 0) +{ +obj* x_43; obj* x_44; obj* x_45; +lean::dec(x_34); +x_43 = lean::box_uint32(x_1); +if (lean::is_scalar(x_38)) { + x_44 = lean::alloc_cnstr(1, 4, 1); +} else { + x_44 = x_38; +} +lean::cnstr_set(x_44, 0, x_30); +lean::cnstr_set(x_44, 1, x_43); +lean::cnstr_set(x_44, 2, x_2); +lean::cnstr_set(x_44, 3, x_36); +lean::cnstr_set_scalar(x_44, sizeof(void*)*4, x_7); +x_45 = x_44; +return x_45; +} +else +{ +uint8 x_46; +x_46 = l_RBNode_isRed___main___rarg(x_36); +if (x_46 == 0) +{ +obj* x_47; obj* x_48; obj* x_49; +x_47 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_36, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_38; +} +lean::cnstr_set(x_48, 0, x_30); +lean::cnstr_set(x_48, 1, x_32); +lean::cnstr_set(x_48, 2, x_34); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_7); +x_49 = x_48; +return x_49; +} +else +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_50 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_51 = lean::alloc_cnstr(1, 4, 1); +} else { + x_51 = x_38; +} +lean::cnstr_set(x_51, 0, x_30); +lean::cnstr_set(x_51, 1, x_32); +lean::cnstr_set(x_51, 2, x_34); +lean::cnstr_set(x_51, 3, x_50); +lean::cnstr_set_scalar(x_51, sizeof(void*)*4, x_7); +x_52 = x_51; +x_53 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_36, x_1, x_2); +x_54 = l_RBNode_balance2___main___rarg(x_52, x_53); +return x_54; +} +} +} +else +{ +uint8 x_55; +x_55 = l_RBNode_isRed___main___rarg(x_30); +if (x_55 == 0) +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_30, x_1, x_2); +if (lean::is_scalar(x_38)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_38; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_32); +lean::cnstr_set(x_57, 2, x_34); +lean::cnstr_set(x_57, 3, x_36); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_7); +x_58 = x_57; +return x_58; +} +else +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = lean::box(0); +if (lean::is_scalar(x_38)) { + x_60 = lean::alloc_cnstr(1, 4, 1); +} else { + x_60 = x_38; +} +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_32); +lean::cnstr_set(x_60, 2, x_34); +lean::cnstr_set(x_60, 3, x_36); +lean::cnstr_set_scalar(x_60, sizeof(void*)*4, x_7); +x_61 = x_60; +x_62 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_30, x_1, x_2); +x_63 = l_RBNode_balance1___main___rarg(x_61, x_62); +return x_63; +} +} +} +} +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg___boxed), 3, 0); +return x_1; } } obj* l___private_init_lean_parser_trie_2__insertAux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { @@ -294,62 +1347,96 @@ if (lean::is_exclusive(x_2)) { x_9 = lean::string_utf8_at_end(x_0, x_3); if (x_9 == 0) { -uint32 x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_16; +uint32 x_10; obj* x_11; obj* x_13; uint8 x_14; x_10 = lean::string_utf8_get(x_0, x_3); x_11 = lean::string_utf8_next(x_0, x_3); -x_12 = l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1; -x_13 = lean::box_uint32(x_10); -lean::inc(x_13); lean::inc(x_6); -x_16 = l_RBNode_find___main___rarg(x_12, lean::box(0), x_6, x_13); -if (lean::obj_tag(x_16) == 0) +x_13 = l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg(x_6, x_10); +x_14 = l_RBNode_isRed___main___rarg(x_6); +if (lean::obj_tag(x_13) == 0) { -obj* x_17; obj* x_19; obj* x_20; -x_17 = l___private_init_lean_parser_trie_1__insertEmptyAux___main___rarg(x_0, x_1, x_11); +obj* x_15; +x_15 = l___private_init_lean_parser_trie_1__insertEmptyAux___main___rarg(x_0, x_1, x_11); lean::dec(x_11); -x_19 = l_RBNode_insert___rarg(x_12, x_6, x_13, x_17); +if (x_14 == 0) +{ +obj* x_17; obj* x_18; +x_17 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_6, x_10, x_15); if (lean::is_scalar(x_8)) { - x_20 = lean::alloc_cnstr(0, 2, 0); + x_18 = lean::alloc_cnstr(0, 2, 0); } else { - x_20 = x_8; + x_18 = x_8; } -lean::cnstr_set(x_20, 0, x_4); -lean::cnstr_set(x_20, 1, x_19); -return x_20; +lean::cnstr_set(x_18, 0, x_4); +lean::cnstr_set(x_18, 1, x_17); +return x_18; } else { -obj* x_21; obj* x_24; obj* x_26; obj* x_27; -x_21 = lean::cnstr_get(x_16, 0); -lean::inc(x_21); -lean::dec(x_16); -x_24 = l___private_init_lean_parser_trie_2__insertAux___main___rarg(x_0, x_1, x_21, x_11); -lean::dec(x_11); -x_26 = l_RBNode_insert___rarg(x_12, x_6, x_13, x_24); +obj* x_19; obj* x_20; obj* x_21; +x_19 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_6, x_10, x_15); +x_20 = l_RBNode_setBlack___main___rarg(x_19); if (lean::is_scalar(x_8)) { - x_27 = lean::alloc_cnstr(0, 2, 0); + x_21 = lean::alloc_cnstr(0, 2, 0); } else { - x_27 = x_8; + x_21 = x_8; } -lean::cnstr_set(x_27, 0, x_4); -lean::cnstr_set(x_27, 1, x_26); -return x_27; +lean::cnstr_set(x_21, 0, x_4); +lean::cnstr_set(x_21, 1, x_20); +return x_21; } } else { -obj* x_29; obj* x_30; +obj* x_22; obj* x_25; +x_22 = lean::cnstr_get(x_13, 0); +lean::inc(x_22); +lean::dec(x_13); +x_25 = l___private_init_lean_parser_trie_2__insertAux___main___rarg(x_0, x_1, x_22, x_11); +lean::dec(x_11); +if (x_14 == 0) +{ +obj* x_27; obj* x_28; +x_27 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_6, x_10, x_25); +if (lean::is_scalar(x_8)) { + x_28 = lean::alloc_cnstr(0, 2, 0); +} else { + x_28 = x_8; +} +lean::cnstr_set(x_28, 0, x_4); +lean::cnstr_set(x_28, 1, x_27); +return x_28; +} +else +{ +obj* x_29; obj* x_30; obj* x_31; +x_29 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_6, x_10, x_25); +x_30 = l_RBNode_setBlack___main___rarg(x_29); +if (lean::is_scalar(x_8)) { + x_31 = lean::alloc_cnstr(0, 2, 0); +} else { + x_31 = x_8; +} +lean::cnstr_set(x_31, 0, x_4); +lean::cnstr_set(x_31, 1, x_30); +return x_31; +} +} +} +else +{ +obj* x_33; obj* x_34; lean::dec(x_4); -x_29 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_29, 0, x_1); +x_33 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_33, 0, x_1); if (lean::is_scalar(x_8)) { - x_30 = lean::alloc_cnstr(0, 2, 0); + x_34 = lean::alloc_cnstr(0, 2, 0); } else { - x_30 = x_8; + x_34 = x_8; } -lean::cnstr_set(x_30, 0, x_29); -lean::cnstr_set(x_30, 1, x_6); -return x_30; +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_6); +return x_34; } } } @@ -361,6 +1448,96 @@ x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_t return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +uint32 x_2; obj* x_3; +x_2 = lean::unbox_uint32(x_1); +x_3 = l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___rarg(x_0, x_2); +return x_3; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__2(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__3(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__4(x_0); +lean::dec(x_0); +return x_1; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +uint32 x_3; obj* x_4; +x_3 = lean::unbox_uint32(x_1); +x_4 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___rarg(x_0, x_3, x_2); +return x_4; +} +} +obj* l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_ins___main___at___private_init_lean_parser_trie_2__insertAux___main___spec__5(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_2__insertAux___main___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -450,6 +1627,67 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg(obj* x_0, uint32 x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint32 x_12; uint8 x_13; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = lean::unbox_uint32(x_5); +x_13 = x_1 < x_12; +if (x_13 == 0) +{ +uint8 x_15; +lean::dec(x_3); +x_15 = x_12 < x_1; +if (x_15 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_3__findAux___main___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -462,29 +1700,27 @@ lean::dec(x_1); x_8 = lean::string_utf8_at_end(x_0, x_2); if (x_8 == 0) { -uint32 x_10; obj* x_11; obj* x_12; obj* x_13; +uint32 x_10; obj* x_11; lean::dec(x_3); x_10 = lean::string_utf8_get(x_0, x_2); -x_11 = l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1; -x_12 = lean::box_uint32(x_10); -x_13 = l_RBNode_find___main___rarg(x_11, lean::box(0), x_5, x_12); -if (lean::obj_tag(x_13) == 0) +x_11 = l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg(x_5, x_10); +if (lean::obj_tag(x_11) == 0) { -obj* x_15; +obj* x_13; lean::dec(x_2); -x_15 = lean::box(0); -return x_15; +x_13 = lean::box(0); +return x_13; } else { -obj* x_16; obj* x_19; -x_16 = lean::cnstr_get(x_13, 0); -lean::inc(x_16); -lean::dec(x_13); -x_19 = lean::string_utf8_next(x_0, x_2); +obj* x_14; obj* x_17; +x_14 = lean::cnstr_get(x_11, 0); +lean::inc(x_14); +lean::dec(x_11); +x_17 = lean::string_utf8_next(x_0, x_2); lean::dec(x_2); -x_1 = x_16; -x_2 = x_19; +x_1 = x_14; +x_2 = x_17; goto _start; } } @@ -504,6 +1740,24 @@ x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_t return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +uint32 x_2; obj* x_3; +x_2 = lean::unbox_uint32(x_1); +x_3 = l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___rarg(x_0, x_2); +return x_3; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_trie_3__findAux___main___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_3__findAux___main___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -636,6 +1890,67 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg(obj* x_0, uint32 x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint32 x_12; uint8 x_13; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = lean::unbox_uint32(x_5); +x_13 = x_1 < x_12; +if (x_13 == 0) +{ +uint8 x_15; +lean::dec(x_3); +x_15 = x_12 < x_1; +if (x_15 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_5__matchPrefixAux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -648,40 +1963,38 @@ lean::dec(x_1); x_9 = lean::string_utf8_at_end(x_0, x_2); if (x_9 == 0) { -obj* x_11; uint32 x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_11; uint32 x_13; obj* x_14; lean::inc(x_2); x_11 = l___private_init_lean_parser_trie_4__updtAcc___rarg(x_4, x_2, x_3); lean::dec(x_3); x_13 = lean::string_utf8_get(x_0, x_2); -x_14 = l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1; -x_15 = lean::box_uint32(x_13); -x_16 = l_RBNode_find___main___rarg(x_14, lean::box(0), x_6, x_15); -if (lean::obj_tag(x_16) == 0) +x_14 = l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg(x_6, x_13); +if (lean::obj_tag(x_14) == 0) { lean::dec(x_2); return x_11; } else { -obj* x_18; obj* x_21; -x_18 = lean::cnstr_get(x_16, 0); -lean::inc(x_18); -lean::dec(x_16); -x_21 = lean::string_utf8_next(x_0, x_2); +obj* x_16; obj* x_19; +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +lean::dec(x_14); +x_19 = lean::string_utf8_next(x_0, x_2); lean::dec(x_2); -x_1 = x_18; -x_2 = x_21; +x_1 = x_16; +x_2 = x_19; x_3 = x_11; goto _start; } } else { -obj* x_25; +obj* x_23; lean::dec(x_6); -x_25 = l___private_init_lean_parser_trie_4__updtAcc___rarg(x_4, x_2, x_3); +x_23 = l___private_init_lean_parser_trie_4__updtAcc___rarg(x_4, x_2, x_3); lean::dec(x_3); -return x_25; +return x_23; } } } @@ -693,6 +2006,24 @@ x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_t return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +uint32 x_2; obj* x_3; +x_2 = lean::unbox_uint32(x_1); +x_3 = l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___rarg(x_0, x_2); +return x_3; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_trie_5__matchPrefixAux___main___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_5__matchPrefixAux___main___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -784,6 +2115,67 @@ lean::dec(x_0); return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg(obj* x_0, uint32 x_1) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +obj* x_2; +x_2 = lean::box(0); +return x_2; +} +else +{ +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint32 x_12; uint8 x_13; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = lean::unbox_uint32(x_5); +x_13 = x_1 < x_12; +if (x_13 == 0) +{ +uint8 x_15; +lean::dec(x_3); +x_15 = x_12 < x_1; +if (x_15 == 0) +{ +obj* x_17; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_17, 0, x_7); +return x_17; +} +else +{ +lean::dec(x_7); +x_0 = x_9; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg___boxed), 2, 0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -792,7 +2184,7 @@ x_4 = lean::mk_nat_obj(0ul); x_5 = lean::nat_dec_eq(x_0, x_4); if (x_5 == 0) { -obj* x_6; obj* x_8; obj* x_11; obj* x_12; uint32 x_14; obj* x_15; obj* x_16; obj* x_17; +obj* x_6; obj* x_8; obj* x_11; obj* x_12; uint32 x_14; obj* x_15; x_6 = lean::cnstr_get(x_1, 0); lean::inc(x_6); x_8 = lean::cnstr_get(x_1, 1); @@ -802,12 +2194,10 @@ x_11 = lean::mk_nat_obj(1ul); x_12 = lean::nat_sub(x_0, x_11); lean::dec(x_0); x_14 = l_String_OldIterator_curr___main(x_2); -x_15 = l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1; -x_16 = lean::box_uint32(x_14); -x_17 = l_RBNode_find___main___rarg(x_15, lean::box(0), x_8, x_16); +x_15 = l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg(x_8, x_14); if (lean::obj_tag(x_6) == 0) { -if (lean::obj_tag(x_17) == 0) +if (lean::obj_tag(x_15) == 0) { lean::dec(x_12); lean::dec(x_2); @@ -815,94 +2205,94 @@ return x_3; } else { -obj* x_20; obj* x_23; -x_20 = lean::cnstr_get(x_17, 0); -lean::inc(x_20); -lean::dec(x_17); -x_23 = l_String_OldIterator_next___main(x_2); +obj* x_18; obj* x_21; +x_18 = lean::cnstr_get(x_15, 0); +lean::inc(x_18); +lean::dec(x_15); +x_21 = l_String_OldIterator_next___main(x_2); x_0 = x_12; -x_1 = x_20; -x_2 = x_23; +x_1 = x_18; +x_2 = x_21; goto _start; } } else { -obj* x_26; obj* x_28; obj* x_30; obj* x_31; +obj* x_24; obj* x_26; obj* x_28; obj* x_29; lean::dec(x_3); -x_26 = lean::cnstr_get(x_6, 0); +x_24 = lean::cnstr_get(x_6, 0); if (lean::is_exclusive(x_6)) { - x_28 = x_6; + x_26 = x_6; } else { - lean::inc(x_26); + lean::inc(x_24); lean::dec(x_6); - x_28 = lean::box(0); + x_26 = lean::box(0); } lean::inc(x_2); -x_30 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_30, 0, x_2); -lean::cnstr_set(x_30, 1, x_26); -if (lean::is_scalar(x_28)) { - x_31 = lean::alloc_cnstr(1, 1, 0); +x_28 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_28, 0, x_2); +lean::cnstr_set(x_28, 1, x_24); +if (lean::is_scalar(x_26)) { + x_29 = lean::alloc_cnstr(1, 1, 0); } else { - x_31 = x_28; + x_29 = x_26; } -lean::cnstr_set(x_31, 0, x_30); -if (lean::obj_tag(x_17) == 0) +lean::cnstr_set(x_29, 0, x_28); +if (lean::obj_tag(x_15) == 0) { lean::dec(x_12); lean::dec(x_2); -return x_31; +return x_29; } else { -obj* x_34; obj* x_37; -x_34 = lean::cnstr_get(x_17, 0); -lean::inc(x_34); -lean::dec(x_17); -x_37 = l_String_OldIterator_next___main(x_2); +obj* x_32; obj* x_35; +x_32 = lean::cnstr_get(x_15, 0); +lean::inc(x_32); +lean::dec(x_15); +x_35 = l_String_OldIterator_next___main(x_2); x_0 = x_12; -x_1 = x_34; -x_2 = x_37; -x_3 = x_31; +x_1 = x_32; +x_2 = x_35; +x_3 = x_29; goto _start; } } } else { -obj* x_40; +obj* x_38; lean::dec(x_0); -x_40 = lean::cnstr_get(x_1, 0); -lean::inc(x_40); +x_38 = lean::cnstr_get(x_1, 0); +lean::inc(x_38); lean::dec(x_1); -if (lean::obj_tag(x_40) == 0) +if (lean::obj_tag(x_38) == 0) { lean::dec(x_2); return x_3; } else { -obj* x_45; obj* x_47; obj* x_48; obj* x_49; +obj* x_43; obj* x_45; obj* x_46; obj* x_47; lean::dec(x_3); -x_45 = lean::cnstr_get(x_40, 0); -if (lean::is_exclusive(x_40)) { - x_47 = x_40; +x_43 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_45 = x_38; } else { - lean::inc(x_45); - lean::dec(x_40); - x_47 = lean::box(0); + lean::inc(x_43); + lean::dec(x_38); + x_45 = lean::box(0); } -x_48 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_48, 0, x_2); -lean::cnstr_set(x_48, 1, x_45); -if (lean::is_scalar(x_47)) { - x_49 = lean::alloc_cnstr(1, 1, 0); +x_46 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_46, 0, x_2); +lean::cnstr_set(x_46, 1, x_43); +if (lean::is_scalar(x_45)) { + x_47 = lean::alloc_cnstr(1, 1, 0); } else { - x_49 = x_47; + x_47 = x_45; } -lean::cnstr_set(x_49, 0, x_48); -return x_49; +lean::cnstr_set(x_47, 0, x_46); +return x_47; } } } @@ -915,6 +2305,24 @@ x_1 = lean::alloc_closure(reinterpret_cast(l___private_init_lean_parser_t return x_1; } } +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg___boxed(obj* x_0, obj* x_1) { +_start: +{ +uint32 x_2; obj* x_3; +x_2 = lean::unbox_uint32(x_1); +x_3 = l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___rarg(x_0, x_2); +return x_3; +} +} +obj* l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_RBNode_find___main___at___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___spec__1(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l___private_init_lean_parser_trie_6__oldMatchPrefixAux___main___boxed(obj* x_0) { _start: { @@ -1034,18 +2442,18 @@ return x_19; obj* l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg(obj* x_0, obj* x_1) { _start: { -if (lean::obj_tag(x_0) == 0) +if (lean::obj_tag(x_1) == 0) { -return x_1; +return x_0; } else { obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; uint32 x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; -x_2 = lean::cnstr_get(x_0, 0); -x_3 = lean::cnstr_get(x_0, 1); -x_4 = lean::cnstr_get(x_0, 2); -x_5 = lean::cnstr_get(x_0, 3); -x_6 = l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg(x_2, x_1); +x_2 = lean::cnstr_get(x_1, 0); +x_3 = lean::cnstr_get(x_1, 1); +x_4 = lean::cnstr_get(x_1, 2); +x_5 = lean::cnstr_get(x_1, 3); +x_6 = l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg(x_0, x_2); x_7 = lean::unbox_uint32(x_3); x_8 = l_Char_quoteCore(x_7); x_9 = l_Char_HasRepr___closed__1; @@ -1068,8 +2476,8 @@ lean::cnstr_set(x_20, 1, x_6); x_21 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_21, 0, x_13); lean::cnstr_set(x_21, 1, x_20); -x_0 = x_5; -x_1 = x_21; +x_0 = x_21; +x_1 = x_5; goto _start; } } @@ -1088,7 +2496,7 @@ _start: obj* x_1; obj* x_2; obj* x_3; x_1 = lean::cnstr_get(x_0, 1); x_2 = lean::box(0); -x_3 = l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg(x_1, x_2); +x_3 = l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg(x_2, x_1); return x_3; } } @@ -1114,7 +2522,7 @@ _start: { obj* x_2; x_2 = l_RBNode_fold___main___at___private_init_lean_parser_trie_7__toStringAux___main___spec__3___rarg(x_0, x_1); -lean::dec(x_0); +lean::dec(x_1); return x_2; } } @@ -1232,7 +2640,5 @@ if (io_result_is_error(w)) return w; w = initialize_init_lean_parser_parsec(w); l_Lean_Parser_Trie_empty___closed__1 = _init_l_Lean_Parser_Trie_empty___closed__1(); lean::mark_persistent(l_Lean_Parser_Trie_empty___closed__1); - l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1 = _init_l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1(); -lean::mark_persistent(l___private_init_lean_parser_trie_2__insertAux___main___rarg___closed__1); return w; } diff --git a/src/stage0/init/lean/position.cpp b/src/stage0/init/lean/position.cpp index 9b6ccdf213..52a0612991 100644 --- a/src/stage0/init/lean/position.cpp +++ b/src/stage0/init/lean/position.cpp @@ -14,21 +14,27 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif +obj* l_RBNode_setBlack___main___rarg(obj*); uint8 l_Lean_Position_lt(obj*, obj*); namespace lean { obj* nat_sub(obj*, obj*); } obj* l_Lean_Position_DecidableEq___boxed(obj*, obj*); uint32 l_String_OldIterator_curr___main(obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); obj* l___private_init_lean_position_1__fromStringAux___main___boxed(obj*, obj*, obj*); obj* l_Lean_Position_Lean_HasToFormat___closed__3; obj* l_Nat_decEq___boxed(obj*, obj*); obj* l_Lean_Position_Inhabited; +obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1___boxed(obj*, obj*, obj*); +obj* l_RBNode_balance2___main___rarg(obj*, obj*); obj* l_Lean_Position_lt___boxed(obj*, obj*); obj* l_Lean_Position_lt___main___boxed(obj*, obj*); obj* l_Nat_repr(obj*); obj* l_String_OldIterator_next___main(obj*); +namespace lean { +uint8 nat_dec_lt(obj*, obj*); +} +obj* l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(obj*, obj*, obj*); obj* l_Lean_Position_lt___main___closed__1; obj* l_Lean_Position_Lean_HasToFormat___closed__1; obj* l___private_init_lean_position_1__fromStringAux___boxed(obj*, obj*, obj*); @@ -36,11 +42,13 @@ uint8 l_String_OldIterator_hasNext___main(obj*); namespace lean { obj* nat_add(obj*, obj*); } +obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(obj*, obj*, obj*); namespace lean { uint8 nat_dec_eq(obj*, obj*); } obj* l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(obj*); obj* l_Lean_toFmt___at_Lean_Position_Lean_HasToFormat___spec__1(obj*); +uint8 l_RBNode_isRed___main___rarg(obj*); obj* l_Lean_Position_Lean_HasToFormat___closed__2; obj* l___private_init_lean_position_1__fromStringAux(obj*, obj*, obj*); obj* l___private_init_lean_position_1__fromStringAux___main(obj*, obj*, obj*); @@ -49,7 +57,7 @@ obj* l_Lean_Position_Lean_HasToFormat(obj*); obj* l_Lean_Position_lt___main___closed__2; obj* l_Nat_decLt___boxed(obj*, obj*); uint8 l_Lean_Position_lt___main(obj*, obj*); -obj* l_RBMap_lowerBound___main___rarg(obj*, obj*, obj*); +obj* l_RBNode_balance1___main___rarg(obj*, obj*); namespace lean { uint32 uint32_of_nat(obj*); } @@ -353,6 +361,237 @@ lean::dec(x_2); return x_3; } } +obj* l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_16; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +x_16 = lean::nat_dec_lt(x_1, x_9); +if (x_16 == 0) +{ +uint8 x_17; +x_17 = lean::nat_dec_lt(x_9, x_1); +if (x_17 == 0) +{ +obj* x_20; obj* x_21; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_20 = lean::alloc_cnstr(1, 4, 1); +} else { + x_20 = x_15; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_2); +lean::cnstr_set(x_20, 3, x_13); +lean::cnstr_set_scalar(x_20, sizeof(void*)*4, x_6); +x_21 = x_20; +return x_21; +} +else +{ +obj* x_22; obj* x_23; obj* x_24; +x_22 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_23 = lean::alloc_cnstr(1, 4, 1); +} else { + x_23 = x_15; +} +lean::cnstr_set(x_23, 0, x_7); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_11); +lean::cnstr_set(x_23, 3, x_22); +lean::cnstr_set_scalar(x_23, sizeof(void*)*4, x_6); +x_24 = x_23; +return x_24; +} +} +else +{ +obj* x_25; obj* x_26; obj* x_27; +x_25 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_26 = lean::alloc_cnstr(1, 4, 1); +} else { + x_26 = x_15; +} +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_9); +lean::cnstr_set(x_26, 2, x_11); +lean::cnstr_set(x_26, 3, x_13); +lean::cnstr_set_scalar(x_26, sizeof(void*)*4, x_6); +x_27 = x_26; +return x_27; +} +} +else +{ +obj* x_28; obj* x_30; obj* x_32; obj* x_34; obj* x_36; uint8 x_37; +x_28 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_32 = lean::cnstr_get(x_0, 2); +x_34 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_36 = x_0; +} else { + lean::inc(x_28); + lean::inc(x_30); + lean::inc(x_32); + lean::inc(x_34); + lean::dec(x_0); + x_36 = lean::box(0); +} +x_37 = lean::nat_dec_lt(x_1, x_30); +if (x_37 == 0) +{ +uint8 x_38; +x_38 = lean::nat_dec_lt(x_30, x_1); +if (x_38 == 0) +{ +obj* x_41; obj* x_42; +lean::dec(x_32); +lean::dec(x_30); +if (lean::is_scalar(x_36)) { + x_41 = lean::alloc_cnstr(1, 4, 1); +} else { + x_41 = x_36; +} +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_1); +lean::cnstr_set(x_41, 2, x_2); +lean::cnstr_set(x_41, 3, x_34); +lean::cnstr_set_scalar(x_41, sizeof(void*)*4, x_6); +x_42 = x_41; +return x_42; +} +else +{ +uint8 x_43; +x_43 = l_RBNode_isRed___main___rarg(x_34); +if (x_43 == 0) +{ +obj* x_44; obj* x_45; obj* x_46; +x_44 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_34, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_45 = lean::alloc_cnstr(1, 4, 1); +} else { + x_45 = x_36; +} +lean::cnstr_set(x_45, 0, x_28); +lean::cnstr_set(x_45, 1, x_30); +lean::cnstr_set(x_45, 2, x_32); +lean::cnstr_set(x_45, 3, x_44); +lean::cnstr_set_scalar(x_45, sizeof(void*)*4, x_6); +x_46 = x_45; +return x_46; +} +else +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_48 = lean::alloc_cnstr(1, 4, 1); +} else { + x_48 = x_36; +} +lean::cnstr_set(x_48, 0, x_28); +lean::cnstr_set(x_48, 1, x_30); +lean::cnstr_set(x_48, 2, x_32); +lean::cnstr_set(x_48, 3, x_47); +lean::cnstr_set_scalar(x_48, sizeof(void*)*4, x_6); +x_49 = x_48; +x_50 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_34, x_1, x_2); +x_51 = l_RBNode_balance2___main___rarg(x_49, x_50); +return x_51; +} +} +} +else +{ +uint8 x_52; +x_52 = l_RBNode_isRed___main___rarg(x_28); +if (x_52 == 0) +{ +obj* x_53; obj* x_54; obj* x_55; +x_53 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_28, x_1, x_2); +if (lean::is_scalar(x_36)) { + x_54 = lean::alloc_cnstr(1, 4, 1); +} else { + x_54 = x_36; +} +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_30); +lean::cnstr_set(x_54, 2, x_32); +lean::cnstr_set(x_54, 3, x_34); +lean::cnstr_set_scalar(x_54, sizeof(void*)*4, x_6); +x_55 = x_54; +return x_55; +} +else +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_56 = lean::box(0); +if (lean::is_scalar(x_36)) { + x_57 = lean::alloc_cnstr(1, 4, 1); +} else { + x_57 = x_36; +} +lean::cnstr_set(x_57, 0, x_56); +lean::cnstr_set(x_57, 1, x_30); +lean::cnstr_set(x_57, 2, x_32); +lean::cnstr_set(x_57, 3, x_34); +lean::cnstr_set_scalar(x_57, sizeof(void*)*4, x_6); +x_58 = x_57; +x_59 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_28, x_1, x_2); +x_60 = l_RBNode_balance1___main___rarg(x_58, x_59); +return x_60; +} +} +} +} +} +} obj* l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(obj* x_0) { _start: { @@ -364,7 +603,7 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; +obj* x_2; obj* x_4; obj* x_7; obj* x_9; obj* x_12; uint8 x_13; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); x_4 = lean::cnstr_get(x_0, 1); @@ -376,10 +615,21 @@ x_9 = lean::cnstr_get(x_2, 1); lean::inc(x_9); lean::dec(x_2); x_12 = l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(x_4); -x_13 = l_Lean_Position_lt___main___closed__2; -x_14 = l_RBNode_insert___rarg(x_13, x_12, x_7, x_9); +x_13 = l_RBNode_isRed___main___rarg(x_12); +if (x_13 == 0) +{ +obj* x_14; +x_14 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_12, x_7, x_9); return x_14; } +else +{ +obj* x_15; obj* x_16; +x_15 = l_RBNode_ins___main___at_Lean_FileMap_fromString___spec__2(x_12, x_7, x_9); +x_16 = l_RBNode_setBlack___main___rarg(x_15); +return x_16; +} +} } } obj* l_Lean_FileMap_fromString(obj* x_0) { @@ -398,41 +648,110 @@ x_6 = l_RBMap_ofList___main___at_Lean_FileMap_fromString___spec__1(x_5); return x_6; } } -obj* l_Lean_FileMap_toPosition(obj* x_0, obj* x_1) { +obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_2; obj* x_4; -x_2 = l_Lean_Position_lt___main___closed__2; -lean::inc(x_1); -x_4 = l_RBMap_lowerBound___main___rarg(x_2, x_0, x_1); -if (lean::obj_tag(x_4) == 0) +if (lean::obj_tag(x_0) == 0) { -obj* x_5; obj* x_6; -x_5 = lean::mk_nat_obj(1ul); -x_6 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_6, 0, x_5); -lean::cnstr_set(x_6, 1, x_1); -return x_6; +return x_2; } else { -obj* x_7; obj* x_10; obj* x_12; obj* x_15; obj* x_18; -x_7 = lean::cnstr_get(x_4, 0); +obj* x_3; obj* x_5; obj* x_7; obj* x_9; uint8 x_12; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +x_5 = lean::cnstr_get(x_0, 1); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_0, 2); lean::inc(x_7); -lean::dec(x_4); -x_10 = lean::cnstr_get(x_7, 0); -lean::inc(x_10); -x_12 = lean::cnstr_get(x_7, 1); -lean::inc(x_12); -lean::dec(x_7); -x_15 = lean::nat_sub(x_1, x_10); -lean::dec(x_10); -lean::dec(x_1); -x_18 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_18, 0, x_12); -lean::cnstr_set(x_18, 1, x_15); +x_9 = lean::cnstr_get(x_0, 3); +lean::inc(x_9); +lean::dec(x_0); +x_12 = lean::nat_dec_lt(x_1, x_5); +if (x_12 == 0) +{ +uint8 x_15; +lean::dec(x_3); +lean::dec(x_2); +x_15 = lean::nat_dec_lt(x_5, x_1); +if (x_15 == 0) +{ +obj* x_17; obj* x_18; +lean::dec(x_9); +x_17 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_17, 0, x_5); +lean::cnstr_set(x_17, 1, x_7); +x_18 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_18, 0, x_17); return x_18; } +else +{ +obj* x_19; obj* x_20; +x_19 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_19, 0, x_5); +lean::cnstr_set(x_19, 1, x_7); +x_20 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_20, 0, x_19); +x_0 = x_9; +x_2 = x_20; +goto _start; +} +} +else +{ +lean::dec(x_7); +lean::dec(x_9); +lean::dec(x_5); +x_0 = x_3; +goto _start; +} +} +} +} +obj* l_Lean_FileMap_toPosition(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_3; +x_2 = lean::box(0); +x_3 = l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(x_0, x_1, x_2); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_4; obj* x_5; +x_4 = lean::mk_nat_obj(1ul); +x_5 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_5, 0, x_4); +lean::cnstr_set(x_5, 1, x_1); +return x_5; +} +else +{ +obj* x_6; obj* x_9; obj* x_11; obj* x_14; obj* x_17; +x_6 = lean::cnstr_get(x_3, 0); +lean::inc(x_6); +lean::dec(x_3); +x_9 = lean::cnstr_get(x_6, 0); +lean::inc(x_9); +x_11 = lean::cnstr_get(x_6, 1); +lean::inc(x_11); +lean::dec(x_6); +x_14 = lean::nat_sub(x_1, x_9); +lean::dec(x_9); +lean::dec(x_1); +x_17 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_17, 0, x_11); +lean::cnstr_set(x_17, 1, x_14); +return x_17; +} +} +} +obj* l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_RBNode_lowerBound___main___at_Lean_FileMap_toPosition___spec__1(x_0, x_1, x_2); +lean::dec(x_1); +return x_3; } } obj* initialize_init_data_nat_default(obj*); diff --git a/src/stage0/init/lean/trace.cpp b/src/stage0/init/lean/trace.cpp index b6006f0029..3e5047560d 100644 --- a/src/stage0/init/lean/trace.cpp +++ b/src/stage0/init/lean/trace.cpp @@ -14,29 +14,29 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif +obj* l_RBNode_setBlack___main___rarg(obj*); obj* l_Lean_Trace_Monad(obj*); obj* l_List_map___main___at_Lean_Trace_pp___main___spec__1(obj*); obj* l_Lean_Trace_Trace___rarg___lambda__1___boxed(obj*, obj*); obj* l_StateT_Monad___rarg(obj*); obj* l_Lean_Trace_pp___main(obj*); -obj* l_RBNode_insert___rarg(obj*, obj*, obj*, obj*); +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(obj*); obj* l_Lean_HasCoe(obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__8(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Trace___rarg(obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__12___boxed(obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___boxed(obj*); obj* l_Lean_Trace_TraceT_run___rarg___lambda__1(obj*, obj*); obj* l_Lean_Trace_pp(obj*); obj* l_Lean_Trace_Monad___boxed(obj*); extern obj* l_Lean_Format_join___closed__1; obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__10(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer(obj*); -obj* l_Lean_Position_lt___boxed(obj*, obj*); +obj* l_RBNode_balance2___main___rarg(obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__6___boxed(obj*, obj*, obj*); uint8 l_Lean_KVMap_getBool(obj*, obj*, uint8); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___boxed(obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___boxed(obj*); -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_TraceT_run(obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__6(obj*, obj*, obj*); @@ -47,22 +47,25 @@ obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__4___boxed(obj*, obj*, obj* l_Lean_HasCoe___boxed(obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg(obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__9(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*); +uint8 l_RBNode_isRed___main___rarg(obj*); +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___lambda__1(obj*, obj*, obj*); obj* l_Lean_Trace_Trace___rarg___lambda__1(obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__12(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Trace___boxed(obj*); obj* l_Lean_Trace_Trace(obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__9___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___lambda__1(obj*, obj*, obj*); obj* l_List_foldl___main___at_Lean_Format_join___spec__1(obj*, obj*); +uint8 l_Lean_Position_lt___main(obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1; +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Monad___rarg(obj*); +obj* l_RBNode_balance1___main___rarg(obj*, obj*); obj* l_Lean_Trace_TraceT_run___rarg(obj*, obj*, obj*); obj* l_Lean_Trace_TraceT_run___boxed(obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__11(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj*); +obj* l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj*, obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__5___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__7(obj*, obj*); obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__10___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -237,7 +240,246 @@ lean::dec(x_0); return x_1; } } -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +obj* l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +if (lean::obj_tag(x_0) == 0) +{ +uint8 x_3; obj* x_4; obj* x_5; +x_3 = 0; +x_4 = lean::alloc_cnstr(1, 4, 1); +lean::cnstr_set(x_4, 0, x_0); +lean::cnstr_set(x_4, 1, x_1); +lean::cnstr_set(x_4, 2, x_2); +lean::cnstr_set(x_4, 3, x_0); +lean::cnstr_set_scalar(x_4, sizeof(void*)*4, x_3); +x_5 = x_4; +return x_5; +} +else +{ +uint8 x_6; +x_6 = lean::cnstr_get_scalar(x_0, sizeof(void*)*4); +if (x_6 == 0) +{ +obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; uint8 x_18; +x_7 = lean::cnstr_get(x_0, 0); +x_9 = lean::cnstr_get(x_0, 1); +x_11 = lean::cnstr_get(x_0, 2); +x_13 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_15 = x_0; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::inc(x_13); + lean::dec(x_0); + x_15 = lean::box(0); +} +lean::inc(x_9); +lean::inc(x_1); +x_18 = l_Lean_Position_lt___main(x_1, x_9); +if (x_18 == 0) +{ +uint8 x_21; +lean::inc(x_1); +lean::inc(x_9); +x_21 = l_Lean_Position_lt___main(x_9, x_1); +if (x_21 == 0) +{ +obj* x_24; obj* x_25; +lean::dec(x_9); +lean::dec(x_11); +if (lean::is_scalar(x_15)) { + x_24 = lean::alloc_cnstr(1, 4, 1); +} else { + x_24 = x_15; +} +lean::cnstr_set(x_24, 0, x_7); +lean::cnstr_set(x_24, 1, x_1); +lean::cnstr_set(x_24, 2, x_2); +lean::cnstr_set(x_24, 3, x_13); +lean::cnstr_set_scalar(x_24, sizeof(void*)*4, x_6); +x_25 = x_24; +return x_25; +} +else +{ +obj* x_26; obj* x_27; obj* x_28; +x_26 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_13, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_27 = lean::alloc_cnstr(1, 4, 1); +} else { + x_27 = x_15; +} +lean::cnstr_set(x_27, 0, x_7); +lean::cnstr_set(x_27, 1, x_9); +lean::cnstr_set(x_27, 2, x_11); +lean::cnstr_set(x_27, 3, x_26); +lean::cnstr_set_scalar(x_27, sizeof(void*)*4, x_6); +x_28 = x_27; +return x_28; +} +} +else +{ +obj* x_29; obj* x_30; obj* x_31; +x_29 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_7, x_1, x_2); +if (lean::is_scalar(x_15)) { + x_30 = lean::alloc_cnstr(1, 4, 1); +} else { + x_30 = x_15; +} +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_9); +lean::cnstr_set(x_30, 2, x_11); +lean::cnstr_set(x_30, 3, x_13); +lean::cnstr_set_scalar(x_30, sizeof(void*)*4, x_6); +x_31 = x_30; +return x_31; +} +} +else +{ +obj* x_32; obj* x_34; obj* x_36; obj* x_38; obj* x_40; uint8 x_43; +x_32 = lean::cnstr_get(x_0, 0); +x_34 = lean::cnstr_get(x_0, 1); +x_36 = lean::cnstr_get(x_0, 2); +x_38 = lean::cnstr_get(x_0, 3); +if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); + lean::cnstr_set(x_0, 2, lean::box(0)); + lean::cnstr_set(x_0, 3, lean::box(0)); + x_40 = x_0; +} else { + lean::inc(x_32); + lean::inc(x_34); + lean::inc(x_36); + lean::inc(x_38); + lean::dec(x_0); + x_40 = lean::box(0); +} +lean::inc(x_34); +lean::inc(x_1); +x_43 = l_Lean_Position_lt___main(x_1, x_34); +if (x_43 == 0) +{ +uint8 x_46; +lean::inc(x_1); +lean::inc(x_34); +x_46 = l_Lean_Position_lt___main(x_34, x_1); +if (x_46 == 0) +{ +obj* x_49; obj* x_50; +lean::dec(x_34); +lean::dec(x_36); +if (lean::is_scalar(x_40)) { + x_49 = lean::alloc_cnstr(1, 4, 1); +} else { + x_49 = x_40; +} +lean::cnstr_set(x_49, 0, x_32); +lean::cnstr_set(x_49, 1, x_1); +lean::cnstr_set(x_49, 2, x_2); +lean::cnstr_set(x_49, 3, x_38); +lean::cnstr_set_scalar(x_49, sizeof(void*)*4, x_6); +x_50 = x_49; +return x_50; +} +else +{ +uint8 x_51; +x_51 = l_RBNode_isRed___main___rarg(x_38); +if (x_51 == 0) +{ +obj* x_52; obj* x_53; obj* x_54; +x_52 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_38, x_1, x_2); +if (lean::is_scalar(x_40)) { + x_53 = lean::alloc_cnstr(1, 4, 1); +} else { + x_53 = x_40; +} +lean::cnstr_set(x_53, 0, x_32); +lean::cnstr_set(x_53, 1, x_34); +lean::cnstr_set(x_53, 2, x_36); +lean::cnstr_set(x_53, 3, x_52); +lean::cnstr_set_scalar(x_53, sizeof(void*)*4, x_6); +x_54 = x_53; +return x_54; +} +else +{ +obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; +x_55 = lean::box(0); +if (lean::is_scalar(x_40)) { + x_56 = lean::alloc_cnstr(1, 4, 1); +} else { + x_56 = x_40; +} +lean::cnstr_set(x_56, 0, x_32); +lean::cnstr_set(x_56, 1, x_34); +lean::cnstr_set(x_56, 2, x_36); +lean::cnstr_set(x_56, 3, x_55); +lean::cnstr_set_scalar(x_56, sizeof(void*)*4, x_6); +x_57 = x_56; +x_58 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_38, x_1, x_2); +x_59 = l_RBNode_balance2___main___rarg(x_57, x_58); +return x_59; +} +} +} +else +{ +uint8 x_60; +x_60 = l_RBNode_isRed___main___rarg(x_32); +if (x_60 == 0) +{ +obj* x_61; obj* x_62; obj* x_63; +x_61 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_32, x_1, x_2); +if (lean::is_scalar(x_40)) { + x_62 = lean::alloc_cnstr(1, 4, 1); +} else { + x_62 = x_40; +} +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_34); +lean::cnstr_set(x_62, 2, x_36); +lean::cnstr_set(x_62, 3, x_38); +lean::cnstr_set_scalar(x_62, sizeof(void*)*4, x_6); +x_63 = x_62; +return x_63; +} +else +{ +obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; +x_64 = lean::box(0); +if (lean::is_scalar(x_40)) { + x_65 = lean::alloc_cnstr(1, 4, 1); +} else { + x_65 = x_40; +} +lean::cnstr_set(x_65, 0, x_64); +lean::cnstr_set(x_65, 1, x_34); +lean::cnstr_set(x_65, 2, x_36); +lean::cnstr_set(x_65, 3, x_38); +lean::cnstr_set_scalar(x_65, sizeof(void*)*4, x_6); +x_66 = x_65; +x_67 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_32, x_1, x_2); +x_68 = l_RBNode_balance1___main___rarg(x_66, x_67); +return x_68; +} +} +} +} +} +} +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_11; obj* x_14; obj* x_15; obj* x_16; @@ -269,7 +511,7 @@ x_16 = lean::apply_2(x_11, lean::box(0), x_15); return x_16; } } -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; obj* x_7; obj* x_9; obj* x_10; obj* x_11; @@ -277,18 +519,18 @@ x_6 = lean::apply_1(x_2, x_5); x_7 = lean::cnstr_get(x_0, 1); lean::inc(x_7); x_9 = lean::apply_1(x_4, x_6); -x_10 = lean::alloc_closure(reinterpret_cast(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___lambda__1), 3, 2); +x_10 = lean::alloc_closure(reinterpret_cast(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___lambda__1), 3, 2); lean::closure_set(x_10, 0, x_0); lean::closure_set(x_10, 1, x_3); x_11 = lean::apply_4(x_7, lean::box(0), lean::box(0), x_9, x_10); return x_11; } } -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(obj* x_0) { +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(obj* x_0) { _start: { obj* x_1; -x_1 = lean::alloc_closure(reinterpret_cast(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___boxed), 6, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___boxed), 6, 0); return x_1; } } @@ -316,21 +558,15 @@ x_7 = lean::apply_2(x_1, lean::box(0), x_6); return x_7; } } -obj* _init_l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_Lean_Position_lt___boxed), 2, 0); -return x_0; -} -} obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; +obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_15; obj* x_16; obj* x_18; obj* x_22; uint8 x_23; x_5 = lean::cnstr_get(x_4, 0); x_7 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { + lean::cnstr_set(x_4, 0, lean::box(0)); + lean::cnstr_set(x_4, 1, lean::box(0)); x_9 = x_4; } else { lean::inc(x_5); @@ -338,42 +574,68 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_9 = lean::box(0); } -x_10 = lean::cnstr_get(x_7, 0); +x_10 = lean::cnstr_get(x_7, 1); lean::inc(x_10); -x_12 = lean::cnstr_get(x_7, 1); +x_12 = lean::cnstr_get(x_7, 2); lean::inc(x_12); -x_14 = lean::cnstr_get(x_7, 3); -lean::inc(x_14); -lean::inc(x_14); -x_17 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_17, 0, x_0); -lean::cnstr_set(x_17, 1, x_14); -x_18 = l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1; -x_19 = l_RBNode_insert___rarg(x_18, x_12, x_1, x_17); -x_20 = lean::cnstr_get(x_7, 2); -lean::inc(x_20); +lean::inc(x_0); +x_15 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__1), 3, 2); +lean::closure_set(x_15, 0, x_5); +lean::closure_set(x_15, 1, x_0); +x_16 = lean::cnstr_get(x_7, 0); +lean::inc(x_16); +x_18 = lean::cnstr_get(x_7, 3); +lean::inc(x_18); lean::dec(x_7); -x_23 = lean::alloc_cnstr(0, 4, 0); -lean::cnstr_set(x_23, 0, x_10); -lean::cnstr_set(x_23, 1, x_19); -lean::cnstr_set(x_23, 2, x_20); -lean::cnstr_set(x_23, 3, x_14); -x_24 = lean::box(0); +lean::inc(x_18); +x_22 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_22, 0, x_1); +lean::cnstr_set(x_22, 1, x_18); +x_23 = l_RBNode_isRed___main___rarg(x_10); +if (x_23 == 0) +{ +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +x_24 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_10, x_2, x_22); +x_25 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_25, 0, x_16); +lean::cnstr_set(x_25, 1, x_24); +lean::cnstr_set(x_25, 2, x_12); +lean::cnstr_set(x_25, 3, x_18); +x_26 = lean::box(0); if (lean::is_scalar(x_9)) { - x_25 = lean::alloc_cnstr(0, 2, 0); + x_27 = lean::alloc_cnstr(0, 2, 0); } else { - x_25 = x_9; + x_27 = x_9; } -lean::cnstr_set(x_25, 0, x_24); -lean::cnstr_set(x_25, 1, x_23); -lean::inc(x_2); -x_27 = lean::apply_2(x_2, lean::box(0), x_25); -x_28 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__1), 3, 2); -lean::closure_set(x_28, 0, x_5); -lean::closure_set(x_28, 1, x_2); -x_29 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_27, x_28); +lean::cnstr_set(x_27, 0, x_26); +lean::cnstr_set(x_27, 1, x_25); +x_28 = lean::apply_2(x_0, lean::box(0), x_27); +x_29 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_28, x_15); return x_29; } +else +{ +obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_30 = l_RBNode_ins___main___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_10, x_2, x_22); +x_31 = l_RBNode_setBlack___main___rarg(x_30); +x_32 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_32, 0, x_16); +lean::cnstr_set(x_32, 1, x_31); +lean::cnstr_set(x_32, 2, x_12); +lean::cnstr_set(x_32, 3, x_18); +x_33 = lean::box(0); +if (lean::is_scalar(x_9)) { + x_34 = lean::alloc_cnstr(0, 2, 0); +} else { + x_34 = x_9; +} +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_32); +x_35 = lean::apply_2(x_0, lean::box(0), x_34); +x_36 = lean::apply_4(x_3, lean::box(0), lean::box(0), x_35, x_15); +return x_36; +} +} } obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: @@ -458,9 +720,9 @@ x_37 = lean::apply_2(x_3, lean::box(0), x_35); lean::inc(x_5); x_39 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3___boxed), 6, 5); lean::closure_set(x_39, 0, x_1); -lean::closure_set(x_39, 1, x_4); -lean::closure_set(x_39, 2, x_2); -lean::closure_set(x_39, 3, x_3); +lean::closure_set(x_39, 1, x_3); +lean::closure_set(x_39, 2, x_4); +lean::closure_set(x_39, 3, x_2); lean::closure_set(x_39, 4, x_5); x_40 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_37, x_39); return x_40; @@ -665,7 +927,7 @@ x_37 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_Monad lean::closure_set(x_37, 0, x_3); x_38 = lean::thunk_get_own(x_0); lean::dec(x_0); -x_40 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(x_4, lean::box(0), x_36, x_37, x_38, x_24); +x_40 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(x_4, lean::box(0), x_36, x_37, x_38, x_24); return x_40; } else @@ -797,20 +1059,20 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_Lean_Trace_Lean_Trace_MonadT return x_1; } } -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { obj* x_6; -x_6 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___rarg(x_0, x_1, x_2, x_3, x_4, x_5); +x_6 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___rarg(x_0, x_1, x_2, x_3, x_4, x_5); lean::dec(x_1); return x_6; } } -obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1___boxed(obj* x_0) { +obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2___boxed(obj* x_0) { _start: { obj* x_1; -x_1 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__1(x_0); +x_1 = l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(x_0); lean::dec(x_0); return x_1; } @@ -979,7 +1241,5 @@ if (io_result_is_error(w)) return w; w = initialize_init_lean_name(w); if (io_result_is_error(w)) return w; w = initialize_init_lean_options(w); - l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1 = _init_l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1(); -lean::mark_persistent(l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__2___closed__1); return w; }