diff --git a/library/init/io.lean b/library/init/io.lean index 8a25352dfa..bcbf22d018 100644 --- a/library/init/io.lean +++ b/library/init/io.lean @@ -39,6 +39,12 @@ abbreviation eio := except_t io.error io namespace io +section +local attribute [reducible] io +def lazy_pure {α : Type} (fn : unit → α) : io α := +λ w, (fn (), w) +end + inductive fs.mode | read | write | read_write | append constant fs.handle : Type diff --git a/library/init/lean/frontend.lean b/library/init/lean/frontend.lean index a507b7861b..82b148de49 100644 --- a/library/init/lean/frontend.lean +++ b/library/init/lean/frontend.lean @@ -4,7 +4,7 @@ Released under Apache 2.0 license as described in the file LICENSE. Author: Sebastian Ullrich -/ -import init.lean.parser.module init.lean.expander init.lean.elaborator init.io +import init.lean.parser.module init.lean.expander init.lean.elaborator init.lean.util init.io namespace lean open lean.parser @@ -24,18 +24,16 @@ do t ← parser.mk_token_trie $ trailing_term_parsers := term.builtin_trailing_parsers, } --- for structuring the profiler output -@[noinline] def run_parser {α β : Type} (f : α → β) : α → β := f -@[noinline] def run_expander {α β : Type} (f : α → β) : α → β := f -@[noinline] def run_elaborator {α β : Type} (f : α → β) : α → β := f - def run_frontend (filename input : string) (print_msg : message → except_t string io unit) : except_t string io (list module_parser_output) := do parser_cfg ← monad_except.lift_except $ mk_config filename input, let expander_cfg : expander_config := {filename := filename, input := input, transformers := builtin_transformers}, let parser_k := parser.run parser_cfg input (λ st _, module.parser st), let elab_k := elaborator.run {filename := filename, input := input, initial_parser_cfg := parser_cfg}, - io.prim.iterate_eio (parser_k, elab_k, parser_cfg, expander_cfg, ([] : list module_parser_output)) $ λ ⟨parser_k, elab_k, parser_cfg, expander_cfg, outs⟩, match run_parser parser_k.resume parser_cfg with + io.prim.iterate_eio (parser_k, elab_k, parser_cfg, expander_cfg, ([] : list module_parser_output)) $ λ ⟨parser_k, elab_k, parser_cfg, expander_cfg, outs⟩, do + let pos := match outs with out::_ := out.pos | [] := default _, + r ← monad_lift $ profileit_pure "parsing" pos $ λ _, parser_k.resume parser_cfg, + match r with | coroutine_result_core.done p := do { io.println "parser died!!", pure (sum.inr outs.reverse) @@ -51,10 +49,12 @@ def run_frontend (filename input : string) (print_msg : message → except_t str io.println (to_string out.cmd)-/ }, --io.println out.cmd, - match run_expander (expand out.cmd).run expander_cfg with + r ← monad_lift $ profileit_pure "expanding" pos $ λ _, (expand out.cmd).run expander_cfg, + match r with | except.ok cmd' := do { --io.println cmd', - match run_elaborator elab_k.resume cmd' with + r ← monad_lift $ profileit_pure "elaborating" pos $ λ _, elab_k.resume cmd', + match r with | coroutine_result_core.done msgs := do { when ¬(cmd'.is_of_kind module.eoi) $ io.println "elaborator died!!", diff --git a/library/init/lean/parser/module.lean b/library/init/lean/parser/module.lean index 40d337b8ac..078251ee23 100644 --- a/library/init/lean/parser/module.lean +++ b/library/init/lean/parser/module.lean @@ -30,6 +30,7 @@ structure module_parser_output := (messages : message_log) -- to access the profile data inside (cache : parser_cache) +(pos : position) section local attribute [reducible] parser_core_t @@ -55,9 +56,11 @@ end namespace module def yield_command (cmd : syntax) : module_parser_m unit := -do st ← get, +do cfg ← read, + st ← get, cache ← monad_lift get_cache, - yield {cmd := cmd, messages := st.messages, cache := cache}, + pos ← cfg.file_map.to_position <$> monad_parsec.pos, + yield {cmd := cmd, messages := st.messages, cache := cache, pos := pos}, put {st with messages := message_log.empty} @[derive parser.has_view parser.has_tokens] diff --git a/src/boot/CMakeLists.txt b/src/boot/CMakeLists.txt index 5b39c76fca..61a08df4c7 100644 --- a/src/boot/CMakeLists.txt +++ b/src/boot/CMakeLists.txt @@ -1 +1 @@ -add_library (boot OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/coroutine.cpp ./init/control/default.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monad_fail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/default.cpp ./init/data/basic.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/to_string.cpp ./init/data/uint.cpp ./init/data/usize.cpp ./init/default.cpp ./init/env_ext.cpp ./init/function.cpp ./init/io.cpp ./init/lean/compiler/const_folding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/ir/elim_phi.cpp ./init/lean/ir/extract_cpp.cpp ./init/lean/ir/format.cpp ./init/lean/ir/instances.cpp ./init/lean/ir/ir.cpp ./init/lean/ir/lirc.cpp ./init/lean/ir/parser.cpp ./init/lean/ir/reserved.cpp ./init/lean/ir/ssa_check.cpp ./init/lean/ir/type_check.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/string_literal.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/trace.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp) +add_library (boot OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/coroutine.cpp ./init/control/default.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monad_fail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/default.cpp ./init/data/basic.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/to_string.cpp ./init/data/uint.cpp ./init/data/usize.cpp ./init/default.cpp ./init/env_ext.cpp ./init/function.cpp ./init/io.cpp ./init/lean/compiler/const_folding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/ir.cpp ./init/lean/compiler/util.cpp ./init/lean/config.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/ir/elim_phi.cpp ./init/lean/ir/extract_cpp.cpp ./init/lean/ir/format.cpp ./init/lean/ir/instances.cpp ./init/lean/ir/ir.cpp ./init/lean/ir/lirc.cpp ./init/lean/ir/parser.cpp ./init/lean/ir/reserved.cpp ./init/lean/ir/ssa_check.cpp ./init/lean/ir/type_check.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/string_literal.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp) diff --git a/src/boot/init/control/coroutine.cpp b/src/boot/init/control/coroutine.cpp index 0d6347476b..3ae26dff5d 100644 --- a/src/boot/init/control/coroutine.cpp +++ b/src/boot/init/control/coroutine.cpp @@ -34,8 +34,8 @@ obj* l_coroutine_monad___lambda__6(obj*, obj*); obj* l_coroutine_resume___boxed(obj*, obj*, obj*); obj* l_coroutine_resume___rarg(obj*, obj*); obj* l_coroutine_monad__reader___boxed(obj*, obj*); +obj* l_function_const___rarg(obj*, obj*); obj* l_coroutine_read___rarg(obj*); -obj* l_function_const___rarg___boxed(obj*, obj*); obj* l_coroutine_monad___lambda__7(obj*, obj*, obj*, obj*); obj* l_coroutine_yield___rarg___lambda__1___boxed(obj*); obj* l_coroutine_monad___lambda__5___boxed(obj*, obj*, obj*); @@ -681,7 +681,7 @@ obj* l_coroutine_monad___lambda__2(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 = lean::alloc_closure(reinterpret_cast(l_function_const___rarg___boxed), 2, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_function_const___rarg), 2, 1); lean::closure_set(x_4, 0, x_2); x_5 = l_coroutine_monad___lambda__1___closed__1; x_6 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); diff --git a/src/boot/init/io.cpp b/src/boot/init/io.cpp index 5df42a4885..a22a19f59a 100644 --- a/src/boot/init/io.cpp +++ b/src/boot/init/io.cpp @@ -26,7 +26,6 @@ obj* l_io_println___at_io_println_x_27___spec__1(obj*, obj*); obj* l_coroutine__io_monad___boxed(obj*, obj*); obj* l_from__eio(obj*, obj*); obj* l_io_print___boxed(obj*, obj*); -obj* l_id___boxed(obj*); obj* l_io_fs_handle_read__to__end___boxed(obj*, obj*); obj* l_io_prim_lift__eio___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_io; @@ -51,6 +50,7 @@ obj* l_io_fs_handle_close___boxed(obj*, obj*); obj* l_coroutine__io_resume___rarg(obj*, obj*, obj*); obj* l_io_prim_iterate___rarg(obj*, obj*, obj*); obj* l_io_fs_handle_get__line___at_io_fs_handle_read__to__end___spec__2___boxed(obj*, obj*); +obj* l_id_monad___lambda__1(obj*, obj*, obj*, obj*); obj* l_io_has__eval___rarg(obj*, obj*, obj*); obj* l_eio__unit_has__eval___boxed(obj*); extern "C" obj* lean_io_prim_put_str(obj*, obj*); @@ -72,12 +72,12 @@ obj* l_io_fs_handle_mk___boxed(obj*, obj*); obj* l_io_prim_iterate__eio___at_io_fs_handle_read__to__end___spec__3___boxed(obj*, obj*); obj* l_io_fs_handle_is__eof___at_io_fs_handle_read__to__end___spec__1___boxed(obj*, obj*); obj* l_coroutine__io_monad___lambda__5___boxed(obj*, obj*, obj*, obj*); +obj* l_function_const___rarg(obj*, obj*); obj* l___private_init_io_12__put__str(obj*, obj*); obj* l_io_println_x_27___boxed(obj*, obj*); obj* l_coroutine__io_monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_coroutine__io_yield___boxed(obj*, obj*); obj* l_coroutine__io_monad__reader___rarg(obj*, obj*); -obj* l_function_const___rarg___boxed(obj*, obj*); obj* l_io_fs_handle_get__line___at_io_fs_handle_read__to__end___spec__2(obj*, obj*); obj* l_io_println___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_coroutine__io_monad___lambda__8(obj*, obj*, obj*, obj*); @@ -103,6 +103,7 @@ obj* l_coroutine__io_mk__st___rarg(obj*); obj* l_io_prim_iterate___main___at_io_prim_iterate__eio___spec__1(obj*, obj*, obj*); obj* l_io_fs_read__file___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_io_fs_handle_read__to__end(obj*, obj*); +obj* l_id_bind(obj*, obj*); obj* l_io_prim_put__str___boxed(obj*, obj*); obj* l_coroutine__io_monad___lambda__7(obj*, obj*, obj*, obj*); obj* l_io_prim_iterate___main___at_io_prim_iterate__eio___spec__1___boxed(obj*, obj*, obj*); @@ -113,6 +114,7 @@ obj* l___private_init_io_12__put__str___at_io_println___spec__1___boxed(obj*, ob obj* l_io_prim_iterate__eio___boxed(obj*, obj*, obj*); obj* l_io_error_has__to__string; extern "C" obj* lean_io_prim_handle_close(obj*, obj*); +obj* l_io_lazy__pure___boxed(obj*); obj* l_io_fs_handle_mk___at_io_fs_read__file___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_io_prim_iterate___main___at_io_fs_handle_read__to__end___spec__4(obj*, obj*, obj*); obj* l_coroutine__result__io; @@ -125,6 +127,7 @@ obj* l_io_prim_iterate___boxed(obj*, obj*); obj* l_coroutine__io_yield___rarg___lambda__1___boxed(obj*, obj*); obj* l_io_prim_iterate__eio___rarg(obj*, obj*, obj*); obj* l_has__repr_has__eval(obj*); +obj* l_id(obj*); obj* l_io_println___rarg___closed__1; obj* l_io_print(obj*, obj*); obj* l_io_fs_handle_is__eof(obj*, obj*); @@ -135,13 +138,13 @@ obj* l_coroutine__io_monad__reader(obj*, obj*); obj* l_coroutine__io_monad___lambda__1(obj*, obj*, obj*, obj*); obj* l_io_fs_handle_close___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_coroutine__io_pure___rarg(obj*, obj*, obj*); +obj* l_id_monad___lambda__3(obj*, obj*, obj*, obj*); obj* l_coroutine__io_yield___rarg___lambda__1(obj*, obj*); extern "C" obj* lean_io_prim_handle_flush(obj*, obj*); obj* l_io_fs_read__file___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_io_monad; obj* l_coroutine__io_monad__io___boxed(obj*, obj*, obj*); obj* l_io_println___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_id_monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_coroutine__io_read(obj*, obj*); obj* l_state__t_monad___rarg(obj*); obj* l_coroutine__io_monad__coroutine(obj*, obj*); @@ -169,14 +172,15 @@ obj* l_coroutine__io_monad___lambda__5(obj*, obj*, obj*, obj*); obj* l_coroutine__io_yield___rarg___closed__1; extern "C" obj* lean_io_prim_handle_get_line(obj*, obj*); obj* l_unsafe__io___boxed(obj*, obj*); +obj* l_io_lazy__pure(obj*); obj* l_io_fs_handle_mk(obj*, obj*); obj* l_io_println_x_27(obj*, obj*); +obj* l_io_lazy__pure___rarg(obj*, obj*); obj* l_io_fs_handle_read__to__end___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_coroutine__io_bind___main(obj*, obj*, obj*, obj*); obj* l_coroutine__io_resume___main___rarg(obj*, obj*, obj*); extern obj* l_coroutine_yield___rarg___lambda__1___closed__1; obj* l_io_prim_handle_close___boxed(obj*, obj*); -obj* l_id_bind___boxed(obj*, obj*); obj* l_coroutine__io_yield___rarg___boxed(obj*, obj*, obj*); obj* l_io_println(obj*, obj*); obj* l_coroutine__io_monad__io___rarg(obj*, obj*, obj*); @@ -186,6 +190,7 @@ obj* l_io_print___at_io_println_x_27___spec__2(obj*, obj*); obj* l_coroutine__io_bind___boxed(obj*, obj*, obj*, obj*); obj* l_io_fs_handle_mk___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern "C" obj* lean_io_timeit(obj*, obj*, obj*, obj*); +obj* l_id_monad___lambda__2(obj*, obj*, obj*, obj*); obj* l_io_fs_handle_mk___at_io_fs_read__file___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, uint8, uint8); obj* l_coroutine__io_pipe___rarg(obj*, obj*); obj* l_io_fs_handle_close(obj*, obj*); @@ -199,12 +204,10 @@ extern "C" obj* lean_io_prim_handle_is_eof(obj*, obj*); obj* l_eio_has__eval___boxed(obj*, obj*); obj* l_eio_has__eval___rarg___closed__1; obj* l_reader__t_monad___rarg___lambda__3___boxed(obj*, obj*, obj*); -obj* l_id_monad___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_string_has__lift(obj*); obj* l_io_fs_handle_get__line(obj*, obj*); obj* l_io_fs_handle_mk___at_io_fs_read__file___spec__1___boxed(obj*, obj*); obj* l_coroutine__io_monad__io(obj*, obj*, obj*); -obj* l_id_monad___lambda__3___boxed(obj*, obj*, obj*, obj*); obj* l_io_prim_iterate__eio___at_io_fs_handle_read__to__end___spec__3(obj*, obj*); obj* l_coroutine__io_pure___boxed(obj*, obj*, obj*); obj* l_coroutine__io_monad___lambda__7___boxed(obj*, obj*, obj*, obj*); @@ -216,22 +219,22 @@ obj* _init_l_io_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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -311,6 +314,35 @@ x_0 = lean::box(0); return x_0; } } +obj* l_io_lazy__pure___rarg(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_3; obj* x_4; +x_2 = lean::box(0); +x_3 = lean::apply_1(x_0, x_2); +x_4 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_1); +return x_4; +} +} +obj* l_io_lazy__pure(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_io_lazy__pure___rarg), 2, 0); +return x_1; +} +} +obj* l_io_lazy__pure___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_io_lazy__pure(x_0); +lean::dec(x_0); +return x_1; +} +} obj* l_io_prim_iterate___main___rarg(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -2631,7 +2663,7 @@ obj* l_coroutine__io_monad___lambda__2(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 = lean::alloc_closure(reinterpret_cast(l_function_const___rarg___boxed), 2, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_function_const___rarg), 2, 1); lean::closure_set(x_4, 0, x_2); x_5 = l_coroutine__io_monad___lambda__1___closed__1; x_6 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); diff --git a/src/boot/init/lean/compiler/ir.cpp b/src/boot/init/lean/compiler/ir.cpp new file mode 100644 index 0000000000..0262de0bb3 --- /dev/null +++ b/src/boot/init/lean/compiler/ir.cpp @@ -0,0 +1,47 @@ +// Lean compiler output +// Module: init.lean.compiler.ir +// Imports: init.default init.lean.name +#include "runtime/object.h" +#include "runtime/apply.h" +typedef lean::object obj; typedef lean::usize usize; +typedef lean::uint8 uint8; typedef lean::uint16 uint16; +typedef lean::uint32 uint32; typedef lean::uint64 uint64; +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +obj* l_lean_ir_fid; +obj* l_lean_ir_varid; +obj* _init_l_lean_ir_varid() { +_start: +{ +obj* x_0; +x_0 = lean::box(0); +return x_0; +} +} +obj* _init_l_lean_ir_fid() { +_start: +{ +obj* x_0; +x_0 = lean::box(0); +return x_0; +} +} +void initialize_init_default(); +void initialize_init_lean_name(); +static bool _G_initialized = false; +void initialize_init_lean_compiler_ir() { + if (_G_initialized) return; + _G_initialized = true; + initialize_init_default(); + initialize_init_lean_name(); + l_lean_ir_varid = _init_l_lean_ir_varid(); +lean::mark_persistent(l_lean_ir_varid); + l_lean_ir_fid = _init_l_lean_ir_fid(); +lean::mark_persistent(l_lean_ir_fid); +} diff --git a/src/boot/init/lean/elaborator.cpp b/src/boot/init/lean/elaborator.cpp index 5c057b0853..ac70fb61b5 100644 --- a/src/boot/init/lean/elaborator.cpp +++ b/src/boot/init/lean/elaborator.cpp @@ -215,7 +215,6 @@ extern obj* l_lean_parser_string__lit_has__view; extern obj* l_lean_parser_term_pi_has__view; obj* l_lean_elaborator_export_elaborate___boxed(obj*, obj*, obj*); obj* l_lean_elaborator_locally___at_lean_elaborator_namespace_elaborate___spec__1___lambda__3___boxed(obj*, obj*, obj*, obj*, obj*); -obj* l_lean_parser_module_yield__command___lambda__3___boxed(obj*, obj*); obj* l_lean_elaborator_ordered__rbmap_find___rarg(obj*, obj*, obj*); obj* l_list_foldr___main___at_lean_elaborator_match__open__spec___spec__1(obj*, obj*); obj* l_list_map___main___at_lean_elaborator_export_elaborate___spec__1(obj*, obj*); @@ -665,6 +664,7 @@ obj* l_lean_elaborator_mk__eqns(obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__10___boxed(obj*, obj*, obj*, obj*); obj* l_rbmap_insert___main___at_lean_elaborator_old__elab__command___spec__3(obj*, obj*, obj*); obj* l_lean_elaborator_locally___rarg___lambda__1(obj*); +obj* l_lean_parser_module_yield__command___lambda__6___boxed(obj*, obj*); obj* l_lean_elaborator_level__add___main(obj*, obj*); obj* l_lean_elaborator_elaborate__command___boxed(obj*, obj*, obj*); obj* l_reader__t_monad___rarg(obj*); @@ -9710,7 +9710,7 @@ goto lbl_240; } lbl_240: { -obj* x_298; obj* x_300; obj* x_302; obj* x_303; obj* x_304; obj* x_305; obj* x_306; obj* x_307; obj* x_308; uint8 x_309; obj* x_310; obj* x_311; obj* x_314; obj* x_315; obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_321; obj* x_322; obj* x_323; obj* x_324; obj* x_325; obj* x_326; +obj* x_298; obj* x_300; obj* x_302; obj* x_303; obj* x_304; obj* x_306; obj* x_307; obj* x_308; obj* x_309; uint8 x_310; obj* x_311; obj* x_312; obj* x_315; obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_322; obj* x_323; obj* x_324; obj* x_325; obj* x_326; obj* x_327; x_298 = lean::cnstr_get(x_239, 0); x_300 = lean::cnstr_get(x_239, 1); if (lean::is_exclusive(x_239)) { @@ -9723,331 +9723,333 @@ if (lean::is_exclusive(x_239)) { } x_303 = lean::box(0); x_304 = lean::mk_nat_obj(0u); -x_305 = l_list_length__aux___main___rarg(x_234, x_304); -x_306 = l_lean_elaborator_to__pexpr___main___closed__25; -x_307 = l_lean_kvmap_set__nat(x_303, x_306, x_305); -x_308 = l_lean_elaborator_to__pexpr___main___closed__26; -x_309 = 0; -x_310 = l_lean_kvmap_set__bool(x_307, x_308, x_309); -x_311 = lean::cnstr_get(x_205, 1); -lean::inc(x_311); +lean::inc(x_234); +x_306 = l_list_length__aux___main___rarg(x_234, x_304); +x_307 = l_lean_elaborator_to__pexpr___main___closed__25; +x_308 = l_lean_kvmap_set__nat(x_303, x_307, x_306); +x_309 = l_lean_elaborator_to__pexpr___main___closed__26; +x_310 = 0; +x_311 = l_lean_kvmap_set__bool(x_308, x_309, x_310); +x_312 = lean::cnstr_get(x_205, 1); +lean::inc(x_312); lean::dec(x_205); -x_314 = l_lean_elaborator_to__pexpr___main___closed__27; -x_315 = l_option_map___rarg(x_314, x_311); -x_316 = l_lean_elaborator_to__pexpr___main___closed__28; -x_317 = l_option_map___rarg(x_316, x_315); -x_318 = lean::box(0); -x_319 = l_option_get__or__else___main___rarg(x_317, x_318); -lean::dec(x_317); -x_321 = l_lean_elaborator_to__pexpr___main___closed__29; -x_322 = l_lean_kvmap_set__name(x_310, x_321, x_319); -x_323 = l_list_append___rarg(x_234, x_298); -x_324 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9(x_323); -x_325 = lean_expr_mk_mdata(x_322, x_324); +x_315 = l_lean_elaborator_to__pexpr___main___closed__27; +x_316 = l_option_map___rarg(x_315, x_312); +x_317 = l_lean_elaborator_to__pexpr___main___closed__28; +x_318 = l_option_map___rarg(x_317, x_316); +x_319 = lean::box(0); +x_320 = l_option_get__or__else___main___rarg(x_318, x_319); +lean::dec(x_318); +x_322 = l_lean_elaborator_to__pexpr___main___closed__29; +x_323 = l_lean_kvmap_set__name(x_311, x_322, x_320); +x_324 = l_list_append___rarg(x_234, x_298); +x_325 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9(x_324); +x_326 = lean_expr_mk_mdata(x_323, x_325); if (lean::is_scalar(x_302)) { - x_326 = lean::alloc_cnstr(0, 2, 0); + x_327 = lean::alloc_cnstr(0, 2, 0); } else { - x_326 = x_302; + x_327 = x_302; } -lean::cnstr_set(x_326, 0, x_325); -lean::cnstr_set(x_326, 1, x_300); -x_14 = x_326; +lean::cnstr_set(x_327, 0, x_326); +lean::cnstr_set(x_327, 1, x_300); +x_14 = x_327; goto lbl_15; } } } else { -obj* x_327; obj* x_329; -x_327 = lean::cnstr_get(x_215, 0); -lean::inc(x_327); -x_329 = lean::cnstr_get(x_327, 0); -lean::inc(x_329); -lean::dec(x_327); -if (lean::obj_tag(x_329) == 0) +obj* x_328; obj* x_330; +x_328 = lean::cnstr_get(x_215, 0); +lean::inc(x_328); +x_330 = lean::cnstr_get(x_328, 0); +lean::inc(x_330); +lean::dec(x_328); +if (lean::obj_tag(x_330) == 0) { -obj* x_332; obj* x_333; obj* x_336; obj* x_337; obj* x_340; obj* x_341; obj* x_343; +obj* x_333; obj* x_334; obj* x_337; obj* x_338; obj* x_341; obj* x_342; obj* x_344; if (lean::is_exclusive(x_215)) { lean::cnstr_release(x_215, 0); lean::cnstr_release(x_215, 1); - x_332 = x_215; + x_333 = x_215; } else { lean::dec(x_215); - x_332 = lean::box(0); + x_333 = lean::box(0); } -x_333 = lean::cnstr_get(x_214, 0); -lean::inc(x_333); +x_334 = lean::cnstr_get(x_214, 0); +lean::inc(x_334); lean::dec(x_214); -x_336 = l_lean_parser_term_struct__inst__item_has__view; -x_337 = lean::cnstr_get(x_336, 1); -lean::inc(x_337); -lean::dec(x_336); -x_340 = lean::apply_1(x_337, x_329); -x_341 = l_lean_elaborator_to__pexpr___main___closed__30; +x_337 = l_lean_parser_term_struct__inst__item_has__view; +x_338 = lean::cnstr_get(x_337, 1); +lean::inc(x_338); +lean::dec(x_337); +x_341 = lean::apply_1(x_338, x_330); +x_342 = l_lean_elaborator_to__pexpr___main___closed__30; lean::inc(x_1); -x_343 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_340, x_341, x_1, x_2); +x_344 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_341, x_342, x_1, x_2); lean::dec(x_2); -lean::dec(x_340); -if (lean::obj_tag(x_343) == 0) +lean::dec(x_341); +if (lean::obj_tag(x_344) == 0) { -obj* x_353; obj* x_355; obj* x_356; -lean::dec(x_332); +obj* x_354; obj* x_356; obj* x_357; +lean::dec(x_334); lean::dec(x_333); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); lean::dec(x_209); lean::dec(x_205); -x_353 = lean::cnstr_get(x_343, 0); -if (lean::is_exclusive(x_343)) { - x_355 = x_343; +x_354 = lean::cnstr_get(x_344, 0); +if (lean::is_exclusive(x_344)) { + x_356 = x_344; } else { - lean::inc(x_353); - lean::dec(x_343); - x_355 = lean::box(0); + lean::inc(x_354); + lean::dec(x_344); + x_356 = lean::box(0); } -if (lean::is_scalar(x_355)) { - x_356 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_356)) { + x_357 = lean::alloc_cnstr(0, 1, 0); } else { - x_356 = x_355; + x_357 = x_356; } -lean::cnstr_set(x_356, 0, x_353); -return x_356; +lean::cnstr_set(x_357, 0, x_354); +return x_357; } else { -obj* x_357; obj* x_360; obj* x_362; obj* x_366; -x_357 = lean::cnstr_get(x_343, 0); -lean::inc(x_357); -lean::dec(x_343); -x_360 = lean::cnstr_get(x_357, 0); -lean::inc(x_360); -x_362 = lean::cnstr_get(x_357, 1); -lean::inc(x_362); -lean::dec(x_357); +obj* x_358; obj* x_361; obj* x_363; obj* x_367; +x_358 = lean::cnstr_get(x_344, 0); +lean::inc(x_358); +lean::dec(x_344); +x_361 = lean::cnstr_get(x_358, 0); +lean::inc(x_361); +x_363 = lean::cnstr_get(x_358, 1); +lean::inc(x_363); +lean::dec(x_358); lean::inc(x_1); -x_366 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__11(x_0, x_209, x_1, x_362); -if (lean::obj_tag(x_366) == 0) +x_367 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__11(x_0, x_209, x_1, x_363); +if (lean::obj_tag(x_367) == 0) { -obj* x_374; obj* x_376; obj* x_377; -lean::dec(x_332); +obj* x_375; obj* x_377; obj* x_378; +lean::dec(x_334); lean::dec(x_333); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_360); +lean::dec(x_361); lean::dec(x_205); -x_374 = lean::cnstr_get(x_366, 0); -if (lean::is_exclusive(x_366)) { - x_376 = x_366; +x_375 = lean::cnstr_get(x_367, 0); +if (lean::is_exclusive(x_367)) { + x_377 = x_367; } else { - lean::inc(x_374); - lean::dec(x_366); - x_376 = lean::box(0); + lean::inc(x_375); + lean::dec(x_367); + x_377 = lean::box(0); } -if (lean::is_scalar(x_376)) { - x_377 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_377)) { + x_378 = lean::alloc_cnstr(0, 1, 0); } else { - x_377 = x_376; + x_378 = x_377; } -lean::cnstr_set(x_377, 0, x_374); -return x_377; +lean::cnstr_set(x_378, 0, x_375); +return x_378; } else { -obj* x_378; obj* x_381; obj* x_383; obj* x_386; obj* x_389; -x_378 = lean::cnstr_get(x_366, 0); -lean::inc(x_378); -lean::dec(x_366); -x_381 = lean::cnstr_get(x_378, 0); -lean::inc(x_381); -x_383 = lean::cnstr_get(x_378, 1); -lean::inc(x_383); -lean::dec(x_378); +obj* x_379; obj* x_382; obj* x_384; obj* x_387; obj* x_390; +x_379 = lean::cnstr_get(x_367, 0); +lean::inc(x_379); +lean::dec(x_367); +x_382 = lean::cnstr_get(x_379, 0); +lean::inc(x_382); +x_384 = lean::cnstr_get(x_379, 1); +lean::inc(x_384); +lean::dec(x_379); lean::inc(x_1); -x_389 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__13(x_0, x_333, x_1, x_383); -if (lean::obj_tag(x_389) == 0) +x_390 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__13(x_0, x_334, x_1, x_384); +if (lean::obj_tag(x_390) == 0) { -obj* x_397; obj* x_399; obj* x_400; -lean::dec(x_332); +obj* x_398; obj* x_400; obj* x_401; +lean::dec(x_333); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_360); -lean::dec(x_381); +lean::dec(x_361); +lean::dec(x_382); lean::dec(x_205); -x_397 = lean::cnstr_get(x_389, 0); -if (lean::is_exclusive(x_389)) { - x_399 = x_389; +x_398 = lean::cnstr_get(x_390, 0); +if (lean::is_exclusive(x_390)) { + x_400 = x_390; } else { - lean::inc(x_397); - lean::dec(x_389); - x_399 = lean::box(0); + lean::inc(x_398); + lean::dec(x_390); + x_400 = lean::box(0); } -if (lean::is_scalar(x_399)) { - x_400 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_400)) { + x_401 = lean::alloc_cnstr(0, 1, 0); } else { - x_400 = x_399; + x_401 = x_400; } -lean::cnstr_set(x_400, 0, x_397); -return x_400; +lean::cnstr_set(x_401, 0, x_398); +return x_401; } else { -obj* x_401; obj* x_404; -x_401 = lean::cnstr_get(x_389, 0); -lean::inc(x_401); -lean::dec(x_389); -x_404 = lean::cnstr_get(x_205, 2); -lean::inc(x_404); -if (lean::obj_tag(x_404) == 0) +obj* x_402; obj* x_405; +x_402 = lean::cnstr_get(x_390, 0); +lean::inc(x_402); +lean::dec(x_390); +x_405 = lean::cnstr_get(x_205, 2); +lean::inc(x_405); +if (lean::obj_tag(x_405) == 0) { -obj* x_407; obj* x_409; obj* x_411; obj* x_412; -lean::dec(x_332); -x_407 = lean::cnstr_get(x_401, 0); -x_409 = lean::cnstr_get(x_401, 1); -if (lean::is_exclusive(x_401)) { - x_411 = x_401; +obj* x_408; obj* x_410; obj* x_412; obj* x_413; +lean::dec(x_333); +x_408 = lean::cnstr_get(x_402, 0); +x_410 = lean::cnstr_get(x_402, 1); +if (lean::is_exclusive(x_402)) { + x_412 = x_402; } else { - lean::inc(x_407); - lean::inc(x_409); - lean::dec(x_401); - x_411 = lean::box(0); + lean::inc(x_408); + lean::inc(x_410); + lean::dec(x_402); + x_412 = lean::box(0); } -if (lean::is_scalar(x_411)) { - x_412 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_412)) { + x_413 = lean::alloc_cnstr(0, 2, 0); } else { - x_412 = x_411; + x_413 = x_412; } -lean::cnstr_set(x_412, 0, x_407); -lean::cnstr_set(x_412, 1, x_409); -x_386 = x_412; -goto lbl_387; +lean::cnstr_set(x_413, 0, x_408); +lean::cnstr_set(x_413, 1, x_410); +x_387 = x_413; +goto lbl_388; } else { -obj* x_413; obj* x_415; obj* x_418; obj* x_421; obj* x_425; -x_413 = lean::cnstr_get(x_401, 0); -lean::inc(x_413); -x_415 = lean::cnstr_get(x_401, 1); -lean::inc(x_415); -lean::dec(x_401); -x_418 = lean::cnstr_get(x_404, 0); -lean::inc(x_418); -lean::dec(x_404); -x_421 = lean::cnstr_get(x_418, 0); -lean::inc(x_421); -lean::dec(x_418); +obj* x_414; obj* x_416; obj* x_419; obj* x_422; obj* x_426; +x_414 = lean::cnstr_get(x_402, 0); +lean::inc(x_414); +x_416 = lean::cnstr_get(x_402, 1); +lean::inc(x_416); +lean::dec(x_402); +x_419 = lean::cnstr_get(x_405, 0); +lean::inc(x_419); +lean::dec(x_405); +x_422 = lean::cnstr_get(x_419, 0); +lean::inc(x_422); +lean::dec(x_419); lean::inc(x_1); -x_425 = l_lean_elaborator_to__pexpr___main(x_421, x_1, x_415); -if (lean::obj_tag(x_425) == 0) +x_426 = l_lean_elaborator_to__pexpr___main(x_422, x_1, x_416); +if (lean::obj_tag(x_426) == 0) { -obj* x_434; obj* x_436; obj* x_437; -lean::dec(x_332); +obj* x_435; obj* x_437; obj* x_438; +lean::dec(x_333); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_360); -lean::dec(x_381); +lean::dec(x_361); +lean::dec(x_382); lean::dec(x_205); -lean::dec(x_413); -x_434 = lean::cnstr_get(x_425, 0); -if (lean::is_exclusive(x_425)) { - x_436 = x_425; +lean::dec(x_414); +x_435 = lean::cnstr_get(x_426, 0); +if (lean::is_exclusive(x_426)) { + x_437 = x_426; } else { - lean::inc(x_434); - lean::dec(x_425); - x_436 = lean::box(0); + lean::inc(x_435); + lean::dec(x_426); + x_437 = lean::box(0); } -if (lean::is_scalar(x_436)) { - x_437 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_437)) { + x_438 = lean::alloc_cnstr(0, 1, 0); } else { - x_437 = x_436; + x_438 = x_437; } -lean::cnstr_set(x_437, 0, x_434); -return x_437; +lean::cnstr_set(x_438, 0, x_435); +return x_438; } else { -obj* x_438; obj* x_441; obj* x_443; obj* x_445; obj* x_446; obj* x_447; obj* x_448; obj* x_449; -x_438 = lean::cnstr_get(x_425, 0); -lean::inc(x_438); -lean::dec(x_425); -x_441 = lean::cnstr_get(x_438, 0); -x_443 = lean::cnstr_get(x_438, 1); -if (lean::is_exclusive(x_438)) { - x_445 = x_438; +obj* x_439; obj* x_442; obj* x_444; obj* x_446; obj* x_447; obj* x_448; obj* x_449; obj* x_450; +x_439 = lean::cnstr_get(x_426, 0); +lean::inc(x_439); +lean::dec(x_426); +x_442 = lean::cnstr_get(x_439, 0); +x_444 = lean::cnstr_get(x_439, 1); +if (lean::is_exclusive(x_439)) { + x_446 = x_439; } else { - lean::inc(x_441); - lean::inc(x_443); - lean::dec(x_438); - x_445 = lean::box(0); + lean::inc(x_442); + lean::inc(x_444); + lean::dec(x_439); + x_446 = lean::box(0); } -x_446 = lean::box(0); -if (lean::is_scalar(x_332)) { - x_447 = lean::alloc_cnstr(1, 2, 0); +x_447 = lean::box(0); +if (lean::is_scalar(x_333)) { + x_448 = lean::alloc_cnstr(1, 2, 0); } else { - x_447 = x_332; + x_448 = x_333; } -lean::cnstr_set(x_447, 0, x_441); -lean::cnstr_set(x_447, 1, x_446); -x_448 = l_list_append___rarg(x_413, x_447); -if (lean::is_scalar(x_445)) { - x_449 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_448, 0, x_442); +lean::cnstr_set(x_448, 1, x_447); +x_449 = l_list_append___rarg(x_414, x_448); +if (lean::is_scalar(x_446)) { + x_450 = lean::alloc_cnstr(0, 2, 0); } else { - x_449 = x_445; + x_450 = x_446; } -lean::cnstr_set(x_449, 0, x_448); -lean::cnstr_set(x_449, 1, x_443); -x_386 = x_449; -goto lbl_387; +lean::cnstr_set(x_450, 0, x_449); +lean::cnstr_set(x_450, 1, x_444); +x_387 = x_450; +goto lbl_388; } } } -lbl_387: +lbl_388: { -obj* x_450; obj* x_452; obj* x_454; obj* x_455; obj* x_456; obj* x_457; obj* x_458; obj* x_459; obj* x_460; uint8 x_461; obj* x_462; obj* x_463; obj* x_466; obj* x_467; obj* x_468; obj* x_469; obj* x_470; obj* x_471; obj* x_473; obj* x_474; obj* x_475; obj* x_476; obj* x_477; obj* x_478; -x_450 = lean::cnstr_get(x_386, 0); -x_452 = lean::cnstr_get(x_386, 1); -if (lean::is_exclusive(x_386)) { - x_454 = x_386; +obj* x_451; obj* x_453; obj* x_455; obj* x_456; obj* x_457; obj* x_459; obj* x_460; obj* x_461; obj* x_462; uint8 x_463; obj* x_464; obj* x_465; obj* x_468; obj* x_469; obj* x_470; obj* x_471; obj* x_472; obj* x_473; obj* x_475; obj* x_476; obj* x_477; obj* x_478; obj* x_479; obj* x_480; +x_451 = lean::cnstr_get(x_387, 0); +x_453 = lean::cnstr_get(x_387, 1); +if (lean::is_exclusive(x_387)) { + x_455 = x_387; } else { - lean::inc(x_450); - lean::inc(x_452); - lean::dec(x_386); - x_454 = lean::box(0); + lean::inc(x_451); + lean::inc(x_453); + lean::dec(x_387); + x_455 = lean::box(0); } -x_455 = lean::box(0); -x_456 = lean::mk_nat_obj(0u); -x_457 = l_list_length__aux___main___rarg(x_381, x_456); -x_458 = l_lean_elaborator_to__pexpr___main___closed__25; -x_459 = l_lean_kvmap_set__nat(x_455, x_458, x_457); -x_460 = l_lean_elaborator_to__pexpr___main___closed__26; -x_461 = lean::unbox(x_360); -x_462 = l_lean_kvmap_set__bool(x_459, x_460, x_461); -x_463 = lean::cnstr_get(x_205, 1); -lean::inc(x_463); +x_456 = lean::box(0); +x_457 = lean::mk_nat_obj(0u); +lean::inc(x_382); +x_459 = l_list_length__aux___main___rarg(x_382, x_457); +x_460 = l_lean_elaborator_to__pexpr___main___closed__25; +x_461 = l_lean_kvmap_set__nat(x_456, x_460, x_459); +x_462 = l_lean_elaborator_to__pexpr___main___closed__26; +x_463 = lean::unbox(x_361); +x_464 = l_lean_kvmap_set__bool(x_461, x_462, x_463); +x_465 = lean::cnstr_get(x_205, 1); +lean::inc(x_465); lean::dec(x_205); -x_466 = l_lean_elaborator_to__pexpr___main___closed__27; -x_467 = l_option_map___rarg(x_466, x_463); -x_468 = l_lean_elaborator_to__pexpr___main___closed__28; -x_469 = l_option_map___rarg(x_468, x_467); -x_470 = lean::box(0); -x_471 = l_option_get__or__else___main___rarg(x_469, x_470); -lean::dec(x_469); -x_473 = l_lean_elaborator_to__pexpr___main___closed__29; -x_474 = l_lean_kvmap_set__name(x_462, x_473, x_471); -x_475 = l_list_append___rarg(x_381, x_450); -x_476 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__12(x_475); -x_477 = lean_expr_mk_mdata(x_474, x_476); -if (lean::is_scalar(x_454)) { - x_478 = lean::alloc_cnstr(0, 2, 0); +x_468 = l_lean_elaborator_to__pexpr___main___closed__27; +x_469 = l_option_map___rarg(x_468, x_465); +x_470 = l_lean_elaborator_to__pexpr___main___closed__28; +x_471 = l_option_map___rarg(x_470, x_469); +x_472 = lean::box(0); +x_473 = l_option_get__or__else___main___rarg(x_471, x_472); +lean::dec(x_471); +x_475 = l_lean_elaborator_to__pexpr___main___closed__29; +x_476 = l_lean_kvmap_set__name(x_464, x_475, x_473); +x_477 = l_list_append___rarg(x_382, x_451); +x_478 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__12(x_477); +x_479 = lean_expr_mk_mdata(x_476, x_478); +if (lean::is_scalar(x_455)) { + x_480 = lean::alloc_cnstr(0, 2, 0); } else { - x_478 = x_454; + x_480 = x_455; } -lean::cnstr_set(x_478, 0, x_477); -lean::cnstr_set(x_478, 1, x_452); -x_14 = x_478; +lean::cnstr_set(x_480, 0, x_479); +lean::cnstr_set(x_480, 1, x_453); +x_14 = x_480; goto lbl_15; } } @@ -10055,533 +10057,535 @@ goto lbl_15; } else { -obj* x_479; obj* x_481; -x_479 = lean::cnstr_get(x_215, 1); +obj* x_481; obj* x_483; +x_481 = lean::cnstr_get(x_215, 1); if (lean::is_exclusive(x_215)) { lean::cnstr_release(x_215, 0); lean::cnstr_set(x_215, 1, lean::box(0)); - x_481 = x_215; + x_483 = x_215; } else { - lean::inc(x_479); + lean::inc(x_481); lean::dec(x_215); - x_481 = lean::box(0); + x_483 = lean::box(0); } -if (lean::obj_tag(x_479) == 0) +if (lean::obj_tag(x_481) == 0) { -obj* x_483; obj* x_487; -lean::dec(x_329); -x_483 = lean::cnstr_get(x_214, 0); -lean::inc(x_483); +obj* x_485; obj* x_489; +lean::dec(x_330); +x_485 = lean::cnstr_get(x_214, 0); +lean::inc(x_485); lean::dec(x_214); lean::inc(x_1); -x_487 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__14(x_0, x_209, x_1, x_2); -if (lean::obj_tag(x_487) == 0) +x_489 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__14(x_0, x_209, x_1, x_2); +if (lean::obj_tag(x_489) == 0) { -obj* x_494; obj* x_496; obj* x_497; +obj* x_496; obj* x_498; obj* x_499; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); lean::dec(x_205); -lean::dec(x_481); lean::dec(x_483); -x_494 = lean::cnstr_get(x_487, 0); -if (lean::is_exclusive(x_487)) { - x_496 = x_487; +lean::dec(x_485); +x_496 = lean::cnstr_get(x_489, 0); +if (lean::is_exclusive(x_489)) { + x_498 = x_489; } else { - lean::inc(x_494); - lean::dec(x_487); - x_496 = lean::box(0); + lean::inc(x_496); + lean::dec(x_489); + x_498 = lean::box(0); } -if (lean::is_scalar(x_496)) { - x_497 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_498)) { + x_499 = lean::alloc_cnstr(0, 1, 0); } else { - x_497 = x_496; + x_499 = x_498; } -lean::cnstr_set(x_497, 0, x_494); -return x_497; +lean::cnstr_set(x_499, 0, x_496); +return x_499; } else { -obj* x_498; obj* x_501; obj* x_503; obj* x_506; obj* x_509; -x_498 = lean::cnstr_get(x_487, 0); -lean::inc(x_498); -lean::dec(x_487); -x_501 = lean::cnstr_get(x_498, 0); -lean::inc(x_501); -x_503 = lean::cnstr_get(x_498, 1); +obj* x_500; obj* x_503; obj* x_505; obj* x_508; obj* x_511; +x_500 = lean::cnstr_get(x_489, 0); +lean::inc(x_500); +lean::dec(x_489); +x_503 = lean::cnstr_get(x_500, 0); lean::inc(x_503); -lean::dec(x_498); +x_505 = lean::cnstr_get(x_500, 1); +lean::inc(x_505); +lean::dec(x_500); lean::inc(x_1); -x_509 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__16(x_0, x_483, x_1, x_503); -if (lean::obj_tag(x_509) == 0) +x_511 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__16(x_0, x_485, x_1, x_505); +if (lean::obj_tag(x_511) == 0) { -obj* x_516; obj* x_518; obj* x_519; +obj* x_518; obj* x_520; obj* x_521; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); lean::dec(x_205); -lean::dec(x_481); -lean::dec(x_501); -x_516 = lean::cnstr_get(x_509, 0); -if (lean::is_exclusive(x_509)) { - x_518 = x_509; +lean::dec(x_483); +lean::dec(x_503); +x_518 = lean::cnstr_get(x_511, 0); +if (lean::is_exclusive(x_511)) { + x_520 = x_511; } else { - lean::inc(x_516); - lean::dec(x_509); - x_518 = lean::box(0); + lean::inc(x_518); + lean::dec(x_511); + x_520 = lean::box(0); } -if (lean::is_scalar(x_518)) { - x_519 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_520)) { + x_521 = lean::alloc_cnstr(0, 1, 0); } else { - x_519 = x_518; + x_521 = x_520; } -lean::cnstr_set(x_519, 0, x_516); -return x_519; +lean::cnstr_set(x_521, 0, x_518); +return x_521; } else { -obj* x_520; obj* x_523; -x_520 = lean::cnstr_get(x_509, 0); -lean::inc(x_520); -lean::dec(x_509); -x_523 = lean::cnstr_get(x_205, 2); -lean::inc(x_523); -if (lean::obj_tag(x_523) == 0) +obj* x_522; obj* x_525; +x_522 = lean::cnstr_get(x_511, 0); +lean::inc(x_522); +lean::dec(x_511); +x_525 = lean::cnstr_get(x_205, 2); +lean::inc(x_525); +if (lean::obj_tag(x_525) == 0) { -obj* x_526; obj* x_528; obj* x_530; obj* x_531; -lean::dec(x_481); -x_526 = lean::cnstr_get(x_520, 0); -x_528 = lean::cnstr_get(x_520, 1); -if (lean::is_exclusive(x_520)) { - x_530 = x_520; +obj* x_528; obj* x_530; obj* x_532; obj* x_533; +lean::dec(x_483); +x_528 = lean::cnstr_get(x_522, 0); +x_530 = lean::cnstr_get(x_522, 1); +if (lean::is_exclusive(x_522)) { + x_532 = x_522; } else { - lean::inc(x_526); lean::inc(x_528); - lean::dec(x_520); - x_530 = lean::box(0); + lean::inc(x_530); + lean::dec(x_522); + x_532 = lean::box(0); } -if (lean::is_scalar(x_530)) { - x_531 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_532)) { + x_533 = lean::alloc_cnstr(0, 2, 0); } else { - x_531 = x_530; + x_533 = x_532; } -lean::cnstr_set(x_531, 0, x_526); -lean::cnstr_set(x_531, 1, x_528); -x_506 = x_531; -goto lbl_507; +lean::cnstr_set(x_533, 0, x_528); +lean::cnstr_set(x_533, 1, x_530); +x_508 = x_533; +goto lbl_509; } else { -obj* x_532; obj* x_534; obj* x_537; obj* x_540; obj* x_544; -x_532 = lean::cnstr_get(x_520, 0); -lean::inc(x_532); -x_534 = lean::cnstr_get(x_520, 1); +obj* x_534; obj* x_536; obj* x_539; obj* x_542; obj* x_546; +x_534 = lean::cnstr_get(x_522, 0); lean::inc(x_534); -lean::dec(x_520); -x_537 = lean::cnstr_get(x_523, 0); -lean::inc(x_537); -lean::dec(x_523); -x_540 = lean::cnstr_get(x_537, 0); -lean::inc(x_540); -lean::dec(x_537); +x_536 = lean::cnstr_get(x_522, 1); +lean::inc(x_536); +lean::dec(x_522); +x_539 = lean::cnstr_get(x_525, 0); +lean::inc(x_539); +lean::dec(x_525); +x_542 = lean::cnstr_get(x_539, 0); +lean::inc(x_542); +lean::dec(x_539); lean::inc(x_1); -x_544 = l_lean_elaborator_to__pexpr___main(x_540, x_1, x_534); -if (lean::obj_tag(x_544) == 0) +x_546 = l_lean_elaborator_to__pexpr___main(x_542, x_1, x_536); +if (lean::obj_tag(x_546) == 0) { -obj* x_552; obj* x_554; obj* x_555; +obj* x_554; obj* x_556; obj* x_557; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); lean::dec(x_205); -lean::dec(x_532); -lean::dec(x_481); -lean::dec(x_501); -x_552 = lean::cnstr_get(x_544, 0); -if (lean::is_exclusive(x_544)) { - x_554 = x_544; +lean::dec(x_534); +lean::dec(x_483); +lean::dec(x_503); +x_554 = lean::cnstr_get(x_546, 0); +if (lean::is_exclusive(x_546)) { + x_556 = x_546; } else { - lean::inc(x_552); - lean::dec(x_544); - x_554 = lean::box(0); + lean::inc(x_554); + lean::dec(x_546); + x_556 = lean::box(0); } -if (lean::is_scalar(x_554)) { - x_555 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_556)) { + x_557 = lean::alloc_cnstr(0, 1, 0); } else { - x_555 = x_554; + x_557 = x_556; } -lean::cnstr_set(x_555, 0, x_552); -return x_555; +lean::cnstr_set(x_557, 0, x_554); +return x_557; } else { -obj* x_556; obj* x_559; obj* x_561; obj* x_563; obj* x_564; obj* x_565; obj* x_566; obj* x_567; -x_556 = lean::cnstr_get(x_544, 0); -lean::inc(x_556); -lean::dec(x_544); -x_559 = lean::cnstr_get(x_556, 0); -x_561 = lean::cnstr_get(x_556, 1); -if (lean::is_exclusive(x_556)) { - x_563 = x_556; +obj* x_558; obj* x_561; obj* x_563; obj* x_565; obj* x_566; obj* x_567; obj* x_568; obj* x_569; +x_558 = lean::cnstr_get(x_546, 0); +lean::inc(x_558); +lean::dec(x_546); +x_561 = lean::cnstr_get(x_558, 0); +x_563 = lean::cnstr_get(x_558, 1); +if (lean::is_exclusive(x_558)) { + x_565 = x_558; } else { - lean::inc(x_559); lean::inc(x_561); - lean::dec(x_556); - x_563 = lean::box(0); + lean::inc(x_563); + lean::dec(x_558); + x_565 = lean::box(0); } -x_564 = lean::box(0); -if (lean::is_scalar(x_481)) { - x_565 = lean::alloc_cnstr(1, 2, 0); +x_566 = lean::box(0); +if (lean::is_scalar(x_483)) { + x_567 = lean::alloc_cnstr(1, 2, 0); } else { - x_565 = x_481; + x_567 = x_483; } -lean::cnstr_set(x_565, 0, x_559); -lean::cnstr_set(x_565, 1, x_564); -x_566 = l_list_append___rarg(x_532, x_565); -if (lean::is_scalar(x_563)) { - x_567 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_567, 0, x_561); +lean::cnstr_set(x_567, 1, x_566); +x_568 = l_list_append___rarg(x_534, x_567); +if (lean::is_scalar(x_565)) { + x_569 = lean::alloc_cnstr(0, 2, 0); } else { - x_567 = x_563; + x_569 = x_565; } -lean::cnstr_set(x_567, 0, x_566); -lean::cnstr_set(x_567, 1, x_561); -x_506 = x_567; -goto lbl_507; +lean::cnstr_set(x_569, 0, x_568); +lean::cnstr_set(x_569, 1, x_563); +x_508 = x_569; +goto lbl_509; } } } -lbl_507: +lbl_509: { -obj* x_568; obj* x_570; obj* x_572; obj* x_573; obj* x_574; obj* x_575; obj* x_576; obj* x_577; obj* x_578; uint8 x_579; obj* x_580; obj* x_581; obj* x_584; obj* x_585; obj* x_586; obj* x_587; obj* x_588; obj* x_589; obj* x_591; obj* x_592; obj* x_593; obj* x_594; obj* x_595; obj* x_596; -x_568 = lean::cnstr_get(x_506, 0); -x_570 = lean::cnstr_get(x_506, 1); -if (lean::is_exclusive(x_506)) { - x_572 = x_506; +obj* x_570; obj* x_572; obj* x_574; obj* x_575; obj* x_576; obj* x_578; obj* x_579; obj* x_580; obj* x_581; uint8 x_582; obj* x_583; obj* x_584; obj* x_587; obj* x_588; obj* x_589; obj* x_590; obj* x_591; obj* x_592; obj* x_594; obj* x_595; obj* x_596; obj* x_597; obj* x_598; obj* x_599; +x_570 = lean::cnstr_get(x_508, 0); +x_572 = lean::cnstr_get(x_508, 1); +if (lean::is_exclusive(x_508)) { + x_574 = x_508; } else { - lean::inc(x_568); lean::inc(x_570); - lean::dec(x_506); - x_572 = lean::box(0); + lean::inc(x_572); + lean::dec(x_508); + x_574 = lean::box(0); } -x_573 = lean::box(0); -x_574 = lean::mk_nat_obj(0u); -x_575 = l_list_length__aux___main___rarg(x_501, x_574); -x_576 = l_lean_elaborator_to__pexpr___main___closed__25; -x_577 = l_lean_kvmap_set__nat(x_573, x_576, x_575); -x_578 = l_lean_elaborator_to__pexpr___main___closed__26; -x_579 = 1; -x_580 = l_lean_kvmap_set__bool(x_577, x_578, x_579); -x_581 = lean::cnstr_get(x_205, 1); -lean::inc(x_581); +x_575 = lean::box(0); +x_576 = lean::mk_nat_obj(0u); +lean::inc(x_503); +x_578 = l_list_length__aux___main___rarg(x_503, x_576); +x_579 = l_lean_elaborator_to__pexpr___main___closed__25; +x_580 = l_lean_kvmap_set__nat(x_575, x_579, x_578); +x_581 = l_lean_elaborator_to__pexpr___main___closed__26; +x_582 = 1; +x_583 = l_lean_kvmap_set__bool(x_580, x_581, x_582); +x_584 = lean::cnstr_get(x_205, 1); +lean::inc(x_584); lean::dec(x_205); -x_584 = l_lean_elaborator_to__pexpr___main___closed__27; -x_585 = l_option_map___rarg(x_584, x_581); -x_586 = l_lean_elaborator_to__pexpr___main___closed__28; -x_587 = l_option_map___rarg(x_586, x_585); -x_588 = lean::box(0); -x_589 = l_option_get__or__else___main___rarg(x_587, x_588); -lean::dec(x_587); -x_591 = l_lean_elaborator_to__pexpr___main___closed__29; -x_592 = l_lean_kvmap_set__name(x_580, x_591, x_589); -x_593 = l_list_append___rarg(x_501, x_568); -x_594 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__15(x_593); -x_595 = lean_expr_mk_mdata(x_592, x_594); -if (lean::is_scalar(x_572)) { - x_596 = lean::alloc_cnstr(0, 2, 0); +x_587 = l_lean_elaborator_to__pexpr___main___closed__27; +x_588 = l_option_map___rarg(x_587, x_584); +x_589 = l_lean_elaborator_to__pexpr___main___closed__28; +x_590 = l_option_map___rarg(x_589, x_588); +x_591 = lean::box(0); +x_592 = l_option_get__or__else___main___rarg(x_590, x_591); +lean::dec(x_590); +x_594 = l_lean_elaborator_to__pexpr___main___closed__29; +x_595 = l_lean_kvmap_set__name(x_583, x_594, x_592); +x_596 = l_list_append___rarg(x_503, x_570); +x_597 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__15(x_596); +x_598 = lean_expr_mk_mdata(x_595, x_597); +if (lean::is_scalar(x_574)) { + x_599 = lean::alloc_cnstr(0, 2, 0); } else { - x_596 = x_572; + x_599 = x_574; } -lean::cnstr_set(x_596, 0, x_595); -lean::cnstr_set(x_596, 1, x_570); -x_14 = x_596; +lean::cnstr_set(x_599, 0, x_598); +lean::cnstr_set(x_599, 1, x_572); +x_14 = x_599; goto lbl_15; } } } else { -obj* x_598; obj* x_599; obj* x_602; obj* x_603; obj* x_606; obj* x_607; obj* x_609; -lean::dec(x_481); -if (lean::is_exclusive(x_479)) { - lean::cnstr_release(x_479, 0); - lean::cnstr_release(x_479, 1); - x_598 = x_479; +obj* x_601; obj* x_602; obj* x_605; obj* x_606; obj* x_609; obj* x_610; obj* x_612; +lean::dec(x_483); +if (lean::is_exclusive(x_481)) { + lean::cnstr_release(x_481, 0); + lean::cnstr_release(x_481, 1); + x_601 = x_481; } else { - lean::dec(x_479); - x_598 = lean::box(0); + lean::dec(x_481); + x_601 = lean::box(0); } -x_599 = lean::cnstr_get(x_214, 0); -lean::inc(x_599); +x_602 = lean::cnstr_get(x_214, 0); +lean::inc(x_602); lean::dec(x_214); -x_602 = l_lean_parser_term_struct__inst__item_has__view; -x_603 = lean::cnstr_get(x_602, 1); -lean::inc(x_603); -lean::dec(x_602); -x_606 = lean::apply_1(x_603, x_329); -x_607 = l_lean_elaborator_to__pexpr___main___closed__30; +x_605 = l_lean_parser_term_struct__inst__item_has__view; +x_606 = lean::cnstr_get(x_605, 1); +lean::inc(x_606); +lean::dec(x_605); +x_609 = lean::apply_1(x_606, x_330); +x_610 = l_lean_elaborator_to__pexpr___main___closed__30; lean::inc(x_1); -x_609 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_606, x_607, x_1, x_2); +x_612 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_609, x_610, x_1, x_2); lean::dec(x_2); -lean::dec(x_606); -if (lean::obj_tag(x_609) == 0) +lean::dec(x_609); +if (lean::obj_tag(x_612) == 0) { -obj* x_619; obj* x_621; obj* x_622; -lean::dec(x_598); +obj* x_622; obj* x_624; obj* x_625; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_599); +lean::dec(x_601); +lean::dec(x_602); lean::dec(x_209); lean::dec(x_205); -x_619 = lean::cnstr_get(x_609, 0); -if (lean::is_exclusive(x_609)) { - x_621 = x_609; +x_622 = lean::cnstr_get(x_612, 0); +if (lean::is_exclusive(x_612)) { + x_624 = x_612; } else { - lean::inc(x_619); - lean::dec(x_609); - x_621 = lean::box(0); + lean::inc(x_622); + lean::dec(x_612); + x_624 = lean::box(0); } -if (lean::is_scalar(x_621)) { - x_622 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_624)) { + x_625 = lean::alloc_cnstr(0, 1, 0); } else { - x_622 = x_621; + x_625 = x_624; } -lean::cnstr_set(x_622, 0, x_619); -return x_622; +lean::cnstr_set(x_625, 0, x_622); +return x_625; } else { -obj* x_623; obj* x_626; obj* x_628; obj* x_632; -x_623 = lean::cnstr_get(x_609, 0); -lean::inc(x_623); -lean::dec(x_609); -x_626 = lean::cnstr_get(x_623, 0); +obj* x_626; obj* x_629; obj* x_631; obj* x_635; +x_626 = lean::cnstr_get(x_612, 0); lean::inc(x_626); -x_628 = lean::cnstr_get(x_623, 1); -lean::inc(x_628); -lean::dec(x_623); +lean::dec(x_612); +x_629 = lean::cnstr_get(x_626, 0); +lean::inc(x_629); +x_631 = lean::cnstr_get(x_626, 1); +lean::inc(x_631); +lean::dec(x_626); lean::inc(x_1); -x_632 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__17(x_0, x_209, x_1, x_628); -if (lean::obj_tag(x_632) == 0) +x_635 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__17(x_0, x_209, x_1, x_631); +if (lean::obj_tag(x_635) == 0) { -obj* x_640; obj* x_642; obj* x_643; -lean::dec(x_598); +obj* x_643; obj* x_645; obj* x_646; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_599); -lean::dec(x_626); +lean::dec(x_601); +lean::dec(x_602); +lean::dec(x_629); lean::dec(x_205); -x_640 = lean::cnstr_get(x_632, 0); -if (lean::is_exclusive(x_632)) { - x_642 = x_632; +x_643 = lean::cnstr_get(x_635, 0); +if (lean::is_exclusive(x_635)) { + x_645 = x_635; } else { - lean::inc(x_640); - lean::dec(x_632); - x_642 = lean::box(0); + lean::inc(x_643); + lean::dec(x_635); + x_645 = lean::box(0); } -if (lean::is_scalar(x_642)) { - x_643 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_645)) { + x_646 = lean::alloc_cnstr(0, 1, 0); } else { - x_643 = x_642; + x_646 = x_645; } -lean::cnstr_set(x_643, 0, x_640); -return x_643; +lean::cnstr_set(x_646, 0, x_643); +return x_646; } else { -obj* x_644; obj* x_647; obj* x_649; obj* x_652; obj* x_655; -x_644 = lean::cnstr_get(x_632, 0); -lean::inc(x_644); -lean::dec(x_632); -x_647 = lean::cnstr_get(x_644, 0); +obj* x_647; obj* x_650; obj* x_652; obj* x_655; obj* x_658; +x_647 = lean::cnstr_get(x_635, 0); lean::inc(x_647); -x_649 = lean::cnstr_get(x_644, 1); -lean::inc(x_649); -lean::dec(x_644); -lean::inc(x_1); -x_655 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__19(x_0, x_599, x_1, x_649); -if (lean::obj_tag(x_655) == 0) -{ -obj* x_663; obj* x_665; obj* x_666; +lean::dec(x_635); +x_650 = lean::cnstr_get(x_647, 0); +lean::inc(x_650); +x_652 = lean::cnstr_get(x_647, 1); +lean::inc(x_652); lean::dec(x_647); -lean::dec(x_598); +lean::inc(x_1); +x_658 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__19(x_0, x_602, x_1, x_652); +if (lean::obj_tag(x_658) == 0) +{ +obj* x_666; obj* x_668; obj* x_669; +lean::dec(x_650); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_626); +lean::dec(x_601); +lean::dec(x_629); lean::dec(x_205); -x_663 = lean::cnstr_get(x_655, 0); -if (lean::is_exclusive(x_655)) { - x_665 = x_655; +x_666 = lean::cnstr_get(x_658, 0); +if (lean::is_exclusive(x_658)) { + x_668 = x_658; } else { - lean::inc(x_663); - lean::dec(x_655); - x_665 = lean::box(0); + lean::inc(x_666); + lean::dec(x_658); + x_668 = lean::box(0); } -if (lean::is_scalar(x_665)) { - x_666 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_668)) { + x_669 = lean::alloc_cnstr(0, 1, 0); } else { - x_666 = x_665; + x_669 = x_668; } -lean::cnstr_set(x_666, 0, x_663); -return x_666; +lean::cnstr_set(x_669, 0, x_666); +return x_669; } else { -obj* x_667; obj* x_670; -x_667 = lean::cnstr_get(x_655, 0); -lean::inc(x_667); -lean::dec(x_655); -x_670 = lean::cnstr_get(x_205, 2); +obj* x_670; obj* x_673; +x_670 = lean::cnstr_get(x_658, 0); lean::inc(x_670); -if (lean::obj_tag(x_670) == 0) +lean::dec(x_658); +x_673 = lean::cnstr_get(x_205, 2); +lean::inc(x_673); +if (lean::obj_tag(x_673) == 0) { -obj* x_673; obj* x_675; obj* x_677; obj* x_678; -lean::dec(x_598); -x_673 = lean::cnstr_get(x_667, 0); -x_675 = lean::cnstr_get(x_667, 1); -if (lean::is_exclusive(x_667)) { - x_677 = x_667; +obj* x_676; obj* x_678; obj* x_680; obj* x_681; +lean::dec(x_601); +x_676 = lean::cnstr_get(x_670, 0); +x_678 = lean::cnstr_get(x_670, 1); +if (lean::is_exclusive(x_670)) { + x_680 = x_670; } else { - lean::inc(x_673); - lean::inc(x_675); - lean::dec(x_667); - x_677 = lean::box(0); + lean::inc(x_676); + lean::inc(x_678); + lean::dec(x_670); + x_680 = lean::box(0); } -if (lean::is_scalar(x_677)) { - x_678 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_680)) { + x_681 = lean::alloc_cnstr(0, 2, 0); } else { - x_678 = x_677; + x_681 = x_680; } -lean::cnstr_set(x_678, 0, x_673); -lean::cnstr_set(x_678, 1, x_675); -x_652 = x_678; -goto lbl_653; +lean::cnstr_set(x_681, 0, x_676); +lean::cnstr_set(x_681, 1, x_678); +x_655 = x_681; +goto lbl_656; } else { -obj* x_679; obj* x_681; obj* x_684; obj* x_687; obj* x_691; -x_679 = lean::cnstr_get(x_667, 0); -lean::inc(x_679); -x_681 = lean::cnstr_get(x_667, 1); -lean::inc(x_681); -lean::dec(x_667); -x_684 = lean::cnstr_get(x_670, 0); +obj* x_682; obj* x_684; obj* x_687; obj* x_690; obj* x_694; +x_682 = lean::cnstr_get(x_670, 0); +lean::inc(x_682); +x_684 = lean::cnstr_get(x_670, 1); lean::inc(x_684); lean::dec(x_670); -x_687 = lean::cnstr_get(x_684, 0); +x_687 = lean::cnstr_get(x_673, 0); lean::inc(x_687); -lean::dec(x_684); +lean::dec(x_673); +x_690 = lean::cnstr_get(x_687, 0); +lean::inc(x_690); +lean::dec(x_687); lean::inc(x_1); -x_691 = l_lean_elaborator_to__pexpr___main(x_687, x_1, x_681); -if (lean::obj_tag(x_691) == 0) +x_694 = l_lean_elaborator_to__pexpr___main(x_690, x_1, x_684); +if (lean::obj_tag(x_694) == 0) { -obj* x_700; obj* x_702; obj* x_703; -lean::dec(x_647); -lean::dec(x_598); +obj* x_703; obj* x_705; obj* x_706; +lean::dec(x_650); lean::dec(x_7); lean::dec(x_1); -lean::dec(x_679); +lean::dec(x_682); lean::dec(x_0); -lean::dec(x_626); +lean::dec(x_601); +lean::dec(x_629); lean::dec(x_205); -x_700 = lean::cnstr_get(x_691, 0); -if (lean::is_exclusive(x_691)) { - x_702 = x_691; +x_703 = lean::cnstr_get(x_694, 0); +if (lean::is_exclusive(x_694)) { + x_705 = x_694; } else { - lean::inc(x_700); - lean::dec(x_691); - x_702 = lean::box(0); + lean::inc(x_703); + lean::dec(x_694); + x_705 = lean::box(0); } -if (lean::is_scalar(x_702)) { - x_703 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_705)) { + x_706 = lean::alloc_cnstr(0, 1, 0); } else { - x_703 = x_702; + x_706 = x_705; } -lean::cnstr_set(x_703, 0, x_700); -return x_703; +lean::cnstr_set(x_706, 0, x_703); +return x_706; } else { -obj* x_704; obj* x_707; obj* x_709; obj* x_711; obj* x_712; obj* x_713; obj* x_714; obj* x_715; -x_704 = lean::cnstr_get(x_691, 0); -lean::inc(x_704); -lean::dec(x_691); -x_707 = lean::cnstr_get(x_704, 0); -x_709 = lean::cnstr_get(x_704, 1); -if (lean::is_exclusive(x_704)) { - x_711 = x_704; +obj* x_707; obj* x_710; obj* x_712; obj* x_714; obj* x_715; obj* x_716; obj* x_717; obj* x_718; +x_707 = lean::cnstr_get(x_694, 0); +lean::inc(x_707); +lean::dec(x_694); +x_710 = lean::cnstr_get(x_707, 0); +x_712 = lean::cnstr_get(x_707, 1); +if (lean::is_exclusive(x_707)) { + x_714 = x_707; } else { - lean::inc(x_707); - lean::inc(x_709); - lean::dec(x_704); - x_711 = lean::box(0); + lean::inc(x_710); + lean::inc(x_712); + lean::dec(x_707); + x_714 = lean::box(0); } -x_712 = lean::box(0); -if (lean::is_scalar(x_598)) { - x_713 = lean::alloc_cnstr(1, 2, 0); +x_715 = lean::box(0); +if (lean::is_scalar(x_601)) { + x_716 = lean::alloc_cnstr(1, 2, 0); } else { - x_713 = x_598; + x_716 = x_601; } -lean::cnstr_set(x_713, 0, x_707); -lean::cnstr_set(x_713, 1, x_712); -x_714 = l_list_append___rarg(x_679, x_713); -if (lean::is_scalar(x_711)) { - x_715 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_716, 0, x_710); +lean::cnstr_set(x_716, 1, x_715); +x_717 = l_list_append___rarg(x_682, x_716); +if (lean::is_scalar(x_714)) { + x_718 = lean::alloc_cnstr(0, 2, 0); } else { - x_715 = x_711; + x_718 = x_714; } -lean::cnstr_set(x_715, 0, x_714); -lean::cnstr_set(x_715, 1, x_709); -x_652 = x_715; -goto lbl_653; +lean::cnstr_set(x_718, 0, x_717); +lean::cnstr_set(x_718, 1, x_712); +x_655 = x_718; +goto lbl_656; } } } -lbl_653: +lbl_656: { -obj* x_716; obj* x_718; obj* x_720; obj* x_721; obj* x_722; obj* x_723; obj* x_724; obj* x_725; obj* x_726; uint8 x_727; obj* x_728; obj* x_729; obj* x_732; obj* x_733; obj* x_734; obj* x_735; obj* x_736; obj* x_737; obj* x_739; obj* x_740; obj* x_741; obj* x_742; obj* x_743; obj* x_744; -x_716 = lean::cnstr_get(x_652, 0); -x_718 = lean::cnstr_get(x_652, 1); -if (lean::is_exclusive(x_652)) { - x_720 = x_652; +obj* x_719; obj* x_721; obj* x_723; obj* x_724; obj* x_725; obj* x_727; obj* x_728; obj* x_729; obj* x_730; uint8 x_731; obj* x_732; obj* x_733; obj* x_736; obj* x_737; obj* x_738; obj* x_739; obj* x_740; obj* x_741; obj* x_743; obj* x_744; obj* x_745; obj* x_746; obj* x_747; obj* x_748; +x_719 = lean::cnstr_get(x_655, 0); +x_721 = lean::cnstr_get(x_655, 1); +if (lean::is_exclusive(x_655)) { + x_723 = x_655; } else { - lean::inc(x_716); - lean::inc(x_718); - lean::dec(x_652); - x_720 = lean::box(0); + lean::inc(x_719); + lean::inc(x_721); + lean::dec(x_655); + x_723 = lean::box(0); } -x_721 = lean::box(0); -x_722 = lean::mk_nat_obj(0u); -x_723 = l_list_length__aux___main___rarg(x_647, x_722); -x_724 = l_lean_elaborator_to__pexpr___main___closed__25; -x_725 = l_lean_kvmap_set__nat(x_721, x_724, x_723); -x_726 = l_lean_elaborator_to__pexpr___main___closed__26; -x_727 = lean::unbox(x_626); -x_728 = l_lean_kvmap_set__bool(x_725, x_726, x_727); -x_729 = lean::cnstr_get(x_205, 1); -lean::inc(x_729); +x_724 = lean::box(0); +x_725 = lean::mk_nat_obj(0u); +lean::inc(x_650); +x_727 = l_list_length__aux___main___rarg(x_650, x_725); +x_728 = l_lean_elaborator_to__pexpr___main___closed__25; +x_729 = l_lean_kvmap_set__nat(x_724, x_728, x_727); +x_730 = l_lean_elaborator_to__pexpr___main___closed__26; +x_731 = lean::unbox(x_629); +x_732 = l_lean_kvmap_set__bool(x_729, x_730, x_731); +x_733 = lean::cnstr_get(x_205, 1); +lean::inc(x_733); lean::dec(x_205); -x_732 = l_lean_elaborator_to__pexpr___main___closed__27; -x_733 = l_option_map___rarg(x_732, x_729); -x_734 = l_lean_elaborator_to__pexpr___main___closed__28; -x_735 = l_option_map___rarg(x_734, x_733); -x_736 = lean::box(0); -x_737 = l_option_get__or__else___main___rarg(x_735, x_736); -lean::dec(x_735); -x_739 = l_lean_elaborator_to__pexpr___main___closed__29; -x_740 = l_lean_kvmap_set__name(x_728, x_739, x_737); -x_741 = l_list_append___rarg(x_647, x_716); -x_742 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__18(x_741); -x_743 = lean_expr_mk_mdata(x_740, x_742); -if (lean::is_scalar(x_720)) { - x_744 = lean::alloc_cnstr(0, 2, 0); +x_736 = l_lean_elaborator_to__pexpr___main___closed__27; +x_737 = l_option_map___rarg(x_736, x_733); +x_738 = l_lean_elaborator_to__pexpr___main___closed__28; +x_739 = l_option_map___rarg(x_738, x_737); +x_740 = lean::box(0); +x_741 = l_option_get__or__else___main___rarg(x_739, x_740); +lean::dec(x_739); +x_743 = l_lean_elaborator_to__pexpr___main___closed__29; +x_744 = l_lean_kvmap_set__name(x_732, x_743, x_741); +x_745 = l_list_append___rarg(x_650, x_719); +x_746 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__18(x_745); +x_747 = lean_expr_mk_mdata(x_744, x_746); +if (lean::is_scalar(x_723)) { + x_748 = lean::alloc_cnstr(0, 2, 0); } else { - x_744 = x_720; + x_748 = x_723; } -lean::cnstr_set(x_744, 0, x_743); -lean::cnstr_set(x_744, 1, x_718); -x_14 = x_744; +lean::cnstr_set(x_748, 0, x_747); +lean::cnstr_set(x_748, 1, x_721); +x_14 = x_748; goto lbl_15; } } @@ -10593,484 +10597,484 @@ goto lbl_15; } else { -obj* x_747; +obj* x_751; lean::inc(x_1); lean::inc(x_9); -x_747 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__20(x_9, x_1, x_2); -if (lean::obj_tag(x_747) == 0) +x_751 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__20(x_9, x_1, x_2); +if (lean::obj_tag(x_751) == 0) { -obj* x_752; obj* x_754; obj* x_755; +obj* x_756; obj* x_758; obj* x_759; lean::dec(x_9); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_752 = lean::cnstr_get(x_747, 0); -if (lean::is_exclusive(x_747)) { - x_754 = x_747; +x_756 = lean::cnstr_get(x_751, 0); +if (lean::is_exclusive(x_751)) { + x_758 = x_751; } else { - lean::inc(x_752); - lean::dec(x_747); - x_754 = lean::box(0); + lean::inc(x_756); + lean::dec(x_751); + x_758 = lean::box(0); } -if (lean::is_scalar(x_754)) { - x_755 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_758)) { + x_759 = lean::alloc_cnstr(0, 1, 0); } else { - x_755 = x_754; + x_759 = x_758; } -lean::cnstr_set(x_755, 0, x_752); -return x_755; +lean::cnstr_set(x_759, 0, x_756); +return x_759; } else { -obj* x_756; obj* x_759; obj* x_761; obj* x_763; obj* x_764; obj* x_765; -x_756 = lean::cnstr_get(x_747, 0); -lean::inc(x_756); -lean::dec(x_747); -x_759 = lean::cnstr_get(x_756, 0); -x_761 = lean::cnstr_get(x_756, 1); -if (lean::is_exclusive(x_756)) { - x_763 = x_756; +obj* x_760; obj* x_763; obj* x_765; obj* x_767; obj* x_768; obj* x_769; +x_760 = lean::cnstr_get(x_751, 0); +lean::inc(x_760); +lean::dec(x_751); +x_763 = lean::cnstr_get(x_760, 0); +x_765 = lean::cnstr_get(x_760, 1); +if (lean::is_exclusive(x_760)) { + x_767 = x_760; } else { - lean::inc(x_759); - lean::inc(x_761); - lean::dec(x_756); - x_763 = lean::box(0); + lean::inc(x_763); + lean::inc(x_765); + lean::dec(x_760); + x_767 = lean::box(0); } -x_764 = l_list_reverse___rarg(x_759); -if (lean::is_scalar(x_763)) { - x_765 = lean::alloc_cnstr(0, 2, 0); +x_768 = l_list_reverse___rarg(x_763); +if (lean::is_scalar(x_767)) { + x_769 = lean::alloc_cnstr(0, 2, 0); } else { - x_765 = x_763; + x_769 = x_767; } -lean::cnstr_set(x_765, 0, x_764); -lean::cnstr_set(x_765, 1, x_761); -x_16 = x_765; +lean::cnstr_set(x_769, 0, x_768); +lean::cnstr_set(x_769, 1, x_765); +x_16 = x_769; goto lbl_17; } } } else { -obj* x_768; obj* x_769; obj* x_773; obj* x_774; obj* x_775; obj* x_776; obj* x_778; obj* x_779; +obj* x_772; obj* x_773; obj* x_777; obj* x_778; obj* x_779; obj* x_780; obj* x_782; obj* x_783; lean::dec(x_9); lean::dec(x_7); -x_768 = l_lean_parser_string__lit_has__view; -x_769 = lean::cnstr_get(x_768, 0); -lean::inc(x_769); -lean::dec(x_768); +x_772 = l_lean_parser_string__lit_has__view; +x_773 = lean::cnstr_get(x_772, 0); +lean::inc(x_773); +lean::dec(x_772); lean::inc(x_0); -x_773 = lean::apply_1(x_769, x_0); -x_774 = l_lean_parser_string__lit_view_value(x_773); -x_775 = l_lean_elaborator_to__pexpr___main___closed__31; -x_776 = l_option_get__or__else___main___rarg(x_774, x_775); -lean::dec(x_774); -x_778 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_778, 0, x_776); -x_779 = lean_expr_mk_lit(x_778); +x_777 = lean::apply_1(x_773, x_0); +x_778 = l_lean_parser_string__lit_view_value(x_777); +x_779 = l_lean_elaborator_to__pexpr___main___closed__31; +x_780 = l_option_get__or__else___main___rarg(x_778, x_779); +lean::dec(x_778); +x_782 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_782, 0, x_780); +x_783 = lean_expr_mk_lit(x_782); if (x_21 == 0) { -obj* x_780; -x_780 = l_lean_parser_syntax_get__pos(x_0); +obj* x_784; +x_784 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_780) == 0) +if (lean::obj_tag(x_784) == 0) { -obj* x_783; obj* x_784; +obj* x_787; obj* x_788; lean::dec(x_1); -x_783 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_783, 0, x_779); -lean::cnstr_set(x_783, 1, x_2); -x_784 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_784, 0, x_783); -return x_784; +x_787 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_787, 0, x_783); +lean::cnstr_set(x_787, 1, x_2); +x_788 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_788, 0, x_787); +return x_788; } else { -obj* x_785; obj* x_788; obj* x_791; obj* x_794; obj* x_795; obj* x_796; obj* x_798; obj* x_799; obj* x_800; obj* x_803; obj* x_804; obj* x_805; obj* x_806; obj* x_807; -x_785 = lean::cnstr_get(x_780, 0); -lean::inc(x_785); -lean::dec(x_780); -x_788 = lean::cnstr_get(x_1, 0); -lean::inc(x_788); +obj* x_789; obj* x_792; obj* x_795; obj* x_798; obj* x_799; obj* x_800; obj* x_802; obj* x_803; obj* x_804; obj* x_807; obj* x_808; obj* x_809; obj* x_810; obj* x_811; +x_789 = lean::cnstr_get(x_784, 0); +lean::inc(x_789); +lean::dec(x_784); +x_792 = lean::cnstr_get(x_1, 0); +lean::inc(x_792); lean::dec(x_1); -x_791 = lean::cnstr_get(x_788, 2); -lean::inc(x_791); -lean::dec(x_788); -x_794 = l_lean_file__map_to__position(x_791, x_785); -x_795 = lean::box(0); -x_796 = lean::cnstr_get(x_794, 1); -lean::inc(x_796); -x_798 = l_lean_elaborator_to__pexpr___main___closed__3; -x_799 = l_lean_kvmap_set__nat(x_795, x_798, x_796); -x_800 = lean::cnstr_get(x_794, 0); +x_795 = lean::cnstr_get(x_792, 2); +lean::inc(x_795); +lean::dec(x_792); +x_798 = l_lean_file__map_to__position(x_795, x_789); +x_799 = lean::box(0); +x_800 = lean::cnstr_get(x_798, 1); lean::inc(x_800); -lean::dec(x_794); -x_803 = l_lean_elaborator_to__pexpr___main___closed__4; -x_804 = l_lean_kvmap_set__nat(x_799, x_803, x_800); -x_805 = lean_expr_mk_mdata(x_804, x_779); -x_806 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_806, 0, x_805); -lean::cnstr_set(x_806, 1, x_2); -x_807 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_807, 0, x_806); -return x_807; -} -} -else -{ -obj* x_810; obj* x_811; -lean::dec(x_1); -lean::dec(x_0); +x_802 = l_lean_elaborator_to__pexpr___main___closed__3; +x_803 = l_lean_kvmap_set__nat(x_799, x_802, x_800); +x_804 = lean::cnstr_get(x_798, 0); +lean::inc(x_804); +lean::dec(x_798); +x_807 = l_lean_elaborator_to__pexpr___main___closed__4; +x_808 = l_lean_kvmap_set__nat(x_803, x_807, x_804); +x_809 = lean_expr_mk_mdata(x_808, x_783); x_810 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_810, 0, x_779); +lean::cnstr_set(x_810, 0, x_809); lean::cnstr_set(x_810, 1, x_2); x_811 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_811, 0, x_810); return x_811; } } +else +{ +obj* x_814; obj* x_815; +lean::dec(x_1); +lean::dec(x_0); +x_814 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_814, 0, x_783); +lean::cnstr_set(x_814, 1, x_2); +x_815 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_815, 0, x_814); +return x_815; +} +} } else { -obj* x_814; obj* x_815; obj* x_819; obj* x_820; obj* x_821; obj* x_822; +obj* x_818; obj* x_819; obj* x_823; obj* x_824; obj* x_825; obj* x_826; lean::dec(x_9); lean::dec(x_7); -x_814 = l_lean_parser_number_has__view; -x_815 = lean::cnstr_get(x_814, 0); -lean::inc(x_815); -lean::dec(x_814); +x_818 = l_lean_parser_number_has__view; +x_819 = lean::cnstr_get(x_818, 0); +lean::inc(x_819); +lean::dec(x_818); lean::inc(x_0); -x_819 = lean::apply_1(x_815, x_0); -x_820 = l_lean_parser_number_view_to__nat___main(x_819); -x_821 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_821, 0, x_820); -x_822 = lean_expr_mk_lit(x_821); +x_823 = lean::apply_1(x_819, x_0); +x_824 = l_lean_parser_number_view_to__nat___main(x_823); +x_825 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_825, 0, x_824); +x_826 = lean_expr_mk_lit(x_825); if (x_21 == 0) { -obj* x_823; -x_823 = l_lean_parser_syntax_get__pos(x_0); +obj* x_827; +x_827 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_823) == 0) +if (lean::obj_tag(x_827) == 0) { -obj* x_826; obj* x_827; +obj* x_830; obj* x_831; lean::dec(x_1); -x_826 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_826, 0, x_822); -lean::cnstr_set(x_826, 1, x_2); -x_827 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_827, 0, x_826); -return x_827; +x_830 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_830, 0, x_826); +lean::cnstr_set(x_830, 1, x_2); +x_831 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_831, 0, x_830); +return x_831; } else { -obj* x_828; obj* x_831; obj* x_834; obj* x_837; obj* x_838; obj* x_839; obj* x_841; obj* x_842; obj* x_843; obj* x_846; obj* x_847; obj* x_848; obj* x_849; obj* x_850; -x_828 = lean::cnstr_get(x_823, 0); -lean::inc(x_828); -lean::dec(x_823); -x_831 = lean::cnstr_get(x_1, 0); -lean::inc(x_831); +obj* x_832; obj* x_835; obj* x_838; obj* x_841; obj* x_842; obj* x_843; obj* x_845; obj* x_846; obj* x_847; obj* x_850; obj* x_851; obj* x_852; obj* x_853; obj* x_854; +x_832 = lean::cnstr_get(x_827, 0); +lean::inc(x_832); +lean::dec(x_827); +x_835 = lean::cnstr_get(x_1, 0); +lean::inc(x_835); lean::dec(x_1); -x_834 = lean::cnstr_get(x_831, 2); -lean::inc(x_834); -lean::dec(x_831); -x_837 = l_lean_file__map_to__position(x_834, x_828); -x_838 = lean::box(0); -x_839 = lean::cnstr_get(x_837, 1); -lean::inc(x_839); -x_841 = l_lean_elaborator_to__pexpr___main___closed__3; -x_842 = l_lean_kvmap_set__nat(x_838, x_841, x_839); -x_843 = lean::cnstr_get(x_837, 0); +x_838 = lean::cnstr_get(x_835, 2); +lean::inc(x_838); +lean::dec(x_835); +x_841 = l_lean_file__map_to__position(x_838, x_832); +x_842 = lean::box(0); +x_843 = lean::cnstr_get(x_841, 1); lean::inc(x_843); -lean::dec(x_837); -x_846 = l_lean_elaborator_to__pexpr___main___closed__4; -x_847 = l_lean_kvmap_set__nat(x_842, x_846, x_843); -x_848 = lean_expr_mk_mdata(x_847, x_822); -x_849 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_849, 0, x_848); -lean::cnstr_set(x_849, 1, x_2); -x_850 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_850, 0, x_849); -return x_850; -} -} -else -{ -obj* x_853; obj* x_854; -lean::dec(x_1); -lean::dec(x_0); +x_845 = l_lean_elaborator_to__pexpr___main___closed__3; +x_846 = l_lean_kvmap_set__nat(x_842, x_845, x_843); +x_847 = lean::cnstr_get(x_841, 0); +lean::inc(x_847); +lean::dec(x_841); +x_850 = l_lean_elaborator_to__pexpr___main___closed__4; +x_851 = l_lean_kvmap_set__nat(x_846, x_850, x_847); +x_852 = lean_expr_mk_mdata(x_851, x_826); x_853 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_853, 0, x_822); +lean::cnstr_set(x_853, 0, x_852); lean::cnstr_set(x_853, 1, x_2); x_854 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_854, 0, x_853); return x_854; } } +else +{ +obj* x_857; obj* x_858; +lean::dec(x_1); +lean::dec(x_0); +x_857 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_857, 0, x_826); +lean::cnstr_set(x_857, 1, x_2); +x_858 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_858, 0, x_857); +return x_858; +} +} } else { -obj* x_856; obj* x_857; obj* x_861; obj* x_862; obj* x_866; +obj* x_860; obj* x_861; obj* x_865; obj* x_866; obj* x_870; lean::dec(x_9); -x_856 = l_lean_parser_term_borrowed_has__view; -x_857 = lean::cnstr_get(x_856, 0); -lean::inc(x_857); -lean::dec(x_856); +x_860 = l_lean_parser_term_borrowed_has__view; +x_861 = lean::cnstr_get(x_860, 0); +lean::inc(x_861); +lean::dec(x_860); lean::inc(x_0); -x_861 = lean::apply_1(x_857, x_0); -x_862 = lean::cnstr_get(x_861, 1); -lean::inc(x_862); -lean::dec(x_861); +x_865 = lean::apply_1(x_861, x_0); +x_866 = lean::cnstr_get(x_865, 1); +lean::inc(x_866); +lean::dec(x_865); lean::inc(x_1); -x_866 = l_lean_elaborator_to__pexpr___main(x_862, x_1, x_2); -if (lean::obj_tag(x_866) == 0) +x_870 = l_lean_elaborator_to__pexpr___main(x_866, x_1, x_2); +if (lean::obj_tag(x_870) == 0) { -obj* x_870; obj* x_872; obj* x_873; +obj* x_874; obj* x_876; obj* x_877; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_870 = lean::cnstr_get(x_866, 0); -if (lean::is_exclusive(x_866)) { - x_872 = x_866; +x_874 = lean::cnstr_get(x_870, 0); +if (lean::is_exclusive(x_870)) { + x_876 = x_870; } else { - lean::inc(x_870); - lean::dec(x_866); - x_872 = lean::box(0); + lean::inc(x_874); + lean::dec(x_870); + x_876 = lean::box(0); } -if (lean::is_scalar(x_872)) { - x_873 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_876)) { + x_877 = lean::alloc_cnstr(0, 1, 0); } else { - x_873 = x_872; + x_877 = x_876; } -lean::cnstr_set(x_873, 0, x_870); -return x_873; +lean::cnstr_set(x_877, 0, x_874); +return x_877; } else { -obj* x_874; obj* x_877; obj* x_879; obj* x_881; obj* x_882; obj* x_883; obj* x_884; -x_874 = lean::cnstr_get(x_866, 0); -lean::inc(x_874); -lean::dec(x_866); -x_877 = lean::cnstr_get(x_874, 0); -x_879 = lean::cnstr_get(x_874, 1); -if (lean::is_exclusive(x_874)) { - x_881 = x_874; +obj* x_878; obj* x_881; obj* x_883; obj* x_885; obj* x_886; obj* x_887; obj* x_888; +x_878 = lean::cnstr_get(x_870, 0); +lean::inc(x_878); +lean::dec(x_870); +x_881 = lean::cnstr_get(x_878, 0); +x_883 = lean::cnstr_get(x_878, 1); +if (lean::is_exclusive(x_878)) { + x_885 = x_878; } else { - lean::inc(x_877); - lean::inc(x_879); - lean::dec(x_874); - x_881 = lean::box(0); + lean::inc(x_881); + lean::inc(x_883); + lean::dec(x_878); + x_885 = lean::box(0); } -x_882 = l_lean_elaborator_to__pexpr___main___closed__32; -x_883 = l_lean_elaborator_expr_mk__annotation(x_882, x_877); -if (lean::is_scalar(x_881)) { - x_884 = lean::alloc_cnstr(0, 2, 0); +x_886 = l_lean_elaborator_to__pexpr___main___closed__32; +x_887 = l_lean_elaborator_expr_mk__annotation(x_886, x_881); +if (lean::is_scalar(x_885)) { + x_888 = lean::alloc_cnstr(0, 2, 0); } else { - x_884 = x_881; + x_888 = x_885; } -lean::cnstr_set(x_884, 0, x_883); -lean::cnstr_set(x_884, 1, x_879); -x_14 = x_884; +lean::cnstr_set(x_888, 0, x_887); +lean::cnstr_set(x_888, 1, x_883); +x_14 = x_888; goto lbl_15; } } } else { -obj* x_886; obj* x_887; obj* x_891; obj* x_892; obj* x_896; +obj* x_890; obj* x_891; obj* x_895; obj* x_896; obj* x_900; lean::dec(x_9); -x_886 = l_lean_parser_term_inaccessible_has__view; -x_887 = lean::cnstr_get(x_886, 0); -lean::inc(x_887); -lean::dec(x_886); +x_890 = l_lean_parser_term_inaccessible_has__view; +x_891 = lean::cnstr_get(x_890, 0); +lean::inc(x_891); +lean::dec(x_890); lean::inc(x_0); -x_891 = lean::apply_1(x_887, x_0); -x_892 = lean::cnstr_get(x_891, 1); -lean::inc(x_892); -lean::dec(x_891); +x_895 = lean::apply_1(x_891, x_0); +x_896 = lean::cnstr_get(x_895, 1); +lean::inc(x_896); +lean::dec(x_895); lean::inc(x_1); -x_896 = l_lean_elaborator_to__pexpr___main(x_892, x_1, x_2); -if (lean::obj_tag(x_896) == 0) +x_900 = l_lean_elaborator_to__pexpr___main(x_896, x_1, x_2); +if (lean::obj_tag(x_900) == 0) { -obj* x_900; obj* x_902; obj* x_903; +obj* x_904; obj* x_906; obj* x_907; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_900 = lean::cnstr_get(x_896, 0); -if (lean::is_exclusive(x_896)) { - x_902 = x_896; +x_904 = lean::cnstr_get(x_900, 0); +if (lean::is_exclusive(x_900)) { + x_906 = x_900; } else { - lean::inc(x_900); - lean::dec(x_896); - x_902 = lean::box(0); + lean::inc(x_904); + lean::dec(x_900); + x_906 = lean::box(0); } -if (lean::is_scalar(x_902)) { - x_903 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_906)) { + x_907 = lean::alloc_cnstr(0, 1, 0); } else { - x_903 = x_902; + x_907 = x_906; } -lean::cnstr_set(x_903, 0, x_900); -return x_903; +lean::cnstr_set(x_907, 0, x_904); +return x_907; } else { -obj* x_904; obj* x_907; obj* x_909; obj* x_911; obj* x_912; obj* x_913; obj* x_914; -x_904 = lean::cnstr_get(x_896, 0); -lean::inc(x_904); -lean::dec(x_896); -x_907 = lean::cnstr_get(x_904, 0); -x_909 = lean::cnstr_get(x_904, 1); -if (lean::is_exclusive(x_904)) { - x_911 = x_904; +obj* x_908; obj* x_911; obj* x_913; obj* x_915; obj* x_916; obj* x_917; obj* x_918; +x_908 = lean::cnstr_get(x_900, 0); +lean::inc(x_908); +lean::dec(x_900); +x_911 = lean::cnstr_get(x_908, 0); +x_913 = lean::cnstr_get(x_908, 1); +if (lean::is_exclusive(x_908)) { + x_915 = x_908; } else { - lean::inc(x_907); - lean::inc(x_909); - lean::dec(x_904); - x_911 = lean::box(0); + lean::inc(x_911); + lean::inc(x_913); + lean::dec(x_908); + x_915 = lean::box(0); } -x_912 = l_lean_elaborator_to__pexpr___main___closed__33; -x_913 = l_lean_elaborator_expr_mk__annotation(x_912, x_907); -if (lean::is_scalar(x_911)) { - x_914 = lean::alloc_cnstr(0, 2, 0); +x_916 = l_lean_elaborator_to__pexpr___main___closed__33; +x_917 = l_lean_elaborator_expr_mk__annotation(x_916, x_911); +if (lean::is_scalar(x_915)) { + x_918 = lean::alloc_cnstr(0, 2, 0); } else { - x_914 = x_911; + x_918 = x_915; } -lean::cnstr_set(x_914, 0, x_913); -lean::cnstr_set(x_914, 1, x_909); -x_14 = x_914; +lean::cnstr_set(x_918, 0, x_917); +lean::cnstr_set(x_918, 1, x_913); +x_14 = x_918; goto lbl_15; } } } else { -obj* x_916; obj* x_917; obj* x_921; obj* x_922; obj* x_924; obj* x_925; obj* x_928; obj* x_931; +obj* x_920; obj* x_921; obj* x_925; obj* x_926; obj* x_928; obj* x_929; obj* x_932; obj* x_935; lean::dec(x_9); -x_916 = l_lean_parser_term_explicit_has__view; -x_917 = lean::cnstr_get(x_916, 0); -lean::inc(x_917); -lean::dec(x_916); +x_920 = l_lean_parser_term_explicit_has__view; +x_921 = lean::cnstr_get(x_920, 0); +lean::inc(x_921); +lean::dec(x_920); lean::inc(x_0); -x_921 = lean::apply_1(x_917, x_0); -x_922 = lean::cnstr_get(x_921, 0); -lean::inc(x_922); -x_924 = l_lean_parser_ident__univs_has__view; -x_925 = lean::cnstr_get(x_924, 1); -lean::inc(x_925); -lean::dec(x_924); -x_928 = lean::cnstr_get(x_921, 1); -lean::inc(x_928); -lean::dec(x_921); -x_931 = lean::apply_1(x_925, x_928); -if (lean::obj_tag(x_922) == 0) +x_925 = lean::apply_1(x_921, x_0); +x_926 = lean::cnstr_get(x_925, 0); +lean::inc(x_926); +x_928 = l_lean_parser_ident__univs_has__view; +x_929 = lean::cnstr_get(x_928, 1); +lean::inc(x_929); +lean::dec(x_928); +x_932 = lean::cnstr_get(x_925, 1); +lean::inc(x_932); +lean::dec(x_925); +x_935 = lean::apply_1(x_929, x_932); +if (lean::obj_tag(x_926) == 0) { -obj* x_934; -lean::dec(x_922); +obj* x_938; +lean::dec(x_926); lean::inc(x_1); -x_934 = l_lean_elaborator_to__pexpr___main(x_931, x_1, x_2); -if (lean::obj_tag(x_934) == 0) +x_938 = l_lean_elaborator_to__pexpr___main(x_935, x_1, x_2); +if (lean::obj_tag(x_938) == 0) { -obj* x_938; obj* x_940; obj* x_941; +obj* x_942; obj* x_944; obj* x_945; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_938 = lean::cnstr_get(x_934, 0); -if (lean::is_exclusive(x_934)) { - x_940 = x_934; +x_942 = lean::cnstr_get(x_938, 0); +if (lean::is_exclusive(x_938)) { + x_944 = x_938; } else { - lean::inc(x_938); - lean::dec(x_934); - x_940 = lean::box(0); + lean::inc(x_942); + lean::dec(x_938); + x_944 = lean::box(0); } -if (lean::is_scalar(x_940)) { - x_941 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_944)) { + x_945 = lean::alloc_cnstr(0, 1, 0); } else { - x_941 = x_940; + x_945 = x_944; } -lean::cnstr_set(x_941, 0, x_938); -return x_941; +lean::cnstr_set(x_945, 0, x_942); +return x_945; } else { -obj* x_942; obj* x_945; obj* x_947; obj* x_949; obj* x_950; obj* x_951; obj* x_952; -x_942 = lean::cnstr_get(x_934, 0); -lean::inc(x_942); -lean::dec(x_934); -x_945 = lean::cnstr_get(x_942, 0); -x_947 = lean::cnstr_get(x_942, 1); -if (lean::is_exclusive(x_942)) { - x_949 = x_942; +obj* x_946; obj* x_949; obj* x_951; obj* x_953; obj* x_954; obj* x_955; obj* x_956; +x_946 = lean::cnstr_get(x_938, 0); +lean::inc(x_946); +lean::dec(x_938); +x_949 = lean::cnstr_get(x_946, 0); +x_951 = lean::cnstr_get(x_946, 1); +if (lean::is_exclusive(x_946)) { + x_953 = x_946; } else { - lean::inc(x_945); - lean::inc(x_947); - lean::dec(x_942); - x_949 = lean::box(0); + lean::inc(x_949); + lean::inc(x_951); + lean::dec(x_946); + x_953 = lean::box(0); } -x_950 = l_list_map___main___at_lean_elaborator_mk__eqns___spec__1___closed__1; -x_951 = l_lean_elaborator_expr_mk__annotation(x_950, x_945); -if (lean::is_scalar(x_949)) { - x_952 = lean::alloc_cnstr(0, 2, 0); +x_954 = l_list_map___main___at_lean_elaborator_mk__eqns___spec__1___closed__1; +x_955 = l_lean_elaborator_expr_mk__annotation(x_954, x_949); +if (lean::is_scalar(x_953)) { + x_956 = lean::alloc_cnstr(0, 2, 0); } else { - x_952 = x_949; + x_956 = x_953; } -lean::cnstr_set(x_952, 0, x_951); -lean::cnstr_set(x_952, 1, x_947); -x_14 = x_952; +lean::cnstr_set(x_956, 0, x_955); +lean::cnstr_set(x_956, 1, x_951); +x_14 = x_956; goto lbl_15; } } else { -obj* x_955; -lean::dec(x_922); +obj* x_959; +lean::dec(x_926); lean::inc(x_1); -x_955 = l_lean_elaborator_to__pexpr___main(x_931, x_1, x_2); -if (lean::obj_tag(x_955) == 0) +x_959 = l_lean_elaborator_to__pexpr___main(x_935, x_1, x_2); +if (lean::obj_tag(x_959) == 0) { -obj* x_959; obj* x_961; obj* x_962; +obj* x_963; obj* x_965; obj* x_966; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_959 = lean::cnstr_get(x_955, 0); -if (lean::is_exclusive(x_955)) { - x_961 = x_955; +x_963 = lean::cnstr_get(x_959, 0); +if (lean::is_exclusive(x_959)) { + x_965 = x_959; } else { - lean::inc(x_959); - lean::dec(x_955); - x_961 = lean::box(0); + lean::inc(x_963); + lean::dec(x_959); + x_965 = lean::box(0); } -if (lean::is_scalar(x_961)) { - x_962 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_965)) { + x_966 = lean::alloc_cnstr(0, 1, 0); } else { - x_962 = x_961; + x_966 = x_965; } -lean::cnstr_set(x_962, 0, x_959); -return x_962; +lean::cnstr_set(x_966, 0, x_963); +return x_966; } else { -obj* x_963; obj* x_966; obj* x_968; obj* x_970; obj* x_971; obj* x_972; obj* x_973; -x_963 = lean::cnstr_get(x_955, 0); -lean::inc(x_963); -lean::dec(x_955); -x_966 = lean::cnstr_get(x_963, 0); -x_968 = lean::cnstr_get(x_963, 1); -if (lean::is_exclusive(x_963)) { - x_970 = x_963; +obj* x_967; obj* x_970; obj* x_972; obj* x_974; obj* x_975; obj* x_976; obj* x_977; +x_967 = lean::cnstr_get(x_959, 0); +lean::inc(x_967); +lean::dec(x_959); +x_970 = lean::cnstr_get(x_967, 0); +x_972 = lean::cnstr_get(x_967, 1); +if (lean::is_exclusive(x_967)) { + x_974 = x_967; } else { - lean::inc(x_966); - lean::inc(x_968); - lean::dec(x_963); - x_970 = lean::box(0); + lean::inc(x_970); + lean::inc(x_972); + lean::dec(x_967); + x_974 = lean::box(0); } -x_971 = l_lean_elaborator_to__pexpr___main___closed__34; -x_972 = l_lean_elaborator_expr_mk__annotation(x_971, x_966); -if (lean::is_scalar(x_970)) { - x_973 = lean::alloc_cnstr(0, 2, 0); +x_975 = l_lean_elaborator_to__pexpr___main___closed__34; +x_976 = l_lean_elaborator_expr_mk__annotation(x_975, x_970); +if (lean::is_scalar(x_974)) { + x_977 = lean::alloc_cnstr(0, 2, 0); } else { - x_973 = x_970; + x_977 = x_974; } -lean::cnstr_set(x_973, 0, x_972); -lean::cnstr_set(x_973, 1, x_968); -x_14 = x_973; +lean::cnstr_set(x_977, 0, x_976); +lean::cnstr_set(x_977, 1, x_972); +x_14 = x_977; goto lbl_15; } } @@ -11078,151 +11082,151 @@ goto lbl_15; } else { -obj* x_975; obj* x_976; obj* x_980; obj* x_981; +obj* x_979; obj* x_980; obj* x_984; obj* x_985; lean::dec(x_9); -x_975 = l_lean_parser_term_projection_has__view; -x_976 = lean::cnstr_get(x_975, 0); -lean::inc(x_976); -lean::dec(x_975); +x_979 = l_lean_parser_term_projection_has__view; +x_980 = lean::cnstr_get(x_979, 0); +lean::inc(x_980); +lean::dec(x_979); lean::inc(x_0); -x_980 = lean::apply_1(x_976, x_0); -x_981 = lean::cnstr_get(x_980, 2); -lean::inc(x_981); -if (lean::obj_tag(x_981) == 0) +x_984 = lean::apply_1(x_980, x_0); +x_985 = lean::cnstr_get(x_984, 2); +lean::inc(x_985); +if (lean::obj_tag(x_985) == 0) { -obj* x_983; obj* x_986; obj* x_990; -x_983 = lean::cnstr_get(x_980, 0); -lean::inc(x_983); -lean::dec(x_980); -x_986 = lean::cnstr_get(x_981, 0); -lean::inc(x_986); -lean::dec(x_981); +obj* x_987; obj* x_990; obj* x_994; +x_987 = lean::cnstr_get(x_984, 0); +lean::inc(x_987); +lean::dec(x_984); +x_990 = lean::cnstr_get(x_985, 0); +lean::inc(x_990); +lean::dec(x_985); lean::inc(x_1); -x_990 = l_lean_elaborator_to__pexpr___main(x_983, x_1, x_2); -if (lean::obj_tag(x_990) == 0) +x_994 = l_lean_elaborator_to__pexpr___main(x_987, x_1, x_2); +if (lean::obj_tag(x_994) == 0) { -obj* x_995; obj* x_997; obj* x_998; +obj* x_999; obj* x_1001; obj* x_1002; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_986); -x_995 = lean::cnstr_get(x_990, 0); -if (lean::is_exclusive(x_990)) { - x_997 = x_990; -} else { - lean::inc(x_995); - lean::dec(x_990); - x_997 = lean::box(0); -} -if (lean::is_scalar(x_997)) { - x_998 = lean::alloc_cnstr(0, 1, 0); -} else { - x_998 = x_997; -} -lean::cnstr_set(x_998, 0, x_995); -return x_998; -} -else -{ -obj* x_999; obj* x_1002; obj* x_1004; obj* x_1006; obj* x_1007; obj* x_1010; obj* x_1011; obj* x_1012; obj* x_1013; obj* x_1014; obj* x_1015; -x_999 = lean::cnstr_get(x_990, 0); -lean::inc(x_999); lean::dec(x_990); -x_1002 = lean::cnstr_get(x_999, 0); -x_1004 = lean::cnstr_get(x_999, 1); -if (lean::is_exclusive(x_999)) { - x_1006 = x_999; +x_999 = lean::cnstr_get(x_994, 0); +if (lean::is_exclusive(x_994)) { + x_1001 = x_994; } else { - lean::inc(x_1002); - lean::inc(x_1004); - lean::dec(x_999); - x_1006 = lean::box(0); + lean::inc(x_999); + lean::dec(x_994); + x_1001 = lean::box(0); } -x_1007 = lean::cnstr_get(x_986, 2); -lean::inc(x_1007); -lean::dec(x_986); -x_1010 = lean::alloc_cnstr(3, 1, 0); -lean::cnstr_set(x_1010, 0, x_1007); -x_1011 = lean::box(0); -x_1012 = l_lean_elaborator_to__pexpr___main___closed__35; -x_1013 = l_lean_kvmap_insert__core___main(x_1011, x_1012, x_1010); -x_1014 = lean_expr_mk_mdata(x_1013, x_1002); -if (lean::is_scalar(x_1006)) { - x_1015 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1001)) { + x_1002 = lean::alloc_cnstr(0, 1, 0); } else { - x_1015 = x_1006; + x_1002 = x_1001; } -lean::cnstr_set(x_1015, 0, x_1014); -lean::cnstr_set(x_1015, 1, x_1004); -x_14 = x_1015; +lean::cnstr_set(x_1002, 0, x_999); +return x_1002; +} +else +{ +obj* x_1003; obj* x_1006; obj* x_1008; obj* x_1010; obj* x_1011; obj* x_1014; obj* x_1015; obj* x_1016; obj* x_1017; obj* x_1018; obj* x_1019; +x_1003 = lean::cnstr_get(x_994, 0); +lean::inc(x_1003); +lean::dec(x_994); +x_1006 = lean::cnstr_get(x_1003, 0); +x_1008 = lean::cnstr_get(x_1003, 1); +if (lean::is_exclusive(x_1003)) { + x_1010 = x_1003; +} else { + lean::inc(x_1006); + lean::inc(x_1008); + lean::dec(x_1003); + x_1010 = lean::box(0); +} +x_1011 = lean::cnstr_get(x_990, 2); +lean::inc(x_1011); +lean::dec(x_990); +x_1014 = lean::alloc_cnstr(3, 1, 0); +lean::cnstr_set(x_1014, 0, x_1011); +x_1015 = lean::box(0); +x_1016 = l_lean_elaborator_to__pexpr___main___closed__35; +x_1017 = l_lean_kvmap_insert__core___main(x_1015, x_1016, x_1014); +x_1018 = lean_expr_mk_mdata(x_1017, x_1006); +if (lean::is_scalar(x_1010)) { + x_1019 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1019 = x_1010; +} +lean::cnstr_set(x_1019, 0, x_1018); +lean::cnstr_set(x_1019, 1, x_1008); +x_14 = x_1019; goto lbl_15; } } else { -obj* x_1016; obj* x_1019; obj* x_1023; -x_1016 = lean::cnstr_get(x_980, 0); -lean::inc(x_1016); -lean::dec(x_980); -x_1019 = lean::cnstr_get(x_981, 0); -lean::inc(x_1019); -lean::dec(x_981); +obj* x_1020; obj* x_1023; obj* x_1027; +x_1020 = lean::cnstr_get(x_984, 0); +lean::inc(x_1020); +lean::dec(x_984); +x_1023 = lean::cnstr_get(x_985, 0); +lean::inc(x_1023); +lean::dec(x_985); lean::inc(x_1); -x_1023 = l_lean_elaborator_to__pexpr___main(x_1016, x_1, x_2); -if (lean::obj_tag(x_1023) == 0) +x_1027 = l_lean_elaborator_to__pexpr___main(x_1020, x_1, x_2); +if (lean::obj_tag(x_1027) == 0) { -obj* x_1028; obj* x_1030; obj* x_1031; -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_1019); -x_1028 = lean::cnstr_get(x_1023, 0); -if (lean::is_exclusive(x_1023)) { - x_1030 = x_1023; -} else { - lean::inc(x_1028); - lean::dec(x_1023); - x_1030 = lean::box(0); -} -if (lean::is_scalar(x_1030)) { - x_1031 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1031 = x_1030; -} -lean::cnstr_set(x_1031, 0, x_1028); -return x_1031; -} -else -{ -obj* x_1032; obj* x_1035; obj* x_1037; obj* x_1039; obj* x_1040; obj* x_1041; obj* x_1042; obj* x_1043; obj* x_1044; obj* x_1045; obj* x_1046; -x_1032 = lean::cnstr_get(x_1023, 0); -lean::inc(x_1032); +obj* x_1032; obj* x_1034; obj* x_1035; lean::dec(x_1023); -x_1035 = lean::cnstr_get(x_1032, 0); -x_1037 = lean::cnstr_get(x_1032, 1); -if (lean::is_exclusive(x_1032)) { - x_1039 = x_1032; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1032 = lean::cnstr_get(x_1027, 0); +if (lean::is_exclusive(x_1027)) { + x_1034 = x_1027; } else { - lean::inc(x_1035); - lean::inc(x_1037); - lean::dec(x_1032); - x_1039 = lean::box(0); + lean::inc(x_1032); + lean::dec(x_1027); + x_1034 = lean::box(0); } -x_1040 = l_lean_parser_number_view_to__nat___main(x_1019); -x_1041 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1041, 0, x_1040); -x_1042 = lean::box(0); -x_1043 = l_lean_elaborator_to__pexpr___main___closed__35; -x_1044 = l_lean_kvmap_insert__core___main(x_1042, x_1043, x_1041); -x_1045 = lean_expr_mk_mdata(x_1044, x_1035); -if (lean::is_scalar(x_1039)) { - x_1046 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1034)) { + x_1035 = lean::alloc_cnstr(0, 1, 0); } else { - x_1046 = x_1039; + x_1035 = x_1034; } -lean::cnstr_set(x_1046, 0, x_1045); -lean::cnstr_set(x_1046, 1, x_1037); -x_14 = x_1046; +lean::cnstr_set(x_1035, 0, x_1032); +return x_1035; +} +else +{ +obj* x_1036; obj* x_1039; obj* x_1041; obj* x_1043; obj* x_1044; obj* x_1045; obj* x_1046; obj* x_1047; obj* x_1048; obj* x_1049; obj* x_1050; +x_1036 = lean::cnstr_get(x_1027, 0); +lean::inc(x_1036); +lean::dec(x_1027); +x_1039 = lean::cnstr_get(x_1036, 0); +x_1041 = lean::cnstr_get(x_1036, 1); +if (lean::is_exclusive(x_1036)) { + x_1043 = x_1036; +} else { + lean::inc(x_1039); + lean::inc(x_1041); + lean::dec(x_1036); + x_1043 = lean::box(0); +} +x_1044 = l_lean_parser_number_view_to__nat___main(x_1023); +x_1045 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1045, 0, x_1044); +x_1046 = lean::box(0); +x_1047 = l_lean_elaborator_to__pexpr___main___closed__35; +x_1048 = l_lean_kvmap_insert__core___main(x_1046, x_1047, x_1045); +x_1049 = lean_expr_mk_mdata(x_1048, x_1039); +if (lean::is_scalar(x_1043)) { + x_1050 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1050 = x_1043; +} +lean::cnstr_set(x_1050, 0, x_1049); +lean::cnstr_set(x_1050, 1, x_1041); +x_14 = x_1050; goto lbl_15; } } @@ -11230,215 +11234,215 @@ goto lbl_15; } else { -obj* x_1048; obj* x_1049; obj* x_1053; obj* x_1054; +obj* x_1052; obj* x_1053; obj* x_1057; obj* x_1058; lean::dec(x_9); -x_1048 = l_lean_parser_term_let_has__view; -x_1049 = lean::cnstr_get(x_1048, 0); -lean::inc(x_1049); -lean::dec(x_1048); +x_1052 = l_lean_parser_term_let_has__view; +x_1053 = lean::cnstr_get(x_1052, 0); +lean::inc(x_1053); +lean::dec(x_1052); lean::inc(x_0); -x_1053 = lean::apply_1(x_1049, x_0); -x_1054 = lean::cnstr_get(x_1053, 1); -lean::inc(x_1054); -if (lean::obj_tag(x_1054) == 0) +x_1057 = lean::apply_1(x_1053, x_0); +x_1058 = lean::cnstr_get(x_1057, 1); +lean::inc(x_1058); +if (lean::obj_tag(x_1058) == 0) { -obj* x_1056; obj* x_1059; -x_1056 = lean::cnstr_get(x_1054, 0); -lean::inc(x_1056); -lean::dec(x_1054); -x_1059 = lean::cnstr_get(x_1056, 1); -lean::inc(x_1059); -if (lean::obj_tag(x_1059) == 0) +obj* x_1060; obj* x_1063; +x_1060 = lean::cnstr_get(x_1058, 0); +lean::inc(x_1060); +lean::dec(x_1058); +x_1063 = lean::cnstr_get(x_1060, 1); +lean::inc(x_1063); +if (lean::obj_tag(x_1063) == 0) { -obj* x_1061; -x_1061 = lean::cnstr_get(x_1056, 2); -lean::inc(x_1061); -if (lean::obj_tag(x_1061) == 0) +obj* x_1065; +x_1065 = lean::cnstr_get(x_1060, 2); +lean::inc(x_1065); +if (lean::obj_tag(x_1065) == 0) { -obj* x_1065; obj* x_1067; -lean::dec(x_1056); -lean::dec(x_1053); -x_1065 = l_lean_elaborator_to__pexpr___main___closed__36; +obj* x_1069; obj* x_1071; +lean::dec(x_1060); +lean::dec(x_1057); +x_1069 = l_lean_elaborator_to__pexpr___main___closed__36; lean::inc(x_1); -x_1067 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1065, x_1, x_2); +x_1071 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1069, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1067) == 0) +if (lean::obj_tag(x_1071) == 0) { -obj* x_1072; obj* x_1074; obj* x_1075; +obj* x_1076; obj* x_1078; obj* x_1079; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1072 = lean::cnstr_get(x_1067, 0); -if (lean::is_exclusive(x_1067)) { - x_1074 = x_1067; +x_1076 = lean::cnstr_get(x_1071, 0); +if (lean::is_exclusive(x_1071)) { + x_1078 = x_1071; } else { - lean::inc(x_1072); - lean::dec(x_1067); - x_1074 = lean::box(0); + lean::inc(x_1076); + lean::dec(x_1071); + x_1078 = lean::box(0); } -if (lean::is_scalar(x_1074)) { - x_1075 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1078)) { + x_1079 = lean::alloc_cnstr(0, 1, 0); } else { - x_1075 = x_1074; + x_1079 = x_1078; } -lean::cnstr_set(x_1075, 0, x_1072); -return x_1075; +lean::cnstr_set(x_1079, 0, x_1076); +return x_1079; } else { -obj* x_1076; -x_1076 = lean::cnstr_get(x_1067, 0); -lean::inc(x_1076); -lean::dec(x_1067); -x_14 = x_1076; +obj* x_1080; +x_1080 = lean::cnstr_get(x_1071, 0); +lean::inc(x_1080); +lean::dec(x_1071); +x_14 = x_1080; goto lbl_15; } } else { -obj* x_1079; obj* x_1082; obj* x_1085; obj* x_1089; -x_1079 = lean::cnstr_get(x_1056, 0); -lean::inc(x_1079); -lean::dec(x_1056); -x_1082 = lean::cnstr_get(x_1061, 0); -lean::inc(x_1082); -lean::dec(x_1061); -x_1085 = lean::cnstr_get(x_1082, 1); -lean::inc(x_1085); -lean::dec(x_1082); +obj* x_1083; obj* x_1086; obj* x_1089; obj* x_1093; +x_1083 = lean::cnstr_get(x_1060, 0); +lean::inc(x_1083); +lean::dec(x_1060); +x_1086 = lean::cnstr_get(x_1065, 0); +lean::inc(x_1086); +lean::dec(x_1065); +x_1089 = lean::cnstr_get(x_1086, 1); +lean::inc(x_1089); +lean::dec(x_1086); lean::inc(x_1); -x_1089 = l_lean_elaborator_to__pexpr___main(x_1085, x_1, x_2); -if (lean::obj_tag(x_1089) == 0) +x_1093 = l_lean_elaborator_to__pexpr___main(x_1089, x_1, x_2); +if (lean::obj_tag(x_1093) == 0) { -obj* x_1095; obj* x_1097; obj* x_1098; +obj* x_1099; obj* x_1101; obj* x_1102; lean::dec(x_7); lean::dec(x_1); +lean::dec(x_1083); lean::dec(x_0); -lean::dec(x_1079); -lean::dec(x_1053); -x_1095 = lean::cnstr_get(x_1089, 0); -if (lean::is_exclusive(x_1089)) { - x_1097 = x_1089; +lean::dec(x_1057); +x_1099 = lean::cnstr_get(x_1093, 0); +if (lean::is_exclusive(x_1093)) { + x_1101 = x_1093; } else { - lean::inc(x_1095); - lean::dec(x_1089); - x_1097 = lean::box(0); + lean::inc(x_1099); + lean::dec(x_1093); + x_1101 = lean::box(0); } -if (lean::is_scalar(x_1097)) { - x_1098 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1101)) { + x_1102 = lean::alloc_cnstr(0, 1, 0); } else { - x_1098 = x_1097; + x_1102 = x_1101; } -lean::cnstr_set(x_1098, 0, x_1095); -return x_1098; +lean::cnstr_set(x_1102, 0, x_1099); +return x_1102; } else { -obj* x_1099; obj* x_1102; obj* x_1104; obj* x_1107; obj* x_1110; -x_1099 = lean::cnstr_get(x_1089, 0); -lean::inc(x_1099); -lean::dec(x_1089); -x_1102 = lean::cnstr_get(x_1099, 0); -lean::inc(x_1102); -x_1104 = lean::cnstr_get(x_1099, 1); -lean::inc(x_1104); -lean::dec(x_1099); -x_1107 = lean::cnstr_get(x_1053, 3); -lean::inc(x_1107); +obj* x_1103; obj* x_1106; obj* x_1108; obj* x_1111; obj* x_1114; +x_1103 = lean::cnstr_get(x_1093, 0); +lean::inc(x_1103); +lean::dec(x_1093); +x_1106 = lean::cnstr_get(x_1103, 0); +lean::inc(x_1106); +x_1108 = lean::cnstr_get(x_1103, 1); +lean::inc(x_1108); +lean::dec(x_1103); +x_1111 = lean::cnstr_get(x_1057, 3); +lean::inc(x_1111); lean::inc(x_1); -x_1110 = l_lean_elaborator_to__pexpr___main(x_1107, x_1, x_1104); -if (lean::obj_tag(x_1110) == 0) +x_1114 = l_lean_elaborator_to__pexpr___main(x_1111, x_1, x_1108); +if (lean::obj_tag(x_1114) == 0) { -obj* x_1117; obj* x_1119; obj* x_1120; -lean::dec(x_1102); +obj* x_1121; obj* x_1123; obj* x_1124; lean::dec(x_7); lean::dec(x_1); +lean::dec(x_1083); lean::dec(x_0); -lean::dec(x_1079); -lean::dec(x_1053); -x_1117 = lean::cnstr_get(x_1110, 0); -if (lean::is_exclusive(x_1110)) { - x_1119 = x_1110; +lean::dec(x_1106); +lean::dec(x_1057); +x_1121 = lean::cnstr_get(x_1114, 0); +if (lean::is_exclusive(x_1114)) { + x_1123 = x_1114; } else { - lean::inc(x_1117); - lean::dec(x_1110); - x_1119 = lean::box(0); + lean::inc(x_1121); + lean::dec(x_1114); + x_1123 = lean::box(0); } -if (lean::is_scalar(x_1119)) { - x_1120 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1123)) { + x_1124 = lean::alloc_cnstr(0, 1, 0); } else { - x_1120 = x_1119; + x_1124 = x_1123; } -lean::cnstr_set(x_1120, 0, x_1117); -return x_1120; +lean::cnstr_set(x_1124, 0, x_1121); +return x_1124; } else { -obj* x_1121; obj* x_1124; obj* x_1126; obj* x_1129; obj* x_1133; -x_1121 = lean::cnstr_get(x_1110, 0); -lean::inc(x_1121); -lean::dec(x_1110); -x_1124 = lean::cnstr_get(x_1121, 0); -lean::inc(x_1124); -x_1126 = lean::cnstr_get(x_1121, 1); -lean::inc(x_1126); -lean::dec(x_1121); -x_1129 = lean::cnstr_get(x_1053, 5); -lean::inc(x_1129); -lean::dec(x_1053); +obj* x_1125; obj* x_1128; obj* x_1130; obj* x_1133; obj* x_1137; +x_1125 = lean::cnstr_get(x_1114, 0); +lean::inc(x_1125); +lean::dec(x_1114); +x_1128 = lean::cnstr_get(x_1125, 0); +lean::inc(x_1128); +x_1130 = lean::cnstr_get(x_1125, 1); +lean::inc(x_1130); +lean::dec(x_1125); +x_1133 = lean::cnstr_get(x_1057, 5); +lean::inc(x_1133); +lean::dec(x_1057); lean::inc(x_1); -x_1133 = l_lean_elaborator_to__pexpr___main(x_1129, x_1, x_1126); -if (lean::obj_tag(x_1133) == 0) +x_1137 = l_lean_elaborator_to__pexpr___main(x_1133, x_1, x_1130); +if (lean::obj_tag(x_1137) == 0) { -obj* x_1140; obj* x_1142; obj* x_1143; -lean::dec(x_1102); -lean::dec(x_1124); +obj* x_1144; obj* x_1146; obj* x_1147; lean::dec(x_7); lean::dec(x_1); +lean::dec(x_1083); lean::dec(x_0); -lean::dec(x_1079); -x_1140 = lean::cnstr_get(x_1133, 0); -if (lean::is_exclusive(x_1133)) { - x_1142 = x_1133; +lean::dec(x_1106); +lean::dec(x_1128); +x_1144 = lean::cnstr_get(x_1137, 0); +if (lean::is_exclusive(x_1137)) { + x_1146 = x_1137; } else { - lean::inc(x_1140); - lean::dec(x_1133); - x_1142 = lean::box(0); + lean::inc(x_1144); + lean::dec(x_1137); + x_1146 = lean::box(0); } -if (lean::is_scalar(x_1142)) { - x_1143 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1146)) { + x_1147 = lean::alloc_cnstr(0, 1, 0); } else { - x_1143 = x_1142; + x_1147 = x_1146; } -lean::cnstr_set(x_1143, 0, x_1140); -return x_1143; +lean::cnstr_set(x_1147, 0, x_1144); +return x_1147; } else { -obj* x_1144; obj* x_1147; obj* x_1149; obj* x_1151; obj* x_1152; obj* x_1153; obj* x_1154; -x_1144 = lean::cnstr_get(x_1133, 0); -lean::inc(x_1144); -lean::dec(x_1133); -x_1147 = lean::cnstr_get(x_1144, 0); -x_1149 = lean::cnstr_get(x_1144, 1); -if (lean::is_exclusive(x_1144)) { - x_1151 = x_1144; +obj* x_1148; obj* x_1151; obj* x_1153; obj* x_1155; obj* x_1156; obj* x_1157; obj* x_1158; +x_1148 = lean::cnstr_get(x_1137, 0); +lean::inc(x_1148); +lean::dec(x_1137); +x_1151 = lean::cnstr_get(x_1148, 0); +x_1153 = lean::cnstr_get(x_1148, 1); +if (lean::is_exclusive(x_1148)) { + x_1155 = x_1148; } else { - lean::inc(x_1147); - lean::inc(x_1149); - lean::dec(x_1144); - x_1151 = lean::box(0); + lean::inc(x_1151); + lean::inc(x_1153); + lean::dec(x_1148); + x_1155 = lean::box(0); } -x_1152 = l_lean_elaborator_mangle__ident(x_1079); -x_1153 = lean_expr_mk_let(x_1152, x_1102, x_1124, x_1147); -if (lean::is_scalar(x_1151)) { - x_1154 = lean::alloc_cnstr(0, 2, 0); +x_1156 = l_lean_elaborator_mangle__ident(x_1083); +x_1157 = lean_expr_mk_let(x_1156, x_1106, x_1128, x_1151); +if (lean::is_scalar(x_1155)) { + x_1158 = lean::alloc_cnstr(0, 2, 0); } else { - x_1154 = x_1151; + x_1158 = x_1155; } -lean::cnstr_set(x_1154, 0, x_1153); -lean::cnstr_set(x_1154, 1, x_1149); -x_14 = x_1154; +lean::cnstr_set(x_1158, 0, x_1157); +lean::cnstr_set(x_1158, 1, x_1153); +x_14 = x_1158; goto lbl_15; } } @@ -11447,85 +11451,85 @@ goto lbl_15; } else { -obj* x_1158; obj* x_1160; -lean::dec(x_1056); -lean::dec(x_1059); -lean::dec(x_1053); -x_1158 = l_lean_elaborator_to__pexpr___main___closed__36; +obj* x_1162; obj* x_1164; +lean::dec(x_1060); +lean::dec(x_1063); +lean::dec(x_1057); +x_1162 = l_lean_elaborator_to__pexpr___main___closed__36; lean::inc(x_1); -x_1160 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1158, x_1, x_2); +x_1164 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1162, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1160) == 0) +if (lean::obj_tag(x_1164) == 0) { -obj* x_1165; obj* x_1167; obj* x_1168; +obj* x_1169; obj* x_1171; obj* x_1172; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1165 = lean::cnstr_get(x_1160, 0); -if (lean::is_exclusive(x_1160)) { - x_1167 = x_1160; +x_1169 = lean::cnstr_get(x_1164, 0); +if (lean::is_exclusive(x_1164)) { + x_1171 = x_1164; } else { - lean::inc(x_1165); - lean::dec(x_1160); - x_1167 = lean::box(0); + lean::inc(x_1169); + lean::dec(x_1164); + x_1171 = lean::box(0); } -if (lean::is_scalar(x_1167)) { - x_1168 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1171)) { + x_1172 = lean::alloc_cnstr(0, 1, 0); } else { - x_1168 = x_1167; + x_1172 = x_1171; } -lean::cnstr_set(x_1168, 0, x_1165); -return x_1168; +lean::cnstr_set(x_1172, 0, x_1169); +return x_1172; } else { -obj* x_1169; -x_1169 = lean::cnstr_get(x_1160, 0); -lean::inc(x_1169); -lean::dec(x_1160); -x_14 = x_1169; +obj* x_1173; +x_1173 = lean::cnstr_get(x_1164, 0); +lean::inc(x_1173); +lean::dec(x_1164); +x_14 = x_1173; goto lbl_15; } } } else { -obj* x_1174; obj* x_1176; -lean::dec(x_1053); -lean::dec(x_1054); -x_1174 = l_lean_elaborator_to__pexpr___main___closed__36; +obj* x_1178; obj* x_1180; +lean::dec(x_1057); +lean::dec(x_1058); +x_1178 = l_lean_elaborator_to__pexpr___main___closed__36; lean::inc(x_1); -x_1176 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1174, x_1, x_2); +x_1180 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1178, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1176) == 0) +if (lean::obj_tag(x_1180) == 0) { -obj* x_1181; obj* x_1183; obj* x_1184; +obj* x_1185; obj* x_1187; obj* x_1188; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1181 = lean::cnstr_get(x_1176, 0); -if (lean::is_exclusive(x_1176)) { - x_1183 = x_1176; +x_1185 = lean::cnstr_get(x_1180, 0); +if (lean::is_exclusive(x_1180)) { + x_1187 = x_1180; } else { - lean::inc(x_1181); - lean::dec(x_1176); - x_1183 = lean::box(0); + lean::inc(x_1185); + lean::dec(x_1180); + x_1187 = lean::box(0); } -if (lean::is_scalar(x_1183)) { - x_1184 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1187)) { + x_1188 = lean::alloc_cnstr(0, 1, 0); } else { - x_1184 = x_1183; + x_1188 = x_1187; } -lean::cnstr_set(x_1184, 0, x_1181); -return x_1184; +lean::cnstr_set(x_1188, 0, x_1185); +return x_1188; } else { -obj* x_1185; -x_1185 = lean::cnstr_get(x_1176, 0); -lean::inc(x_1185); -lean::dec(x_1176); -x_14 = x_1185; +obj* x_1189; +x_1189 = lean::cnstr_get(x_1180, 0); +lean::inc(x_1189); +lean::dec(x_1180); +x_14 = x_1189; goto lbl_15; } } @@ -11533,114 +11537,114 @@ goto lbl_15; } else { -obj* x_1189; obj* x_1190; obj* x_1194; obj* x_1195; obj* x_1198; +obj* x_1193; obj* x_1194; obj* x_1198; obj* x_1199; obj* x_1202; lean::dec(x_9); -x_1189 = l_lean_parser_term_show_has__view; -x_1190 = lean::cnstr_get(x_1189, 0); -lean::inc(x_1190); -lean::dec(x_1189); +x_1193 = l_lean_parser_term_show_has__view; +x_1194 = lean::cnstr_get(x_1193, 0); +lean::inc(x_1194); +lean::dec(x_1193); lean::inc(x_0); -x_1194 = lean::apply_1(x_1190, x_0); -x_1195 = lean::cnstr_get(x_1194, 1); -lean::inc(x_1195); +x_1198 = lean::apply_1(x_1194, x_0); +x_1199 = lean::cnstr_get(x_1198, 1); +lean::inc(x_1199); lean::inc(x_1); -x_1198 = l_lean_elaborator_to__pexpr___main(x_1195, x_1, x_2); -if (lean::obj_tag(x_1198) == 0) +x_1202 = l_lean_elaborator_to__pexpr___main(x_1199, x_1, x_2); +if (lean::obj_tag(x_1202) == 0) { -obj* x_1203; obj* x_1205; obj* x_1206; +obj* x_1207; obj* x_1209; obj* x_1210; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1194); -x_1203 = lean::cnstr_get(x_1198, 0); -if (lean::is_exclusive(x_1198)) { - x_1205 = x_1198; -} else { - lean::inc(x_1203); - lean::dec(x_1198); - x_1205 = lean::box(0); -} -if (lean::is_scalar(x_1205)) { - x_1206 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1206 = x_1205; -} -lean::cnstr_set(x_1206, 0, x_1203); -return x_1206; -} -else -{ -obj* x_1207; obj* x_1210; obj* x_1212; obj* x_1215; obj* x_1218; obj* x_1222; -x_1207 = lean::cnstr_get(x_1198, 0); -lean::inc(x_1207); lean::dec(x_1198); -x_1210 = lean::cnstr_get(x_1207, 0); -lean::inc(x_1210); -x_1212 = lean::cnstr_get(x_1207, 1); -lean::inc(x_1212); -lean::dec(x_1207); -x_1215 = lean::cnstr_get(x_1194, 3); -lean::inc(x_1215); -lean::dec(x_1194); -x_1218 = lean::cnstr_get(x_1215, 1); -lean::inc(x_1218); -lean::dec(x_1215); -lean::inc(x_1); -x_1222 = l_lean_elaborator_to__pexpr___main(x_1218, x_1, x_1212); -if (lean::obj_tag(x_1222) == 0) -{ -obj* x_1227; obj* x_1229; obj* x_1230; -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -lean::dec(x_1210); -x_1227 = lean::cnstr_get(x_1222, 0); -if (lean::is_exclusive(x_1222)) { - x_1229 = x_1222; +x_1207 = lean::cnstr_get(x_1202, 0); +if (lean::is_exclusive(x_1202)) { + x_1209 = x_1202; } else { - lean::inc(x_1227); - lean::dec(x_1222); - x_1229 = lean::box(0); + lean::inc(x_1207); + lean::dec(x_1202); + x_1209 = lean::box(0); } -if (lean::is_scalar(x_1229)) { - x_1230 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1209)) { + x_1210 = lean::alloc_cnstr(0, 1, 0); } else { - x_1230 = x_1229; + x_1210 = x_1209; } -lean::cnstr_set(x_1230, 0, x_1227); -return x_1230; +lean::cnstr_set(x_1210, 0, x_1207); +return x_1210; } else { -obj* x_1231; obj* x_1234; obj* x_1236; obj* x_1238; obj* x_1239; uint8 x_1240; obj* x_1241; obj* x_1242; obj* x_1243; obj* x_1244; obj* x_1245; obj* x_1246; -x_1231 = lean::cnstr_get(x_1222, 0); -lean::inc(x_1231); -lean::dec(x_1222); -x_1234 = lean::cnstr_get(x_1231, 0); -x_1236 = lean::cnstr_get(x_1231, 1); -if (lean::is_exclusive(x_1231)) { - x_1238 = x_1231; +obj* x_1211; obj* x_1214; obj* x_1216; obj* x_1219; obj* x_1222; obj* x_1226; +x_1211 = lean::cnstr_get(x_1202, 0); +lean::inc(x_1211); +lean::dec(x_1202); +x_1214 = lean::cnstr_get(x_1211, 0); +lean::inc(x_1214); +x_1216 = lean::cnstr_get(x_1211, 1); +lean::inc(x_1216); +lean::dec(x_1211); +x_1219 = lean::cnstr_get(x_1198, 3); +lean::inc(x_1219); +lean::dec(x_1198); +x_1222 = lean::cnstr_get(x_1219, 1); +lean::inc(x_1222); +lean::dec(x_1219); +lean::inc(x_1); +x_1226 = l_lean_elaborator_to__pexpr___main(x_1222, x_1, x_1216); +if (lean::obj_tag(x_1226) == 0) +{ +obj* x_1231; obj* x_1233; obj* x_1234; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1214); +x_1231 = lean::cnstr_get(x_1226, 0); +if (lean::is_exclusive(x_1226)) { + x_1233 = x_1226; } else { - lean::inc(x_1234); - lean::inc(x_1236); - lean::dec(x_1231); - x_1238 = lean::box(0); + lean::inc(x_1231); + lean::dec(x_1226); + x_1233 = lean::box(0); } -x_1239 = l_lean_elaborator_to__pexpr___main___closed__37; -x_1240 = 0; -x_1241 = l_lean_elaborator_to__pexpr___main___closed__38; -x_1242 = lean_expr_mk_lambda(x_1239, x_1240, x_1210, x_1241); -x_1243 = lean_expr_mk_app(x_1242, x_1234); -x_1244 = l_lean_elaborator_to__pexpr___main___closed__39; -x_1245 = l_lean_elaborator_expr_mk__annotation(x_1244, x_1243); -if (lean::is_scalar(x_1238)) { - x_1246 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1233)) { + x_1234 = lean::alloc_cnstr(0, 1, 0); } else { - x_1246 = x_1238; + x_1234 = x_1233; } -lean::cnstr_set(x_1246, 0, x_1245); -lean::cnstr_set(x_1246, 1, x_1236); -x_14 = x_1246; +lean::cnstr_set(x_1234, 0, x_1231); +return x_1234; +} +else +{ +obj* x_1235; obj* x_1238; obj* x_1240; obj* x_1242; obj* x_1243; uint8 x_1244; obj* x_1245; obj* x_1246; obj* x_1247; obj* x_1248; obj* x_1249; obj* x_1250; +x_1235 = lean::cnstr_get(x_1226, 0); +lean::inc(x_1235); +lean::dec(x_1226); +x_1238 = lean::cnstr_get(x_1235, 0); +x_1240 = lean::cnstr_get(x_1235, 1); +if (lean::is_exclusive(x_1235)) { + x_1242 = x_1235; +} else { + lean::inc(x_1238); + lean::inc(x_1240); + lean::dec(x_1235); + x_1242 = lean::box(0); +} +x_1243 = l_lean_elaborator_to__pexpr___main___closed__37; +x_1244 = 0; +x_1245 = l_lean_elaborator_to__pexpr___main___closed__38; +x_1246 = lean_expr_mk_lambda(x_1243, x_1244, x_1214, x_1245); +x_1247 = lean_expr_mk_app(x_1246, x_1238); +x_1248 = l_lean_elaborator_to__pexpr___main___closed__39; +x_1249 = l_lean_elaborator_expr_mk__annotation(x_1248, x_1247); +if (lean::is_scalar(x_1242)) { + x_1250 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1250 = x_1242; +} +lean::cnstr_set(x_1250, 0, x_1249); +lean::cnstr_set(x_1250, 1, x_1240); +x_14 = x_1250; goto lbl_15; } } @@ -11648,262 +11652,262 @@ goto lbl_15; } else { -obj* x_1248; obj* x_1249; obj* x_1253; obj* x_1254; obj* x_1256; obj* x_1259; +obj* x_1252; obj* x_1253; obj* x_1257; obj* x_1258; obj* x_1260; obj* x_1263; lean::dec(x_9); -x_1248 = l_lean_parser_term_have_has__view; -x_1249 = lean::cnstr_get(x_1248, 0); -lean::inc(x_1249); -lean::dec(x_1248); +x_1252 = l_lean_parser_term_have_has__view; +x_1253 = lean::cnstr_get(x_1252, 0); +lean::inc(x_1253); +lean::dec(x_1252); lean::inc(x_0); -x_1253 = lean::apply_1(x_1249, x_0); -x_1256 = lean::cnstr_get(x_1253, 2); -lean::inc(x_1256); +x_1257 = lean::apply_1(x_1253, x_0); +x_1260 = lean::cnstr_get(x_1257, 2); +lean::inc(x_1260); lean::inc(x_1); -x_1259 = l_lean_elaborator_to__pexpr___main(x_1256, x_1, x_2); -if (lean::obj_tag(x_1259) == 0) +x_1263 = l_lean_elaborator_to__pexpr___main(x_1260, x_1, x_2); +if (lean::obj_tag(x_1263) == 0) { -obj* x_1264; obj* x_1266; obj* x_1267; -lean::dec(x_1253); +obj* x_1268; obj* x_1270; obj* x_1271; +lean::dec(x_1257); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1264 = lean::cnstr_get(x_1259, 0); -if (lean::is_exclusive(x_1259)) { - x_1266 = x_1259; +x_1268 = lean::cnstr_get(x_1263, 0); +if (lean::is_exclusive(x_1263)) { + x_1270 = x_1263; } else { - lean::inc(x_1264); - lean::dec(x_1259); - x_1266 = lean::box(0); + lean::inc(x_1268); + lean::dec(x_1263); + x_1270 = lean::box(0); } -if (lean::is_scalar(x_1266)) { - x_1267 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1270)) { + x_1271 = lean::alloc_cnstr(0, 1, 0); } else { - x_1267 = x_1266; + x_1271 = x_1270; } -lean::cnstr_set(x_1267, 0, x_1264); -return x_1267; +lean::cnstr_set(x_1271, 0, x_1268); +return x_1271; } else { -obj* x_1268; obj* x_1271; obj* x_1273; obj* x_1276; obj* x_1279; -x_1268 = lean::cnstr_get(x_1259, 0); -lean::inc(x_1268); -lean::dec(x_1259); -x_1271 = lean::cnstr_get(x_1268, 0); -lean::inc(x_1271); -x_1273 = lean::cnstr_get(x_1268, 1); -lean::inc(x_1273); -lean::dec(x_1268); -x_1276 = lean::cnstr_get(x_1253, 5); -lean::inc(x_1276); +obj* x_1272; obj* x_1275; obj* x_1277; obj* x_1280; obj* x_1283; +x_1272 = lean::cnstr_get(x_1263, 0); +lean::inc(x_1272); +lean::dec(x_1263); +x_1275 = lean::cnstr_get(x_1272, 0); +lean::inc(x_1275); +x_1277 = lean::cnstr_get(x_1272, 1); +lean::inc(x_1277); +lean::dec(x_1272); +x_1280 = lean::cnstr_get(x_1257, 5); +lean::inc(x_1280); lean::inc(x_1); -x_1279 = l_lean_elaborator_to__pexpr___main(x_1276, x_1, x_1273); -if (lean::obj_tag(x_1279) == 0) +x_1283 = l_lean_elaborator_to__pexpr___main(x_1280, x_1, x_1277); +if (lean::obj_tag(x_1283) == 0) { -obj* x_1285; obj* x_1287; obj* x_1288; -lean::dec(x_1253); +obj* x_1289; obj* x_1291; obj* x_1292; +lean::dec(x_1257); +lean::dec(x_1275); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1271); -x_1285 = lean::cnstr_get(x_1279, 0); -if (lean::is_exclusive(x_1279)) { - x_1287 = x_1279; +x_1289 = lean::cnstr_get(x_1283, 0); +if (lean::is_exclusive(x_1283)) { + x_1291 = x_1283; } else { - lean::inc(x_1285); - lean::dec(x_1279); - x_1287 = lean::box(0); + lean::inc(x_1289); + lean::dec(x_1283); + x_1291 = lean::box(0); } -if (lean::is_scalar(x_1287)) { - x_1288 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1291)) { + x_1292 = lean::alloc_cnstr(0, 1, 0); } else { - x_1288 = x_1287; + x_1292 = x_1291; } -lean::cnstr_set(x_1288, 0, x_1285); -return x_1288; +lean::cnstr_set(x_1292, 0, x_1289); +return x_1292; } else { -obj* x_1289; obj* x_1292; obj* x_1294; obj* x_1296; obj* x_1297; obj* x_1299; obj* x_1300; obj* x_1301; obj* x_1302; obj* x_1303; obj* x_1304; uint8 x_1306; obj* x_1307; obj* x_1308; -x_1289 = lean::cnstr_get(x_1279, 0); -lean::inc(x_1289); -lean::dec(x_1279); -x_1292 = lean::cnstr_get(x_1289, 0); -x_1294 = lean::cnstr_get(x_1289, 1); -if (lean::is_exclusive(x_1289)) { - x_1296 = x_1289; +obj* x_1293; obj* x_1296; obj* x_1298; obj* x_1300; obj* x_1301; obj* x_1303; obj* x_1304; obj* x_1305; obj* x_1306; obj* x_1307; obj* x_1308; uint8 x_1310; obj* x_1311; obj* x_1312; +x_1293 = lean::cnstr_get(x_1283, 0); +lean::inc(x_1293); +lean::dec(x_1283); +x_1296 = lean::cnstr_get(x_1293, 0); +x_1298 = lean::cnstr_get(x_1293, 1); +if (lean::is_exclusive(x_1293)) { + x_1300 = x_1293; } else { - lean::inc(x_1292); - lean::inc(x_1294); - lean::dec(x_1289); - x_1296 = lean::box(0); + lean::inc(x_1296); + lean::inc(x_1298); + lean::dec(x_1293); + x_1300 = lean::box(0); } -x_1297 = lean::cnstr_get(x_1253, 1); -lean::inc(x_1297); -x_1299 = l_lean_elaborator_to__pexpr___main___closed__41; -x_1300 = l_option_map___rarg(x_1299, x_1297); -x_1301 = l_lean_elaborator_to__pexpr___main___closed__28; -x_1302 = l_option_map___rarg(x_1301, x_1300); -x_1303 = l_lean_elaborator_to__pexpr___main___closed__37; -x_1304 = l_option_get__or__else___main___rarg(x_1302, x_1303); -lean::dec(x_1302); -x_1306 = 0; -x_1307 = lean_expr_mk_lambda(x_1304, x_1306, x_1271, x_1292); -if (lean::is_scalar(x_1296)) { - x_1308 = lean::alloc_cnstr(0, 2, 0); +x_1301 = lean::cnstr_get(x_1257, 1); +lean::inc(x_1301); +x_1303 = l_lean_elaborator_to__pexpr___main___closed__41; +x_1304 = l_option_map___rarg(x_1303, x_1301); +x_1305 = l_lean_elaborator_to__pexpr___main___closed__28; +x_1306 = l_option_map___rarg(x_1305, x_1304); +x_1307 = l_lean_elaborator_to__pexpr___main___closed__37; +x_1308 = l_option_get__or__else___main___rarg(x_1306, x_1307); +lean::dec(x_1306); +x_1310 = 0; +x_1311 = lean_expr_mk_lambda(x_1308, x_1310, x_1275, x_1296); +if (lean::is_scalar(x_1300)) { + x_1312 = lean::alloc_cnstr(0, 2, 0); } else { - x_1308 = x_1296; + x_1312 = x_1300; } -lean::cnstr_set(x_1308, 0, x_1307); -lean::cnstr_set(x_1308, 1, x_1294); -x_1254 = x_1308; -goto lbl_1255; +lean::cnstr_set(x_1312, 0, x_1311); +lean::cnstr_set(x_1312, 1, x_1298); +x_1258 = x_1312; +goto lbl_1259; } } -lbl_1255: +lbl_1259: { -obj* x_1309; -x_1309 = lean::cnstr_get(x_1253, 3); -lean::inc(x_1309); -lean::dec(x_1253); -if (lean::obj_tag(x_1309) == 0) +obj* x_1313; +x_1313 = lean::cnstr_get(x_1257, 3); +lean::inc(x_1313); +lean::dec(x_1257); +if (lean::obj_tag(x_1313) == 0) { -obj* x_1312; obj* x_1314; obj* x_1317; obj* x_1320; obj* x_1324; -x_1312 = lean::cnstr_get(x_1254, 0); -lean::inc(x_1312); -x_1314 = lean::cnstr_get(x_1254, 1); -lean::inc(x_1314); -lean::dec(x_1254); -x_1317 = lean::cnstr_get(x_1309, 0); -lean::inc(x_1317); -lean::dec(x_1309); -x_1320 = lean::cnstr_get(x_1317, 1); -lean::inc(x_1320); -lean::dec(x_1317); +obj* x_1316; obj* x_1318; obj* x_1321; obj* x_1324; obj* x_1328; +x_1316 = lean::cnstr_get(x_1258, 0); +lean::inc(x_1316); +x_1318 = lean::cnstr_get(x_1258, 1); +lean::inc(x_1318); +lean::dec(x_1258); +x_1321 = lean::cnstr_get(x_1313, 0); +lean::inc(x_1321); +lean::dec(x_1313); +x_1324 = lean::cnstr_get(x_1321, 1); +lean::inc(x_1324); +lean::dec(x_1321); lean::inc(x_1); -x_1324 = l_lean_elaborator_to__pexpr___main(x_1320, x_1, x_1314); -if (lean::obj_tag(x_1324) == 0) +x_1328 = l_lean_elaborator_to__pexpr___main(x_1324, x_1, x_1318); +if (lean::obj_tag(x_1328) == 0) { -obj* x_1329; obj* x_1331; obj* x_1332; +obj* x_1333; obj* x_1335; obj* x_1336; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1312); -x_1329 = lean::cnstr_get(x_1324, 0); -if (lean::is_exclusive(x_1324)) { - x_1331 = x_1324; +lean::dec(x_1316); +x_1333 = lean::cnstr_get(x_1328, 0); +if (lean::is_exclusive(x_1328)) { + x_1335 = x_1328; } else { - lean::inc(x_1329); - lean::dec(x_1324); - x_1331 = lean::box(0); + lean::inc(x_1333); + lean::dec(x_1328); + x_1335 = lean::box(0); } -if (lean::is_scalar(x_1331)) { - x_1332 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1335)) { + x_1336 = lean::alloc_cnstr(0, 1, 0); } else { - x_1332 = x_1331; + x_1336 = x_1335; } -lean::cnstr_set(x_1332, 0, x_1329); -return x_1332; +lean::cnstr_set(x_1336, 0, x_1333); +return x_1336; } else { -obj* x_1333; obj* x_1336; obj* x_1338; obj* x_1340; obj* x_1341; obj* x_1342; obj* x_1343; obj* x_1344; -x_1333 = lean::cnstr_get(x_1324, 0); -lean::inc(x_1333); -lean::dec(x_1324); -x_1336 = lean::cnstr_get(x_1333, 0); -x_1338 = lean::cnstr_get(x_1333, 1); -if (lean::is_exclusive(x_1333)) { - x_1340 = x_1333; +obj* x_1337; obj* x_1340; obj* x_1342; obj* x_1344; obj* x_1345; obj* x_1346; obj* x_1347; obj* x_1348; +x_1337 = lean::cnstr_get(x_1328, 0); +lean::inc(x_1337); +lean::dec(x_1328); +x_1340 = lean::cnstr_get(x_1337, 0); +x_1342 = lean::cnstr_get(x_1337, 1); +if (lean::is_exclusive(x_1337)) { + x_1344 = x_1337; } else { - lean::inc(x_1336); - lean::inc(x_1338); - lean::dec(x_1333); - x_1340 = lean::box(0); + lean::inc(x_1340); + lean::inc(x_1342); + lean::dec(x_1337); + x_1344 = lean::box(0); } -x_1341 = l_lean_elaborator_to__pexpr___main___closed__40; -x_1342 = l_lean_elaborator_expr_mk__annotation(x_1341, x_1312); -x_1343 = lean_expr_mk_app(x_1342, x_1336); -if (lean::is_scalar(x_1340)) { - x_1344 = lean::alloc_cnstr(0, 2, 0); +x_1345 = l_lean_elaborator_to__pexpr___main___closed__40; +x_1346 = l_lean_elaborator_expr_mk__annotation(x_1345, x_1316); +x_1347 = lean_expr_mk_app(x_1346, x_1340); +if (lean::is_scalar(x_1344)) { + x_1348 = lean::alloc_cnstr(0, 2, 0); } else { - x_1344 = x_1340; + x_1348 = x_1344; } -lean::cnstr_set(x_1344, 0, x_1343); -lean::cnstr_set(x_1344, 1, x_1338); -x_14 = x_1344; +lean::cnstr_set(x_1348, 0, x_1347); +lean::cnstr_set(x_1348, 1, x_1342); +x_14 = x_1348; goto lbl_15; } } else { -obj* x_1345; obj* x_1347; obj* x_1350; obj* x_1353; obj* x_1356; obj* x_1360; -x_1345 = lean::cnstr_get(x_1254, 0); -lean::inc(x_1345); -x_1347 = lean::cnstr_get(x_1254, 1); -lean::inc(x_1347); -lean::dec(x_1254); -x_1350 = lean::cnstr_get(x_1309, 0); -lean::inc(x_1350); -lean::dec(x_1309); -x_1353 = lean::cnstr_get(x_1350, 1); -lean::inc(x_1353); -lean::dec(x_1350); -x_1356 = lean::cnstr_get(x_1353, 1); -lean::inc(x_1356); -lean::dec(x_1353); +obj* x_1349; obj* x_1351; obj* x_1354; obj* x_1357; obj* x_1360; obj* x_1364; +x_1349 = lean::cnstr_get(x_1258, 0); +lean::inc(x_1349); +x_1351 = lean::cnstr_get(x_1258, 1); +lean::inc(x_1351); +lean::dec(x_1258); +x_1354 = lean::cnstr_get(x_1313, 0); +lean::inc(x_1354); +lean::dec(x_1313); +x_1357 = lean::cnstr_get(x_1354, 1); +lean::inc(x_1357); +lean::dec(x_1354); +x_1360 = lean::cnstr_get(x_1357, 1); +lean::inc(x_1360); +lean::dec(x_1357); lean::inc(x_1); -x_1360 = l_lean_elaborator_to__pexpr___main(x_1356, x_1, x_1347); -if (lean::obj_tag(x_1360) == 0) +x_1364 = l_lean_elaborator_to__pexpr___main(x_1360, x_1, x_1351); +if (lean::obj_tag(x_1364) == 0) { -obj* x_1365; obj* x_1367; obj* x_1368; -lean::dec(x_1345); +obj* x_1369; obj* x_1371; obj* x_1372; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1365 = lean::cnstr_get(x_1360, 0); -if (lean::is_exclusive(x_1360)) { - x_1367 = x_1360; +lean::dec(x_1349); +x_1369 = lean::cnstr_get(x_1364, 0); +if (lean::is_exclusive(x_1364)) { + x_1371 = x_1364; } else { - lean::inc(x_1365); - lean::dec(x_1360); - x_1367 = lean::box(0); + lean::inc(x_1369); + lean::dec(x_1364); + x_1371 = lean::box(0); } -if (lean::is_scalar(x_1367)) { - x_1368 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1371)) { + x_1372 = lean::alloc_cnstr(0, 1, 0); } else { - x_1368 = x_1367; + x_1372 = x_1371; } -lean::cnstr_set(x_1368, 0, x_1365); -return x_1368; +lean::cnstr_set(x_1372, 0, x_1369); +return x_1372; } else { -obj* x_1369; obj* x_1372; obj* x_1374; obj* x_1376; obj* x_1377; obj* x_1378; obj* x_1379; obj* x_1380; -x_1369 = lean::cnstr_get(x_1360, 0); -lean::inc(x_1369); -lean::dec(x_1360); -x_1372 = lean::cnstr_get(x_1369, 0); -x_1374 = lean::cnstr_get(x_1369, 1); -if (lean::is_exclusive(x_1369)) { - x_1376 = x_1369; +obj* x_1373; obj* x_1376; obj* x_1378; obj* x_1380; obj* x_1381; obj* x_1382; obj* x_1383; obj* x_1384; +x_1373 = lean::cnstr_get(x_1364, 0); +lean::inc(x_1373); +lean::dec(x_1364); +x_1376 = lean::cnstr_get(x_1373, 0); +x_1378 = lean::cnstr_get(x_1373, 1); +if (lean::is_exclusive(x_1373)) { + x_1380 = x_1373; } else { - lean::inc(x_1372); - lean::inc(x_1374); - lean::dec(x_1369); - x_1376 = lean::box(0); + lean::inc(x_1376); + lean::inc(x_1378); + lean::dec(x_1373); + x_1380 = lean::box(0); } -x_1377 = l_lean_elaborator_to__pexpr___main___closed__40; -x_1378 = l_lean_elaborator_expr_mk__annotation(x_1377, x_1345); -x_1379 = lean_expr_mk_app(x_1378, x_1372); -if (lean::is_scalar(x_1376)) { - x_1380 = lean::alloc_cnstr(0, 2, 0); +x_1381 = l_lean_elaborator_to__pexpr___main___closed__40; +x_1382 = l_lean_elaborator_expr_mk__annotation(x_1381, x_1349); +x_1383 = lean_expr_mk_app(x_1382, x_1376); +if (lean::is_scalar(x_1380)) { + x_1384 = lean::alloc_cnstr(0, 2, 0); } else { - x_1380 = x_1376; + x_1384 = x_1380; } -lean::cnstr_set(x_1380, 0, x_1379); -lean::cnstr_set(x_1380, 1, x_1374); -x_14 = x_1380; +lean::cnstr_set(x_1384, 0, x_1383); +lean::cnstr_set(x_1384, 1, x_1378); +x_14 = x_1384; goto lbl_15; } } @@ -11916,272 +11920,272 @@ lean::dec(x_9); lean::dec(x_7); if (x_21 == 0) { -obj* x_1383; -x_1383 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1387; +x_1387 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1383) == 0) +if (lean::obj_tag(x_1387) == 0) { -obj* x_1386; obj* x_1387; obj* x_1388; +obj* x_1390; obj* x_1391; obj* x_1392; lean::dec(x_1); -x_1386 = l_lean_elaborator_to__pexpr___main___closed__42; -x_1387 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1387, 0, x_1386); -lean::cnstr_set(x_1387, 1, x_2); -x_1388 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1388, 0, x_1387); -return x_1388; +x_1390 = l_lean_elaborator_to__pexpr___main___closed__42; +x_1391 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1391, 0, x_1390); +lean::cnstr_set(x_1391, 1, x_2); +x_1392 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1392, 0, x_1391); +return x_1392; } else { -obj* x_1389; obj* x_1392; obj* x_1395; obj* x_1398; obj* x_1399; obj* x_1400; obj* x_1402; obj* x_1403; obj* x_1404; obj* x_1407; obj* x_1408; obj* x_1409; obj* x_1410; obj* x_1411; obj* x_1412; -x_1389 = lean::cnstr_get(x_1383, 0); -lean::inc(x_1389); -lean::dec(x_1383); -x_1392 = lean::cnstr_get(x_1, 0); -lean::inc(x_1392); +obj* x_1393; obj* x_1396; obj* x_1399; obj* x_1402; obj* x_1403; obj* x_1404; obj* x_1406; obj* x_1407; obj* x_1408; obj* x_1411; obj* x_1412; obj* x_1413; obj* x_1414; obj* x_1415; obj* x_1416; +x_1393 = lean::cnstr_get(x_1387, 0); +lean::inc(x_1393); +lean::dec(x_1387); +x_1396 = lean::cnstr_get(x_1, 0); +lean::inc(x_1396); lean::dec(x_1); -x_1395 = lean::cnstr_get(x_1392, 2); -lean::inc(x_1395); -lean::dec(x_1392); -x_1398 = l_lean_file__map_to__position(x_1395, x_1389); -x_1399 = lean::box(0); -x_1400 = lean::cnstr_get(x_1398, 1); -lean::inc(x_1400); -x_1402 = l_lean_elaborator_to__pexpr___main___closed__3; -x_1403 = l_lean_kvmap_set__nat(x_1399, x_1402, x_1400); -x_1404 = lean::cnstr_get(x_1398, 0); +x_1399 = lean::cnstr_get(x_1396, 2); +lean::inc(x_1399); +lean::dec(x_1396); +x_1402 = l_lean_file__map_to__position(x_1399, x_1393); +x_1403 = lean::box(0); +x_1404 = lean::cnstr_get(x_1402, 1); lean::inc(x_1404); -lean::dec(x_1398); -x_1407 = l_lean_elaborator_to__pexpr___main___closed__4; -x_1408 = l_lean_kvmap_set__nat(x_1403, x_1407, x_1404); -x_1409 = l_lean_elaborator_to__pexpr___main___closed__42; -x_1410 = lean_expr_mk_mdata(x_1408, x_1409); -x_1411 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1411, 0, x_1410); -lean::cnstr_set(x_1411, 1, x_2); -x_1412 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1412, 0, x_1411); -return x_1412; -} -} -else -{ -obj* x_1415; obj* x_1416; obj* x_1417; -lean::dec(x_1); -lean::dec(x_0); -x_1415 = l_lean_elaborator_to__pexpr___main___closed__42; -x_1416 = lean::alloc_cnstr(0, 2, 0); +x_1406 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1407 = l_lean_kvmap_set__nat(x_1403, x_1406, x_1404); +x_1408 = lean::cnstr_get(x_1402, 0); +lean::inc(x_1408); +lean::dec(x_1402); +x_1411 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1412 = l_lean_kvmap_set__nat(x_1407, x_1411, x_1408); +x_1413 = l_lean_elaborator_to__pexpr___main___closed__42; +x_1414 = lean_expr_mk_mdata(x_1412, x_1413); +x_1415 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1415, 0, x_1414); +lean::cnstr_set(x_1415, 1, x_2); +x_1416 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1416, 0, x_1415); -lean::cnstr_set(x_1416, 1, x_2); -x_1417 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1417, 0, x_1416); -return x_1417; +return x_1416; +} +} +else +{ +obj* x_1419; obj* x_1420; obj* x_1421; +lean::dec(x_1); +lean::dec(x_0); +x_1419 = l_lean_elaborator_to__pexpr___main___closed__42; +x_1420 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1420, 0, x_1419); +lean::cnstr_set(x_1420, 1, x_2); +x_1421 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1421, 0, x_1420); +return x_1421; } } } else { -obj* x_1419; obj* x_1420; obj* x_1424; obj* x_1425; obj* x_1428; obj* x_1429; obj* x_1430; obj* x_1432; +obj* x_1423; obj* x_1424; obj* x_1428; obj* x_1429; obj* x_1432; obj* x_1433; obj* x_1434; obj* x_1436; lean::dec(x_9); -x_1419 = l_lean_parser_term_anonymous__constructor_has__view; -x_1420 = lean::cnstr_get(x_1419, 0); -lean::inc(x_1420); -lean::dec(x_1419); +x_1423 = l_lean_parser_term_anonymous__constructor_has__view; +x_1424 = lean::cnstr_get(x_1423, 0); +lean::inc(x_1424); +lean::dec(x_1423); lean::inc(x_0); -x_1424 = lean::apply_1(x_1420, x_0); -x_1425 = lean::cnstr_get(x_1424, 1); -lean::inc(x_1425); -lean::dec(x_1424); -x_1428 = l_list_map___main___at_lean_elaborator_to__pexpr___main___spec__21(x_1425); -x_1429 = l_lean_expander_get__opt__type___main___closed__1; -x_1430 = l_list_foldl___main___at_lean_parser_term_mk__app___spec__1(x_1429, x_1428); +x_1428 = lean::apply_1(x_1424, x_0); +x_1429 = lean::cnstr_get(x_1428, 1); +lean::inc(x_1429); +lean::dec(x_1428); +x_1432 = l_list_map___main___at_lean_elaborator_to__pexpr___main___spec__21(x_1429); +x_1433 = l_lean_expander_get__opt__type___main___closed__1; +x_1434 = l_list_foldl___main___at_lean_parser_term_mk__app___spec__1(x_1433, x_1432); lean::inc(x_1); -x_1432 = l_lean_elaborator_to__pexpr___main(x_1430, x_1, x_2); -if (lean::obj_tag(x_1432) == 0) +x_1436 = l_lean_elaborator_to__pexpr___main(x_1434, x_1, x_2); +if (lean::obj_tag(x_1436) == 0) { -obj* x_1436; obj* x_1438; obj* x_1439; +obj* x_1440; obj* x_1442; obj* x_1443; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1436 = lean::cnstr_get(x_1432, 0); -if (lean::is_exclusive(x_1432)) { - x_1438 = x_1432; +x_1440 = lean::cnstr_get(x_1436, 0); +if (lean::is_exclusive(x_1436)) { + x_1442 = x_1436; } else { - lean::inc(x_1436); - lean::dec(x_1432); - x_1438 = lean::box(0); + lean::inc(x_1440); + lean::dec(x_1436); + x_1442 = lean::box(0); } -if (lean::is_scalar(x_1438)) { - x_1439 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1442)) { + x_1443 = lean::alloc_cnstr(0, 1, 0); } else { - x_1439 = x_1438; + x_1443 = x_1442; } -lean::cnstr_set(x_1439, 0, x_1436); -return x_1439; +lean::cnstr_set(x_1443, 0, x_1440); +return x_1443; } else { -obj* x_1440; obj* x_1443; obj* x_1445; obj* x_1447; obj* x_1448; obj* x_1449; obj* x_1450; -x_1440 = lean::cnstr_get(x_1432, 0); -lean::inc(x_1440); -lean::dec(x_1432); -x_1443 = lean::cnstr_get(x_1440, 0); -x_1445 = lean::cnstr_get(x_1440, 1); -if (lean::is_exclusive(x_1440)) { - x_1447 = x_1440; +obj* x_1444; obj* x_1447; obj* x_1449; obj* x_1451; obj* x_1452; obj* x_1453; obj* x_1454; +x_1444 = lean::cnstr_get(x_1436, 0); +lean::inc(x_1444); +lean::dec(x_1436); +x_1447 = lean::cnstr_get(x_1444, 0); +x_1449 = lean::cnstr_get(x_1444, 1); +if (lean::is_exclusive(x_1444)) { + x_1451 = x_1444; } else { - lean::inc(x_1443); - lean::inc(x_1445); - lean::dec(x_1440); - x_1447 = lean::box(0); + lean::inc(x_1447); + lean::inc(x_1449); + lean::dec(x_1444); + x_1451 = lean::box(0); } -x_1448 = l_lean_elaborator_to__pexpr___main___closed__43; -x_1449 = l_lean_elaborator_expr_mk__annotation(x_1448, x_1443); -if (lean::is_scalar(x_1447)) { - x_1450 = lean::alloc_cnstr(0, 2, 0); +x_1452 = l_lean_elaborator_to__pexpr___main___closed__43; +x_1453 = l_lean_elaborator_expr_mk__annotation(x_1452, x_1447); +if (lean::is_scalar(x_1451)) { + x_1454 = lean::alloc_cnstr(0, 2, 0); } else { - x_1450 = x_1447; + x_1454 = x_1451; } -lean::cnstr_set(x_1450, 0, x_1449); -lean::cnstr_set(x_1450, 1, x_1445); -x_14 = x_1450; +lean::cnstr_set(x_1454, 0, x_1453); +lean::cnstr_set(x_1454, 1, x_1449); +x_14 = x_1454; goto lbl_15; } } } else { -obj* x_1452; obj* x_1453; obj* x_1457; obj* x_1458; obj* x_1459; obj* x_1462; obj* x_1464; +obj* x_1456; obj* x_1457; obj* x_1461; obj* x_1462; obj* x_1463; obj* x_1466; obj* x_1468; lean::dec(x_9); -x_1452 = l_lean_parser_term_sort__app_has__view; -x_1453 = lean::cnstr_get(x_1452, 0); -lean::inc(x_1453); -lean::dec(x_1452); +x_1456 = l_lean_parser_term_sort__app_has__view; +x_1457 = lean::cnstr_get(x_1456, 0); +lean::inc(x_1457); +lean::dec(x_1456); lean::inc(x_0); -x_1457 = lean::apply_1(x_1453, x_0); -x_1458 = l_lean_parser_term_sort_has__view; -x_1459 = lean::cnstr_get(x_1458, 0); -lean::inc(x_1459); -lean::dec(x_1458); -x_1462 = lean::cnstr_get(x_1457, 0); -lean::inc(x_1462); -x_1464 = lean::apply_1(x_1459, x_1462); -if (lean::obj_tag(x_1464) == 0) -{ -obj* x_1466; obj* x_1470; -lean::dec(x_1464); -x_1466 = lean::cnstr_get(x_1457, 1); +x_1461 = lean::apply_1(x_1457, x_0); +x_1462 = l_lean_parser_term_sort_has__view; +x_1463 = lean::cnstr_get(x_1462, 0); +lean::inc(x_1463); +lean::dec(x_1462); +x_1466 = lean::cnstr_get(x_1461, 0); lean::inc(x_1466); -lean::dec(x_1457); -lean::inc(x_1); -x_1470 = l_lean_elaborator_to__level___main(x_1466, x_1, x_2); -if (lean::obj_tag(x_1470) == 0) +x_1468 = lean::apply_1(x_1463, x_1466); +if (lean::obj_tag(x_1468) == 0) { -obj* x_1474; obj* x_1476; obj* x_1477; +obj* x_1470; obj* x_1474; +lean::dec(x_1468); +x_1470 = lean::cnstr_get(x_1461, 1); +lean::inc(x_1470); +lean::dec(x_1461); +lean::inc(x_1); +x_1474 = l_lean_elaborator_to__level___main(x_1470, x_1, x_2); +if (lean::obj_tag(x_1474) == 0) +{ +obj* x_1478; obj* x_1480; obj* x_1481; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1474 = lean::cnstr_get(x_1470, 0); -if (lean::is_exclusive(x_1470)) { - x_1476 = x_1470; +x_1478 = lean::cnstr_get(x_1474, 0); +if (lean::is_exclusive(x_1474)) { + x_1480 = x_1474; } else { - lean::inc(x_1474); - lean::dec(x_1470); - x_1476 = lean::box(0); + lean::inc(x_1478); + lean::dec(x_1474); + x_1480 = lean::box(0); } -if (lean::is_scalar(x_1476)) { - x_1477 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1480)) { + x_1481 = lean::alloc_cnstr(0, 1, 0); } else { - x_1477 = x_1476; + x_1481 = x_1480; } -lean::cnstr_set(x_1477, 0, x_1474); -return x_1477; +lean::cnstr_set(x_1481, 0, x_1478); +return x_1481; } else { -obj* x_1478; obj* x_1481; obj* x_1483; obj* x_1485; obj* x_1486; obj* x_1487; -x_1478 = lean::cnstr_get(x_1470, 0); -lean::inc(x_1478); -lean::dec(x_1470); -x_1481 = lean::cnstr_get(x_1478, 0); -x_1483 = lean::cnstr_get(x_1478, 1); -if (lean::is_exclusive(x_1478)) { - x_1485 = x_1478; +obj* x_1482; obj* x_1485; obj* x_1487; obj* x_1489; obj* x_1490; obj* x_1491; +x_1482 = lean::cnstr_get(x_1474, 0); +lean::inc(x_1482); +lean::dec(x_1474); +x_1485 = lean::cnstr_get(x_1482, 0); +x_1487 = lean::cnstr_get(x_1482, 1); +if (lean::is_exclusive(x_1482)) { + x_1489 = x_1482; } else { - lean::inc(x_1481); - lean::inc(x_1483); - lean::dec(x_1478); - x_1485 = lean::box(0); + lean::inc(x_1485); + lean::inc(x_1487); + lean::dec(x_1482); + x_1489 = lean::box(0); } -x_1486 = lean_expr_mk_sort(x_1481); -if (lean::is_scalar(x_1485)) { - x_1487 = lean::alloc_cnstr(0, 2, 0); +x_1490 = lean_expr_mk_sort(x_1485); +if (lean::is_scalar(x_1489)) { + x_1491 = lean::alloc_cnstr(0, 2, 0); } else { - x_1487 = x_1485; + x_1491 = x_1489; } -lean::cnstr_set(x_1487, 0, x_1486); -lean::cnstr_set(x_1487, 1, x_1483); -x_14 = x_1487; +lean::cnstr_set(x_1491, 0, x_1490); +lean::cnstr_set(x_1491, 1, x_1487); +x_14 = x_1491; goto lbl_15; } } else { -obj* x_1489; obj* x_1493; -lean::dec(x_1464); -x_1489 = lean::cnstr_get(x_1457, 1); -lean::inc(x_1489); -lean::dec(x_1457); +obj* x_1493; obj* x_1497; +lean::dec(x_1468); +x_1493 = lean::cnstr_get(x_1461, 1); +lean::inc(x_1493); +lean::dec(x_1461); lean::inc(x_1); -x_1493 = l_lean_elaborator_to__level___main(x_1489, x_1, x_2); -if (lean::obj_tag(x_1493) == 0) +x_1497 = l_lean_elaborator_to__level___main(x_1493, x_1, x_2); +if (lean::obj_tag(x_1497) == 0) { -obj* x_1497; obj* x_1499; obj* x_1500; +obj* x_1501; obj* x_1503; obj* x_1504; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1497 = lean::cnstr_get(x_1493, 0); -if (lean::is_exclusive(x_1493)) { - x_1499 = x_1493; +x_1501 = lean::cnstr_get(x_1497, 0); +if (lean::is_exclusive(x_1497)) { + x_1503 = x_1497; } else { - lean::inc(x_1497); - lean::dec(x_1493); - x_1499 = lean::box(0); + lean::inc(x_1501); + lean::dec(x_1497); + x_1503 = lean::box(0); } -if (lean::is_scalar(x_1499)) { - x_1500 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1503)) { + x_1504 = lean::alloc_cnstr(0, 1, 0); } else { - x_1500 = x_1499; + x_1504 = x_1503; } -lean::cnstr_set(x_1500, 0, x_1497); -return x_1500; +lean::cnstr_set(x_1504, 0, x_1501); +return x_1504; } else { -obj* x_1501; obj* x_1504; obj* x_1506; obj* x_1508; obj* x_1509; obj* x_1510; obj* x_1511; -x_1501 = lean::cnstr_get(x_1493, 0); -lean::inc(x_1501); -lean::dec(x_1493); -x_1504 = lean::cnstr_get(x_1501, 0); -x_1506 = lean::cnstr_get(x_1501, 1); -if (lean::is_exclusive(x_1501)) { - x_1508 = x_1501; +obj* x_1505; obj* x_1508; obj* x_1510; obj* x_1512; obj* x_1513; obj* x_1514; obj* x_1515; +x_1505 = lean::cnstr_get(x_1497, 0); +lean::inc(x_1505); +lean::dec(x_1497); +x_1508 = lean::cnstr_get(x_1505, 0); +x_1510 = lean::cnstr_get(x_1505, 1); +if (lean::is_exclusive(x_1505)) { + x_1512 = x_1505; } else { - lean::inc(x_1504); - lean::inc(x_1506); - lean::dec(x_1501); - x_1508 = lean::box(0); + lean::inc(x_1508); + lean::inc(x_1510); + lean::dec(x_1505); + x_1512 = lean::box(0); } -x_1509 = level_mk_succ(x_1504); -x_1510 = lean_expr_mk_sort(x_1509); -if (lean::is_scalar(x_1508)) { - x_1511 = lean::alloc_cnstr(0, 2, 0); +x_1513 = level_mk_succ(x_1508); +x_1514 = lean_expr_mk_sort(x_1513); +if (lean::is_scalar(x_1512)) { + x_1515 = lean::alloc_cnstr(0, 2, 0); } else { - x_1511 = x_1508; + x_1515 = x_1512; } -lean::cnstr_set(x_1511, 0, x_1510); -lean::cnstr_set(x_1511, 1, x_1506); -x_14 = x_1511; +lean::cnstr_set(x_1515, 0, x_1514); +lean::cnstr_set(x_1515, 1, x_1510); +x_14 = x_1515; goto lbl_15; } } @@ -12189,316 +12193,316 @@ goto lbl_15; } else { -obj* x_1514; obj* x_1515; obj* x_1519; +obj* x_1518; obj* x_1519; obj* x_1523; lean::dec(x_9); lean::dec(x_7); -x_1514 = l_lean_parser_term_sort_has__view; -x_1515 = lean::cnstr_get(x_1514, 0); -lean::inc(x_1515); -lean::dec(x_1514); +x_1518 = l_lean_parser_term_sort_has__view; +x_1519 = lean::cnstr_get(x_1518, 0); +lean::inc(x_1519); +lean::dec(x_1518); lean::inc(x_0); -x_1519 = lean::apply_1(x_1515, x_0); -if (lean::obj_tag(x_1519) == 0) +x_1523 = lean::apply_1(x_1519, x_0); +if (lean::obj_tag(x_1523) == 0) { -lean::dec(x_1519); +lean::dec(x_1523); if (x_21 == 0) { -obj* x_1521; -x_1521 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1525; +x_1525 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1521) == 0) +if (lean::obj_tag(x_1525) == 0) { -obj* x_1524; obj* x_1525; obj* x_1526; +obj* x_1528; obj* x_1529; obj* x_1530; lean::dec(x_1); -x_1524 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; -x_1525 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1525, 0, x_1524); -lean::cnstr_set(x_1525, 1, x_2); -x_1526 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1526, 0, x_1525); -return x_1526; +x_1528 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; +x_1529 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1529, 0, x_1528); +lean::cnstr_set(x_1529, 1, x_2); +x_1530 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1530, 0, x_1529); +return x_1530; } else { -obj* x_1527; obj* x_1530; obj* x_1533; obj* x_1536; obj* x_1537; obj* x_1538; obj* x_1540; obj* x_1541; obj* x_1542; obj* x_1545; obj* x_1546; obj* x_1547; obj* x_1548; obj* x_1549; obj* x_1550; -x_1527 = lean::cnstr_get(x_1521, 0); -lean::inc(x_1527); -lean::dec(x_1521); -x_1530 = lean::cnstr_get(x_1, 0); -lean::inc(x_1530); +obj* x_1531; obj* x_1534; obj* x_1537; obj* x_1540; obj* x_1541; obj* x_1542; obj* x_1544; obj* x_1545; obj* x_1546; obj* x_1549; obj* x_1550; obj* x_1551; obj* x_1552; obj* x_1553; obj* x_1554; +x_1531 = lean::cnstr_get(x_1525, 0); +lean::inc(x_1531); +lean::dec(x_1525); +x_1534 = lean::cnstr_get(x_1, 0); +lean::inc(x_1534); lean::dec(x_1); -x_1533 = lean::cnstr_get(x_1530, 2); -lean::inc(x_1533); -lean::dec(x_1530); -x_1536 = l_lean_file__map_to__position(x_1533, x_1527); -x_1537 = lean::box(0); -x_1538 = lean::cnstr_get(x_1536, 1); -lean::inc(x_1538); -x_1540 = l_lean_elaborator_to__pexpr___main___closed__3; -x_1541 = l_lean_kvmap_set__nat(x_1537, x_1540, x_1538); -x_1542 = lean::cnstr_get(x_1536, 0); +x_1537 = lean::cnstr_get(x_1534, 2); +lean::inc(x_1537); +lean::dec(x_1534); +x_1540 = l_lean_file__map_to__position(x_1537, x_1531); +x_1541 = lean::box(0); +x_1542 = lean::cnstr_get(x_1540, 1); lean::inc(x_1542); -lean::dec(x_1536); -x_1545 = l_lean_elaborator_to__pexpr___main___closed__4; -x_1546 = l_lean_kvmap_set__nat(x_1541, x_1545, x_1542); -x_1547 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; -x_1548 = lean_expr_mk_mdata(x_1546, x_1547); -x_1549 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1549, 0, x_1548); -lean::cnstr_set(x_1549, 1, x_2); -x_1550 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1550, 0, x_1549); -return x_1550; +x_1544 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1545 = l_lean_kvmap_set__nat(x_1541, x_1544, x_1542); +x_1546 = lean::cnstr_get(x_1540, 0); +lean::inc(x_1546); +lean::dec(x_1540); +x_1549 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1550 = l_lean_kvmap_set__nat(x_1545, x_1549, x_1546); +x_1551 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; +x_1552 = lean_expr_mk_mdata(x_1550, x_1551); +x_1553 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1553, 0, x_1552); +lean::cnstr_set(x_1553, 1, x_2); +x_1554 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1554, 0, x_1553); +return x_1554; } } else { -obj* x_1553; obj* x_1554; obj* x_1555; +obj* x_1557; obj* x_1558; obj* x_1559; lean::dec(x_1); lean::dec(x_0); -x_1553 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; -x_1554 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1554, 0, x_1553); -lean::cnstr_set(x_1554, 1, x_2); -x_1555 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1555, 0, x_1554); -return x_1555; +x_1557 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; +x_1558 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1558, 0, x_1557); +lean::cnstr_set(x_1558, 1, x_2); +x_1559 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1559, 0, x_1558); +return x_1559; } } else { -lean::dec(x_1519); +lean::dec(x_1523); if (x_21 == 0) { -obj* x_1557; -x_1557 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1561; +x_1561 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1557) == 0) +if (lean::obj_tag(x_1561) == 0) { -obj* x_1560; obj* x_1561; obj* x_1562; +obj* x_1564; obj* x_1565; obj* x_1566; lean::dec(x_1); -x_1560 = l_lean_elaborator_to__pexpr___main___closed__44; -x_1561 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1561, 0, x_1560); -lean::cnstr_set(x_1561, 1, x_2); -x_1562 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1562, 0, x_1561); -return x_1562; +x_1564 = l_lean_elaborator_to__pexpr___main___closed__44; +x_1565 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1565, 0, x_1564); +lean::cnstr_set(x_1565, 1, x_2); +x_1566 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1566, 0, x_1565); +return x_1566; } else { -obj* x_1563; obj* x_1566; obj* x_1569; obj* x_1572; obj* x_1573; obj* x_1574; obj* x_1576; obj* x_1577; obj* x_1578; obj* x_1581; obj* x_1582; obj* x_1583; obj* x_1584; obj* x_1585; obj* x_1586; -x_1563 = lean::cnstr_get(x_1557, 0); -lean::inc(x_1563); -lean::dec(x_1557); -x_1566 = lean::cnstr_get(x_1, 0); -lean::inc(x_1566); +obj* x_1567; obj* x_1570; obj* x_1573; obj* x_1576; obj* x_1577; obj* x_1578; obj* x_1580; obj* x_1581; obj* x_1582; obj* x_1585; obj* x_1586; obj* x_1587; obj* x_1588; obj* x_1589; obj* x_1590; +x_1567 = lean::cnstr_get(x_1561, 0); +lean::inc(x_1567); +lean::dec(x_1561); +x_1570 = lean::cnstr_get(x_1, 0); +lean::inc(x_1570); lean::dec(x_1); -x_1569 = lean::cnstr_get(x_1566, 2); -lean::inc(x_1569); -lean::dec(x_1566); -x_1572 = l_lean_file__map_to__position(x_1569, x_1563); -x_1573 = lean::box(0); -x_1574 = lean::cnstr_get(x_1572, 1); -lean::inc(x_1574); -x_1576 = l_lean_elaborator_to__pexpr___main___closed__3; -x_1577 = l_lean_kvmap_set__nat(x_1573, x_1576, x_1574); -x_1578 = lean::cnstr_get(x_1572, 0); +x_1573 = lean::cnstr_get(x_1570, 2); +lean::inc(x_1573); +lean::dec(x_1570); +x_1576 = l_lean_file__map_to__position(x_1573, x_1567); +x_1577 = lean::box(0); +x_1578 = lean::cnstr_get(x_1576, 1); lean::inc(x_1578); -lean::dec(x_1572); -x_1581 = l_lean_elaborator_to__pexpr___main___closed__4; -x_1582 = l_lean_kvmap_set__nat(x_1577, x_1581, x_1578); -x_1583 = l_lean_elaborator_to__pexpr___main___closed__44; -x_1584 = lean_expr_mk_mdata(x_1582, x_1583); -x_1585 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1585, 0, x_1584); -lean::cnstr_set(x_1585, 1, x_2); -x_1586 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1586, 0, x_1585); -return x_1586; -} -} -else -{ -obj* x_1589; obj* x_1590; obj* x_1591; -lean::dec(x_1); -lean::dec(x_0); -x_1589 = l_lean_elaborator_to__pexpr___main___closed__44; -x_1590 = lean::alloc_cnstr(0, 2, 0); +x_1580 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1581 = l_lean_kvmap_set__nat(x_1577, x_1580, x_1578); +x_1582 = lean::cnstr_get(x_1576, 0); +lean::inc(x_1582); +lean::dec(x_1576); +x_1585 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1586 = l_lean_kvmap_set__nat(x_1581, x_1585, x_1582); +x_1587 = l_lean_elaborator_to__pexpr___main___closed__44; +x_1588 = lean_expr_mk_mdata(x_1586, x_1587); +x_1589 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1589, 0, x_1588); +lean::cnstr_set(x_1589, 1, x_2); +x_1590 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1590, 0, x_1589); -lean::cnstr_set(x_1590, 1, x_2); -x_1591 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1591, 0, x_1590); -return x_1591; +return x_1590; +} +} +else +{ +obj* x_1593; obj* x_1594; obj* x_1595; +lean::dec(x_1); +lean::dec(x_0); +x_1593 = l_lean_elaborator_to__pexpr___main___closed__44; +x_1594 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1594, 0, x_1593); +lean::cnstr_set(x_1594, 1, x_2); +x_1595 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1595, 0, x_1594); +return x_1595; } } } } else { -obj* x_1593; obj* x_1594; obj* x_1598; obj* x_1599; +obj* x_1597; obj* x_1598; obj* x_1602; obj* x_1603; lean::dec(x_9); -x_1593 = l_lean_parser_term_pi_has__view; -x_1594 = lean::cnstr_get(x_1593, 0); -lean::inc(x_1594); -lean::dec(x_1593); +x_1597 = l_lean_parser_term_pi_has__view; +x_1598 = lean::cnstr_get(x_1597, 0); +lean::inc(x_1598); +lean::dec(x_1597); lean::inc(x_0); -x_1598 = lean::apply_1(x_1594, x_0); -x_1599 = lean::cnstr_get(x_1598, 1); -lean::inc(x_1599); -if (lean::obj_tag(x_1599) == 0) +x_1602 = lean::apply_1(x_1598, x_0); +x_1603 = lean::cnstr_get(x_1602, 1); +lean::inc(x_1603); +if (lean::obj_tag(x_1603) == 0) { -obj* x_1603; obj* x_1605; -lean::dec(x_1598); -lean::dec(x_1599); -x_1603 = l_lean_elaborator_to__pexpr___main___closed__45; +obj* x_1607; obj* x_1609; +lean::dec(x_1602); +lean::dec(x_1603); +x_1607 = l_lean_elaborator_to__pexpr___main___closed__45; lean::inc(x_1); -x_1605 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1603, x_1, x_2); +x_1609 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1607, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1605) == 0) +if (lean::obj_tag(x_1609) == 0) { -obj* x_1610; obj* x_1612; obj* x_1613; +obj* x_1614; obj* x_1616; obj* x_1617; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1610 = lean::cnstr_get(x_1605, 0); -if (lean::is_exclusive(x_1605)) { - x_1612 = x_1605; +x_1614 = lean::cnstr_get(x_1609, 0); +if (lean::is_exclusive(x_1609)) { + x_1616 = x_1609; } else { - lean::inc(x_1610); - lean::dec(x_1605); - x_1612 = lean::box(0); + lean::inc(x_1614); + lean::dec(x_1609); + x_1616 = lean::box(0); } -if (lean::is_scalar(x_1612)) { - x_1613 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1616)) { + x_1617 = lean::alloc_cnstr(0, 1, 0); } else { - x_1613 = x_1612; + x_1617 = x_1616; } -lean::cnstr_set(x_1613, 0, x_1610); -return x_1613; +lean::cnstr_set(x_1617, 0, x_1614); +return x_1617; } else { -obj* x_1614; -x_1614 = lean::cnstr_get(x_1605, 0); -lean::inc(x_1614); -lean::dec(x_1605); -x_14 = x_1614; +obj* x_1618; +x_1618 = lean::cnstr_get(x_1609, 0); +lean::inc(x_1618); +lean::dec(x_1609); +x_14 = x_1618; goto lbl_15; } } else { -obj* x_1617; obj* x_1620; obj* x_1621; obj* x_1623; obj* x_1626; obj* x_1628; obj* x_1632; -x_1617 = lean::cnstr_get(x_1599, 0); -lean::inc(x_1617); -lean::dec(x_1599); -x_1620 = l_lean_parser_term_simple__binder_view_to__binder__info___main(x_1617); -x_1621 = lean::cnstr_get(x_1620, 1); +obj* x_1621; obj* x_1624; obj* x_1625; obj* x_1627; obj* x_1630; obj* x_1632; obj* x_1636; +x_1621 = lean::cnstr_get(x_1603, 0); lean::inc(x_1621); -x_1623 = lean::cnstr_get(x_1620, 0); -lean::inc(x_1623); -lean::dec(x_1620); -x_1626 = lean::cnstr_get(x_1621, 0); -lean::inc(x_1626); -x_1628 = lean::cnstr_get(x_1621, 1); -lean::inc(x_1628); -lean::dec(x_1621); +lean::dec(x_1603); +x_1624 = l_lean_parser_term_simple__binder_view_to__binder__info___main(x_1621); +x_1625 = lean::cnstr_get(x_1624, 1); +lean::inc(x_1625); +x_1627 = lean::cnstr_get(x_1624, 0); +lean::inc(x_1627); +lean::dec(x_1624); +x_1630 = lean::cnstr_get(x_1625, 0); +lean::inc(x_1630); +x_1632 = lean::cnstr_get(x_1625, 1); +lean::inc(x_1632); +lean::dec(x_1625); lean::inc(x_1); -x_1632 = l_lean_elaborator_to__pexpr___main(x_1628, x_1, x_2); -if (lean::obj_tag(x_1632) == 0) +x_1636 = l_lean_elaborator_to__pexpr___main(x_1632, x_1, x_2); +if (lean::obj_tag(x_1636) == 0) { -obj* x_1639; obj* x_1641; obj* x_1642; -lean::dec(x_1598); -lean::dec(x_1623); +obj* x_1643; obj* x_1645; obj* x_1646; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1626); -x_1639 = lean::cnstr_get(x_1632, 0); -if (lean::is_exclusive(x_1632)) { - x_1641 = x_1632; +lean::dec(x_1627); +lean::dec(x_1602); +lean::dec(x_1630); +x_1643 = lean::cnstr_get(x_1636, 0); +if (lean::is_exclusive(x_1636)) { + x_1645 = x_1636; } else { - lean::inc(x_1639); - lean::dec(x_1632); - x_1641 = lean::box(0); + lean::inc(x_1643); + lean::dec(x_1636); + x_1645 = lean::box(0); } -if (lean::is_scalar(x_1641)) { - x_1642 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1645)) { + x_1646 = lean::alloc_cnstr(0, 1, 0); } else { - x_1642 = x_1641; + x_1646 = x_1645; } -lean::cnstr_set(x_1642, 0, x_1639); -return x_1642; +lean::cnstr_set(x_1646, 0, x_1643); +return x_1646; } else { -obj* x_1643; obj* x_1646; obj* x_1648; obj* x_1651; obj* x_1655; -x_1643 = lean::cnstr_get(x_1632, 0); -lean::inc(x_1643); -lean::dec(x_1632); -x_1646 = lean::cnstr_get(x_1643, 0); -lean::inc(x_1646); -x_1648 = lean::cnstr_get(x_1643, 1); -lean::inc(x_1648); -lean::dec(x_1643); -x_1651 = lean::cnstr_get(x_1598, 3); -lean::inc(x_1651); -lean::dec(x_1598); +obj* x_1647; obj* x_1650; obj* x_1652; obj* x_1655; obj* x_1659; +x_1647 = lean::cnstr_get(x_1636, 0); +lean::inc(x_1647); +lean::dec(x_1636); +x_1650 = lean::cnstr_get(x_1647, 0); +lean::inc(x_1650); +x_1652 = lean::cnstr_get(x_1647, 1); +lean::inc(x_1652); +lean::dec(x_1647); +x_1655 = lean::cnstr_get(x_1602, 3); +lean::inc(x_1655); +lean::dec(x_1602); lean::inc(x_1); -x_1655 = l_lean_elaborator_to__pexpr___main(x_1651, x_1, x_1648); -if (lean::obj_tag(x_1655) == 0) +x_1659 = l_lean_elaborator_to__pexpr___main(x_1655, x_1, x_1652); +if (lean::obj_tag(x_1659) == 0) { -obj* x_1662; obj* x_1664; obj* x_1665; -lean::dec(x_1623); +obj* x_1666; obj* x_1668; obj* x_1669; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1646); -lean::dec(x_1626); -x_1662 = lean::cnstr_get(x_1655, 0); -if (lean::is_exclusive(x_1655)) { - x_1664 = x_1655; +lean::dec(x_1627); +lean::dec(x_1630); +lean::dec(x_1650); +x_1666 = lean::cnstr_get(x_1659, 0); +if (lean::is_exclusive(x_1659)) { + x_1668 = x_1659; } else { - lean::inc(x_1662); - lean::dec(x_1655); - x_1664 = lean::box(0); + lean::inc(x_1666); + lean::dec(x_1659); + x_1668 = lean::box(0); } -if (lean::is_scalar(x_1664)) { - x_1665 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1668)) { + x_1669 = lean::alloc_cnstr(0, 1, 0); } else { - x_1665 = x_1664; + x_1669 = x_1668; } -lean::cnstr_set(x_1665, 0, x_1662); -return x_1665; +lean::cnstr_set(x_1669, 0, x_1666); +return x_1669; } else { -obj* x_1666; obj* x_1669; obj* x_1671; obj* x_1673; obj* x_1674; uint8 x_1675; obj* x_1676; obj* x_1677; -x_1666 = lean::cnstr_get(x_1655, 0); -lean::inc(x_1666); -lean::dec(x_1655); -x_1669 = lean::cnstr_get(x_1666, 0); -x_1671 = lean::cnstr_get(x_1666, 1); -if (lean::is_exclusive(x_1666)) { - x_1673 = x_1666; +obj* x_1670; obj* x_1673; obj* x_1675; obj* x_1677; obj* x_1678; uint8 x_1679; obj* x_1680; obj* x_1681; +x_1670 = lean::cnstr_get(x_1659, 0); +lean::inc(x_1670); +lean::dec(x_1659); +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_1669); - lean::inc(x_1671); - lean::dec(x_1666); - x_1673 = lean::box(0); + lean::inc(x_1673); + lean::inc(x_1675); + lean::dec(x_1670); + x_1677 = lean::box(0); } -x_1674 = l_lean_elaborator_mangle__ident(x_1626); -x_1675 = lean::unbox(x_1623); -x_1676 = lean_expr_mk_pi(x_1674, x_1675, x_1646, x_1669); -if (lean::is_scalar(x_1673)) { - x_1677 = lean::alloc_cnstr(0, 2, 0); +x_1678 = l_lean_elaborator_mangle__ident(x_1630); +x_1679 = lean::unbox(x_1627); +x_1680 = lean_expr_mk_pi(x_1678, x_1679, x_1650, x_1673); +if (lean::is_scalar(x_1677)) { + x_1681 = lean::alloc_cnstr(0, 2, 0); } else { - x_1677 = x_1673; + x_1681 = x_1677; } -lean::cnstr_set(x_1677, 0, x_1676); -lean::cnstr_set(x_1677, 1, x_1671); -x_14 = x_1677; +lean::cnstr_set(x_1681, 0, x_1680); +lean::cnstr_set(x_1681, 1, x_1675); +x_14 = x_1681; goto lbl_15; } } @@ -12507,169 +12511,169 @@ goto lbl_15; } else { -obj* x_1679; obj* x_1680; obj* x_1684; obj* x_1685; +obj* x_1683; obj* x_1684; obj* x_1688; obj* x_1689; lean::dec(x_9); -x_1679 = l_lean_parser_term_lambda_has__view; -x_1680 = lean::cnstr_get(x_1679, 0); -lean::inc(x_1680); -lean::dec(x_1679); +x_1683 = l_lean_parser_term_lambda_has__view; +x_1684 = lean::cnstr_get(x_1683, 0); +lean::inc(x_1684); +lean::dec(x_1683); lean::inc(x_0); -x_1684 = lean::apply_1(x_1680, x_0); -x_1685 = lean::cnstr_get(x_1684, 1); -lean::inc(x_1685); -if (lean::obj_tag(x_1685) == 0) +x_1688 = lean::apply_1(x_1684, x_0); +x_1689 = lean::cnstr_get(x_1688, 1); +lean::inc(x_1689); +if (lean::obj_tag(x_1689) == 0) { -obj* x_1689; obj* x_1691; -lean::dec(x_1685); -lean::dec(x_1684); -x_1689 = l_lean_elaborator_to__pexpr___main___closed__46; +obj* x_1693; obj* x_1695; +lean::dec(x_1689); +lean::dec(x_1688); +x_1693 = l_lean_elaborator_to__pexpr___main___closed__46; lean::inc(x_1); -x_1691 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1689, x_1, x_2); +x_1695 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1693, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1691) == 0) +if (lean::obj_tag(x_1695) == 0) { -obj* x_1696; obj* x_1698; obj* x_1699; +obj* x_1700; obj* x_1702; obj* x_1703; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1696 = lean::cnstr_get(x_1691, 0); -if (lean::is_exclusive(x_1691)) { - x_1698 = x_1691; +x_1700 = lean::cnstr_get(x_1695, 0); +if (lean::is_exclusive(x_1695)) { + x_1702 = x_1695; } else { - lean::inc(x_1696); - lean::dec(x_1691); - x_1698 = lean::box(0); + lean::inc(x_1700); + lean::dec(x_1695); + x_1702 = lean::box(0); } -if (lean::is_scalar(x_1698)) { - x_1699 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1702)) { + x_1703 = lean::alloc_cnstr(0, 1, 0); } else { - x_1699 = x_1698; + x_1703 = x_1702; } -lean::cnstr_set(x_1699, 0, x_1696); -return x_1699; +lean::cnstr_set(x_1703, 0, x_1700); +return x_1703; } else { -obj* x_1700; -x_1700 = lean::cnstr_get(x_1691, 0); -lean::inc(x_1700); -lean::dec(x_1691); -x_14 = x_1700; +obj* x_1704; +x_1704 = lean::cnstr_get(x_1695, 0); +lean::inc(x_1704); +lean::dec(x_1695); +x_14 = x_1704; goto lbl_15; } } else { -obj* x_1703; obj* x_1706; obj* x_1707; obj* x_1709; obj* x_1712; obj* x_1714; obj* x_1718; -x_1703 = lean::cnstr_get(x_1685, 0); -lean::inc(x_1703); -lean::dec(x_1685); -x_1706 = l_lean_parser_term_simple__binder_view_to__binder__info___main(x_1703); -x_1707 = lean::cnstr_get(x_1706, 1); +obj* x_1707; obj* x_1710; obj* x_1711; obj* x_1713; obj* x_1716; obj* x_1718; obj* x_1722; +x_1707 = lean::cnstr_get(x_1689, 0); lean::inc(x_1707); -x_1709 = lean::cnstr_get(x_1706, 0); -lean::inc(x_1709); -lean::dec(x_1706); -x_1712 = lean::cnstr_get(x_1707, 0); -lean::inc(x_1712); -x_1714 = lean::cnstr_get(x_1707, 1); -lean::inc(x_1714); -lean::dec(x_1707); +lean::dec(x_1689); +x_1710 = l_lean_parser_term_simple__binder_view_to__binder__info___main(x_1707); +x_1711 = lean::cnstr_get(x_1710, 1); +lean::inc(x_1711); +x_1713 = lean::cnstr_get(x_1710, 0); +lean::inc(x_1713); +lean::dec(x_1710); +x_1716 = lean::cnstr_get(x_1711, 0); +lean::inc(x_1716); +x_1718 = lean::cnstr_get(x_1711, 1); +lean::inc(x_1718); +lean::dec(x_1711); lean::inc(x_1); -x_1718 = l_lean_elaborator_to__pexpr___main(x_1714, x_1, x_2); -if (lean::obj_tag(x_1718) == 0) +x_1722 = l_lean_elaborator_to__pexpr___main(x_1718, x_1, x_2); +if (lean::obj_tag(x_1722) == 0) { -obj* x_1725; obj* x_1727; obj* x_1728; +obj* x_1729; obj* x_1731; obj* x_1732; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1684); -lean::dec(x_1712); -lean::dec(x_1709); -x_1725 = lean::cnstr_get(x_1718, 0); -if (lean::is_exclusive(x_1718)) { - x_1727 = x_1718; +lean::dec(x_1716); +lean::dec(x_1713); +lean::dec(x_1688); +x_1729 = lean::cnstr_get(x_1722, 0); +if (lean::is_exclusive(x_1722)) { + x_1731 = x_1722; } else { - lean::inc(x_1725); - lean::dec(x_1718); - x_1727 = lean::box(0); + lean::inc(x_1729); + lean::dec(x_1722); + x_1731 = lean::box(0); } -if (lean::is_scalar(x_1727)) { - x_1728 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1731)) { + x_1732 = lean::alloc_cnstr(0, 1, 0); } else { - x_1728 = x_1727; + x_1732 = x_1731; } -lean::cnstr_set(x_1728, 0, x_1725); -return x_1728; +lean::cnstr_set(x_1732, 0, x_1729); +return x_1732; } else { -obj* x_1729; obj* x_1732; obj* x_1734; obj* x_1737; obj* x_1741; -x_1729 = lean::cnstr_get(x_1718, 0); -lean::inc(x_1729); -lean::dec(x_1718); -x_1732 = lean::cnstr_get(x_1729, 0); -lean::inc(x_1732); -x_1734 = lean::cnstr_get(x_1729, 1); -lean::inc(x_1734); -lean::dec(x_1729); -x_1737 = lean::cnstr_get(x_1684, 3); -lean::inc(x_1737); -lean::dec(x_1684); +obj* x_1733; obj* x_1736; obj* x_1738; obj* x_1741; obj* x_1745; +x_1733 = lean::cnstr_get(x_1722, 0); +lean::inc(x_1733); +lean::dec(x_1722); +x_1736 = lean::cnstr_get(x_1733, 0); +lean::inc(x_1736); +x_1738 = lean::cnstr_get(x_1733, 1); +lean::inc(x_1738); +lean::dec(x_1733); +x_1741 = lean::cnstr_get(x_1688, 3); +lean::inc(x_1741); +lean::dec(x_1688); lean::inc(x_1); -x_1741 = l_lean_elaborator_to__pexpr___main(x_1737, x_1, x_1734); -if (lean::obj_tag(x_1741) == 0) +x_1745 = l_lean_elaborator_to__pexpr___main(x_1741, x_1, x_1738); +if (lean::obj_tag(x_1745) == 0) { -obj* x_1748; obj* x_1750; obj* x_1751; -lean::dec(x_1732); +obj* x_1752; obj* x_1754; obj* x_1755; +lean::dec(x_1736); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1712); -lean::dec(x_1709); -x_1748 = lean::cnstr_get(x_1741, 0); -if (lean::is_exclusive(x_1741)) { - x_1750 = x_1741; +lean::dec(x_1716); +lean::dec(x_1713); +x_1752 = lean::cnstr_get(x_1745, 0); +if (lean::is_exclusive(x_1745)) { + x_1754 = x_1745; } else { - lean::inc(x_1748); - lean::dec(x_1741); - x_1750 = lean::box(0); + lean::inc(x_1752); + lean::dec(x_1745); + x_1754 = lean::box(0); } -if (lean::is_scalar(x_1750)) { - x_1751 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1754)) { + x_1755 = lean::alloc_cnstr(0, 1, 0); } else { - x_1751 = x_1750; + x_1755 = x_1754; } -lean::cnstr_set(x_1751, 0, x_1748); -return x_1751; +lean::cnstr_set(x_1755, 0, x_1752); +return x_1755; } else { -obj* x_1752; obj* x_1755; obj* x_1757; obj* x_1759; obj* x_1760; uint8 x_1761; obj* x_1762; obj* x_1763; -x_1752 = lean::cnstr_get(x_1741, 0); -lean::inc(x_1752); -lean::dec(x_1741); -x_1755 = lean::cnstr_get(x_1752, 0); -x_1757 = lean::cnstr_get(x_1752, 1); -if (lean::is_exclusive(x_1752)) { - x_1759 = x_1752; +obj* x_1756; obj* x_1759; obj* x_1761; obj* x_1763; obj* x_1764; uint8 x_1765; obj* x_1766; obj* x_1767; +x_1756 = lean::cnstr_get(x_1745, 0); +lean::inc(x_1756); +lean::dec(x_1745); +x_1759 = lean::cnstr_get(x_1756, 0); +x_1761 = lean::cnstr_get(x_1756, 1); +if (lean::is_exclusive(x_1756)) { + x_1763 = x_1756; } else { - lean::inc(x_1755); - lean::inc(x_1757); - lean::dec(x_1752); - x_1759 = lean::box(0); + lean::inc(x_1759); + lean::inc(x_1761); + lean::dec(x_1756); + x_1763 = lean::box(0); } -x_1760 = l_lean_elaborator_mangle__ident(x_1712); -x_1761 = lean::unbox(x_1709); -x_1762 = lean_expr_mk_lambda(x_1760, x_1761, x_1732, x_1755); -if (lean::is_scalar(x_1759)) { - x_1763 = lean::alloc_cnstr(0, 2, 0); +x_1764 = l_lean_elaborator_mangle__ident(x_1716); +x_1765 = lean::unbox(x_1713); +x_1766 = lean_expr_mk_lambda(x_1764, x_1765, x_1736, x_1759); +if (lean::is_scalar(x_1763)) { + x_1767 = lean::alloc_cnstr(0, 2, 0); } else { - x_1763 = x_1759; + x_1767 = x_1763; } -lean::cnstr_set(x_1763, 0, x_1762); -lean::cnstr_set(x_1763, 1, x_1757); -x_14 = x_1763; +lean::cnstr_set(x_1767, 0, x_1766); +lean::cnstr_set(x_1767, 1, x_1761); +x_14 = x_1767; goto lbl_15; } } @@ -12678,105 +12682,105 @@ goto lbl_15; } else { -obj* x_1765; obj* x_1766; obj* x_1770; obj* x_1771; obj* x_1774; +obj* x_1769; obj* x_1770; obj* x_1774; obj* x_1775; obj* x_1778; lean::dec(x_9); -x_1765 = l_lean_parser_term_app_has__view; -x_1766 = lean::cnstr_get(x_1765, 0); -lean::inc(x_1766); -lean::dec(x_1765); +x_1769 = l_lean_parser_term_app_has__view; +x_1770 = lean::cnstr_get(x_1769, 0); +lean::inc(x_1770); +lean::dec(x_1769); lean::inc(x_0); -x_1770 = lean::apply_1(x_1766, x_0); -x_1771 = lean::cnstr_get(x_1770, 0); -lean::inc(x_1771); +x_1774 = lean::apply_1(x_1770, x_0); +x_1775 = lean::cnstr_get(x_1774, 0); +lean::inc(x_1775); lean::inc(x_1); -x_1774 = l_lean_elaborator_to__pexpr___main(x_1771, x_1, x_2); -if (lean::obj_tag(x_1774) == 0) +x_1778 = l_lean_elaborator_to__pexpr___main(x_1775, x_1, x_2); +if (lean::obj_tag(x_1778) == 0) { -obj* x_1779; obj* x_1781; obj* x_1782; -lean::dec(x_1770); -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -x_1779 = lean::cnstr_get(x_1774, 0); -if (lean::is_exclusive(x_1774)) { - x_1781 = x_1774; -} else { - lean::inc(x_1779); - lean::dec(x_1774); - x_1781 = lean::box(0); -} -if (lean::is_scalar(x_1781)) { - x_1782 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1782 = x_1781; -} -lean::cnstr_set(x_1782, 0, x_1779); -return x_1782; -} -else -{ -obj* x_1783; obj* x_1786; obj* x_1788; obj* x_1791; obj* x_1795; -x_1783 = lean::cnstr_get(x_1774, 0); -lean::inc(x_1783); +obj* x_1783; obj* x_1785; obj* x_1786; lean::dec(x_1774); -x_1786 = lean::cnstr_get(x_1783, 0); -lean::inc(x_1786); -x_1788 = lean::cnstr_get(x_1783, 1); -lean::inc(x_1788); -lean::dec(x_1783); -x_1791 = lean::cnstr_get(x_1770, 1); -lean::inc(x_1791); -lean::dec(x_1770); -lean::inc(x_1); -x_1795 = l_lean_elaborator_to__pexpr___main(x_1791, x_1, x_1788); -if (lean::obj_tag(x_1795) == 0) -{ -obj* x_1800; obj* x_1802; obj* x_1803; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1786); -x_1800 = lean::cnstr_get(x_1795, 0); -if (lean::is_exclusive(x_1795)) { - x_1802 = x_1795; +x_1783 = lean::cnstr_get(x_1778, 0); +if (lean::is_exclusive(x_1778)) { + x_1785 = x_1778; } else { - lean::inc(x_1800); - lean::dec(x_1795); - x_1802 = lean::box(0); + lean::inc(x_1783); + lean::dec(x_1778); + x_1785 = lean::box(0); } -if (lean::is_scalar(x_1802)) { - x_1803 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1785)) { + x_1786 = lean::alloc_cnstr(0, 1, 0); } else { - x_1803 = x_1802; + x_1786 = x_1785; } -lean::cnstr_set(x_1803, 0, x_1800); -return x_1803; +lean::cnstr_set(x_1786, 0, x_1783); +return x_1786; } else { -obj* x_1804; obj* x_1807; obj* x_1809; obj* x_1811; obj* x_1812; obj* x_1813; -x_1804 = lean::cnstr_get(x_1795, 0); -lean::inc(x_1804); -lean::dec(x_1795); -x_1807 = lean::cnstr_get(x_1804, 0); -x_1809 = lean::cnstr_get(x_1804, 1); -if (lean::is_exclusive(x_1804)) { - x_1811 = x_1804; +obj* x_1787; obj* x_1790; obj* x_1792; obj* x_1795; obj* x_1799; +x_1787 = lean::cnstr_get(x_1778, 0); +lean::inc(x_1787); +lean::dec(x_1778); +x_1790 = lean::cnstr_get(x_1787, 0); +lean::inc(x_1790); +x_1792 = lean::cnstr_get(x_1787, 1); +lean::inc(x_1792); +lean::dec(x_1787); +x_1795 = lean::cnstr_get(x_1774, 1); +lean::inc(x_1795); +lean::dec(x_1774); +lean::inc(x_1); +x_1799 = l_lean_elaborator_to__pexpr___main(x_1795, x_1, x_1792); +if (lean::obj_tag(x_1799) == 0) +{ +obj* x_1804; obj* x_1806; obj* x_1807; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1790); +x_1804 = lean::cnstr_get(x_1799, 0); +if (lean::is_exclusive(x_1799)) { + x_1806 = x_1799; } else { - lean::inc(x_1807); - lean::inc(x_1809); - lean::dec(x_1804); - x_1811 = lean::box(0); + lean::inc(x_1804); + lean::dec(x_1799); + x_1806 = lean::box(0); } -x_1812 = lean_expr_mk_app(x_1786, x_1807); -if (lean::is_scalar(x_1811)) { - x_1813 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1806)) { + x_1807 = lean::alloc_cnstr(0, 1, 0); } else { - x_1813 = x_1811; + x_1807 = x_1806; } -lean::cnstr_set(x_1813, 0, x_1812); -lean::cnstr_set(x_1813, 1, x_1809); -x_14 = x_1813; +lean::cnstr_set(x_1807, 0, x_1804); +return x_1807; +} +else +{ +obj* x_1808; obj* x_1811; obj* x_1813; obj* x_1815; obj* x_1816; obj* x_1817; +x_1808 = lean::cnstr_get(x_1799, 0); +lean::inc(x_1808); +lean::dec(x_1799); +x_1811 = lean::cnstr_get(x_1808, 0); +x_1813 = lean::cnstr_get(x_1808, 1); +if (lean::is_exclusive(x_1808)) { + x_1815 = x_1808; +} else { + lean::inc(x_1811); + lean::inc(x_1813); + lean::dec(x_1808); + x_1815 = lean::box(0); +} +x_1816 = lean_expr_mk_app(x_1790, x_1811); +if (lean::is_scalar(x_1815)) { + x_1817 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1817 = x_1815; +} +lean::cnstr_set(x_1817, 0, x_1816); +lean::cnstr_set(x_1817, 1, x_1813); +x_14 = x_1817; goto lbl_15; } } @@ -12784,91 +12788,78 @@ goto lbl_15; } else { -obj* x_1815; obj* x_1816; obj* x_1820; obj* x_1821; +obj* x_1819; obj* x_1820; obj* x_1824; obj* x_1825; lean::dec(x_9); -x_1815 = l_lean_parser_ident__univs_has__view; -x_1816 = lean::cnstr_get(x_1815, 0); -lean::inc(x_1816); -lean::dec(x_1815); +x_1819 = l_lean_parser_ident__univs_has__view; +x_1820 = lean::cnstr_get(x_1819, 0); +lean::inc(x_1820); +lean::dec(x_1819); lean::inc(x_0); -x_1820 = lean::apply_1(x_1816, x_0); -x_1821 = lean::cnstr_get(x_1820, 1); -lean::inc(x_1821); -if (lean::obj_tag(x_1821) == 0) +x_1824 = lean::apply_1(x_1820, x_0); +x_1825 = lean::cnstr_get(x_1824, 1); +lean::inc(x_1825); +if (lean::obj_tag(x_1825) == 0) { -obj* x_1823; obj* x_1827; obj* x_1828; obj* x_1829; obj* x_1830; obj* x_1833; obj* x_1834; obj* x_1835; obj* x_1836; obj* x_1837; obj* x_1838; uint8 x_1839; -x_1823 = lean::cnstr_get(x_1820, 0); -lean::inc(x_1823); -lean::dec(x_1820); -lean::inc(x_1823); -x_1827 = l_lean_elaborator_mangle__ident(x_1823); -x_1828 = lean::box(0); -x_1829 = lean_expr_mk_const(x_1827, x_1828); -x_1830 = lean::cnstr_get(x_1823, 3); -lean::inc(x_1830); -lean::dec(x_1823); -x_1833 = lean::mk_nat_obj(0u); -x_1834 = l_list_enum__from___main___rarg(x_1833, x_1830); -x_1835 = l_lean_elaborator_to__pexpr___main___closed__47; -x_1836 = l_list_foldl___main___at_lean_elaborator_to__pexpr___main___spec__22(x_1835, x_1834); -x_1837 = lean_expr_mk_mdata(x_1836, x_1829); -x_1838 = l_lean_elaborator_to__pexpr___main___closed__2; -x_1839 = lean_name_dec_eq(x_7, x_1838); +obj* x_1827; 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; obj* x_1842; uint8 x_1843; +x_1827 = lean::cnstr_get(x_1824, 0); +lean::inc(x_1827); +lean::dec(x_1824); +lean::inc(x_1827); +x_1831 = l_lean_elaborator_mangle__ident(x_1827); +x_1832 = lean::box(0); +x_1833 = lean_expr_mk_const(x_1831, x_1832); +x_1834 = lean::cnstr_get(x_1827, 3); +lean::inc(x_1834); +lean::dec(x_1827); +x_1837 = lean::mk_nat_obj(0u); +x_1838 = l_list_enum__from___main___rarg(x_1837, x_1834); +x_1839 = l_lean_elaborator_to__pexpr___main___closed__47; +x_1840 = l_list_foldl___main___at_lean_elaborator_to__pexpr___main___spec__22(x_1839, x_1838); +x_1841 = lean_expr_mk_mdata(x_1840, x_1833); +x_1842 = l_lean_elaborator_to__pexpr___main___closed__2; +x_1843 = lean_name_dec_eq(x_7, x_1842); lean::dec(x_7); -if (x_1839 == 0) +if (x_1843 == 0) { -obj* x_1841; -x_1841 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1845; +x_1845 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1841) == 0) +if (lean::obj_tag(x_1845) == 0) { -obj* x_1844; obj* x_1845; +obj* x_1848; obj* x_1849; lean::dec(x_1); -x_1844 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1844, 0, x_1837); -lean::cnstr_set(x_1844, 1, x_2); -x_1845 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1845, 0, x_1844); -return x_1845; +x_1848 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1848, 0, x_1841); +lean::cnstr_set(x_1848, 1, x_2); +x_1849 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1849, 0, x_1848); +return x_1849; } else { -obj* x_1846; obj* x_1849; obj* x_1852; obj* x_1855; obj* x_1856; obj* x_1858; obj* x_1859; obj* x_1860; obj* x_1863; obj* x_1864; obj* x_1865; obj* x_1866; obj* x_1867; -x_1846 = lean::cnstr_get(x_1841, 0); -lean::inc(x_1846); -lean::dec(x_1841); -x_1849 = lean::cnstr_get(x_1, 0); -lean::inc(x_1849); +obj* x_1850; obj* x_1853; obj* x_1856; obj* x_1859; obj* x_1860; obj* x_1862; obj* x_1863; obj* x_1864; obj* x_1867; obj* x_1868; obj* x_1869; obj* x_1870; obj* x_1871; +x_1850 = lean::cnstr_get(x_1845, 0); +lean::inc(x_1850); +lean::dec(x_1845); +x_1853 = lean::cnstr_get(x_1, 0); +lean::inc(x_1853); lean::dec(x_1); -x_1852 = lean::cnstr_get(x_1849, 2); -lean::inc(x_1852); -lean::dec(x_1849); -x_1855 = l_lean_file__map_to__position(x_1852, x_1846); -x_1856 = lean::cnstr_get(x_1855, 1); +x_1856 = lean::cnstr_get(x_1853, 2); lean::inc(x_1856); -x_1858 = l_lean_elaborator_to__pexpr___main___closed__3; -x_1859 = l_lean_kvmap_set__nat(x_1828, x_1858, x_1856); -x_1860 = lean::cnstr_get(x_1855, 0); +lean::dec(x_1853); +x_1859 = l_lean_file__map_to__position(x_1856, x_1850); +x_1860 = lean::cnstr_get(x_1859, 1); lean::inc(x_1860); -lean::dec(x_1855); -x_1863 = l_lean_elaborator_to__pexpr___main___closed__4; -x_1864 = l_lean_kvmap_set__nat(x_1859, x_1863, x_1860); -x_1865 = lean_expr_mk_mdata(x_1864, x_1837); -x_1866 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1866, 0, x_1865); -lean::cnstr_set(x_1866, 1, x_2); -x_1867 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1867, 0, x_1866); -return x_1867; -} -} -else -{ -obj* x_1870; obj* x_1871; -lean::dec(x_1); -lean::dec(x_0); +x_1862 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1863 = l_lean_kvmap_set__nat(x_1832, x_1862, x_1860); +x_1864 = lean::cnstr_get(x_1859, 0); +lean::inc(x_1864); +lean::dec(x_1859); +x_1867 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1868 = l_lean_kvmap_set__nat(x_1863, x_1867, x_1864); +x_1869 = lean_expr_mk_mdata(x_1868, x_1841); x_1870 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_1870, 0, x_1837); +lean::cnstr_set(x_1870, 0, x_1869); lean::cnstr_set(x_1870, 1, x_2); x_1871 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1871, 0, x_1870); @@ -12877,76 +12868,89 @@ return x_1871; } else { -obj* x_1872; obj* x_1875; obj* x_1878; obj* x_1882; -x_1872 = lean::cnstr_get(x_1820, 0); -lean::inc(x_1872); -lean::dec(x_1820); -x_1875 = lean::cnstr_get(x_1821, 0); -lean::inc(x_1875); -lean::dec(x_1821); -x_1878 = lean::cnstr_get(x_1875, 1); -lean::inc(x_1878); -lean::dec(x_1875); -lean::inc(x_1); -x_1882 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__23(x_1878, x_1, x_2); -if (lean::obj_tag(x_1882) == 0) -{ -obj* x_1887; obj* x_1889; obj* x_1890; -lean::dec(x_7); +obj* x_1874; obj* x_1875; lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1872); -x_1887 = lean::cnstr_get(x_1882, 0); -if (lean::is_exclusive(x_1882)) { - x_1889 = x_1882; -} else { - lean::inc(x_1887); - lean::dec(x_1882); - x_1889 = lean::box(0); +x_1874 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1874, 0, x_1841); +lean::cnstr_set(x_1874, 1, x_2); +x_1875 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1875, 0, x_1874); +return x_1875; } -if (lean::is_scalar(x_1889)) { - x_1890 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1890 = x_1889; -} -lean::cnstr_set(x_1890, 0, x_1887); -return x_1890; } else { -obj* x_1891; obj* x_1894; obj* x_1896; obj* x_1898; obj* x_1900; obj* x_1901; obj* x_1902; obj* x_1905; obj* x_1906; obj* x_1907; obj* x_1908; obj* x_1909; obj* x_1910; -x_1891 = lean::cnstr_get(x_1882, 0); -lean::inc(x_1891); -lean::dec(x_1882); -x_1894 = lean::cnstr_get(x_1891, 0); -x_1896 = lean::cnstr_get(x_1891, 1); -if (lean::is_exclusive(x_1891)) { - x_1898 = x_1891; +obj* x_1876; obj* x_1879; obj* x_1882; obj* x_1886; +x_1876 = lean::cnstr_get(x_1824, 0); +lean::inc(x_1876); +lean::dec(x_1824); +x_1879 = lean::cnstr_get(x_1825, 0); +lean::inc(x_1879); +lean::dec(x_1825); +x_1882 = lean::cnstr_get(x_1879, 1); +lean::inc(x_1882); +lean::dec(x_1879); +lean::inc(x_1); +x_1886 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__23(x_1882, x_1, x_2); +if (lean::obj_tag(x_1886) == 0) +{ +obj* x_1891; obj* x_1893; obj* x_1894; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1876); +x_1891 = lean::cnstr_get(x_1886, 0); +if (lean::is_exclusive(x_1886)) { + x_1893 = x_1886; } else { - lean::inc(x_1894); - lean::inc(x_1896); - lean::dec(x_1891); - x_1898 = lean::box(0); + lean::inc(x_1891); + lean::dec(x_1886); + x_1893 = lean::box(0); } -lean::inc(x_1872); -x_1900 = l_lean_elaborator_mangle__ident(x_1872); -x_1901 = lean_expr_mk_const(x_1900, x_1894); -x_1902 = lean::cnstr_get(x_1872, 3); -lean::inc(x_1902); -lean::dec(x_1872); -x_1905 = lean::mk_nat_obj(0u); -x_1906 = l_list_enum__from___main___rarg(x_1905, x_1902); -x_1907 = l_lean_elaborator_to__pexpr___main___closed__47; -x_1908 = l_list_foldl___main___at_lean_elaborator_to__pexpr___main___spec__24(x_1907, x_1906); -x_1909 = lean_expr_mk_mdata(x_1908, x_1901); -if (lean::is_scalar(x_1898)) { - x_1910 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1893)) { + x_1894 = lean::alloc_cnstr(0, 1, 0); } else { - x_1910 = x_1898; + x_1894 = x_1893; } -lean::cnstr_set(x_1910, 0, x_1909); -lean::cnstr_set(x_1910, 1, x_1896); -x_14 = x_1910; +lean::cnstr_set(x_1894, 0, x_1891); +return x_1894; +} +else +{ +obj* x_1895; obj* x_1898; obj* x_1900; obj* x_1902; obj* x_1904; obj* x_1905; obj* x_1906; obj* x_1909; obj* x_1910; obj* x_1911; obj* x_1912; obj* x_1913; obj* x_1914; +x_1895 = lean::cnstr_get(x_1886, 0); +lean::inc(x_1895); +lean::dec(x_1886); +x_1898 = lean::cnstr_get(x_1895, 0); +x_1900 = lean::cnstr_get(x_1895, 1); +if (lean::is_exclusive(x_1895)) { + x_1902 = x_1895; +} else { + lean::inc(x_1898); + lean::inc(x_1900); + lean::dec(x_1895); + x_1902 = lean::box(0); +} +lean::inc(x_1876); +x_1904 = l_lean_elaborator_mangle__ident(x_1876); +x_1905 = lean_expr_mk_const(x_1904, x_1898); +x_1906 = lean::cnstr_get(x_1876, 3); +lean::inc(x_1906); +lean::dec(x_1876); +x_1909 = lean::mk_nat_obj(0u); +x_1910 = l_list_enum__from___main___rarg(x_1909, x_1906); +x_1911 = l_lean_elaborator_to__pexpr___main___closed__47; +x_1912 = l_list_foldl___main___at_lean_elaborator_to__pexpr___main___spec__24(x_1911, x_1910); +x_1913 = lean_expr_mk_mdata(x_1912, x_1905); +if (lean::is_scalar(x_1902)) { + x_1914 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1914 = x_1902; +} +lean::cnstr_set(x_1914, 0, x_1913); +lean::cnstr_set(x_1914, 1, x_1900); +x_14 = x_1914; goto lbl_15; } } @@ -12955,340 +12959,339 @@ lbl_13: { if (lean::obj_tag(x_12) == 0) { -obj* x_1914; obj* x_1916; obj* x_1917; +obj* x_1918; obj* x_1920; obj* x_1921; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1914 = lean::cnstr_get(x_12, 0); -if (lean::is_exclusive(x_12)) { - x_1916 = x_12; -} else { - lean::inc(x_1914); - lean::dec(x_12); - x_1916 = lean::box(0); -} -if (lean::is_scalar(x_1916)) { - x_1917 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1917 = x_1916; -} -lean::cnstr_set(x_1917, 0, x_1914); -return x_1917; -} -else -{ -obj* x_1918; obj* x_1920; obj* x_1921; obj* x_1923; obj* x_1925; obj* x_1926; uint8 x_1927; x_1918 = lean::cnstr_get(x_12, 0); if (lean::is_exclusive(x_12)) { - lean::cnstr_set(x_12, 0, lean::box(0)); x_1920 = x_12; } else { lean::inc(x_1918); lean::dec(x_12); 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; +if (lean::is_scalar(x_1920)) { + x_1921 = lean::alloc_cnstr(0, 1, 0); } else { - lean::inc(x_1921); - lean::inc(x_1923); - lean::dec(x_1918); - x_1925 = lean::box(0); + x_1921 = x_1920; } -x_1926 = l_lean_elaborator_to__pexpr___main___closed__2; -x_1927 = lean_name_dec_eq(x_7, x_1926); +lean::cnstr_set(x_1921, 0, x_1918); +return x_1921; +} +else +{ +obj* x_1922; obj* x_1924; obj* x_1925; obj* x_1927; obj* x_1929; obj* x_1930; uint8 x_1931; +x_1922 = lean::cnstr_get(x_12, 0); +if (lean::is_exclusive(x_12)) { + lean::cnstr_set(x_12, 0, lean::box(0)); + x_1924 = x_12; +} else { + lean::inc(x_1922); + lean::dec(x_12); + x_1924 = lean::box(0); +} +x_1925 = lean::cnstr_get(x_1922, 0); +x_1927 = lean::cnstr_get(x_1922, 1); +if (lean::is_exclusive(x_1922)) { + lean::cnstr_set(x_1922, 0, lean::box(0)); + lean::cnstr_set(x_1922, 1, lean::box(0)); + x_1929 = x_1922; +} else { + lean::inc(x_1925); + lean::inc(x_1927); + lean::dec(x_1922); + x_1929 = lean::box(0); +} +x_1930 = l_lean_elaborator_to__pexpr___main___closed__2; +x_1931 = lean_name_dec_eq(x_7, x_1930); lean::dec(x_7); -if (x_1927 == 0) +if (x_1931 == 0) { -obj* x_1929; -x_1929 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1933; +x_1933 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1929) == 0) +if (lean::obj_tag(x_1933) == 0) { -obj* x_1932; obj* x_1933; +obj* x_1936; obj* x_1937; lean::dec(x_1); -if (lean::is_scalar(x_1925)) { - x_1932 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1929)) { + x_1936 = lean::alloc_cnstr(0, 2, 0); } else { - x_1932 = x_1925; + x_1936 = x_1929; } -lean::cnstr_set(x_1932, 0, x_1921); -lean::cnstr_set(x_1932, 1, x_1923); -if (lean::is_scalar(x_1920)) { - x_1933 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1936, 0, x_1925); +lean::cnstr_set(x_1936, 1, x_1927); +if (lean::is_scalar(x_1924)) { + x_1937 = lean::alloc_cnstr(1, 1, 0); } else { - x_1933 = x_1920; + x_1937 = x_1924; } -lean::cnstr_set(x_1933, 0, x_1932); -return x_1933; +lean::cnstr_set(x_1937, 0, x_1936); +return x_1937; } else { -obj* x_1934; obj* x_1937; obj* x_1940; obj* x_1943; obj* x_1944; obj* x_1945; obj* x_1947; obj* x_1948; obj* x_1949; obj* x_1952; obj* x_1953; obj* x_1954; obj* x_1955; obj* x_1956; -x_1934 = lean::cnstr_get(x_1929, 0); -lean::inc(x_1934); -lean::dec(x_1929); -x_1937 = lean::cnstr_get(x_1, 0); -lean::inc(x_1937); +obj* x_1938; obj* x_1941; obj* x_1944; obj* x_1947; obj* x_1948; obj* x_1949; obj* x_1951; obj* x_1952; obj* x_1953; obj* x_1956; obj* x_1957; obj* x_1958; obj* x_1959; obj* x_1960; +x_1938 = lean::cnstr_get(x_1933, 0); +lean::inc(x_1938); +lean::dec(x_1933); +x_1941 = lean::cnstr_get(x_1, 0); +lean::inc(x_1941); lean::dec(x_1); -x_1940 = lean::cnstr_get(x_1937, 2); -lean::inc(x_1940); -lean::dec(x_1937); -x_1943 = l_lean_file__map_to__position(x_1940, x_1934); -x_1944 = lean::box(0); -x_1945 = lean::cnstr_get(x_1943, 1); -lean::inc(x_1945); -x_1947 = l_lean_elaborator_to__pexpr___main___closed__3; -x_1948 = l_lean_kvmap_set__nat(x_1944, x_1947, x_1945); -x_1949 = lean::cnstr_get(x_1943, 0); +x_1944 = lean::cnstr_get(x_1941, 2); +lean::inc(x_1944); +lean::dec(x_1941); +x_1947 = l_lean_file__map_to__position(x_1944, x_1938); +x_1948 = lean::box(0); +x_1949 = lean::cnstr_get(x_1947, 1); lean::inc(x_1949); -lean::dec(x_1943); -x_1952 = l_lean_elaborator_to__pexpr___main___closed__4; -x_1953 = l_lean_kvmap_set__nat(x_1948, x_1952, x_1949); -x_1954 = lean_expr_mk_mdata(x_1953, x_1921); -if (lean::is_scalar(x_1925)) { - x_1955 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1955 = x_1925; -} -lean::cnstr_set(x_1955, 0, x_1954); -lean::cnstr_set(x_1955, 1, x_1923); -if (lean::is_scalar(x_1920)) { - x_1956 = lean::alloc_cnstr(1, 1, 0); -} else { - x_1956 = x_1920; -} -lean::cnstr_set(x_1956, 0, x_1955); -return x_1956; -} -} -else -{ -obj* x_1959; obj* x_1960; -lean::dec(x_1); -lean::dec(x_0); -if (lean::is_scalar(x_1925)) { +x_1951 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1952 = l_lean_kvmap_set__nat(x_1948, x_1951, x_1949); +x_1953 = lean::cnstr_get(x_1947, 0); +lean::inc(x_1953); +lean::dec(x_1947); +x_1956 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1957 = l_lean_kvmap_set__nat(x_1952, x_1956, x_1953); +x_1958 = lean_expr_mk_mdata(x_1957, x_1925); +if (lean::is_scalar(x_1929)) { x_1959 = lean::alloc_cnstr(0, 2, 0); } else { - x_1959 = x_1925; + x_1959 = x_1929; } -lean::cnstr_set(x_1959, 0, x_1921); -lean::cnstr_set(x_1959, 1, x_1923); -if (lean::is_scalar(x_1920)) { +lean::cnstr_set(x_1959, 0, x_1958); +lean::cnstr_set(x_1959, 1, x_1927); +if (lean::is_scalar(x_1924)) { x_1960 = lean::alloc_cnstr(1, 1, 0); } else { - x_1960 = x_1920; + x_1960 = x_1924; } lean::cnstr_set(x_1960, 0, x_1959); return x_1960; } } +else +{ +obj* x_1963; obj* x_1964; +lean::dec(x_1); +lean::dec(x_0); +if (lean::is_scalar(x_1929)) { + x_1963 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1963 = x_1929; +} +lean::cnstr_set(x_1963, 0, x_1925); +lean::cnstr_set(x_1963, 1, x_1927); +if (lean::is_scalar(x_1924)) { + x_1964 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1964 = x_1924; +} +lean::cnstr_set(x_1964, 0, x_1963); +return x_1964; +} +} } lbl_15: { -obj* x_1961; obj* x_1963; obj* x_1965; obj* x_1966; uint8 x_1967; -x_1961 = lean::cnstr_get(x_14, 0); -x_1963 = lean::cnstr_get(x_14, 1); +obj* x_1965; obj* x_1967; obj* x_1969; obj* x_1970; uint8 x_1971; +x_1965 = lean::cnstr_get(x_14, 0); +x_1967 = lean::cnstr_get(x_14, 1); if (lean::is_exclusive(x_14)) { lean::cnstr_set(x_14, 0, lean::box(0)); lean::cnstr_set(x_14, 1, lean::box(0)); - x_1965 = x_14; + x_1969 = x_14; } else { - lean::inc(x_1961); - lean::inc(x_1963); + lean::inc(x_1965); + lean::inc(x_1967); lean::dec(x_14); - x_1965 = lean::box(0); + x_1969 = lean::box(0); } -x_1966 = l_lean_elaborator_to__pexpr___main___closed__2; -x_1967 = lean_name_dec_eq(x_7, x_1966); +x_1970 = l_lean_elaborator_to__pexpr___main___closed__2; +x_1971 = lean_name_dec_eq(x_7, x_1970); lean::dec(x_7); -if (x_1967 == 0) +if (x_1971 == 0) { -obj* x_1969; -x_1969 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1973; +x_1973 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1969) == 0) +if (lean::obj_tag(x_1973) == 0) { -obj* x_1972; obj* x_1973; +obj* x_1976; obj* x_1977; lean::dec(x_1); -if (lean::is_scalar(x_1965)) { - x_1972 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_1969)) { + x_1976 = lean::alloc_cnstr(0, 2, 0); } else { - x_1972 = x_1965; + x_1976 = x_1969; } -lean::cnstr_set(x_1972, 0, x_1961); -lean::cnstr_set(x_1972, 1, x_1963); -x_1973 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1973, 0, x_1972); -return x_1973; +lean::cnstr_set(x_1976, 0, x_1965); +lean::cnstr_set(x_1976, 1, x_1967); +x_1977 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1977, 0, x_1976); +return x_1977; } else { -obj* x_1974; obj* x_1977; obj* x_1980; obj* x_1983; obj* x_1984; obj* x_1985; obj* x_1987; obj* x_1988; obj* x_1989; obj* x_1992; obj* x_1993; obj* x_1994; obj* x_1995; obj* x_1996; -x_1974 = lean::cnstr_get(x_1969, 0); -lean::inc(x_1974); -lean::dec(x_1969); -x_1977 = lean::cnstr_get(x_1, 0); -lean::inc(x_1977); +obj* x_1978; obj* x_1981; obj* x_1984; obj* x_1987; obj* x_1988; obj* x_1989; obj* x_1991; obj* x_1992; obj* x_1993; obj* x_1996; obj* x_1997; obj* x_1998; obj* x_1999; obj* x_2000; +x_1978 = lean::cnstr_get(x_1973, 0); +lean::inc(x_1978); +lean::dec(x_1973); +x_1981 = lean::cnstr_get(x_1, 0); +lean::inc(x_1981); lean::dec(x_1); -x_1980 = lean::cnstr_get(x_1977, 2); -lean::inc(x_1980); -lean::dec(x_1977); -x_1983 = l_lean_file__map_to__position(x_1980, x_1974); -x_1984 = lean::box(0); -x_1985 = lean::cnstr_get(x_1983, 1); -lean::inc(x_1985); -x_1987 = l_lean_elaborator_to__pexpr___main___closed__3; -x_1988 = l_lean_kvmap_set__nat(x_1984, x_1987, x_1985); -x_1989 = lean::cnstr_get(x_1983, 0); +x_1984 = lean::cnstr_get(x_1981, 2); +lean::inc(x_1984); +lean::dec(x_1981); +x_1987 = l_lean_file__map_to__position(x_1984, x_1978); +x_1988 = lean::box(0); +x_1989 = lean::cnstr_get(x_1987, 1); lean::inc(x_1989); -lean::dec(x_1983); -x_1992 = l_lean_elaborator_to__pexpr___main___closed__4; -x_1993 = l_lean_kvmap_set__nat(x_1988, x_1992, x_1989); -x_1994 = lean_expr_mk_mdata(x_1993, x_1961); -if (lean::is_scalar(x_1965)) { - x_1995 = lean::alloc_cnstr(0, 2, 0); -} else { - x_1995 = x_1965; -} -lean::cnstr_set(x_1995, 0, x_1994); -lean::cnstr_set(x_1995, 1, x_1963); -x_1996 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_1996, 0, x_1995); -return x_1996; -} -} -else -{ -obj* x_1999; obj* x_2000; -lean::dec(x_1); -lean::dec(x_0); -if (lean::is_scalar(x_1965)) { +x_1991 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1992 = l_lean_kvmap_set__nat(x_1988, x_1991, x_1989); +x_1993 = lean::cnstr_get(x_1987, 0); +lean::inc(x_1993); +lean::dec(x_1987); +x_1996 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1997 = l_lean_kvmap_set__nat(x_1992, x_1996, x_1993); +x_1998 = lean_expr_mk_mdata(x_1997, x_1965); +if (lean::is_scalar(x_1969)) { x_1999 = lean::alloc_cnstr(0, 2, 0); } else { - x_1999 = x_1965; + x_1999 = x_1969; } -lean::cnstr_set(x_1999, 0, x_1961); -lean::cnstr_set(x_1999, 1, x_1963); +lean::cnstr_set(x_1999, 0, x_1998); +lean::cnstr_set(x_1999, 1, x_1967); x_2000 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_2000, 0, x_1999); return x_2000; } } +else +{ +obj* x_2003; obj* x_2004; +lean::dec(x_1); +lean::dec(x_0); +if (lean::is_scalar(x_1969)) { + x_2003 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2003 = x_1969; +} +lean::cnstr_set(x_2003, 0, x_1965); +lean::cnstr_set(x_2003, 1, x_1967); +x_2004 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2004, 0, x_2003); +return x_2004; +} +} lbl_17: { -obj* x_2001; -x_2001 = lean::cnstr_get(x_16, 0); -lean::inc(x_2001); -if (lean::obj_tag(x_2001) == 0) +obj* x_2005; +x_2005 = lean::cnstr_get(x_16, 0); +lean::inc(x_2005); +if (lean::obj_tag(x_2005) == 0) { -obj* x_2004; obj* x_2007; obj* x_2009; +obj* x_2008; obj* x_2011; obj* x_2013; lean::dec(x_9); -x_2004 = lean::cnstr_get(x_16, 1); -lean::inc(x_2004); +x_2008 = lean::cnstr_get(x_16, 1); +lean::inc(x_2008); lean::dec(x_16); -x_2007 = l_lean_elaborator_to__pexpr___main___closed__5; +x_2011 = l_lean_elaborator_to__pexpr___main___closed__5; lean::inc(x_1); -x_2009 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_2007, x_1, x_2004); -lean::dec(x_2004); -if (lean::obj_tag(x_2009) == 0) +x_2013 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_2011, x_1, x_2008); +lean::dec(x_2008); +if (lean::obj_tag(x_2013) == 0) { -obj* x_2014; obj* x_2016; obj* x_2017; +obj* x_2018; obj* x_2020; obj* x_2021; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_2014 = lean::cnstr_get(x_2009, 0); -if (lean::is_exclusive(x_2009)) { - x_2016 = x_2009; +x_2018 = lean::cnstr_get(x_2013, 0); +if (lean::is_exclusive(x_2013)) { + x_2020 = x_2013; } else { - lean::inc(x_2014); - lean::dec(x_2009); - x_2016 = lean::box(0); + lean::inc(x_2018); + lean::dec(x_2013); + x_2020 = lean::box(0); } -if (lean::is_scalar(x_2016)) { - x_2017 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2020)) { + x_2021 = lean::alloc_cnstr(0, 1, 0); } else { - x_2017 = x_2016; + x_2021 = x_2020; } -lean::cnstr_set(x_2017, 0, x_2014); -return x_2017; +lean::cnstr_set(x_2021, 0, x_2018); +return x_2021; } else { -obj* x_2018; -x_2018 = lean::cnstr_get(x_2009, 0); -lean::inc(x_2018); -lean::dec(x_2009); -x_14 = x_2018; +obj* x_2022; +x_2022 = lean::cnstr_get(x_2013, 0); +lean::inc(x_2022); +lean::dec(x_2013); +x_14 = x_2022; goto lbl_15; } } else { -obj* x_2021; obj* x_2023; obj* x_2024; obj* x_2026; obj* x_2029; obj* x_2030; obj* x_2031; obj* x_2033; obj* x_2034; obj* x_2035; obj* x_2036; obj* x_2038; obj* x_2039; -x_2021 = lean::cnstr_get(x_16, 1); +obj* x_2025; obj* x_2027; obj* x_2028; obj* x_2030; obj* x_2033; obj* x_2034; obj* x_2035; obj* x_2036; obj* x_2037; obj* x_2038; obj* x_2039; obj* x_2041; obj* x_2042; +x_2025 = lean::cnstr_get(x_16, 1); if (lean::is_exclusive(x_16)) { lean::cnstr_release(x_16, 0); - x_2023 = x_16; + x_2027 = x_16; } else { - lean::inc(x_2021); + lean::inc(x_2025); lean::dec(x_16); - x_2023 = lean::box(0); + x_2027 = lean::box(0); } -x_2024 = lean::cnstr_get(x_2001, 0); -lean::inc(x_2024); -x_2026 = lean::cnstr_get(x_2001, 1); -lean::inc(x_2026); -lean::dec(x_2001); -x_2029 = lean::box(0); -x_2030 = lean::mk_nat_obj(0u); -x_2031 = l_list_length__aux___main___rarg(x_9, x_2030); -lean::dec(x_9); -x_2033 = l_lean_elaborator_to__pexpr___main___closed__6; -x_2034 = l_lean_kvmap_set__nat(x_2029, x_2033, x_2031); -x_2035 = l_list_reverse___rarg(x_2026); -x_2036 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__1(x_2024, x_2035); -lean::dec(x_2024); -x_2038 = lean_expr_mk_mdata(x_2034, x_2036); -if (lean::is_scalar(x_2023)) { - x_2039 = lean::alloc_cnstr(0, 2, 0); +x_2028 = lean::cnstr_get(x_2005, 0); +lean::inc(x_2028); +x_2030 = lean::cnstr_get(x_2005, 1); +lean::inc(x_2030); +lean::dec(x_2005); +x_2033 = lean::box(0); +x_2034 = lean::mk_nat_obj(0u); +x_2035 = l_list_length__aux___main___rarg(x_9, x_2034); +x_2036 = l_lean_elaborator_to__pexpr___main___closed__6; +x_2037 = l_lean_kvmap_set__nat(x_2033, x_2036, x_2035); +x_2038 = l_list_reverse___rarg(x_2030); +x_2039 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__1(x_2028, x_2038); +lean::dec(x_2028); +x_2041 = lean_expr_mk_mdata(x_2037, x_2039); +if (lean::is_scalar(x_2027)) { + x_2042 = lean::alloc_cnstr(0, 2, 0); } else { - x_2039 = x_2023; + x_2042 = x_2027; } -lean::cnstr_set(x_2039, 0, x_2038); -lean::cnstr_set(x_2039, 1, x_2021); -x_14 = x_2039; +lean::cnstr_set(x_2042, 0, x_2041); +lean::cnstr_set(x_2042, 1, x_2025); +x_14 = x_2042; goto lbl_15; } } } default: { -obj* x_2040; -x_2040 = lean::box(0); -x_3 = x_2040; +obj* x_2043; +x_2043 = lean::box(0); +x_3 = x_2043; goto lbl_4; } } lbl_4: { -obj* x_2043; obj* x_2044; obj* x_2045; obj* x_2046; obj* x_2047; obj* x_2049; +obj* x_2046; obj* x_2047; obj* x_2048; obj* x_2049; obj* x_2050; obj* x_2052; lean::dec(x_3); lean::inc(x_0); -x_2043 = l_lean_parser_syntax_to__format___main(x_0); -x_2044 = lean::mk_nat_obj(80u); -x_2045 = l_lean_format_pretty(x_2043, x_2044); -x_2046 = l_lean_elaborator_to__pexpr___main___closed__1; -x_2047 = lean::string_append(x_2046, x_2045); -lean::dec(x_2045); -x_2049 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_2047, x_1, x_2); +x_2046 = l_lean_parser_syntax_to__format___main(x_0); +x_2047 = lean::mk_nat_obj(80u); +x_2048 = l_lean_format_pretty(x_2046, x_2047); +x_2049 = l_lean_elaborator_to__pexpr___main___closed__1; +x_2050 = lean::string_append(x_2049, x_2048); +lean::dec(x_2048); +x_2052 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_2050, x_1, x_2); lean::dec(x_2); lean::dec(x_0); -return x_2049; +return x_2052; } } } @@ -22264,7 +22267,7 @@ x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); lean::inc(x_1); -x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3___boxed), 2, 1); +x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6___boxed), 2, 1); lean::closure_set(x_7, 0, x_1); x_8 = l_lean_elaborator_yield__to__outside___rarg___lambda__2___closed__1; x_9 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); diff --git a/src/boot/init/lean/expander.cpp b/src/boot/init/lean/expander.cpp index 2c856b7906..97b364828b 100644 --- a/src/boot/init/lean/expander.cpp +++ b/src/boot/init/lean/expander.cpp @@ -30,7 +30,6 @@ obj* l_lean_expander_coe__name__ident(obj*); obj* l_lean_expander_variable_transform___boxed(obj*, obj*); obj* l_lean_expander_expand__bracketed__binder(obj*, obj*); obj* l_lean_expander_sorry_transform___closed__1; -obj* l_id___boxed(obj*); obj* l_lean_expander_pi_transform___lambda__1(obj*, obj*, obj*); extern obj* l_lean_parser_term_binder__ident_has__view; obj* l_lean_expander_if_transform___closed__1; @@ -66,6 +65,7 @@ extern obj* l_lean_parser_command_variable; extern obj* l_lean_parser_term_match_has__view; obj* l_lean_expander_mixfix_transform___closed__1; obj* l_lean_expander_coe__binders__ext___rarg(obj*, obj*); +obj* l_id_monad___lambda__1(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_term_if_has__view; extern obj* l_lean_parser_term_bracketed__binders; obj* l_lean_parser_string__lit_has__view_x_27___lambda__1(obj*); @@ -155,6 +155,7 @@ obj* l_lean_expander_error___at_lean_expander_mk__notation__transformer___spec__ obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__15___boxed(obj*, obj*, obj*); obj* l_list_join___main___rarg(obj*); obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg(obj*, obj*); +obj* l_id_bind(obj*, obj*); obj* l_coe___at_lean_expander_mk__notation__transformer___spec__2(obj*); obj* l_list_mmap___main___at_lean_expander_variables_transform___spec__1___closed__1; obj* l_lean_parser_syntax_get__pos(obj*); @@ -195,6 +196,7 @@ uint8 nat_dec_eq(obj*, obj*); } extern obj* l_lean_parser_term__parser__m_lean_parser_monad__parsec; obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__3___closed__1; +obj* l_id(obj*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__2(uint8, obj*, obj*); obj* l_lean_expander_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_expander_binding__annotation__update; @@ -243,6 +245,7 @@ obj* l_lean_expander_error___at___private_init_lean_expander_1__pop__stx__arg___ obj* l_list_mmap___main___at_lean_expander_bracketed__binders_transform___spec__1(obj*, obj*); obj* l_list_foldr1__opt___main___at_lean_expander_paren_transform___spec__2(obj*, obj*); obj* l_list_map___main___at_lean_expander_mk__notation__transformer___spec__3(obj*); +obj* l_id_monad___lambda__3(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_ident__univs_has__view; obj* l_list_foldr___main___at_lean_expander_expand__binders___spec__2___boxed(obj*, obj*, obj*, obj*); obj* l_lean_expander_subtype_transform___boxed(obj*, obj*); @@ -252,7 +255,6 @@ obj* l_lean_expander_mk__simple__binder___closed__6; obj* l_lean_parser_try__view___at_lean_expander_mk__notation__transformer___spec__6(obj*); extern obj* l_lean_parser_term_assume_has__view; extern obj* l_lean_parser_command_intro__rule; -obj* l_id_monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__1(obj*); obj* l_lean_expander_binder__ident__to__ident___main___closed__1; obj* l_lean_expander_transform__m_monad__except; @@ -318,7 +320,6 @@ obj* l_lean_expander_mk__simple__binder___closed__1; extern obj* l_lean_parser_command_notation__spec_precedence_has__view; obj* l_lean_expander_variable_transform(obj*, obj*); obj* l_lean_expander_expand__bracketed__binder___main___closed__5; -obj* l_id_bind___boxed(obj*, obj*); obj* l_lean_expander_expand__binders(obj*, obj*, obj*, obj*); obj* l_lean_expander_mk__scope___boxed(obj*, obj*); obj* l_lean_expander_mk__simple__binder___closed__5; @@ -333,6 +334,7 @@ extern obj* l_lean_parser_term_lambda; extern obj* l_lean_parser_term_arrow; obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__2___boxed(obj*, obj*, obj*); obj* l_lean_expander_get__opt__type(obj*); +obj* l_id_monad___lambda__2(obj*, obj*, obj*, obj*); obj* l_lean_expander_reserve__mixfix_transform(obj*, obj*); obj* l_list_foldr1___main___at_lean_expander_paren_transform___spec__3___closed__1; obj* l_lean_expander_level_leading_transform(obj*, obj*); @@ -363,7 +365,6 @@ obj* l_list_foldl___main___at_lean_parser_term_mk__app___spec__1(obj*, obj*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__6___boxed(obj*, obj*); obj* l_lean_parser_substring_of__string(obj*); obj* l_lean_expander_mk__simple__binder___closed__3; -obj* l_id_monad___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_lean_expander_let_transform(obj*, obj*); extern obj* l_lean_parser_term_let; obj* l_lean_expander_expand__bracketed__binder___main___closed__7; @@ -372,7 +373,6 @@ obj* l_list_mmap___main___at___private_init_lean_expander_2__expand__core___main extern obj* l_lean_parser_command_notation_has__view; obj* l_list_map___main___at___private_init_lean_expander_2__expand__core___main___spec__4(obj*, obj*); obj* l_list_mmap___main___at_lean_expander_variables_transform___spec__1(obj*, obj*); -obj* l_id_monad___lambda__3___boxed(obj*, obj*, obj*, obj*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__4___boxed(obj*, obj*, obj*); obj* l_lean_expander_constant_transform(obj*, obj*); obj* l_lean_expander_binder__ident__to__ident___boxed(obj*); @@ -400,22 +400,22 @@ obj* _init_l_lean_expander_transform__m_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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -428,22 +428,22 @@ obj* _init_l_lean_expander_transform__m_monad__reader() { _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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -457,22 +457,22 @@ obj* _init_l_lean_expander_transform__m_monad__except() { _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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); diff --git a/src/boot/init/lean/frontend.cpp b/src/boot/init/lean/frontend.cpp index 0a3f2c4cad..72c8ae33f4 100644 --- a/src/boot/init/lean/frontend.cpp +++ b/src/boot/init/lean/frontend.cpp @@ -1,6 +1,6 @@ // Lean compiler output // Module: init.lean.frontend -// Imports: init.default init.lean.parser.module init.lean.expander init.lean.elaborator init.io +// Imports: init.default init.lean.parser.module init.lean.expander init.lean.elaborator init.lean.util init.io #include "runtime/object.h" #include "runtime/apply.h" typedef lean::object obj; typedef lean::usize usize; @@ -21,22 +21,21 @@ obj* l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed( obj* l_lean_run__frontend___boxed(obj*, obj*, obj*, obj*); obj* l_lean_expander_expand(obj*, obj*); extern obj* l_lean_elaborator_notation_elaborate___closed__1; -obj* l_lean_run__parser___boxed(obj*, obj*); extern obj* l_lean_parser_module_tokens; obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___boxed(obj*, obj*); obj* l_lean_parser_mk__token__trie(obj*); obj* l_lean_parser_run___at_lean_run__frontend___spec__1(obj*, obj*, obj*); obj* l_lean_process__file___lambda__1___closed__6; +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1(obj*, obj*, obj*); obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2(obj*, obj*); extern "C" obj* lean_io_prim_put_str(obj*, obj*); obj* l_lean_process__file___lambda__1___closed__3; obj* l_list_reverse___rarg(obj*); uint8 l_lean_parser_syntax_is__of__kind___main(obj*, obj*); obj* l_string_quote(obj*); -obj* l_coroutine_resume___rarg(obj*, obj*); +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5; obj* l_lean_parser_message__of__parsec__message___rarg(obj*, obj*); extern obj* l_lean_expander_builtin__transformers; -obj* l_lean_run__expander(obj*, obj*); obj* l_lean_mk__config(obj*, obj*); obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l_lean_process__file___lambda__1___closed__5; @@ -51,21 +50,19 @@ obj* l_lean_process__file___lambda__1___closed__2; obj* l_lean_process__file___closed__1; obj* l_io_println___at_lean_run__frontend___spec__3___boxed(obj*, obj*); extern obj* l_lean_parser_term_builtin__trailing__parsers_lean_parser_has__tokens; +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4; extern obj* l_lean_parser_term_builtin__leading__parsers; obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_lean_process__file___lambda__1___closed__1; obj* l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_tokens___rarg(obj*); -obj* l_lean_run__elaborator___rarg(obj*, obj*); obj* l_list_mmap_x_27___main___at_lean_run__frontend___spec__8(obj*, obj*, obj*); obj* l_lean_parser_run___at_lean_run__frontend___spec__1___lambda__1(obj*, obj*); extern obj* l_lean_parser_module_eoi; obj* l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___closed__1; obj* l_lean_elaborator_run(obj*); extern obj* l_lean_message__log_empty; -obj* l_lean_run__parser(obj*, obj*); extern obj* l_lean_format_be___main___closed__1; -obj* l_reader__t_run___rarg(obj*, obj*); obj* l_coroutine_bind___main___rarg(obj*, obj*, obj*); extern obj* l_string_join___closed__1; obj* l_list_mmap_x_27___main___at_lean_run__frontend___spec__11(obj*, obj*, obj*); @@ -75,16 +72,15 @@ extern obj* l_lean_parser_run___rarg___closed__1; obj* l_lean_process__file___lambda__1___boxed(obj*, obj*, obj*); obj* l_lean_message_to__string(obj*); obj* l_lean_process__file___lambda__1___closed__7; -obj* l_lean_run__expander___boxed(obj*, obj*); obj* l_lean_file__map_from__string(obj*); obj* l_lean_process__file___boxed(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_term_builtin__leading__parsers_lean_parser_has__tokens; -obj* l_lean_run__expander___rarg(obj*, obj*); obj* l_list_mmap_x_27___main___at_lean_run__frontend___spec__10(obj*, obj*, obj*); obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___closed__1; namespace lean { obj* string_mk_iterator(obj*); } +obj* l_reader__t_monad___rarg___lambda__9___boxed(obj*, obj*, obj*); obj* l_io_print___at_lean_run__frontend___spec__4(obj*, obj*); extern obj* l_lean_parser_command_builtin__command__parsers; obj* l_option_get___main___at_lean_parser_run___spec__2(obj*); @@ -93,21 +89,21 @@ obj* l_io_prim_iterate__eio___at_lean_run__frontend___spec__13(obj*, obj*, obj*, extern obj* l_lean_parser_command_builtin__command__parsers_lean_parser_has__tokens; extern obj* l_lean_parser_term_builtin__trailing__parsers; obj* l_nat_repr(obj*); +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1___boxed(obj*, obj*, obj*); obj* l_lean_process__file___lambda__1___closed__9; -obj* l_lean_run__elaborator(obj*, obj*); obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2; obj* l_io_print___at_lean_run__frontend___spec__4___boxed(obj*, obj*); obj* l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___lambda__1(obj*, obj*, obj*, obj*); -obj* l_lean_run__elaborator___boxed(obj*, obj*); obj* l_list_append___rarg(obj*, obj*); obj* l_list_mmap_x_27___main___at_lean_run__frontend___spec__9(obj*, obj*, obj*); obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___lambda__1(obj*); -obj* l_lean_run__parser___rarg(obj*, obj*); obj* l_list_mmap_x_27___main___at_lean_run__frontend___spec__7(obj*, obj*, obj*); obj* l_list_mmap_x_27___main___at_lean_run__frontend___spec__6___closed__1; obj* l___private_init_io_12__put__str___at_lean_run__frontend___spec__5___boxed(obj*, obj*); obj* l_lean_process__file___lambda__1(uint8, obj*, obj*); +obj* l_lean_profileit__pure___rarg(obj*, obj*, obj*, obj*); obj* l_lean_process__file___lambda__1___closed__4; +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3; obj* l_lean_mk__config(obj* x_0, obj* x_1) { _start: { @@ -188,84 +184,6 @@ return x_33; } } } -obj* l_lean_run__parser___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_lean_run__parser(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_lean_run__parser___rarg), 2, 0); -return x_2; -} -} -obj* l_lean_run__parser___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_lean_run__parser(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} -obj* l_lean_run__expander___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_lean_run__expander(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_lean_run__expander___rarg), 2, 0); -return x_2; -} -} -obj* l_lean_run__expander___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_lean_run__expander(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} -obj* l_lean_run__elaborator___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_lean_run__elaborator(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::alloc_closure(reinterpret_cast(l_lean_run__elaborator___rarg), 2, 0); -return x_2; -} -} -obj* l_lean_run__elaborator___boxed(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = l_lean_run__elaborator(x_0, x_1); -lean::dec(x_0); -lean::dec(x_1); -return x_2; -} -} obj* l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___lambda__1(obj* x_0) { _start: { @@ -1145,15 +1063,50 @@ goto _start; } } } +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_6; +x_3 = lean::cnstr_get(x_0, 0); +lean::inc(x_3); +lean::dec(x_0); +x_6 = l_lean_expander_expand(x_3, x_1); +return x_6; +} +} obj* _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__1() { _start: { obj* x_0; +x_0 = lean::mk_string("parsing"); +return x_0; +} +} +obj* _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2() { +_start: +{ +obj* x_0; x_0 = lean::mk_string("parser died!!"); return x_0; } } -obj* _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2() { +obj* _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3() { +_start: +{ +obj* x_0; +x_0 = lean::mk_string("expanding"); +return x_0; +} +} +obj* _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4() { +_start: +{ +obj* x_0; +x_0 = lean::mk_string("elaborating"); +return x_0; +} +} +obj* _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5() { _start: { obj* x_0; @@ -1164,7 +1117,7 @@ return x_0; obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_15; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_23; obj* x_25; obj* x_26; obj* x_28; +obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_12; obj* x_15; obj* x_18; obj* x_20; obj* x_21; obj* x_23; obj* x_25; obj* x_27; obj* x_28; x_6 = lean::cnstr_get(x_1, 1); lean::inc(x_6); x_8 = lean::cnstr_get(x_6, 1); @@ -1175,15 +1128,8 @@ x_12 = lean::cnstr_get(x_1, 0); lean::inc(x_12); lean::dec(x_1); x_15 = lean::cnstr_get(x_6, 0); -if (lean::is_exclusive(x_6)) { - lean::cnstr_set(x_6, 0, lean::box(0)); - lean::cnstr_release(x_6, 1); - x_17 = x_6; -} else { - lean::inc(x_15); - lean::dec(x_6); - x_17 = lean::box(0); -} +lean::inc(x_15); +lean::dec(x_6); x_18 = lean::cnstr_get(x_8, 0); if (lean::is_exclusive(x_8)) { lean::cnstr_set(x_8, 0, lean::box(0)); @@ -1206,1092 +1152,1232 @@ if (lean::is_exclusive(x_10)) { lean::dec(x_10); x_25 = lean::box(0); } -x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_resume___rarg), 2, 1); -lean::closure_set(x_26, 0, x_12); lean::inc(x_18); -x_28 = l_lean_run__parser___rarg(x_26, x_18); -if (lean::obj_tag(x_28) == 0) +x_27 = lean::alloc_closure(reinterpret_cast(l_reader__t_monad___rarg___lambda__9___boxed), 3, 2); +lean::closure_set(x_27, 0, x_12); +lean::closure_set(x_27, 1, x_18); +if (lean::obj_tag(x_23) == 0) { -obj* x_36; obj* x_37; obj* x_38; -lean::dec(x_25); -lean::dec(x_17); -lean::dec(x_20); -lean::dec(x_15); -lean::dec(x_18); -lean::dec(x_21); -lean::dec(x_28); -x_36 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__1; -x_37 = l_io_println___at_lean_run__frontend___spec__3(x_36, x_2); -x_38 = lean::cnstr_get(x_37, 0); -lean::inc(x_38); -if (lean::obj_tag(x_38) == 0) -{ -obj* x_41; obj* x_44; obj* x_46; obj* x_47; -lean::dec(x_23); -x_41 = lean::cnstr_get(x_37, 1); -lean::inc(x_41); -lean::dec(x_37); -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); -} -if (lean::is_scalar(x_46)) { - x_47 = lean::alloc_cnstr(0, 1, 0); -} else { - x_47 = x_46; -} -lean::cnstr_set(x_47, 0, x_44); -x_3 = x_47; -x_4 = x_41; -goto lbl_5; +obj* x_30; +x_30 = l_lean_elaborator_notation_elaborate___closed__1; +x_28 = x_30; +goto lbl_29; } else { -obj* x_48; obj* x_49; obj* x_52; obj* x_53; obj* x_54; -if (lean::is_exclusive(x_38)) { - lean::cnstr_release(x_38, 0); - x_48 = x_38; -} else { - lean::dec(x_38); - x_48 = lean::box(0); -} -x_49 = lean::cnstr_get(x_37, 1); -lean::inc(x_49); -lean::dec(x_37); -x_52 = l_list_reverse___rarg(x_23); -x_53 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_53, 0, x_52); -if (lean::is_scalar(x_48)) { - x_54 = lean::alloc_cnstr(1, 1, 0); -} else { - x_54 = x_48; -} -lean::cnstr_set(x_54, 0, x_53); -x_3 = x_54; -x_4 = x_49; -goto lbl_5; -} -} -else -{ -obj* x_55; obj* x_57; obj* x_60; obj* x_62; -x_55 = lean::cnstr_get(x_28, 0); -lean::inc(x_55); -x_57 = lean::cnstr_get(x_28, 1); -lean::inc(x_57); -lean::dec(x_28); -x_60 = lean::cnstr_get(x_55, 1); -lean::inc(x_60); -x_62 = l_list_reverse___rarg(x_60); -if (lean::obj_tag(x_62) == 0) -{ -obj* x_63; obj* x_65; obj* x_66; obj* x_68; -x_63 = lean::cnstr_get(x_55, 0); -lean::inc(x_63); -x_65 = lean::alloc_closure(reinterpret_cast(l_lean_expander_expand), 2, 1); -lean::closure_set(x_65, 0, x_63); -x_66 = lean::alloc_closure(reinterpret_cast(l_reader__t_run___rarg), 2, 1); -lean::closure_set(x_66, 0, x_65); -lean::inc(x_21); -x_68 = l_lean_run__expander___rarg(x_66, x_21); -if (lean::obj_tag(x_68) == 0) -{ -obj* x_69; obj* x_73; obj* x_74; -x_69 = lean::cnstr_get(x_68, 0); -lean::inc(x_69); -lean::dec(x_68); -lean::inc(x_0); -x_73 = lean::apply_2(x_0, x_69, x_2); -x_74 = lean::cnstr_get(x_73, 0); -lean::inc(x_74); -if (lean::obj_tag(x_74) == 0) -{ -obj* x_85; obj* x_88; obj* x_90; obj* x_91; -lean::dec(x_25); -lean::dec(x_17); -lean::dec(x_20); -lean::dec(x_55); -lean::dec(x_15); -lean::dec(x_18); -lean::dec(x_21); -lean::dec(x_23); -lean::dec(x_57); -x_85 = lean::cnstr_get(x_73, 1); -lean::inc(x_85); -lean::dec(x_73); -x_88 = lean::cnstr_get(x_74, 0); -if (lean::is_exclusive(x_74)) { - x_90 = x_74; -} else { - lean::inc(x_88); - lean::dec(x_74); - x_90 = lean::box(0); -} -if (lean::is_scalar(x_90)) { - x_91 = lean::alloc_cnstr(0, 1, 0); -} else { - x_91 = x_90; -} -lean::cnstr_set(x_91, 0, x_88); -x_3 = x_91; -x_4 = x_85; -goto lbl_5; -} -else -{ -obj* x_92; obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; -if (lean::is_exclusive(x_74)) { - lean::cnstr_release(x_74, 0); - x_92 = x_74; -} else { - lean::dec(x_74); - x_92 = lean::box(0); -} -x_93 = lean::cnstr_get(x_73, 1); -if (lean::is_exclusive(x_73)) { - lean::cnstr_release(x_73, 0); - x_95 = x_73; -} else { - lean::inc(x_93); - lean::dec(x_73); - x_95 = lean::box(0); -} -x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_55); -lean::cnstr_set(x_96, 1, x_23); -if (lean::is_scalar(x_95)) { - x_97 = lean::alloc_cnstr(0, 2, 0); -} else { - x_97 = x_95; -} -lean::cnstr_set(x_97, 0, x_21); -lean::cnstr_set(x_97, 1, x_96); -if (lean::is_scalar(x_25)) { - x_98 = lean::alloc_cnstr(0, 2, 0); -} else { - x_98 = x_25; -} -lean::cnstr_set(x_98, 0, x_18); -lean::cnstr_set(x_98, 1, x_97); -if (lean::is_scalar(x_20)) { - x_99 = lean::alloc_cnstr(0, 2, 0); -} else { - x_99 = x_20; -} -lean::cnstr_set(x_99, 0, x_15); -lean::cnstr_set(x_99, 1, x_98); -if (lean::is_scalar(x_17)) { - x_100 = lean::alloc_cnstr(0, 2, 0); -} else { - x_100 = x_17; -} -lean::cnstr_set(x_100, 0, x_57); -lean::cnstr_set(x_100, 1, x_99); -x_101 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_101, 0, x_100); -if (lean::is_scalar(x_92)) { - x_102 = lean::alloc_cnstr(1, 1, 0); -} else { - x_102 = x_92; -} -lean::cnstr_set(x_102, 0, x_101); -x_3 = x_102; -x_4 = x_93; -goto lbl_5; -} -} -else -{ -obj* x_105; obj* x_108; obj* x_110; -lean::dec(x_18); -lean::dec(x_21); -x_105 = lean::cnstr_get(x_68, 0); -lean::inc(x_105); -lean::dec(x_68); -x_108 = lean::alloc_closure(reinterpret_cast(l_coroutine_resume___rarg), 2, 1); -lean::closure_set(x_108, 0, x_15); -lean::inc(x_105); -x_110 = l_lean_run__elaborator___rarg(x_108, x_105); -if (lean::obj_tag(x_110) == 0) -{ -obj* x_115; obj* x_118; uint8 x_119; -lean::dec(x_25); -lean::dec(x_17); -lean::dec(x_20); -lean::dec(x_57); -x_115 = lean::cnstr_get(x_110, 0); -lean::inc(x_115); -lean::dec(x_110); -x_118 = l_lean_parser_module_eoi; -x_119 = l_lean_parser_syntax_is__of__kind___main(x_118, x_105); -lean::dec(x_105); -if (x_119 == 0) -{ -obj* x_121; obj* x_122; obj* x_123; -x_121 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2; -x_122 = l_io_println___at_lean_run__frontend___spec__3(x_121, x_2); -x_123 = lean::cnstr_get(x_122, 0); -lean::inc(x_123); -if (lean::obj_tag(x_123) == 0) -{ -obj* x_128; obj* x_131; obj* x_133; obj* x_134; -lean::dec(x_55); -lean::dec(x_23); -lean::dec(x_115); -x_128 = lean::cnstr_get(x_122, 1); -lean::inc(x_128); -lean::dec(x_122); -x_131 = lean::cnstr_get(x_123, 0); -if (lean::is_exclusive(x_123)) { - x_133 = x_123; -} else { - lean::inc(x_131); - lean::dec(x_123); - x_133 = lean::box(0); -} -if (lean::is_scalar(x_133)) { - x_134 = lean::alloc_cnstr(0, 1, 0); -} else { - x_134 = x_133; -} -lean::cnstr_set(x_134, 0, x_131); -x_3 = x_134; -x_4 = x_128; -goto lbl_5; -} -else -{ -obj* x_136; obj* x_139; obj* x_141; obj* x_142; -lean::dec(x_123); -x_136 = lean::cnstr_get(x_122, 1); -lean::inc(x_136); -lean::dec(x_122); -x_139 = l_list_reverse___rarg(x_115); -lean::inc(x_0); -x_141 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__6(x_0, x_139, x_136); -x_142 = lean::cnstr_get(x_141, 0); -lean::inc(x_142); -if (lean::obj_tag(x_142) == 0) -{ -obj* x_146; obj* x_149; obj* x_151; obj* x_152; -lean::dec(x_55); -lean::dec(x_23); -x_146 = lean::cnstr_get(x_141, 1); -lean::inc(x_146); -lean::dec(x_141); -x_149 = lean::cnstr_get(x_142, 0); -if (lean::is_exclusive(x_142)) { - x_151 = x_142; -} else { - lean::inc(x_149); - lean::dec(x_142); - x_151 = lean::box(0); -} -if (lean::is_scalar(x_151)) { - x_152 = lean::alloc_cnstr(0, 1, 0); -} else { - x_152 = x_151; -} -lean::cnstr_set(x_152, 0, x_149); -x_3 = x_152; -x_4 = x_146; -goto lbl_5; -} -else -{ -obj* x_153; obj* x_154; obj* x_157; obj* x_158; obj* x_159; obj* x_160; -if (lean::is_exclusive(x_142)) { - lean::cnstr_release(x_142, 0); - x_153 = x_142; -} else { - lean::dec(x_142); - x_153 = lean::box(0); -} -x_154 = lean::cnstr_get(x_141, 1); -lean::inc(x_154); -lean::dec(x_141); -x_157 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_157, 0, x_55); -lean::cnstr_set(x_157, 1, x_23); -x_158 = l_list_reverse___rarg(x_157); -x_159 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_159, 0, x_158); -if (lean::is_scalar(x_153)) { - x_160 = lean::alloc_cnstr(1, 1, 0); -} else { - x_160 = x_153; -} -lean::cnstr_set(x_160, 0, x_159); -x_3 = x_160; -x_4 = x_154; -goto lbl_5; -} -} -} -else -{ -obj* x_161; obj* x_163; obj* x_164; -x_161 = l_list_reverse___rarg(x_115); -lean::inc(x_0); -x_163 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__7(x_0, x_161, x_2); -x_164 = lean::cnstr_get(x_163, 0); -lean::inc(x_164); -if (lean::obj_tag(x_164) == 0) -{ -obj* x_168; obj* x_171; obj* x_173; obj* x_174; -lean::dec(x_55); -lean::dec(x_23); -x_168 = lean::cnstr_get(x_163, 1); -lean::inc(x_168); -lean::dec(x_163); -x_171 = lean::cnstr_get(x_164, 0); -if (lean::is_exclusive(x_164)) { - x_173 = x_164; -} else { - lean::inc(x_171); - lean::dec(x_164); - x_173 = lean::box(0); -} -if (lean::is_scalar(x_173)) { - x_174 = lean::alloc_cnstr(0, 1, 0); -} else { - x_174 = x_173; -} -lean::cnstr_set(x_174, 0, x_171); -x_3 = x_174; -x_4 = x_168; -goto lbl_5; -} -else -{ -obj* x_175; obj* x_176; obj* x_179; obj* x_180; obj* x_181; obj* x_182; -if (lean::is_exclusive(x_164)) { - lean::cnstr_release(x_164, 0); - x_175 = x_164; -} else { - lean::dec(x_164); - x_175 = lean::box(0); -} -x_176 = lean::cnstr_get(x_163, 1); -lean::inc(x_176); -lean::dec(x_163); -x_179 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_179, 0, x_55); -lean::cnstr_set(x_179, 1, x_23); -x_180 = l_list_reverse___rarg(x_179); -x_181 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_181, 0, x_180); -if (lean::is_scalar(x_175)) { - x_182 = lean::alloc_cnstr(1, 1, 0); -} else { - x_182 = x_175; -} -lean::cnstr_set(x_182, 0, x_181); -x_3 = x_182; -x_4 = x_176; -goto lbl_5; -} -} -} -else -{ -obj* x_184; obj* x_186; obj* x_189; obj* x_191; obj* x_193; obj* x_194; -lean::dec(x_105); -x_184 = lean::cnstr_get(x_110, 0); -lean::inc(x_184); -x_186 = lean::cnstr_get(x_110, 1); -lean::inc(x_186); -lean::dec(x_110); -x_189 = lean::cnstr_get(x_184, 5); -lean::inc(x_189); -x_191 = l_list_reverse___rarg(x_189); -lean::inc(x_0); -x_193 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__8(x_0, x_191, x_2); -x_194 = lean::cnstr_get(x_193, 0); -lean::inc(x_194); -if (lean::obj_tag(x_194) == 0) -{ -obj* x_204; obj* x_207; obj* x_209; obj* x_210; -lean::dec(x_184); -lean::dec(x_186); -lean::dec(x_25); -lean::dec(x_17); -lean::dec(x_20); -lean::dec(x_55); -lean::dec(x_23); -lean::dec(x_57); -x_204 = lean::cnstr_get(x_193, 1); -lean::inc(x_204); -lean::dec(x_193); -x_207 = lean::cnstr_get(x_194, 0); -if (lean::is_exclusive(x_194)) { - x_209 = x_194; -} else { - lean::inc(x_207); - lean::dec(x_194); - x_209 = lean::box(0); -} -if (lean::is_scalar(x_209)) { - x_210 = lean::alloc_cnstr(0, 1, 0); -} else { - x_210 = x_209; -} -lean::cnstr_set(x_210, 0, x_207); -x_3 = x_210; -x_4 = x_204; -goto lbl_5; -} -else -{ -obj* x_211; obj* x_212; obj* x_214; obj* x_215; obj* x_217; obj* x_220; obj* x_221; obj* x_222; obj* x_223; obj* x_224; obj* x_225; obj* x_226; -if (lean::is_exclusive(x_194)) { - lean::cnstr_release(x_194, 0); - x_211 = x_194; -} else { - lean::dec(x_194); - x_211 = lean::box(0); -} -x_212 = lean::cnstr_get(x_193, 1); -if (lean::is_exclusive(x_193)) { - lean::cnstr_release(x_193, 0); - x_214 = x_193; -} else { - lean::inc(x_212); - lean::dec(x_193); - x_214 = lean::box(0); -} -x_215 = lean::cnstr_get(x_184, 6); -lean::inc(x_215); -x_217 = lean::cnstr_get(x_184, 7); -lean::inc(x_217); -lean::dec(x_184); -x_220 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_220, 0, x_55); -lean::cnstr_set(x_220, 1, x_23); -if (lean::is_scalar(x_214)) { - x_221 = lean::alloc_cnstr(0, 2, 0); -} else { - x_221 = x_214; -} -lean::cnstr_set(x_221, 0, x_217); -lean::cnstr_set(x_221, 1, x_220); -if (lean::is_scalar(x_25)) { - x_222 = lean::alloc_cnstr(0, 2, 0); -} else { - x_222 = x_25; -} -lean::cnstr_set(x_222, 0, x_215); -lean::cnstr_set(x_222, 1, x_221); -if (lean::is_scalar(x_20)) { - x_223 = lean::alloc_cnstr(0, 2, 0); -} else { - x_223 = x_20; -} -lean::cnstr_set(x_223, 0, x_186); -lean::cnstr_set(x_223, 1, x_222); -if (lean::is_scalar(x_17)) { - x_224 = lean::alloc_cnstr(0, 2, 0); -} else { - x_224 = x_17; -} -lean::cnstr_set(x_224, 0, x_57); -lean::cnstr_set(x_224, 1, x_223); -x_225 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_225, 0, x_224); -if (lean::is_scalar(x_211)) { - x_226 = lean::alloc_cnstr(1, 1, 0); -} else { - x_226 = x_211; -} -lean::cnstr_set(x_226, 0, x_225); -x_3 = x_226; -x_4 = x_212; -goto lbl_5; -} -} -} -} -else -{ -obj* x_230; obj* x_231; obj* x_232; -lean::dec(x_17); -lean::inc(x_62); -lean::inc(x_0); -x_230 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__9(x_0, x_62, x_2); -if (lean::is_exclusive(x_62)) { - lean::cnstr_release(x_62, 0); - lean::cnstr_release(x_62, 1); - x_231 = x_62; -} else { - lean::dec(x_62); - x_231 = lean::box(0); -} -x_232 = lean::cnstr_get(x_230, 0); -lean::inc(x_232); -if (lean::obj_tag(x_232) == 0) -{ -obj* x_243; obj* x_246; obj* x_248; obj* x_249; -lean::dec(x_231); -lean::dec(x_25); -lean::dec(x_20); -lean::dec(x_55); -lean::dec(x_15); -lean::dec(x_18); -lean::dec(x_21); -lean::dec(x_23); -lean::dec(x_57); -x_243 = lean::cnstr_get(x_230, 1); -lean::inc(x_243); -lean::dec(x_230); -x_246 = lean::cnstr_get(x_232, 0); -if (lean::is_exclusive(x_232)) { - x_248 = x_232; -} else { - lean::inc(x_246); - lean::dec(x_232); - x_248 = lean::box(0); -} -if (lean::is_scalar(x_248)) { - x_249 = lean::alloc_cnstr(0, 1, 0); -} else { - x_249 = x_248; -} -lean::cnstr_set(x_249, 0, x_246); -x_3 = x_249; -x_4 = x_243; -goto lbl_5; -} -else -{ -obj* x_251; obj* x_253; obj* x_254; obj* x_256; obj* x_257; obj* x_259; -lean::dec(x_232); -x_251 = lean::cnstr_get(x_230, 1); -if (lean::is_exclusive(x_230)) { - lean::cnstr_release(x_230, 0); - lean::cnstr_set(x_230, 1, lean::box(0)); - x_253 = x_230; -} else { - lean::inc(x_251); - lean::dec(x_230); - x_253 = lean::box(0); -} -x_254 = lean::cnstr_get(x_55, 0); -lean::inc(x_254); -x_256 = lean::alloc_closure(reinterpret_cast(l_lean_expander_expand), 2, 1); -lean::closure_set(x_256, 0, x_254); -x_257 = lean::alloc_closure(reinterpret_cast(l_reader__t_run___rarg), 2, 1); -lean::closure_set(x_257, 0, x_256); -lean::inc(x_21); -x_259 = l_lean_run__expander___rarg(x_257, x_21); -if (lean::obj_tag(x_259) == 0) -{ -obj* x_260; obj* x_264; obj* x_265; -x_260 = lean::cnstr_get(x_259, 0); -lean::inc(x_260); -lean::dec(x_259); -lean::inc(x_0); -x_264 = lean::apply_2(x_0, x_260, x_251); -x_265 = lean::cnstr_get(x_264, 0); -lean::inc(x_265); -if (lean::obj_tag(x_265) == 0) -{ -obj* x_277; obj* x_280; obj* x_282; obj* x_283; -lean::dec(x_231); -lean::dec(x_25); -lean::dec(x_20); -lean::dec(x_55); -lean::dec(x_15); -lean::dec(x_18); -lean::dec(x_21); -lean::dec(x_23); -lean::dec(x_253); -lean::dec(x_57); -x_277 = lean::cnstr_get(x_264, 1); -lean::inc(x_277); -lean::dec(x_264); -x_280 = lean::cnstr_get(x_265, 0); -if (lean::is_exclusive(x_265)) { - x_282 = x_265; -} else { - lean::inc(x_280); - lean::dec(x_265); - x_282 = lean::box(0); -} -if (lean::is_scalar(x_282)) { - x_283 = lean::alloc_cnstr(0, 1, 0); -} else { - x_283 = x_282; -} -lean::cnstr_set(x_283, 0, x_280); -x_3 = x_283; -x_4 = x_277; -goto lbl_5; -} -else -{ -obj* x_284; obj* x_285; obj* x_287; obj* x_288; obj* x_289; obj* x_290; obj* x_291; obj* x_292; obj* x_293; obj* x_294; -if (lean::is_exclusive(x_265)) { - lean::cnstr_release(x_265, 0); - x_284 = x_265; -} else { - lean::dec(x_265); - x_284 = lean::box(0); -} -x_285 = lean::cnstr_get(x_264, 1); -if (lean::is_exclusive(x_264)) { - lean::cnstr_release(x_264, 0); - x_287 = x_264; -} else { - lean::inc(x_285); - lean::dec(x_264); - x_287 = lean::box(0); -} -if (lean::is_scalar(x_231)) { - x_288 = lean::alloc_cnstr(1, 2, 0); -} else { - x_288 = x_231; -} -lean::cnstr_set(x_288, 0, x_55); -lean::cnstr_set(x_288, 1, x_23); -if (lean::is_scalar(x_287)) { - x_289 = lean::alloc_cnstr(0, 2, 0); -} else { - x_289 = x_287; -} -lean::cnstr_set(x_289, 0, x_21); -lean::cnstr_set(x_289, 1, x_288); -if (lean::is_scalar(x_253)) { - x_290 = lean::alloc_cnstr(0, 2, 0); -} else { - x_290 = x_253; -} -lean::cnstr_set(x_290, 0, x_18); -lean::cnstr_set(x_290, 1, x_289); -if (lean::is_scalar(x_25)) { - x_291 = lean::alloc_cnstr(0, 2, 0); -} else { - x_291 = x_25; -} -lean::cnstr_set(x_291, 0, x_15); -lean::cnstr_set(x_291, 1, x_290); -if (lean::is_scalar(x_20)) { - x_292 = lean::alloc_cnstr(0, 2, 0); -} else { - x_292 = x_20; -} -lean::cnstr_set(x_292, 0, x_57); -lean::cnstr_set(x_292, 1, x_291); -x_293 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_293, 0, x_292); -if (lean::is_scalar(x_284)) { - x_294 = lean::alloc_cnstr(1, 1, 0); -} else { - x_294 = x_284; -} -lean::cnstr_set(x_294, 0, x_293); -x_3 = x_294; -x_4 = x_285; -goto lbl_5; -} -} -else -{ -obj* x_297; obj* x_300; obj* x_302; -lean::dec(x_18); -lean::dec(x_21); -x_297 = lean::cnstr_get(x_259, 0); -lean::inc(x_297); -lean::dec(x_259); -x_300 = lean::alloc_closure(reinterpret_cast(l_coroutine_resume___rarg), 2, 1); -lean::closure_set(x_300, 0, x_15); -lean::inc(x_297); -x_302 = l_lean_run__elaborator___rarg(x_300, x_297); -if (lean::obj_tag(x_302) == 0) -{ -obj* x_307; obj* x_310; uint8 x_311; -lean::dec(x_25); -lean::dec(x_20); -lean::dec(x_253); -lean::dec(x_57); -x_307 = lean::cnstr_get(x_302, 0); -lean::inc(x_307); -lean::dec(x_302); -x_310 = l_lean_parser_module_eoi; -x_311 = l_lean_parser_syntax_is__of__kind___main(x_310, x_297); -lean::dec(x_297); -if (x_311 == 0) -{ -obj* x_313; obj* x_314; obj* x_315; -x_313 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2; -x_314 = l_io_println___at_lean_run__frontend___spec__3(x_313, x_251); -x_315 = lean::cnstr_get(x_314, 0); -lean::inc(x_315); -if (lean::obj_tag(x_315) == 0) -{ -obj* x_321; obj* x_324; obj* x_326; obj* x_327; -lean::dec(x_231); -lean::dec(x_307); -lean::dec(x_55); -lean::dec(x_23); -x_321 = lean::cnstr_get(x_314, 1); -lean::inc(x_321); -lean::dec(x_314); -x_324 = lean::cnstr_get(x_315, 0); -if (lean::is_exclusive(x_315)) { - x_326 = x_315; -} else { - lean::inc(x_324); - lean::dec(x_315); - x_326 = lean::box(0); -} -if (lean::is_scalar(x_326)) { - x_327 = lean::alloc_cnstr(0, 1, 0); -} else { - x_327 = x_326; -} -lean::cnstr_set(x_327, 0, x_324); -x_3 = x_327; -x_4 = x_321; -goto lbl_5; -} -else -{ -obj* x_329; obj* x_332; obj* x_334; obj* x_335; -lean::dec(x_315); -x_329 = lean::cnstr_get(x_314, 1); -lean::inc(x_329); -lean::dec(x_314); -x_332 = l_list_reverse___rarg(x_307); -lean::inc(x_0); -x_334 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__10(x_0, x_332, x_329); -x_335 = lean::cnstr_get(x_334, 0); -lean::inc(x_335); -if (lean::obj_tag(x_335) == 0) -{ -obj* x_340; obj* x_343; obj* x_345; obj* x_346; -lean::dec(x_231); -lean::dec(x_55); -lean::dec(x_23); -x_340 = lean::cnstr_get(x_334, 1); -lean::inc(x_340); -lean::dec(x_334); -x_343 = lean::cnstr_get(x_335, 0); -if (lean::is_exclusive(x_335)) { - x_345 = x_335; -} else { - lean::inc(x_343); - lean::dec(x_335); - x_345 = lean::box(0); -} -if (lean::is_scalar(x_345)) { - x_346 = lean::alloc_cnstr(0, 1, 0); -} else { - x_346 = x_345; -} -lean::cnstr_set(x_346, 0, x_343); -x_3 = x_346; -x_4 = x_340; -goto lbl_5; -} -else -{ -obj* x_347; obj* x_348; obj* x_351; obj* x_352; obj* x_353; obj* x_354; -if (lean::is_exclusive(x_335)) { - lean::cnstr_release(x_335, 0); - x_347 = x_335; -} else { - lean::dec(x_335); - x_347 = lean::box(0); -} -x_348 = lean::cnstr_get(x_334, 1); -lean::inc(x_348); -lean::dec(x_334); -if (lean::is_scalar(x_231)) { - x_351 = lean::alloc_cnstr(1, 2, 0); -} else { - x_351 = x_231; -} -lean::cnstr_set(x_351, 0, x_55); -lean::cnstr_set(x_351, 1, x_23); -x_352 = l_list_reverse___rarg(x_351); -x_353 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_353, 0, x_352); -if (lean::is_scalar(x_347)) { - x_354 = lean::alloc_cnstr(1, 1, 0); -} else { - x_354 = x_347; -} -lean::cnstr_set(x_354, 0, x_353); -x_3 = x_354; -x_4 = x_348; -goto lbl_5; -} -} -} -else -{ -obj* x_355; obj* x_357; obj* x_358; -x_355 = l_list_reverse___rarg(x_307); -lean::inc(x_0); -x_357 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__11(x_0, x_355, x_251); -x_358 = lean::cnstr_get(x_357, 0); -lean::inc(x_358); -if (lean::obj_tag(x_358) == 0) -{ -obj* x_363; obj* x_366; obj* x_368; obj* x_369; -lean::dec(x_231); -lean::dec(x_55); -lean::dec(x_23); -x_363 = lean::cnstr_get(x_357, 1); -lean::inc(x_363); -lean::dec(x_357); -x_366 = lean::cnstr_get(x_358, 0); -if (lean::is_exclusive(x_358)) { - x_368 = x_358; -} else { - lean::inc(x_366); - lean::dec(x_358); - x_368 = lean::box(0); -} -if (lean::is_scalar(x_368)) { - x_369 = lean::alloc_cnstr(0, 1, 0); -} else { - x_369 = x_368; -} -lean::cnstr_set(x_369, 0, x_366); -x_3 = x_369; -x_4 = x_363; -goto lbl_5; -} -else -{ -obj* x_370; obj* x_371; obj* x_374; obj* x_375; obj* x_376; obj* x_377; -if (lean::is_exclusive(x_358)) { - lean::cnstr_release(x_358, 0); - x_370 = x_358; -} else { - lean::dec(x_358); - x_370 = lean::box(0); -} -x_371 = lean::cnstr_get(x_357, 1); -lean::inc(x_371); -lean::dec(x_357); -if (lean::is_scalar(x_231)) { - x_374 = lean::alloc_cnstr(1, 2, 0); -} else { - x_374 = x_231; -} -lean::cnstr_set(x_374, 0, x_55); -lean::cnstr_set(x_374, 1, x_23); -x_375 = l_list_reverse___rarg(x_374); -x_376 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_376, 0, x_375); -if (lean::is_scalar(x_370)) { - x_377 = lean::alloc_cnstr(1, 1, 0); -} else { - x_377 = x_370; -} -lean::cnstr_set(x_377, 0, x_376); -x_3 = x_377; -x_4 = x_371; -goto lbl_5; -} -} -} -else -{ -obj* x_379; obj* x_381; obj* x_384; obj* x_386; obj* x_388; obj* x_389; -lean::dec(x_297); -x_379 = lean::cnstr_get(x_302, 0); -lean::inc(x_379); -x_381 = lean::cnstr_get(x_302, 1); -lean::inc(x_381); -lean::dec(x_302); -x_384 = lean::cnstr_get(x_379, 5); -lean::inc(x_384); -x_386 = l_list_reverse___rarg(x_384); -lean::inc(x_0); -x_388 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__12(x_0, x_386, x_251); -x_389 = lean::cnstr_get(x_388, 0); -lean::inc(x_389); -if (lean::obj_tag(x_389) == 0) -{ -obj* x_400; obj* x_403; obj* x_405; obj* x_406; -lean::dec(x_231); -lean::dec(x_25); -lean::dec(x_20); -lean::dec(x_55); -lean::dec(x_23); -lean::dec(x_253); -lean::dec(x_57); -lean::dec(x_381); -lean::dec(x_379); -x_400 = lean::cnstr_get(x_388, 1); -lean::inc(x_400); -lean::dec(x_388); -x_403 = lean::cnstr_get(x_389, 0); -if (lean::is_exclusive(x_389)) { - x_405 = x_389; -} else { - lean::inc(x_403); - lean::dec(x_389); - x_405 = lean::box(0); -} -if (lean::is_scalar(x_405)) { - x_406 = lean::alloc_cnstr(0, 1, 0); -} else { - x_406 = x_405; -} -lean::cnstr_set(x_406, 0, x_403); -x_3 = x_406; -x_4 = x_400; -goto lbl_5; -} -else -{ -obj* x_407; obj* x_408; obj* x_410; obj* x_411; obj* x_413; obj* x_416; obj* x_417; obj* x_418; obj* x_419; obj* x_420; obj* x_421; obj* x_422; -if (lean::is_exclusive(x_389)) { - lean::cnstr_release(x_389, 0); - x_407 = x_389; -} else { - lean::dec(x_389); - x_407 = lean::box(0); -} -x_408 = lean::cnstr_get(x_388, 1); -if (lean::is_exclusive(x_388)) { - lean::cnstr_release(x_388, 0); - x_410 = x_388; -} else { - lean::inc(x_408); - lean::dec(x_388); - x_410 = lean::box(0); -} -x_411 = lean::cnstr_get(x_379, 6); -lean::inc(x_411); -x_413 = lean::cnstr_get(x_379, 7); -lean::inc(x_413); -lean::dec(x_379); -if (lean::is_scalar(x_231)) { - x_416 = lean::alloc_cnstr(1, 2, 0); -} else { - x_416 = x_231; -} -lean::cnstr_set(x_416, 0, x_55); -lean::cnstr_set(x_416, 1, x_23); -if (lean::is_scalar(x_410)) { - x_417 = lean::alloc_cnstr(0, 2, 0); -} else { - x_417 = x_410; -} -lean::cnstr_set(x_417, 0, x_413); -lean::cnstr_set(x_417, 1, x_416); -if (lean::is_scalar(x_253)) { - x_418 = lean::alloc_cnstr(0, 2, 0); -} else { - x_418 = x_253; -} -lean::cnstr_set(x_418, 0, x_411); -lean::cnstr_set(x_418, 1, x_417); -if (lean::is_scalar(x_25)) { - x_419 = lean::alloc_cnstr(0, 2, 0); -} else { - x_419 = x_25; -} -lean::cnstr_set(x_419, 0, x_381); -lean::cnstr_set(x_419, 1, x_418); -if (lean::is_scalar(x_20)) { - x_420 = lean::alloc_cnstr(0, 2, 0); -} else { - x_420 = x_20; -} -lean::cnstr_set(x_420, 0, x_57); -lean::cnstr_set(x_420, 1, x_419); -x_421 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_421, 0, x_420); -if (lean::is_scalar(x_407)) { - x_422 = lean::alloc_cnstr(1, 1, 0); -} else { - x_422 = x_407; -} -lean::cnstr_set(x_422, 0, x_421); -x_3 = x_422; -x_4 = x_408; -goto lbl_5; -} -} -} -} -} +obj* x_31; obj* x_33; +x_31 = lean::cnstr_get(x_23, 0); +lean::inc(x_31); +x_33 = lean::cnstr_get(x_31, 3); +lean::inc(x_33); +lean::dec(x_31); +x_28 = x_33; +goto lbl_29; } lbl_5: { if (lean::obj_tag(x_3) == 0) { -obj* x_424; obj* x_426; obj* x_427; obj* x_428; +obj* x_37; obj* x_39; obj* x_40; obj* x_41; lean::dec(x_0); -x_424 = lean::cnstr_get(x_3, 0); +x_37 = lean::cnstr_get(x_3, 0); if (lean::is_exclusive(x_3)) { - x_426 = x_3; + x_39 = x_3; } else { - lean::inc(x_424); + lean::inc(x_37); lean::dec(x_3); - x_426 = lean::box(0); + x_39 = lean::box(0); } -if (lean::is_scalar(x_426)) { - x_427 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_39)) { + x_40 = lean::alloc_cnstr(0, 1, 0); } else { - x_427 = x_426; + x_40 = x_39; } -lean::cnstr_set(x_427, 0, x_424); -x_428 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_428, 0, x_427); -lean::cnstr_set(x_428, 1, x_4); -return x_428; +lean::cnstr_set(x_40, 0, x_37); +x_41 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_4); +return x_41; } else { -obj* x_429; obj* x_431; -x_429 = lean::cnstr_get(x_3, 0); +obj* x_42; obj* x_44; +x_42 = lean::cnstr_get(x_3, 0); if (lean::is_exclusive(x_3)) { lean::cnstr_set(x_3, 0, lean::box(0)); - x_431 = x_3; + x_44 = x_3; } else { - lean::inc(x_429); + lean::inc(x_42); lean::dec(x_3); - x_431 = lean::box(0); + x_44 = lean::box(0); } -if (lean::obj_tag(x_429) == 0) +if (lean::obj_tag(x_42) == 0) { -obj* x_433; -lean::dec(x_431); -x_433 = lean::cnstr_get(x_429, 0); -lean::inc(x_433); -lean::dec(x_429); -x_1 = x_433; +obj* x_46; +lean::dec(x_44); +x_46 = lean::cnstr_get(x_42, 0); +lean::inc(x_46); +lean::dec(x_42); +x_1 = x_46; x_2 = x_4; goto _start; } else { -obj* x_438; obj* x_441; obj* x_442; +obj* x_51; obj* x_54; obj* x_55; lean::dec(x_0); -x_438 = lean::cnstr_get(x_429, 0); -lean::inc(x_438); -lean::dec(x_429); -if (lean::is_scalar(x_431)) { - x_441 = lean::alloc_cnstr(1, 1, 0); +x_51 = lean::cnstr_get(x_42, 0); +lean::inc(x_51); +lean::dec(x_42); +if (lean::is_scalar(x_44)) { + x_54 = lean::alloc_cnstr(1, 1, 0); } else { - x_441 = x_431; + x_54 = x_44; +} +lean::cnstr_set(x_54, 0, x_51); +x_55 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_4); +return x_55; +} +} +} +lbl_29: +{ +obj* x_56; obj* x_57; obj* x_58; +x_56 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__1; +x_57 = l_lean_profileit__pure___rarg(x_56, x_28, x_27, x_2); +x_58 = lean::cnstr_get(x_57, 0); +lean::inc(x_58); +if (lean::obj_tag(x_58) == 0) +{ +obj* x_67; obj* x_70; obj* x_71; obj* x_72; +lean::dec(x_18); +lean::dec(x_21); +lean::dec(x_15); +lean::dec(x_20); +lean::dec(x_25); +lean::dec(x_28); +lean::dec(x_58); +x_67 = lean::cnstr_get(x_57, 1); +lean::inc(x_67); +lean::dec(x_57); +x_70 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2; +x_71 = l_io_println___at_lean_run__frontend___spec__3(x_70, x_67); +x_72 = lean::cnstr_get(x_71, 0); +lean::inc(x_72); +if (lean::obj_tag(x_72) == 0) +{ +obj* x_75; obj* x_78; obj* x_80; obj* x_81; +lean::dec(x_23); +x_75 = lean::cnstr_get(x_71, 1); +lean::inc(x_75); +lean::dec(x_71); +x_78 = lean::cnstr_get(x_72, 0); +if (lean::is_exclusive(x_72)) { + x_80 = x_72; +} else { + lean::inc(x_78); + lean::dec(x_72); + x_80 = lean::box(0); +} +if (lean::is_scalar(x_80)) { + x_81 = lean::alloc_cnstr(0, 1, 0); +} else { + x_81 = x_80; +} +lean::cnstr_set(x_81, 0, x_78); +x_3 = x_81; +x_4 = x_75; +goto lbl_5; +} +else +{ +obj* x_82; obj* x_83; obj* x_86; obj* x_87; obj* x_88; +if (lean::is_exclusive(x_72)) { + lean::cnstr_release(x_72, 0); + x_82 = x_72; +} else { + lean::dec(x_72); + x_82 = lean::box(0); +} +x_83 = lean::cnstr_get(x_71, 1); +lean::inc(x_83); +lean::dec(x_71); +x_86 = l_list_reverse___rarg(x_23); +x_87 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_87, 0, x_86); +if (lean::is_scalar(x_82)) { + x_88 = lean::alloc_cnstr(1, 1, 0); +} else { + x_88 = x_82; +} +lean::cnstr_set(x_88, 0, x_87); +x_3 = x_88; +x_4 = x_83; +goto lbl_5; +} +} +else +{ +obj* x_89; obj* x_91; obj* x_92; obj* x_94; obj* x_97; obj* x_99; obj* x_101; +x_89 = lean::cnstr_get(x_57, 1); +if (lean::is_exclusive(x_57)) { + lean::cnstr_release(x_57, 0); + lean::cnstr_set(x_57, 1, lean::box(0)); + x_91 = x_57; +} else { + lean::inc(x_89); + lean::dec(x_57); + x_91 = lean::box(0); +} +x_92 = lean::cnstr_get(x_58, 0); +lean::inc(x_92); +x_94 = lean::cnstr_get(x_58, 1); +lean::inc(x_94); +lean::dec(x_58); +x_99 = lean::cnstr_get(x_92, 1); +lean::inc(x_99); +x_101 = l_list_reverse___rarg(x_99); +if (lean::obj_tag(x_101) == 0) +{ +obj* x_103; +lean::dec(x_20); +x_103 = lean::box(0); +x_97 = x_103; +goto lbl_98; +} +else +{ +obj* x_108; obj* x_109; obj* x_110; +lean::dec(x_25); +lean::dec(x_91); +lean::inc(x_101); +lean::inc(x_0); +x_108 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__9(x_0, x_101, x_89); +if (lean::is_exclusive(x_101)) { + lean::cnstr_release(x_101, 0); + lean::cnstr_release(x_101, 1); + x_109 = x_101; +} else { + lean::dec(x_101); + x_109 = lean::box(0); +} +x_110 = lean::cnstr_get(x_108, 0); +lean::inc(x_110); +if (lean::obj_tag(x_110) == 0) +{ +obj* x_121; obj* x_124; obj* x_126; obj* x_127; +lean::dec(x_18); +lean::dec(x_21); +lean::dec(x_15); +lean::dec(x_20); +lean::dec(x_23); +lean::dec(x_92); +lean::dec(x_94); +lean::dec(x_28); +lean::dec(x_109); +x_121 = lean::cnstr_get(x_108, 1); +lean::inc(x_121); +lean::dec(x_108); +x_124 = lean::cnstr_get(x_110, 0); +if (lean::is_exclusive(x_110)) { + x_126 = x_110; +} else { + lean::inc(x_124); + lean::dec(x_110); + 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); +x_3 = x_127; +x_4 = x_121; +goto lbl_5; +} +else +{ +obj* x_129; obj* x_131; obj* x_134; obj* x_135; obj* x_136; obj* x_137; +lean::dec(x_110); +x_129 = lean::cnstr_get(x_108, 1); +if (lean::is_exclusive(x_108)) { + lean::cnstr_release(x_108, 0); + lean::cnstr_set(x_108, 1, lean::box(0)); + x_131 = x_108; +} else { + lean::inc(x_129); + lean::dec(x_108); + x_131 = lean::box(0); +} +lean::inc(x_21); +lean::inc(x_92); +x_134 = lean::alloc_closure(reinterpret_cast(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1___boxed), 3, 2); +lean::closure_set(x_134, 0, x_92); +lean::closure_set(x_134, 1, x_21); +x_135 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3; +x_136 = l_lean_profileit__pure___rarg(x_135, x_28, x_134, x_129); +x_137 = lean::cnstr_get(x_136, 0); +lean::inc(x_137); +if (lean::obj_tag(x_137) == 0) +{ +obj* x_140; obj* x_142; obj* x_143; obj* x_147; obj* x_148; +lean::dec(x_28); +x_140 = lean::cnstr_get(x_136, 1); +if (lean::is_exclusive(x_136)) { + lean::cnstr_release(x_136, 0); + lean::cnstr_set(x_136, 1, lean::box(0)); + x_142 = x_136; +} else { + lean::inc(x_140); + lean::dec(x_136); + x_142 = lean::box(0); +} +x_143 = lean::cnstr_get(x_137, 0); +lean::inc(x_143); +lean::dec(x_137); +lean::inc(x_0); +x_147 = lean::apply_2(x_0, x_143, x_140); +x_148 = lean::cnstr_get(x_147, 0); +lean::inc(x_148); +if (lean::obj_tag(x_148) == 0) +{ +obj* x_160; obj* x_163; obj* x_165; obj* x_166; +lean::dec(x_18); +lean::dec(x_21); +lean::dec(x_15); +lean::dec(x_20); +lean::dec(x_23); +lean::dec(x_92); +lean::dec(x_94); +lean::dec(x_109); +lean::dec(x_131); +lean::dec(x_142); +x_160 = lean::cnstr_get(x_147, 1); +lean::inc(x_160); +lean::dec(x_147); +x_163 = lean::cnstr_get(x_148, 0); +if (lean::is_exclusive(x_148)) { + x_165 = x_148; +} else { + lean::inc(x_163); + lean::dec(x_148); + x_165 = lean::box(0); +} +if (lean::is_scalar(x_165)) { + x_166 = lean::alloc_cnstr(0, 1, 0); +} else { + x_166 = x_165; +} +lean::cnstr_set(x_166, 0, x_163); +x_3 = x_166; +x_4 = x_160; +goto lbl_5; +} +else +{ +obj* x_167; obj* x_168; obj* x_170; obj* x_171; obj* x_172; obj* x_173; obj* x_174; obj* x_175; obj* x_176; obj* x_177; +if (lean::is_exclusive(x_148)) { + lean::cnstr_release(x_148, 0); + x_167 = x_148; +} else { + lean::dec(x_148); + x_167 = lean::box(0); +} +x_168 = lean::cnstr_get(x_147, 1); +if (lean::is_exclusive(x_147)) { + lean::cnstr_release(x_147, 0); + x_170 = x_147; +} else { + lean::inc(x_168); + lean::dec(x_147); + x_170 = lean::box(0); +} +if (lean::is_scalar(x_109)) { + x_171 = lean::alloc_cnstr(1, 2, 0); +} else { + x_171 = x_109; +} +lean::cnstr_set(x_171, 0, x_92); +lean::cnstr_set(x_171, 1, x_23); +if (lean::is_scalar(x_170)) { + x_172 = lean::alloc_cnstr(0, 2, 0); +} else { + x_172 = x_170; +} +lean::cnstr_set(x_172, 0, x_21); +lean::cnstr_set(x_172, 1, x_171); +if (lean::is_scalar(x_142)) { + x_173 = lean::alloc_cnstr(0, 2, 0); +} else { + x_173 = x_142; +} +lean::cnstr_set(x_173, 0, x_18); +lean::cnstr_set(x_173, 1, x_172); +if (lean::is_scalar(x_131)) { + x_174 = lean::alloc_cnstr(0, 2, 0); +} else { + x_174 = x_131; +} +lean::cnstr_set(x_174, 0, x_15); +lean::cnstr_set(x_174, 1, x_173); +if (lean::is_scalar(x_20)) { + x_175 = lean::alloc_cnstr(0, 2, 0); +} else { + x_175 = x_20; +} +lean::cnstr_set(x_175, 0, x_94); +lean::cnstr_set(x_175, 1, x_174); +x_176 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_176, 0, x_175); +if (lean::is_scalar(x_167)) { + x_177 = lean::alloc_cnstr(1, 1, 0); +} else { + x_177 = x_167; +} +lean::cnstr_set(x_177, 0, x_176); +x_3 = x_177; +x_4 = x_168; +goto lbl_5; +} +} +else +{ +obj* x_181; obj* x_183; obj* x_184; obj* x_188; obj* x_189; obj* x_190; obj* x_192; +lean::dec(x_18); +lean::dec(x_21); +lean::dec(x_20); +x_181 = lean::cnstr_get(x_136, 1); +if (lean::is_exclusive(x_136)) { + lean::cnstr_release(x_136, 0); + lean::cnstr_set(x_136, 1, lean::box(0)); + x_183 = x_136; +} else { + lean::inc(x_181); + lean::dec(x_136); + x_183 = lean::box(0); +} +x_184 = lean::cnstr_get(x_137, 0); +lean::inc(x_184); +lean::dec(x_137); +lean::inc(x_184); +x_188 = lean::alloc_closure(reinterpret_cast(l_reader__t_monad___rarg___lambda__9___boxed), 3, 2); +lean::closure_set(x_188, 0, x_15); +lean::closure_set(x_188, 1, x_184); +x_189 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4; +x_190 = l_lean_profileit__pure___rarg(x_189, x_28, x_188, x_181); +lean::dec(x_28); +x_192 = lean::cnstr_get(x_190, 0); +lean::inc(x_192); +if (lean::obj_tag(x_192) == 0) +{ +obj* x_197; obj* x_200; obj* x_203; obj* x_205; uint8 x_206; +lean::dec(x_94); +lean::dec(x_183); +lean::dec(x_131); +x_197 = lean::cnstr_get(x_190, 1); +lean::inc(x_197); +lean::dec(x_190); +x_200 = lean::cnstr_get(x_192, 0); +lean::inc(x_200); +lean::dec(x_192); +x_205 = l_lean_parser_module_eoi; +x_206 = l_lean_parser_syntax_is__of__kind___main(x_205, x_184); +lean::dec(x_184); +if (x_206 == 0) +{ +obj* x_209; obj* x_210; obj* x_211; +lean::dec(x_109); +x_209 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5; +x_210 = l_io_println___at_lean_run__frontend___spec__3(x_209, x_197); +x_211 = lean::cnstr_get(x_210, 0); +lean::inc(x_211); +if (lean::obj_tag(x_211) == 0) +{ +obj* x_216; obj* x_219; obj* x_221; obj* x_222; +lean::dec(x_200); +lean::dec(x_23); +lean::dec(x_92); +x_216 = lean::cnstr_get(x_210, 1); +lean::inc(x_216); +lean::dec(x_210); +x_219 = lean::cnstr_get(x_211, 0); +if (lean::is_exclusive(x_211)) { + x_221 = x_211; +} else { + lean::inc(x_219); + lean::dec(x_211); + x_221 = lean::box(0); +} +if (lean::is_scalar(x_221)) { + x_222 = lean::alloc_cnstr(0, 1, 0); +} else { + x_222 = x_221; +} +lean::cnstr_set(x_222, 0, x_219); +x_3 = x_222; +x_4 = x_216; +goto lbl_5; +} +else +{ +obj* x_224; obj* x_227; obj* x_229; obj* x_230; +lean::dec(x_211); +x_224 = lean::cnstr_get(x_210, 1); +lean::inc(x_224); +lean::dec(x_210); +x_227 = l_list_reverse___rarg(x_200); +lean::inc(x_0); +x_229 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__11(x_0, x_227, x_224); +x_230 = lean::cnstr_get(x_229, 0); +lean::inc(x_230); +if (lean::obj_tag(x_230) == 0) +{ +obj* x_234; obj* x_237; obj* x_239; obj* x_240; +lean::dec(x_23); +lean::dec(x_92); +x_234 = lean::cnstr_get(x_229, 1); +lean::inc(x_234); +lean::dec(x_229); +x_237 = lean::cnstr_get(x_230, 0); +if (lean::is_exclusive(x_230)) { + x_239 = x_230; +} else { + lean::inc(x_237); + lean::dec(x_230); + x_239 = lean::box(0); +} +if (lean::is_scalar(x_239)) { + x_240 = lean::alloc_cnstr(0, 1, 0); +} else { + x_240 = x_239; +} +lean::cnstr_set(x_240, 0, x_237); +x_3 = x_240; +x_4 = x_234; +goto lbl_5; +} +else +{ +obj* x_241; obj* x_242; obj* x_245; obj* x_246; obj* x_247; obj* x_248; +if (lean::is_exclusive(x_230)) { + lean::cnstr_release(x_230, 0); + x_241 = x_230; +} else { + lean::dec(x_230); + x_241 = lean::box(0); +} +x_242 = lean::cnstr_get(x_229, 1); +lean::inc(x_242); +lean::dec(x_229); +x_245 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_245, 0, x_92); +lean::cnstr_set(x_245, 1, x_23); +x_246 = l_list_reverse___rarg(x_245); +x_247 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_247, 0, x_246); +if (lean::is_scalar(x_241)) { + x_248 = lean::alloc_cnstr(1, 1, 0); +} else { + x_248 = x_241; +} +lean::cnstr_set(x_248, 0, x_247); +x_3 = x_248; +x_4 = x_242; +goto lbl_5; +} +} +} +else +{ +obj* x_249; +x_249 = lean::box(0); +x_203 = x_249; +goto lbl_204; +} +lbl_204: +{ +obj* x_251; obj* x_253; obj* x_254; +lean::dec(x_203); +x_251 = l_list_reverse___rarg(x_200); +lean::inc(x_0); +x_253 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__10(x_0, x_251, x_197); +x_254 = lean::cnstr_get(x_253, 0); +lean::inc(x_254); +if (lean::obj_tag(x_254) == 0) +{ +obj* x_259; obj* x_262; obj* x_264; obj* x_265; +lean::dec(x_23); +lean::dec(x_92); +lean::dec(x_109); +x_259 = lean::cnstr_get(x_253, 1); +lean::inc(x_259); +lean::dec(x_253); +x_262 = lean::cnstr_get(x_254, 0); +if (lean::is_exclusive(x_254)) { + x_264 = x_254; +} else { + lean::inc(x_262); + lean::dec(x_254); + x_264 = lean::box(0); +} +if (lean::is_scalar(x_264)) { + x_265 = lean::alloc_cnstr(0, 1, 0); +} else { + x_265 = x_264; +} +lean::cnstr_set(x_265, 0, x_262); +x_3 = x_265; +x_4 = x_259; +goto lbl_5; +} +else +{ +obj* x_266; obj* x_267; obj* x_270; obj* x_271; obj* x_272; obj* x_273; +if (lean::is_exclusive(x_254)) { + lean::cnstr_release(x_254, 0); + x_266 = x_254; +} else { + lean::dec(x_254); + x_266 = lean::box(0); +} +x_267 = lean::cnstr_get(x_253, 1); +lean::inc(x_267); +lean::dec(x_253); +if (lean::is_scalar(x_109)) { + x_270 = lean::alloc_cnstr(1, 2, 0); +} else { + x_270 = x_109; +} +lean::cnstr_set(x_270, 0, x_92); +lean::cnstr_set(x_270, 1, x_23); +x_271 = l_list_reverse___rarg(x_270); +x_272 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_272, 0, x_271); +if (lean::is_scalar(x_266)) { + x_273 = lean::alloc_cnstr(1, 1, 0); +} else { + x_273 = x_266; +} +lean::cnstr_set(x_273, 0, x_272); +x_3 = x_273; +x_4 = x_267; +goto lbl_5; +} +} +} +else +{ +obj* x_275; obj* x_277; obj* x_278; obj* x_280; obj* x_283; obj* x_285; obj* x_287; obj* x_288; +lean::dec(x_184); +x_275 = lean::cnstr_get(x_190, 1); +if (lean::is_exclusive(x_190)) { + lean::cnstr_release(x_190, 0); + lean::cnstr_set(x_190, 1, lean::box(0)); + x_277 = x_190; +} else { + lean::inc(x_275); + lean::dec(x_190); + x_277 = lean::box(0); +} +x_278 = lean::cnstr_get(x_192, 0); +lean::inc(x_278); +x_280 = lean::cnstr_get(x_192, 1); +lean::inc(x_280); +lean::dec(x_192); +x_283 = lean::cnstr_get(x_278, 5); +lean::inc(x_283); +x_285 = l_list_reverse___rarg(x_283); +lean::inc(x_0); +x_287 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__12(x_0, x_285, x_275); +x_288 = lean::cnstr_get(x_287, 0); +lean::inc(x_288); +if (lean::obj_tag(x_288) == 0) +{ +obj* x_299; obj* x_302; obj* x_304; obj* x_305; +lean::dec(x_280); +lean::dec(x_278); +lean::dec(x_277); +lean::dec(x_23); +lean::dec(x_92); +lean::dec(x_94); +lean::dec(x_183); +lean::dec(x_109); +lean::dec(x_131); +x_299 = lean::cnstr_get(x_287, 1); +lean::inc(x_299); +lean::dec(x_287); +x_302 = lean::cnstr_get(x_288, 0); +if (lean::is_exclusive(x_288)) { + x_304 = x_288; +} else { + lean::inc(x_302); + lean::dec(x_288); + x_304 = lean::box(0); +} +if (lean::is_scalar(x_304)) { + x_305 = lean::alloc_cnstr(0, 1, 0); +} else { + x_305 = x_304; +} +lean::cnstr_set(x_305, 0, x_302); +x_3 = x_305; +x_4 = x_299; +goto lbl_5; +} +else +{ +obj* x_306; obj* x_307; obj* x_309; obj* x_310; obj* x_312; obj* x_315; obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_321; +if (lean::is_exclusive(x_288)) { + lean::cnstr_release(x_288, 0); + x_306 = x_288; +} else { + lean::dec(x_288); + x_306 = lean::box(0); +} +x_307 = lean::cnstr_get(x_287, 1); +if (lean::is_exclusive(x_287)) { + lean::cnstr_release(x_287, 0); + x_309 = x_287; +} else { + lean::inc(x_307); + lean::dec(x_287); + x_309 = lean::box(0); +} +x_310 = lean::cnstr_get(x_278, 6); +lean::inc(x_310); +x_312 = lean::cnstr_get(x_278, 7); +lean::inc(x_312); +lean::dec(x_278); +if (lean::is_scalar(x_109)) { + x_315 = lean::alloc_cnstr(1, 2, 0); +} else { + x_315 = x_109; +} +lean::cnstr_set(x_315, 0, x_92); +lean::cnstr_set(x_315, 1, x_23); +if (lean::is_scalar(x_309)) { + x_316 = lean::alloc_cnstr(0, 2, 0); +} else { + x_316 = x_309; +} +lean::cnstr_set(x_316, 0, x_312); +lean::cnstr_set(x_316, 1, x_315); +if (lean::is_scalar(x_277)) { + x_317 = lean::alloc_cnstr(0, 2, 0); +} else { + x_317 = x_277; +} +lean::cnstr_set(x_317, 0, x_310); +lean::cnstr_set(x_317, 1, x_316); +if (lean::is_scalar(x_183)) { + x_318 = lean::alloc_cnstr(0, 2, 0); +} else { + x_318 = x_183; +} +lean::cnstr_set(x_318, 0, x_280); +lean::cnstr_set(x_318, 1, x_317); +if (lean::is_scalar(x_131)) { + x_319 = lean::alloc_cnstr(0, 2, 0); +} else { + x_319 = x_131; +} +lean::cnstr_set(x_319, 0, x_94); +lean::cnstr_set(x_319, 1, x_318); +x_320 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_320, 0, x_319); +if (lean::is_scalar(x_306)) { + x_321 = lean::alloc_cnstr(1, 1, 0); +} else { + x_321 = x_306; +} +lean::cnstr_set(x_321, 0, x_320); +x_3 = x_321; +x_4 = x_307; +goto lbl_5; +} +} +} +} +} +lbl_98: +{ +obj* x_325; obj* x_326; obj* x_327; obj* x_328; +lean::dec(x_97); +lean::inc(x_21); +lean::inc(x_92); +x_325 = lean::alloc_closure(reinterpret_cast(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1___boxed), 3, 2); +lean::closure_set(x_325, 0, x_92); +lean::closure_set(x_325, 1, x_21); +x_326 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3; +x_327 = l_lean_profileit__pure___rarg(x_326, x_28, x_325, x_89); +x_328 = lean::cnstr_get(x_327, 0); +lean::inc(x_328); +if (lean::obj_tag(x_328) == 0) +{ +obj* x_331; obj* x_333; obj* x_334; obj* x_338; obj* x_339; +lean::dec(x_28); +x_331 = lean::cnstr_get(x_327, 1); +if (lean::is_exclusive(x_327)) { + lean::cnstr_release(x_327, 0); + lean::cnstr_set(x_327, 1, lean::box(0)); + x_333 = x_327; +} else { + lean::inc(x_331); + lean::dec(x_327); + x_333 = lean::box(0); +} +x_334 = lean::cnstr_get(x_328, 0); +lean::inc(x_334); +lean::dec(x_328); +lean::inc(x_0); +x_338 = lean::apply_2(x_0, x_334, x_331); +x_339 = lean::cnstr_get(x_338, 0); +lean::inc(x_339); +if (lean::obj_tag(x_339) == 0) +{ +obj* x_350; obj* x_353; obj* x_355; obj* x_356; +lean::dec(x_18); +lean::dec(x_21); +lean::dec(x_15); +lean::dec(x_23); +lean::dec(x_25); +lean::dec(x_92); +lean::dec(x_91); +lean::dec(x_333); +lean::dec(x_94); +x_350 = lean::cnstr_get(x_338, 1); +lean::inc(x_350); +lean::dec(x_338); +x_353 = lean::cnstr_get(x_339, 0); +if (lean::is_exclusive(x_339)) { + x_355 = x_339; +} else { + lean::inc(x_353); + lean::dec(x_339); + x_355 = lean::box(0); +} +if (lean::is_scalar(x_355)) { + x_356 = lean::alloc_cnstr(0, 1, 0); +} else { + x_356 = x_355; +} +lean::cnstr_set(x_356, 0, x_353); +x_3 = x_356; +x_4 = x_350; +goto lbl_5; +} +else +{ +obj* x_357; obj* x_358; obj* x_360; obj* x_361; obj* x_362; obj* x_363; obj* x_364; obj* x_365; obj* x_366; obj* x_367; +if (lean::is_exclusive(x_339)) { + lean::cnstr_release(x_339, 0); + x_357 = x_339; +} else { + lean::dec(x_339); + x_357 = lean::box(0); +} +x_358 = lean::cnstr_get(x_338, 1); +if (lean::is_exclusive(x_338)) { + lean::cnstr_release(x_338, 0); + x_360 = x_338; +} else { + lean::inc(x_358); + lean::dec(x_338); + x_360 = lean::box(0); +} +x_361 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_361, 0, x_92); +lean::cnstr_set(x_361, 1, x_23); +if (lean::is_scalar(x_360)) { + x_362 = lean::alloc_cnstr(0, 2, 0); +} else { + x_362 = x_360; +} +lean::cnstr_set(x_362, 0, x_21); +lean::cnstr_set(x_362, 1, x_361); +if (lean::is_scalar(x_333)) { + x_363 = lean::alloc_cnstr(0, 2, 0); +} else { + x_363 = x_333; +} +lean::cnstr_set(x_363, 0, x_18); +lean::cnstr_set(x_363, 1, x_362); +if (lean::is_scalar(x_91)) { + x_364 = lean::alloc_cnstr(0, 2, 0); +} else { + x_364 = x_91; +} +lean::cnstr_set(x_364, 0, x_15); +lean::cnstr_set(x_364, 1, x_363); +if (lean::is_scalar(x_25)) { + x_365 = lean::alloc_cnstr(0, 2, 0); +} else { + x_365 = x_25; +} +lean::cnstr_set(x_365, 0, x_94); +lean::cnstr_set(x_365, 1, x_364); +x_366 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_366, 0, x_365); +if (lean::is_scalar(x_357)) { + x_367 = lean::alloc_cnstr(1, 1, 0); +} else { + x_367 = x_357; +} +lean::cnstr_set(x_367, 0, x_366); +x_3 = x_367; +x_4 = x_358; +goto lbl_5; +} +} +else +{ +obj* x_371; obj* x_373; obj* x_374; obj* x_378; obj* x_379; obj* x_380; obj* x_382; +lean::dec(x_18); +lean::dec(x_21); +lean::dec(x_25); +x_371 = lean::cnstr_get(x_327, 1); +if (lean::is_exclusive(x_327)) { + lean::cnstr_release(x_327, 0); + lean::cnstr_set(x_327, 1, lean::box(0)); + x_373 = x_327; +} else { + lean::inc(x_371); + lean::dec(x_327); + x_373 = lean::box(0); +} +x_374 = lean::cnstr_get(x_328, 0); +lean::inc(x_374); +lean::dec(x_328); +lean::inc(x_374); +x_378 = lean::alloc_closure(reinterpret_cast(l_reader__t_monad___rarg___lambda__9___boxed), 3, 2); +lean::closure_set(x_378, 0, x_15); +lean::closure_set(x_378, 1, x_374); +x_379 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4; +x_380 = l_lean_profileit__pure___rarg(x_379, x_28, x_378, x_371); +lean::dec(x_28); +x_382 = lean::cnstr_get(x_380, 0); +lean::inc(x_382); +if (lean::obj_tag(x_382) == 0) +{ +obj* x_387; obj* x_390; obj* x_393; obj* x_395; uint8 x_396; +lean::dec(x_91); +lean::dec(x_94); +lean::dec(x_373); +x_387 = lean::cnstr_get(x_380, 1); +lean::inc(x_387); +lean::dec(x_380); +x_390 = lean::cnstr_get(x_382, 0); +lean::inc(x_390); +lean::dec(x_382); +x_395 = l_lean_parser_module_eoi; +x_396 = l_lean_parser_syntax_is__of__kind___main(x_395, x_374); +lean::dec(x_374); +if (x_396 == 0) +{ +obj* x_398; obj* x_399; obj* x_400; +x_398 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5; +x_399 = l_io_println___at_lean_run__frontend___spec__3(x_398, x_387); +x_400 = lean::cnstr_get(x_399, 0); +lean::inc(x_400); +if (lean::obj_tag(x_400) == 0) +{ +obj* x_405; obj* x_408; obj* x_410; obj* x_411; +lean::dec(x_23); +lean::dec(x_92); +lean::dec(x_390); +x_405 = lean::cnstr_get(x_399, 1); +lean::inc(x_405); +lean::dec(x_399); +x_408 = lean::cnstr_get(x_400, 0); +if (lean::is_exclusive(x_400)) { + x_410 = x_400; +} else { + lean::inc(x_408); + lean::dec(x_400); + x_410 = lean::box(0); +} +if (lean::is_scalar(x_410)) { + x_411 = lean::alloc_cnstr(0, 1, 0); +} else { + x_411 = x_410; +} +lean::cnstr_set(x_411, 0, x_408); +x_3 = x_411; +x_4 = x_405; +goto lbl_5; +} +else +{ +obj* x_413; obj* x_416; obj* x_418; obj* x_419; +lean::dec(x_400); +x_413 = lean::cnstr_get(x_399, 1); +lean::inc(x_413); +lean::dec(x_399); +x_416 = l_list_reverse___rarg(x_390); +lean::inc(x_0); +x_418 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__7(x_0, x_416, x_413); +x_419 = lean::cnstr_get(x_418, 0); +lean::inc(x_419); +if (lean::obj_tag(x_419) == 0) +{ +obj* x_423; obj* x_426; obj* x_428; obj* x_429; +lean::dec(x_23); +lean::dec(x_92); +x_423 = lean::cnstr_get(x_418, 1); +lean::inc(x_423); +lean::dec(x_418); +x_426 = lean::cnstr_get(x_419, 0); +if (lean::is_exclusive(x_419)) { + x_428 = x_419; +} else { + lean::inc(x_426); + lean::dec(x_419); + x_428 = lean::box(0); +} +if (lean::is_scalar(x_428)) { + x_429 = lean::alloc_cnstr(0, 1, 0); +} else { + x_429 = x_428; +} +lean::cnstr_set(x_429, 0, x_426); +x_3 = x_429; +x_4 = x_423; +goto lbl_5; +} +else +{ +obj* x_430; obj* x_431; obj* x_434; obj* x_435; obj* x_436; obj* x_437; +if (lean::is_exclusive(x_419)) { + lean::cnstr_release(x_419, 0); + x_430 = x_419; +} else { + lean::dec(x_419); + x_430 = lean::box(0); +} +x_431 = lean::cnstr_get(x_418, 1); +lean::inc(x_431); +lean::dec(x_418); +x_434 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_434, 0, x_92); +lean::cnstr_set(x_434, 1, x_23); +x_435 = l_list_reverse___rarg(x_434); +x_436 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_436, 0, x_435); +if (lean::is_scalar(x_430)) { + x_437 = lean::alloc_cnstr(1, 1, 0); +} else { + x_437 = x_430; +} +lean::cnstr_set(x_437, 0, x_436); +x_3 = x_437; +x_4 = x_431; +goto lbl_5; +} +} +} +else +{ +obj* x_438; +x_438 = lean::box(0); +x_393 = x_438; +goto lbl_394; +} +lbl_394: +{ +obj* x_440; obj* x_442; obj* x_443; +lean::dec(x_393); +x_440 = l_list_reverse___rarg(x_390); +lean::inc(x_0); +x_442 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__6(x_0, x_440, x_387); +x_443 = lean::cnstr_get(x_442, 0); +lean::inc(x_443); +if (lean::obj_tag(x_443) == 0) +{ +obj* x_447; obj* x_450; obj* x_452; obj* x_453; +lean::dec(x_23); +lean::dec(x_92); +x_447 = lean::cnstr_get(x_442, 1); +lean::inc(x_447); +lean::dec(x_442); +x_450 = lean::cnstr_get(x_443, 0); +if (lean::is_exclusive(x_443)) { + x_452 = x_443; +} else { + lean::inc(x_450); + lean::dec(x_443); + x_452 = lean::box(0); +} +if (lean::is_scalar(x_452)) { + x_453 = lean::alloc_cnstr(0, 1, 0); +} else { + x_453 = x_452; +} +lean::cnstr_set(x_453, 0, x_450); +x_3 = x_453; +x_4 = x_447; +goto lbl_5; +} +else +{ +obj* x_454; obj* x_455; obj* x_458; obj* x_459; obj* x_460; obj* x_461; +if (lean::is_exclusive(x_443)) { + lean::cnstr_release(x_443, 0); + x_454 = x_443; +} else { + lean::dec(x_443); + x_454 = lean::box(0); +} +x_455 = lean::cnstr_get(x_442, 1); +lean::inc(x_455); +lean::dec(x_442); +x_458 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_458, 0, x_92); +lean::cnstr_set(x_458, 1, x_23); +x_459 = l_list_reverse___rarg(x_458); +x_460 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_460, 0, x_459); +if (lean::is_scalar(x_454)) { + x_461 = lean::alloc_cnstr(1, 1, 0); +} else { + x_461 = x_454; +} +lean::cnstr_set(x_461, 0, x_460); +x_3 = x_461; +x_4 = x_455; +goto lbl_5; +} +} +} +else +{ +obj* x_463; obj* x_465; obj* x_466; obj* x_468; obj* x_471; obj* x_473; obj* x_475; obj* x_476; +lean::dec(x_374); +x_463 = lean::cnstr_get(x_380, 1); +if (lean::is_exclusive(x_380)) { + lean::cnstr_release(x_380, 0); + lean::cnstr_set(x_380, 1, lean::box(0)); + x_465 = x_380; +} else { + lean::inc(x_463); + lean::dec(x_380); + x_465 = lean::box(0); +} +x_466 = lean::cnstr_get(x_382, 0); +lean::inc(x_466); +x_468 = lean::cnstr_get(x_382, 1); +lean::inc(x_468); +lean::dec(x_382); +x_471 = lean::cnstr_get(x_466, 5); +lean::inc(x_471); +x_473 = l_list_reverse___rarg(x_471); +lean::inc(x_0); +x_475 = l_list_mmap_x_27___main___at_lean_run__frontend___spec__8(x_0, x_473, x_463); +x_476 = lean::cnstr_get(x_475, 0); +lean::inc(x_476); +if (lean::obj_tag(x_476) == 0) +{ +obj* x_486; obj* x_489; obj* x_491; obj* x_492; +lean::dec(x_466); +lean::dec(x_465); +lean::dec(x_468); +lean::dec(x_23); +lean::dec(x_92); +lean::dec(x_91); +lean::dec(x_94); +lean::dec(x_373); +x_486 = lean::cnstr_get(x_475, 1); +lean::inc(x_486); +lean::dec(x_475); +x_489 = lean::cnstr_get(x_476, 0); +if (lean::is_exclusive(x_476)) { + x_491 = x_476; +} else { + lean::inc(x_489); + lean::dec(x_476); + x_491 = lean::box(0); +} +if (lean::is_scalar(x_491)) { + x_492 = lean::alloc_cnstr(0, 1, 0); +} else { + x_492 = x_491; +} +lean::cnstr_set(x_492, 0, x_489); +x_3 = x_492; +x_4 = x_486; +goto lbl_5; +} +else +{ +obj* x_493; obj* x_494; obj* x_496; obj* x_497; obj* x_499; obj* x_502; obj* x_503; obj* x_504; obj* x_505; obj* x_506; obj* x_507; obj* x_508; +if (lean::is_exclusive(x_476)) { + lean::cnstr_release(x_476, 0); + x_493 = x_476; +} else { + lean::dec(x_476); + x_493 = lean::box(0); +} +x_494 = lean::cnstr_get(x_475, 1); +if (lean::is_exclusive(x_475)) { + lean::cnstr_release(x_475, 0); + x_496 = x_475; +} else { + lean::inc(x_494); + lean::dec(x_475); + x_496 = lean::box(0); +} +x_497 = lean::cnstr_get(x_466, 6); +lean::inc(x_497); +x_499 = lean::cnstr_get(x_466, 7); +lean::inc(x_499); +lean::dec(x_466); +x_502 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_502, 0, x_92); +lean::cnstr_set(x_502, 1, x_23); +if (lean::is_scalar(x_496)) { + x_503 = lean::alloc_cnstr(0, 2, 0); +} else { + x_503 = x_496; +} +lean::cnstr_set(x_503, 0, x_499); +lean::cnstr_set(x_503, 1, x_502); +if (lean::is_scalar(x_465)) { + x_504 = lean::alloc_cnstr(0, 2, 0); +} else { + x_504 = x_465; +} +lean::cnstr_set(x_504, 0, x_497); +lean::cnstr_set(x_504, 1, x_503); +if (lean::is_scalar(x_373)) { + x_505 = lean::alloc_cnstr(0, 2, 0); +} else { + x_505 = x_373; +} +lean::cnstr_set(x_505, 0, x_468); +lean::cnstr_set(x_505, 1, x_504); +if (lean::is_scalar(x_91)) { + x_506 = lean::alloc_cnstr(0, 2, 0); +} else { + x_506 = x_91; +} +lean::cnstr_set(x_506, 0, x_94); +lean::cnstr_set(x_506, 1, x_505); +x_507 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_507, 0, x_506); +if (lean::is_scalar(x_493)) { + x_508 = lean::alloc_cnstr(1, 1, 0); +} else { + x_508 = x_493; +} +lean::cnstr_set(x_508, 0, x_507); +x_3 = x_508; +x_4 = x_494; +goto lbl_5; +} +} } -lean::cnstr_set(x_441, 0, x_438); -x_442 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_442, 0, x_441); -lean::cnstr_set(x_442, 1, x_4); -return x_442; } } } @@ -2490,6 +2576,15 @@ lean::dec(x_0); return x_2; } } +obj* l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = l_io_prim_iterate___main___at_lean_run__frontend___spec__14___lambda__1(x_0, x_1, x_2); +lean::dec(x_2); +return x_3; +} +} obj* l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -2879,6 +2974,7 @@ void initialize_init_default(); void initialize_init_lean_parser_module(); void initialize_init_lean_expander(); void initialize_init_lean_elaborator(); +void initialize_init_lean_util(); void initialize_init_io(); static bool _G_initialized = false; void initialize_init_lean_frontend() { @@ -2888,6 +2984,7 @@ void initialize_init_lean_frontend() { initialize_init_lean_parser_module(); initialize_init_lean_expander(); initialize_init_lean_elaborator(); + initialize_init_lean_util(); initialize_init_io(); l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___closed__1 = _init_l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___closed__1(); lean::mark_persistent(l_lean_parser_parsec__t_run___at_lean_run__frontend___spec__2___rarg___closed__1); @@ -2897,6 +2994,12 @@ lean::mark_persistent(l_list_mmap_x_27___main___at_lean_run__frontend___spec__6_ lean::mark_persistent(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__1); l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2 = _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2(); lean::mark_persistent(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__2); + l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3 = _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3(); +lean::mark_persistent(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__3); + l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4 = _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4(); +lean::mark_persistent(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__4); + l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5 = _init_l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5(); +lean::mark_persistent(l_io_prim_iterate___main___at_lean_run__frontend___spec__14___closed__5); l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___closed__1 = _init_l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___closed__1(); lean::mark_persistent(l_io_prim_iterate__eio___at_lean_run__frontend___spec__13___closed__1); l_lean_process__file___lambda__1___closed__1 = _init_l_lean_process__file___lambda__1___closed__1(); diff --git a/src/boot/init/lean/parser/basic.cpp b/src/boot/init/lean/parser/basic.cpp index a61e12b966..bd5e460b42 100644 --- a/src/boot/init/lean/parser/basic.cpp +++ b/src/boot/init/lean/parser/basic.cpp @@ -24,7 +24,6 @@ obj* l_lean_parser_command__parser__config__coe__parser__config___boxed(obj*); obj* l_lean_parser_parser__core__t_lean_parser_monad__parsec(obj*); obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__5___rarg(obj*, obj*, obj*); obj* l_lean_parser_trailing__term__parser; -obj* l_id___boxed(obj*); obj* l_lean_parser_parser__t_monad__except___boxed(obj*, obj*); obj* l_lean_parser_monad__basic__parser; obj* l_lean_parser_parser__core__t; @@ -44,6 +43,7 @@ extern obj* l_mjoin___rarg___closed__1; obj* l_lean_parser_token__map__cons_tokens___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_basic__parser__m_monad; obj* l_list_mfoldl___main___at_lean_parser_mk__token__trie___spec__1(obj*, obj*); +obj* l_id_monad___lambda__1(obj*, obj*, obj*, obj*); obj* l_list_mfoldl___main___at_lean_parser_mk__token__trie___spec__1___closed__2; obj* l_rbmap_find___main___at_lean_parser_token__map_insert___spec__1___rarg(obj*, obj*); obj* l_lean_parser_command__parser__m; @@ -63,7 +63,6 @@ obj* l_lean_parser_command__parser__m_monad__reader__adapter(obj*, obj*); obj* l_rbnode_insert___at_lean_parser_token__map_insert___spec__8___boxed(obj*); uint8 l_lean_parser_syntax_is__of__kind___main(obj*, obj*); obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__5(obj*); -obj* l_id___rarg___boxed(obj*); obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__9___rarg(obj*, obj*, obj*); obj* l_lean_parser_has__tokens_inhabited___boxed(obj*, obj*); obj* l_lean_parser_command__parser__m_basic__parser___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -103,6 +102,7 @@ obj* l_rbmap_insert___main___at_lean_parser_token__map_insert___spec__7___boxed( obj* l_lean_parser_parser__core__t_alternative(obj*); obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg(obj*, obj*); obj* l_rbnode_insert___at_lean_parser_token__map_insert___spec__8(obj*); +obj* l_id_bind(obj*, obj*); obj* l_lean_parser_token__map_of__list(obj*); obj* l_lean_parser_command__parser__m_lean_parser_monad__parsec___closed__1; obj* l_lean_parser_parser__core__t_monad___boxed(obj*); @@ -128,6 +128,7 @@ uint8 nat_dec_eq(obj*, obj*); obj* l_lean_parser_token__map__cons_tokens___rarg(obj*, obj*); obj* l_lean_parser_command__parser__m_basic__parser(obj*); obj* l_lean_parser_term__parser__m_lean_parser_monad__parsec; +obj* l_id(obj*); obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__5___boxed(obj*); obj* l_lean_parser_parser__core__t_monad___rarg(obj*); obj* l_lean_parser_basic__parser__m_monad__reader; @@ -137,6 +138,7 @@ obj* l_lean_parser_trailing__term__parser__m; obj* l_lean_parser_tokens___rarg___boxed(obj*); obj* l_rbmap_find___main___at_lean_parser_token__map_insert___spec__1___rarg___boxed(obj*, obj*); extern obj* l_string_join___closed__1; +obj* l_id___rarg(obj*); obj* l_lean_parser_list_nil_tokens___boxed(obj*); obj* l_lean_parser_monad__rec_trans___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_command__parser__m_alternative___boxed(obj*); @@ -155,6 +157,7 @@ obj* l_rbmap_insert___main___at_lean_parser_token__map_insert___spec__3(obj*); obj* l_lean_parser_run___rarg___closed__1; obj* l_lean_parser_command__parser__config__coe__parser__config(obj*); obj* l_lean_parser_try__view___rarg(obj*, obj*, obj*); +obj* l_id_monad___lambda__3(obj*, obj*, obj*, obj*); obj* l_reader__t_monad__reader__adapter___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_mk__token__trie___closed__1; obj* l_lean_parser_has__view_default___boxed(obj*); @@ -166,7 +169,6 @@ obj* l_lean_parser_parsec_message_text___rarg(obj*); namespace lean { obj* string_iterator_offset(obj*); } -obj* l_id_monad___lambda__1___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_list_cons_tokens___rarg___boxed(obj*, obj*); obj* l_lean_parser_token__map_of__list___main(obj*); obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__10___rarg(obj*, obj*, obj*); @@ -207,7 +209,6 @@ obj* l_lean_parser_parser__config__coe(obj*); obj* l_lean_parser_try__view___boxed(obj*); obj* l_lean_parser_parser__core__t_lean_parser_monad__parsec___rarg(obj*); obj* l_lean_parser_log__message___boxed(obj*, obj*, obj*); -obj* l_has__monad__lift__t__trans___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_parsec__t_run___at_lean_parser_run___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_parser__t_monad__except___rarg(obj*); obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg___boxed(obj*, obj*); @@ -215,9 +216,9 @@ obj* l_reader__t_monad___rarg(obj*); obj* l_lean_parser_trailing__term__parser__m_alternative; obj* l_lean_parser_basic__parser; obj* l_nat_repr(obj*); +obj* l_has__monad__lift__t__trans___rarg(obj*, obj*, obj*, obj*); obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__6___boxed(obj*); obj* l_lean_parser_command__parser__m_monad___boxed(obj*); -obj* l_id_bind___boxed(obj*, obj*); obj* l_lean_parser_parser__t_monad___boxed(obj*, obj*); obj* l_lean_parser_command__parser__m_lean_parser_monad__rec___closed__1; obj* l_lean_parser_term__parser__m_lean_parser_monad__rec; @@ -226,6 +227,7 @@ obj* l_rbnode_ins___main___at_lean_parser_token__map_insert___spec__10(obj*); obj* l_lean_parser_token__map_insert(obj*); obj* l_lean_parser_parsec__t_run___at_lean_parser_run___spec__1(obj*); obj* l_rbmap_insert___main___at_lean_parser_token__map_insert___spec__3___boxed(obj*); +obj* l_id_monad___lambda__2(obj*, obj*, obj*, obj*); obj* l_lean_parser_trailing__term__parser__m_lean_parser_monad__rec; obj* l_lean_parser_parser__t_monad__reader(obj*, obj*); obj* l_lean_file__map_to__position(obj*, obj*); @@ -246,9 +248,7 @@ obj* l_lean_parser_tokens(obj*, obj*); obj* l_lean_parser_term__parser; obj* l_lean_parser_term__parser__m_monad__reader; obj* l_lean_parser_log__message(obj*, obj*, obj*); -obj* l_id_monad___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_command__parser__m_alternative(obj*); -obj* l_id_monad___lambda__3___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_run___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_lean_parser_command__parser__m_monad__reader___boxed(obj*); obj* l_rbnode_set__black___main___rarg(obj*); @@ -557,22 +557,22 @@ obj* _init_l_lean_parser_basic__parser__m_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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -584,22 +584,22 @@ obj* _init_l_lean_parser_basic__parser__m_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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -611,22 +611,22 @@ obj* _init_l_lean_parser_basic__parser__m_monad__reader() { _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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -638,22 +638,22 @@ obj* _init_l_lean_parser_basic__parser__m_lean_parser_monad__parsec() { _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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -665,22 +665,22 @@ obj* _init_l_lean_parser_basic__parser__m_monad__except() { _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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1584,22 +1584,22 @@ obj* _init_l_lean_parser_command__parser__m_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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1630,22 +1630,22 @@ obj* _init_l_lean_parser_command__parser__m_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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1680,22 +1680,22 @@ obj* _init_l_lean_parser_command__parser__m_monad__reader___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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1727,22 +1727,22 @@ obj* _init_l_lean_parser_command__parser__m_lean_parser_monad__parsec___closed__ _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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1789,22 +1789,22 @@ obj* _init_l_lean_parser_command__parser__m_monad__except___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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1835,22 +1835,22 @@ obj* _init_l_lean_parser_command__parser__m_lean_parser_monad__rec___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_12; 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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -1900,22 +1900,22 @@ obj* _init_l_lean_parser_command__parser__m_monad__reader__adapter___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); +x_0 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__1), 4, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 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___boxed), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3___boxed), 4, 0); +x_5 = lean::alloc_closure(reinterpret_cast(l_id), 1, 0); +x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 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, 3, x_1); lean::cnstr_set(x_7, 4, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind), 2, 0); x_9 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_9, 0, x_7); lean::cnstr_set(x_9, 1, x_8); @@ -2050,10 +2050,10 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_reader__t_lift___boxed), 4, lean::closure_set(x_1, 0, lean::box(0)); lean::closure_set(x_1, 1, lean::box(0)); lean::closure_set(x_1, 2, x_0); -x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_command__parser__m_basic__parser___rarg___boxed), 7, 1); lean::closure_set(x_3, 0, x_2); -x_4 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 4, 2); +x_4 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg), 4, 2); lean::closure_set(x_4, 0, x_1); lean::closure_set(x_4, 1, x_3); return x_4; @@ -2160,7 +2160,7 @@ lean::closure_set(x_1, 0, lean::box(0)); lean::closure_set(x_1, 1, lean::box(0)); lean::closure_set(x_1, 2, x_0); x_2 = l_lean_parser_term__parser__m_lean_parser_monad__basic__parser; -x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 4, 2); +x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg), 4, 2); lean::closure_set(x_3, 0, x_1); lean::closure_set(x_3, 1, x_2); return x_3; diff --git a/src/boot/init/lean/parser/level.cpp b/src/boot/init/lean/parser/level.cpp index 241db34ce0..b2db8d283b 100644 --- a/src/boot/init/lean/parser/level.cpp +++ b/src/boot/init/lean/parser/level.cpp @@ -26,7 +26,6 @@ obj* l_lean_parser_level_app_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__2(obj*); extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_number_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__2___rarg(obj*, obj*, obj*); -obj* l_has__monad__lift__t__refl___boxed(obj*, obj*); obj* l_lean_parser_trailing__level__parser__m_lean_parser_monad__parsec; obj* l_lean_parser_level_add__lit_parser_lean_parser_has__tokens; obj* l_lean_parser_level_trailing_has__view_x_27___lambda__1___closed__1; @@ -42,6 +41,7 @@ extern obj* l_mjoin___rarg___closed__1; extern obj* l_lean_parser_basic__parser__m_monad; obj* l_lean_parser_level_app; obj* l_lean_parser_number_parser___at_lean_parser_level_add__lit_parser_lean_parser_has__tokens___spec__2(obj*, obj*); +obj* l_has__monad__lift__t__refl(obj*, obj*); obj* l_list_mfoldl___main___at_lean_parser_level_paren_parser___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_trailing__level__parser__coe___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_rec_1__run__aux___at_lean_parser_level__parser_run___spec__7___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -68,7 +68,6 @@ obj* l_lean_parser_level_add__lit_has__view_x_27___lambda__1___closed__1; extern obj* l___private_init_lean_parser_combinators_1__many1__aux___main___rarg___closed__1; obj* l_lean_parser_combinators_choice__aux___main___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_level_trailing_parser_lean_parser_has__tokens; -obj* l_id___rarg___boxed(obj*); obj* l_lean_parser_level_paren_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_curr__lbp___at_lean_parser_level__parser_run___spec__4(obj*, obj*, obj*, obj*); obj* l_lean_parser_combinators_choice__aux___main___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__4(obj*, obj*, obj*, obj*, obj*, obj*); @@ -145,6 +144,7 @@ extern obj* l_lean_parser_finish__comment__block___closed__2; obj* l_lean_parser_number_parser___at_lean_parser_level_add__lit_parser_lean_parser_has__tokens___spec__2___boxed(obj*, obj*); extern obj* l_string_join___closed__1; obj* l_lean_parser_level_leading_parser(obj*, obj*, obj*, obj*); +obj* l_id___rarg(obj*); obj* l_lean_parser_monad__rec_trans___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_reader__t_read___rarg(obj*, obj*); extern obj* l_lean_parser_max__prec; @@ -200,12 +200,12 @@ obj* l_string_trim(obj*); obj* l_list_mfoldl___main___at_lean_parser_level_app_parser___spec__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_option_get___main___at_lean_parser_run___spec__2(obj*); extern obj* l_lean_parser_curr__lbp___rarg___lambda__3___closed__1; -obj* l_has__monad__lift__t__trans___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_ident_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__3___rarg(obj*, obj*, obj*); obj* l_reader__t_monad___rarg(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__5___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_level_leading_has__view_x_27___lambda__1___closed__5; extern "C" obj* lean_name_mk_numeral(obj*, obj*); +obj* l_has__monad__lift__t__trans___rarg(obj*, obj*, obj*, obj*); obj* l_lean_parser_level_add__lit_has__view; obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_level_app_parser(obj*, obj*, obj*, obj*, obj*); @@ -319,9 +319,9 @@ x_1 = lean::alloc_closure(reinterpret_cast(l_reader__t_lift___boxed), 4, lean::closure_set(x_1, 0, lean::box(0)); lean::closure_set(x_1, 1, lean::box(0)); lean::closure_set(x_1, 2, x_0); -x_2 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__refl___boxed), 2, 1); +x_2 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__refl), 2, 1); lean::closure_set(x_2, 0, lean::box(0)); -x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 4, 2); +x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg), 4, 2); lean::closure_set(x_3, 0, x_1); lean::closure_set(x_3, 1, x_2); return x_3; @@ -428,7 +428,7 @@ lean::closure_set(x_1, 0, lean::box(0)); lean::closure_set(x_1, 1, lean::box(0)); lean::closure_set(x_1, 2, x_0); x_2 = l_lean_parser_level__parser__m_lean_parser_monad__basic__parser; -x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 4, 2); +x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg), 4, 2); lean::closure_set(x_3, 0, x_1); lean::closure_set(x_3, 1, x_2); return x_3; @@ -620,7 +620,7 @@ obj* _init_l_lean_parser_level_lean_parser_has__view() { _start: { obj* x_0; obj* x_2; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); lean::inc(x_0); x_2 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2, 0, x_0); @@ -6081,7 +6081,7 @@ obj* _init_l_lean_parser_level__parser_run_lean_parser_has__view___closed__1() { _start: { obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__refl___boxed), 2, 1); +x_0 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__refl), 2, 1); lean::closure_set(x_0, 0, lean::box(0)); return x_0; } diff --git a/src/boot/init/lean/parser/module.cpp b/src/boot/init/lean/parser/module.cpp index 7f14917500..438ac8e1fe 100644 --- a/src/boot/init/lean/parser/module.cpp +++ b/src/boot/init/lean/parser/module.cpp @@ -17,7 +17,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; obj* l_lean_parser_module__parser__m_lean_parser_monad__parsec; obj* l_lean_parser_module__parser__m_monad__except; obj* l_lean_parser_module_parser___lambda__5(obj*); -obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___lambda__1(obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__15(uint8, obj*); obj* l_lean_parser_parsec__t_bind__mk__res___rarg(obj*, obj*); obj* l_lean_parser_module_header_parser_lean_parser_has__view; @@ -40,8 +39,9 @@ extern obj* l_lean_parser_ident_parser___at_lean_parser_command_notation__spec_f extern obj* l_lean_parser_combinators_many___rarg___closed__1; obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__15___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___boxed(obj*); -obj* l_lean_parser_module_yield__command___lambda__8(obj*, obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__8(obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__11___closed__2; +obj* l_lean_parser_module_yield__command___lambda__10(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__3___closed__1; obj* l_lean_parser_module_parser___lambda__1___boxed(obj*, obj*, obj*, obj*); namespace lean { @@ -76,18 +76,15 @@ extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_lean_parser_module_import; obj* l_lean_parser_module__parser__m_lift__parser__t___boxed(obj*); obj* l_lean_parser_module__parser__m_monad__coroutine; -obj* l_lean_parser_module_yield__command___lambda__2___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_parsec__t_labels__mk__res___rarg(obj*, obj*); extern obj* l___private_init_lean_parser_combinators_1__many1__aux___main___rarg___closed__1; obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__1(obj*, obj*, obj*, obj*, obj*); -obj* l_id___rarg___boxed(obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main(uint8, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__10___closed__1; obj* l_string_quote(obj*); extern obj* l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; obj* l_lean_parser_module__parser__config__coe___boxed(obj*); obj* l_lean_parser_module_header_has__view_x_27___lambda__2(obj*); -obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__2(obj*, obj*); obj* l_lean_parser_combinators_many___at_lean_parser_module_import__path_parser_lean_parser_has__view___spec__1(obj*, obj*, obj*, obj*); namespace lean { obj* string_iterator_next(obj*); @@ -97,7 +94,7 @@ obj* l_lean_parser_message__of__parsec__message___rarg(obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__10(obj*); obj* l_lean_parser_module_header_parser(obj*, obj*, obj*); obj* l_lean_parser_module_parser___lambda__4(obj*); -obj* l_lean_parser_module_yield__command___lambda__3___boxed(obj*, obj*); +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__3(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1(obj*); obj* l_coe__t___rarg(obj*, obj*); obj* l_lean_parser_module_import_has__view_x_27; @@ -110,7 +107,7 @@ namespace lean { uint32 string_iterator_curr(obj*); } obj* l_lean_parser_module__parser__m_monad__reader; -obj* l_lean_parser_module_yield__command___lambda__2(obj*, obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__2(obj*, obj*); obj* l_lean_parser_module_parser(obj*, obj*, obj*); extern obj* l_lean_name_to__string___closed__1; obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -126,7 +123,6 @@ obj* l_lean_parser_module__parser__config__coe(obj*); obj* l_lean_parser_module_header_has__view_x_27___lambda__1___closed__3; obj* l_lean_parser_module_import__path_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_module_import__path_has__view_x_27; -obj* l_lean_parser_module_yield__command___lambda__7___closed__1; obj* l_lean_parser_module_yield__command___lambda__5(obj*, obj*, obj*); extern obj* l_lean_parser_parsec_result_mk__eps___rarg___closed__1; obj* l_lean_parser_module_commands_parser___lambda__2(obj*); @@ -139,6 +135,7 @@ obj* l_lean_parser_module_import_has__view_x_27___lambda__1___closed__1; namespace lean { obj* string_iterator_to_end(obj*); } +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2(obj*, obj*, obj*); obj* l_lean_parser_module_prelude_has__view; obj* l_lean_parser_tokens___rarg(obj*); extern obj* l_lean_parser_command_parser_lean_parser_has__tokens; @@ -169,7 +166,7 @@ extern obj* l_char_has__repr___closed__1; obj* l_lean_parser_module__parser__m_monad; obj* l_coroutine_bind___main___rarg(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_any___at___private_init_lean_parser_module_1__commands__aux___main___spec__3___lambda__2(obj*, obj*); -obj* l_lean_parser_module_yield__command___lambda__4(obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__4(obj*, obj*, obj*, obj*); obj* l_lean_parser_module__parser; obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__11___closed__3; obj* l_lean_parser_module_yield__command(obj*, obj*, obj*, obj*); @@ -179,6 +176,7 @@ extern obj* l_lean_parser_finish__comment__block___closed__2; extern obj* l_string_join___closed__1; obj* l_reader__t_lift___at_lean_parser_with__trailing___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_any___at___private_init_lean_parser_module_1__commands__aux___main___spec__3(obj*, obj*, obj*); +obj* l_id___rarg(obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__13___closed__1; obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__19(obj*, obj*, obj*, uint8, obj*, obj*); extern obj* l_lean_parser_ident_parser_view___rarg___lambda__1___closed__1; @@ -191,6 +189,7 @@ obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__17___ obj* l_coroutine_yield___rarg___boxed(obj*, obj*); obj* l_lean_parser_module_import__path_parser_lean_parser_has__view___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_module_import__path_parser_lean_parser_has__view___lambda__1(obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__8___closed__1; obj* l_lean_parser_module_commands_tokens; obj* l_lean_parser_module__parser__m_basic__parser__m___closed__1; obj* l_lean_parser_combinators_many1___at_lean_parser_ident__univ__spec_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*); @@ -213,7 +212,8 @@ obj* l_lean_parser_module_header_parser_lean_parser_has__tokens; obj* l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2(obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_module_commands_parser_has__view___lambda__1(obj*); -obj* l_lean_parser_module_yield__command___lambda__9(obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__9(obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1(obj*, obj*, obj*); extern obj* l_coroutine_monad___closed__1; obj* l_lean_parser_combinators_optional___at_lean_parser_module_header_parser_lean_parser_has__view___spec__1(obj*, obj*, obj*, obj*); obj* l_lean_parser_module_header_has__view; @@ -244,16 +244,21 @@ obj* l_string_trim(obj*); obj* l_lean_parser_monad__parsec_eoi___at___private_init_lean_parser_module_1__commands__aux___main___spec__2(obj*, obj*, obj*); obj* l_lean_parser_module_commands_parser___closed__1; obj* l_option_get___main___at_lean_parser_run___spec__2(obj*); +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___closed__1; obj* l_lean_parser_module__parser__m_basic__parser__m___boxed(obj*, obj*); obj* l_lean_parser_module__parser__m_lift__parser__t___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__14(obj*, obj*); +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1(obj*, obj*); extern obj* l_lean_parser_ident__univ__spec_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_module_import_parser_lean_parser_has__tokens; obj* l_lean_parser_parser__core__t_lean_parser_monad__parsec___rarg(obj*); obj* l_lean_parser_module_header_has__view_x_27___lambda__1(obj*); +obj* l_lean_parser_module_yield__command___lambda__4___boxed(obj*, obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__6___boxed(obj*, obj*); obj* l_lean_parser_monad__parsec_eoi___at___private_init_lean_parser_module_1__commands__aux___main___spec__2___lambda__1(obj*, obj*); obj* l_lean_parser_module_import_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__12(obj*, obj*, obj*); obj* l_lean_parser_module_parser___lambda__8(obj*, obj*); obj* l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__1(obj*); obj* l_lean_parser_module_parser___lambda__7___boxed(obj*, obj*); @@ -263,7 +268,7 @@ obj* l_lean_parser_module_prelude_parser_lean_parser_has__view; obj* l_lean_parser_module_prelude_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_module_import_has__view_x_27___lambda__1___closed__3; obj* l_lean_parser_module_header_has__view_x_27___lambda__1___closed__5; -obj* l_lean_parser_module_yield__command___lambda__7(obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__7(obj*, obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__4(obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__14___boxed(obj*, obj*); obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1(obj*, obj*); @@ -275,6 +280,7 @@ obj* nat_sub(obj*, obj*); } obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__13___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4(obj*, obj*, obj*, obj*); +obj* l_lean_file__map_to__position(obj*, obj*); obj* l_lean_parser_monad__parsec_any___at___private_init_lean_parser_module_1__commands__aux___main___spec__3___lambda__1(obj*, obj*, obj*); obj* l_lean_parser_module_import__path_parser(obj*, obj*, obj*); extern obj* l_lean_parser_basic__parser__m_lean_parser_monad__parsec; @@ -288,12 +294,13 @@ obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__1___c obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_module__parser__m_alternative; obj* l_lean_parser_module__parser__m; +obj* l_lean_parser_module_yield__command___lambda__11(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_module_header_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_parser__core__t_monad__except___rarg(obj*); obj* l_list_map___main___at_lean_parser_module_import__path_has__view_x_27___spec__1(obj*); obj* l_lean_parser_substring_of__string(obj*); obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__11(obj*, obj*); -obj* l_lean_parser_module_yield__command___lambda__6(obj*, obj*, obj*); +obj* l_lean_parser_module_yield__command___lambda__6(obj*, obj*); extern obj* l_coroutine_yield___rarg___closed__1; obj* l_char_quote__core(uint32); obj* l_lean_parser_module_parser___closed__2; @@ -666,7 +673,7 @@ lean::dec(x_1); return x_2; } } -obj* l_lean_parser_module_yield__command___lambda__1(obj* x_0, obj* x_1) { +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1(obj* x_0, obj* x_1) { _start: { obj* x_2; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; @@ -693,81 +700,7 @@ lean::closure_set(x_9, 0, x_8); return x_9; } } -obj* l_lean_parser_module_yield__command___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -lean::inc(x_0); -x_5 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_5, 0, x_0); -lean::cnstr_set(x_5, 1, x_1); -x_6 = l_lean_parser_finish__comment__block___closed__2; -x_7 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_7, 0, x_5); -lean::cnstr_set(x_7, 1, x_2); -lean::cnstr_set(x_7, 2, x_6); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_0); -x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_9, 0, x_8); -return x_9; -} -} -obj* l_lean_parser_module_yield__command___lambda__3(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; obj* x_3; -x_2 = l_coroutine_yield___rarg___closed__1; -x_3 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_3, 0, x_0); -lean::cnstr_set(x_3, 1, x_2); -return x_3; -} -} -obj* l_lean_parser_module_yield__command___lambda__4(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; obj* x_3; -x_2 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_2, 0, x_1); -lean::cnstr_set(x_2, 1, x_0); -x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_3, 0, x_2); -return x_3; -} -} -obj* l_lean_parser_module_yield__command___lambda__5(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_10; -x_3 = lean::cnstr_get(x_2, 0); -x_5 = lean::cnstr_get(x_2, 1); -if (lean::is_exclusive(x_2)) { - x_7 = x_2; -} else { - lean::inc(x_3); - lean::inc(x_5); - lean::dec(x_2); - x_7 = lean::box(0); -} -x_8 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_8, 0, x_3); -lean::cnstr_set(x_8, 1, x_0); -lean::cnstr_set(x_8, 2, x_1); -if (lean::is_scalar(x_7)) { - x_9 = lean::alloc_cnstr(0, 2, 0); -} else { - x_9 = x_7; -} -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_5); -x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_10, 0, x_9); -return x_10; -} -} -obj* l_lean_parser_module_yield__command___lambda__6(obj* x_0, obj* x_1, obj* x_2) { +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; @@ -817,7 +750,7 @@ lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_5); x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_18, 0, x_17); -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_12); x_20 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_20, 0, x_18); @@ -868,7 +801,487 @@ return x_33; } } } -obj* _init_l_lean_parser_module_yield__command___lambda__7___closed__1() { +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__3(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::cnstr_get(x_1, 0); +lean::inc(x_2); +if (lean::obj_tag(x_2) == 0) +{ +obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +x_4 = lean::cnstr_get(x_2, 0); +lean::inc(x_4); +x_6 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + lean::cnstr_release(x_1, 0); + x_8 = x_1; +} else { + lean::inc(x_6); + lean::dec(x_1); + x_8 = lean::box(0); +} +x_9 = lean::cnstr_get(x_2, 1); +x_11 = lean::cnstr_get(x_2, 2); +if (lean::is_exclusive(x_2)) { + lean::cnstr_release(x_2, 0); + x_13 = x_2; +} else { + lean::inc(x_9); + lean::inc(x_11); + lean::dec(x_2); + x_13 = lean::box(0); +} +x_14 = lean::cnstr_get(x_4, 0); +x_16 = lean::cnstr_get(x_4, 1); +if (lean::is_exclusive(x_4)) { + x_18 = x_4; +} else { + lean::inc(x_14); + lean::inc(x_16); + lean::dec(x_4); + x_18 = lean::box(0); +} +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); +lean::closure_set(x_19, 0, x_11); +x_20 = lean::string_iterator_offset(x_14); +lean::dec(x_14); +if (lean::is_scalar(x_18)) { + x_22 = lean::alloc_cnstr(0, 2, 0); +} else { + x_22 = x_18; +} +lean::cnstr_set(x_22, 0, x_20); +lean::cnstr_set(x_22, 1, x_16); +if (lean::is_scalar(x_13)) { + x_23 = lean::alloc_cnstr(0, 3, 0); +} else { + x_23 = x_13; +} +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_9); +lean::cnstr_set(x_23, 2, x_0); +if (lean::is_scalar(x_8)) { + x_24 = lean::alloc_cnstr(0, 2, 0); +} else { + x_24 = x_8; +} +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_6); +x_25 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_25, 0, x_24); +x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_26, 0, x_25); +lean::closure_set(x_26, 1, x_19); +return x_26; +} +else +{ +obj* x_28; obj* x_30; obj* x_31; uint8 x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +lean::dec(x_0); +x_28 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + lean::cnstr_release(x_1, 0); + x_30 = x_1; +} else { + lean::inc(x_28); + lean::dec(x_1); + x_30 = lean::box(0); +} +x_31 = lean::cnstr_get(x_2, 0); +x_33 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); +if (lean::is_exclusive(x_2)) { + x_34 = x_2; +} else { + lean::inc(x_31); + lean::dec(x_2); + x_34 = lean::box(0); +} +if (lean::is_scalar(x_34)) { + x_35 = lean::alloc_cnstr(1, 1, 1); +} else { + x_35 = x_34; +} +lean::cnstr_set(x_35, 0, x_31); +lean::cnstr_set_scalar(x_35, sizeof(void*)*1, x_33); +x_36 = x_35; +if (lean::is_scalar(x_30)) { + x_37 = lean::alloc_cnstr(0, 2, 0); +} else { + x_37 = x_30; +} +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_28); +x_38 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_38, 0, x_37); +return x_38; +} +} +} +obj* _init_l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); +x_1 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1, 0, x_0); +x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__3), 2, 1); +lean::closure_set(x_2, 0, x_1); +return x_2; +} +} +obj* l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_3 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +lean::inc(x_1); +x_5 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_5, 0, x_1); +lean::cnstr_set(x_5, 1, x_1); +lean::cnstr_set(x_5, 2, x_3); +x_6 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_2); +x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_7, 0, x_6); +x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); +lean::closure_set(x_8, 0, x_0); +lean::closure_set(x_8, 1, x_3); +x_9 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_9, 0, x_7); +lean::closure_set(x_9, 1, x_8); +x_10 = l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___closed__1; +x_11 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_11, 0, x_9); +lean::closure_set(x_11, 1, x_10); +return x_11; +} +} +obj* l_lean_parser_module_yield__command___lambda__1(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_3; +x_2 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_2, 0, x_1); +lean::cnstr_set(x_2, 1, x_0); +x_3 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_3, 0, x_2); +return x_3; +} +} +obj* l_lean_parser_module_yield__command___lambda__2(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_2 = lean::cnstr_get(x_1, 0); +x_4 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + x_6 = x_1; +} else { + lean::inc(x_2); + lean::inc(x_4); + lean::dec(x_1); + x_6 = lean::box(0); +} +x_7 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_8 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_8, 0, x_2); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_7); +if (lean::is_scalar(x_6)) { + x_9 = lean::alloc_cnstr(0, 2, 0); +} else { + x_9 = x_6; +} +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_4); +x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_10, 0, x_9); +return x_10; +} +} +obj* l_lean_parser_module_yield__command___lambda__3(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; +x_2 = lean::cnstr_get(x_1, 0); +lean::inc(x_2); +if (lean::obj_tag(x_2) == 0) +{ +obj* x_4; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_4 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + lean::cnstr_release(x_1, 0); + x_6 = x_1; +} else { + lean::inc(x_4); + lean::dec(x_1); + x_6 = lean::box(0); +} +x_7 = lean::cnstr_get(x_2, 0); +x_9 = lean::cnstr_get(x_2, 1); +x_11 = lean::cnstr_get(x_2, 2); +if (lean::is_exclusive(x_2)) { + x_13 = x_2; +} else { + lean::inc(x_7); + lean::inc(x_9); + lean::inc(x_11); + lean::dec(x_2); + x_13 = lean::box(0); +} +if (lean::is_scalar(x_6)) { + x_14 = lean::alloc_cnstr(0, 2, 0); +} else { + x_14 = x_6; +} +lean::cnstr_set(x_14, 0, x_7); +lean::cnstr_set(x_14, 1, x_0); +x_15 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +if (lean::is_scalar(x_13)) { + x_16 = lean::alloc_cnstr(0, 3, 0); +} else { + x_16 = x_13; +} +lean::cnstr_set(x_16, 0, x_14); +lean::cnstr_set(x_16, 1, x_9); +lean::cnstr_set(x_16, 2, x_15); +x_17 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_4); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_18, 0, x_17); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); +lean::closure_set(x_19, 0, x_11); +x_20 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_20, 0, x_18); +lean::closure_set(x_20, 1, x_19); +return x_20; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; uint8 x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +lean::dec(x_0); +x_22 = lean::cnstr_get(x_1, 1); +if (lean::is_exclusive(x_1)) { + lean::cnstr_release(x_1, 0); + x_24 = x_1; +} else { + lean::inc(x_22); + lean::dec(x_1); + x_24 = lean::box(0); +} +x_25 = lean::cnstr_get(x_2, 0); +x_27 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); +if (lean::is_exclusive(x_2)) { + x_28 = x_2; +} else { + lean::inc(x_25); + lean::dec(x_2); + x_28 = lean::box(0); +} +if (lean::is_scalar(x_28)) { + x_29 = lean::alloc_cnstr(1, 1, 1); +} else { + x_29 = x_28; +} +lean::cnstr_set(x_29, 0, x_25); +lean::cnstr_set_scalar(x_29, sizeof(void*)*1, x_27); +x_30 = x_29; +if (lean::is_scalar(x_24)) { + x_31 = lean::alloc_cnstr(0, 2, 0); +} else { + x_31 = x_24; +} +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_22); +x_32 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_32, 0, x_31); +return x_32; +} +} +} +obj* l_lean_parser_module_yield__command___lambda__4(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +lean::inc(x_0); +x_5 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_5, 0, x_0); +lean::cnstr_set(x_5, 1, x_1); +x_6 = l_lean_parser_finish__comment__block___closed__2; +x_7 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_7, 0, x_5); +lean::cnstr_set(x_7, 1, x_2); +lean::cnstr_set(x_7, 2, x_6); +x_8 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_8, 0, x_7); +lean::cnstr_set(x_8, 1, x_0); +x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_9, 0, x_8); +return x_9; +} +} +obj* l_lean_parser_module_yield__command___lambda__5(obj* x_0, obj* x_1, obj* x_2) { +_start: +{ +obj* x_3; +x_3 = lean::cnstr_get(x_2, 0); +lean::inc(x_3); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +x_5 = lean::cnstr_get(x_3, 0); +lean::inc(x_5); +x_7 = lean::cnstr_get(x_2, 1); +if (lean::is_exclusive(x_2)) { + lean::cnstr_release(x_2, 0); + x_9 = x_2; +} else { + lean::inc(x_7); + lean::dec(x_2); + x_9 = lean::box(0); +} +x_10 = lean::cnstr_get(x_3, 1); +x_12 = lean::cnstr_get(x_3, 2); +if (lean::is_exclusive(x_3)) { + lean::cnstr_release(x_3, 0); + x_14 = x_3; +} else { + lean::inc(x_10); + lean::inc(x_12); + lean::dec(x_3); + x_14 = lean::box(0); +} +x_15 = lean::cnstr_get(x_5, 0); +x_17 = lean::cnstr_get(x_5, 1); +if (lean::is_exclusive(x_5)) { + x_19 = x_5; +} else { + lean::inc(x_15); + lean::inc(x_17); + lean::dec(x_5); + x_19 = lean::box(0); +} +x_20 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); +lean::closure_set(x_20, 0, x_12); +x_21 = l_lean_file__map_to__position(x_0, x_15); +if (lean::is_scalar(x_19)) { + x_22 = lean::alloc_cnstr(0, 2, 0); +} else { + x_22 = x_19; +} +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_17); +if (lean::is_scalar(x_14)) { + x_23 = lean::alloc_cnstr(0, 3, 0); +} else { + x_23 = x_14; +} +lean::cnstr_set(x_23, 0, x_22); +lean::cnstr_set(x_23, 1, x_10); +lean::cnstr_set(x_23, 2, x_1); +if (lean::is_scalar(x_9)) { + x_24 = lean::alloc_cnstr(0, 2, 0); +} else { + x_24 = x_9; +} +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_7); +x_25 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_25, 0, x_24); +x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_26, 0, x_25); +lean::closure_set(x_26, 1, x_20); +return x_26; +} +else +{ +obj* x_29; obj* x_31; obj* x_32; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +lean::dec(x_1); +lean::dec(x_0); +x_29 = lean::cnstr_get(x_2, 1); +if (lean::is_exclusive(x_2)) { + lean::cnstr_release(x_2, 0); + x_31 = x_2; +} else { + lean::inc(x_29); + lean::dec(x_2); + x_31 = lean::box(0); +} +x_32 = lean::cnstr_get(x_3, 0); +x_34 = lean::cnstr_get_scalar(x_3, sizeof(void*)*1); +if (lean::is_exclusive(x_3)) { + x_35 = x_3; +} else { + lean::inc(x_32); + lean::dec(x_3); + x_35 = lean::box(0); +} +if (lean::is_scalar(x_35)) { + x_36 = lean::alloc_cnstr(1, 1, 1); +} else { + x_36 = x_35; +} +lean::cnstr_set(x_36, 0, x_32); +lean::cnstr_set_scalar(x_36, sizeof(void*)*1, x_34); +x_37 = x_36; +if (lean::is_scalar(x_31)) { + x_38 = lean::alloc_cnstr(0, 2, 0); +} else { + x_38 = x_31; +} +lean::cnstr_set(x_38, 0, x_37); +lean::cnstr_set(x_38, 1, x_29); +x_39 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_39, 0, x_38); +return x_39; +} +} +} +obj* l_lean_parser_module_yield__command___lambda__6(obj* x_0, obj* x_1) { +_start: +{ +obj* x_2; obj* x_3; +x_2 = l_coroutine_yield___rarg___closed__1; +x_3 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_2); +return x_3; +} +} +obj* l_lean_parser_module_yield__command___lambda__7(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_10; +x_3 = lean::cnstr_get(x_2, 0); +x_5 = lean::cnstr_get(x_2, 1); +if (lean::is_exclusive(x_2)) { + x_7 = x_2; +} else { + lean::inc(x_3); + lean::inc(x_5); + lean::dec(x_2); + x_7 = lean::box(0); +} +x_8 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_8, 0, x_3); +lean::cnstr_set(x_8, 1, x_0); +lean::cnstr_set(x_8, 2, x_1); +if (lean::is_scalar(x_7)) { + x_9 = lean::alloc_cnstr(0, 2, 0); +} else { + x_9 = x_7; +} +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_5); +x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_10, 0, x_9); +return x_10; +} +} +obj* _init_l_lean_parser_module_yield__command___lambda__8___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -880,7 +1293,7 @@ lean::cnstr_set(x_2, 1, x_1); return x_2; } } -obj* l_lean_parser_module_yield__command___lambda__7(obj* x_0, obj* x_1) { +obj* l_lean_parser_module_yield__command___lambda__8(obj* x_0, obj* x_1) { _start: { obj* x_2; @@ -913,9 +1326,9 @@ if (lean::is_exclusive(x_2)) { lean::dec(x_2); x_14 = lean::box(0); } -x_15 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_15 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_15, 0, x_12); -x_16 = l_lean_parser_module_yield__command___lambda__7___closed__1; +x_16 = l_lean_parser_module_yield__command___lambda__8___closed__1; if (lean::is_scalar(x_14)) { x_17 = lean::alloc_cnstr(0, 3, 0); } else { @@ -981,113 +1394,312 @@ return x_32; } } } -obj* l_lean_parser_module_yield__command___lambda__8(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_lean_parser_module_yield__command___lambda__9(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_4; -x_4 = lean::cnstr_get(x_3, 0); -lean::inc(x_4); -if (lean::obj_tag(x_4) == 0) +obj* x_5; +x_5 = lean::cnstr_get(x_4, 0); +lean::inc(x_5); +if (lean::obj_tag(x_5) == 0) { -obj* x_6; obj* x_8; obj* x_11; obj* x_13; obj* x_16; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; -x_6 = lean::cnstr_get(x_4, 0); -lean::inc(x_6); -x_8 = lean::cnstr_get(x_3, 1); -lean::inc(x_8); -lean::dec(x_3); -x_11 = lean::cnstr_get(x_4, 1); -lean::inc(x_11); -x_13 = lean::cnstr_get(x_4, 2); -lean::inc(x_13); +obj* x_7; obj* x_9; obj* x_12; obj* x_14; obj* x_17; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_7 = lean::cnstr_get(x_5, 0); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_4, 1); +lean::inc(x_9); lean::dec(x_4); -x_16 = lean::cnstr_get(x_6, 0); -lean::inc(x_16); -x_18 = lean::cnstr_get(x_6, 1); -lean::inc(x_18); -lean::dec(x_6); -x_21 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); -lean::closure_set(x_21, 0, x_13); -x_22 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_22, 0, x_0); -lean::cnstr_set(x_22, 1, x_1); -lean::cnstr_set(x_22, 2, x_16); -x_23 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3___boxed), 2, 1); -lean::closure_set(x_23, 0, x_22); -x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__4), 2, 1); -lean::closure_set(x_24, 0, x_8); -x_25 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_25, 0, x_23); -lean::closure_set(x_25, 1, x_24); -lean::inc(x_2); -x_27 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__5), 3, 2); -lean::closure_set(x_27, 0, x_11); -lean::closure_set(x_27, 1, x_2); -x_28 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_28, 0, x_25); -lean::closure_set(x_28, 1, x_27); -lean::inc(x_2); -x_30 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6), 3, 2); -lean::closure_set(x_30, 0, x_18); -lean::closure_set(x_30, 1, x_2); -x_31 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_31, 0, x_28); -lean::closure_set(x_31, 1, x_30); -x_32 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__7), 2, 1); -lean::closure_set(x_32, 0, x_2); -x_33 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_33, 0, x_31); -lean::closure_set(x_33, 1, x_32); +x_12 = lean::cnstr_get(x_5, 1); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_5, 2); +lean::inc(x_14); +lean::dec(x_5); +x_17 = lean::cnstr_get(x_7, 0); +lean::inc(x_17); +x_19 = lean::cnstr_get(x_7, 1); +lean::inc(x_19); +lean::dec(x_7); +x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); +lean::closure_set(x_22, 0, x_14); +x_23 = lean::alloc_cnstr(0, 4, 0); +lean::cnstr_set(x_23, 0, x_0); +lean::cnstr_set(x_23, 1, x_1); +lean::cnstr_set(x_23, 2, x_2); +lean::cnstr_set(x_23, 3, x_17); +x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6___boxed), 2, 1); +lean::closure_set(x_24, 0, x_23); +x_25 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +lean::closure_set(x_25, 0, x_9); +x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_26, 0, x_24); +lean::closure_set(x_26, 1, x_25); +lean::inc(x_3); +x_28 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__7), 3, 2); +lean::closure_set(x_28, 0, x_12); +lean::closure_set(x_28, 1, x_3); +x_29 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_29, 0, x_26); +lean::closure_set(x_29, 1, x_28); +lean::inc(x_3); +x_31 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); +lean::closure_set(x_31, 0, x_19); +lean::closure_set(x_31, 1, x_3); +x_32 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_32, 0, x_29); +lean::closure_set(x_32, 1, x_31); +x_33 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__8), 2, 1); +lean::closure_set(x_33, 0, x_3); x_34 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_34, 0, x_33); -lean::closure_set(x_34, 1, x_21); -return x_34; +lean::closure_set(x_34, 0, x_32); +lean::closure_set(x_34, 1, x_33); +x_35 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_35, 0, x_34); +lean::closure_set(x_35, 1, x_22); +return x_35; } else { -obj* x_38; obj* x_40; obj* x_41; uint8 x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +obj* x_40; obj* x_42; obj* x_43; uint8 x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; lean::dec(x_1); +lean::dec(x_3); lean::dec(x_0); lean::dec(x_2); -x_38 = lean::cnstr_get(x_3, 1); -if (lean::is_exclusive(x_3)) { - lean::cnstr_release(x_3, 0); - x_40 = x_3; -} else { - lean::inc(x_38); - lean::dec(x_3); - x_40 = lean::box(0); -} -x_41 = lean::cnstr_get(x_4, 0); -x_43 = lean::cnstr_get_scalar(x_4, sizeof(void*)*1); +x_40 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { - x_44 = x_4; + lean::cnstr_release(x_4, 0); + x_42 = x_4; } else { - lean::inc(x_41); + lean::inc(x_40); lean::dec(x_4); - x_44 = lean::box(0); + x_42 = lean::box(0); } -if (lean::is_scalar(x_44)) { - x_45 = lean::alloc_cnstr(1, 1, 1); +x_43 = lean::cnstr_get(x_5, 0); +x_45 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +if (lean::is_exclusive(x_5)) { + x_46 = x_5; } else { - x_45 = x_44; + lean::inc(x_43); + lean::dec(x_5); + x_46 = lean::box(0); } -lean::cnstr_set(x_45, 0, x_41); -lean::cnstr_set_scalar(x_45, sizeof(void*)*1, x_43); -x_46 = x_45; -if (lean::is_scalar(x_40)) { - x_47 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_46)) { + x_47 = lean::alloc_cnstr(1, 1, 1); } else { - x_47 = x_40; + x_47 = x_46; } -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_38); -x_48 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_48, 0, x_47); -return x_48; +lean::cnstr_set(x_47, 0, x_43); +lean::cnstr_set_scalar(x_47, sizeof(void*)*1, x_45); +x_48 = x_47; +if (lean::is_scalar(x_42)) { + x_49 = lean::alloc_cnstr(0, 2, 0); +} else { + x_49 = x_42; +} +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_40); +x_50 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_50, 0, x_49); +return x_50; } } } -obj* l_lean_parser_module_yield__command___lambda__9(obj* x_0, obj* x_1, obj* x_2) { +obj* l_lean_parser_module_yield__command___lambda__10(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_4, 0); +lean::inc(x_5); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_7; obj* x_9; obj* x_12; obj* x_14; obj* x_17; obj* x_19; obj* x_22; obj* x_23; obj* x_26; obj* x_29; obj* x_32; obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_7 = lean::cnstr_get(x_5, 0); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_4, 1); +lean::inc(x_9); +lean::dec(x_4); +x_12 = lean::cnstr_get(x_5, 1); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_5, 2); +lean::inc(x_14); +lean::dec(x_5); +x_17 = lean::cnstr_get(x_7, 0); +lean::inc(x_17); +x_19 = lean::cnstr_get(x_7, 1); +lean::inc(x_19); +lean::dec(x_7); +x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); +lean::closure_set(x_22, 0, x_14); +x_23 = lean::cnstr_get(x_0, 0); +lean::inc(x_23); +lean::dec(x_0); +x_26 = lean::cnstr_get(x_23, 0); +lean::inc(x_26); +lean::dec(x_23); +x_29 = lean::cnstr_get(x_26, 0); +lean::inc(x_29); +lean::dec(x_26); +x_32 = lean::cnstr_get(x_29, 2); +lean::inc(x_32); +lean::dec(x_29); +x_35 = l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1(x_19, x_12, x_9); +lean::inc(x_1); +x_37 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__5), 3, 2); +lean::closure_set(x_37, 0, x_32); +lean::closure_set(x_37, 1, x_1); +x_38 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_38, 0, x_35); +lean::closure_set(x_38, 1, x_37); +x_39 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__9), 5, 4); +lean::closure_set(x_39, 0, x_2); +lean::closure_set(x_39, 1, x_3); +lean::closure_set(x_39, 2, x_17); +lean::closure_set(x_39, 3, x_1); +x_40 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_40, 0, x_38); +lean::closure_set(x_40, 1, x_39); +x_41 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_41, 0, x_40); +lean::closure_set(x_41, 1, x_22); +return x_41; +} +else +{ +obj* x_46; obj* x_48; obj* x_49; uint8 x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_46 = lean::cnstr_get(x_4, 1); +if (lean::is_exclusive(x_4)) { + lean::cnstr_release(x_4, 0); + x_48 = x_4; +} else { + lean::inc(x_46); + lean::dec(x_4); + x_48 = lean::box(0); +} +x_49 = lean::cnstr_get(x_5, 0); +x_51 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +if (lean::is_exclusive(x_5)) { + x_52 = x_5; +} else { + lean::inc(x_49); + lean::dec(x_5); + x_52 = lean::box(0); +} +if (lean::is_scalar(x_52)) { + x_53 = lean::alloc_cnstr(1, 1, 1); +} else { + x_53 = x_52; +} +lean::cnstr_set(x_53, 0, x_49); +lean::cnstr_set_scalar(x_53, sizeof(void*)*1, x_51); +x_54 = x_53; +if (lean::is_scalar(x_48)) { + x_55 = lean::alloc_cnstr(0, 2, 0); +} else { + x_55 = x_48; +} +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_46); +x_56 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_56, 0, x_55); +return x_56; +} +} +} +obj* l_lean_parser_module_yield__command___lambda__11(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_4, 0); +lean::inc(x_5); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_7; obj* x_9; obj* x_12; obj* x_14; obj* x_17; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_7 = lean::cnstr_get(x_5, 0); +lean::inc(x_7); +x_9 = lean::cnstr_get(x_4, 1); +lean::inc(x_9); +lean::dec(x_4); +x_12 = lean::cnstr_get(x_5, 1); +lean::inc(x_12); +x_14 = lean::cnstr_get(x_5, 2); +lean::inc(x_14); +lean::dec(x_5); +x_17 = lean::cnstr_get(x_7, 0); +lean::inc(x_17); +x_19 = lean::cnstr_get(x_7, 1); +lean::inc(x_19); +lean::dec(x_7); +x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); +lean::closure_set(x_22, 0, x_14); +x_23 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__4___boxed), 4, 3); +lean::closure_set(x_23, 0, x_9); +lean::closure_set(x_23, 1, x_19); +lean::closure_set(x_23, 2, x_12); +x_24 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_24, 0, x_0); +lean::closure_set(x_24, 1, x_23); +x_25 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__10), 5, 4); +lean::closure_set(x_25, 0, x_1); +lean::closure_set(x_25, 1, x_2); +lean::closure_set(x_25, 2, x_3); +lean::closure_set(x_25, 3, x_17); +x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_26, 0, x_24); +lean::closure_set(x_26, 1, x_25); +x_27 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_27, 0, x_26); +lean::closure_set(x_27, 1, x_22); +return x_27; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +lean::dec(x_1); +lean::dec(x_3); +lean::dec(x_0); +lean::dec(x_2); +x_32 = lean::cnstr_get(x_4, 1); +if (lean::is_exclusive(x_4)) { + lean::cnstr_release(x_4, 0); + x_34 = x_4; +} else { + lean::inc(x_32); + lean::dec(x_4); + x_34 = lean::box(0); +} +x_35 = lean::cnstr_get(x_5, 0); +x_37 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +if (lean::is_exclusive(x_5)) { + x_38 = x_5; +} else { + lean::inc(x_35); + lean::dec(x_5); + x_38 = lean::box(0); +} +if (lean::is_scalar(x_38)) { + x_39 = lean::alloc_cnstr(1, 1, 1); +} else { + x_39 = x_38; +} +lean::cnstr_set(x_39, 0, x_35); +lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); +x_40 = x_39; +if (lean::is_scalar(x_34)) { + x_41 = lean::alloc_cnstr(0, 2, 0); +} else { + x_41 = x_34; +} +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_32); +x_42 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_42, 0, x_41); +return x_42; +} +} +} +obj* l_lean_parser_module_yield__command___lambda__12(obj* x_0, obj* x_1, obj* x_2) { _start: { obj* x_3; @@ -1095,129 +1707,167 @@ x_3 = lean::cnstr_get(x_2, 0); lean::inc(x_3); if (lean::obj_tag(x_3) == 0) { -obj* x_5; obj* x_7; obj* x_10; obj* x_12; obj* x_15; obj* x_17; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; obj* x_17; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; x_5 = lean::cnstr_get(x_3, 0); lean::inc(x_5); x_7 = lean::cnstr_get(x_2, 1); -lean::inc(x_7); -lean::dec(x_2); +if (lean::is_exclusive(x_2)) { + lean::cnstr_release(x_2, 0); + x_9 = x_2; +} else { + lean::inc(x_7); + lean::dec(x_2); + x_9 = lean::box(0); +} x_10 = lean::cnstr_get(x_3, 1); -lean::inc(x_10); x_12 = lean::cnstr_get(x_3, 2); -lean::inc(x_12); -lean::dec(x_3); +if (lean::is_exclusive(x_3)) { + lean::cnstr_release(x_3, 0); + x_14 = x_3; +} else { + lean::inc(x_10); + lean::inc(x_12); + lean::dec(x_3); + x_14 = lean::box(0); +} x_15 = lean::cnstr_get(x_5, 0); -lean::inc(x_15); x_17 = lean::cnstr_get(x_5, 1); -lean::inc(x_17); -lean::dec(x_5); -x_20 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +if (lean::is_exclusive(x_5)) { + x_19 = x_5; +} else { + lean::inc(x_15); + lean::inc(x_17); + lean::dec(x_5); + x_19 = lean::box(0); +} +x_20 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_20, 0, x_12); -x_21 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__2___boxed), 4, 3); -lean::closure_set(x_21, 0, x_7); -lean::closure_set(x_21, 1, x_17); -lean::closure_set(x_21, 2, x_10); -x_22 = l_lean_parser_module__parser__m_lift__parser__t___rarg___closed__1; -x_23 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_23, 0, x_22); -lean::closure_set(x_23, 1, x_21); -x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__8), 4, 3); -lean::closure_set(x_24, 0, x_0); -lean::closure_set(x_24, 1, x_15); -lean::closure_set(x_24, 2, x_1); -x_25 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_25, 0, x_23); -lean::closure_set(x_25, 1, x_24); -x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::inc(x_17); +if (lean::is_scalar(x_19)) { + x_22 = lean::alloc_cnstr(0, 2, 0); +} else { + x_22 = x_19; +} +lean::cnstr_set(x_22, 0, x_17); +lean::cnstr_set(x_22, 1, x_17); +x_23 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +if (lean::is_scalar(x_14)) { + x_24 = lean::alloc_cnstr(0, 3, 0); +} else { + x_24 = x_14; +} +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_10); +lean::cnstr_set(x_24, 2, x_23); +if (lean::is_scalar(x_9)) { + x_25 = lean::alloc_cnstr(0, 2, 0); +} else { + x_25 = x_9; +} +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_7); +x_26 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_26, 0, x_25); -lean::closure_set(x_26, 1, x_20); -return x_26; +x_27 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__11), 5, 4); +lean::closure_set(x_27, 0, x_0); +lean::closure_set(x_27, 1, x_15); +lean::closure_set(x_27, 2, x_23); +lean::closure_set(x_27, 3, x_1); +x_28 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_28, 0, x_26); +lean::closure_set(x_28, 1, x_27); +x_29 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_29, 0, x_28); +lean::closure_set(x_29, 1, x_20); +return x_29; } else { -obj* x_29; obj* x_31; obj* x_32; uint8 x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +obj* x_32; obj* x_34; obj* x_35; uint8 x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; lean::dec(x_1); lean::dec(x_0); -x_29 = lean::cnstr_get(x_2, 1); +x_32 = lean::cnstr_get(x_2, 1); if (lean::is_exclusive(x_2)) { lean::cnstr_release(x_2, 0); - x_31 = x_2; -} else { - lean::inc(x_29); - lean::dec(x_2); - x_31 = lean::box(0); -} -x_32 = lean::cnstr_get(x_3, 0); -x_34 = lean::cnstr_get_scalar(x_3, sizeof(void*)*1); -if (lean::is_exclusive(x_3)) { - x_35 = x_3; + x_34 = x_2; } else { lean::inc(x_32); + lean::dec(x_2); + x_34 = lean::box(0); +} +x_35 = lean::cnstr_get(x_3, 0); +x_37 = lean::cnstr_get_scalar(x_3, sizeof(void*)*1); +if (lean::is_exclusive(x_3)) { + x_38 = x_3; +} else { + lean::inc(x_35); lean::dec(x_3); - x_35 = lean::box(0); + x_38 = lean::box(0); } -if (lean::is_scalar(x_35)) { - x_36 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_38)) { + x_39 = lean::alloc_cnstr(1, 1, 1); } else { - x_36 = x_35; + x_39 = x_38; } -lean::cnstr_set(x_36, 0, x_32); -lean::cnstr_set_scalar(x_36, sizeof(void*)*1, x_34); -x_37 = x_36; -if (lean::is_scalar(x_31)) { - x_38 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_39, 0, x_35); +lean::cnstr_set_scalar(x_39, sizeof(void*)*1, x_37); +x_40 = x_39; +if (lean::is_scalar(x_34)) { + x_41 = lean::alloc_cnstr(0, 2, 0); } else { - x_38 = x_31; + x_41 = x_34; } -lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_29); -x_39 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_39, 0, x_38); -return x_39; +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_32); +x_42 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); +lean::closure_set(x_42, 0, x_41); +return x_42; } } } obj* l_lean_parser_module_yield__command(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; -lean::inc(x_1); -x_5 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_5, 0, x_1); -lean::cnstr_set(x_5, 1, x_1); -x_6 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_7 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_7, 0, x_5); -lean::cnstr_set(x_7, 1, x_2); -lean::cnstr_set(x_7, 2, x_6); -x_8 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_8, 0, x_7); -lean::cnstr_set(x_8, 1, x_3); -x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_9, 0, x_8); -x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__9), 3, 2); -lean::closure_set(x_10, 0, x_0); -lean::closure_set(x_10, 1, x_6); -x_11 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_11, 0, x_9); -lean::closure_set(x_11, 1, x_10); -return x_11; +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_4 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +lean::closure_set(x_4, 0, x_3); +x_5 = l_lean_parser_module__parser__m_lift__parser__t___rarg___closed__1; +x_6 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_6, 0, x_5); +lean::closure_set(x_6, 1, x_4); +x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__2), 2, 1); +lean::closure_set(x_7, 0, x_2); +x_8 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_8, 0, x_6); +lean::closure_set(x_8, 1, x_7); +x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3), 2, 1); +lean::closure_set(x_9, 0, x_1); +x_10 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_10, 0, x_8); +lean::closure_set(x_10, 1, x_9); +x_11 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__12), 3, 2); +lean::closure_set(x_11, 0, x_5); +lean::closure_set(x_11, 1, x_0); +x_12 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_12, 0, x_10); +lean::closure_set(x_12, 1, x_11); +return x_12; } } -obj* l_lean_parser_module_yield__command___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_lean_parser_module_yield__command___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; -x_4 = l_lean_parser_module_yield__command___lambda__2(x_0, x_1, x_2, x_3); +x_4 = l_lean_parser_module_yield__command___lambda__4(x_0, x_1, x_2, x_3); lean::dec(x_3); return x_4; } } -obj* l_lean_parser_module_yield__command___lambda__3___boxed(obj* x_0, obj* x_1) { +obj* l_lean_parser_module_yield__command___lambda__6___boxed(obj* x_0, obj* x_1) { _start: { obj* x_2; -x_2 = l_lean_parser_module_yield__command___lambda__3(x_0, x_1); +x_2 = l_lean_parser_module_yield__command___lambda__6(x_0, x_1); lean::dec(x_1); return x_2; } @@ -3763,107 +4413,6 @@ x_5 = l_lean_parser_combinators_node___at_lean_parser_detail__ident__part_parser return x_5; } } -obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___lambda__1(obj* x_0, obj* x_1) { -_start: -{ -obj* x_2; -x_2 = lean::cnstr_get(x_1, 0); -lean::inc(x_2); -if (lean::obj_tag(x_2) == 0) -{ -obj* x_4; obj* x_6; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_4 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - x_6 = x_1; -} else { - lean::inc(x_4); - lean::dec(x_1); - x_6 = lean::box(0); -} -x_7 = lean::cnstr_get(x_2, 0); -x_9 = lean::cnstr_get(x_2, 1); -x_11 = lean::cnstr_get(x_2, 2); -if (lean::is_exclusive(x_2)) { - x_13 = x_2; -} else { - lean::inc(x_7); - lean::inc(x_9); - lean::inc(x_11); - lean::dec(x_2); - x_13 = lean::box(0); -} -if (lean::is_scalar(x_6)) { - x_14 = lean::alloc_cnstr(0, 2, 0); -} else { - x_14 = x_6; -} -lean::cnstr_set(x_14, 0, x_7); -lean::cnstr_set(x_14, 1, x_0); -x_15 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -if (lean::is_scalar(x_13)) { - x_16 = lean::alloc_cnstr(0, 3, 0); -} else { - x_16 = x_13; -} -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_9); -lean::cnstr_set(x_16, 2, x_15); -x_17 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_4); -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_18, 0, x_17); -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); -lean::closure_set(x_19, 0, x_11); -x_20 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_20, 0, x_18); -lean::closure_set(x_20, 1, x_19); -return x_20; -} -else -{ -obj* x_22; obj* x_24; obj* x_25; uint8 x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; -lean::dec(x_0); -x_22 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - lean::cnstr_release(x_1, 0); - x_24 = x_1; -} else { - lean::inc(x_22); - lean::dec(x_1); - x_24 = lean::box(0); -} -x_25 = lean::cnstr_get(x_2, 0); -x_27 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); -if (lean::is_exclusive(x_2)) { - x_28 = x_2; -} else { - lean::inc(x_25); - lean::dec(x_2); - x_28 = lean::box(0); -} -if (lean::is_scalar(x_28)) { - x_29 = lean::alloc_cnstr(1, 1, 1); -} else { - x_29 = x_28; -} -lean::cnstr_set(x_29, 0, x_25); -lean::cnstr_set_scalar(x_29, sizeof(void*)*1, x_27); -x_30 = x_29; -if (lean::is_scalar(x_24)) { - x_31 = lean::alloc_cnstr(0, 2, 0); -} else { - x_31 = x_24; -} -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_22); -x_32 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_32, 0, x_31); -return x_32; -} -} -} obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___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: { @@ -3884,7 +4433,7 @@ lean::cnstr_set(x_12, 0, x_11); lean::cnstr_set(x_12, 1, x_6); x_13 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_13, 0, x_12); -x_14 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___lambda__1), 2, 1); +x_14 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3), 2, 1); lean::closure_set(x_14, 0, x_4); x_15 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_15, 0, x_13); @@ -3946,7 +4495,7 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_18 = lean::box(0); } -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_11); x_20 = lean::string_iterator_remaining(x_14); x_21 = lean::mk_nat_obj(0u); @@ -4057,7 +4606,7 @@ obj* _init_l_lean_parser_monad__parsec_eoi___at___private_init_lean_parser_modul _start: { obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); x_1 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1, 0, x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_eoi___at___private_init_lean_parser_module_1__commands__aux___main___spec__2___lambda__1), 2, 1); @@ -4080,7 +4629,7 @@ lean::cnstr_set(x_6, 0, x_5); lean::cnstr_set(x_6, 1, x_2); x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_7, 0, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6), 3, 2); +x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); lean::closure_set(x_8, 0, x_0); lean::closure_set(x_8, 1, x_3); x_9 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -4143,7 +4692,7 @@ lean::cnstr_set(x_17, 0, x_16); lean::cnstr_set(x_17, 1, x_5); x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_18, 0, x_17); -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_12); x_20 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_20, 0, x_18); @@ -4233,7 +4782,7 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_18 = lean::box(0); } -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_11); x_20 = lean::string_iterator_has_next(x_14); if (x_20 == 0) @@ -4363,7 +4912,7 @@ obj* _init_l_lean_parser_monad__parsec_any___at___private_init_lean_parser_modul _start: { obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); x_1 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1, 0, x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_any___at___private_init_lean_parser_module_1__commands__aux___main___spec__3___lambda__2), 2, 1); @@ -4386,7 +4935,7 @@ lean::cnstr_set(x_6, 0, x_5); lean::cnstr_set(x_6, 1, x_2); x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_7, 0, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6), 3, 2); +x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); lean::closure_set(x_8, 0, x_0); lean::closure_set(x_8, 1, x_3); x_9 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -4402,37 +4951,6 @@ return x_11; obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1(obj* x_0, obj* x_1) { _start: { -obj* x_2; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_2 = lean::cnstr_get(x_1, 0); -x_4 = lean::cnstr_get(x_1, 1); -if (lean::is_exclusive(x_1)) { - x_6 = x_1; -} else { - lean::inc(x_2); - lean::inc(x_4); - lean::dec(x_1); - x_6 = lean::box(0); -} -x_7 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_8 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_8, 0, x_2); -lean::cnstr_set(x_8, 1, x_0); -lean::cnstr_set(x_8, 2, x_7); -if (lean::is_scalar(x_6)) { - x_9 = lean::alloc_cnstr(0, 2, 0); -} else { - x_9 = x_6; -} -lean::cnstr_set(x_9, 0, x_8); -lean::cnstr_set(x_9, 1, x_4); -x_10 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); -lean::closure_set(x_10, 0, x_9); -return x_10; -} -} -obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__2(obj* x_0, obj* x_1) { -_start: -{ obj* x_2; x_2 = lean::cnstr_get(x_1, 0); lean::inc(x_2); @@ -4471,7 +4989,7 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_18 = lean::box(0); } -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_11); x_20 = lean::cnstr_get(x_14, 0); lean::inc(x_20); @@ -4564,23 +5082,23 @@ obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__comman _start: { 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_4 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__4), 2, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); lean::closure_set(x_4, 0, x_3); x_5 = l_lean_parser_module__parser__m_lift__parser__t___rarg___closed__1; x_6 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_6, 0, x_5); lean::closure_set(x_6, 1, x_4); -x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1), 2, 1); +x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__2), 2, 1); lean::closure_set(x_7, 0, x_2); x_8 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_8, 0, x_6); lean::closure_set(x_8, 1, x_7); -x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___lambda__1), 2, 1); +x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3), 2, 1); lean::closure_set(x_9, 0, x_1); x_10 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_10, 0, x_8); lean::closure_set(x_10, 1, x_9); -x_11 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__2), 2, 1); +x_11 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1), 2, 1); lean::closure_set(x_11, 0, x_0); x_12 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_12, 0, x_10); @@ -4592,23 +5110,23 @@ obj* l_lean_parser_log__message___at___private_init_lean_parser_module_1__comman _start: { 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_4 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__4), 2, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); lean::closure_set(x_4, 0, x_3); x_5 = l_lean_parser_module__parser__m_lift__parser__t___rarg___closed__1; x_6 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_6, 0, x_5); lean::closure_set(x_6, 1, x_4); -x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1), 2, 1); +x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__2), 2, 1); lean::closure_set(x_7, 0, x_2); x_8 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_8, 0, x_6); lean::closure_set(x_8, 1, x_7); -x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___lambda__1), 2, 1); +x_9 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3), 2, 1); lean::closure_set(x_9, 0, x_1); x_10 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_10, 0, x_8); lean::closure_set(x_10, 1, x_9); -x_11 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__2), 2, 1); +x_11 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1), 2, 1); lean::closure_set(x_11, 0, x_0); x_12 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_12, 0, x_10); @@ -4767,7 +5285,7 @@ if (lean::is_exclusive(x_3)) { lean::dec(x_3); x_17 = lean::box(0); } -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_18, 0, x_10); x_19 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_19, 0, x_13); @@ -4880,7 +5398,7 @@ lean::inc(x_14); x_16 = lean::cnstr_get(x_4, 1); lean::inc(x_16); lean::dec(x_4); -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_11); x_20 = lean::cnstr_get(x_14, 1); lean::inc(x_20); @@ -5089,7 +5607,7 @@ if (lean::is_exclusive(x_3)) { lean::dec(x_3); x_15 = lean::box(0); } -x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_16, 0, x_10); x_17 = lean::box(0); if (lean::is_scalar(x_15)) { @@ -5231,7 +5749,7 @@ if (lean::is_exclusive(x_3)) { lean::dec(x_3); x_15 = lean::box(0); } -x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_16, 0, x_10); x_17 = lean::box(0); if (lean::is_scalar(x_15)) { @@ -5478,7 +5996,7 @@ if (lean::is_exclusive(x_3)) { lean::dec(x_3); x_15 = lean::box(0); } -x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_16, 0, x_10); x_17 = l___private_init_lean_parser_module_1__commands__aux___main___lambda__10___closed__1; if (lean::is_scalar(x_15)) { @@ -5599,7 +6117,7 @@ lean::dec(x_2); x_14 = lean::cnstr_get(x_4, 1); lean::inc(x_14); lean::dec(x_4); -x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_17, 0, x_11); lean::inc(x_14); lean::inc(x_9); @@ -5700,7 +6218,7 @@ lean::inc(x_13); x_15 = lean::cnstr_get(x_3, 1); lean::inc(x_15); lean::dec(x_3); -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_18, 0, x_10); x_19 = l_string_join___closed__1; x_20 = l_lean_parser_command_parser___rarg___closed__1; @@ -5869,7 +6387,7 @@ lean::cnstr_set(x_35, 0, x_34); lean::cnstr_set(x_35, 1, x_16); x_36 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_36, 0, x_35); -x_37 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6), 3, 2); +x_37 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); lean::closure_set(x_37, 0, x_2); lean::closure_set(x_37, 1, x_32); x_38 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -5957,7 +6475,7 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_16 = lean::box(0); } -x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_17, 0, x_11); x_18 = lean::cnstr_get(x_0, 3); x_19 = l_option_get___main___at_lean_parser_run___spec__2(x_18); @@ -6235,7 +6753,7 @@ lean::dec(x_3); x_15 = lean::cnstr_get(x_5, 1); lean::inc(x_15); lean::dec(x_5); -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_18, 0, x_12); x_19 = l___private_init_lean_parser_module_1__commands__aux___main(x_0, x_1, x_15, x_10, x_7); x_20 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -6314,7 +6832,7 @@ lean::inc(x_19); x_21 = lean::cnstr_get(x_6, 1); lean::inc(x_21); lean::dec(x_6); -x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_24, 0, x_13); if (lean::obj_tag(x_21) == 0) { @@ -6435,20 +6953,20 @@ lean::dec(x_5); x_21 = lean::cnstr_get(x_6, 0); lean::inc(x_21); lean::dec(x_6); -x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__4), 2, 1); +x_24 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); lean::closure_set(x_24, 0, x_18); lean::inc(x_0); x_26 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_26, 0, x_0); lean::closure_set(x_26, 1, x_24); lean::inc(x_1); -x_28 = lean::alloc_closure(reinterpret_cast(l_lean_parser_log__message___at___private_init_lean_parser_module_1__commands__aux___main___spec__4___lambda__1), 2, 1); +x_28 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__2), 2, 1); lean::closure_set(x_28, 0, x_1); x_29 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_29, 0, x_26); lean::closure_set(x_29, 1, x_28); lean::inc(x_2); -x_31 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_error___at___private_init_lean_parser_module_1__commands__aux___main___spec__1___rarg___lambda__1), 2, 1); +x_31 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__3), 2, 1); lean::closure_set(x_31, 0, x_2); x_32 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); lean::closure_set(x_32, 0, x_29); @@ -6711,7 +7229,7 @@ if (lean::is_exclusive(x_4)) { lean::dec(x_4); x_18 = lean::box(0); } -x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_19 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_19, 0, x_11); x_20 = lean::string_iterator_remaining(x_14); lean::dec(x_14); @@ -6811,7 +7329,7 @@ lean::inc(x_13); x_15 = lean::cnstr_get(x_3, 1); lean::inc(x_15); lean::dec(x_3); -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_18, 0, x_10); x_19 = lean::mk_nat_obj(1u); x_20 = lean::nat_add(x_13, x_19); @@ -6870,7 +7388,7 @@ obj* _init_l_lean_parser_module_commands_parser___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); x_1 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1, 0, x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_commands_parser___lambda__1), 2, 1); @@ -6901,7 +7419,7 @@ lean::cnstr_set(x_6, 0, x_5); lean::cnstr_set(x_6, 1, x_2); x_7 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_7, 0, x_6); -x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6), 3, 2); +x_8 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); lean::closure_set(x_8, 0, x_0); lean::closure_set(x_8, 1, x_3); x_9 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -7288,7 +7806,7 @@ lean::inc(x_13); x_15 = lean::cnstr_get(x_3, 1); lean::inc(x_15); lean::dec(x_3); -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_18, 0, x_10); x_19 = l_lean_parser_module_yield__command(x_13, x_15, x_8, x_5); x_20 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -7360,7 +7878,7 @@ lean::dec(x_1); x_13 = lean::cnstr_get(x_3, 1); lean::inc(x_13); lean::dec(x_3); -x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_16, 0, x_10); x_17 = l_lean_parser_monad__parsec_eoi___at___private_init_lean_parser_module_1__commands__aux___main___spec__2(x_13, x_8, x_5); x_18 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -7440,7 +7958,7 @@ lean::dec(x_1); x_13 = lean::cnstr_get(x_3, 1); lean::inc(x_13); lean::dec(x_3); -x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_16, 0, x_10); x_17 = l_lean_parser_module_commands_parser(x_13, x_8, x_5); x_18 = l_lean_parser_module_parser___lambda__5___closed__1; @@ -7532,7 +8050,7 @@ lean::dec(x_2); x_14 = lean::cnstr_get(x_4, 1); lean::inc(x_14); lean::dec(x_4); -x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_17, 0, x_11); x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_parser___lambda__2), 4, 3); lean::closure_set(x_18, 0, x_9); @@ -7619,7 +8137,7 @@ lean::dec(x_2); x_14 = lean::cnstr_get(x_4, 1); lean::inc(x_14); lean::dec(x_4); -x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_17 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_17, 0, x_11); x_18 = lean::cnstr_get(x_0, 3); x_19 = l_option_get___main___at_lean_parser_run___spec__2(x_18); @@ -7754,7 +8272,7 @@ lean::inc(x_13); x_15 = lean::cnstr_get(x_3, 1); lean::inc(x_15); lean::dec(x_3); -x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_18 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_18, 0, x_10); x_19 = lean::string_iterator_to_end(x_13); lean::inc(x_19); @@ -7873,7 +8391,7 @@ if (lean::is_exclusive(x_3)) { lean::dec(x_3); x_15 = lean::box(0); } -x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__1), 2, 1); +x_16 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__1), 2, 1); lean::closure_set(x_16, 0, x_10); x_17 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; lean::inc(x_8); @@ -7894,7 +8412,7 @@ lean::cnstr_set(x_20, 0, x_19); lean::cnstr_set(x_20, 1, x_5); x_21 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module__parser__m_lift__parser__t___rarg___lambda__2___boxed), 2, 1); lean::closure_set(x_21, 0, x_20); -x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_module_yield__command___lambda__6), 3, 2); +x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___lambda__2), 3, 2); lean::closure_set(x_22, 0, x_13); lean::closure_set(x_22, 1, x_17); x_23 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); @@ -8061,8 +8579,10 @@ lean::mark_persistent(l_lean_parser_module__parser); lean::mark_persistent(l_lean_parser_module__parser__m_lift__parser__t___rarg___closed__1); l_lean_parser_module__parser__m_basic__parser__m___closed__1 = _init_l_lean_parser_module__parser__m_basic__parser__m___closed__1(); lean::mark_persistent(l_lean_parser_module__parser__m_basic__parser__m___closed__1); - l_lean_parser_module_yield__command___lambda__7___closed__1 = _init_l_lean_parser_module_yield__command___lambda__7___closed__1(); -lean::mark_persistent(l_lean_parser_module_yield__command___lambda__7___closed__1); + l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___closed__1 = _init_l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___closed__1(); +lean::mark_persistent(l_lean_parser_monad__parsec_pos___at_lean_parser_module_yield__command___spec__1___closed__1); + l_lean_parser_module_yield__command___lambda__8___closed__1 = _init_l_lean_parser_module_yield__command___lambda__8___closed__1(); +lean::mark_persistent(l_lean_parser_module_yield__command___lambda__8___closed__1); l_lean_parser_module_prelude = _init_l_lean_parser_module_prelude(); lean::mark_persistent(l_lean_parser_module_prelude); l_lean_parser_module_prelude_has__view_x_27 = _init_l_lean_parser_module_prelude_has__view_x_27(); diff --git a/src/boot/init/lean/parser/term.cpp b/src/boot/init/lean/parser/term.cpp index 0cc1f55a2b..69413cb5d3 100644 --- a/src/boot/init/lean/parser/term.cpp +++ b/src/boot/init/lean/parser/term.cpp @@ -242,7 +242,6 @@ obj* l_lean_parser_term_projection_parser_lean_parser_has__view___lambda__1___bo obj* l_lean_parser_term_tuple_has__view; obj* l_rbmap_find___main___at___private_init_lean_parser_term_2__leading___spec__3(obj*); extern obj* l_lean_parser_level_trailing_parser_lean_parser_has__tokens; -obj* l_id___rarg___boxed(obj*); obj* l___private_init_lean_parser_combinators_3__sep__by_view__aux___main___at_lean_parser_term_match_has__view_x_27___spec__2(obj*); obj* l_lean_parser_term_if_parser_lean_parser_has__tokens; obj* l_lean_parser_term_simple__binder_view_to__binder__info___main(obj*); @@ -561,6 +560,7 @@ extern obj* l_string_join___closed__1; obj* l_lean_parser_term_binders__ext_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_term_simple__explicit__binder_has__view_x_27; obj* l_lean_parser_term_struct__inst__with_has__view_x_27___lambda__2(obj*); +obj* l_id___rarg(obj*); obj* l_lean_parser_term_projection__spec_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_term_lambda_parser_lean_parser_has__view; extern obj* l_lean_parser_ident_parser_view___rarg___lambda__1___closed__1; @@ -3029,7 +3029,7 @@ obj* _init_l_lean_parser_term_lean_parser_has__view() { _start: { obj* x_0; obj* x_2; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); lean::inc(x_0); x_2 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2, 0, x_0); diff --git a/src/boot/init/lean/parser/token.cpp b/src/boot/init/lean/parser/token.cpp index 9c6168b4fa..abf29ff09e 100644 --- a/src/boot/init/lean/parser/token.cpp +++ b/src/boot/init/lean/parser/token.cpp @@ -198,7 +198,6 @@ obj* l_lean_parser_parsec__t_lookahead___at_lean_parser_number_x_27___spec__11(o uint8 l_lean_parser_syntax_is__of__kind___main(obj*, obj*); extern obj* l___private_init_lean_parser_combinators_1__many1__aux___main___rarg___closed__1; obj* l_lean_parser_ident_parser(obj*); -obj* l_id___rarg___boxed(obj*); obj* l_lean_parser_raw___rarg(obj*, obj*, obj*, obj*, obj*, uint8); obj* l_lean_parser_monad__parsec_take__while1___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__1___boxed(obj*, obj*, obj*); obj* l_lean_parser_number_x_27___lambda__3___boxed(obj*, obj*, obj*, obj*); @@ -437,6 +436,7 @@ obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_pars extern obj* l_string_join___closed__1; obj* l_lean_parser_raw__str___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_reader__t_lift___at_lean_parser_with__trailing___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_id___rarg(obj*); obj* l_lean_parser_detail__ident__part; obj* l_lean_parser_ident_parser_view___rarg___lambda__1___closed__1; obj* l_lean_parser_detail__ident_parser___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); @@ -792,7 +792,7 @@ obj* _init_l_lean_parser_match__token___closed__2() { _start: { obj* x_0; obj* x_3; obj* x_4; obj* x_5; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); lean::inc(x_0); lean::inc(x_0); x_3 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); @@ -1473,7 +1473,7 @@ obj* _init_l_lean_parser_finish__comment__block___closed__2() { _start: { obj* x_0; obj* x_2; obj* x_3; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); lean::inc(x_0); x_2 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); lean::closure_set(x_2, 0, x_0); @@ -19379,7 +19379,7 @@ x_93 = lean::cnstr_get(x_92, 0); lean::inc(x_93); if (lean::obj_tag(x_93) == 0) { -obj* x_95; obj* x_97; obj* x_98; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_106; obj* x_108; obj* x_111; obj* x_113; obj* x_116; obj* x_118; uint32 x_121; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; +obj* x_95; obj* x_97; obj* x_98; obj* x_100; obj* x_102; obj* x_104; obj* x_105; obj* x_106; obj* x_108; obj* x_111; obj* x_113; obj* x_116; obj* x_118; uint32 x_121; obj* x_122; obj* x_123; obj* x_124; obj* x_125; obj* x_126; obj* x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; x_95 = lean::cnstr_get(x_92, 1); if (lean::is_exclusive(x_92)) { lean::cnstr_release(x_92, 0); @@ -19418,552 +19418,550 @@ x_118 = lean::nat_add(x_116, x_98); lean::dec(x_98); lean::dec(x_116); x_121 = l_char_of__nat(x_118); -lean::dec(x_118); -x_123 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_124 = lean::box_uint32(x_121); +x_122 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_123 = lean::box_uint32(x_121); if (lean::is_scalar(x_104)) { - x_125 = lean::alloc_cnstr(0, 3, 0); + x_124 = lean::alloc_cnstr(0, 3, 0); } else { - x_125 = x_104; + x_124 = x_104; } -lean::cnstr_set(x_125, 0, x_124); -lean::cnstr_set(x_125, 1, x_100); -lean::cnstr_set(x_125, 2, x_123); -x_126 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_102, x_125); -x_127 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_89, x_126); -x_128 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_76, x_127); -x_129 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_128); -x_130 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_129); -x_131 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_123, x_130); +lean::cnstr_set(x_124, 0, x_123); +lean::cnstr_set(x_124, 1, x_100); +lean::cnstr_set(x_124, 2, x_122); +x_125 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_102, x_124); +x_126 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_89, x_125); +x_127 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_76, x_126); +x_128 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_127); +x_129 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_128); +x_130 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_122, x_129); if (lean::is_scalar(x_97)) { - x_132 = lean::alloc_cnstr(0, 2, 0); + x_131 = lean::alloc_cnstr(0, 2, 0); } else { - x_132 = x_97; + x_131 = x_97; } -lean::cnstr_set(x_132, 0, x_131); -lean::cnstr_set(x_132, 1, x_95); -return x_132; +lean::cnstr_set(x_131, 0, x_130); +lean::cnstr_set(x_131, 1, x_95); +return x_131; } else { -obj* x_136; obj* x_138; obj* x_139; uint8 x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_147; obj* x_148; obj* x_149; obj* x_150; obj* x_151; -lean::dec(x_72); +obj* x_135; obj* x_137; obj* x_138; uint8 x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; obj* x_145; obj* x_146; obj* x_147; obj* x_148; obj* x_149; obj* x_150; lean::dec(x_59); +lean::dec(x_72); lean::dec(x_85); -x_136 = lean::cnstr_get(x_92, 1); +x_135 = lean::cnstr_get(x_92, 1); if (lean::is_exclusive(x_92)) { lean::cnstr_release(x_92, 0); - x_138 = x_92; + x_137 = x_92; } else { - lean::inc(x_136); + lean::inc(x_135); lean::dec(x_92); - x_138 = lean::box(0); + x_137 = lean::box(0); } -x_139 = lean::cnstr_get(x_93, 0); -x_141 = lean::cnstr_get_scalar(x_93, sizeof(void*)*1); +x_138 = lean::cnstr_get(x_93, 0); +x_140 = lean::cnstr_get_scalar(x_93, sizeof(void*)*1); if (lean::is_exclusive(x_93)) { - x_142 = x_93; + x_141 = x_93; } else { - lean::inc(x_139); + lean::inc(x_138); lean::dec(x_93); - x_142 = lean::box(0); + x_141 = lean::box(0); } -if (lean::is_scalar(x_142)) { - x_143 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_141)) { + x_142 = lean::alloc_cnstr(1, 1, 1); } else { - x_143 = x_142; + x_142 = x_141; } -lean::cnstr_set(x_143, 0, x_139); -lean::cnstr_set_scalar(x_143, sizeof(void*)*1, x_141); -x_144 = x_143; -x_145 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_89, x_144); -x_146 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_76, x_145); -x_147 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_146); -x_148 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_147); -x_149 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_150 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_149, x_148); -if (lean::is_scalar(x_138)) { - x_151 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_142, 0, x_138); +lean::cnstr_set_scalar(x_142, sizeof(void*)*1, x_140); +x_143 = x_142; +x_144 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_89, x_143); +x_145 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_76, x_144); +x_146 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_145); +x_147 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_146); +x_148 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_149 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_148, x_147); +if (lean::is_scalar(x_137)) { + x_150 = lean::alloc_cnstr(0, 2, 0); } else { - x_151 = x_138; + x_150 = x_137; } -lean::cnstr_set(x_151, 0, x_150); -lean::cnstr_set(x_151, 1, x_136); -return x_151; +lean::cnstr_set(x_150, 0, x_149); +lean::cnstr_set(x_150, 1, x_135); +return x_150; } } else { -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; obj* x_165; obj* x_166; obj* x_167; obj* x_168; -lean::dec(x_72); +obj* x_153; obj* x_155; obj* x_156; uint8 x_158; obj* x_159; obj* x_160; obj* x_161; obj* x_162; obj* x_163; obj* x_164; obj* x_165; obj* x_166; obj* x_167; lean::dec(x_59); -x_154 = lean::cnstr_get(x_79, 1); +lean::dec(x_72); +x_153 = lean::cnstr_get(x_79, 1); if (lean::is_exclusive(x_79)) { lean::cnstr_release(x_79, 0); - x_156 = x_79; + x_155 = x_79; } else { - lean::inc(x_154); + lean::inc(x_153); lean::dec(x_79); - x_156 = lean::box(0); + x_155 = lean::box(0); } -x_157 = lean::cnstr_get(x_80, 0); -x_159 = lean::cnstr_get_scalar(x_80, sizeof(void*)*1); +x_156 = lean::cnstr_get(x_80, 0); +x_158 = lean::cnstr_get_scalar(x_80, sizeof(void*)*1); if (lean::is_exclusive(x_80)) { - x_160 = x_80; + x_159 = x_80; } else { - lean::inc(x_157); + lean::inc(x_156); lean::dec(x_80); - x_160 = lean::box(0); + x_159 = lean::box(0); } -if (lean::is_scalar(x_160)) { - x_161 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_159)) { + x_160 = lean::alloc_cnstr(1, 1, 1); } else { - x_161 = x_160; + x_160 = x_159; } -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_parsec__t_bind__mk__res___rarg(x_76, x_162); -x_164 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_163); -x_165 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_164); -x_166 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_167 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_166, x_165); -if (lean::is_scalar(x_156)) { - x_168 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_160, 0, x_156); +lean::cnstr_set_scalar(x_160, sizeof(void*)*1, x_158); +x_161 = x_160; +x_162 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_76, x_161); +x_163 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_162); +x_164 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_163); +x_165 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_166 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_165, x_164); +if (lean::is_scalar(x_155)) { + x_167 = lean::alloc_cnstr(0, 2, 0); } else { - x_168 = x_156; + x_167 = x_155; } -lean::cnstr_set(x_168, 0, x_167); -lean::cnstr_set(x_168, 1, x_154); -return x_168; +lean::cnstr_set(x_167, 0, x_166); +lean::cnstr_set(x_167, 1, x_153); +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_180; obj* x_181; obj* x_182; obj* x_183; +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_179; obj* x_180; obj* x_181; obj* x_182; lean::dec(x_59); -x_170 = lean::cnstr_get(x_66, 1); +x_169 = lean::cnstr_get(x_66, 1); if (lean::is_exclusive(x_66)) { lean::cnstr_release(x_66, 0); - x_172 = x_66; + x_171 = x_66; } else { - lean::inc(x_170); + lean::inc(x_169); lean::dec(x_66); - x_172 = lean::box(0); + x_171 = lean::box(0); } -x_173 = lean::cnstr_get(x_67, 0); -x_175 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); +x_172 = lean::cnstr_get(x_67, 0); +x_174 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); if (lean::is_exclusive(x_67)) { - x_176 = x_67; + x_175 = x_67; } else { - lean::inc(x_173); + lean::inc(x_172); lean::dec(x_67); - 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; -x_179 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_178); -x_180 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_179); -x_181 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_182 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_181, x_180); -if (lean::is_scalar(x_172)) { - x_183 = 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; +x_178 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_63, x_177); +x_179 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_178); +x_180 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_181 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_180, x_179); +if (lean::is_scalar(x_171)) { + x_182 = lean::alloc_cnstr(0, 2, 0); } else { - x_183 = x_172; + x_182 = x_171; } -lean::cnstr_set(x_183, 0, x_182); -lean::cnstr_set(x_183, 1, x_170); -return x_183; +lean::cnstr_set(x_182, 0, x_181); +lean::cnstr_set(x_182, 1, x_169); +return x_182; } } else { -obj* x_184; obj* x_186; obj* x_187; uint8 x_189; obj* x_190; obj* x_191; obj* x_192; obj* x_193; obj* x_194; obj* x_195; obj* x_196; -x_184 = lean::cnstr_get(x_53, 1); +obj* x_183; obj* x_185; obj* x_186; uint8 x_188; obj* x_189; obj* x_190; obj* x_191; obj* x_192; obj* x_193; obj* x_194; obj* x_195; +x_183 = lean::cnstr_get(x_53, 1); if (lean::is_exclusive(x_53)) { lean::cnstr_release(x_53, 0); - x_186 = x_53; + x_185 = x_53; } else { - lean::inc(x_184); + lean::inc(x_183); lean::dec(x_53); - x_186 = lean::box(0); + x_185 = lean::box(0); } -x_187 = lean::cnstr_get(x_54, 0); -x_189 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); +x_186 = lean::cnstr_get(x_54, 0); +x_188 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); if (lean::is_exclusive(x_54)) { - x_190 = x_54; + x_189 = x_54; } else { - lean::inc(x_187); + lean::inc(x_186); lean::dec(x_54); - x_190 = lean::box(0); + x_189 = lean::box(0); } -if (lean::is_scalar(x_190)) { - x_191 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_189)) { + x_190 = lean::alloc_cnstr(1, 1, 1); } else { - x_191 = x_190; + x_190 = x_189; } -lean::cnstr_set(x_191, 0, x_187); -lean::cnstr_set_scalar(x_191, sizeof(void*)*1, x_189); -x_192 = x_191; -x_193 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_192); -x_194 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_195 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_194, x_193); -if (lean::is_scalar(x_186)) { - x_196 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_190, 0, x_186); +lean::cnstr_set_scalar(x_190, sizeof(void*)*1, x_188); +x_191 = x_190; +x_192 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_191); +x_193 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_194 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_193, x_192); +if (lean::is_scalar(x_185)) { + x_195 = lean::alloc_cnstr(0, 2, 0); } else { - x_196 = x_186; + x_195 = x_185; } -lean::cnstr_set(x_196, 0, x_195); -lean::cnstr_set(x_196, 1, x_184); -return x_196; +lean::cnstr_set(x_195, 0, x_194); +lean::cnstr_set(x_195, 1, x_183); +return x_195; } } } lbl_20: { -uint32 x_198; uint32 x_199; uint8 x_200; +uint32 x_197; uint32 x_198; uint8 x_199; lean::dec(x_19); -x_198 = 116; -x_199 = lean::unbox_uint32(x_10); -x_200 = x_199 == x_198; -if (x_200 == 0) +x_197 = 116; +x_198 = lean::unbox_uint32(x_10); +x_199 = x_198 == x_197; +if (x_199 == 0) { -uint32 x_203; uint8 x_204; +uint32 x_202; uint8 x_203; lean::dec(x_16); lean::dec(x_9); -x_203 = 120; -x_204 = x_199 == x_203; -if (x_204 == 0) +x_202 = 120; +x_203 = x_198 == x_202; +if (x_203 == 0) { -obj* x_205; -x_205 = lean::box(0); -x_17 = x_205; +obj* x_204; +x_204 = lean::box(0); +x_17 = x_204; goto lbl_18; } else { -obj* x_207; obj* x_208; +obj* x_206; obj* x_207; lean::dec(x_1); -x_207 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_x_27___spec__5(x_0, x_12, x_7); -x_208 = lean::cnstr_get(x_207, 0); -lean::inc(x_208); -if (lean::obj_tag(x_208) == 0) +x_206 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_x_27___spec__5(x_0, x_12, x_7); +x_207 = lean::cnstr_get(x_206, 0); +lean::inc(x_207); +if (lean::obj_tag(x_207) == 0) { -obj* x_210; obj* x_213; obj* x_215; obj* x_217; obj* x_220; obj* x_221; -x_210 = lean::cnstr_get(x_207, 1); -lean::inc(x_210); +obj* x_209; obj* x_212; obj* x_214; obj* x_216; obj* x_219; obj* x_220; +x_209 = lean::cnstr_get(x_206, 1); +lean::inc(x_209); +lean::dec(x_206); +x_212 = lean::cnstr_get(x_207, 0); +lean::inc(x_212); +x_214 = lean::cnstr_get(x_207, 1); +lean::inc(x_214); +x_216 = lean::cnstr_get(x_207, 2); +lean::inc(x_216); lean::dec(x_207); -x_213 = lean::cnstr_get(x_208, 0); -lean::inc(x_213); -x_215 = lean::cnstr_get(x_208, 1); -lean::inc(x_215); -x_217 = lean::cnstr_get(x_208, 2); -lean::inc(x_217); -lean::dec(x_208); -x_220 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_x_27___spec__5(x_0, x_215, x_210); -x_221 = lean::cnstr_get(x_220, 0); -lean::inc(x_221); -if (lean::obj_tag(x_221) == 0) +x_219 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_x_27___spec__5(x_0, x_214, x_209); +x_220 = lean::cnstr_get(x_219, 0); +lean::inc(x_220); +if (lean::obj_tag(x_220) == 0) { -obj* x_223; obj* x_225; obj* x_226; obj* x_228; obj* x_230; obj* x_232; obj* x_233; obj* x_234; obj* x_236; uint32 x_239; obj* x_241; obj* x_242; obj* x_243; obj* x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; -x_223 = lean::cnstr_get(x_220, 1); +obj* x_222; obj* x_224; obj* x_225; obj* x_227; obj* x_229; obj* x_231; obj* x_232; obj* x_233; obj* x_235; uint32 x_238; obj* x_239; obj* x_240; obj* x_241; obj* x_242; obj* x_243; obj* x_244; obj* x_245; obj* x_246; +x_222 = lean::cnstr_get(x_219, 1); +if (lean::is_exclusive(x_219)) { + lean::cnstr_release(x_219, 0); + x_224 = x_219; +} else { + lean::inc(x_222); + lean::dec(x_219); + x_224 = lean::box(0); +} +x_225 = lean::cnstr_get(x_220, 0); +x_227 = lean::cnstr_get(x_220, 1); +x_229 = lean::cnstr_get(x_220, 2); if (lean::is_exclusive(x_220)) { - lean::cnstr_release(x_220, 0); - x_225 = x_220; + x_231 = x_220; } else { - lean::inc(x_223); + lean::inc(x_225); + lean::inc(x_227); + lean::inc(x_229); lean::dec(x_220); - x_225 = lean::box(0); + x_231 = lean::box(0); } -x_226 = lean::cnstr_get(x_221, 0); -x_228 = lean::cnstr_get(x_221, 1); -x_230 = lean::cnstr_get(x_221, 2); -if (lean::is_exclusive(x_221)) { - x_232 = x_221; +x_232 = lean::mk_nat_obj(16u); +x_233 = lean::nat_mul(x_232, x_212); +lean::dec(x_212); +x_235 = lean::nat_add(x_233, x_225); +lean::dec(x_225); +lean::dec(x_233); +x_238 = l_char_of__nat(x_235); +x_239 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_240 = lean::box_uint32(x_238); +if (lean::is_scalar(x_231)) { + x_241 = lean::alloc_cnstr(0, 3, 0); } else { - lean::inc(x_226); - lean::inc(x_228); - lean::inc(x_230); - lean::dec(x_221); - x_232 = lean::box(0); + x_241 = x_231; } -x_233 = lean::mk_nat_obj(16u); -x_234 = lean::nat_mul(x_233, x_213); -lean::dec(x_213); -x_236 = lean::nat_add(x_234, x_226); -lean::dec(x_226); -lean::dec(x_234); -x_239 = l_char_of__nat(x_236); -lean::dec(x_236); -x_241 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_242 = lean::box_uint32(x_239); -if (lean::is_scalar(x_232)) { - x_243 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_241, 0, x_240); +lean::cnstr_set(x_241, 1, x_227); +lean::cnstr_set(x_241, 2, x_239); +x_242 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_229, x_241); +x_243 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_216, x_242); +x_244 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_243); +x_245 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_239, x_244); +if (lean::is_scalar(x_224)) { + x_246 = lean::alloc_cnstr(0, 2, 0); } else { - x_243 = x_232; + x_246 = x_224; } -lean::cnstr_set(x_243, 0, x_242); -lean::cnstr_set(x_243, 1, x_228); -lean::cnstr_set(x_243, 2, x_241); -x_244 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_230, x_243); -x_245 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_217, x_244); -x_246 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_245); -x_247 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_241, x_246); -if (lean::is_scalar(x_225)) { - x_248 = lean::alloc_cnstr(0, 2, 0); -} else { - x_248 = x_225; -} -lean::cnstr_set(x_248, 0, x_247); -lean::cnstr_set(x_248, 1, x_223); -return x_248; +lean::cnstr_set(x_246, 0, x_245); +lean::cnstr_set(x_246, 1, x_222); +return x_246; } else { -obj* x_250; obj* x_252; obj* x_253; uint8 x_255; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; obj* x_261; obj* x_262; obj* x_263; -lean::dec(x_213); -x_250 = lean::cnstr_get(x_220, 1); +obj* x_248; obj* x_250; obj* x_251; uint8 x_253; obj* x_254; obj* x_255; obj* x_256; obj* x_257; obj* x_258; obj* x_259; obj* x_260; obj* x_261; +lean::dec(x_212); +x_248 = lean::cnstr_get(x_219, 1); +if (lean::is_exclusive(x_219)) { + lean::cnstr_release(x_219, 0); + x_250 = x_219; +} else { + lean::inc(x_248); + lean::dec(x_219); + x_250 = lean::box(0); +} +x_251 = lean::cnstr_get(x_220, 0); +x_253 = lean::cnstr_get_scalar(x_220, sizeof(void*)*1); if (lean::is_exclusive(x_220)) { - lean::cnstr_release(x_220, 0); - x_252 = x_220; + x_254 = x_220; } else { - lean::inc(x_250); + lean::inc(x_251); lean::dec(x_220); - x_252 = lean::box(0); + x_254 = lean::box(0); } -x_253 = lean::cnstr_get(x_221, 0); -x_255 = lean::cnstr_get_scalar(x_221, sizeof(void*)*1); -if (lean::is_exclusive(x_221)) { - x_256 = x_221; +if (lean::is_scalar(x_254)) { + x_255 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_253); - lean::dec(x_221); - x_256 = lean::box(0); + x_255 = x_254; } -if (lean::is_scalar(x_256)) { - x_257 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_255, 0, x_251); +lean::cnstr_set_scalar(x_255, sizeof(void*)*1, x_253); +x_256 = x_255; +x_257 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_216, x_256); +x_258 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_257); +x_259 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_260 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_259, x_258); +if (lean::is_scalar(x_250)) { + x_261 = lean::alloc_cnstr(0, 2, 0); } else { - x_257 = x_256; + x_261 = x_250; } -lean::cnstr_set(x_257, 0, x_253); -lean::cnstr_set_scalar(x_257, sizeof(void*)*1, x_255); -x_258 = x_257; -x_259 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_217, x_258); -x_260 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_259); -x_261 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_262 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_261, x_260); -if (lean::is_scalar(x_252)) { - x_263 = lean::alloc_cnstr(0, 2, 0); -} else { - x_263 = x_252; -} -lean::cnstr_set(x_263, 0, x_262); -lean::cnstr_set(x_263, 1, x_250); -return x_263; +lean::cnstr_set(x_261, 0, x_260); +lean::cnstr_set(x_261, 1, x_248); +return x_261; } } else { -obj* x_264; obj* x_266; obj* x_267; uint8 x_269; obj* x_270; obj* x_271; obj* x_272; obj* x_273; obj* x_274; obj* x_275; obj* x_276; -x_264 = lean::cnstr_get(x_207, 1); +obj* x_262; obj* x_264; obj* x_265; uint8 x_267; obj* x_268; obj* x_269; obj* x_270; obj* x_271; obj* x_272; obj* x_273; obj* x_274; +x_262 = lean::cnstr_get(x_206, 1); +if (lean::is_exclusive(x_206)) { + lean::cnstr_release(x_206, 0); + x_264 = x_206; +} else { + lean::inc(x_262); + lean::dec(x_206); + x_264 = lean::box(0); +} +x_265 = lean::cnstr_get(x_207, 0); +x_267 = lean::cnstr_get_scalar(x_207, sizeof(void*)*1); if (lean::is_exclusive(x_207)) { - lean::cnstr_release(x_207, 0); - x_266 = x_207; + x_268 = x_207; } else { - lean::inc(x_264); + lean::inc(x_265); lean::dec(x_207); - x_266 = lean::box(0); + x_268 = lean::box(0); } -x_267 = lean::cnstr_get(x_208, 0); -x_269 = lean::cnstr_get_scalar(x_208, sizeof(void*)*1); -if (lean::is_exclusive(x_208)) { - x_270 = x_208; +if (lean::is_scalar(x_268)) { + x_269 = lean::alloc_cnstr(1, 1, 1); } else { - lean::inc(x_267); - lean::dec(x_208); - x_270 = lean::box(0); + x_269 = x_268; } -if (lean::is_scalar(x_270)) { - x_271 = lean::alloc_cnstr(1, 1, 1); +lean::cnstr_set(x_269, 0, x_265); +lean::cnstr_set_scalar(x_269, sizeof(void*)*1, x_267); +x_270 = x_269; +x_271 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_270); +x_272 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_273 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_272, x_271); +if (lean::is_scalar(x_264)) { + x_274 = lean::alloc_cnstr(0, 2, 0); } else { - x_271 = x_270; + x_274 = x_264; } -lean::cnstr_set(x_271, 0, x_267); -lean::cnstr_set_scalar(x_271, sizeof(void*)*1, x_269); -x_272 = x_271; -x_273 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_272); -x_274 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_275 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_274, x_273); -if (lean::is_scalar(x_266)) { - x_276 = lean::alloc_cnstr(0, 2, 0); -} else { - x_276 = x_266; -} -lean::cnstr_set(x_276, 0, x_275); -lean::cnstr_set(x_276, 1, x_264); -return x_276; +lean::cnstr_set(x_274, 0, x_273); +lean::cnstr_set(x_274, 1, x_262); +return x_274; } } } else { -uint32 x_278; obj* x_279; obj* x_280; obj* x_281; obj* x_282; obj* x_283; obj* x_284; +uint32 x_276; obj* x_277; obj* x_278; obj* x_279; obj* x_280; obj* x_281; obj* x_282; lean::dec(x_1); -x_278 = 9; -x_279 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_280 = lean::box_uint32(x_278); +x_276 = 9; +x_277 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_278 = lean::box_uint32(x_276); if (lean::is_scalar(x_16)) { - x_281 = lean::alloc_cnstr(0, 3, 0); + x_279 = lean::alloc_cnstr(0, 3, 0); } else { - x_281 = x_16; + x_279 = x_16; } -lean::cnstr_set(x_281, 0, x_280); -lean::cnstr_set(x_281, 1, x_12); -lean::cnstr_set(x_281, 2, x_279); -x_282 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_281); -x_283 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_279, x_282); +lean::cnstr_set(x_279, 0, x_278); +lean::cnstr_set(x_279, 1, x_12); +lean::cnstr_set(x_279, 2, x_277); +x_280 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_279); +x_281 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_277, x_280); if (lean::is_scalar(x_9)) { - x_284 = lean::alloc_cnstr(0, 2, 0); + x_282 = lean::alloc_cnstr(0, 2, 0); } else { - x_284 = x_9; + x_282 = x_9; } -lean::cnstr_set(x_284, 0, x_283); -lean::cnstr_set(x_284, 1, x_7); -return x_284; +lean::cnstr_set(x_282, 0, x_281); +lean::cnstr_set(x_282, 1, x_7); +return x_282; } } lbl_22: { -uint32 x_286; uint32 x_287; uint8 x_288; +uint32 x_284; uint32 x_285; uint8 x_286; lean::dec(x_21); -x_286 = 34; -x_287 = lean::unbox_uint32(x_10); -x_288 = x_287 == x_286; +x_284 = 34; +x_285 = lean::unbox_uint32(x_10); +x_286 = x_285 == x_284; +if (x_286 == 0) +{ +uint32 x_287; uint8 x_288; +x_287 = 39; +x_288 = x_285 == x_287; if (x_288 == 0) { uint32 x_289; uint8 x_290; -x_289 = 39; -x_290 = x_287 == x_289; +x_289 = 110; +x_290 = x_285 == x_289; if (x_290 == 0) { -uint32 x_291; uint8 x_292; -x_291 = 110; -x_292 = x_287 == x_291; -if (x_292 == 0) -{ -obj* x_293; -x_293 = lean::box(0); -x_19 = x_293; +obj* x_291; +x_291 = lean::box(0); +x_19 = x_291; goto lbl_20; } else { -uint32 x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_301; obj* x_302; obj* x_303; +uint32 x_295; obj* x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_301; lean::dec(x_16); lean::dec(x_9); lean::dec(x_1); -x_297 = 10; -x_298 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_299 = lean::box_uint32(x_297); -x_300 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_300, 0, x_299); -lean::cnstr_set(x_300, 1, x_12); -lean::cnstr_set(x_300, 2, x_298); -x_301 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_300); -x_302 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_298, x_301); -x_303 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_303, 0, x_302); -lean::cnstr_set(x_303, 1, x_7); -return x_303; +x_295 = 10; +x_296 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_297 = lean::box_uint32(x_295); +x_298 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_298, 0, x_297); +lean::cnstr_set(x_298, 1, x_12); +lean::cnstr_set(x_298, 2, x_296); +x_299 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_298); +x_300 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_296, x_299); +x_301 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_301, 0, x_300); +lean::cnstr_set(x_301, 1, x_7); +return x_301; } } else { -obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_311; obj* x_312; +obj* x_305; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; lean::dec(x_16); lean::dec(x_9); lean::dec(x_1); -x_307 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_308 = lean::box_uint32(x_289); -x_309 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_309, 0, x_308); -lean::cnstr_set(x_309, 1, x_12); -lean::cnstr_set(x_309, 2, x_307); -x_310 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_309); -x_311 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_307, x_310); -x_312 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_312, 0, x_311); -lean::cnstr_set(x_312, 1, x_7); -return x_312; +x_305 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_306 = lean::box_uint32(x_287); +x_307 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_307, 0, x_306); +lean::cnstr_set(x_307, 1, x_12); +lean::cnstr_set(x_307, 2, x_305); +x_308 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_307); +x_309 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_305, x_308); +x_310 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_310, 0, x_309); +lean::cnstr_set(x_310, 1, x_7); +return x_310; } } else { -obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_321; +obj* x_314; obj* x_315; obj* x_316; obj* x_317; obj* x_318; obj* x_319; lean::dec(x_16); lean::dec(x_9); lean::dec(x_1); -x_316 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_317 = lean::box_uint32(x_286); -x_318 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_318, 0, x_317); -lean::cnstr_set(x_318, 1, x_12); -lean::cnstr_set(x_318, 2, x_316); -x_319 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_318); -x_320 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_316, x_319); -x_321 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_321, 0, x_320); -lean::cnstr_set(x_321, 1, x_7); -return x_321; +x_314 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_315 = lean::box_uint32(x_284); +x_316 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_316, 0, x_315); +lean::cnstr_set(x_316, 1, x_12); +lean::cnstr_set(x_316, 2, x_314); +x_317 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_14, x_316); +x_318 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_314, x_317); +x_319 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_319, 0, x_318); +lean::cnstr_set(x_319, 1, x_7); +return x_319; } } } else { -obj* x_323; obj* x_325; obj* x_326; uint8 x_328; obj* x_329; obj* x_330; obj* x_331; obj* x_332; obj* x_333; obj* x_334; +obj* x_321; obj* x_323; obj* x_324; uint8 x_326; obj* x_327; obj* x_328; obj* x_329; obj* x_330; obj* x_331; obj* x_332; lean::dec(x_1); -x_323 = lean::cnstr_get(x_4, 1); +x_321 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { lean::cnstr_release(x_4, 0); - x_325 = x_4; + x_323 = x_4; } else { - lean::inc(x_323); + lean::inc(x_321); lean::dec(x_4); - x_325 = lean::box(0); + x_323 = lean::box(0); } -x_326 = lean::cnstr_get(x_5, 0); -x_328 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +x_324 = lean::cnstr_get(x_5, 0); +x_326 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); if (lean::is_exclusive(x_5)) { - x_329 = x_5; + x_327 = x_5; } else { - lean::inc(x_326); + lean::inc(x_324); lean::dec(x_5); - x_329 = lean::box(0); + x_327 = lean::box(0); } -if (lean::is_scalar(x_329)) { - x_330 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_327)) { + x_328 = lean::alloc_cnstr(1, 1, 1); } else { - x_330 = x_329; + x_328 = x_327; } -lean::cnstr_set(x_330, 0, x_326); -lean::cnstr_set_scalar(x_330, sizeof(void*)*1, x_328); -x_331 = x_330; -x_332 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_333 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_332, x_331); -if (lean::is_scalar(x_325)) { - x_334 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_328, 0, x_324); +lean::cnstr_set_scalar(x_328, sizeof(void*)*1, x_326); +x_329 = x_328; +x_330 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_331 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_330, x_329); +if (lean::is_scalar(x_323)) { + x_332 = lean::alloc_cnstr(0, 2, 0); } else { - x_334 = x_325; + x_332 = x_323; } -lean::cnstr_set(x_334, 0, x_333); -lean::cnstr_set(x_334, 1, x_323); -return x_334; +lean::cnstr_set(x_332, 0, x_331); +lean::cnstr_set(x_332, 1, x_321); +return x_332; } } } @@ -24336,7 +24334,7 @@ lean::dec(x_54); x_62 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_view_value___spec__8(x_57); if (lean::obj_tag(x_62) == 0) { -obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_73; obj* x_76; obj* x_78; obj* x_81; obj* x_83; uint32 x_86; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; +obj* x_63; obj* x_65; obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_73; obj* x_76; obj* x_78; obj* x_81; obj* x_83; uint32 x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; x_63 = lean::cnstr_get(x_62, 0); x_65 = lean::cnstr_get(x_62, 1); x_67 = lean::cnstr_get(x_62, 2); @@ -24366,390 +24364,388 @@ x_83 = lean::nat_add(x_81, x_63); lean::dec(x_63); lean::dec(x_81); x_86 = l_char_of__nat(x_83); -lean::dec(x_83); -x_88 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_89 = lean::box_uint32(x_86); +x_87 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_88 = lean::box_uint32(x_86); if (lean::is_scalar(x_69)) { - x_90 = lean::alloc_cnstr(0, 3, 0); + x_89 = lean::alloc_cnstr(0, 3, 0); } else { - x_90 = x_69; + x_89 = x_69; } -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_65); -lean::cnstr_set(x_90, 2, x_88); -x_91 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_67, x_90); -x_92 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_59, x_91); -x_93 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_51, x_92); -x_94 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_93); -x_95 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_94); -x_96 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_88, x_95); -return x_96; +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_65); +lean::cnstr_set(x_89, 2, x_87); +x_90 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_67, x_89); +x_91 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_59, x_90); +x_92 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_51, x_91); +x_93 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_92); +x_94 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_93); +x_95 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_87, x_94); +return x_95; } else { -obj* x_100; uint8 x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; +obj* x_99; uint8 x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; lean::dec(x_47); lean::dec(x_55); lean::dec(x_39); -x_100 = lean::cnstr_get(x_62, 0); -x_102 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); +x_99 = lean::cnstr_get(x_62, 0); +x_101 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); if (lean::is_exclusive(x_62)) { - x_103 = x_62; + x_102 = x_62; } else { - lean::inc(x_100); + lean::inc(x_99); lean::dec(x_62); - x_103 = lean::box(0); + x_102 = lean::box(0); } -if (lean::is_scalar(x_103)) { - x_104 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_102)) { + x_103 = lean::alloc_cnstr(1, 1, 1); } else { - x_104 = x_103; + x_103 = x_102; } -lean::cnstr_set(x_104, 0, x_100); -lean::cnstr_set_scalar(x_104, sizeof(void*)*1, x_102); -x_105 = x_104; -x_106 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_59, x_105); -x_107 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_51, x_106); -x_108 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_107); -x_109 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_108); -x_110 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_111 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_110, x_109); -return x_111; +lean::cnstr_set(x_103, 0, x_99); +lean::cnstr_set_scalar(x_103, sizeof(void*)*1, x_101); +x_104 = x_103; +x_105 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_59, x_104); +x_106 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_51, x_105); +x_107 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_106); +x_108 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_107); +x_109 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_110 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_109, x_108); +return x_110; } } else { -obj* x_114; uint8 x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; +obj* x_113; uint8 x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; lean::dec(x_47); lean::dec(x_39); -x_114 = lean::cnstr_get(x_54, 0); -x_116 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); +x_113 = lean::cnstr_get(x_54, 0); +x_115 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); if (lean::is_exclusive(x_54)) { - x_117 = x_54; + x_116 = x_54; } else { - lean::inc(x_114); + lean::inc(x_113); lean::dec(x_54); - x_117 = lean::box(0); + x_116 = lean::box(0); } -if (lean::is_scalar(x_117)) { - x_118 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_116)) { + x_117 = lean::alloc_cnstr(1, 1, 1); } else { - x_118 = x_117; + x_117 = x_116; } -lean::cnstr_set(x_118, 0, x_114); -lean::cnstr_set_scalar(x_118, sizeof(void*)*1, x_116); -x_119 = x_118; -x_120 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_51, x_119); -x_121 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_120); -x_122 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_121); -x_123 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_124 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_123, x_122); -return x_124; +lean::cnstr_set(x_117, 0, x_113); +lean::cnstr_set_scalar(x_117, sizeof(void*)*1, x_115); +x_118 = x_117; +x_119 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_51, x_118); +x_120 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_119); +x_121 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_120); +x_122 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_123 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_122, x_121); +return x_123; } } else { -obj* x_126; uint8 x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; obj* x_135; +obj* x_125; uint8 x_127; obj* x_128; obj* x_129; obj* x_130; obj* x_131; obj* x_132; obj* x_133; obj* x_134; lean::dec(x_39); -x_126 = lean::cnstr_get(x_46, 0); -x_128 = lean::cnstr_get_scalar(x_46, sizeof(void*)*1); +x_125 = lean::cnstr_get(x_46, 0); +x_127 = lean::cnstr_get_scalar(x_46, sizeof(void*)*1); if (lean::is_exclusive(x_46)) { - x_129 = x_46; + x_128 = x_46; } else { - lean::inc(x_126); + lean::inc(x_125); lean::dec(x_46); - x_129 = lean::box(0); + x_128 = lean::box(0); } -if (lean::is_scalar(x_129)) { - x_130 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_128)) { + x_129 = lean::alloc_cnstr(1, 1, 1); } else { - x_130 = x_129; + x_129 = x_128; } -lean::cnstr_set(x_130, 0, x_126); -lean::cnstr_set_scalar(x_130, sizeof(void*)*1, x_128); -x_131 = x_130; -x_132 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_131); -x_133 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_132); -x_134 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_135 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_134, x_133); -return x_135; +lean::cnstr_set(x_129, 0, x_125); +lean::cnstr_set_scalar(x_129, sizeof(void*)*1, x_127); +x_130 = x_129; +x_131 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_43, x_130); +x_132 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_131); +x_133 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_134 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_133, x_132); +return x_134; } } else { -obj* x_136; uint8 x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; obj* x_144; -x_136 = lean::cnstr_get(x_38, 0); -x_138 = lean::cnstr_get_scalar(x_38, sizeof(void*)*1); +obj* x_135; uint8 x_137; obj* x_138; obj* x_139; obj* x_140; obj* x_141; obj* x_142; obj* x_143; +x_135 = lean::cnstr_get(x_38, 0); +x_137 = lean::cnstr_get_scalar(x_38, sizeof(void*)*1); if (lean::is_exclusive(x_38)) { - x_139 = x_38; + x_138 = x_38; } else { - lean::inc(x_136); + lean::inc(x_135); lean::dec(x_38); - x_139 = lean::box(0); + x_138 = lean::box(0); } -if (lean::is_scalar(x_139)) { - x_140 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_138)) { + x_139 = lean::alloc_cnstr(1, 1, 1); } else { - x_140 = x_139; + x_139 = x_138; } -lean::cnstr_set(x_140, 0, x_136); -lean::cnstr_set_scalar(x_140, sizeof(void*)*1, x_138); -x_141 = x_140; -x_142 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_141); -x_143 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_144 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_143, x_142); -return x_144; +lean::cnstr_set(x_139, 0, x_135); +lean::cnstr_set_scalar(x_139, sizeof(void*)*1, x_137); +x_140 = x_139; +x_141 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_140); +x_142 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_143 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_142, x_141); +return x_143; } } } lbl_13: { -uint32 x_146; uint32 x_147; uint8 x_148; +uint32 x_145; uint32 x_146; uint8 x_147; lean::dec(x_12); -x_146 = 116; -x_147 = lean::unbox_uint32(x_3); -x_148 = x_147 == x_146; -if (x_148 == 0) +x_145 = 116; +x_146 = lean::unbox_uint32(x_3); +x_147 = x_146 == x_145; +if (x_147 == 0) { -uint32 x_150; uint8 x_151; +uint32 x_149; uint8 x_150; lean::dec(x_9); -x_150 = 120; -x_151 = x_147 == x_150; -if (x_151 == 0) +x_149 = 120; +x_150 = x_146 == x_149; +if (x_150 == 0) { -obj* x_152; -x_152 = lean::box(0); -x_10 = x_152; +obj* x_151; +x_151 = lean::box(0); +x_10 = x_151; goto lbl_11; } else { -obj* x_154; +obj* x_153; lean::dec(x_0); -x_154 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_view_value___spec__8(x_5); -if (lean::obj_tag(x_154) == 0) +x_153 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_view_value___spec__8(x_5); +if (lean::obj_tag(x_153) == 0) { -obj* x_155; obj* x_157; obj* x_159; obj* x_162; -x_155 = lean::cnstr_get(x_154, 0); -lean::inc(x_155); -x_157 = lean::cnstr_get(x_154, 1); -lean::inc(x_157); -x_159 = lean::cnstr_get(x_154, 2); -lean::inc(x_159); +obj* x_154; obj* x_156; obj* x_158; obj* x_161; +x_154 = lean::cnstr_get(x_153, 0); +lean::inc(x_154); +x_156 = lean::cnstr_get(x_153, 1); +lean::inc(x_156); +x_158 = lean::cnstr_get(x_153, 2); +lean::inc(x_158); +lean::dec(x_153); +x_161 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_view_value___spec__8(x_156); +if (lean::obj_tag(x_161) == 0) +{ +obj* x_162; obj* x_164; obj* x_166; obj* x_168; obj* x_169; obj* x_170; obj* x_172; uint32 x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; obj* x_180; obj* x_181; obj* x_182; +x_162 = lean::cnstr_get(x_161, 0); +x_164 = lean::cnstr_get(x_161, 1); +x_166 = lean::cnstr_get(x_161, 2); +if (lean::is_exclusive(x_161)) { + x_168 = x_161; +} else { + lean::inc(x_162); + lean::inc(x_164); + lean::inc(x_166); + lean::dec(x_161); + x_168 = lean::box(0); +} +x_169 = lean::mk_nat_obj(16u); +x_170 = lean::nat_mul(x_169, x_154); lean::dec(x_154); -x_162 = l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_view_value___spec__8(x_157); -if (lean::obj_tag(x_162) == 0) -{ -obj* x_163; obj* x_165; obj* x_167; obj* x_169; obj* x_170; obj* x_171; obj* x_173; uint32 x_176; obj* x_178; obj* x_179; obj* x_180; obj* x_181; obj* x_182; obj* x_183; obj* x_184; -x_163 = lean::cnstr_get(x_162, 0); -x_165 = lean::cnstr_get(x_162, 1); -x_167 = lean::cnstr_get(x_162, 2); -if (lean::is_exclusive(x_162)) { - x_169 = x_162; +x_172 = lean::nat_add(x_170, x_162); +lean::dec(x_162); +lean::dec(x_170); +x_175 = l_char_of__nat(x_172); +x_176 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_177 = lean::box_uint32(x_175); +if (lean::is_scalar(x_168)) { + x_178 = lean::alloc_cnstr(0, 3, 0); } else { - lean::inc(x_163); - lean::inc(x_165); - lean::inc(x_167); - lean::dec(x_162); - x_169 = lean::box(0); + x_178 = x_168; } -x_170 = lean::mk_nat_obj(16u); -x_171 = lean::nat_mul(x_170, x_155); -lean::dec(x_155); -x_173 = lean::nat_add(x_171, x_163); -lean::dec(x_163); -lean::dec(x_171); -x_176 = l_char_of__nat(x_173); -lean::dec(x_173); -x_178 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_179 = lean::box_uint32(x_176); -if (lean::is_scalar(x_169)) { - x_180 = lean::alloc_cnstr(0, 3, 0); -} else { - x_180 = x_169; -} -lean::cnstr_set(x_180, 0, x_179); -lean::cnstr_set(x_180, 1, x_165); -lean::cnstr_set(x_180, 2, x_178); -x_181 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_167, x_180); -x_182 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_159, x_181); -x_183 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_182); -x_184 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_178, x_183); -return x_184; +lean::cnstr_set(x_178, 0, x_177); +lean::cnstr_set(x_178, 1, x_164); +lean::cnstr_set(x_178, 2, x_176); +x_179 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_166, x_178); +x_180 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_158, x_179); +x_181 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_180); +x_182 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_176, x_181); +return x_182; } else { -obj* x_186; uint8 x_188; obj* x_189; obj* x_190; obj* x_191; obj* x_192; obj* x_193; obj* x_194; obj* x_195; -lean::dec(x_155); -x_186 = lean::cnstr_get(x_162, 0); -x_188 = lean::cnstr_get_scalar(x_162, sizeof(void*)*1); -if (lean::is_exclusive(x_162)) { - x_189 = x_162; +obj* x_184; uint8 x_186; obj* x_187; obj* x_188; obj* x_189; obj* x_190; obj* x_191; obj* x_192; obj* x_193; +lean::dec(x_154); +x_184 = lean::cnstr_get(x_161, 0); +x_186 = lean::cnstr_get_scalar(x_161, sizeof(void*)*1); +if (lean::is_exclusive(x_161)) { + x_187 = x_161; } else { - lean::inc(x_186); - lean::dec(x_162); - x_189 = lean::box(0); + lean::inc(x_184); + lean::dec(x_161); + x_187 = lean::box(0); } -if (lean::is_scalar(x_189)) { - x_190 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_187)) { + x_188 = lean::alloc_cnstr(1, 1, 1); } else { - x_190 = x_189; + x_188 = x_187; } -lean::cnstr_set(x_190, 0, x_186); -lean::cnstr_set_scalar(x_190, sizeof(void*)*1, x_188); -x_191 = x_190; -x_192 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_159, x_191); -x_193 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_192); -x_194 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_195 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_194, x_193); -return x_195; +lean::cnstr_set(x_188, 0, x_184); +lean::cnstr_set_scalar(x_188, sizeof(void*)*1, x_186); +x_189 = x_188; +x_190 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_158, x_189); +x_191 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_190); +x_192 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_193 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_192, x_191); +return x_193; } } else { -obj* x_196; uint8 x_198; obj* x_199; obj* x_200; obj* x_201; obj* x_202; obj* x_203; obj* x_204; -x_196 = lean::cnstr_get(x_154, 0); -x_198 = lean::cnstr_get_scalar(x_154, sizeof(void*)*1); -if (lean::is_exclusive(x_154)) { - x_199 = x_154; +obj* x_194; uint8 x_196; obj* x_197; obj* x_198; obj* x_199; obj* x_200; obj* x_201; obj* x_202; +x_194 = lean::cnstr_get(x_153, 0); +x_196 = lean::cnstr_get_scalar(x_153, sizeof(void*)*1); +if (lean::is_exclusive(x_153)) { + x_197 = x_153; } else { - lean::inc(x_196); - lean::dec(x_154); - x_199 = lean::box(0); + lean::inc(x_194); + lean::dec(x_153); + x_197 = lean::box(0); } -if (lean::is_scalar(x_199)) { - x_200 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_197)) { + x_198 = lean::alloc_cnstr(1, 1, 1); } else { - x_200 = x_199; + x_198 = x_197; } -lean::cnstr_set(x_200, 0, x_196); -lean::cnstr_set_scalar(x_200, sizeof(void*)*1, x_198); -x_201 = x_200; -x_202 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_201); -x_203 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_204 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_203, x_202); -return x_204; +lean::cnstr_set(x_198, 0, x_194); +lean::cnstr_set_scalar(x_198, sizeof(void*)*1, x_196); +x_199 = x_198; +x_200 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_199); +x_201 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_202 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_201, x_200); +return x_202; } } } else { -uint32 x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; +uint32 x_204; obj* x_205; obj* x_206; obj* x_207; obj* x_208; obj* x_209; lean::dec(x_0); -x_206 = 9; -x_207 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_208 = lean::box_uint32(x_206); +x_204 = 9; +x_205 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_206 = lean::box_uint32(x_204); if (lean::is_scalar(x_9)) { - x_209 = lean::alloc_cnstr(0, 3, 0); + x_207 = lean::alloc_cnstr(0, 3, 0); } else { - x_209 = x_9; + x_207 = x_9; } -lean::cnstr_set(x_209, 0, x_208); -lean::cnstr_set(x_209, 1, x_5); -lean::cnstr_set(x_209, 2, x_207); -x_210 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_209); -x_211 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_207, x_210); -return x_211; +lean::cnstr_set(x_207, 0, x_206); +lean::cnstr_set(x_207, 1, x_5); +lean::cnstr_set(x_207, 2, x_205); +x_208 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_207); +x_209 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_205, x_208); +return x_209; } } lbl_15: { -uint32 x_213; uint32 x_214; uint8 x_215; +uint32 x_211; uint32 x_212; uint8 x_213; lean::dec(x_14); -x_213 = 34; -x_214 = lean::unbox_uint32(x_3); -x_215 = x_214 == x_213; +x_211 = 34; +x_212 = lean::unbox_uint32(x_3); +x_213 = x_212 == x_211; +if (x_213 == 0) +{ +uint32 x_214; uint8 x_215; +x_214 = 39; +x_215 = x_212 == x_214; if (x_215 == 0) { uint32 x_216; uint8 x_217; -x_216 = 39; -x_217 = x_214 == x_216; +x_216 = 110; +x_217 = x_212 == x_216; if (x_217 == 0) { -uint32 x_218; uint8 x_219; -x_218 = 110; -x_219 = x_214 == x_218; -if (x_219 == 0) -{ -obj* x_220; -x_220 = lean::box(0); -x_12 = x_220; +obj* x_218; +x_218 = lean::box(0); +x_12 = x_218; goto lbl_13; } else { -uint32 x_223; obj* x_224; obj* x_225; obj* x_226; obj* x_227; obj* x_228; +uint32 x_221; obj* x_222; obj* x_223; obj* x_224; obj* x_225; obj* x_226; lean::dec(x_9); lean::dec(x_0); -x_223 = 10; -x_224 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_225 = lean::box_uint32(x_223); -x_226 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_226, 0, x_225); -lean::cnstr_set(x_226, 1, x_5); -lean::cnstr_set(x_226, 2, x_224); -x_227 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_226); -x_228 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_224, x_227); -return x_228; +x_221 = 10; +x_222 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_223 = lean::box_uint32(x_221); +x_224 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_224, 0, x_223); +lean::cnstr_set(x_224, 1, x_5); +lean::cnstr_set(x_224, 2, x_222); +x_225 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_224); +x_226 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_222, x_225); +return x_226; } } else { -obj* x_231; obj* x_232; obj* x_233; obj* x_234; obj* x_235; +obj* x_229; obj* x_230; obj* x_231; obj* x_232; obj* x_233; lean::dec(x_9); lean::dec(x_0); -x_231 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_232 = lean::box_uint32(x_216); -x_233 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_233, 0, x_232); -lean::cnstr_set(x_233, 1, x_5); -lean::cnstr_set(x_233, 2, x_231); -x_234 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_233); -x_235 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_231, x_234); -return x_235; +x_229 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_230 = lean::box_uint32(x_214); +x_231 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_231, 0, x_230); +lean::cnstr_set(x_231, 1, x_5); +lean::cnstr_set(x_231, 2, x_229); +x_232 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_231); +x_233 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_229, x_232); +return x_233; } } else { -obj* x_238; obj* x_239; obj* x_240; obj* x_241; obj* x_242; +obj* x_236; obj* x_237; obj* x_238; obj* x_239; obj* x_240; lean::dec(x_9); lean::dec(x_0); -x_238 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_239 = lean::box_uint32(x_213); -x_240 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_240, 0, x_239); -lean::cnstr_set(x_240, 1, x_5); -lean::cnstr_set(x_240, 2, x_238); -x_241 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_240); -x_242 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_238, x_241); -return x_242; +x_236 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_237 = lean::box_uint32(x_211); +x_238 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_238, 0, x_237); +lean::cnstr_set(x_238, 1, x_5); +lean::cnstr_set(x_238, 2, x_236); +x_239 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_7, x_238); +x_240 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_236, x_239); +return x_240; } } } else { -obj* x_244; uint8 x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; obj* x_251; +obj* x_242; uint8 x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; lean::dec(x_0); -x_244 = lean::cnstr_get(x_2, 0); -x_246 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); +x_242 = lean::cnstr_get(x_2, 0); +x_244 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); if (lean::is_exclusive(x_2)) { - x_247 = x_2; + x_245 = x_2; } else { - lean::inc(x_244); + lean::inc(x_242); lean::dec(x_2); - x_247 = lean::box(0); + x_245 = lean::box(0); } -if (lean::is_scalar(x_247)) { - x_248 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_245)) { + x_246 = lean::alloc_cnstr(1, 1, 1); } else { - x_248 = x_247; + x_246 = x_245; } -lean::cnstr_set(x_248, 0, x_244); -lean::cnstr_set_scalar(x_248, sizeof(void*)*1, x_246); -x_249 = x_248; -x_250 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_251 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_250, x_249); -return x_251; +lean::cnstr_set(x_246, 0, x_242); +lean::cnstr_set_scalar(x_246, sizeof(void*)*1, x_244); +x_247 = x_246; +x_248 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_249 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_248, x_247); +return x_249; } } } diff --git a/src/boot/init/lean/util.cpp b/src/boot/init/lean/util.cpp new file mode 100644 index 0000000000..bad79ccef8 --- /dev/null +++ b/src/boot/init/lean/util.cpp @@ -0,0 +1,79 @@ +// Lean compiler output +// Module: init.lean.util +// Imports: init.lean.position init.io +#include "runtime/object.h" +#include "runtime/apply.h" +typedef lean::object obj; typedef lean::usize usize; +typedef lean::uint8 uint8; typedef lean::uint16 uint16; +typedef lean::uint32 uint32; typedef lean::uint64 uint64; +#if defined(__clang__) +#pragma clang diagnostic ignored "-Wunused-parameter" +#pragma clang diagnostic ignored "-Wunused-label" +#elif defined(__GNUC__) && !defined(__CLANG__) +#pragma GCC diagnostic ignored "-Wunused-parameter" +#pragma GCC diagnostic ignored "-Wunused-label" +#pragma GCC diagnostic ignored "-Wunused-but-set-variable" +#endif +obj* l_lean_profileit__pure(obj*); +extern "C" obj* lean_lean_profileit(obj*, obj*, obj*, obj*, obj*); +obj* l_lean_profileit___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_lean_profileit__pure___rarg___boxed(obj*, obj*, obj*, obj*); +obj* l_io_lazy__pure___rarg(obj*, obj*); +obj* l_lean_profileit__pure___boxed(obj*); +obj* l_lean_profileit__pure___rarg(obj*, obj*, obj*, obj*); +obj* l_lean_profileit___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { +_start: +{ +obj* x_5; +x_5 = lean_lean_profileit(x_0, x_1, x_2, x_3, x_4); +lean::dec(x_1); +lean::dec(x_2); +return x_5; +} +} +obj* l_lean_profileit__pure___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; obj* x_5; +x_4 = lean::alloc_closure(reinterpret_cast(l_io_lazy__pure___rarg), 2, 1); +lean::closure_set(x_4, 0, x_2); +x_5 = lean_lean_profileit(lean::box(0), x_0, x_1, x_4, x_3); +return x_5; +} +} +obj* l_lean_profileit__pure(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = lean::alloc_closure(reinterpret_cast(l_lean_profileit__pure___rarg___boxed), 4, 0); +return x_1; +} +} +obj* l_lean_profileit__pure___rarg___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { +_start: +{ +obj* x_4; +x_4 = l_lean_profileit__pure___rarg(x_0, x_1, x_2, x_3); +lean::dec(x_0); +lean::dec(x_1); +return x_4; +} +} +obj* l_lean_profileit__pure___boxed(obj* x_0) { +_start: +{ +obj* x_1; +x_1 = l_lean_profileit__pure(x_0); +lean::dec(x_0); +return x_1; +} +} +void initialize_init_lean_position(); +void initialize_init_io(); +static bool _G_initialized = false; +void initialize_init_lean_util() { + if (_G_initialized) return; + _G_initialized = true; + initialize_init_lean_position(); + initialize_init_io(); +}