From 801f55faf0d24c2dc65e4795b399e4e4c7cc6dfc Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Wed, 6 Mar 2019 11:07:02 -0800 Subject: [PATCH] chore(boot): update --- src/boot/init/control/coroutine.cpp | 4 +- src/boot/init/data/option/basic.cpp | 63 +- src/boot/init/io.cpp | 24 +- src/boot/init/lean/elaborator.cpp | 7245 ++++++++--------- src/boot/init/lean/expander.cpp | 635 +- src/boot/init/lean/level.cpp | 218 +- src/boot/init/lean/name_mangling.cpp | 620 +- src/boot/init/lean/parser/basic.cpp | 140 +- src/boot/init/lean/parser/command.cpp | 2466 ++++-- src/boot/init/lean/parser/declaration.cpp | 4844 +++++++++--- src/boot/init/lean/parser/level.cpp | 457 +- src/boot/init/lean/parser/module.cpp | 195 +- src/boot/init/lean/parser/notation.cpp | 2940 +++++-- src/boot/init/lean/parser/parsec.cpp | 4 +- src/boot/init/lean/parser/string_literal.cpp | 18 +- src/boot/init/lean/parser/syntax.cpp | 149 +- src/boot/init/lean/parser/term.cpp | 7374 ++++++++++++++---- src/boot/init/lean/parser/token.cpp | 2292 ++++-- src/boot/init/lean/parser/trie.cpp | 141 +- 19 files changed, 20538 insertions(+), 9291 deletions(-) diff --git a/src/boot/init/control/coroutine.cpp b/src/boot/init/control/coroutine.cpp index 3ae26dff5d..0d6347476b 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), 2, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_function_const___rarg___boxed), 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/data/option/basic.cpp b/src/boot/init/data/option/basic.cpp index db6e957815..e9c955656b 100644 --- a/src/boot/init/data/option/basic.cpp +++ b/src/boot/init/data/option/basic.cpp @@ -39,7 +39,6 @@ obj* l_option_alternative___lambda__1___boxed(obj*); obj* l_option_to__monad___boxed(obj*, obj*); obj* l_option_to__bool___rarg___boxed(obj*); obj* l_option_monad___lambda__4(obj*, obj*, obj*, obj*); -obj* l_function_const___rarg___boxed(obj*, obj*); uint8 l_option_is__some___rarg(obj*); obj* l_option_orelse___main___rarg(obj*, obj*); obj* l_option_get___main___rarg___boxed(obj*, obj*); @@ -726,12 +725,32 @@ return x_2; obj* l_option_monad___lambda__1(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_function_const___rarg___boxed), 2, 1); -lean::closure_set(x_4, 0, x_2); -x_5 = l_option_map___rarg(x_4, x_3); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_5; +lean::dec(x_2); +x_5 = lean::box(0); return x_5; } +else +{ +obj* x_6; obj* x_7; +if (lean::is_exclusive(x_3)) { + lean::cnstr_release(x_3, 0); + x_6 = x_3; +} else { + lean::dec(x_3); + x_6 = lean::box(0); +} +if (lean::is_scalar(x_6)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_6; +} +lean::cnstr_set(x_7, 0, x_2); +return x_7; +} +} } obj* l_option_monad___lambda__2(obj* x_0, obj* x_1) { _start: @@ -754,12 +773,36 @@ return x_5; } else { -obj* x_6; obj* x_9; -x_6 = lean::cnstr_get(x_2, 0); -lean::inc(x_6); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_7; lean::dec(x_2); -x_9 = l_option_map___rarg(x_6, x_3); -return x_9; +x_7 = lean::box(0); +return x_7; +} +else +{ +obj* x_8; obj* x_11; obj* x_13; obj* x_14; obj* x_15; +x_8 = lean::cnstr_get(x_2, 0); +lean::inc(x_8); +lean::dec(x_2); +x_11 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_13 = x_3; +} else { + lean::inc(x_11); + lean::dec(x_3); + x_13 = lean::box(0); +} +x_14 = lean::apply_1(x_8, x_11); +if (lean::is_scalar(x_13)) { + x_15 = lean::alloc_cnstr(1, 1, 0); +} else { + x_15 = x_13; +} +lean::cnstr_set(x_15, 0, x_14); +return x_15; +} } } } diff --git a/src/boot/init/io.cpp b/src/boot/init/io.cpp index a22a19f59a..1c582e86ce 100644 --- a/src/boot/init/io.cpp +++ b/src/boot/init/io.cpp @@ -26,6 +26,7 @@ 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; @@ -50,7 +51,6 @@ 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,7 +103,6 @@ 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*); @@ -127,7 +126,6 @@ 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*); @@ -138,13 +136,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*); @@ -181,6 +179,7 @@ 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*); @@ -190,7 +189,6 @@ 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*); @@ -204,10 +202,12 @@ 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*); @@ -219,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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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); @@ -2663,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), 2, 1); +x_4 = lean::alloc_closure(reinterpret_cast(l_function_const___rarg___boxed), 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/elaborator.cpp b/src/boot/init/lean/elaborator.cpp index 160c125684..f2dbf6ca93 100644 --- a/src/boot/init/lean/elaborator.cpp +++ b/src/boot/init/lean/elaborator.cpp @@ -22,7 +22,6 @@ obj* l_rbmap_insert___main___at_lean_elaborator_ordered__rbmap_insert___spec__1_ obj* l_lean_elaborator_decl__modifiers__to__pexpr___closed__1; obj* l_rbnode_insert___at_lean_expander_builtin__transformers___spec__3(obj*, obj*, obj*); obj* l_lean_elaborator_current__command___boxed(obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___closed__5; obj* l_lean_elaborator_ordered__rbmap_empty___at_lean_elaborator_old__elab__command___spec__6; obj* l_lean_elaborator_locally___rarg___lambda__2(obj*, obj*); obj* l_lean_elaborator_ordered__rbmap_of__list___at_lean_elaborator_old__elab__command___spec__8___closed__1; @@ -79,7 +78,6 @@ extern obj* l_lean_parser_command_declaration; namespace lean { obj* nat_add(obj*, obj*); } -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___boxed(obj*, obj*, obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_command__parser__config_register__notation__parser___spec__2___closed__1; obj* l_lean_elaborator_to__level(obj*, obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__16(obj*, obj*, obj*, obj*); @@ -97,7 +95,6 @@ obj* l_lean_elaborator_elaborator__config__coe__frontend__config___boxed(obj*); obj* l_lean_elaborator_decl__modifiers__to__pexpr___closed__4; obj* l_lean_elaborator_ordered__rbmap_find___at_lean_elaborator_to__level___main___spec__5(obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__8___boxed(obj*, obj*, obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___closed__1; obj* l_lean_elaborator_include_elaborate(obj*, obj*, obj*); uint8 l_list_decidable__mem___main___at_lean_elaborator_is__open__namespace___main___spec__1(obj*, obj*); obj* l_lean_elaborator_namespace_elaborate___lambda__1___closed__1; @@ -108,12 +105,10 @@ obj* l_rbmap_find___main___at_lean_elaborator_to__level___main___spec__6___boxed obj* l_lean_elaborator_run___lambda__5___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_elaborator_ordered__rbmap_insert___boxed(obj*, obj*, obj*); obj* l_lean_elaborator_level__get__app__args(obj*, obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___closed__3; extern obj* l_lean_parser_command_open; obj* l_rbmap_insert___main___at_lean_elaborator_ordered__rbmap_of__list___spec__2(obj*, obj*, obj*); obj* l_lean_elaborator_locally___at_lean_elaborator_declaration_elaborate___spec__14___closed__5; obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1___lambda__4___boxed(obj*, obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___closed__2; obj* l_lean_elaborator_elaborator__config__coe__frontend__config(obj*); obj* l_lean_elaborator_ordered__rbmap_empty___closed__1; obj* l_lean_elaborator_elaborator__coe__coelaborator(obj*, obj*, obj*, obj*); @@ -204,6 +199,7 @@ obj* l_lean_elaborator_current__command(obj*, obj*); obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1___lambda__24(obj*, obj*, obj*); obj* l_lean_kvmap_set__name(obj*, obj*, obj*); uint8 l_lean_elaborator_is__open__namespace(obj*, obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__3___closed__3; obj* l_lean_elaborator_elaborators; obj* l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_elaborator_commands_elaborate(uint8, obj*, obj*, obj*); @@ -227,7 +223,6 @@ obj* l_rbnode_ins___main___at_lean_elaborator_ordered__rbmap_of__list___spec__5_ obj* l_lean_kvmap_set__nat(obj*, obj*, obj*); obj* l_lean_elaborator_locally___at_lean_elaborator_declaration_elaborate___spec__14___closed__2; obj* l_lean_elaborator_declaration_elaborate(obj*, obj*, obj*); -obj* l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___closed__1; obj* l_list_mmap___main___at_lean_elaborator_to__level___main___spec__3(obj*, obj*, obj*); obj* l_lean_elaborator_to__level___main___closed__4; obj* l_lean_elaborator_check_elaborate___closed__1; @@ -281,7 +276,6 @@ obj* l_lean_elaborator_locally___at_lean_elaborator_section_elaborate___spec__2_ obj* l_rbmap_find___main___at_lean_elaborator_to__level___main___spec__6(obj*, obj*); obj* l_list_map___main___at_lean_elaborator_mk__eqns___spec__1(obj*, obj*); obj* l_lean_elaborator_expr_mk__annotation(obj*, obj*); -obj* l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___lambda__1(obj*); obj* l_list_filter___main___at_lean_elaborator_resolve__context___main___spec__3(obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_to__level___main___spec__1(obj*, obj*, obj*); obj* l_list_foldl___main___at_lean_elaborator_ordered__rbmap_of__list___spec__7(obj*, obj*, obj*); @@ -316,15 +310,14 @@ obj* l_lean_elaborator_attribute_elaborate___closed__2; obj* l_lean_elaborator_locally___at_lean_elaborator_declaration_elaborate___spec__14___closed__6; obj* l_reader__t_bind___at_lean_elaborator_section_elaborate___spec__1___rarg___lambda__1(obj*, obj*, obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_command__parser__config_register__notation__parser___spec__2___closed__5; -obj* l_lean_elaborator_to__pexpr___main___lambda__1___boxed(obj*); obj* l_list_zip__with___main___rarg(obj*, obj*, obj*); obj* l_lean_elaborator_no__kind_elaborate___lambda__1___closed__1; obj* l_lean_elaborator_run___closed__3; obj* l_lean_elaborator_reserve__notation_elaborate(obj*, obj*, obj*); obj* l_lean_elaborator_simple__binders__to__pexpr(obj*, obj*, obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__3___closed__4; obj* l_list_filter___main___at_lean_elaborator_resolve__context___main___spec__2(obj*, obj*); obj* l_lean_elaborator_is__open__namespace___boxed(obj*, obj*); -obj* l_lean_elaborator_to__pexpr___main___closed__47; obj* l_lean_elaborator_locally___boxed(obj*); obj* l_list_map___main___at_lean_elaborator_command__parser__config_register__notation__parser___spec__6(obj*); obj* l_lean_elaborator_commands_elaborate___boxed(obj*, obj*, obj*, obj*); @@ -371,6 +364,7 @@ obj* l_rbmap_insert___main___at_lean_elaborator_include_elaborate___spec__1(obj* obj* l_list_foldr___main___at_lean_elaborator_is__open__namespace___main___spec__2(obj*, obj*); obj* l_lean_elaborator_elaborator__m__coe__coelaborator__m(obj*); obj* l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed(obj*, obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__3___closed__2; obj* l_lean_elaborator_run(obj*); obj* l_list_foldr___main___at_lean_elaborator_notation_elaborate___spec__1___boxed(obj*); obj* l_lean_elaborator_match__precedence___boxed(obj*, obj*); @@ -466,20 +460,19 @@ obj* l_lean_elaborator_run___lambda__3___closed__1; obj* l_list_mmap___main___at_lean_elaborator_attribute_elaborate___spec__1___closed__1; obj* l_rbnode_balance2___main___rarg(obj*, obj*); obj* l_lean_expander_get__opt__type___main(obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___closed__4; obj* l_rbmap_find___main___at_lean_elaborator_variables_elaborate___spec__2(obj*, obj*); extern obj* l_lean_parser_term_struct__inst_has__view; obj* l_coroutine_yield___rarg___boxed(obj*, obj*); obj* l_lean_elaborator_run___lambda__7(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_term_lambda_has__view; obj* l_lean_elaborator_mk__eqns___closed__1; -obj* l_lean_elaborator_commands_elaborate___main___lambda__3(uint8, obj*, obj*, obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__3(obj*, obj*, uint8, obj*); obj* l_list_map___main___at_lean_elaborator_declaration_elaborate___spec__10(obj*); obj* l_list_span___main___at_lean_elaborator_to__pexpr___main___spec__6(obj*); obj* l_lean_elaborator_commands_elaborate___main(uint8, obj*, obj*, obj*); obj* l_lean_elaborator_ordered__rbmap_of__list___at_lean_elaborator_old__elab__command___spec__8(obj*); obj* l_lean_elaborator_run___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__1(obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__1(uint8, obj*, obj*, obj*); obj* l_lean_elaborator_resolve__context(obj*, obj*, obj*); obj* l_lean_elaborator_with__current__command___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_except__t_monad___rarg(obj*); @@ -501,7 +494,6 @@ obj* l_lean_elaborator_decl__modifiers__to__pexpr___closed__2; obj* l_reader__t_monad__except___rarg(obj*); obj* l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__1___boxed(obj*, obj*); extern obj* l_lean_parser_term_sort__app_has__view; -obj* l_lean_elaborator_to__pexpr___main___lambda__1(obj*); extern obj* l_lean_parser_term_explicit_has__view; obj* l_lean_elaborator_locally___at_lean_elaborator_section_elaborate___spec__2___lambda__3(obj*, obj*, obj*, obj*, obj*); obj* l_lean_elaborator_current__command___rarg(obj*, obj*); @@ -541,7 +533,7 @@ obj* l_lean_elaborator_to__pexpr___main___closed__18; obj* l_lean_elaborator_elaborator__t_monad(obj*); obj* l_lean_elaborator_end__scope___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_rbmap_find___main___at_lean_elaborator_variables_elaborate___spec__2___boxed(obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__1___boxed(obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__1___boxed(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_term_inaccessible_has__view; obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1; obj* l_lean_elaborator_ordered__rbmap_find___at_lean_elaborator_to__level___main___spec__5___boxed(obj*, obj*); @@ -586,7 +578,6 @@ obj* l_list_span___main___at_lean_elaborator_to__pexpr___main___spec__7(obj*); obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1___lambda__11___boxed(obj*, obj*); obj* l_lean_elaborator_elaborator__t_monad___boxed(obj*); obj* l_lean_parser_term_binders_parser(obj*, obj*, obj*, obj*, obj*); -obj* l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___lambda__1___boxed(obj*); obj* l_lean_elaborator_ordered__rbmap_find(obj*, obj*, obj*); obj* l_list_mfoldl___main___at_lean_elaborator_update__parser__config___spec__1(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_command_universe; @@ -626,7 +617,6 @@ obj* l_list_foldl___main___at_lean_elaborator_declaration_elaborate___spec__5(ob obj* l_rbnode_find___main___at_lean_elaborator_ordered__rbmap_find___spec__2___boxed(obj*, obj*); obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1___lambda__8(obj*, obj*, obj*); extern obj* l_lean_parser_term_sort_has__view; -obj* l_lean_elaborator_to__pexpr___main___lambda__2___boxed(obj*); obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1___lambda__14___boxed(obj*, obj*, obj*); obj* l_lean_elaborator_locally(obj*); obj* l_rbmap_insert___main___at_lean_elaborator_register__notation__macro___spec__1(obj*, obj*, obj*); @@ -689,7 +679,6 @@ obj* l_list_mmap___main___at_lean_elaborator_command__parser__config_register__n obj* l_lean_elaborator_to__pexpr___main___closed__37; obj* l_lean_elaborator_attribute_elaborate(obj*, obj*, obj*); obj* l_lean_elaborator_locally___at_lean_elaborator_namespace_elaborate___spec__1___lambda__3(obj*, obj*, obj*, obj*, obj*); -obj* l_lean_elaborator_to__pexpr___main___lambda__2(obj*); obj* l_lean_elaborator_run___lambda__7___boxed(obj*, obj*, obj*, obj*); obj* l_lean_elaborator_ordered__rbmap_empty___at_lean_elaborator_ordered__rbmap_of__list___spec__6(obj*, obj*, obj*, obj*); extern obj* l_lean_parser_command_init__quot; @@ -748,7 +737,6 @@ obj* l_rbmap_from__list___at_lean_elaborator_elaborators___spec__1___lambda__10( obj* l_lean_elaborator_to__pexpr___main___closed__29; obj* l_rbnode_ins___main___at_lean_elaborator_ordered__rbmap_of__list___spec__5(obj*, obj*, obj*); extern obj* l_lean_parser_number_has__view_x_27___lambda__1___closed__6; -obj* l_option_map___rarg(obj*, obj*); extern obj* l_lean_expander_no__expansion___closed__1; extern "C" obj* lean_expr_mk_bvar(obj*); obj* l_lean_elaborator_to__pexpr___main___closed__40; @@ -757,6 +745,7 @@ obj* l_list_foldl___main___at_lean_parser_term_mk__app___spec__1(obj*, obj*); obj* l_list_map___main___at_lean_elaborator_declaration_elaborate___spec__4(obj*); extern "C" obj* lean_expr_mk_mvar(obj*, obj*); obj* l_lean_parser_substring_of__string(obj*); +obj* l_lean_elaborator_commands_elaborate___main___lambda__3___closed__1; obj* l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1(obj*); obj* l_lean_elaborator_command_elaborate(obj*, obj*, obj*); obj* l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__2(obj*, obj*, obj*); @@ -764,7 +753,6 @@ obj* l_lean_elaborator_prec__to__nat___main(obj*); obj* l_lean_elaborator_with__current__command___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_string__lit_view_value(obj*); obj* l_list_foldr___main___at_lean_elaborator_is__open__namespace___main___spec__2___boxed(obj*, obj*); -obj* l_lean_elaborator_commands_elaborate___main___lambda__4(obj*, obj*, uint8, obj*); obj* l_lean_elaborator_to__pexpr___main___closed__42; extern "C" uint8 lean_environment_contains(obj*, obj*); extern obj* l_lean_parser_command_notation_has__view; @@ -8422,24 +8410,6 @@ goto _start; } } } -obj* l_lean_elaborator_to__pexpr___main___lambda__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::cnstr_get(x_0, 0); -lean::inc(x_1); -return x_1; -} -} -obj* l_lean_elaborator_to__pexpr___main___lambda__2(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::cnstr_get(x_0, 0); -lean::inc(x_1); -return x_1; -} -} obj* _init_l_lean_elaborator_to__pexpr___main___closed__1() { _start: { @@ -8795,22 +8765,6 @@ return x_2; obj* _init_l_lean_elaborator_to__pexpr___main___closed__27() { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_to__pexpr___main___lambda__1___boxed), 1, 0); -return x_0; -} -} -obj* _init_l_lean_elaborator_to__pexpr___main___closed__28() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_mangle__ident), 1, 0); -return x_0; -} -} -obj* _init_l_lean_elaborator_to__pexpr___main___closed__29() { -_start: -{ obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); x_1 = lean::mk_string("struct"); @@ -8818,7 +8772,17 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__30() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__28() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = l_option_get__or__else___main___rarg(x_0, x_1); +return x_2; +} +} +obj* _init_l_lean_elaborator_to__pexpr___main___closed__29() { _start: { obj* x_0; @@ -8826,7 +8790,7 @@ x_0 = lean::mk_string("unexpected item in structure instance notation"); return x_0; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__31() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__30() { _start: { obj* x_0; @@ -8834,7 +8798,7 @@ x_0 = lean::mk_string("NOT_A_STRING"); return x_0; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__32() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__31() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8844,7 +8808,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__33() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__32() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8854,7 +8818,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__34() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__33() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8864,7 +8828,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__35() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__34() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8874,7 +8838,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__36() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__35() { _start: { obj* x_0; @@ -8882,7 +8846,7 @@ x_0 = lean::mk_string("ill-formed let"); return x_0; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__37() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__36() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8892,7 +8856,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__38() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__37() { _start: { obj* x_0; obj* x_1; @@ -8901,7 +8865,7 @@ x_1 = lean_expr_mk_bvar(x_0); return x_1; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__39() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__38() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8911,7 +8875,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__40() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__39() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8921,15 +8885,20 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__41() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__40() { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_to__pexpr___main___lambda__2___boxed), 1, 0); -return x_0; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; +x_0 = lean::box(0); +x_1 = lean::mk_string("this"); +x_2 = lean_name_mk_string(x_0, x_1); +x_3 = lean::box(0); +x_4 = l_option_get__or__else___main___rarg(x_3, x_2); +lean::dec(x_2); +return x_4; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__42() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__41() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8939,7 +8908,7 @@ x_2 = lean_expr_mk_mvar(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__43() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__42() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8949,7 +8918,7 @@ x_2 = lean_name_mk_string(x_0, x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__44() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__43() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -8959,7 +8928,7 @@ x_2 = lean_expr_mk_sort(x_1); return x_2; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__45() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__44() { _start: { obj* x_0; @@ -8967,7 +8936,7 @@ x_0 = lean::mk_string("ill-formed pi"); return x_0; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__46() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__45() { _start: { obj* x_0; @@ -8975,7 +8944,7 @@ x_0 = lean::mk_string("ill-formed lambda"); return x_0; } } -obj* _init_l_lean_elaborator_to__pexpr___main___closed__47() { +obj* _init_l_lean_elaborator_to__pexpr___main___closed__46() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; @@ -9632,10 +9601,12 @@ goto lbl_240; } lbl_240: { -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; +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; x_298 = lean::cnstr_get(x_239, 0); x_300 = lean::cnstr_get(x_239, 1); if (lean::is_exclusive(x_239)) { + lean::cnstr_set(x_239, 0, lean::box(0)); + lean::cnstr_set(x_239, 1, lean::box(0)); x_302 = x_239; } else { lean::inc(x_298); @@ -9645,869 +9616,1010 @@ if (lean::is_exclusive(x_239)) { } x_303 = lean::box(0); x_304 = lean::mk_nat_obj(0u); -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); +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::dec(x_205); -x_315 = l_lean_elaborator_to__pexpr___main___closed__27; -x_316 = l_option_map___rarg(x_315, x_312); +x_314 = l_list_append___rarg(x_234, x_298); +x_315 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9(x_314); +if (lean::obj_tag(x_311) == 0) +{ +obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_320; +x_316 = l_lean_elaborator_to__pexpr___main___closed__27; 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); +x_318 = l_lean_kvmap_set__name(x_310, x_316, x_317); +x_319 = lean_expr_mk_mdata(x_318, x_315); if (lean::is_scalar(x_302)) { - x_327 = lean::alloc_cnstr(0, 2, 0); + x_320 = lean::alloc_cnstr(0, 2, 0); } else { - x_327 = x_302; + x_320 = x_302; } -lean::cnstr_set(x_327, 0, x_326); -lean::cnstr_set(x_327, 1, x_300); -x_14 = x_327; +lean::cnstr_set(x_320, 0, x_319); +lean::cnstr_set(x_320, 1, x_300); +x_14 = x_320; goto lbl_15; } +else +{ +obj* x_321; obj* x_323; obj* x_324; obj* x_327; obj* x_328; obj* x_329; obj* x_330; obj* x_332; obj* x_333; obj* x_334; obj* x_335; +x_321 = lean::cnstr_get(x_311, 0); +if (lean::is_exclusive(x_311)) { + x_323 = x_311; +} else { + lean::inc(x_321); + lean::dec(x_311); + x_323 = lean::box(0); +} +x_324 = lean::cnstr_get(x_321, 0); +lean::inc(x_324); +lean::dec(x_321); +x_327 = l_lean_elaborator_mangle__ident(x_324); +if (lean::is_scalar(x_323)) { + x_328 = lean::alloc_cnstr(1, 1, 0); +} else { + x_328 = x_323; +} +lean::cnstr_set(x_328, 0, x_327); +x_329 = lean::box(0); +x_330 = l_option_get__or__else___main___rarg(x_328, x_329); +lean::dec(x_328); +x_332 = l_lean_elaborator_to__pexpr___main___closed__27; +x_333 = l_lean_kvmap_set__name(x_310, x_332, x_330); +x_334 = lean_expr_mk_mdata(x_333, x_315); +if (lean::is_scalar(x_302)) { + x_335 = lean::alloc_cnstr(0, 2, 0); +} else { + x_335 = x_302; +} +lean::cnstr_set(x_335, 0, x_334); +lean::cnstr_set(x_335, 1, x_300); +x_14 = x_335; +goto lbl_15; +} +} } } else { -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_336; obj* x_338; +x_336 = lean::cnstr_get(x_215, 0); +lean::inc(x_336); +x_338 = lean::cnstr_get(x_336, 0); +lean::inc(x_338); +lean::dec(x_336); +if (lean::obj_tag(x_338) == 0) { -obj* x_333; obj* x_334; obj* x_337; obj* x_338; obj* x_341; obj* x_342; obj* x_344; +obj* x_341; obj* x_342; obj* x_345; obj* x_346; obj* x_349; obj* x_350; obj* x_352; if (lean::is_exclusive(x_215)) { lean::cnstr_release(x_215, 0); lean::cnstr_release(x_215, 1); - x_333 = x_215; + x_341 = x_215; } else { lean::dec(x_215); - x_333 = lean::box(0); + x_341 = lean::box(0); } -x_334 = lean::cnstr_get(x_214, 0); -lean::inc(x_334); +x_342 = lean::cnstr_get(x_214, 0); +lean::inc(x_342); lean::dec(x_214); -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; +x_345 = l_lean_parser_term_struct__inst__item_has__view; +x_346 = lean::cnstr_get(x_345, 1); +lean::inc(x_346); +lean::dec(x_345); +x_349 = lean::apply_1(x_346, x_338); +x_350 = l_lean_elaborator_to__pexpr___main___closed__29; lean::inc(x_1); -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); +x_352 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_349, x_350, x_1, x_2); lean::dec(x_2); -lean::dec(x_341); -if (lean::obj_tag(x_344) == 0) +lean::dec(x_349); +if (lean::obj_tag(x_352) == 0) { -obj* x_354; obj* x_356; obj* x_357; -lean::dec(x_334); -lean::dec(x_333); +obj* x_362; obj* x_364; obj* x_365; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); +lean::dec(x_341); +lean::dec(x_342); lean::dec(x_209); lean::dec(x_205); -x_354 = lean::cnstr_get(x_344, 0); -if (lean::is_exclusive(x_344)) { - x_356 = x_344; +x_362 = lean::cnstr_get(x_352, 0); +if (lean::is_exclusive(x_352)) { + x_364 = x_352; } else { - lean::inc(x_354); - lean::dec(x_344); - x_356 = lean::box(0); + lean::inc(x_362); + lean::dec(x_352); + x_364 = lean::box(0); } -if (lean::is_scalar(x_356)) { - x_357 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_364)) { + x_365 = lean::alloc_cnstr(0, 1, 0); } else { - x_357 = x_356; + x_365 = x_364; } -lean::cnstr_set(x_357, 0, x_354); -return x_357; +lean::cnstr_set(x_365, 0, x_362); +return x_365; } else { -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); +obj* x_366; obj* x_369; obj* x_371; obj* x_375; +x_366 = lean::cnstr_get(x_352, 0); +lean::inc(x_366); +lean::dec(x_352); +x_369 = lean::cnstr_get(x_366, 0); +lean::inc(x_369); +x_371 = lean::cnstr_get(x_366, 1); +lean::inc(x_371); +lean::dec(x_366); lean::inc(x_1); -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) +x_375 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__11(x_0, x_209, x_1, x_371); +if (lean::obj_tag(x_375) == 0) { -obj* x_375; obj* x_377; obj* x_378; -lean::dec(x_334); -lean::dec(x_333); +obj* x_383; obj* x_385; obj* x_386; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_361); +lean::dec(x_341); +lean::dec(x_342); +lean::dec(x_369); lean::dec(x_205); -x_375 = lean::cnstr_get(x_367, 0); -if (lean::is_exclusive(x_367)) { - x_377 = x_367; +x_383 = lean::cnstr_get(x_375, 0); +if (lean::is_exclusive(x_375)) { + x_385 = x_375; } else { - lean::inc(x_375); - lean::dec(x_367); - x_377 = lean::box(0); + lean::inc(x_383); + lean::dec(x_375); + x_385 = lean::box(0); } -if (lean::is_scalar(x_377)) { - x_378 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_385)) { + x_386 = lean::alloc_cnstr(0, 1, 0); } else { - x_378 = x_377; + x_386 = x_385; } -lean::cnstr_set(x_378, 0, x_375); -return x_378; +lean::cnstr_set(x_386, 0, x_383); +return x_386; } else { -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); +obj* x_387; obj* x_390; obj* x_392; obj* x_395; obj* x_398; +x_387 = lean::cnstr_get(x_375, 0); +lean::inc(x_387); +lean::dec(x_375); +x_390 = lean::cnstr_get(x_387, 0); +lean::inc(x_390); +x_392 = lean::cnstr_get(x_387, 1); +lean::inc(x_392); +lean::dec(x_387); lean::inc(x_1); -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) +x_398 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__13(x_0, x_342, x_1, x_392); +if (lean::obj_tag(x_398) == 0) { -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_361); -lean::dec(x_382); -lean::dec(x_205); -x_398 = lean::cnstr_get(x_390, 0); -if (lean::is_exclusive(x_390)) { - x_400 = x_390; -} else { - lean::inc(x_398); - lean::dec(x_390); - x_400 = lean::box(0); -} -if (lean::is_scalar(x_400)) { - x_401 = lean::alloc_cnstr(0, 1, 0); -} else { - x_401 = x_400; -} -lean::cnstr_set(x_401, 0, x_398); -return x_401; -} -else -{ -obj* x_402; obj* x_405; -x_402 = lean::cnstr_get(x_390, 0); -lean::inc(x_402); +obj* x_406; obj* x_408; obj* x_409; 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_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_408); - lean::inc(x_410); - lean::dec(x_402); - x_412 = lean::box(0); -} -if (lean::is_scalar(x_412)) { - x_413 = lean::alloc_cnstr(0, 2, 0); -} else { - x_413 = x_412; -} -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_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_426 = l_lean_elaborator_to__pexpr___main(x_422, x_1, x_416); -if (lean::obj_tag(x_426) == 0) -{ -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_361); -lean::dec(x_382); +lean::dec(x_341); +lean::dec(x_369); lean::dec(x_205); -lean::dec(x_414); -x_435 = lean::cnstr_get(x_426, 0); -if (lean::is_exclusive(x_426)) { - x_437 = x_426; +x_406 = lean::cnstr_get(x_398, 0); +if (lean::is_exclusive(x_398)) { + x_408 = x_398; } else { - lean::inc(x_435); - lean::dec(x_426); - x_437 = lean::box(0); + lean::inc(x_406); + lean::dec(x_398); + x_408 = lean::box(0); } -if (lean::is_scalar(x_437)) { - x_438 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_408)) { + x_409 = lean::alloc_cnstr(0, 1, 0); } else { - x_438 = x_437; + x_409 = x_408; } -lean::cnstr_set(x_438, 0, x_435); -return x_438; +lean::cnstr_set(x_409, 0, x_406); +return x_409; } else { -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_442); - lean::inc(x_444); - lean::dec(x_439); - x_446 = lean::box(0); -} -x_447 = lean::box(0); -if (lean::is_scalar(x_333)) { - x_448 = lean::alloc_cnstr(1, 2, 0); -} else { - x_448 = x_333; -} -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_450 = x_446; -} -lean::cnstr_set(x_450, 0, x_449); -lean::cnstr_set(x_450, 1, x_444); -x_387 = x_450; -goto lbl_388; -} -} -} -lbl_388: +obj* x_410; obj* x_413; +x_410 = lean::cnstr_get(x_398, 0); +lean::inc(x_410); +lean::dec(x_398); +x_413 = lean::cnstr_get(x_205, 2); +lean::inc(x_413); +if (lean::obj_tag(x_413) == 0) { -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; +obj* x_416; obj* x_418; obj* x_420; obj* x_421; +lean::dec(x_341); +x_416 = lean::cnstr_get(x_410, 0); +x_418 = lean::cnstr_get(x_410, 1); +if (lean::is_exclusive(x_410)) { + x_420 = x_410; } else { - lean::inc(x_451); - lean::inc(x_453); - lean::dec(x_387); - x_455 = lean::box(0); + lean::inc(x_416); + lean::inc(x_418); + lean::dec(x_410); + x_420 = lean::box(0); } -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); +if (lean::is_scalar(x_420)) { + x_421 = lean::alloc_cnstr(0, 2, 0); +} else { + x_421 = x_420; +} +lean::cnstr_set(x_421, 0, x_416); +lean::cnstr_set(x_421, 1, x_418); +x_395 = x_421; +goto lbl_396; +} +else +{ +obj* x_422; obj* x_424; obj* x_427; obj* x_430; obj* x_434; +x_422 = lean::cnstr_get(x_410, 0); +lean::inc(x_422); +x_424 = lean::cnstr_get(x_410, 1); +lean::inc(x_424); +lean::dec(x_410); +x_427 = lean::cnstr_get(x_413, 0); +lean::inc(x_427); +lean::dec(x_413); +x_430 = lean::cnstr_get(x_427, 0); +lean::inc(x_430); +lean::dec(x_427); +lean::inc(x_1); +x_434 = l_lean_elaborator_to__pexpr___main(x_430, x_1, x_424); +if (lean::obj_tag(x_434) == 0) +{ +obj* x_443; obj* x_445; obj* x_446; +lean::dec(x_390); +lean::dec(x_7); +lean::dec(x_422); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_341); +lean::dec(x_369); lean::dec(x_205); -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); +x_443 = lean::cnstr_get(x_434, 0); +if (lean::is_exclusive(x_434)) { + x_445 = x_434; } else { - x_480 = x_455; + lean::inc(x_443); + lean::dec(x_434); + x_445 = lean::box(0); } -lean::cnstr_set(x_480, 0, x_479); -lean::cnstr_set(x_480, 1, x_453); -x_14 = x_480; +if (lean::is_scalar(x_445)) { + x_446 = lean::alloc_cnstr(0, 1, 0); +} else { + x_446 = x_445; +} +lean::cnstr_set(x_446, 0, x_443); +return x_446; +} +else +{ +obj* x_447; obj* x_450; obj* x_452; obj* x_454; obj* x_455; obj* x_456; obj* x_457; obj* x_458; +x_447 = lean::cnstr_get(x_434, 0); +lean::inc(x_447); +lean::dec(x_434); +x_450 = lean::cnstr_get(x_447, 0); +x_452 = lean::cnstr_get(x_447, 1); +if (lean::is_exclusive(x_447)) { + x_454 = x_447; +} else { + lean::inc(x_450); + lean::inc(x_452); + lean::dec(x_447); + x_454 = lean::box(0); +} +x_455 = lean::box(0); +if (lean::is_scalar(x_341)) { + x_456 = lean::alloc_cnstr(1, 2, 0); +} else { + x_456 = x_341; +} +lean::cnstr_set(x_456, 0, x_450); +lean::cnstr_set(x_456, 1, x_455); +x_457 = l_list_append___rarg(x_422, x_456); +if (lean::is_scalar(x_454)) { + x_458 = lean::alloc_cnstr(0, 2, 0); +} else { + x_458 = x_454; +} +lean::cnstr_set(x_458, 0, x_457); +lean::cnstr_set(x_458, 1, x_452); +x_395 = x_458; +goto lbl_396; +} +} +} +lbl_396: +{ +obj* x_459; obj* x_461; obj* x_463; obj* x_464; obj* x_465; obj* x_466; obj* x_467; obj* x_468; obj* x_469; uint8 x_470; obj* x_471; obj* x_472; obj* x_475; obj* x_476; +x_459 = lean::cnstr_get(x_395, 0); +x_461 = lean::cnstr_get(x_395, 1); +if (lean::is_exclusive(x_395)) { + lean::cnstr_set(x_395, 0, lean::box(0)); + lean::cnstr_set(x_395, 1, lean::box(0)); + x_463 = x_395; +} else { + lean::inc(x_459); + lean::inc(x_461); + lean::dec(x_395); + x_463 = lean::box(0); +} +x_464 = lean::box(0); +x_465 = lean::mk_nat_obj(0u); +x_466 = l_list_length__aux___main___rarg(x_390, x_465); +x_467 = l_lean_elaborator_to__pexpr___main___closed__25; +x_468 = l_lean_kvmap_set__nat(x_464, x_467, x_466); +x_469 = l_lean_elaborator_to__pexpr___main___closed__26; +x_470 = lean::unbox(x_369); +x_471 = l_lean_kvmap_set__bool(x_468, x_469, x_470); +x_472 = lean::cnstr_get(x_205, 1); +lean::inc(x_472); +lean::dec(x_205); +x_475 = l_list_append___rarg(x_390, x_459); +x_476 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__12(x_475); +if (lean::obj_tag(x_472) == 0) +{ +obj* x_477; obj* x_478; obj* x_479; obj* x_480; obj* x_481; +x_477 = l_lean_elaborator_to__pexpr___main___closed__27; +x_478 = l_lean_elaborator_to__pexpr___main___closed__28; +x_479 = l_lean_kvmap_set__name(x_471, x_477, x_478); +x_480 = lean_expr_mk_mdata(x_479, x_476); +if (lean::is_scalar(x_463)) { + x_481 = lean::alloc_cnstr(0, 2, 0); +} else { + x_481 = x_463; +} +lean::cnstr_set(x_481, 0, x_480); +lean::cnstr_set(x_481, 1, x_461); +x_14 = x_481; +goto lbl_15; +} +else +{ +obj* x_482; obj* x_484; obj* x_485; obj* x_488; obj* x_489; obj* x_490; obj* x_491; obj* x_493; obj* x_494; obj* x_495; obj* x_496; +x_482 = lean::cnstr_get(x_472, 0); +if (lean::is_exclusive(x_472)) { + x_484 = x_472; +} else { + lean::inc(x_482); + lean::dec(x_472); + x_484 = lean::box(0); +} +x_485 = lean::cnstr_get(x_482, 0); +lean::inc(x_485); +lean::dec(x_482); +x_488 = l_lean_elaborator_mangle__ident(x_485); +if (lean::is_scalar(x_484)) { + x_489 = lean::alloc_cnstr(1, 1, 0); +} else { + x_489 = x_484; +} +lean::cnstr_set(x_489, 0, x_488); +x_490 = lean::box(0); +x_491 = l_option_get__or__else___main___rarg(x_489, x_490); +lean::dec(x_489); +x_493 = l_lean_elaborator_to__pexpr___main___closed__27; +x_494 = l_lean_kvmap_set__name(x_471, x_493, x_491); +x_495 = lean_expr_mk_mdata(x_494, x_476); +if (lean::is_scalar(x_463)) { + x_496 = lean::alloc_cnstr(0, 2, 0); +} else { + x_496 = x_463; +} +lean::cnstr_set(x_496, 0, x_495); +lean::cnstr_set(x_496, 1, x_461); +x_14 = x_496; goto lbl_15; } } } } +} else { -obj* x_481; obj* x_483; -x_481 = lean::cnstr_get(x_215, 1); +obj* x_497; obj* x_499; +x_497 = 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_483 = x_215; + x_499 = x_215; } else { - lean::inc(x_481); + lean::inc(x_497); lean::dec(x_215); - x_483 = lean::box(0); + x_499 = lean::box(0); } -if (lean::obj_tag(x_481) == 0) +if (lean::obj_tag(x_497) == 0) { -obj* x_485; obj* x_489; -lean::dec(x_330); -x_485 = lean::cnstr_get(x_214, 0); -lean::inc(x_485); +obj* x_501; obj* x_505; +lean::dec(x_338); +x_501 = lean::cnstr_get(x_214, 0); +lean::inc(x_501); lean::dec(x_214); lean::inc(x_1); -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) +x_505 = 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_505) == 0) { -obj* x_496; obj* x_498; obj* x_499; +obj* x_512; obj* x_514; obj* x_515; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); lean::dec(x_205); -lean::dec(x_483); -lean::dec(x_485); -x_496 = lean::cnstr_get(x_489, 0); -if (lean::is_exclusive(x_489)) { - x_498 = x_489; +lean::dec(x_499); +lean::dec(x_501); +x_512 = lean::cnstr_get(x_505, 0); +if (lean::is_exclusive(x_505)) { + x_514 = x_505; } else { - lean::inc(x_496); - lean::dec(x_489); - x_498 = lean::box(0); + lean::inc(x_512); + lean::dec(x_505); + x_514 = lean::box(0); } -if (lean::is_scalar(x_498)) { - x_499 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_514)) { + x_515 = lean::alloc_cnstr(0, 1, 0); } else { - x_499 = x_498; + x_515 = x_514; } -lean::cnstr_set(x_499, 0, x_496); -return x_499; +lean::cnstr_set(x_515, 0, x_512); +return x_515; } else { -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); -x_505 = lean::cnstr_get(x_500, 1); -lean::inc(x_505); -lean::dec(x_500); +obj* x_516; obj* x_519; obj* x_521; obj* x_524; obj* x_527; +x_516 = lean::cnstr_get(x_505, 0); +lean::inc(x_516); +lean::dec(x_505); +x_519 = lean::cnstr_get(x_516, 0); +lean::inc(x_519); +x_521 = lean::cnstr_get(x_516, 1); +lean::inc(x_521); +lean::dec(x_516); lean::inc(x_1); -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) +x_527 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__16(x_0, x_501, x_1, x_521); +if (lean::obj_tag(x_527) == 0) { -obj* x_518; obj* x_520; obj* x_521; +obj* x_534; obj* x_536; obj* x_537; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); lean::dec(x_205); -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; +lean::dec(x_499); +lean::dec(x_519); +x_534 = lean::cnstr_get(x_527, 0); +if (lean::is_exclusive(x_527)) { + x_536 = x_527; } else { - lean::inc(x_518); - lean::dec(x_511); - x_520 = lean::box(0); + lean::inc(x_534); + lean::dec(x_527); + x_536 = lean::box(0); } -if (lean::is_scalar(x_520)) { - x_521 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_536)) { + x_537 = lean::alloc_cnstr(0, 1, 0); } else { - x_521 = x_520; + x_537 = x_536; } -lean::cnstr_set(x_521, 0, x_518); -return x_521; +lean::cnstr_set(x_537, 0, x_534); +return x_537; } else { -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_538; obj* x_541; +x_538 = lean::cnstr_get(x_527, 0); +lean::inc(x_538); +lean::dec(x_527); +x_541 = lean::cnstr_get(x_205, 2); +lean::inc(x_541); +if (lean::obj_tag(x_541) == 0) { -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; +obj* x_544; obj* x_546; obj* x_548; obj* x_549; +lean::dec(x_499); +x_544 = lean::cnstr_get(x_538, 0); +x_546 = lean::cnstr_get(x_538, 1); +if (lean::is_exclusive(x_538)) { + x_548 = x_538; } else { - lean::inc(x_528); - lean::inc(x_530); - lean::dec(x_522); - x_532 = lean::box(0); + lean::inc(x_544); + lean::inc(x_546); + lean::dec(x_538); + x_548 = lean::box(0); } -if (lean::is_scalar(x_532)) { - x_533 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_548)) { + x_549 = lean::alloc_cnstr(0, 2, 0); } else { - x_533 = x_532; + x_549 = x_548; } -lean::cnstr_set(x_533, 0, x_528); -lean::cnstr_set(x_533, 1, x_530); -x_508 = x_533; -goto lbl_509; +lean::cnstr_set(x_549, 0, x_544); +lean::cnstr_set(x_549, 1, x_546); +x_524 = x_549; +goto lbl_525; } else { -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); -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_546 = l_lean_elaborator_to__pexpr___main(x_542, x_1, x_536); -if (lean::obj_tag(x_546) == 0) -{ -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_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_554); - lean::dec(x_546); - x_556 = lean::box(0); -} -if (lean::is_scalar(x_556)) { - x_557 = lean::alloc_cnstr(0, 1, 0); -} else { - x_557 = x_556; -} -lean::cnstr_set(x_557, 0, x_554); -return x_557; -} -else -{ -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); +obj* x_550; obj* x_552; obj* x_555; obj* x_558; obj* x_562; +x_550 = lean::cnstr_get(x_538, 0); +lean::inc(x_550); +x_552 = lean::cnstr_get(x_538, 1); +lean::inc(x_552); +lean::dec(x_538); +x_555 = lean::cnstr_get(x_541, 0); +lean::inc(x_555); +lean::dec(x_541); +x_558 = lean::cnstr_get(x_555, 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_561); - lean::inc(x_563); - lean::dec(x_558); - x_565 = lean::box(0); -} -x_566 = lean::box(0); -if (lean::is_scalar(x_483)) { - x_567 = lean::alloc_cnstr(1, 2, 0); -} else { - x_567 = x_483; -} -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_569 = x_565; -} -lean::cnstr_set(x_569, 0, x_568); -lean::cnstr_set(x_569, 1, x_563); -x_508 = x_569; -goto lbl_509; -} -} -} -lbl_509: +lean::dec(x_555); +lean::inc(x_1); +x_562 = l_lean_elaborator_to__pexpr___main(x_558, x_1, x_552); +if (lean::obj_tag(x_562) == 0) { -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; +obj* x_570; obj* x_572; obj* x_573; +lean::dec(x_550); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_205); +lean::dec(x_499); +lean::dec(x_519); +x_570 = lean::cnstr_get(x_562, 0); +if (lean::is_exclusive(x_562)) { + x_572 = x_562; } else { lean::inc(x_570); - lean::inc(x_572); - lean::dec(x_508); - x_574 = lean::box(0); + lean::dec(x_562); + x_572 = lean::box(0); } -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_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); +if (lean::is_scalar(x_572)) { + x_573 = lean::alloc_cnstr(0, 1, 0); } else { - x_599 = x_574; + x_573 = x_572; } -lean::cnstr_set(x_599, 0, x_598); -lean::cnstr_set(x_599, 1, x_572); -x_14 = x_599; +lean::cnstr_set(x_573, 0, x_570); +return x_573; +} +else +{ +obj* x_574; obj* x_577; obj* x_579; obj* x_581; obj* x_582; obj* x_583; obj* x_584; obj* x_585; +x_574 = lean::cnstr_get(x_562, 0); +lean::inc(x_574); +lean::dec(x_562); +x_577 = lean::cnstr_get(x_574, 0); +x_579 = lean::cnstr_get(x_574, 1); +if (lean::is_exclusive(x_574)) { + x_581 = x_574; +} else { + lean::inc(x_577); + lean::inc(x_579); + lean::dec(x_574); + x_581 = lean::box(0); +} +x_582 = lean::box(0); +if (lean::is_scalar(x_499)) { + x_583 = lean::alloc_cnstr(1, 2, 0); +} else { + x_583 = x_499; +} +lean::cnstr_set(x_583, 0, x_577); +lean::cnstr_set(x_583, 1, x_582); +x_584 = l_list_append___rarg(x_550, x_583); +if (lean::is_scalar(x_581)) { + x_585 = lean::alloc_cnstr(0, 2, 0); +} else { + x_585 = x_581; +} +lean::cnstr_set(x_585, 0, x_584); +lean::cnstr_set(x_585, 1, x_579); +x_524 = x_585; +goto lbl_525; +} +} +} +lbl_525: +{ +obj* x_586; obj* x_588; obj* x_590; obj* x_591; obj* x_592; obj* x_593; obj* x_594; obj* x_595; obj* x_596; uint8 x_597; obj* x_598; obj* x_599; obj* x_602; obj* x_603; +x_586 = lean::cnstr_get(x_524, 0); +x_588 = lean::cnstr_get(x_524, 1); +if (lean::is_exclusive(x_524)) { + lean::cnstr_set(x_524, 0, lean::box(0)); + lean::cnstr_set(x_524, 1, lean::box(0)); + x_590 = x_524; +} else { + lean::inc(x_586); + lean::inc(x_588); + lean::dec(x_524); + x_590 = lean::box(0); +} +x_591 = lean::box(0); +x_592 = lean::mk_nat_obj(0u); +x_593 = l_list_length__aux___main___rarg(x_519, x_592); +x_594 = l_lean_elaborator_to__pexpr___main___closed__25; +x_595 = l_lean_kvmap_set__nat(x_591, x_594, x_593); +x_596 = l_lean_elaborator_to__pexpr___main___closed__26; +x_597 = 1; +x_598 = l_lean_kvmap_set__bool(x_595, x_596, x_597); +x_599 = lean::cnstr_get(x_205, 1); +lean::inc(x_599); +lean::dec(x_205); +x_602 = l_list_append___rarg(x_519, x_586); +x_603 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__15(x_602); +if (lean::obj_tag(x_599) == 0) +{ +obj* x_604; obj* x_605; obj* x_606; obj* x_607; obj* x_608; +x_604 = l_lean_elaborator_to__pexpr___main___closed__27; +x_605 = l_lean_elaborator_to__pexpr___main___closed__28; +x_606 = l_lean_kvmap_set__name(x_598, x_604, x_605); +x_607 = lean_expr_mk_mdata(x_606, x_603); +if (lean::is_scalar(x_590)) { + x_608 = lean::alloc_cnstr(0, 2, 0); +} else { + x_608 = x_590; +} +lean::cnstr_set(x_608, 0, x_607); +lean::cnstr_set(x_608, 1, x_588); +x_14 = x_608; goto lbl_15; } +else +{ +obj* x_609; obj* x_611; obj* x_612; obj* x_615; obj* x_616; obj* x_617; obj* x_618; obj* x_620; obj* x_621; obj* x_622; obj* x_623; +x_609 = lean::cnstr_get(x_599, 0); +if (lean::is_exclusive(x_599)) { + x_611 = x_599; +} else { + lean::inc(x_609); + lean::dec(x_599); + x_611 = lean::box(0); +} +x_612 = lean::cnstr_get(x_609, 0); +lean::inc(x_612); +lean::dec(x_609); +x_615 = l_lean_elaborator_mangle__ident(x_612); +if (lean::is_scalar(x_611)) { + x_616 = lean::alloc_cnstr(1, 1, 0); +} else { + x_616 = x_611; +} +lean::cnstr_set(x_616, 0, x_615); +x_617 = lean::box(0); +x_618 = l_option_get__or__else___main___rarg(x_616, x_617); +lean::dec(x_616); +x_620 = l_lean_elaborator_to__pexpr___main___closed__27; +x_621 = l_lean_kvmap_set__name(x_598, x_620, x_618); +x_622 = lean_expr_mk_mdata(x_621, x_603); +if (lean::is_scalar(x_590)) { + x_623 = lean::alloc_cnstr(0, 2, 0); +} else { + x_623 = x_590; +} +lean::cnstr_set(x_623, 0, x_622); +lean::cnstr_set(x_623, 1, x_588); +x_14 = x_623; +goto lbl_15; +} +} } } else { -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; +obj* x_625; obj* x_626; obj* x_629; obj* x_630; obj* x_633; obj* x_634; obj* x_636; +lean::dec(x_499); +if (lean::is_exclusive(x_497)) { + lean::cnstr_release(x_497, 0); + lean::cnstr_release(x_497, 1); + x_625 = x_497; } else { - lean::dec(x_481); - x_601 = lean::box(0); + lean::dec(x_497); + x_625 = lean::box(0); } -x_602 = lean::cnstr_get(x_214, 0); -lean::inc(x_602); +x_626 = lean::cnstr_get(x_214, 0); +lean::inc(x_626); lean::dec(x_214); -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; +x_629 = l_lean_parser_term_struct__inst__item_has__view; +x_630 = lean::cnstr_get(x_629, 1); +lean::inc(x_630); +lean::dec(x_629); +x_633 = lean::apply_1(x_630, x_338); +x_634 = l_lean_elaborator_to__pexpr___main___closed__29; lean::inc(x_1); -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); +x_636 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_633, x_634, x_1, x_2); lean::dec(x_2); -lean::dec(x_609); -if (lean::obj_tag(x_612) == 0) +lean::dec(x_633); +if (lean::obj_tag(x_636) == 0) { -obj* x_622; obj* x_624; obj* x_625; +obj* x_646; obj* x_648; obj* x_649; +lean::dec(x_625); +lean::dec(x_626); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_601); -lean::dec(x_602); lean::dec(x_209); lean::dec(x_205); -x_622 = lean::cnstr_get(x_612, 0); -if (lean::is_exclusive(x_612)) { - x_624 = x_612; +x_646 = lean::cnstr_get(x_636, 0); +if (lean::is_exclusive(x_636)) { + x_648 = x_636; } else { - lean::inc(x_622); - lean::dec(x_612); - x_624 = lean::box(0); + lean::inc(x_646); + lean::dec(x_636); + x_648 = lean::box(0); } -if (lean::is_scalar(x_624)) { - x_625 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_648)) { + x_649 = lean::alloc_cnstr(0, 1, 0); } else { - x_625 = x_624; + x_649 = x_648; } -lean::cnstr_set(x_625, 0, x_622); -return x_625; +lean::cnstr_set(x_649, 0, x_646); +return x_649; } else { -obj* x_626; obj* x_629; obj* x_631; obj* x_635; -x_626 = lean::cnstr_get(x_612, 0); -lean::inc(x_626); -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); +obj* x_650; obj* x_653; obj* x_655; obj* x_659; +x_650 = lean::cnstr_get(x_636, 0); +lean::inc(x_650); +lean::dec(x_636); +x_653 = lean::cnstr_get(x_650, 0); +lean::inc(x_653); +x_655 = lean::cnstr_get(x_650, 1); +lean::inc(x_655); +lean::dec(x_650); +lean::inc(x_1); +x_659 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__17(x_0, x_209, x_1, x_655); +if (lean::obj_tag(x_659) == 0) +{ +obj* x_667; obj* x_669; obj* x_670; +lean::dec(x_625); lean::dec(x_626); -lean::inc(x_1); -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_643; obj* x_645; obj* x_646; +lean::dec(x_653); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_601); -lean::dec(x_602); -lean::dec(x_629); lean::dec(x_205); -x_643 = lean::cnstr_get(x_635, 0); -if (lean::is_exclusive(x_635)) { - x_645 = x_635; +x_667 = lean::cnstr_get(x_659, 0); +if (lean::is_exclusive(x_659)) { + x_669 = x_659; } else { - lean::inc(x_643); - lean::dec(x_635); - x_645 = lean::box(0); + lean::inc(x_667); + lean::dec(x_659); + x_669 = lean::box(0); } -if (lean::is_scalar(x_645)) { - x_646 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_669)) { + x_670 = lean::alloc_cnstr(0, 1, 0); } else { - x_646 = x_645; + x_670 = x_669; } -lean::cnstr_set(x_646, 0, x_643); -return x_646; +lean::cnstr_set(x_670, 0, x_667); +return x_670; } else { -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); -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); +obj* x_671; obj* x_674; obj* x_676; obj* x_679; obj* x_682; +x_671 = lean::cnstr_get(x_659, 0); +lean::inc(x_671); +lean::dec(x_659); +x_674 = lean::cnstr_get(x_671, 0); +lean::inc(x_674); +x_676 = lean::cnstr_get(x_671, 1); +lean::inc(x_676); +lean::dec(x_671); 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) +x_682 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__19(x_0, x_626, x_1, x_676); +if (lean::obj_tag(x_682) == 0) { -obj* x_666; obj* x_668; obj* x_669; -lean::dec(x_650); +obj* x_690; obj* x_692; obj* x_693; +lean::dec(x_625); +lean::dec(x_653); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_601); -lean::dec(x_629); lean::dec(x_205); -x_666 = lean::cnstr_get(x_658, 0); -if (lean::is_exclusive(x_658)) { - x_668 = x_658; +lean::dec(x_674); +x_690 = lean::cnstr_get(x_682, 0); +if (lean::is_exclusive(x_682)) { + x_692 = x_682; } else { - lean::inc(x_666); - lean::dec(x_658); - x_668 = lean::box(0); + lean::inc(x_690); + lean::dec(x_682); + x_692 = lean::box(0); } -if (lean::is_scalar(x_668)) { - x_669 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_692)) { + x_693 = lean::alloc_cnstr(0, 1, 0); } else { - x_669 = x_668; + x_693 = x_692; } -lean::cnstr_set(x_669, 0, x_666); -return x_669; +lean::cnstr_set(x_693, 0, x_690); +return x_693; } else { -obj* x_670; obj* x_673; -x_670 = lean::cnstr_get(x_658, 0); -lean::inc(x_670); -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_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_676); - lean::inc(x_678); - lean::dec(x_670); - x_680 = lean::box(0); -} -if (lean::is_scalar(x_680)) { - x_681 = lean::alloc_cnstr(0, 2, 0); -} else { - x_681 = x_680; -} -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_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_673, 0); -lean::inc(x_687); -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_694 = l_lean_elaborator_to__pexpr___main(x_690, x_1, x_684); -if (lean::obj_tag(x_694) == 0) -{ -obj* x_703; obj* x_705; obj* x_706; -lean::dec(x_650); -lean::dec(x_7); -lean::dec(x_1); +obj* x_694; obj* x_697; +x_694 = lean::cnstr_get(x_682, 0); +lean::inc(x_694); lean::dec(x_682); -lean::dec(x_0); -lean::dec(x_601); -lean::dec(x_629); -lean::dec(x_205); -x_703 = lean::cnstr_get(x_694, 0); +x_697 = lean::cnstr_get(x_205, 2); +lean::inc(x_697); +if (lean::obj_tag(x_697) == 0) +{ +obj* x_700; obj* x_702; obj* x_704; obj* x_705; +lean::dec(x_625); +x_700 = lean::cnstr_get(x_694, 0); +x_702 = lean::cnstr_get(x_694, 1); if (lean::is_exclusive(x_694)) { - x_705 = x_694; + x_704 = x_694; } else { - lean::inc(x_703); + lean::inc(x_700); + lean::inc(x_702); lean::dec(x_694); - x_705 = lean::box(0); + x_704 = lean::box(0); } -if (lean::is_scalar(x_705)) { - x_706 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_704)) { + x_705 = lean::alloc_cnstr(0, 2, 0); } else { - x_706 = x_705; + x_705 = x_704; } -lean::cnstr_set(x_706, 0, x_703); -return x_706; +lean::cnstr_set(x_705, 0, x_700); +lean::cnstr_set(x_705, 1, x_702); +x_679 = x_705; +goto lbl_680; } else { -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); +obj* x_706; obj* x_708; obj* x_711; obj* x_714; obj* x_718; +x_706 = lean::cnstr_get(x_694, 0); +lean::inc(x_706); +x_708 = lean::cnstr_get(x_694, 1); +lean::inc(x_708); 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_710); - lean::inc(x_712); - lean::dec(x_707); - x_714 = lean::box(0); -} -x_715 = lean::box(0); -if (lean::is_scalar(x_601)) { - x_716 = lean::alloc_cnstr(1, 2, 0); -} else { - x_716 = x_601; -} -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_718 = x_714; -} -lean::cnstr_set(x_718, 0, x_717); -lean::cnstr_set(x_718, 1, x_712); -x_655 = x_718; -goto lbl_656; -} -} -} -lbl_656: +x_711 = lean::cnstr_get(x_697, 0); +lean::inc(x_711); +lean::dec(x_697); +x_714 = lean::cnstr_get(x_711, 0); +lean::inc(x_714); +lean::dec(x_711); +lean::inc(x_1); +x_718 = l_lean_elaborator_to__pexpr___main(x_714, x_1, x_708); +if (lean::obj_tag(x_718) == 0) { -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_719); - lean::inc(x_721); - lean::dec(x_655); - x_723 = lean::box(0); -} -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); +obj* x_727; obj* x_729; obj* x_730; +lean::dec(x_625); +lean::dec(x_653); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_706); lean::dec(x_205); -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); +lean::dec(x_674); +x_727 = lean::cnstr_get(x_718, 0); +if (lean::is_exclusive(x_718)) { + x_729 = x_718; } else { - x_748 = x_723; + lean::inc(x_727); + lean::dec(x_718); + x_729 = lean::box(0); } -lean::cnstr_set(x_748, 0, x_747); -lean::cnstr_set(x_748, 1, x_721); -x_14 = x_748; +if (lean::is_scalar(x_729)) { + x_730 = lean::alloc_cnstr(0, 1, 0); +} else { + x_730 = x_729; +} +lean::cnstr_set(x_730, 0, x_727); +return x_730; +} +else +{ +obj* x_731; obj* x_734; obj* x_736; obj* x_738; obj* x_739; obj* x_740; obj* x_741; obj* x_742; +x_731 = lean::cnstr_get(x_718, 0); +lean::inc(x_731); +lean::dec(x_718); +x_734 = lean::cnstr_get(x_731, 0); +x_736 = lean::cnstr_get(x_731, 1); +if (lean::is_exclusive(x_731)) { + x_738 = x_731; +} else { + lean::inc(x_734); + lean::inc(x_736); + lean::dec(x_731); + x_738 = lean::box(0); +} +x_739 = lean::box(0); +if (lean::is_scalar(x_625)) { + x_740 = lean::alloc_cnstr(1, 2, 0); +} else { + x_740 = x_625; +} +lean::cnstr_set(x_740, 0, x_734); +lean::cnstr_set(x_740, 1, x_739); +x_741 = l_list_append___rarg(x_706, x_740); +if (lean::is_scalar(x_738)) { + x_742 = lean::alloc_cnstr(0, 2, 0); +} else { + x_742 = x_738; +} +lean::cnstr_set(x_742, 0, x_741); +lean::cnstr_set(x_742, 1, x_736); +x_679 = x_742; +goto lbl_680; +} +} +} +lbl_680: +{ +obj* x_743; obj* x_745; obj* x_747; obj* x_748; obj* x_749; obj* x_750; obj* x_751; obj* x_752; obj* x_753; uint8 x_754; obj* x_755; obj* x_756; obj* x_759; obj* x_760; +x_743 = lean::cnstr_get(x_679, 0); +x_745 = lean::cnstr_get(x_679, 1); +if (lean::is_exclusive(x_679)) { + lean::cnstr_set(x_679, 0, lean::box(0)); + lean::cnstr_set(x_679, 1, lean::box(0)); + x_747 = x_679; +} else { + lean::inc(x_743); + lean::inc(x_745); + lean::dec(x_679); + x_747 = lean::box(0); +} +x_748 = lean::box(0); +x_749 = lean::mk_nat_obj(0u); +x_750 = l_list_length__aux___main___rarg(x_674, x_749); +x_751 = l_lean_elaborator_to__pexpr___main___closed__25; +x_752 = l_lean_kvmap_set__nat(x_748, x_751, x_750); +x_753 = l_lean_elaborator_to__pexpr___main___closed__26; +x_754 = lean::unbox(x_653); +x_755 = l_lean_kvmap_set__bool(x_752, x_753, x_754); +x_756 = lean::cnstr_get(x_205, 1); +lean::inc(x_756); +lean::dec(x_205); +x_759 = l_list_append___rarg(x_674, x_743); +x_760 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__18(x_759); +if (lean::obj_tag(x_756) == 0) +{ +obj* x_761; obj* x_762; obj* x_763; obj* x_764; obj* x_765; +x_761 = l_lean_elaborator_to__pexpr___main___closed__27; +x_762 = l_lean_elaborator_to__pexpr___main___closed__28; +x_763 = l_lean_kvmap_set__name(x_755, x_761, x_762); +x_764 = lean_expr_mk_mdata(x_763, x_760); +if (lean::is_scalar(x_747)) { + x_765 = lean::alloc_cnstr(0, 2, 0); +} else { + x_765 = x_747; +} +lean::cnstr_set(x_765, 0, x_764); +lean::cnstr_set(x_765, 1, x_745); +x_14 = x_765; +goto lbl_15; +} +else +{ +obj* x_766; obj* x_768; obj* x_769; obj* x_772; obj* x_773; obj* x_774; obj* x_775; obj* x_777; obj* x_778; obj* x_779; obj* x_780; +x_766 = lean::cnstr_get(x_756, 0); +if (lean::is_exclusive(x_756)) { + x_768 = x_756; +} else { + lean::inc(x_766); + lean::dec(x_756); + x_768 = lean::box(0); +} +x_769 = lean::cnstr_get(x_766, 0); +lean::inc(x_769); +lean::dec(x_766); +x_772 = l_lean_elaborator_mangle__ident(x_769); +if (lean::is_scalar(x_768)) { + x_773 = lean::alloc_cnstr(1, 1, 0); +} else { + x_773 = x_768; +} +lean::cnstr_set(x_773, 0, x_772); +x_774 = lean::box(0); +x_775 = l_option_get__or__else___main___rarg(x_773, x_774); +lean::dec(x_773); +x_777 = l_lean_elaborator_to__pexpr___main___closed__27; +x_778 = l_lean_kvmap_set__name(x_755, x_777, x_775); +x_779 = lean_expr_mk_mdata(x_778, x_760); +if (lean::is_scalar(x_747)) { + x_780 = lean::alloc_cnstr(0, 2, 0); +} else { + x_780 = x_747; +} +lean::cnstr_set(x_780, 0, x_779); +lean::cnstr_set(x_780, 1, x_745); +x_14 = x_780; goto lbl_15; } } @@ -10517,638 +10629,487 @@ goto lbl_15; } } } +} else { -obj* x_751; +obj* x_783; lean::inc(x_1); lean::inc(x_9); -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) +x_783 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__20(x_9, x_1, x_2); +if (lean::obj_tag(x_783) == 0) { -obj* x_756; obj* x_758; obj* x_759; +obj* x_788; obj* x_790; obj* x_791; lean::dec(x_9); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_756 = lean::cnstr_get(x_751, 0); -if (lean::is_exclusive(x_751)) { - x_758 = x_751; +x_788 = lean::cnstr_get(x_783, 0); +if (lean::is_exclusive(x_783)) { + x_790 = x_783; } else { - lean::inc(x_756); - lean::dec(x_751); - x_758 = lean::box(0); + lean::inc(x_788); + lean::dec(x_783); + x_790 = lean::box(0); } -if (lean::is_scalar(x_758)) { - x_759 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_790)) { + x_791 = lean::alloc_cnstr(0, 1, 0); } else { - x_759 = x_758; + x_791 = x_790; } -lean::cnstr_set(x_759, 0, x_756); -return x_759; +lean::cnstr_set(x_791, 0, x_788); +return x_791; } else { -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; +obj* x_792; obj* x_795; obj* x_797; obj* x_799; obj* x_800; obj* x_801; +x_792 = lean::cnstr_get(x_783, 0); +lean::inc(x_792); +lean::dec(x_783); +x_795 = lean::cnstr_get(x_792, 0); +x_797 = lean::cnstr_get(x_792, 1); +if (lean::is_exclusive(x_792)) { + x_799 = x_792; } else { - lean::inc(x_763); - lean::inc(x_765); - lean::dec(x_760); - x_767 = lean::box(0); + lean::inc(x_795); + lean::inc(x_797); + lean::dec(x_792); + x_799 = lean::box(0); } -x_768 = l_list_reverse___rarg(x_763); -if (lean::is_scalar(x_767)) { - x_769 = lean::alloc_cnstr(0, 2, 0); +x_800 = l_list_reverse___rarg(x_795); +if (lean::is_scalar(x_799)) { + x_801 = lean::alloc_cnstr(0, 2, 0); } else { - x_769 = x_767; + x_801 = x_799; } -lean::cnstr_set(x_769, 0, x_768); -lean::cnstr_set(x_769, 1, x_765); -x_16 = x_769; +lean::cnstr_set(x_801, 0, x_800); +lean::cnstr_set(x_801, 1, x_797); +x_16 = x_801; goto lbl_17; } } } else { -obj* x_772; obj* x_773; obj* x_777; obj* x_778; obj* x_779; obj* x_780; obj* x_782; obj* x_783; +obj* x_804; obj* x_805; obj* x_809; obj* x_810; obj* x_811; obj* x_812; obj* x_814; obj* x_815; lean::dec(x_9); lean::dec(x_7); -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); +x_804 = l_lean_parser_string__lit_has__view; +x_805 = lean::cnstr_get(x_804, 0); +lean::inc(x_805); +lean::dec(x_804); lean::inc(x_0); -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); +x_809 = lean::apply_1(x_805, x_0); +x_810 = l_lean_parser_string__lit_view_value(x_809); +x_811 = l_lean_elaborator_to__pexpr___main___closed__30; +x_812 = l_option_get__or__else___main___rarg(x_810, x_811); +lean::dec(x_810); +x_814 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_814, 0, x_812); +x_815 = lean_expr_mk_lit(x_814); if (x_21 == 0) { -obj* x_784; -x_784 = l_lean_parser_syntax_get__pos(x_0); +obj* x_816; +x_816 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_784) == 0) +if (lean::obj_tag(x_816) == 0) { -obj* x_787; obj* x_788; +obj* x_819; obj* x_820; lean::dec(x_1); -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; +x_819 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_819, 0, x_815); +lean::cnstr_set(x_819, 1, x_2); +x_820 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_820, 0, x_819); +return x_820; } else { -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); +obj* x_821; obj* x_824; obj* x_827; obj* x_830; obj* x_831; obj* x_832; obj* x_834; obj* x_835; obj* x_836; obj* x_839; obj* x_840; obj* x_841; obj* x_842; obj* x_843; +x_821 = lean::cnstr_get(x_816, 0); +lean::inc(x_821); +lean::dec(x_816); +x_824 = lean::cnstr_get(x_1, 0); +lean::inc(x_824); lean::dec(x_1); -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); -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_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_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_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_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_827; -x_827 = l_lean_parser_syntax_get__pos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_827) == 0) -{ -obj* x_830; obj* x_831; -lean::dec(x_1); -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_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); +x_827 = lean::cnstr_get(x_824, 2); +lean::inc(x_827); +lean::dec(x_824); +x_830 = l_lean_file__map_to__position(x_827, x_821); +x_831 = lean::box(0); +x_832 = lean::cnstr_get(x_830, 1); 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_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); -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_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; +x_834 = l_lean_elaborator_to__pexpr___main___closed__3; +x_835 = l_lean_kvmap_set__nat(x_831, x_834, x_832); +x_836 = lean::cnstr_get(x_830, 0); +lean::inc(x_836); +lean::dec(x_830); +x_839 = l_lean_elaborator_to__pexpr___main___closed__4; +x_840 = l_lean_kvmap_set__nat(x_835, x_839, x_836); +x_841 = lean_expr_mk_mdata(x_840, x_815); +x_842 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_842, 0, x_841); +lean::cnstr_set(x_842, 1, x_2); +x_843 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_843, 0, x_842); +return x_843; } } else { -obj* x_857; obj* x_858; +obj* x_846; obj* x_847; 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; +x_846 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_846, 0, x_815); +lean::cnstr_set(x_846, 1, x_2); +x_847 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_847, 0, x_846); +return x_847; } } } else { -obj* x_860; obj* x_861; obj* x_865; obj* x_866; obj* x_870; +obj* x_850; obj* x_851; obj* x_855; obj* x_856; obj* x_857; obj* x_858; lean::dec(x_9); -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::dec(x_7); +x_850 = l_lean_parser_number_has__view; +x_851 = lean::cnstr_get(x_850, 0); +lean::inc(x_851); +lean::dec(x_850); lean::inc(x_0); -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_870 = l_lean_elaborator_to__pexpr___main(x_866, x_1, x_2); -if (lean::obj_tag(x_870) == 0) +x_855 = lean::apply_1(x_851, x_0); +x_856 = l_lean_parser_number_view_to__nat___main(x_855); +x_857 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_857, 0, x_856); +x_858 = lean_expr_mk_lit(x_857); +if (x_21 == 0) { -obj* x_874; obj* x_876; obj* x_877; +obj* x_859; +x_859 = l_lean_parser_syntax_get__pos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_859) == 0) +{ +obj* x_862; obj* x_863; +lean::dec(x_1); +x_862 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_862, 0, x_858); +lean::cnstr_set(x_862, 1, x_2); +x_863 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_863, 0, x_862); +return x_863; +} +else +{ +obj* x_864; obj* x_867; obj* x_870; obj* x_873; obj* x_874; obj* x_875; obj* x_877; obj* x_878; obj* x_879; obj* x_882; obj* x_883; obj* x_884; obj* x_885; obj* x_886; +x_864 = lean::cnstr_get(x_859, 0); +lean::inc(x_864); +lean::dec(x_859); +x_867 = lean::cnstr_get(x_1, 0); +lean::inc(x_867); +lean::dec(x_1); +x_870 = lean::cnstr_get(x_867, 2); +lean::inc(x_870); +lean::dec(x_867); +x_873 = l_lean_file__map_to__position(x_870, x_864); +x_874 = lean::box(0); +x_875 = lean::cnstr_get(x_873, 1); +lean::inc(x_875); +x_877 = l_lean_elaborator_to__pexpr___main___closed__3; +x_878 = l_lean_kvmap_set__nat(x_874, x_877, x_875); +x_879 = lean::cnstr_get(x_873, 0); +lean::inc(x_879); +lean::dec(x_873); +x_882 = l_lean_elaborator_to__pexpr___main___closed__4; +x_883 = l_lean_kvmap_set__nat(x_878, x_882, x_879); +x_884 = lean_expr_mk_mdata(x_883, x_858); +x_885 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_885, 0, x_884); +lean::cnstr_set(x_885, 1, x_2); +x_886 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_886, 0, x_885); +return x_886; +} +} +else +{ +obj* x_889; obj* x_890; +lean::dec(x_1); +lean::dec(x_0); +x_889 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_889, 0, x_858); +lean::cnstr_set(x_889, 1, x_2); +x_890 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_890, 0, x_889); +return x_890; +} +} +} +else +{ +obj* x_892; obj* x_893; obj* x_897; obj* x_898; obj* x_902; +lean::dec(x_9); +x_892 = l_lean_parser_term_borrowed_has__view; +x_893 = lean::cnstr_get(x_892, 0); +lean::inc(x_893); +lean::dec(x_892); +lean::inc(x_0); +x_897 = lean::apply_1(x_893, x_0); +x_898 = lean::cnstr_get(x_897, 1); +lean::inc(x_898); +lean::dec(x_897); +lean::inc(x_1); +x_902 = l_lean_elaborator_to__pexpr___main(x_898, x_1, x_2); +if (lean::obj_tag(x_902) == 0) +{ +obj* x_906; obj* x_908; obj* x_909; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_874 = lean::cnstr_get(x_870, 0); -if (lean::is_exclusive(x_870)) { - x_876 = x_870; +x_906 = lean::cnstr_get(x_902, 0); +if (lean::is_exclusive(x_902)) { + x_908 = x_902; } else { - lean::inc(x_874); - lean::dec(x_870); - x_876 = lean::box(0); + lean::inc(x_906); + lean::dec(x_902); + x_908 = lean::box(0); } -if (lean::is_scalar(x_876)) { - x_877 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_908)) { + x_909 = lean::alloc_cnstr(0, 1, 0); } else { - x_877 = x_876; + x_909 = x_908; } -lean::cnstr_set(x_877, 0, x_874); -return x_877; +lean::cnstr_set(x_909, 0, x_906); +return x_909; } else { -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; +obj* x_910; obj* x_913; obj* x_915; obj* x_917; obj* x_918; obj* x_919; obj* x_920; +x_910 = lean::cnstr_get(x_902, 0); +lean::inc(x_910); +lean::dec(x_902); +x_913 = lean::cnstr_get(x_910, 0); +x_915 = lean::cnstr_get(x_910, 1); +if (lean::is_exclusive(x_910)) { + x_917 = x_910; } else { - lean::inc(x_881); - lean::inc(x_883); - lean::dec(x_878); - x_885 = lean::box(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_888 = x_885; -} -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_890; obj* x_891; obj* x_895; obj* x_896; obj* x_900; -lean::dec(x_9); -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_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_900 = l_lean_elaborator_to__pexpr___main(x_896, x_1, x_2); -if (lean::obj_tag(x_900) == 0) -{ -obj* x_904; obj* x_906; obj* x_907; -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -x_904 = lean::cnstr_get(x_900, 0); -if (lean::is_exclusive(x_900)) { - x_906 = x_900; -} else { - lean::inc(x_904); - lean::dec(x_900); - x_906 = lean::box(0); -} -if (lean::is_scalar(x_906)) { - x_907 = lean::alloc_cnstr(0, 1, 0); -} else { - x_907 = x_906; -} -lean::cnstr_set(x_907, 0, x_904); -return x_907; -} -else -{ -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_911); lean::inc(x_913); - lean::dec(x_908); - x_915 = lean::box(0); + lean::inc(x_915); + lean::dec(x_910); + x_917 = lean::box(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); +x_918 = l_lean_elaborator_to__pexpr___main___closed__31; +x_919 = l_lean_elaborator_expr_mk__annotation(x_918, x_913); +if (lean::is_scalar(x_917)) { + x_920 = lean::alloc_cnstr(0, 2, 0); } else { - x_918 = x_915; + x_920 = x_917; } -lean::cnstr_set(x_918, 0, x_917); -lean::cnstr_set(x_918, 1, x_913); -x_14 = x_918; +lean::cnstr_set(x_920, 0, x_919); +lean::cnstr_set(x_920, 1, x_915); +x_14 = x_920; goto lbl_15; } } } else { -obj* x_920; obj* x_921; obj* x_925; obj* x_926; obj* x_928; obj* x_929; obj* x_932; obj* x_935; +obj* x_922; obj* x_923; obj* x_927; obj* x_928; obj* x_932; lean::dec(x_9); -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); +x_922 = l_lean_parser_term_inaccessible_has__view; +x_923 = lean::cnstr_get(x_922, 0); +lean::inc(x_923); +lean::dec(x_922); lean::inc(x_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_938; -lean::dec(x_926); +x_927 = lean::apply_1(x_923, x_0); +x_928 = lean::cnstr_get(x_927, 1); +lean::inc(x_928); +lean::dec(x_927); lean::inc(x_1); -x_938 = l_lean_elaborator_to__pexpr___main(x_935, x_1, x_2); -if (lean::obj_tag(x_938) == 0) +x_932 = l_lean_elaborator_to__pexpr___main(x_928, x_1, x_2); +if (lean::obj_tag(x_932) == 0) { -obj* x_942; obj* x_944; obj* x_945; +obj* x_936; obj* x_938; obj* x_939; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_942 = lean::cnstr_get(x_938, 0); -if (lean::is_exclusive(x_938)) { - x_944 = x_938; +x_936 = lean::cnstr_get(x_932, 0); +if (lean::is_exclusive(x_932)) { + x_938 = x_932; } else { - lean::inc(x_942); - lean::dec(x_938); - x_944 = lean::box(0); + lean::inc(x_936); + lean::dec(x_932); + x_938 = lean::box(0); } -if (lean::is_scalar(x_944)) { - x_945 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_938)) { + x_939 = lean::alloc_cnstr(0, 1, 0); } else { - x_945 = x_944; + x_939 = x_938; } -lean::cnstr_set(x_945, 0, x_942); -return x_945; +lean::cnstr_set(x_939, 0, x_936); +return x_939; } else { -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; +obj* x_940; obj* x_943; obj* x_945; obj* x_947; obj* x_948; obj* x_949; obj* x_950; +x_940 = lean::cnstr_get(x_932, 0); +lean::inc(x_940); +lean::dec(x_932); +x_943 = lean::cnstr_get(x_940, 0); +x_945 = lean::cnstr_get(x_940, 1); +if (lean::is_exclusive(x_940)) { + x_947 = x_940; } else { - lean::inc(x_949); - lean::inc(x_951); - lean::dec(x_946); - x_953 = lean::box(0); + lean::inc(x_943); + lean::inc(x_945); + lean::dec(x_940); + x_947 = lean::box(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); +x_948 = l_lean_elaborator_to__pexpr___main___closed__32; +x_949 = l_lean_elaborator_expr_mk__annotation(x_948, x_943); +if (lean::is_scalar(x_947)) { + x_950 = lean::alloc_cnstr(0, 2, 0); } else { - x_956 = x_953; + x_950 = x_947; } -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_959; -lean::dec(x_926); -lean::inc(x_1); -x_959 = l_lean_elaborator_to__pexpr___main(x_935, x_1, x_2); -if (lean::obj_tag(x_959) == 0) -{ -obj* x_963; obj* x_965; obj* x_966; -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -x_963 = lean::cnstr_get(x_959, 0); -if (lean::is_exclusive(x_959)) { - x_965 = x_959; -} else { - lean::inc(x_963); - lean::dec(x_959); - x_965 = lean::box(0); -} -if (lean::is_scalar(x_965)) { - x_966 = lean::alloc_cnstr(0, 1, 0); -} else { - x_966 = x_965; -} -lean::cnstr_set(x_966, 0, x_963); -return x_966; -} -else -{ -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_970); - lean::inc(x_972); - lean::dec(x_967); - x_974 = lean::box(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_977 = x_974; -} -lean::cnstr_set(x_977, 0, x_976); -lean::cnstr_set(x_977, 1, x_972); -x_14 = x_977; +lean::cnstr_set(x_950, 0, x_949); +lean::cnstr_set(x_950, 1, x_945); +x_14 = x_950; goto lbl_15; } } } -} else { -obj* x_979; obj* x_980; obj* x_984; obj* x_985; +obj* x_952; obj* x_953; obj* x_957; obj* x_958; obj* x_960; obj* x_961; obj* x_964; obj* x_967; lean::dec(x_9); -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); +x_952 = l_lean_parser_term_explicit_has__view; +x_953 = lean::cnstr_get(x_952, 0); +lean::inc(x_953); +lean::dec(x_952); lean::inc(x_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) +x_957 = lean::apply_1(x_953, x_0); +x_958 = lean::cnstr_get(x_957, 0); +lean::inc(x_958); +x_960 = l_lean_parser_ident__univs_has__view; +x_961 = lean::cnstr_get(x_960, 1); +lean::inc(x_961); +lean::dec(x_960); +x_964 = lean::cnstr_get(x_957, 1); +lean::inc(x_964); +lean::dec(x_957); +x_967 = lean::apply_1(x_961, x_964); +if (lean::obj_tag(x_958) == 0) { -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); +obj* x_970; +lean::dec(x_958); lean::inc(x_1); -x_994 = l_lean_elaborator_to__pexpr___main(x_987, x_1, x_2); -if (lean::obj_tag(x_994) == 0) +x_970 = l_lean_elaborator_to__pexpr___main(x_967, x_1, x_2); +if (lean::obj_tag(x_970) == 0) { -obj* x_999; obj* x_1001; obj* x_1002; +obj* x_974; obj* x_976; obj* x_977; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_990); -x_999 = lean::cnstr_get(x_994, 0); -if (lean::is_exclusive(x_994)) { - x_1001 = x_994; +x_974 = lean::cnstr_get(x_970, 0); +if (lean::is_exclusive(x_970)) { + x_976 = x_970; } else { - lean::inc(x_999); - lean::dec(x_994); - x_1001 = lean::box(0); + lean::inc(x_974); + lean::dec(x_970); + x_976 = lean::box(0); } -if (lean::is_scalar(x_1001)) { - x_1002 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_976)) { + x_977 = lean::alloc_cnstr(0, 1, 0); } else { - x_1002 = x_1001; + x_977 = x_976; } -lean::cnstr_set(x_1002, 0, x_999); -return x_1002; +lean::cnstr_set(x_977, 0, x_974); +return x_977; } 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; +obj* x_978; obj* x_981; obj* x_983; obj* x_985; obj* x_986; obj* x_987; obj* x_988; +x_978 = lean::cnstr_get(x_970, 0); +lean::inc(x_978); +lean::dec(x_970); +x_981 = lean::cnstr_get(x_978, 0); +x_983 = lean::cnstr_get(x_978, 1); +if (lean::is_exclusive(x_978)) { + x_985 = x_978; } else { - lean::inc(x_1006); - lean::inc(x_1008); - lean::dec(x_1003); - x_1010 = lean::box(0); + lean::inc(x_981); + lean::inc(x_983); + lean::dec(x_978); + x_985 = 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); +x_986 = l_list_map___main___at_lean_elaborator_mk__eqns___spec__1___closed__1; +x_987 = l_lean_elaborator_expr_mk__annotation(x_986, x_981); +if (lean::is_scalar(x_985)) { + x_988 = lean::alloc_cnstr(0, 2, 0); } else { - x_1019 = x_1010; + x_988 = x_985; } -lean::cnstr_set(x_1019, 0, x_1018); -lean::cnstr_set(x_1019, 1, x_1008); -x_14 = x_1019; +lean::cnstr_set(x_988, 0, x_987); +lean::cnstr_set(x_988, 1, x_983); +x_14 = x_988; goto lbl_15; } } else { -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); +obj* x_991; +lean::dec(x_958); lean::inc(x_1); -x_1027 = l_lean_elaborator_to__pexpr___main(x_1020, x_1, x_2); -if (lean::obj_tag(x_1027) == 0) +x_991 = l_lean_elaborator_to__pexpr___main(x_967, x_1, x_2); +if (lean::obj_tag(x_991) == 0) { -obj* x_1032; obj* x_1034; obj* x_1035; -lean::dec(x_1023); +obj* x_995; obj* x_997; obj* x_998; 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; +x_995 = lean::cnstr_get(x_991, 0); +if (lean::is_exclusive(x_991)) { + x_997 = x_991; } else { - lean::inc(x_1032); - lean::dec(x_1027); - x_1034 = lean::box(0); + lean::inc(x_995); + lean::dec(x_991); + x_997 = lean::box(0); } -if (lean::is_scalar(x_1034)) { - x_1035 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_997)) { + x_998 = lean::alloc_cnstr(0, 1, 0); } else { - x_1035 = x_1034; + x_998 = x_997; } -lean::cnstr_set(x_1035, 0, x_1032); -return x_1035; +lean::cnstr_set(x_998, 0, x_995); +return x_998; } 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; +obj* x_999; obj* x_1002; obj* x_1004; obj* x_1006; obj* x_1007; obj* x_1008; obj* x_1009; +x_999 = lean::cnstr_get(x_991, 0); +lean::inc(x_999); +lean::dec(x_991); +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; } else { - lean::inc(x_1039); - lean::inc(x_1041); - lean::dec(x_1036); - x_1043 = lean::box(0); + lean::inc(x_1002); + lean::inc(x_1004); + lean::dec(x_999); + x_1006 = 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); +x_1007 = l_lean_elaborator_to__pexpr___main___closed__33; +x_1008 = l_lean_elaborator_expr_mk__annotation(x_1007, x_1002); +if (lean::is_scalar(x_1006)) { + x_1009 = lean::alloc_cnstr(0, 2, 0); } else { - x_1050 = x_1043; + x_1009 = x_1006; } -lean::cnstr_set(x_1050, 0, x_1049); -lean::cnstr_set(x_1050, 1, x_1041); -x_14 = x_1050; +lean::cnstr_set(x_1009, 0, x_1008); +lean::cnstr_set(x_1009, 1, x_1004); +x_14 = x_1009; goto lbl_15; } } @@ -11156,302 +11117,454 @@ goto lbl_15; } else { -obj* x_1052; obj* x_1053; obj* x_1057; obj* x_1058; +obj* x_1011; obj* x_1012; obj* x_1016; obj* x_1017; lean::dec(x_9); -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); +x_1011 = l_lean_parser_term_projection_has__view; +x_1012 = lean::cnstr_get(x_1011, 0); +lean::inc(x_1012); +lean::dec(x_1011); lean::inc(x_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) +x_1016 = lean::apply_1(x_1012, x_0); +x_1017 = lean::cnstr_get(x_1016, 2); +lean::inc(x_1017); +if (lean::obj_tag(x_1017) == 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_1065; -x_1065 = lean::cnstr_get(x_1060, 2); -lean::inc(x_1065); -if (lean::obj_tag(x_1065) == 0) -{ -obj* x_1069; obj* x_1071; -lean::dec(x_1060); -lean::dec(x_1057); -x_1069 = l_lean_elaborator_to__pexpr___main___closed__36; +obj* x_1019; obj* x_1022; obj* x_1026; +x_1019 = lean::cnstr_get(x_1016, 0); +lean::inc(x_1019); +lean::dec(x_1016); +x_1022 = lean::cnstr_get(x_1017, 0); +lean::inc(x_1022); +lean::dec(x_1017); lean::inc(x_1); -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); +x_1026 = l_lean_elaborator_to__pexpr___main(x_1019, x_1, x_2); +if (lean::obj_tag(x_1026) == 0) +{ +obj* x_1031; obj* x_1033; obj* x_1034; +lean::dec(x_1022); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1031 = lean::cnstr_get(x_1026, 0); +if (lean::is_exclusive(x_1026)) { + x_1033 = x_1026; +} else { + lean::inc(x_1031); + lean::dec(x_1026); + x_1033 = lean::box(0); +} +if (lean::is_scalar(x_1033)) { + x_1034 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1034 = x_1033; +} +lean::cnstr_set(x_1034, 0, x_1031); +return x_1034; +} +else +{ +obj* x_1035; obj* x_1038; obj* x_1040; obj* x_1042; obj* x_1043; obj* x_1046; obj* x_1047; obj* x_1048; obj* x_1049; obj* x_1050; obj* x_1051; +x_1035 = lean::cnstr_get(x_1026, 0); +lean::inc(x_1035); +lean::dec(x_1026); +x_1038 = lean::cnstr_get(x_1035, 0); +x_1040 = lean::cnstr_get(x_1035, 1); +if (lean::is_exclusive(x_1035)) { + x_1042 = x_1035; +} else { + lean::inc(x_1038); + lean::inc(x_1040); + lean::dec(x_1035); + x_1042 = lean::box(0); +} +x_1043 = lean::cnstr_get(x_1022, 2); +lean::inc(x_1043); +lean::dec(x_1022); +x_1046 = lean::alloc_cnstr(3, 1, 0); +lean::cnstr_set(x_1046, 0, x_1043); +x_1047 = lean::box(0); +x_1048 = l_lean_elaborator_to__pexpr___main___closed__34; +x_1049 = l_lean_kvmap_insert__core___main(x_1047, x_1048, x_1046); +x_1050 = lean_expr_mk_mdata(x_1049, x_1038); +if (lean::is_scalar(x_1042)) { + x_1051 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1051 = x_1042; +} +lean::cnstr_set(x_1051, 0, x_1050); +lean::cnstr_set(x_1051, 1, x_1040); +x_14 = x_1051; +goto lbl_15; +} +} +else +{ +obj* x_1052; obj* x_1055; obj* x_1059; +x_1052 = lean::cnstr_get(x_1016, 0); +lean::inc(x_1052); +lean::dec(x_1016); +x_1055 = lean::cnstr_get(x_1017, 0); +lean::inc(x_1055); +lean::dec(x_1017); +lean::inc(x_1); +x_1059 = l_lean_elaborator_to__pexpr___main(x_1052, x_1, x_2); +if (lean::obj_tag(x_1059) == 0) +{ +obj* x_1064; obj* x_1066; obj* x_1067; +lean::dec(x_1055); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1064 = lean::cnstr_get(x_1059, 0); +if (lean::is_exclusive(x_1059)) { + x_1066 = x_1059; +} else { + lean::inc(x_1064); + lean::dec(x_1059); + x_1066 = lean::box(0); +} +if (lean::is_scalar(x_1066)) { + x_1067 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1067 = x_1066; +} +lean::cnstr_set(x_1067, 0, x_1064); +return x_1067; +} +else +{ +obj* x_1068; obj* x_1071; obj* x_1073; obj* x_1075; obj* x_1076; obj* x_1077; obj* x_1078; obj* x_1079; obj* x_1080; obj* x_1081; obj* x_1082; +x_1068 = lean::cnstr_get(x_1059, 0); +lean::inc(x_1068); +lean::dec(x_1059); +x_1071 = lean::cnstr_get(x_1068, 0); +x_1073 = lean::cnstr_get(x_1068, 1); +if (lean::is_exclusive(x_1068)) { + x_1075 = x_1068; +} else { + lean::inc(x_1071); + lean::inc(x_1073); + lean::dec(x_1068); + x_1075 = lean::box(0); +} +x_1076 = l_lean_parser_number_view_to__nat___main(x_1055); +x_1077 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1077, 0, x_1076); +x_1078 = lean::box(0); +x_1079 = l_lean_elaborator_to__pexpr___main___closed__34; +x_1080 = l_lean_kvmap_insert__core___main(x_1078, x_1079, x_1077); +x_1081 = lean_expr_mk_mdata(x_1080, x_1071); +if (lean::is_scalar(x_1075)) { + x_1082 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1082 = x_1075; +} +lean::cnstr_set(x_1082, 0, x_1081); +lean::cnstr_set(x_1082, 1, x_1073); +x_14 = x_1082; +goto lbl_15; +} +} +} +} +else +{ +obj* x_1084; obj* x_1085; obj* x_1089; obj* x_1090; +lean::dec(x_9); +x_1084 = l_lean_parser_term_let_has__view; +x_1085 = lean::cnstr_get(x_1084, 0); +lean::inc(x_1085); +lean::dec(x_1084); +lean::inc(x_0); +x_1089 = lean::apply_1(x_1085, x_0); +x_1090 = lean::cnstr_get(x_1089, 1); +lean::inc(x_1090); +if (lean::obj_tag(x_1090) == 0) +{ +obj* x_1092; obj* x_1095; +x_1092 = lean::cnstr_get(x_1090, 0); +lean::inc(x_1092); +lean::dec(x_1090); +x_1095 = lean::cnstr_get(x_1092, 1); +lean::inc(x_1095); +if (lean::obj_tag(x_1095) == 0) +{ +obj* x_1097; +x_1097 = lean::cnstr_get(x_1092, 2); +lean::inc(x_1097); +if (lean::obj_tag(x_1097) == 0) +{ +obj* x_1101; obj* x_1103; +lean::dec(x_1092); +lean::dec(x_1089); +x_1101 = l_lean_elaborator_to__pexpr___main___closed__35; +lean::inc(x_1); +x_1103 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1101, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1071) == 0) +if (lean::obj_tag(x_1103) == 0) { -obj* x_1076; obj* x_1078; obj* x_1079; +obj* x_1108; obj* x_1110; obj* x_1111; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1076 = lean::cnstr_get(x_1071, 0); -if (lean::is_exclusive(x_1071)) { - x_1078 = x_1071; +x_1108 = lean::cnstr_get(x_1103, 0); +if (lean::is_exclusive(x_1103)) { + x_1110 = x_1103; } else { - lean::inc(x_1076); - lean::dec(x_1071); - x_1078 = lean::box(0); + lean::inc(x_1108); + lean::dec(x_1103); + x_1110 = lean::box(0); } -if (lean::is_scalar(x_1078)) { - x_1079 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1110)) { + x_1111 = lean::alloc_cnstr(0, 1, 0); } else { - x_1079 = x_1078; + x_1111 = x_1110; } -lean::cnstr_set(x_1079, 0, x_1076); -return x_1079; +lean::cnstr_set(x_1111, 0, x_1108); +return x_1111; } else { -obj* x_1080; -x_1080 = lean::cnstr_get(x_1071, 0); -lean::inc(x_1080); -lean::dec(x_1071); -x_14 = x_1080; +obj* x_1112; +x_1112 = lean::cnstr_get(x_1103, 0); +lean::inc(x_1112); +lean::dec(x_1103); +x_14 = x_1112; goto lbl_15; } } else { -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); +obj* x_1115; obj* x_1118; obj* x_1121; obj* x_1125; +x_1115 = lean::cnstr_get(x_1092, 0); +lean::inc(x_1115); +lean::dec(x_1092); +x_1118 = lean::cnstr_get(x_1097, 0); +lean::inc(x_1118); +lean::dec(x_1097); +x_1121 = lean::cnstr_get(x_1118, 1); +lean::inc(x_1121); +lean::dec(x_1118); lean::inc(x_1); -x_1093 = l_lean_elaborator_to__pexpr___main(x_1089, x_1, x_2); -if (lean::obj_tag(x_1093) == 0) +x_1125 = l_lean_elaborator_to__pexpr___main(x_1121, x_1, x_2); +if (lean::obj_tag(x_1125) == 0) { -obj* x_1099; obj* x_1101; obj* x_1102; +obj* x_1131; obj* x_1133; obj* x_1134; lean::dec(x_7); lean::dec(x_1); -lean::dec(x_1083); lean::dec(x_0); -lean::dec(x_1057); -x_1099 = lean::cnstr_get(x_1093, 0); -if (lean::is_exclusive(x_1093)) { - x_1101 = x_1093; +lean::dec(x_1115); +lean::dec(x_1089); +x_1131 = lean::cnstr_get(x_1125, 0); +if (lean::is_exclusive(x_1125)) { + x_1133 = x_1125; } else { - lean::inc(x_1099); - lean::dec(x_1093); - x_1101 = lean::box(0); + lean::inc(x_1131); + lean::dec(x_1125); + x_1133 = lean::box(0); } -if (lean::is_scalar(x_1101)) { - x_1102 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1133)) { + x_1134 = lean::alloc_cnstr(0, 1, 0); } else { - x_1102 = x_1101; + x_1134 = x_1133; } -lean::cnstr_set(x_1102, 0, x_1099); -return x_1102; +lean::cnstr_set(x_1134, 0, x_1131); +return x_1134; } else { -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_1114 = l_lean_elaborator_to__pexpr___main(x_1111, x_1, x_1108); -if (lean::obj_tag(x_1114) == 0) -{ -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_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_1121); - lean::dec(x_1114); - x_1123 = lean::box(0); -} -if (lean::is_scalar(x_1123)) { - x_1124 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1124 = x_1123; -} -lean::cnstr_set(x_1124, 0, x_1121); -return x_1124; -} -else -{ -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); +obj* x_1135; obj* x_1138; obj* x_1140; obj* x_1143; obj* x_1146; +x_1135 = lean::cnstr_get(x_1125, 0); +lean::inc(x_1135); lean::dec(x_1125); -x_1133 = lean::cnstr_get(x_1057, 5); -lean::inc(x_1133); -lean::dec(x_1057); +x_1138 = lean::cnstr_get(x_1135, 0); +lean::inc(x_1138); +x_1140 = lean::cnstr_get(x_1135, 1); +lean::inc(x_1140); +lean::dec(x_1135); +x_1143 = lean::cnstr_get(x_1089, 3); +lean::inc(x_1143); lean::inc(x_1); -x_1137 = l_lean_elaborator_to__pexpr___main(x_1133, x_1, x_1130); -if (lean::obj_tag(x_1137) == 0) +x_1146 = l_lean_elaborator_to__pexpr___main(x_1143, x_1, x_1140); +if (lean::obj_tag(x_1146) == 0) { -obj* x_1144; obj* x_1146; obj* x_1147; +obj* x_1153; obj* x_1155; obj* x_1156; lean::dec(x_7); lean::dec(x_1); -lean::dec(x_1083); lean::dec(x_0); -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; +lean::dec(x_1115); +lean::dec(x_1089); +lean::dec(x_1138); +x_1153 = lean::cnstr_get(x_1146, 0); +if (lean::is_exclusive(x_1146)) { + x_1155 = x_1146; } else { - lean::inc(x_1144); - lean::dec(x_1137); - x_1146 = lean::box(0); -} -if (lean::is_scalar(x_1146)) { - x_1147 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1147 = x_1146; -} -lean::cnstr_set(x_1147, 0, x_1144); -return x_1147; -} -else -{ -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_1151); lean::inc(x_1153); - lean::dec(x_1148); + lean::dec(x_1146); x_1155 = lean::box(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); + x_1156 = lean::alloc_cnstr(0, 1, 0); } else { - x_1158 = x_1155; -} -lean::cnstr_set(x_1158, 0, x_1157); -lean::cnstr_set(x_1158, 1, x_1153); -x_14 = x_1158; -goto lbl_15; -} -} -} + x_1156 = x_1155; } +lean::cnstr_set(x_1156, 0, x_1153); +return x_1156; } else { -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; +obj* x_1157; obj* x_1160; obj* x_1162; obj* x_1165; obj* x_1169; +x_1157 = lean::cnstr_get(x_1146, 0); +lean::inc(x_1157); +lean::dec(x_1146); +x_1160 = lean::cnstr_get(x_1157, 0); +lean::inc(x_1160); +x_1162 = lean::cnstr_get(x_1157, 1); +lean::inc(x_1162); +lean::dec(x_1157); +x_1165 = lean::cnstr_get(x_1089, 5); +lean::inc(x_1165); +lean::dec(x_1089); lean::inc(x_1); -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_1164) == 0) +x_1169 = l_lean_elaborator_to__pexpr___main(x_1165, x_1, x_1162); +if (lean::obj_tag(x_1169) == 0) { -obj* x_1169; obj* x_1171; obj* x_1172; +obj* x_1176; obj* x_1178; obj* x_1179; +lean::dec(x_1160); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1169 = lean::cnstr_get(x_1164, 0); -if (lean::is_exclusive(x_1164)) { - x_1171 = x_1164; +lean::dec(x_1115); +lean::dec(x_1138); +x_1176 = lean::cnstr_get(x_1169, 0); +if (lean::is_exclusive(x_1169)) { + x_1178 = x_1169; } else { - lean::inc(x_1169); - lean::dec(x_1164); - x_1171 = lean::box(0); + lean::inc(x_1176); + lean::dec(x_1169); + x_1178 = lean::box(0); } -if (lean::is_scalar(x_1171)) { - x_1172 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1178)) { + x_1179 = lean::alloc_cnstr(0, 1, 0); } else { - x_1172 = x_1171; + x_1179 = x_1178; } -lean::cnstr_set(x_1172, 0, x_1169); -return x_1172; +lean::cnstr_set(x_1179, 0, x_1176); +return x_1179; } else { -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_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_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_1180) == 0) -{ -obj* x_1185; obj* x_1187; obj* x_1188; -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -x_1185 = lean::cnstr_get(x_1180, 0); +obj* x_1180; obj* x_1183; obj* x_1185; obj* x_1187; obj* x_1188; obj* x_1189; obj* x_1190; +x_1180 = lean::cnstr_get(x_1169, 0); +lean::inc(x_1180); +lean::dec(x_1169); +x_1183 = lean::cnstr_get(x_1180, 0); +x_1185 = lean::cnstr_get(x_1180, 1); if (lean::is_exclusive(x_1180)) { x_1187 = x_1180; } else { + lean::inc(x_1183); lean::inc(x_1185); lean::dec(x_1180); x_1187 = lean::box(0); } +x_1188 = l_lean_elaborator_mangle__ident(x_1115); +x_1189 = lean_expr_mk_let(x_1188, x_1138, x_1160, x_1183); if (lean::is_scalar(x_1187)) { - x_1188 = lean::alloc_cnstr(0, 1, 0); + x_1190 = lean::alloc_cnstr(0, 2, 0); } else { - x_1188 = x_1187; + x_1190 = x_1187; +} +lean::cnstr_set(x_1190, 0, x_1189); +lean::cnstr_set(x_1190, 1, x_1185); +x_14 = x_1190; +goto lbl_15; +} +} +} } -lean::cnstr_set(x_1188, 0, x_1185); -return x_1188; } else { -obj* x_1189; -x_1189 = lean::cnstr_get(x_1180, 0); -lean::inc(x_1189); -lean::dec(x_1180); -x_14 = x_1189; +obj* x_1194; obj* x_1196; +lean::dec(x_1095); +lean::dec(x_1092); +lean::dec(x_1089); +x_1194 = l_lean_elaborator_to__pexpr___main___closed__35; +lean::inc(x_1); +x_1196 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1194, x_1, x_2); +lean::dec(x_2); +if (lean::obj_tag(x_1196) == 0) +{ +obj* x_1201; obj* x_1203; obj* x_1204; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1201 = lean::cnstr_get(x_1196, 0); +if (lean::is_exclusive(x_1196)) { + x_1203 = x_1196; +} else { + lean::inc(x_1201); + lean::dec(x_1196); + x_1203 = lean::box(0); +} +if (lean::is_scalar(x_1203)) { + x_1204 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1204 = x_1203; +} +lean::cnstr_set(x_1204, 0, x_1201); +return x_1204; +} +else +{ +obj* x_1205; +x_1205 = lean::cnstr_get(x_1196, 0); +lean::inc(x_1205); +lean::dec(x_1196); +x_14 = x_1205; +goto lbl_15; +} +} +} +else +{ +obj* x_1210; obj* x_1212; +lean::dec(x_1090); +lean::dec(x_1089); +x_1210 = l_lean_elaborator_to__pexpr___main___closed__35; +lean::inc(x_1); +x_1212 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1210, x_1, x_2); +lean::dec(x_2); +if (lean::obj_tag(x_1212) == 0) +{ +obj* x_1217; obj* x_1219; obj* x_1220; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1217 = lean::cnstr_get(x_1212, 0); +if (lean::is_exclusive(x_1212)) { + x_1219 = x_1212; +} else { + lean::inc(x_1217); + lean::dec(x_1212); + x_1219 = lean::box(0); +} +if (lean::is_scalar(x_1219)) { + x_1220 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1220 = x_1219; +} +lean::cnstr_set(x_1220, 0, x_1217); +return x_1220; +} +else +{ +obj* x_1221; +x_1221 = lean::cnstr_get(x_1212, 0); +lean::inc(x_1221); +lean::dec(x_1212); +x_14 = x_1221; goto lbl_15; } } @@ -11459,377 +11572,502 @@ goto lbl_15; } else { -obj* x_1193; obj* x_1194; obj* x_1198; obj* x_1199; obj* x_1202; +obj* x_1225; obj* x_1226; obj* x_1230; obj* x_1231; obj* x_1234; lean::dec(x_9); -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); +x_1225 = l_lean_parser_term_show_has__view; +x_1226 = lean::cnstr_get(x_1225, 0); +lean::inc(x_1226); +lean::dec(x_1225); lean::inc(x_0); -x_1198 = lean::apply_1(x_1194, x_0); -x_1199 = lean::cnstr_get(x_1198, 1); -lean::inc(x_1199); +x_1230 = lean::apply_1(x_1226, x_0); +x_1231 = lean::cnstr_get(x_1230, 1); +lean::inc(x_1231); lean::inc(x_1); -x_1202 = l_lean_elaborator_to__pexpr___main(x_1199, x_1, x_2); -if (lean::obj_tag(x_1202) == 0) +x_1234 = l_lean_elaborator_to__pexpr___main(x_1231, x_1, x_2); +if (lean::obj_tag(x_1234) == 0) { -obj* x_1207; obj* x_1209; obj* x_1210; +obj* x_1239; obj* x_1241; obj* x_1242; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1198); -x_1207 = lean::cnstr_get(x_1202, 0); -if (lean::is_exclusive(x_1202)) { - x_1209 = x_1202; +lean::dec(x_1230); +x_1239 = lean::cnstr_get(x_1234, 0); +if (lean::is_exclusive(x_1234)) { + x_1241 = x_1234; } else { - lean::inc(x_1207); - lean::dec(x_1202); - x_1209 = lean::box(0); + lean::inc(x_1239); + lean::dec(x_1234); + x_1241 = lean::box(0); } -if (lean::is_scalar(x_1209)) { - x_1210 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1241)) { + x_1242 = lean::alloc_cnstr(0, 1, 0); } else { - x_1210 = x_1209; + x_1242 = x_1241; } -lean::cnstr_set(x_1210, 0, x_1207); -return x_1210; +lean::cnstr_set(x_1242, 0, x_1239); +return x_1242; } else { -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); +obj* x_1243; obj* x_1246; obj* x_1248; obj* x_1251; obj* x_1254; obj* x_1258; +x_1243 = lean::cnstr_get(x_1234, 0); +lean::inc(x_1243); +lean::dec(x_1234); +x_1246 = lean::cnstr_get(x_1243, 0); +lean::inc(x_1246); +x_1248 = lean::cnstr_get(x_1243, 1); +lean::inc(x_1248); +lean::dec(x_1243); +x_1251 = lean::cnstr_get(x_1230, 3); +lean::inc(x_1251); +lean::dec(x_1230); +x_1254 = lean::cnstr_get(x_1251, 1); +lean::inc(x_1254); +lean::dec(x_1251); 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) +x_1258 = l_lean_elaborator_to__pexpr___main(x_1254, x_1, x_1248); +if (lean::obj_tag(x_1258) == 0) { -obj* x_1231; obj* x_1233; obj* x_1234; +obj* x_1263; obj* x_1265; obj* x_1266; 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; +lean::dec(x_1246); +x_1263 = lean::cnstr_get(x_1258, 0); +if (lean::is_exclusive(x_1258)) { + x_1265 = x_1258; } else { - lean::inc(x_1231); - lean::dec(x_1226); - x_1233 = lean::box(0); + lean::inc(x_1263); + lean::dec(x_1258); + x_1265 = lean::box(0); } -if (lean::is_scalar(x_1233)) { - x_1234 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1265)) { + x_1266 = lean::alloc_cnstr(0, 1, 0); } else { - x_1234 = x_1233; + x_1266 = x_1265; } -lean::cnstr_set(x_1234, 0, x_1231); -return x_1234; +lean::cnstr_set(x_1266, 0, x_1263); +return x_1266; } 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; -} -} -} -} -else -{ -obj* x_1252; obj* x_1253; obj* x_1257; obj* x_1258; obj* x_1260; obj* x_1263; -lean::dec(x_9); -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_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_1263 = l_lean_elaborator_to__pexpr___main(x_1260, x_1, x_2); -if (lean::obj_tag(x_1263) == 0) -{ -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_1268 = lean::cnstr_get(x_1263, 0); -if (lean::is_exclusive(x_1263)) { - x_1270 = x_1263; -} else { - lean::inc(x_1268); - lean::dec(x_1263); - x_1270 = lean::box(0); -} -if (lean::is_scalar(x_1270)) { - x_1271 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1271 = x_1270; -} -lean::cnstr_set(x_1271, 0, x_1268); -return x_1271; -} -else -{ -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_1283 = l_lean_elaborator_to__pexpr___main(x_1280, x_1, x_1277); -if (lean::obj_tag(x_1283) == 0) -{ -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); -x_1289 = lean::cnstr_get(x_1283, 0); -if (lean::is_exclusive(x_1283)) { - x_1291 = x_1283; -} else { - lean::inc(x_1289); - lean::dec(x_1283); - x_1291 = lean::box(0); -} -if (lean::is_scalar(x_1291)) { - x_1292 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1292 = x_1291; -} -lean::cnstr_set(x_1292, 0, x_1289); -return x_1292; -} -else -{ -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_1296); - lean::inc(x_1298); - lean::dec(x_1293); - x_1300 = lean::box(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_1312 = x_1300; -} -lean::cnstr_set(x_1312, 0, x_1311); -lean::cnstr_set(x_1312, 1, x_1298); -x_1258 = x_1312; -goto lbl_1259; -} -} -lbl_1259: -{ -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_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); +obj* x_1267; obj* x_1270; obj* x_1272; obj* x_1274; obj* x_1275; uint8 x_1276; obj* x_1277; obj* x_1278; obj* x_1279; obj* x_1280; obj* x_1281; obj* x_1282; +x_1267 = lean::cnstr_get(x_1258, 0); +lean::inc(x_1267); 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_1328 = l_lean_elaborator_to__pexpr___main(x_1324, x_1, x_1318); -if (lean::obj_tag(x_1328) == 0) +x_1270 = lean::cnstr_get(x_1267, 0); +x_1272 = lean::cnstr_get(x_1267, 1); +if (lean::is_exclusive(x_1267)) { + x_1274 = x_1267; +} else { + lean::inc(x_1270); + lean::inc(x_1272); + lean::dec(x_1267); + x_1274 = lean::box(0); +} +x_1275 = l_lean_elaborator_to__pexpr___main___closed__36; +x_1276 = 0; +x_1277 = l_lean_elaborator_to__pexpr___main___closed__37; +x_1278 = lean_expr_mk_lambda(x_1275, x_1276, x_1246, x_1277); +x_1279 = lean_expr_mk_app(x_1278, x_1270); +x_1280 = l_lean_elaborator_to__pexpr___main___closed__38; +x_1281 = l_lean_elaborator_expr_mk__annotation(x_1280, x_1279); +if (lean::is_scalar(x_1274)) { + x_1282 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1282 = x_1274; +} +lean::cnstr_set(x_1282, 0, x_1281); +lean::cnstr_set(x_1282, 1, x_1272); +x_14 = x_1282; +goto lbl_15; +} +} +} +} +else { -obj* x_1333; obj* x_1335; obj* x_1336; +obj* x_1284; obj* x_1285; obj* x_1289; obj* x_1290; obj* x_1292; +lean::dec(x_9); +x_1284 = l_lean_parser_term_have_has__view; +x_1285 = lean::cnstr_get(x_1284, 0); +lean::inc(x_1285); +lean::dec(x_1284); +lean::inc(x_0); +x_1289 = lean::apply_1(x_1285, x_0); +x_1292 = lean::cnstr_get(x_1289, 1); +lean::inc(x_1292); +if (lean::obj_tag(x_1292) == 0) +{ +obj* x_1294; obj* x_1296; obj* x_1299; +x_1294 = lean::cnstr_get(x_1289, 2); +lean::inc(x_1294); +x_1296 = lean::cnstr_get(x_1289, 5); +lean::inc(x_1296); +lean::inc(x_1); +x_1299 = l_lean_elaborator_to__pexpr___main(x_1294, x_1, x_2); +if (lean::obj_tag(x_1299) == 0) +{ +obj* x_1305; obj* x_1307; obj* x_1308; +lean::dec(x_1296); +lean::dec(x_1289); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1316); -x_1333 = lean::cnstr_get(x_1328, 0); +x_1305 = lean::cnstr_get(x_1299, 0); +if (lean::is_exclusive(x_1299)) { + x_1307 = x_1299; +} else { + lean::inc(x_1305); + lean::dec(x_1299); + x_1307 = lean::box(0); +} +if (lean::is_scalar(x_1307)) { + x_1308 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1308 = x_1307; +} +lean::cnstr_set(x_1308, 0, x_1305); +return x_1308; +} +else +{ +obj* x_1309; obj* x_1312; obj* x_1314; obj* x_1318; +x_1309 = lean::cnstr_get(x_1299, 0); +lean::inc(x_1309); +lean::dec(x_1299); +x_1312 = lean::cnstr_get(x_1309, 0); +lean::inc(x_1312); +x_1314 = lean::cnstr_get(x_1309, 1); +lean::inc(x_1314); +lean::dec(x_1309); +lean::inc(x_1); +x_1318 = l_lean_elaborator_to__pexpr___main(x_1296, x_1, x_1314); +if (lean::obj_tag(x_1318) == 0) +{ +obj* x_1324; obj* x_1326; obj* x_1327; +lean::dec(x_1289); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1312); +x_1324 = lean::cnstr_get(x_1318, 0); +if (lean::is_exclusive(x_1318)) { + x_1326 = x_1318; +} else { + lean::inc(x_1324); + lean::dec(x_1318); + x_1326 = lean::box(0); +} +if (lean::is_scalar(x_1326)) { + x_1327 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1327 = x_1326; +} +lean::cnstr_set(x_1327, 0, x_1324); +return x_1327; +} +else +{ +obj* x_1328; obj* x_1331; obj* x_1333; obj* x_1335; obj* x_1336; uint8 x_1337; obj* x_1338; obj* x_1339; +x_1328 = lean::cnstr_get(x_1318, 0); +lean::inc(x_1328); +lean::dec(x_1318); +x_1331 = lean::cnstr_get(x_1328, 0); +x_1333 = lean::cnstr_get(x_1328, 1); if (lean::is_exclusive(x_1328)) { x_1335 = x_1328; } else { + lean::inc(x_1331); lean::inc(x_1333); lean::dec(x_1328); x_1335 = lean::box(0); } +x_1336 = l_lean_elaborator_to__pexpr___main___closed__40; +x_1337 = 0; +x_1338 = lean_expr_mk_lambda(x_1336, x_1337, x_1312, x_1331); if (lean::is_scalar(x_1335)) { - x_1336 = lean::alloc_cnstr(0, 1, 0); + x_1339 = lean::alloc_cnstr(0, 2, 0); } else { - x_1336 = x_1335; + x_1339 = x_1335; +} +lean::cnstr_set(x_1339, 0, x_1338); +lean::cnstr_set(x_1339, 1, x_1333); +x_1290 = x_1339; +goto lbl_1291; +} } -lean::cnstr_set(x_1336, 0, x_1333); -return x_1336; } else { -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; +obj* x_1340; obj* x_1342; obj* x_1344; obj* x_1346; obj* x_1348; +x_1340 = lean::cnstr_get(x_1289, 2); +lean::inc(x_1340); +x_1342 = lean::cnstr_get(x_1289, 5); +lean::inc(x_1342); +x_1344 = lean::cnstr_get(x_1292, 0); +if (lean::is_exclusive(x_1292)) { + lean::cnstr_set(x_1292, 0, lean::box(0)); + x_1346 = x_1292; } else { - lean::inc(x_1340); - lean::inc(x_1342); - lean::dec(x_1337); - x_1344 = lean::box(0); + lean::inc(x_1344); + lean::dec(x_1292); + x_1346 = lean::box(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); +lean::inc(x_1); +x_1348 = l_lean_elaborator_to__pexpr___main(x_1340, x_1, x_2); +if (lean::obj_tag(x_1348) == 0) +{ +obj* x_1356; obj* x_1358; obj* x_1359; +lean::dec(x_1289); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1344); +lean::dec(x_1346); +lean::dec(x_1342); +x_1356 = lean::cnstr_get(x_1348, 0); +if (lean::is_exclusive(x_1348)) { + x_1358 = x_1348; } else { - x_1348 = x_1344; + lean::inc(x_1356); + lean::dec(x_1348); + x_1358 = lean::box(0); } -lean::cnstr_set(x_1348, 0, x_1347); -lean::cnstr_set(x_1348, 1, x_1342); -x_14 = x_1348; +if (lean::is_scalar(x_1358)) { + x_1359 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1359 = x_1358; +} +lean::cnstr_set(x_1359, 0, x_1356); +return x_1359; +} +else +{ +obj* x_1360; obj* x_1363; obj* x_1365; obj* x_1369; +x_1360 = lean::cnstr_get(x_1348, 0); +lean::inc(x_1360); +lean::dec(x_1348); +x_1363 = lean::cnstr_get(x_1360, 0); +lean::inc(x_1363); +x_1365 = lean::cnstr_get(x_1360, 1); +lean::inc(x_1365); +lean::dec(x_1360); +lean::inc(x_1); +x_1369 = l_lean_elaborator_to__pexpr___main(x_1342, x_1, x_1365); +if (lean::obj_tag(x_1369) == 0) +{ +obj* x_1377; obj* x_1379; obj* x_1380; +lean::dec(x_1289); +lean::dec(x_1363); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1344); +lean::dec(x_1346); +x_1377 = lean::cnstr_get(x_1369, 0); +if (lean::is_exclusive(x_1369)) { + x_1379 = x_1369; +} else { + lean::inc(x_1377); + lean::dec(x_1369); + x_1379 = lean::box(0); +} +if (lean::is_scalar(x_1379)) { + x_1380 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1380 = x_1379; +} +lean::cnstr_set(x_1380, 0, x_1377); +return x_1380; +} +else +{ +obj* x_1381; obj* x_1384; obj* x_1386; obj* x_1388; obj* x_1389; obj* x_1392; obj* x_1393; obj* x_1394; obj* x_1395; uint8 x_1397; obj* x_1398; obj* x_1399; +x_1381 = lean::cnstr_get(x_1369, 0); +lean::inc(x_1381); +lean::dec(x_1369); +x_1384 = lean::cnstr_get(x_1381, 0); +x_1386 = lean::cnstr_get(x_1381, 1); +if (lean::is_exclusive(x_1381)) { + x_1388 = x_1381; +} else { + lean::inc(x_1384); + lean::inc(x_1386); + lean::dec(x_1381); + x_1388 = lean::box(0); +} +x_1389 = lean::cnstr_get(x_1344, 0); +lean::inc(x_1389); +lean::dec(x_1344); +x_1392 = l_lean_elaborator_mangle__ident(x_1389); +if (lean::is_scalar(x_1346)) { + x_1393 = lean::alloc_cnstr(1, 1, 0); +} else { + x_1393 = x_1346; +} +lean::cnstr_set(x_1393, 0, x_1392); +x_1394 = l_lean_elaborator_to__pexpr___main___closed__36; +x_1395 = l_option_get__or__else___main___rarg(x_1393, x_1394); +lean::dec(x_1393); +x_1397 = 0; +x_1398 = lean_expr_mk_lambda(x_1395, x_1397, x_1363, x_1384); +if (lean::is_scalar(x_1388)) { + x_1399 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1399 = x_1388; +} +lean::cnstr_set(x_1399, 0, x_1398); +lean::cnstr_set(x_1399, 1, x_1386); +x_1290 = x_1399; +goto lbl_1291; +} +} +} +lbl_1291: +{ +obj* x_1400; +x_1400 = lean::cnstr_get(x_1289, 3); +lean::inc(x_1400); +lean::dec(x_1289); +if (lean::obj_tag(x_1400) == 0) +{ +obj* x_1403; obj* x_1405; obj* x_1408; obj* x_1411; obj* x_1415; +x_1403 = lean::cnstr_get(x_1290, 0); +lean::inc(x_1403); +x_1405 = lean::cnstr_get(x_1290, 1); +lean::inc(x_1405); +lean::dec(x_1290); +x_1408 = lean::cnstr_get(x_1400, 0); +lean::inc(x_1408); +lean::dec(x_1400); +x_1411 = lean::cnstr_get(x_1408, 1); +lean::inc(x_1411); +lean::dec(x_1408); +lean::inc(x_1); +x_1415 = l_lean_elaborator_to__pexpr___main(x_1411, x_1, x_1405); +if (lean::obj_tag(x_1415) == 0) +{ +obj* x_1420; obj* x_1422; obj* x_1423; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1403); +x_1420 = lean::cnstr_get(x_1415, 0); +if (lean::is_exclusive(x_1415)) { + x_1422 = x_1415; +} else { + lean::inc(x_1420); + lean::dec(x_1415); + x_1422 = lean::box(0); +} +if (lean::is_scalar(x_1422)) { + x_1423 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1423 = x_1422; +} +lean::cnstr_set(x_1423, 0, x_1420); +return x_1423; +} +else +{ +obj* x_1424; obj* x_1427; obj* x_1429; obj* x_1431; obj* x_1432; obj* x_1433; obj* x_1434; obj* x_1435; +x_1424 = lean::cnstr_get(x_1415, 0); +lean::inc(x_1424); +lean::dec(x_1415); +x_1427 = lean::cnstr_get(x_1424, 0); +x_1429 = lean::cnstr_get(x_1424, 1); +if (lean::is_exclusive(x_1424)) { + x_1431 = x_1424; +} else { + lean::inc(x_1427); + lean::inc(x_1429); + lean::dec(x_1424); + x_1431 = lean::box(0); +} +x_1432 = l_lean_elaborator_to__pexpr___main___closed__39; +x_1433 = l_lean_elaborator_expr_mk__annotation(x_1432, x_1403); +x_1434 = lean_expr_mk_app(x_1433, x_1427); +if (lean::is_scalar(x_1431)) { + x_1435 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1435 = x_1431; +} +lean::cnstr_set(x_1435, 0, x_1434); +lean::cnstr_set(x_1435, 1, x_1429); +x_14 = x_1435; goto lbl_15; } } else { -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); +obj* x_1436; obj* x_1438; obj* x_1441; obj* x_1444; obj* x_1447; obj* x_1451; +x_1436 = lean::cnstr_get(x_1290, 0); +lean::inc(x_1436); +x_1438 = lean::cnstr_get(x_1290, 1); +lean::inc(x_1438); +lean::dec(x_1290); +x_1441 = lean::cnstr_get(x_1400, 0); +lean::inc(x_1441); +lean::dec(x_1400); +x_1444 = lean::cnstr_get(x_1441, 1); +lean::inc(x_1444); +lean::dec(x_1441); +x_1447 = lean::cnstr_get(x_1444, 1); +lean::inc(x_1447); +lean::dec(x_1444); lean::inc(x_1); -x_1364 = l_lean_elaborator_to__pexpr___main(x_1360, x_1, x_1351); -if (lean::obj_tag(x_1364) == 0) +x_1451 = l_lean_elaborator_to__pexpr___main(x_1447, x_1, x_1438); +if (lean::obj_tag(x_1451) == 0) { -obj* x_1369; obj* x_1371; obj* x_1372; +obj* x_1456; obj* x_1458; obj* x_1459; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -lean::dec(x_1349); -x_1369 = lean::cnstr_get(x_1364, 0); -if (lean::is_exclusive(x_1364)) { - x_1371 = x_1364; +lean::dec(x_1436); +x_1456 = lean::cnstr_get(x_1451, 0); +if (lean::is_exclusive(x_1451)) { + x_1458 = x_1451; } else { - lean::inc(x_1369); - lean::dec(x_1364); - x_1371 = lean::box(0); + lean::inc(x_1456); + lean::dec(x_1451); + x_1458 = lean::box(0); } -if (lean::is_scalar(x_1371)) { - x_1372 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1458)) { + x_1459 = lean::alloc_cnstr(0, 1, 0); } else { - x_1372 = x_1371; + x_1459 = x_1458; } -lean::cnstr_set(x_1372, 0, x_1369); -return x_1372; +lean::cnstr_set(x_1459, 0, x_1456); +return x_1459; } else { -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; +obj* x_1460; obj* x_1463; obj* x_1465; obj* x_1467; obj* x_1468; obj* x_1469; obj* x_1470; obj* x_1471; +x_1460 = lean::cnstr_get(x_1451, 0); +lean::inc(x_1460); +lean::dec(x_1451); +x_1463 = lean::cnstr_get(x_1460, 0); +x_1465 = lean::cnstr_get(x_1460, 1); +if (lean::is_exclusive(x_1460)) { + x_1467 = x_1460; } else { - lean::inc(x_1376); - lean::inc(x_1378); - lean::dec(x_1373); - x_1380 = lean::box(0); + lean::inc(x_1463); + lean::inc(x_1465); + lean::dec(x_1460); + x_1467 = lean::box(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); +x_1468 = l_lean_elaborator_to__pexpr___main___closed__39; +x_1469 = l_lean_elaborator_expr_mk__annotation(x_1468, x_1436); +x_1470 = lean_expr_mk_app(x_1469, x_1463); +if (lean::is_scalar(x_1467)) { + x_1471 = lean::alloc_cnstr(0, 2, 0); } else { - x_1384 = x_1380; + x_1471 = x_1467; } -lean::cnstr_set(x_1384, 0, x_1383); -lean::cnstr_set(x_1384, 1, x_1378); -x_14 = x_1384; +lean::cnstr_set(x_1471, 0, x_1470); +lean::cnstr_set(x_1471, 1, x_1465); +x_14 = x_1471; goto lbl_15; } } @@ -11842,760 +12080,589 @@ lean::dec(x_9); lean::dec(x_7); if (x_21 == 0) { -obj* x_1387; -x_1387 = l_lean_parser_syntax_get__pos(x_0); +obj* x_1474; +x_1474 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1387) == 0) -{ -obj* x_1390; obj* x_1391; obj* x_1392; -lean::dec(x_1); -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_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_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); -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); -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_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_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_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_1436 = l_lean_elaborator_to__pexpr___main(x_1434, x_1, x_2); -if (lean::obj_tag(x_1436) == 0) -{ -obj* x_1440; obj* x_1442; obj* x_1443; -lean::dec(x_7); -lean::dec(x_1); -lean::dec(x_0); -x_1440 = lean::cnstr_get(x_1436, 0); -if (lean::is_exclusive(x_1436)) { - x_1442 = x_1436; -} else { - lean::inc(x_1440); - lean::dec(x_1436); - x_1442 = lean::box(0); -} -if (lean::is_scalar(x_1442)) { - x_1443 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1443 = x_1442; -} -lean::cnstr_set(x_1443, 0, x_1440); -return x_1443; -} -else -{ -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_1447); - lean::inc(x_1449); - lean::dec(x_1444); - x_1451 = lean::box(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_1454 = x_1451; -} -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_1456; obj* x_1457; obj* x_1461; obj* x_1462; obj* x_1463; obj* x_1466; obj* x_1468; -lean::dec(x_9); -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_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); -x_1468 = lean::apply_1(x_1463, x_1466); -if (lean::obj_tag(x_1468) == 0) -{ -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); +obj* x_1477; obj* x_1478; obj* x_1479; lean::dec(x_1); -lean::dec(x_0); -x_1478 = lean::cnstr_get(x_1474, 0); -if (lean::is_exclusive(x_1474)) { - x_1480 = x_1474; -} else { - lean::inc(x_1478); - lean::dec(x_1474); - x_1480 = lean::box(0); -} -if (lean::is_scalar(x_1480)) { - x_1481 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1481 = x_1480; -} -lean::cnstr_set(x_1481, 0, x_1478); -return x_1481; +x_1477 = l_lean_elaborator_to__pexpr___main___closed__41; +x_1478 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1478, 0, x_1477); +lean::cnstr_set(x_1478, 1, x_2); +x_1479 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1479, 0, x_1478); +return x_1479; } else { -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); +obj* x_1480; obj* x_1483; obj* x_1486; obj* x_1489; obj* x_1490; obj* x_1491; obj* x_1493; obj* x_1494; obj* x_1495; obj* x_1498; obj* x_1499; obj* x_1500; obj* x_1501; obj* x_1502; obj* x_1503; +x_1480 = lean::cnstr_get(x_1474, 0); +lean::inc(x_1480); 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_1485); - lean::inc(x_1487); - lean::dec(x_1482); - x_1489 = lean::box(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_1491 = x_1489; -} -lean::cnstr_set(x_1491, 0, x_1490); -lean::cnstr_set(x_1491, 1, x_1487); -x_14 = x_1491; -goto lbl_15; +x_1483 = lean::cnstr_get(x_1, 0); +lean::inc(x_1483); +lean::dec(x_1); +x_1486 = lean::cnstr_get(x_1483, 2); +lean::inc(x_1486); +lean::dec(x_1483); +x_1489 = l_lean_file__map_to__position(x_1486, x_1480); +x_1490 = lean::box(0); +x_1491 = lean::cnstr_get(x_1489, 1); +lean::inc(x_1491); +x_1493 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1494 = l_lean_kvmap_set__nat(x_1490, x_1493, x_1491); +x_1495 = lean::cnstr_get(x_1489, 0); +lean::inc(x_1495); +lean::dec(x_1489); +x_1498 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1499 = l_lean_kvmap_set__nat(x_1494, x_1498, x_1495); +x_1500 = l_lean_elaborator_to__pexpr___main___closed__41; +x_1501 = lean_expr_mk_mdata(x_1499, x_1500); +x_1502 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1502, 0, x_1501); +lean::cnstr_set(x_1502, 1, x_2); +x_1503 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1503, 0, x_1502); +return x_1503; } } else { -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_1497 = l_lean_elaborator_to__level___main(x_1493, x_1, x_2); -if (lean::obj_tag(x_1497) == 0) -{ -obj* x_1501; obj* x_1503; obj* x_1504; -lean::dec(x_7); +obj* x_1506; obj* x_1507; obj* x_1508; lean::dec(x_1); lean::dec(x_0); -x_1501 = lean::cnstr_get(x_1497, 0); -if (lean::is_exclusive(x_1497)) { - x_1503 = x_1497; -} else { - lean::inc(x_1501); - lean::dec(x_1497); - x_1503 = lean::box(0); -} -if (lean::is_scalar(x_1503)) { - x_1504 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1504 = x_1503; -} -lean::cnstr_set(x_1504, 0, x_1501); -return x_1504; -} -else -{ -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_1508); - lean::inc(x_1510); - lean::dec(x_1505); - x_1512 = lean::box(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_1515 = x_1512; -} -lean::cnstr_set(x_1515, 0, x_1514); -lean::cnstr_set(x_1515, 1, x_1510); -x_14 = x_1515; -goto lbl_15; -} +x_1506 = l_lean_elaborator_to__pexpr___main___closed__41; +x_1507 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1507, 0, x_1506); +lean::cnstr_set(x_1507, 1, x_2); +x_1508 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1508, 0, x_1507); +return x_1508; } } } else { -obj* x_1518; obj* x_1519; obj* x_1523; +obj* x_1510; obj* x_1511; obj* x_1515; obj* x_1516; obj* x_1519; obj* x_1520; obj* x_1521; obj* x_1523; lean::dec(x_9); -lean::dec(x_7); -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); +x_1510 = l_lean_parser_term_anonymous__constructor_has__view; +x_1511 = lean::cnstr_get(x_1510, 0); +lean::inc(x_1511); +lean::dec(x_1510); lean::inc(x_0); -x_1523 = lean::apply_1(x_1519, x_0); +x_1515 = lean::apply_1(x_1511, x_0); +x_1516 = lean::cnstr_get(x_1515, 1); +lean::inc(x_1516); +lean::dec(x_1515); +x_1519 = l_list_map___main___at_lean_elaborator_to__pexpr___main___spec__21(x_1516); +x_1520 = l_lean_expander_get__opt__type___main___closed__1; +x_1521 = l_list_foldl___main___at_lean_parser_term_mk__app___spec__1(x_1520, x_1519); +lean::inc(x_1); +x_1523 = l_lean_elaborator_to__pexpr___main(x_1521, x_1, x_2); if (lean::obj_tag(x_1523) == 0) { -lean::dec(x_1523); -if (x_21 == 0) -{ -obj* x_1525; -x_1525 = l_lean_parser_syntax_get__pos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1525) == 0) -{ -obj* x_1528; obj* x_1529; obj* x_1530; +obj* x_1527; obj* x_1529; obj* x_1530; +lean::dec(x_7); lean::dec(x_1); -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); +lean::dec(x_0); +x_1527 = lean::cnstr_get(x_1523, 0); +if (lean::is_exclusive(x_1523)) { + x_1529 = x_1523; +} else { + lean::inc(x_1527); + lean::dec(x_1523); + x_1529 = lean::box(0); +} +if (lean::is_scalar(x_1529)) { + x_1530 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1530 = x_1529; +} +lean::cnstr_set(x_1530, 0, x_1527); return x_1530; } else { -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); +obj* x_1531; obj* x_1534; obj* x_1536; obj* x_1538; obj* x_1539; obj* x_1540; obj* x_1541; +x_1531 = lean::cnstr_get(x_1523, 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_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); -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_1557; obj* x_1558; obj* x_1559; -lean::dec(x_1); -lean::dec(x_0); -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_1523); -if (x_21 == 0) +x_1534 = lean::cnstr_get(x_1531, 0); +x_1536 = lean::cnstr_get(x_1531, 1); +if (lean::is_exclusive(x_1531)) { + x_1538 = x_1531; +} else { + lean::inc(x_1534); + lean::inc(x_1536); + lean::dec(x_1531); + x_1538 = lean::box(0); +} +x_1539 = l_lean_elaborator_to__pexpr___main___closed__42; +x_1540 = l_lean_elaborator_expr_mk__annotation(x_1539, x_1534); +if (lean::is_scalar(x_1538)) { + x_1541 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1541 = x_1538; +} +lean::cnstr_set(x_1541, 0, x_1540); +lean::cnstr_set(x_1541, 1, x_1536); +x_14 = x_1541; +goto lbl_15; +} +} +} +else { -obj* x_1561; -x_1561 = l_lean_parser_syntax_get__pos(x_0); -lean::dec(x_0); +obj* x_1543; obj* x_1544; obj* x_1548; obj* x_1549; obj* x_1550; obj* x_1553; obj* x_1555; +lean::dec(x_9); +x_1543 = l_lean_parser_term_sort__app_has__view; +x_1544 = lean::cnstr_get(x_1543, 0); +lean::inc(x_1544); +lean::dec(x_1543); +lean::inc(x_0); +x_1548 = lean::apply_1(x_1544, x_0); +x_1549 = l_lean_parser_term_sort_has__view; +x_1550 = lean::cnstr_get(x_1549, 0); +lean::inc(x_1550); +lean::dec(x_1549); +x_1553 = lean::cnstr_get(x_1548, 0); +lean::inc(x_1553); +x_1555 = lean::apply_1(x_1550, x_1553); +if (lean::obj_tag(x_1555) == 0) +{ +obj* x_1557; obj* x_1561; +lean::dec(x_1555); +x_1557 = lean::cnstr_get(x_1548, 1); +lean::inc(x_1557); +lean::dec(x_1548); +lean::inc(x_1); +x_1561 = l_lean_elaborator_to__level___main(x_1557, x_1, x_2); if (lean::obj_tag(x_1561) == 0) { -obj* x_1564; obj* x_1565; obj* x_1566; -lean::dec(x_1); -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_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_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); -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); -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_1597; obj* x_1598; obj* x_1602; obj* x_1603; -lean::dec(x_9); -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_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_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_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_1609) == 0) -{ -obj* x_1614; obj* x_1616; obj* x_1617; +obj* x_1565; obj* x_1567; obj* x_1568; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1614 = lean::cnstr_get(x_1609, 0); -if (lean::is_exclusive(x_1609)) { - x_1616 = x_1609; +x_1565 = lean::cnstr_get(x_1561, 0); +if (lean::is_exclusive(x_1561)) { + x_1567 = x_1561; } else { - lean::inc(x_1614); - lean::dec(x_1609); - x_1616 = lean::box(0); + lean::inc(x_1565); + lean::dec(x_1561); + x_1567 = lean::box(0); } -if (lean::is_scalar(x_1616)) { - x_1617 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1567)) { + x_1568 = lean::alloc_cnstr(0, 1, 0); } else { - x_1617 = x_1616; + x_1568 = x_1567; } -lean::cnstr_set(x_1617, 0, x_1614); +lean::cnstr_set(x_1568, 0, x_1565); +return x_1568; +} +else +{ +obj* x_1569; obj* x_1572; obj* x_1574; obj* x_1576; obj* x_1577; obj* x_1578; +x_1569 = lean::cnstr_get(x_1561, 0); +lean::inc(x_1569); +lean::dec(x_1561); +x_1572 = lean::cnstr_get(x_1569, 0); +x_1574 = lean::cnstr_get(x_1569, 1); +if (lean::is_exclusive(x_1569)) { + x_1576 = x_1569; +} else { + lean::inc(x_1572); + lean::inc(x_1574); + lean::dec(x_1569); + x_1576 = lean::box(0); +} +x_1577 = lean_expr_mk_sort(x_1572); +if (lean::is_scalar(x_1576)) { + x_1578 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1578 = x_1576; +} +lean::cnstr_set(x_1578, 0, x_1577); +lean::cnstr_set(x_1578, 1, x_1574); +x_14 = x_1578; +goto lbl_15; +} +} +else +{ +obj* x_1580; obj* x_1584; +lean::dec(x_1555); +x_1580 = lean::cnstr_get(x_1548, 1); +lean::inc(x_1580); +lean::dec(x_1548); +lean::inc(x_1); +x_1584 = l_lean_elaborator_to__level___main(x_1580, x_1, x_2); +if (lean::obj_tag(x_1584) == 0) +{ +obj* x_1588; obj* x_1590; obj* x_1591; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1588 = lean::cnstr_get(x_1584, 0); +if (lean::is_exclusive(x_1584)) { + x_1590 = x_1584; +} else { + lean::inc(x_1588); + lean::dec(x_1584); + x_1590 = lean::box(0); +} +if (lean::is_scalar(x_1590)) { + x_1591 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1591 = x_1590; +} +lean::cnstr_set(x_1591, 0, x_1588); +return x_1591; +} +else +{ +obj* x_1592; obj* x_1595; obj* x_1597; obj* x_1599; obj* x_1600; obj* x_1601; obj* x_1602; +x_1592 = lean::cnstr_get(x_1584, 0); +lean::inc(x_1592); +lean::dec(x_1584); +x_1595 = lean::cnstr_get(x_1592, 0); +x_1597 = lean::cnstr_get(x_1592, 1); +if (lean::is_exclusive(x_1592)) { + x_1599 = x_1592; +} else { + lean::inc(x_1595); + lean::inc(x_1597); + lean::dec(x_1592); + x_1599 = lean::box(0); +} +x_1600 = level_mk_succ(x_1595); +x_1601 = lean_expr_mk_sort(x_1600); +if (lean::is_scalar(x_1599)) { + x_1602 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1602 = x_1599; +} +lean::cnstr_set(x_1602, 0, x_1601); +lean::cnstr_set(x_1602, 1, x_1597); +x_14 = x_1602; +goto lbl_15; +} +} +} +} +else +{ +obj* x_1605; obj* x_1606; obj* x_1610; +lean::dec(x_9); +lean::dec(x_7); +x_1605 = l_lean_parser_term_sort_has__view; +x_1606 = lean::cnstr_get(x_1605, 0); +lean::inc(x_1606); +lean::dec(x_1605); +lean::inc(x_0); +x_1610 = lean::apply_1(x_1606, x_0); +if (lean::obj_tag(x_1610) == 0) +{ +lean::dec(x_1610); +if (x_21 == 0) +{ +obj* x_1612; +x_1612 = l_lean_parser_syntax_get__pos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1612) == 0) +{ +obj* x_1615; obj* x_1616; obj* x_1617; +lean::dec(x_1); +x_1615 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; +x_1616 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1616, 0, x_1615); +lean::cnstr_set(x_1616, 1, x_2); +x_1617 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1617, 0, x_1616); return x_1617; } else { -obj* x_1618; -x_1618 = lean::cnstr_get(x_1609, 0); +obj* x_1618; obj* x_1621; obj* x_1624; obj* x_1627; obj* x_1628; obj* x_1629; obj* x_1631; obj* x_1632; obj* x_1633; obj* x_1636; obj* x_1637; obj* x_1638; obj* x_1639; obj* x_1640; obj* x_1641; +x_1618 = lean::cnstr_get(x_1612, 0); lean::inc(x_1618); -lean::dec(x_1609); -x_14 = x_1618; -goto lbl_15; +lean::dec(x_1612); +x_1621 = lean::cnstr_get(x_1, 0); +lean::inc(x_1621); +lean::dec(x_1); +x_1624 = lean::cnstr_get(x_1621, 2); +lean::inc(x_1624); +lean::dec(x_1621); +x_1627 = l_lean_file__map_to__position(x_1624, x_1618); +x_1628 = lean::box(0); +x_1629 = lean::cnstr_get(x_1627, 1); +lean::inc(x_1629); +x_1631 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1632 = l_lean_kvmap_set__nat(x_1628, x_1631, x_1629); +x_1633 = lean::cnstr_get(x_1627, 0); +lean::inc(x_1633); +lean::dec(x_1627); +x_1636 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1637 = l_lean_kvmap_set__nat(x_1632, x_1636, x_1633); +x_1638 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; +x_1639 = lean_expr_mk_mdata(x_1637, x_1638); +x_1640 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1640, 0, x_1639); +lean::cnstr_set(x_1640, 1, x_2); +x_1641 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1641, 0, x_1640); +return x_1641; } } else { -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); -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_1636 = l_lean_elaborator_to__pexpr___main(x_1632, x_1, x_2); -if (lean::obj_tag(x_1636) == 0) -{ -obj* x_1643; obj* x_1645; obj* x_1646; -lean::dec(x_7); +obj* x_1644; obj* x_1645; obj* x_1646; lean::dec(x_1); lean::dec(x_0); -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_1643); - lean::dec(x_1636); - x_1645 = lean::box(0); -} -if (lean::is_scalar(x_1645)) { - x_1646 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1646 = x_1645; -} -lean::cnstr_set(x_1646, 0, x_1643); +x_1644 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__9___closed__1; +x_1645 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1645, 0, x_1644); +lean::cnstr_set(x_1645, 1, x_2); +x_1646 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1646, 0, x_1645); return x_1646; } +} else { -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_1659 = l_lean_elaborator_to__pexpr___main(x_1655, x_1, x_1652); -if (lean::obj_tag(x_1659) == 0) +lean::dec(x_1610); +if (x_21 == 0) { -obj* x_1666; obj* x_1668; obj* x_1669; -lean::dec(x_7); +obj* x_1648; +x_1648 = l_lean_parser_syntax_get__pos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1648) == 0) +{ +obj* x_1651; obj* x_1652; obj* x_1653; +lean::dec(x_1); +x_1651 = l_lean_elaborator_to__pexpr___main___closed__43; +x_1652 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1652, 0, x_1651); +lean::cnstr_set(x_1652, 1, x_2); +x_1653 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1653, 0, x_1652); +return x_1653; +} +else +{ +obj* x_1654; obj* x_1657; obj* x_1660; obj* x_1663; obj* x_1664; obj* x_1665; obj* x_1667; obj* x_1668; obj* x_1669; obj* x_1672; obj* x_1673; obj* x_1674; obj* x_1675; obj* x_1676; obj* x_1677; +x_1654 = lean::cnstr_get(x_1648, 0); +lean::inc(x_1654); +lean::dec(x_1648); +x_1657 = lean::cnstr_get(x_1, 0); +lean::inc(x_1657); +lean::dec(x_1); +x_1660 = lean::cnstr_get(x_1657, 2); +lean::inc(x_1660); +lean::dec(x_1657); +x_1663 = l_lean_file__map_to__position(x_1660, x_1654); +x_1664 = lean::box(0); +x_1665 = lean::cnstr_get(x_1663, 1); +lean::inc(x_1665); +x_1667 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1668 = l_lean_kvmap_set__nat(x_1664, x_1667, x_1665); +x_1669 = lean::cnstr_get(x_1663, 0); +lean::inc(x_1669); +lean::dec(x_1663); +x_1672 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1673 = l_lean_kvmap_set__nat(x_1668, x_1672, x_1669); +x_1674 = l_lean_elaborator_to__pexpr___main___closed__43; +x_1675 = lean_expr_mk_mdata(x_1673, x_1674); +x_1676 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1676, 0, x_1675); +lean::cnstr_set(x_1676, 1, x_2); +x_1677 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1677, 0, x_1676); +return x_1677; +} +} +else +{ +obj* x_1680; obj* x_1681; obj* x_1682; lean::dec(x_1); lean::dec(x_0); -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_1666); - lean::dec(x_1659); - x_1668 = lean::box(0); -} -if (lean::is_scalar(x_1668)) { - x_1669 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1669 = x_1668; -} -lean::cnstr_set(x_1669, 0, x_1666); -return x_1669; -} -else -{ -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_1673); - lean::inc(x_1675); - lean::dec(x_1670); - x_1677 = lean::box(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_1681 = x_1677; -} +x_1680 = l_lean_elaborator_to__pexpr___main___closed__43; +x_1681 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_1681, 0, x_1680); -lean::cnstr_set(x_1681, 1, x_1675); -x_14 = x_1681; -goto lbl_15; -} +lean::cnstr_set(x_1681, 1, x_2); +x_1682 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1682, 0, x_1681); +return x_1682; } } } } else { -obj* x_1683; obj* x_1684; obj* x_1688; obj* x_1689; +obj* x_1684; obj* x_1685; obj* x_1689; obj* x_1690; lean::dec(x_9); -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); +x_1684 = l_lean_parser_term_pi_has__view; +x_1685 = lean::cnstr_get(x_1684, 0); +lean::inc(x_1685); +lean::dec(x_1684); lean::inc(x_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) +x_1689 = lean::apply_1(x_1685, x_0); +x_1690 = lean::cnstr_get(x_1689, 1); +lean::inc(x_1690); +if (lean::obj_tag(x_1690) == 0) { -obj* x_1693; obj* x_1695; +obj* x_1694; obj* x_1696; +lean::dec(x_1690); lean::dec(x_1689); -lean::dec(x_1688); -x_1693 = l_lean_elaborator_to__pexpr___main___closed__46; +x_1694 = l_lean_elaborator_to__pexpr___main___closed__44; lean::inc(x_1); -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); +x_1696 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1694, x_1, x_2); lean::dec(x_2); -if (lean::obj_tag(x_1695) == 0) +if (lean::obj_tag(x_1696) == 0) { -obj* x_1700; obj* x_1702; obj* x_1703; +obj* x_1701; obj* x_1703; obj* x_1704; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1700 = lean::cnstr_get(x_1695, 0); -if (lean::is_exclusive(x_1695)) { - x_1702 = x_1695; +x_1701 = lean::cnstr_get(x_1696, 0); +if (lean::is_exclusive(x_1696)) { + x_1703 = x_1696; } else { - lean::inc(x_1700); - lean::dec(x_1695); - x_1702 = lean::box(0); + lean::inc(x_1701); + lean::dec(x_1696); + x_1703 = lean::box(0); } -if (lean::is_scalar(x_1702)) { - x_1703 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1703)) { + x_1704 = lean::alloc_cnstr(0, 1, 0); } else { - x_1703 = x_1702; + x_1704 = x_1703; } -lean::cnstr_set(x_1703, 0, x_1700); -return x_1703; +lean::cnstr_set(x_1704, 0, x_1701); +return x_1704; } else { -obj* x_1704; -x_1704 = lean::cnstr_get(x_1695, 0); -lean::inc(x_1704); -lean::dec(x_1695); -x_14 = x_1704; +obj* x_1705; +x_1705 = lean::cnstr_get(x_1696, 0); +lean::inc(x_1705); +lean::dec(x_1696); +x_14 = x_1705; goto lbl_15; } } else { -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); -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); +obj* x_1708; obj* x_1711; obj* x_1712; obj* x_1714; obj* x_1717; obj* x_1719; obj* x_1723; +x_1708 = lean::cnstr_get(x_1690, 0); +lean::inc(x_1708); +lean::dec(x_1690); +x_1711 = l_lean_parser_term_simple__binder_view_to__binder__info___main(x_1708); +x_1712 = lean::cnstr_get(x_1711, 1); +lean::inc(x_1712); +x_1714 = lean::cnstr_get(x_1711, 0); +lean::inc(x_1714); lean::dec(x_1711); +x_1717 = lean::cnstr_get(x_1712, 0); +lean::inc(x_1717); +x_1719 = lean::cnstr_get(x_1712, 1); +lean::inc(x_1719); +lean::dec(x_1712); lean::inc(x_1); -x_1722 = l_lean_elaborator_to__pexpr___main(x_1718, x_1, x_2); -if (lean::obj_tag(x_1722) == 0) +x_1723 = l_lean_elaborator_to__pexpr___main(x_1719, x_1, x_2); +if (lean::obj_tag(x_1723) == 0) { -obj* x_1729; obj* x_1731; obj* x_1732; +obj* x_1730; obj* x_1732; obj* x_1733; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -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; +lean::dec(x_1717); +lean::dec(x_1714); +lean::dec(x_1689); +x_1730 = lean::cnstr_get(x_1723, 0); +if (lean::is_exclusive(x_1723)) { + x_1732 = x_1723; } else { - lean::inc(x_1729); - lean::dec(x_1722); - x_1731 = lean::box(0); + lean::inc(x_1730); + lean::dec(x_1723); + x_1732 = lean::box(0); } -if (lean::is_scalar(x_1731)) { - x_1732 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1732)) { + x_1733 = lean::alloc_cnstr(0, 1, 0); } else { - x_1732 = x_1731; + x_1733 = x_1732; } -lean::cnstr_set(x_1732, 0, x_1729); -return x_1732; +lean::cnstr_set(x_1733, 0, x_1730); +return x_1733; } else { -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); +obj* x_1734; obj* x_1737; obj* x_1739; obj* x_1742; obj* x_1746; +x_1734 = lean::cnstr_get(x_1723, 0); +lean::inc(x_1734); +lean::dec(x_1723); +x_1737 = lean::cnstr_get(x_1734, 0); +lean::inc(x_1737); +x_1739 = lean::cnstr_get(x_1734, 1); +lean::inc(x_1739); +lean::dec(x_1734); +x_1742 = lean::cnstr_get(x_1689, 3); +lean::inc(x_1742); +lean::dec(x_1689); lean::inc(x_1); -x_1745 = l_lean_elaborator_to__pexpr___main(x_1741, x_1, x_1738); -if (lean::obj_tag(x_1745) == 0) +x_1746 = l_lean_elaborator_to__pexpr___main(x_1742, x_1, x_1739); +if (lean::obj_tag(x_1746) == 0) { -obj* x_1752; obj* x_1754; obj* x_1755; -lean::dec(x_1736); +obj* x_1753; obj* x_1755; obj* x_1756; +lean::dec(x_1737); lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -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; +lean::dec(x_1717); +lean::dec(x_1714); +x_1753 = lean::cnstr_get(x_1746, 0); +if (lean::is_exclusive(x_1746)) { + x_1755 = x_1746; } else { - lean::inc(x_1752); - lean::dec(x_1745); - x_1754 = lean::box(0); + lean::inc(x_1753); + lean::dec(x_1746); + x_1755 = lean::box(0); } -if (lean::is_scalar(x_1754)) { - x_1755 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1755)) { + x_1756 = lean::alloc_cnstr(0, 1, 0); } else { - x_1755 = x_1754; + x_1756 = x_1755; } -lean::cnstr_set(x_1755, 0, x_1752); -return x_1755; +lean::cnstr_set(x_1756, 0, x_1753); +return x_1756; } else { -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; +obj* x_1757; obj* x_1760; obj* x_1762; obj* x_1764; obj* x_1765; uint8 x_1766; obj* x_1767; obj* x_1768; +x_1757 = lean::cnstr_get(x_1746, 0); +lean::inc(x_1757); +lean::dec(x_1746); +x_1760 = lean::cnstr_get(x_1757, 0); +x_1762 = lean::cnstr_get(x_1757, 1); +if (lean::is_exclusive(x_1757)) { + x_1764 = x_1757; } else { - lean::inc(x_1759); - lean::inc(x_1761); - lean::dec(x_1756); - x_1763 = lean::box(0); + lean::inc(x_1760); + lean::inc(x_1762); + lean::dec(x_1757); + x_1764 = lean::box(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); +x_1765 = l_lean_elaborator_mangle__ident(x_1717); +x_1766 = lean::unbox(x_1714); +x_1767 = lean_expr_mk_pi(x_1765, x_1766, x_1737, x_1760); +if (lean::is_scalar(x_1764)) { + x_1768 = lean::alloc_cnstr(0, 2, 0); } else { - x_1767 = x_1763; + x_1768 = x_1764; } -lean::cnstr_set(x_1767, 0, x_1766); -lean::cnstr_set(x_1767, 1, x_1761); -x_14 = x_1767; +lean::cnstr_set(x_1768, 0, x_1767); +lean::cnstr_set(x_1768, 1, x_1762); +x_14 = x_1768; goto lbl_15; } } @@ -12604,224 +12671,235 @@ goto lbl_15; } else { -obj* x_1769; obj* x_1770; obj* x_1774; obj* x_1775; obj* x_1778; +obj* x_1770; obj* x_1771; obj* x_1775; obj* x_1776; lean::dec(x_9); -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); +x_1770 = l_lean_parser_term_lambda_has__view; +x_1771 = lean::cnstr_get(x_1770, 0); +lean::inc(x_1771); +lean::dec(x_1770); lean::inc(x_0); -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_1778 = l_lean_elaborator_to__pexpr___main(x_1775, x_1, x_2); -if (lean::obj_tag(x_1778) == 0) +x_1775 = lean::apply_1(x_1771, x_0); +x_1776 = lean::cnstr_get(x_1775, 1); +lean::inc(x_1776); +if (lean::obj_tag(x_1776) == 0) { -obj* x_1783; obj* x_1785; obj* x_1786; -lean::dec(x_1774); +obj* x_1780; obj* x_1782; +lean::dec(x_1776); +lean::dec(x_1775); +x_1780 = l_lean_elaborator_to__pexpr___main___closed__45; +lean::inc(x_1); +x_1782 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_1780, x_1, x_2); +lean::dec(x_2); +if (lean::obj_tag(x_1782) == 0) +{ +obj* x_1787; obj* x_1789; obj* x_1790; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1783 = lean::cnstr_get(x_1778, 0); -if (lean::is_exclusive(x_1778)) { - x_1785 = x_1778; +x_1787 = lean::cnstr_get(x_1782, 0); +if (lean::is_exclusive(x_1782)) { + x_1789 = x_1782; } else { - lean::inc(x_1783); - lean::dec(x_1778); - x_1785 = lean::box(0); + lean::inc(x_1787); + lean::dec(x_1782); + x_1789 = lean::box(0); } -if (lean::is_scalar(x_1785)) { - x_1786 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_1789)) { + x_1790 = lean::alloc_cnstr(0, 1, 0); } else { - x_1786 = x_1785; + x_1790 = x_1789; } -lean::cnstr_set(x_1786, 0, x_1783); -return x_1786; +lean::cnstr_set(x_1790, 0, x_1787); +return x_1790; } else { -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_1804); - lean::dec(x_1799); - x_1806 = lean::box(0); -} -if (lean::is_scalar(x_1806)) { - x_1807 = lean::alloc_cnstr(0, 1, 0); -} else { - x_1807 = x_1806; -} -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; +obj* x_1791; +x_1791 = lean::cnstr_get(x_1782, 0); +lean::inc(x_1791); +lean::dec(x_1782); +x_14 = x_1791; goto lbl_15; } } +else +{ +obj* x_1794; obj* x_1797; obj* x_1798; obj* x_1800; obj* x_1803; obj* x_1805; obj* x_1809; +x_1794 = lean::cnstr_get(x_1776, 0); +lean::inc(x_1794); +lean::dec(x_1776); +x_1797 = l_lean_parser_term_simple__binder_view_to__binder__info___main(x_1794); +x_1798 = lean::cnstr_get(x_1797, 1); +lean::inc(x_1798); +x_1800 = lean::cnstr_get(x_1797, 0); +lean::inc(x_1800); +lean::dec(x_1797); +x_1803 = lean::cnstr_get(x_1798, 0); +lean::inc(x_1803); +x_1805 = lean::cnstr_get(x_1798, 1); +lean::inc(x_1805); +lean::dec(x_1798); +lean::inc(x_1); +x_1809 = l_lean_elaborator_to__pexpr___main(x_1805, x_1, x_2); +if (lean::obj_tag(x_1809) == 0) +{ +obj* x_1816; obj* x_1818; obj* x_1819; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1800); +lean::dec(x_1803); +lean::dec(x_1775); +x_1816 = lean::cnstr_get(x_1809, 0); +if (lean::is_exclusive(x_1809)) { + x_1818 = x_1809; +} else { + lean::inc(x_1816); + lean::dec(x_1809); + x_1818 = lean::box(0); } +if (lean::is_scalar(x_1818)) { + x_1819 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1819 = x_1818; +} +lean::cnstr_set(x_1819, 0, x_1816); +return x_1819; } else { -obj* x_1819; obj* x_1820; obj* x_1824; obj* x_1825; -lean::dec(x_9); -x_1819 = l_lean_parser_ident__univs_has__view; -x_1820 = lean::cnstr_get(x_1819, 0); +obj* x_1820; obj* x_1823; obj* x_1825; obj* x_1828; obj* x_1832; +x_1820 = lean::cnstr_get(x_1809, 0); lean::inc(x_1820); -lean::dec(x_1819); -lean::inc(x_0); -x_1824 = lean::apply_1(x_1820, x_0); -x_1825 = lean::cnstr_get(x_1824, 1); +lean::dec(x_1809); +x_1823 = lean::cnstr_get(x_1820, 0); +lean::inc(x_1823); +x_1825 = lean::cnstr_get(x_1820, 1); lean::inc(x_1825); -if (lean::obj_tag(x_1825) == 0) -{ -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_1843 == 0) -{ -obj* x_1845; -x_1845 = l_lean_parser_syntax_get__pos(x_0); -lean::dec(x_0); -if (lean::obj_tag(x_1845) == 0) -{ -obj* x_1848; obj* x_1849; -lean::dec(x_1); -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_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_1856 = lean::cnstr_get(x_1853, 2); -lean::inc(x_1856); -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); -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_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); -return x_1871; -} -} -else -{ -obj* x_1874; obj* x_1875; -lean::dec(x_1); -lean::dec(x_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; -} -} -else -{ -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::dec(x_1820); +x_1828 = lean::cnstr_get(x_1775, 3); +lean::inc(x_1828); +lean::dec(x_1775); lean::inc(x_1); -x_1886 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__23(x_1882, x_1, x_2); +x_1832 = l_lean_elaborator_to__pexpr___main(x_1828, x_1, x_1825); +if (lean::obj_tag(x_1832) == 0) +{ +obj* x_1839; obj* x_1841; obj* x_1842; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1823); +lean::dec(x_1800); +lean::dec(x_1803); +x_1839 = lean::cnstr_get(x_1832, 0); +if (lean::is_exclusive(x_1832)) { + x_1841 = x_1832; +} else { + lean::inc(x_1839); + lean::dec(x_1832); + x_1841 = lean::box(0); +} +if (lean::is_scalar(x_1841)) { + x_1842 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1842 = x_1841; +} +lean::cnstr_set(x_1842, 0, x_1839); +return x_1842; +} +else +{ +obj* x_1843; obj* x_1846; obj* x_1848; obj* x_1850; obj* x_1851; uint8 x_1852; obj* x_1853; obj* x_1854; +x_1843 = lean::cnstr_get(x_1832, 0); +lean::inc(x_1843); +lean::dec(x_1832); +x_1846 = lean::cnstr_get(x_1843, 0); +x_1848 = lean::cnstr_get(x_1843, 1); +if (lean::is_exclusive(x_1843)) { + x_1850 = x_1843; +} else { + lean::inc(x_1846); + lean::inc(x_1848); + lean::dec(x_1843); + x_1850 = lean::box(0); +} +x_1851 = l_lean_elaborator_mangle__ident(x_1803); +x_1852 = lean::unbox(x_1800); +x_1853 = lean_expr_mk_lambda(x_1851, x_1852, x_1823, x_1846); +if (lean::is_scalar(x_1850)) { + x_1854 = lean::alloc_cnstr(0, 2, 0); +} else { + x_1854 = x_1850; +} +lean::cnstr_set(x_1854, 0, x_1853); +lean::cnstr_set(x_1854, 1, x_1848); +x_14 = x_1854; +goto lbl_15; +} +} +} +} +} +else +{ +obj* x_1856; obj* x_1857; obj* x_1861; obj* x_1862; obj* x_1865; +lean::dec(x_9); +x_1856 = l_lean_parser_term_app_has__view; +x_1857 = lean::cnstr_get(x_1856, 0); +lean::inc(x_1857); +lean::dec(x_1856); +lean::inc(x_0); +x_1861 = lean::apply_1(x_1857, x_0); +x_1862 = lean::cnstr_get(x_1861, 0); +lean::inc(x_1862); +lean::inc(x_1); +x_1865 = l_lean_elaborator_to__pexpr___main(x_1862, x_1, x_2); +if (lean::obj_tag(x_1865) == 0) +{ +obj* x_1870; obj* x_1872; obj* x_1873; +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +lean::dec(x_1861); +x_1870 = lean::cnstr_get(x_1865, 0); +if (lean::is_exclusive(x_1865)) { + x_1872 = x_1865; +} else { + lean::inc(x_1870); + lean::dec(x_1865); + x_1872 = lean::box(0); +} +if (lean::is_scalar(x_1872)) { + x_1873 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1873 = x_1872; +} +lean::cnstr_set(x_1873, 0, x_1870); +return x_1873; +} +else +{ +obj* x_1874; obj* x_1877; obj* x_1879; obj* x_1882; obj* x_1886; +x_1874 = lean::cnstr_get(x_1865, 0); +lean::inc(x_1874); +lean::dec(x_1865); +x_1877 = lean::cnstr_get(x_1874, 0); +lean::inc(x_1877); +x_1879 = lean::cnstr_get(x_1874, 1); +lean::inc(x_1879); +lean::dec(x_1874); +x_1882 = lean::cnstr_get(x_1861, 1); +lean::inc(x_1882); +lean::dec(x_1861); +lean::inc(x_1); +x_1886 = l_lean_elaborator_to__pexpr___main(x_1882, x_1, x_1879); 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); +lean::dec(x_1877); x_1891 = lean::cnstr_get(x_1886, 0); if (lean::is_exclusive(x_1886)) { x_1893 = x_1886; @@ -12840,7 +12918,7 @@ 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; +obj* x_1895; obj* x_1898; obj* x_1900; obj* x_1902; obj* x_1903; obj* x_1904; x_1895 = lean::cnstr_get(x_1886, 0); lean::inc(x_1895); lean::dec(x_1886); @@ -12854,25 +12932,185 @@ if (lean::is_exclusive(x_1895)) { 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); +x_1903 = lean_expr_mk_app(x_1877, x_1898); if (lean::is_scalar(x_1902)) { - x_1914 = lean::alloc_cnstr(0, 2, 0); + x_1904 = lean::alloc_cnstr(0, 2, 0); } else { - x_1914 = x_1902; + x_1904 = x_1902; } -lean::cnstr_set(x_1914, 0, x_1913); -lean::cnstr_set(x_1914, 1, x_1900); -x_14 = x_1914; +lean::cnstr_set(x_1904, 0, x_1903); +lean::cnstr_set(x_1904, 1, x_1900); +x_14 = x_1904; +goto lbl_15; +} +} +} +} +else +{ +obj* x_1906; obj* x_1907; obj* x_1911; obj* x_1912; +lean::dec(x_9); +x_1906 = l_lean_parser_ident__univs_has__view; +x_1907 = lean::cnstr_get(x_1906, 0); +lean::inc(x_1907); +lean::dec(x_1906); +lean::inc(x_0); +x_1911 = lean::apply_1(x_1907, x_0); +x_1912 = lean::cnstr_get(x_1911, 1); +lean::inc(x_1912); +if (lean::obj_tag(x_1912) == 0) +{ +obj* x_1914; obj* x_1918; obj* x_1919; obj* x_1920; obj* x_1921; obj* x_1924; obj* x_1925; obj* x_1926; obj* x_1927; obj* x_1928; obj* x_1929; uint8 x_1930; +x_1914 = lean::cnstr_get(x_1911, 0); +lean::inc(x_1914); +lean::dec(x_1911); +lean::inc(x_1914); +x_1918 = l_lean_elaborator_mangle__ident(x_1914); +x_1919 = lean::box(0); +x_1920 = lean_expr_mk_const(x_1918, x_1919); +x_1921 = lean::cnstr_get(x_1914, 3); +lean::inc(x_1921); +lean::dec(x_1914); +x_1924 = lean::mk_nat_obj(0u); +x_1925 = l_list_enum__from___main___rarg(x_1924, x_1921); +x_1926 = l_lean_elaborator_to__pexpr___main___closed__46; +x_1927 = l_list_foldl___main___at_lean_elaborator_to__pexpr___main___spec__22(x_1926, x_1925); +x_1928 = lean_expr_mk_mdata(x_1927, x_1920); +x_1929 = l_lean_elaborator_to__pexpr___main___closed__2; +x_1930 = lean_name_dec_eq(x_7, x_1929); +lean::dec(x_7); +if (x_1930 == 0) +{ +obj* x_1932; +x_1932 = l_lean_parser_syntax_get__pos(x_0); +lean::dec(x_0); +if (lean::obj_tag(x_1932) == 0) +{ +obj* x_1935; obj* x_1936; +lean::dec(x_1); +x_1935 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1935, 0, x_1928); +lean::cnstr_set(x_1935, 1, x_2); +x_1936 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1936, 0, x_1935); +return x_1936; +} +else +{ +obj* x_1937; obj* x_1940; obj* x_1943; obj* x_1946; obj* x_1947; obj* x_1949; obj* x_1950; obj* x_1951; obj* x_1954; obj* x_1955; obj* x_1956; obj* x_1957; obj* x_1958; +x_1937 = lean::cnstr_get(x_1932, 0); +lean::inc(x_1937); +lean::dec(x_1932); +x_1940 = lean::cnstr_get(x_1, 0); +lean::inc(x_1940); +lean::dec(x_1); +x_1943 = lean::cnstr_get(x_1940, 2); +lean::inc(x_1943); +lean::dec(x_1940); +x_1946 = l_lean_file__map_to__position(x_1943, x_1937); +x_1947 = lean::cnstr_get(x_1946, 1); +lean::inc(x_1947); +x_1949 = l_lean_elaborator_to__pexpr___main___closed__3; +x_1950 = l_lean_kvmap_set__nat(x_1919, x_1949, x_1947); +x_1951 = lean::cnstr_get(x_1946, 0); +lean::inc(x_1951); +lean::dec(x_1946); +x_1954 = l_lean_elaborator_to__pexpr___main___closed__4; +x_1955 = l_lean_kvmap_set__nat(x_1950, x_1954, x_1951); +x_1956 = lean_expr_mk_mdata(x_1955, x_1928); +x_1957 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1957, 0, x_1956); +lean::cnstr_set(x_1957, 1, x_2); +x_1958 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1958, 0, x_1957); +return x_1958; +} +} +else +{ +obj* x_1961; obj* x_1962; +lean::dec(x_1); +lean::dec(x_0); +x_1961 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_1961, 0, x_1928); +lean::cnstr_set(x_1961, 1, x_2); +x_1962 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_1962, 0, x_1961); +return x_1962; +} +} +else +{ +obj* x_1963; obj* x_1966; obj* x_1969; obj* x_1973; +x_1963 = lean::cnstr_get(x_1911, 0); +lean::inc(x_1963); +lean::dec(x_1911); +x_1966 = lean::cnstr_get(x_1912, 0); +lean::inc(x_1966); +lean::dec(x_1912); +x_1969 = lean::cnstr_get(x_1966, 1); +lean::inc(x_1969); +lean::dec(x_1966); +lean::inc(x_1); +x_1973 = l_list_mmap___main___at_lean_elaborator_to__pexpr___main___spec__23(x_1969, x_1, x_2); +if (lean::obj_tag(x_1973) == 0) +{ +obj* x_1978; obj* x_1980; obj* x_1981; +lean::dec(x_1963); +lean::dec(x_7); +lean::dec(x_1); +lean::dec(x_0); +x_1978 = lean::cnstr_get(x_1973, 0); +if (lean::is_exclusive(x_1973)) { + x_1980 = x_1973; +} else { + lean::inc(x_1978); + lean::dec(x_1973); + x_1980 = lean::box(0); +} +if (lean::is_scalar(x_1980)) { + x_1981 = lean::alloc_cnstr(0, 1, 0); +} else { + x_1981 = x_1980; +} +lean::cnstr_set(x_1981, 0, x_1978); +return x_1981; +} +else +{ +obj* x_1982; obj* x_1985; obj* x_1987; 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; obj* x_2001; +x_1982 = lean::cnstr_get(x_1973, 0); +lean::inc(x_1982); +lean::dec(x_1973); +x_1985 = lean::cnstr_get(x_1982, 0); +x_1987 = lean::cnstr_get(x_1982, 1); +if (lean::is_exclusive(x_1982)) { + x_1989 = x_1982; +} else { + lean::inc(x_1985); + lean::inc(x_1987); + lean::dec(x_1982); + x_1989 = lean::box(0); +} +lean::inc(x_1963); +x_1991 = l_lean_elaborator_mangle__ident(x_1963); +x_1992 = lean_expr_mk_const(x_1991, x_1985); +x_1993 = lean::cnstr_get(x_1963, 3); +lean::inc(x_1993); +lean::dec(x_1963); +x_1996 = lean::mk_nat_obj(0u); +x_1997 = l_list_enum__from___main___rarg(x_1996, x_1993); +x_1998 = l_lean_elaborator_to__pexpr___main___closed__46; +x_1999 = l_list_foldl___main___at_lean_elaborator_to__pexpr___main___spec__24(x_1998, x_1997); +x_2000 = lean_expr_mk_mdata(x_1999, x_1992); +if (lean::is_scalar(x_1989)) { + x_2001 = lean::alloc_cnstr(0, 2, 0); +} else { + x_2001 = x_1989; +} +lean::cnstr_set(x_2001, 0, x_2000); +lean::cnstr_set(x_2001, 1, x_1987); +x_14 = x_2001; goto lbl_15; } } @@ -12881,339 +13119,340 @@ lbl_13: { if (lean::obj_tag(x_12) == 0) { -obj* x_1918; obj* x_1920; obj* x_1921; +obj* x_2005; obj* x_2007; obj* x_2008; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_1918 = lean::cnstr_get(x_12, 0); +x_2005 = lean::cnstr_get(x_12, 0); if (lean::is_exclusive(x_12)) { - x_1920 = x_12; + x_2007 = x_12; } else { - lean::inc(x_1918); + lean::inc(x_2005); lean::dec(x_12); - x_1920 = lean::box(0); + x_2007 = lean::box(0); } -if (lean::is_scalar(x_1920)) { - x_1921 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2007)) { + x_2008 = lean::alloc_cnstr(0, 1, 0); } else { - x_1921 = x_1920; + x_2008 = x_2007; } -lean::cnstr_set(x_1921, 0, x_1918); -return x_1921; +lean::cnstr_set(x_2008, 0, x_2005); +return x_2008; } 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); +obj* x_2009; obj* x_2011; obj* x_2012; obj* x_2014; obj* x_2016; obj* x_2017; uint8 x_2018; +x_2009 = 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; + x_2011 = x_12; } else { - lean::inc(x_1922); + lean::inc(x_2009); lean::dec(x_12); - x_1924 = lean::box(0); + x_2011 = 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; +x_2012 = lean::cnstr_get(x_2009, 0); +x_2014 = lean::cnstr_get(x_2009, 1); +if (lean::is_exclusive(x_2009)) { + lean::cnstr_set(x_2009, 0, lean::box(0)); + lean::cnstr_set(x_2009, 1, lean::box(0)); + x_2016 = x_2009; } else { - lean::inc(x_1925); - lean::inc(x_1927); - lean::dec(x_1922); - x_1929 = lean::box(0); + lean::inc(x_2012); + lean::inc(x_2014); + lean::dec(x_2009); + x_2016 = lean::box(0); } -x_1930 = l_lean_elaborator_to__pexpr___main___closed__2; -x_1931 = lean_name_dec_eq(x_7, x_1930); +x_2017 = l_lean_elaborator_to__pexpr___main___closed__2; +x_2018 = lean_name_dec_eq(x_7, x_2017); lean::dec(x_7); -if (x_1931 == 0) +if (x_2018 == 0) { -obj* x_1933; -x_1933 = l_lean_parser_syntax_get__pos(x_0); +obj* x_2020; +x_2020 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1933) == 0) +if (lean::obj_tag(x_2020) == 0) { -obj* x_1936; obj* x_1937; +obj* x_2023; obj* x_2024; lean::dec(x_1); -if (lean::is_scalar(x_1929)) { - x_1936 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2016)) { + x_2023 = lean::alloc_cnstr(0, 2, 0); } else { - x_1936 = x_1929; + x_2023 = x_2016; } -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); +lean::cnstr_set(x_2023, 0, x_2012); +lean::cnstr_set(x_2023, 1, x_2014); +if (lean::is_scalar(x_2011)) { + x_2024 = lean::alloc_cnstr(1, 1, 0); } else { - x_1937 = x_1924; + x_2024 = x_2011; } -lean::cnstr_set(x_1937, 0, x_1936); -return x_1937; +lean::cnstr_set(x_2024, 0, x_2023); +return x_2024; } else { -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); +obj* x_2025; obj* x_2028; obj* x_2031; obj* x_2034; obj* x_2035; obj* x_2036; obj* x_2038; obj* x_2039; obj* x_2040; obj* x_2043; obj* x_2044; obj* x_2045; obj* x_2046; obj* x_2047; +x_2025 = lean::cnstr_get(x_2020, 0); +lean::inc(x_2025); +lean::dec(x_2020); +x_2028 = lean::cnstr_get(x_1, 0); +lean::inc(x_2028); lean::dec(x_1); -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); -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); +x_2031 = lean::cnstr_get(x_2028, 2); +lean::inc(x_2031); +lean::dec(x_2028); +x_2034 = l_lean_file__map_to__position(x_2031, x_2025); +x_2035 = lean::box(0); +x_2036 = lean::cnstr_get(x_2034, 1); +lean::inc(x_2036); +x_2038 = l_lean_elaborator_to__pexpr___main___closed__3; +x_2039 = l_lean_kvmap_set__nat(x_2035, x_2038, x_2036); +x_2040 = lean::cnstr_get(x_2034, 0); +lean::inc(x_2040); +lean::dec(x_2034); +x_2043 = l_lean_elaborator_to__pexpr___main___closed__4; +x_2044 = l_lean_kvmap_set__nat(x_2039, x_2043, x_2040); +x_2045 = lean_expr_mk_mdata(x_2044, x_2012); +if (lean::is_scalar(x_2016)) { + x_2046 = lean::alloc_cnstr(0, 2, 0); } else { - x_1959 = x_1929; + x_2046 = x_2016; } -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); +lean::cnstr_set(x_2046, 0, x_2045); +lean::cnstr_set(x_2046, 1, x_2014); +if (lean::is_scalar(x_2011)) { + x_2047 = lean::alloc_cnstr(1, 1, 0); } else { - x_1960 = x_1924; + x_2047 = x_2011; } -lean::cnstr_set(x_1960, 0, x_1959); -return x_1960; +lean::cnstr_set(x_2047, 0, x_2046); +return x_2047; } } else { -obj* x_1963; obj* x_1964; +obj* x_2050; obj* x_2051; lean::dec(x_1); lean::dec(x_0); -if (lean::is_scalar(x_1929)) { - x_1963 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2016)) { + x_2050 = lean::alloc_cnstr(0, 2, 0); } else { - x_1963 = x_1929; + x_2050 = x_2016; } -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); +lean::cnstr_set(x_2050, 0, x_2012); +lean::cnstr_set(x_2050, 1, x_2014); +if (lean::is_scalar(x_2011)) { + x_2051 = lean::alloc_cnstr(1, 1, 0); } else { - x_1964 = x_1924; + x_2051 = x_2011; } -lean::cnstr_set(x_1964, 0, x_1963); -return x_1964; +lean::cnstr_set(x_2051, 0, x_2050); +return x_2051; } } } lbl_15: { -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); +obj* x_2052; obj* x_2054; obj* x_2056; obj* x_2057; uint8 x_2058; +x_2052 = lean::cnstr_get(x_14, 0); +x_2054 = 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_1969 = x_14; + x_2056 = x_14; } else { - lean::inc(x_1965); - lean::inc(x_1967); + lean::inc(x_2052); + lean::inc(x_2054); lean::dec(x_14); - x_1969 = lean::box(0); + x_2056 = lean::box(0); } -x_1970 = l_lean_elaborator_to__pexpr___main___closed__2; -x_1971 = lean_name_dec_eq(x_7, x_1970); +x_2057 = l_lean_elaborator_to__pexpr___main___closed__2; +x_2058 = lean_name_dec_eq(x_7, x_2057); lean::dec(x_7); -if (x_1971 == 0) +if (x_2058 == 0) { -obj* x_1973; -x_1973 = l_lean_parser_syntax_get__pos(x_0); +obj* x_2060; +x_2060 = l_lean_parser_syntax_get__pos(x_0); lean::dec(x_0); -if (lean::obj_tag(x_1973) == 0) +if (lean::obj_tag(x_2060) == 0) { -obj* x_1976; obj* x_1977; +obj* x_2063; obj* x_2064; lean::dec(x_1); -if (lean::is_scalar(x_1969)) { - x_1976 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2056)) { + x_2063 = lean::alloc_cnstr(0, 2, 0); } else { - x_1976 = x_1969; + x_2063 = x_2056; } -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; +lean::cnstr_set(x_2063, 0, x_2052); +lean::cnstr_set(x_2063, 1, x_2054); +x_2064 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2064, 0, x_2063); +return x_2064; } else { -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); +obj* x_2065; obj* x_2068; obj* x_2071; obj* x_2074; obj* x_2075; obj* x_2076; obj* x_2078; obj* x_2079; obj* x_2080; obj* x_2083; obj* x_2084; obj* x_2085; obj* x_2086; obj* x_2087; +x_2065 = lean::cnstr_get(x_2060, 0); +lean::inc(x_2065); +lean::dec(x_2060); +x_2068 = lean::cnstr_get(x_1, 0); +lean::inc(x_2068); lean::dec(x_1); -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); -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); +x_2071 = lean::cnstr_get(x_2068, 2); +lean::inc(x_2071); +lean::dec(x_2068); +x_2074 = l_lean_file__map_to__position(x_2071, x_2065); +x_2075 = lean::box(0); +x_2076 = lean::cnstr_get(x_2074, 1); +lean::inc(x_2076); +x_2078 = l_lean_elaborator_to__pexpr___main___closed__3; +x_2079 = l_lean_kvmap_set__nat(x_2075, x_2078, x_2076); +x_2080 = lean::cnstr_get(x_2074, 0); +lean::inc(x_2080); +lean::dec(x_2074); +x_2083 = l_lean_elaborator_to__pexpr___main___closed__4; +x_2084 = l_lean_kvmap_set__nat(x_2079, x_2083, x_2080); +x_2085 = lean_expr_mk_mdata(x_2084, x_2052); +if (lean::is_scalar(x_2056)) { + x_2086 = lean::alloc_cnstr(0, 2, 0); } else { - x_1999 = x_1969; + x_2086 = x_2056; } -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; +lean::cnstr_set(x_2086, 0, x_2085); +lean::cnstr_set(x_2086, 1, x_2054); +x_2087 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2087, 0, x_2086); +return x_2087; } } else { -obj* x_2003; obj* x_2004; +obj* x_2090; obj* x_2091; lean::dec(x_1); lean::dec(x_0); -if (lean::is_scalar(x_1969)) { - x_2003 = lean::alloc_cnstr(0, 2, 0); +if (lean::is_scalar(x_2056)) { + x_2090 = lean::alloc_cnstr(0, 2, 0); } else { - x_2003 = x_1969; + x_2090 = x_2056; } -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; +lean::cnstr_set(x_2090, 0, x_2052); +lean::cnstr_set(x_2090, 1, x_2054); +x_2091 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_2091, 0, x_2090); +return x_2091; } } lbl_17: { -obj* x_2005; -x_2005 = lean::cnstr_get(x_16, 0); -lean::inc(x_2005); -if (lean::obj_tag(x_2005) == 0) +obj* x_2092; +x_2092 = lean::cnstr_get(x_16, 0); +lean::inc(x_2092); +if (lean::obj_tag(x_2092) == 0) { -obj* x_2008; obj* x_2011; obj* x_2013; +obj* x_2095; obj* x_2098; obj* x_2100; lean::dec(x_9); -x_2008 = lean::cnstr_get(x_16, 1); -lean::inc(x_2008); +x_2095 = lean::cnstr_get(x_16, 1); +lean::inc(x_2095); lean::dec(x_16); -x_2011 = l_lean_elaborator_to__pexpr___main___closed__5; +x_2098 = l_lean_elaborator_to__pexpr___main___closed__5; lean::inc(x_1); -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) +x_2100 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_2098, x_1, x_2095); +lean::dec(x_2095); +if (lean::obj_tag(x_2100) == 0) { -obj* x_2018; obj* x_2020; obj* x_2021; +obj* x_2105; obj* x_2107; obj* x_2108; lean::dec(x_7); lean::dec(x_1); lean::dec(x_0); -x_2018 = lean::cnstr_get(x_2013, 0); -if (lean::is_exclusive(x_2013)) { - x_2020 = x_2013; +x_2105 = lean::cnstr_get(x_2100, 0); +if (lean::is_exclusive(x_2100)) { + x_2107 = x_2100; } else { - lean::inc(x_2018); - lean::dec(x_2013); - x_2020 = lean::box(0); + lean::inc(x_2105); + lean::dec(x_2100); + x_2107 = lean::box(0); } -if (lean::is_scalar(x_2020)) { - x_2021 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_2107)) { + x_2108 = lean::alloc_cnstr(0, 1, 0); } else { - x_2021 = x_2020; + x_2108 = x_2107; } -lean::cnstr_set(x_2021, 0, x_2018); -return x_2021; +lean::cnstr_set(x_2108, 0, x_2105); +return x_2108; } else { -obj* x_2022; -x_2022 = lean::cnstr_get(x_2013, 0); -lean::inc(x_2022); -lean::dec(x_2013); -x_14 = x_2022; +obj* x_2109; +x_2109 = lean::cnstr_get(x_2100, 0); +lean::inc(x_2109); +lean::dec(x_2100); +x_14 = x_2109; goto lbl_15; } } else { -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); +obj* x_2112; obj* x_2114; obj* x_2115; obj* x_2117; obj* x_2120; obj* x_2121; obj* x_2122; obj* x_2124; obj* x_2125; obj* x_2126; obj* x_2127; obj* x_2129; obj* x_2130; +x_2112 = lean::cnstr_get(x_16, 1); if (lean::is_exclusive(x_16)) { lean::cnstr_release(x_16, 0); - x_2027 = x_16; + x_2114 = x_16; } else { - lean::inc(x_2025); + lean::inc(x_2112); lean::dec(x_16); - x_2027 = lean::box(0); + x_2114 = lean::box(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); +x_2115 = lean::cnstr_get(x_2092, 0); +lean::inc(x_2115); +x_2117 = lean::cnstr_get(x_2092, 1); +lean::inc(x_2117); +lean::dec(x_2092); +x_2120 = lean::box(0); +x_2121 = lean::mk_nat_obj(0u); +x_2122 = l_list_length__aux___main___rarg(x_9, x_2121); +lean::dec(x_9); +x_2124 = l_lean_elaborator_to__pexpr___main___closed__6; +x_2125 = l_lean_kvmap_set__nat(x_2120, x_2124, x_2122); +x_2126 = l_list_reverse___rarg(x_2117); +x_2127 = l_list_foldr___main___at_lean_elaborator_to__pexpr___main___spec__1(x_2115, x_2126); +lean::dec(x_2115); +x_2129 = lean_expr_mk_mdata(x_2125, x_2127); +if (lean::is_scalar(x_2114)) { + x_2130 = lean::alloc_cnstr(0, 2, 0); } else { - x_2042 = x_2027; + x_2130 = x_2114; } -lean::cnstr_set(x_2042, 0, x_2041); -lean::cnstr_set(x_2042, 1, x_2025); -x_14 = x_2042; +lean::cnstr_set(x_2130, 0, x_2129); +lean::cnstr_set(x_2130, 1, x_2112); +x_14 = x_2130; goto lbl_15; } } } default: { -obj* x_2043; -x_2043 = lean::box(0); -x_3 = x_2043; +obj* x_2131; +x_2131 = lean::box(0); +x_3 = x_2131; goto lbl_4; } } lbl_4: { -obj* x_2046; obj* x_2047; obj* x_2048; obj* x_2049; obj* x_2050; obj* x_2052; +obj* x_2134; obj* x_2135; obj* x_2136; obj* x_2137; obj* x_2138; obj* x_2140; lean::dec(x_3); lean::inc(x_0); -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); +x_2134 = l_lean_parser_syntax_to__format___main(x_0); +x_2135 = lean::mk_nat_obj(80u); +x_2136 = l_lean_format_pretty(x_2134, x_2135); +x_2137 = l_lean_elaborator_to__pexpr___main___closed__1; +x_2138 = lean::string_append(x_2137, x_2136); +lean::dec(x_2136); +x_2140 = l_lean_expander_error___at_lean_elaborator_level__get__app__args___main___spec__1___rarg(x_0, x_2138, x_1, x_2); lean::dec(x_2); lean::dec(x_0); -return x_2052; +return x_2140; } } } @@ -13298,24 +13537,6 @@ lean::dec(x_0); return x_4; } } -obj* l_lean_elaborator_to__pexpr___main___lambda__1___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_lean_elaborator_to__pexpr___main___lambda__1(x_0); -lean::dec(x_0); -return x_1; -} -} -obj* l_lean_elaborator_to__pexpr___main___lambda__2___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_lean_elaborator_to__pexpr___main___lambda__2(x_0); -lean::dec(x_0); -return x_1; -} -} obj* l_lean_elaborator_to__pexpr(obj* x_0, obj* x_1, obj* x_2) { _start: { @@ -22499,23 +22720,6 @@ x_3 = lean::box(x_2); return x_3; } } -obj* l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___lambda__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::cnstr_get(x_0, 1); -lean::inc(x_1); -return x_1; -} -} -obj* _init_l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___closed__1() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___lambda__1___boxed), 1, 0); -return x_0; -} -} obj* l_list_mmap___main___at_lean_elaborator_match__spec___spec__1(obj* x_0) { _start: { @@ -22581,69 +22785,72 @@ x_36 = lean::cnstr_get(x_30, 1); lean::inc(x_36); if (lean::obj_tag(x_36) == 0) { -obj* x_44; +obj* x_46; +lean::dec(x_6); lean::dec(x_29); lean::dec(x_30); lean::dec(x_9); +lean::dec(x_4); lean::dec(x_21); lean::dec(x_24); lean::dec(x_27); -x_44 = lean::box(0); -x_7 = x_44; -goto lbl_8; +x_46 = lean::box(0); +return x_46; } else { -obj* x_45; obj* x_47; obj* x_50; obj* x_53; obj* x_54; obj* x_57; uint8 x_58; -x_45 = lean::cnstr_get(x_30, 3); -lean::inc(x_45); -x_47 = lean::cnstr_get(x_36, 0); +obj* x_47; obj* x_49; obj* x_52; obj* x_55; obj* x_56; obj* x_59; uint8 x_60; +x_47 = lean::cnstr_get(x_30, 3); lean::inc(x_47); +x_49 = lean::cnstr_get(x_36, 0); +lean::inc(x_49); lean::dec(x_36); -x_50 = lean::cnstr_get(x_27, 1); -lean::inc(x_50); +x_52 = lean::cnstr_get(x_27, 1); +lean::inc(x_52); lean::dec(x_27); -x_53 = l_string_trim(x_50); -x_54 = lean::cnstr_get(x_47, 1); -lean::inc(x_54); -lean::dec(x_47); -x_57 = l_string_trim(x_54); -x_58 = lean::string_dec_eq(x_53, x_57); -lean::dec(x_57); -lean::dec(x_53); -if (x_58 == 0) +x_55 = l_string_trim(x_52); +x_56 = lean::cnstr_get(x_49, 1); +lean::inc(x_56); +lean::dec(x_49); +x_59 = l_string_trim(x_56); +x_60 = lean::string_dec_eq(x_55, x_59); +lean::dec(x_59); +lean::dec(x_55); +if (x_60 == 0) { -obj* x_67; +obj* x_71; +lean::dec(x_6); lean::dec(x_29); lean::dec(x_30); lean::dec(x_9); +lean::dec(x_4); lean::dec(x_21); lean::dec(x_24); -lean::dec(x_45); -x_67 = lean::box(0); -x_7 = x_67; -goto lbl_8; +lean::dec(x_47); +x_71 = lean::box(0); +return x_71; } else { -uint8 x_68; -x_68 = l_lean_elaborator_match__precedence___main(x_24, x_45); -if (x_68 == 0) +uint8 x_72; +x_72 = l_lean_elaborator_match__precedence___main(x_24, x_47); +if (x_72 == 0) { -obj* x_73; +obj* x_79; +lean::dec(x_6); lean::dec(x_29); lean::dec(x_30); lean::dec(x_9); +lean::dec(x_4); lean::dec(x_21); -x_73 = lean::box(0); -x_7 = x_73; -goto lbl_8; +x_79 = lean::box(0); +return x_79; } else { -obj* x_74; -x_74 = lean::box(0); -x_34 = x_74; +obj* x_80; +x_80 = lean::box(0); +x_34 = x_80; goto lbl_35; } } @@ -22652,490 +22859,487 @@ lbl_33: { if (lean::obj_tag(x_32) == 0) { -obj* x_76; +obj* x_84; +lean::dec(x_6); lean::dec(x_30); -x_76 = lean::box(0); -x_7 = x_76; -goto lbl_8; +lean::dec(x_4); +x_84 = lean::box(0); +return x_84; } else { -obj* x_77; obj* x_79; obj* x_80; obj* x_81; -x_77 = lean::cnstr_get(x_32, 0); -if (lean::is_exclusive(x_32)) { - x_79 = x_32; -} else { - lean::inc(x_77); - lean::dec(x_32); - x_79 = lean::box(0); -} -x_80 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_80, 0, x_30); -lean::cnstr_set(x_80, 1, x_77); -if (lean::is_scalar(x_79)) { - x_81 = lean::alloc_cnstr(1, 1, 0); -} else { - x_81 = x_79; -} -lean::cnstr_set(x_81, 0, x_80); -x_7 = x_81; +obj* x_85; obj* x_88; +x_85 = lean::cnstr_get(x_32, 0); +lean::inc(x_85); +lean::dec(x_32); +x_88 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_88, 0, x_30); +lean::cnstr_set(x_88, 1, x_85); +x_7 = x_88; goto lbl_8; } } lbl_35: { -obj* x_83; +obj* x_90; lean::dec(x_34); -x_83 = lean::cnstr_get(x_9, 1); -lean::inc(x_83); +x_90 = lean::cnstr_get(x_9, 1); +lean::inc(x_90); lean::dec(x_9); -if (lean::obj_tag(x_83) == 0) +if (lean::obj_tag(x_90) == 0) { -obj* x_86; -x_86 = lean::cnstr_get(x_21, 1); -lean::inc(x_86); +obj* x_93; +x_93 = lean::cnstr_get(x_21, 1); +lean::inc(x_93); lean::dec(x_21); -if (lean::obj_tag(x_86) == 0) +if (lean::obj_tag(x_93) == 0) { -obj* x_89; +obj* x_96; if (lean::is_scalar(x_29)) { - x_89 = lean::alloc_cnstr(1, 1, 0); + x_96 = lean::alloc_cnstr(1, 1, 0); } else { - x_89 = x_29; + x_96 = x_29; } -lean::cnstr_set(x_89, 0, x_86); -x_32 = x_89; +lean::cnstr_set(x_96, 0, x_93); +x_32 = x_96; goto lbl_33; } else { -obj* x_92; +obj* x_99; lean::dec(x_29); -lean::dec(x_86); -x_92 = lean::box(0); -x_32 = x_92; +lean::dec(x_93); +x_99 = lean::box(0); +x_32 = x_99; goto lbl_33; } } else { -obj* x_94; obj* x_96; +obj* x_101; obj* x_103; lean::dec(x_29); -x_94 = lean::cnstr_get(x_83, 0); -if (lean::is_exclusive(x_83)) { - lean::cnstr_set(x_83, 0, lean::box(0)); - x_96 = x_83; +x_101 = lean::cnstr_get(x_90, 0); +if (lean::is_exclusive(x_90)) { + lean::cnstr_set(x_90, 0, lean::box(0)); + x_103 = x_90; } else { - lean::inc(x_94); - lean::dec(x_83); - x_96 = lean::box(0); + lean::inc(x_101); + lean::dec(x_90); + x_103 = lean::box(0); } -switch (lean::obj_tag(x_94)) { +switch (lean::obj_tag(x_101)) { case 0: { -obj* x_97; -x_97 = lean::cnstr_get(x_21, 1); -lean::inc(x_97); +obj* x_104; +x_104 = lean::cnstr_get(x_21, 1); +lean::inc(x_104); lean::dec(x_21); -if (lean::obj_tag(x_97) == 0) +if (lean::obj_tag(x_104) == 0) { -obj* x_102; -lean::dec(x_94); -lean::dec(x_96); -x_102 = lean::box(0); -x_32 = x_102; +obj* x_109; +lean::dec(x_101); +lean::dec(x_103); +x_109 = lean::box(0); +x_32 = x_109; goto lbl_33; } else { -obj* x_103; -x_103 = lean::cnstr_get(x_97, 0); -lean::inc(x_103); -switch (lean::obj_tag(x_103)) { +obj* x_110; +x_110 = lean::cnstr_get(x_104, 0); +lean::inc(x_110); +switch (lean::obj_tag(x_110)) { case 0: { -obj* x_105; obj* x_108; obj* x_111; obj* x_114; uint8 x_117; -x_105 = lean::cnstr_get(x_94, 0); -lean::inc(x_105); -lean::dec(x_94); -x_108 = lean::cnstr_get(x_103, 0); -lean::inc(x_108); -lean::dec(x_103); -x_111 = lean::cnstr_get(x_105, 1); -lean::inc(x_111); -lean::dec(x_105); -x_114 = lean::cnstr_get(x_108, 1); -lean::inc(x_114); -lean::dec(x_108); -x_117 = l_lean_elaborator_match__precedence___main(x_111, x_114); -if (x_117 == 0) -{ -obj* x_120; -lean::dec(x_97); -lean::dec(x_96); -x_120 = lean::box(0); -x_32 = x_120; -goto lbl_33; -} -else -{ -obj* x_121; -if (lean::is_scalar(x_96)) { - x_121 = lean::alloc_cnstr(1, 1, 0); -} else { - x_121 = x_96; -} -lean::cnstr_set(x_121, 0, x_97); -x_32 = x_121; -goto lbl_33; -} -} -default: -{ -obj* x_126; -lean::dec(x_97); -lean::dec(x_103); -lean::dec(x_94); -lean::dec(x_96); -x_126 = lean::box(0); -x_32 = x_126; -goto lbl_33; -} -} -} -} -case 1: +obj* x_112; obj* x_115; obj* x_118; obj* x_121; uint8 x_124; +x_112 = lean::cnstr_get(x_101, 0); +lean::inc(x_112); +lean::dec(x_101); +x_115 = lean::cnstr_get(x_110, 0); +lean::inc(x_115); +lean::dec(x_110); +x_118 = lean::cnstr_get(x_112, 1); +lean::inc(x_118); +lean::dec(x_112); +x_121 = lean::cnstr_get(x_115, 1); +lean::inc(x_121); +lean::dec(x_115); +x_124 = l_lean_elaborator_match__precedence___main(x_118, x_121); +if (x_124 == 0) { obj* x_127; -x_127 = lean::cnstr_get(x_21, 1); -lean::inc(x_127); -lean::dec(x_21); -if (lean::obj_tag(x_127) == 0) -{ -obj* x_132; -lean::dec(x_94); -lean::dec(x_96); -x_132 = lean::box(0); -x_32 = x_132; +lean::dec(x_104); +lean::dec(x_103); +x_127 = lean::box(0); +x_32 = x_127; goto lbl_33; } else { +obj* x_128; +if (lean::is_scalar(x_103)) { + x_128 = lean::alloc_cnstr(1, 1, 0); +} else { + x_128 = x_103; +} +lean::cnstr_set(x_128, 0, x_104); +x_32 = x_128; +goto lbl_33; +} +} +default: +{ obj* x_133; -x_133 = lean::cnstr_get(x_127, 0); -lean::inc(x_133); -switch (lean::obj_tag(x_133)) { +lean::dec(x_104); +lean::dec(x_110); +lean::dec(x_101); +lean::dec(x_103); +x_133 = lean::box(0); +x_32 = x_133; +goto lbl_33; +} +} +} +} case 1: { -obj* x_135; obj* x_138; obj* x_141; obj* x_144; uint8 x_147; -x_135 = lean::cnstr_get(x_94, 0); -lean::inc(x_135); -lean::dec(x_94); -x_138 = lean::cnstr_get(x_133, 0); -lean::inc(x_138); -lean::dec(x_133); -x_141 = lean::cnstr_get(x_135, 1); -lean::inc(x_141); -lean::dec(x_135); -x_144 = lean::cnstr_get(x_138, 1); -lean::inc(x_144); -lean::dec(x_138); -x_147 = l_lean_elaborator_match__precedence___main(x_141, x_144); -if (x_147 == 0) -{ -obj* x_150; -lean::dec(x_96); -lean::dec(x_127); -x_150 = lean::box(0); -x_32 = x_150; -goto lbl_33; -} -else -{ -obj* x_151; -if (lean::is_scalar(x_96)) { - x_151 = lean::alloc_cnstr(1, 1, 0); -} else { - x_151 = x_96; -} -lean::cnstr_set(x_151, 0, x_127); -x_32 = x_151; -goto lbl_33; -} -} -default: -{ -obj* x_156; -lean::dec(x_94); -lean::dec(x_96); -lean::dec(x_133); -lean::dec(x_127); -x_156 = lean::box(0); -x_32 = x_156; -goto lbl_33; -} -} -} -} -default: -{ -obj* x_157; obj* x_159; obj* x_160; obj* x_162; -x_157 = lean::cnstr_get(x_94, 0); -if (lean::is_exclusive(x_94)) { - lean::cnstr_set(x_94, 0, lean::box(0)); - x_159 = x_94; -} else { - lean::inc(x_157); - lean::dec(x_94); - x_159 = lean::box(0); -} -x_162 = lean::cnstr_get(x_21, 1); -lean::inc(x_162); +obj* x_134; +x_134 = lean::cnstr_get(x_21, 1); +lean::inc(x_134); lean::dec(x_21); -if (lean::obj_tag(x_162) == 0) +if (lean::obj_tag(x_134) == 0) { -obj* x_168; -lean::dec(x_157); -lean::dec(x_159); -lean::dec(x_96); -x_168 = lean::box(0); -x_32 = x_168; +obj* x_139; +lean::dec(x_101); +lean::dec(x_103); +x_139 = lean::box(0); +x_32 = x_139; goto lbl_33; } else { -obj* x_169; -x_169 = lean::cnstr_get(x_162, 0); +obj* x_140; +x_140 = lean::cnstr_get(x_134, 0); +lean::inc(x_140); +switch (lean::obj_tag(x_140)) { +case 1: +{ +obj* x_142; obj* x_145; obj* x_148; obj* x_151; uint8 x_154; +x_142 = lean::cnstr_get(x_101, 0); +lean::inc(x_142); +lean::dec(x_101); +x_145 = lean::cnstr_get(x_140, 0); +lean::inc(x_145); +lean::dec(x_140); +x_148 = lean::cnstr_get(x_142, 1); +lean::inc(x_148); +lean::dec(x_142); +x_151 = lean::cnstr_get(x_145, 1); +lean::inc(x_151); +lean::dec(x_145); +x_154 = l_lean_elaborator_match__precedence___main(x_148, x_151); +if (x_154 == 0) +{ +obj* x_157; +lean::dec(x_103); +lean::dec(x_134); +x_157 = lean::box(0); +x_32 = x_157; +goto lbl_33; +} +else +{ +obj* x_158; +if (lean::is_scalar(x_103)) { + x_158 = lean::alloc_cnstr(1, 1, 0); +} else { + x_158 = x_103; +} +lean::cnstr_set(x_158, 0, x_134); +x_32 = x_158; +goto lbl_33; +} +} +default: +{ +obj* x_163; +lean::dec(x_101); +lean::dec(x_103); +lean::dec(x_140); +lean::dec(x_134); +x_163 = lean::box(0); +x_32 = x_163; +goto lbl_33; +} +} +} +} +default: +{ +obj* x_164; obj* x_166; obj* x_167; obj* x_169; +x_164 = lean::cnstr_get(x_101, 0); +if (lean::is_exclusive(x_101)) { + lean::cnstr_set(x_101, 0, lean::box(0)); + x_166 = x_101; +} else { + lean::inc(x_164); + lean::dec(x_101); + x_166 = lean::box(0); +} +x_169 = lean::cnstr_get(x_21, 1); lean::inc(x_169); -lean::dec(x_162); -switch (lean::obj_tag(x_169)) { +lean::dec(x_21); +if (lean::obj_tag(x_169) == 0) +{ +obj* x_175; +lean::dec(x_164); +lean::dec(x_166); +lean::dec(x_103); +x_175 = lean::box(0); +x_32 = x_175; +goto lbl_33; +} +else +{ +obj* x_176; obj* x_178; +x_176 = lean::cnstr_get(x_169, 0); +if (lean::is_exclusive(x_169)) { + lean::cnstr_set(x_169, 0, lean::box(0)); + x_178 = x_169; +} else { + lean::inc(x_176); + lean::dec(x_169); + x_178 = lean::box(0); +} +switch (lean::obj_tag(x_176)) { case 2: { -obj* x_172; obj* x_175; obj* x_177; obj* x_179; -x_172 = lean::cnstr_get(x_169, 0); -lean::inc(x_172); -lean::dec(x_169); -x_175 = lean::cnstr_get(x_157, 1); -lean::inc(x_175); -x_177 = l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___closed__1; -lean::inc(x_175); -x_179 = l_option_map___rarg(x_177, x_175); -if (lean::obj_tag(x_179) == 0) +obj* x_179; obj* x_182; obj* x_184; +x_179 = lean::cnstr_get(x_176, 0); +lean::inc(x_179); +lean::dec(x_176); +x_182 = lean::cnstr_get(x_164, 1); +lean::inc(x_182); +if (lean::obj_tag(x_182) == 0) { -obj* x_181; obj* x_185; -lean::dec(x_175); -x_181 = lean::cnstr_get(x_172, 1); -lean::inc(x_181); -lean::dec(x_172); -lean::inc(x_181); -x_185 = l_option_map___rarg(x_177, x_181); -if (lean::obj_tag(x_185) == 0) +obj* x_186; +x_186 = lean::cnstr_get(x_179, 1); +lean::inc(x_186); +lean::dec(x_179); +if (lean::obj_tag(x_186) == 0) { -obj* x_187; -lean::dec(x_181); -x_187 = lean::box(0); -x_160 = x_187; -goto lbl_161; +obj* x_190; +lean::dec(x_178); +x_190 = lean::box(0); +x_167 = x_190; +goto lbl_168; } else { -obj* x_188; obj* x_190; -x_188 = lean::cnstr_get(x_185, 0); -if (lean::is_exclusive(x_185)) { - lean::cnstr_set(x_185, 0, lean::box(0)); - x_190 = x_185; -} else { - lean::inc(x_188); - lean::dec(x_185); - x_190 = lean::box(0); -} -switch (lean::obj_tag(x_188)) { +obj* x_191; obj* x_193; +x_191 = lean::cnstr_get(x_186, 0); +lean::inc(x_191); +x_193 = lean::cnstr_get(x_191, 1); +lean::inc(x_193); +lean::dec(x_191); +switch (lean::obj_tag(x_193)) { case 0: { -obj* x_192; -lean::dec(x_188); -if (lean::is_scalar(x_190)) { - x_192 = lean::alloc_cnstr(1, 1, 0); -} else { - x_192 = x_190; -} -lean::cnstr_set(x_192, 0, x_181); -x_160 = x_192; -goto lbl_161; -} -default: -{ -obj* x_196; -lean::dec(x_190); -lean::dec(x_188); -lean::dec(x_181); -x_196 = lean::box(0); -x_160 = x_196; -goto lbl_161; -} -} -} -} -else -{ obj* x_197; -x_197 = lean::cnstr_get(x_179, 0); -lean::inc(x_197); -lean::dec(x_179); -switch (lean::obj_tag(x_197)) { -case 0: +lean::dec(x_193); +if (lean::is_scalar(x_178)) { + x_197 = lean::alloc_cnstr(1, 1, 0); +} else { + x_197 = x_178; +} +lean::cnstr_set(x_197, 0, x_186); +x_167 = x_197; +goto lbl_168; +} +default: { -obj* x_200; obj* x_203; obj* x_206; -x_200 = lean::cnstr_get(x_197, 0); -lean::inc(x_200); -lean::dec(x_197); -x_203 = lean::cnstr_get(x_172, 1); +obj* x_201; +lean::dec(x_193); +lean::dec(x_186); +lean::dec(x_178); +x_201 = lean::box(0); +x_167 = x_201; +goto lbl_168; +} +} +} +} +else +{ +obj* x_203; obj* x_205; +lean::dec(x_178); +x_203 = lean::cnstr_get(x_182, 0); lean::inc(x_203); -lean::dec(x_172); -x_206 = l_option_map___rarg(x_177, x_203); -if (lean::obj_tag(x_206) == 0) -{ -obj* x_209; -lean::dec(x_175); -lean::dec(x_200); -x_209 = lean::box(0); -x_160 = x_209; -goto lbl_161; +x_205 = lean::cnstr_get(x_203, 1); +lean::inc(x_205); +lean::dec(x_203); +x_184 = x_205; +goto lbl_185; } -else +lbl_185: { -obj* x_210; obj* x_212; -x_210 = lean::cnstr_get(x_206, 0); -if (lean::is_exclusive(x_206)) { - lean::cnstr_set(x_206, 0, lean::box(0)); - x_212 = x_206; -} else { - lean::inc(x_210); - lean::dec(x_206); - x_212 = lean::box(0); -} -switch (lean::obj_tag(x_210)) { +switch (lean::obj_tag(x_184)) { case 0: { -obj* x_213; obj* x_216; obj* x_217; uint8 x_218; -x_213 = lean::cnstr_get(x_210, 0); -lean::inc(x_213); -lean::dec(x_210); -x_216 = l_lean_parser_command_notation__spec_precedence__term_view_to__nat___main(x_200); -x_217 = l_lean_parser_command_notation__spec_precedence__term_view_to__nat___main(x_213); -x_218 = lean::nat_dec_eq(x_216, x_217); -lean::dec(x_217); -lean::dec(x_216); -if (x_218 == 0) +obj* x_208; +x_208 = lean::cnstr_get(x_179, 1); +lean::inc(x_208); +lean::dec(x_179); +if (lean::obj_tag(x_208) == 0) { -obj* x_223; -lean::dec(x_212); -lean::dec(x_175); -x_223 = lean::box(0); -x_160 = x_223; -goto lbl_161; +obj* x_213; +lean::dec(x_184); +lean::dec(x_182); +x_213 = lean::box(0); +x_167 = x_213; +goto lbl_168; } else { -obj* x_224; -if (lean::is_scalar(x_212)) { - x_224 = lean::alloc_cnstr(1, 1, 0); +obj* x_214; obj* x_216; obj* x_217; +x_214 = lean::cnstr_get(x_208, 0); +if (lean::is_exclusive(x_208)) { + lean::cnstr_set(x_208, 0, lean::box(0)); + x_216 = x_208; } else { - x_224 = x_212; + lean::inc(x_214); + lean::dec(x_208); + x_216 = lean::box(0); } -lean::cnstr_set(x_224, 0, x_175); -x_160 = x_224; -goto lbl_161; -} -} -default: +x_217 = lean::cnstr_get(x_214, 1); +lean::inc(x_217); +lean::dec(x_214); +switch (lean::obj_tag(x_217)) { +case 0: { -obj* x_229; -lean::dec(x_212); -lean::dec(x_210); -lean::dec(x_175); -lean::dec(x_200); -x_229 = lean::box(0); -x_160 = x_229; -goto lbl_161; -} -} -} -} -default: +obj* x_220; obj* x_223; obj* x_226; obj* x_227; uint8 x_228; +x_220 = lean::cnstr_get(x_184, 0); +lean::inc(x_220); +lean::dec(x_184); +x_223 = lean::cnstr_get(x_217, 0); +lean::inc(x_223); +lean::dec(x_217); +x_226 = l_lean_parser_command_notation__spec_precedence__term_view_to__nat___main(x_220); +x_227 = l_lean_parser_command_notation__spec_precedence__term_view_to__nat___main(x_223); +x_228 = lean::nat_dec_eq(x_226, x_227); +lean::dec(x_227); +lean::dec(x_226); +if (x_228 == 0) { obj* x_233; -lean::dec(x_175); -lean::dec(x_172); -lean::dec(x_197); +lean::dec(x_216); +lean::dec(x_182); x_233 = lean::box(0); -x_160 = x_233; -goto lbl_161; +x_167 = x_233; +goto lbl_168; +} +else +{ +obj* x_234; +if (lean::is_scalar(x_216)) { + x_234 = lean::alloc_cnstr(1, 1, 0); +} else { + x_234 = x_216; +} +lean::cnstr_set(x_234, 0, x_182); +x_167 = x_234; +goto lbl_168; +} +} +default: +{ +obj* x_239; +lean::dec(x_216); +lean::dec(x_184); +lean::dec(x_217); +lean::dec(x_182); +x_239 = lean::box(0); +x_167 = x_239; +goto lbl_168; } } } } default: { -obj* x_238; -lean::dec(x_157); -lean::dec(x_159); -lean::dec(x_169); -lean::dec(x_96); -x_238 = lean::box(0); -x_32 = x_238; +obj* x_243; +lean::dec(x_184); +lean::dec(x_179); +lean::dec(x_182); +x_243 = lean::box(0); +x_167 = x_243; +goto lbl_168; +} +} +} +} +default: +{ +obj* x_249; +lean::dec(x_164); +lean::dec(x_178); +lean::dec(x_166); +lean::dec(x_176); +lean::dec(x_103); +x_249 = lean::box(0); +x_32 = x_249; goto lbl_33; } } } -lbl_161: +lbl_168: { -if (lean::obj_tag(x_160) == 0) +if (lean::obj_tag(x_167) == 0) { -obj* x_242; -lean::dec(x_157); -lean::dec(x_159); -lean::dec(x_96); -x_242 = lean::box(0); -x_32 = x_242; +obj* x_253; +lean::dec(x_164); +lean::dec(x_166); +lean::dec(x_103); +x_253 = lean::box(0); +x_32 = x_253; goto lbl_33; } else { -obj* x_243; obj* x_245; obj* x_246; obj* x_249; obj* x_250; obj* x_251; obj* x_252; -x_243 = lean::cnstr_get(x_160, 0); -if (lean::is_exclusive(x_160)) { - x_245 = x_160; +obj* x_254; obj* x_256; obj* x_257; obj* x_260; obj* x_261; obj* x_262; obj* x_263; +x_254 = lean::cnstr_get(x_167, 0); +if (lean::is_exclusive(x_167)) { + x_256 = x_167; } else { - lean::inc(x_243); - lean::dec(x_160); - x_245 = lean::box(0); + lean::inc(x_254); + lean::dec(x_167); + x_256 = lean::box(0); } -x_246 = lean::cnstr_get(x_157, 0); -lean::inc(x_246); -lean::dec(x_157); -x_249 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_249, 0, x_246); -lean::cnstr_set(x_249, 1, x_243); -if (lean::is_scalar(x_159)) { - x_250 = lean::alloc_cnstr(2, 1, 0); +x_257 = lean::cnstr_get(x_164, 0); +lean::inc(x_257); +lean::dec(x_164); +x_260 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_260, 0, x_257); +lean::cnstr_set(x_260, 1, x_254); +if (lean::is_scalar(x_166)) { + x_261 = lean::alloc_cnstr(2, 1, 0); } else { - x_250 = x_159; + x_261 = x_166; } -lean::cnstr_set(x_250, 0, x_249); -if (lean::is_scalar(x_245)) { - x_251 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_261, 0, x_260); +if (lean::is_scalar(x_256)) { + x_262 = lean::alloc_cnstr(1, 1, 0); } else { - x_251 = x_245; + x_262 = x_256; } -lean::cnstr_set(x_251, 0, x_250); -if (lean::is_scalar(x_96)) { - x_252 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_262, 0, x_261); +if (lean::is_scalar(x_103)) { + x_263 = lean::alloc_cnstr(1, 1, 0); } else { - x_252 = x_96; + x_263 = x_103; } -lean::cnstr_set(x_252, 0, x_251); -x_32 = x_252; +lean::cnstr_set(x_263, 0, x_262); +x_32 = x_263; goto lbl_33; } } @@ -23146,55 +23350,41 @@ goto lbl_33; } lbl_8: { -if (lean::obj_tag(x_7) == 0) +obj* x_264; +x_264 = l_list_mmap___main___at_lean_elaborator_match__spec___spec__1(x_4); +if (lean::obj_tag(x_264) == 0) { -obj* x_255; +obj* x_267; lean::dec(x_6); -lean::dec(x_4); -x_255 = lean::box(0); -return x_255; -} -else -{ -obj* x_256; obj* x_259; -x_256 = lean::cnstr_get(x_7, 0); -lean::inc(x_256); lean::dec(x_7); -x_259 = l_list_mmap___main___at_lean_elaborator_match__spec___spec__1(x_4); -if (lean::obj_tag(x_259) == 0) -{ -obj* x_262; -lean::dec(x_256); -lean::dec(x_6); -x_262 = lean::box(0); -return x_262; -} -else -{ -obj* x_263; obj* x_265; obj* x_266; obj* x_267; -x_263 = lean::cnstr_get(x_259, 0); -if (lean::is_exclusive(x_259)) { - x_265 = x_259; -} else { - lean::inc(x_263); - lean::dec(x_259); - x_265 = lean::box(0); -} -if (lean::is_scalar(x_6)) { - x_266 = lean::alloc_cnstr(1, 2, 0); -} else { - x_266 = x_6; -} -lean::cnstr_set(x_266, 0, x_256); -lean::cnstr_set(x_266, 1, x_263); -if (lean::is_scalar(x_265)) { - x_267 = lean::alloc_cnstr(1, 1, 0); -} else { - x_267 = x_265; -} -lean::cnstr_set(x_267, 0, x_266); +x_267 = lean::box(0); return x_267; } +else +{ +obj* x_268; obj* x_270; obj* x_271; obj* x_272; +x_268 = lean::cnstr_get(x_264, 0); +if (lean::is_exclusive(x_264)) { + x_270 = x_264; +} else { + lean::inc(x_268); + lean::dec(x_264); + x_270 = lean::box(0); +} +if (lean::is_scalar(x_6)) { + x_271 = lean::alloc_cnstr(1, 2, 0); +} else { + x_271 = x_6; +} +lean::cnstr_set(x_271, 0, x_7); +lean::cnstr_set(x_271, 1, x_268); +if (lean::is_scalar(x_270)) { + x_272 = lean::alloc_cnstr(1, 1, 0); +} else { + x_272 = x_270; +} +lean::cnstr_set(x_272, 0, x_271); +return x_272; } } } @@ -23302,15 +23492,6 @@ return x_37; } } } -obj* l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___lambda__1___boxed(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___lambda__1(x_0); -lean::dec(x_0); -return x_1; -} -} obj* l_lean_elaborator_notation_elaborate__aux___lambda__1(obj* x_0, obj* x_1) { _start: { @@ -25673,16 +25854,7 @@ lean::dec(x_1); return x_6; } } -obj* l_lean_elaborator_commands_elaborate___main___lambda__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::cnstr_get(x_0, 0); -lean::inc(x_1); -return x_1; -} -} -obj* l_lean_elaborator_commands_elaborate___main___lambda__2(uint8 x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_lean_elaborator_commands_elaborate___main___lambda__1(uint8 x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; obj* x_7; @@ -25693,7 +25865,7 @@ x_7 = l_lean_elaborator_commands_elaborate___main(x_0, x_1, x_2, x_4); return x_7; } } -obj* l_lean_elaborator_commands_elaborate___main___lambda__3(uint8 x_0, obj* x_1, obj* x_2, obj* x_3) { +obj* l_lean_elaborator_commands_elaborate___main___lambda__2(uint8 x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { obj* x_4; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; @@ -25703,7 +25875,7 @@ lean::dec(x_3); x_7 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_yield__to__outside___rarg___boxed), 2, 1); lean::closure_set(x_7, 0, x_4); x_8 = lean::box(x_0); -x_9 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__2___boxed), 4, 3); +x_9 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__1___boxed), 4, 3); lean::closure_set(x_9, 0, x_8); lean::closure_set(x_9, 1, x_1); lean::closure_set(x_9, 2, x_2); @@ -25715,15 +25887,7 @@ lean::closure_set(x_11, 1, x_10); return x_11; } } -obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__1() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__1___boxed), 1, 0); -return x_0; -} -} -obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__2() { +obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__1() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; @@ -25739,7 +25903,7 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } -obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__3() { +obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__2() { _start: { obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; @@ -25755,7 +25919,7 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } -obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__4() { +obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__3() { _start: { obj* x_0; @@ -25763,7 +25927,7 @@ x_0 = lean::mk_string("invalid end of input, expected 'end'"); return x_0; } } -obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__5() { +obj* _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__4() { _start: { obj* x_0; @@ -25771,10 +25935,10 @@ x_0 = lean::mk_string("invalid 'end', there is no open scope to end"); return x_0; } } -obj* l_lean_elaborator_commands_elaborate___main___lambda__4(obj* x_0, obj* x_1, uint8 x_2, obj* x_3) { +obj* l_lean_elaborator_commands_elaborate___main___lambda__3(obj* x_0, obj* x_1, uint8 x_2, obj* x_3) { _start: { -obj* x_4; obj* x_6; obj* x_8; obj* x_10; obj* x_11; obj* x_12; +obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_12; x_4 = lean::cnstr_get(x_3, 0); x_6 = lean::cnstr_get(x_3, 1); if (lean::is_exclusive(x_3)) { @@ -25788,9 +25952,7 @@ if (lean::is_exclusive(x_3)) { x_8 = lean::box(0); } lean::inc(x_4); -x_10 = l_lean_parser_syntax_as__node___main(x_4); -x_11 = l_lean_elaborator_commands_elaborate___main___lambda__4___closed__1; -x_12 = l_option_map___rarg(x_11, x_10); +x_12 = l_lean_parser_syntax_as__node___main(x_4); if (lean::obj_tag(x_12) == 0) { obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; @@ -25805,7 +25967,7 @@ lean::closure_set(x_18, 1, x_0); lean::closure_set(x_18, 2, x_1); lean::closure_set(x_18, 3, x_6); x_19 = lean::box(x_2); -x_20 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__3___boxed), 4, 3); +x_20 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__2___boxed), 4, 3); lean::closure_set(x_20, 0, x_19); lean::closure_set(x_20, 1, x_0); lean::closure_set(x_20, 2, x_1); @@ -25818,115 +25980,124 @@ return x_22; } else { -obj* x_23; obj* x_26; uint8 x_27; +obj* x_23; obj* x_26; x_23 = lean::cnstr_get(x_12, 0); lean::inc(x_23); lean::dec(x_12); -x_26 = l_lean_elaborator_commands_elaborate___main___lambda__4___closed__2; -x_27 = lean_name_dec_eq(x_23, x_26); -if (x_27 == 0) -{ -obj* x_28; uint8 x_29; -x_28 = l_lean_elaborator_commands_elaborate___main___lambda__4___closed__3; -x_29 = lean_name_dec_eq(x_23, x_28); +x_26 = lean::cnstr_get(x_23, 0); +lean::inc(x_26); lean::dec(x_23); -if (x_29 == 0) +x_9 = x_26; +goto lbl_10; +} +lbl_10: { -obj* x_33; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +obj* x_29; uint8 x_30; +x_29 = l_lean_elaborator_commands_elaborate___main___lambda__3___closed__1; +x_30 = lean_name_dec_eq(x_9, x_29); +if (x_30 == 0) +{ +obj* x_31; uint8 x_32; +x_31 = l_lean_elaborator_commands_elaborate___main___lambda__3___closed__2; +x_32 = lean_name_dec_eq(x_9, x_31); +lean::dec(x_9); +if (x_32 == 0) +{ +obj* x_36; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; lean::dec(x_4); lean::dec(x_8); -x_33 = lean::box(0); +x_36 = lean::box(0); lean::inc(x_1); lean::inc(x_0); -x_36 = lean::alloc_closure(reinterpret_cast(l_lean_parser_rec__t_recurse___at_lean_elaborator_command_elaborate___spec__1), 5, 4); -lean::closure_set(x_36, 0, x_33); -lean::closure_set(x_36, 1, x_0); -lean::closure_set(x_36, 2, x_1); -lean::closure_set(x_36, 3, x_6); -x_37 = lean::box(x_2); -x_38 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__3___boxed), 4, 3); -lean::closure_set(x_38, 0, x_37); -lean::closure_set(x_38, 1, x_0); -lean::closure_set(x_38, 2, x_1); -x_39 = lean::alloc_closure(reinterpret_cast(l_except__t_bind__cont___at_lean_elaborator_elaborator__coe__coelaborator___spec__1___rarg), 2, 1); -lean::closure_set(x_39, 0, x_38); -x_40 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); -lean::closure_set(x_40, 0, x_36); -lean::closure_set(x_40, 1, x_39); -return x_40; +x_39 = lean::alloc_closure(reinterpret_cast(l_lean_parser_rec__t_recurse___at_lean_elaborator_command_elaborate___spec__1), 5, 4); +lean::closure_set(x_39, 0, x_36); +lean::closure_set(x_39, 1, x_0); +lean::closure_set(x_39, 2, x_1); +lean::closure_set(x_39, 3, x_6); +x_40 = lean::box(x_2); +x_41 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__2___boxed), 4, 3); +lean::closure_set(x_41, 0, x_40); +lean::closure_set(x_41, 1, x_0); +lean::closure_set(x_41, 2, x_1); +x_42 = lean::alloc_closure(reinterpret_cast(l_except__t_bind__cont___at_lean_elaborator_elaborator__coe__coelaborator___spec__1___rarg), 2, 1); +lean::closure_set(x_42, 0, x_41); +x_43 = lean::alloc_closure(reinterpret_cast(l_coroutine_bind___main___rarg), 3, 2); +lean::closure_set(x_43, 0, x_39); +lean::closure_set(x_43, 1, x_42); +return x_43; } else { if (x_2 == 0) { -obj* x_44; obj* x_45; obj* x_46; obj* x_47; +obj* x_47; obj* x_48; obj* x_49; obj* x_50; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); -x_44 = lean::box(0); +x_47 = lean::box(0); if (lean::is_scalar(x_8)) { - x_45 = lean::alloc_cnstr(0, 2, 0); + x_48 = lean::alloc_cnstr(0, 2, 0); } else { - x_45 = x_8; + x_48 = x_8; } -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_6); -x_46 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_46, 0, x_45); -x_47 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); -lean::closure_set(x_47, 0, x_46); -return x_47; -} -else -{ -obj* x_49; obj* x_50; -lean::dec(x_8); -x_49 = l_lean_elaborator_commands_elaborate___main___lambda__4___closed__4; -x_50 = lean::alloc_closure(reinterpret_cast(l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed), 6, 5); -lean::closure_set(x_50, 0, x_4); -lean::closure_set(x_50, 1, x_49); -lean::closure_set(x_50, 2, x_0); -lean::closure_set(x_50, 3, x_1); -lean::closure_set(x_50, 4, x_6); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_6); +x_49 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_49, 0, x_48); +x_50 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); +lean::closure_set(x_50, 0, x_49); return x_50; } +else +{ +obj* x_52; obj* x_53; +lean::dec(x_8); +x_52 = l_lean_elaborator_commands_elaborate___main___lambda__3___closed__3; +x_53 = lean::alloc_closure(reinterpret_cast(l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed), 6, 5); +lean::closure_set(x_53, 0, x_4); +lean::closure_set(x_53, 1, x_52); +lean::closure_set(x_53, 2, x_0); +lean::closure_set(x_53, 3, x_1); +lean::closure_set(x_53, 4, x_6); +return x_53; +} } } else { -lean::dec(x_23); +lean::dec(x_9); if (x_2 == 0) { -obj* x_53; obj* x_54; +obj* x_56; obj* x_57; lean::dec(x_8); -x_53 = l_lean_elaborator_commands_elaborate___main___lambda__4___closed__5; -x_54 = lean::alloc_closure(reinterpret_cast(l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed), 6, 5); -lean::closure_set(x_54, 0, x_4); -lean::closure_set(x_54, 1, x_53); -lean::closure_set(x_54, 2, x_0); -lean::closure_set(x_54, 3, x_1); -lean::closure_set(x_54, 4, x_6); -return x_54; +x_56 = l_lean_elaborator_commands_elaborate___main___lambda__3___closed__4; +x_57 = lean::alloc_closure(reinterpret_cast(l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed), 6, 5); +lean::closure_set(x_57, 0, x_4); +lean::closure_set(x_57, 1, x_56); +lean::closure_set(x_57, 2, x_0); +lean::closure_set(x_57, 3, x_1); +lean::closure_set(x_57, 4, x_6); +return x_57; } else { -obj* x_58; obj* x_59; obj* x_60; obj* x_61; +obj* x_61; obj* x_62; obj* x_63; obj* x_64; lean::dec(x_4); lean::dec(x_1); lean::dec(x_0); -x_58 = lean::box(0); +x_61 = lean::box(0); if (lean::is_scalar(x_8)) { - x_59 = lean::alloc_cnstr(0, 2, 0); + x_62 = lean::alloc_cnstr(0, 2, 0); } else { - x_59 = x_8; + x_62 = x_8; } -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_6); -x_60 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_60, 0, x_59); -x_61 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); -lean::closure_set(x_61, 0, x_60); -return x_61; +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_6); +x_63 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_63, 0, x_62); +x_64 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); +lean::closure_set(x_64, 0, x_63); +return x_64; } } } @@ -25939,7 +26110,7 @@ obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; x_4 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_current__command___rarg), 2, 1); lean::closure_set(x_4, 0, x_3); x_5 = lean::box(x_0); -x_6 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__4___boxed), 4, 3); +x_6 = lean::alloc_closure(reinterpret_cast(l_lean_elaborator_commands_elaborate___main___lambda__3___boxed), 4, 3); lean::closure_set(x_6, 0, x_1); lean::closure_set(x_6, 1, x_2); lean::closure_set(x_6, 2, x_5); @@ -25951,13 +26122,13 @@ lean::closure_set(x_8, 1, x_7); return x_8; } } -obj* l_lean_elaborator_commands_elaborate___main___lambda__1___boxed(obj* x_0) { +obj* l_lean_elaborator_commands_elaborate___main___lambda__1___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_1; -x_1 = l_lean_elaborator_commands_elaborate___main___lambda__1(x_0); -lean::dec(x_0); -return x_1; +uint8 x_4; obj* x_5; +x_4 = lean::unbox(x_0); +x_5 = l_lean_elaborator_commands_elaborate___main___lambda__1(x_4, x_1, x_2, x_3); +return x_5; } } obj* l_lean_elaborator_commands_elaborate___main___lambda__2___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { @@ -25973,17 +26144,8 @@ obj* l_lean_elaborator_commands_elaborate___main___lambda__3___boxed(obj* x_0, o _start: { uint8 x_4; obj* x_5; -x_4 = lean::unbox(x_0); -x_5 = l_lean_elaborator_commands_elaborate___main___lambda__3(x_4, x_1, x_2, x_3); -return x_5; -} -} -obj* l_lean_elaborator_commands_elaborate___main___lambda__4___boxed(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { -_start: -{ -uint8 x_4; obj* x_5; x_4 = lean::unbox(x_2); -x_5 = l_lean_elaborator_commands_elaborate___main___lambda__4(x_0, x_1, x_4, x_3); +x_5 = l_lean_elaborator_commands_elaborate___main___lambda__3(x_0, x_1, x_4, x_3); return x_5; } } @@ -26061,7 +26223,7 @@ return x_0; obj* l_lean_elaborator_end__scope___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; obj* x_14; obj* x_15; +obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_12; x_5 = lean::cnstr_get(x_4, 0); x_7 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { @@ -26076,36 +26238,34 @@ if (lean::is_exclusive(x_4)) { } x_12 = lean::cnstr_get(x_5, 1); lean::inc(x_12); -x_14 = l_lean_elaborator_to__pexpr___main___closed__28; -x_15 = l_option_map___rarg(x_14, x_12); -if (lean::obj_tag(x_15) == 0) +if (lean::obj_tag(x_12) == 0) { if (lean::obj_tag(x_1) == 0) { -obj* x_19; obj* x_20; obj* x_21; obj* x_22; +obj* x_17; obj* x_18; obj* x_19; obj* x_20; lean::dec(x_5); lean::dec(x_3); lean::dec(x_2); -x_19 = lean::box(0); +x_17 = lean::box(0); if (lean::is_scalar(x_9)) { - x_20 = lean::alloc_cnstr(0, 2, 0); + x_18 = lean::alloc_cnstr(0, 2, 0); } else { - x_20 = x_9; + x_18 = x_9; } -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_7); -x_21 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_21, 0, x_20); -x_22 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); -lean::closure_set(x_22, 0, x_21); -return x_22; +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_7); +x_19 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_19, 0, x_18); +x_20 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); +lean::closure_set(x_20, 0, x_19); +return x_20; } else { -obj* x_24; +obj* x_22; lean::dec(x_9); -x_24 = lean::box(0); -x_10 = x_24; +x_22 = lean::box(0); +x_10 = x_22; goto lbl_11; } } @@ -26113,80 +26273,81 @@ else { if (lean::obj_tag(x_1) == 0) { -obj* x_27; -lean::dec(x_15); +obj* x_25; +lean::dec(x_12); lean::dec(x_9); -x_27 = lean::box(0); -x_10 = x_27; +x_25 = lean::box(0); +x_10 = x_25; goto lbl_11; } else { -obj* x_28; obj* x_31; uint8 x_32; -x_28 = lean::cnstr_get(x_15, 0); -lean::inc(x_28); -lean::dec(x_15); -x_31 = lean::cnstr_get(x_1, 0); -x_32 = lean_name_dec_eq(x_28, x_31); -lean::dec(x_28); -if (x_32 == 0) +obj* x_26; obj* x_29; obj* x_30; uint8 x_31; +x_26 = lean::cnstr_get(x_12, 0); +lean::inc(x_26); +lean::dec(x_12); +x_29 = lean::cnstr_get(x_1, 0); +x_30 = l_lean_elaborator_mangle__ident(x_26); +x_31 = lean_name_dec_eq(x_30, x_29); +lean::dec(x_30); +if (x_31 == 0) { -obj* x_35; +obj* x_34; lean::dec(x_9); -x_35 = lean::box(0); -x_10 = x_35; +x_34 = lean::box(0); +x_10 = x_34; goto lbl_11; } else { -obj* x_39; obj* x_40; obj* x_41; obj* x_42; +obj* x_38; obj* x_39; obj* x_40; obj* x_41; lean::dec(x_5); lean::dec(x_3); lean::dec(x_2); -x_39 = lean::box(0); +x_38 = lean::box(0); if (lean::is_scalar(x_9)) { - x_40 = lean::alloc_cnstr(0, 2, 0); + x_39 = lean::alloc_cnstr(0, 2, 0); } else { - x_40 = x_9; + x_39 = x_9; } +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_7); +x_40 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_7); -x_41 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_41, 0, x_40); -x_42 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); -lean::closure_set(x_42, 0, x_41); -return x_42; +x_41 = lean::alloc_closure(reinterpret_cast(l_lean_parser_parsec__t_monad_x_27___at_lean_parser_module_yield__command___spec__1___lambda__1___boxed), 2, 1); +lean::closure_set(x_41, 0, x_40); +return x_41; } } } lbl_11: { -obj* x_44; obj* x_45; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; +obj* x_43; obj* x_44; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; lean::dec(x_10); -x_44 = l_lean_parser_command_end_has__view; -x_45 = lean::cnstr_get(x_44, 1); -lean::inc(x_45); -lean::dec(x_44); -x_48 = lean::apply_1(x_45, x_5); -x_49 = l_lean_elaborator_end__scope___lambda__2___closed__1; -x_50 = lean::string_append(x_49, x_0); -x_51 = l_lean_elaborator_end__scope___lambda__2___closed__2; -x_52 = lean::string_append(x_50, x_51); -x_53 = lean::box(0); -x_54 = l_option_get__or__else___main___rarg(x_1, x_53); -x_55 = l_lean_name_to__string___closed__1; -x_56 = l_lean_name_to__string__with__sep___main(x_55, x_54); -x_57 = lean::string_append(x_52, x_56); -lean::dec(x_56); -x_59 = l_char_has__repr___closed__1; -x_60 = lean::string_append(x_57, x_59); -x_61 = lean::alloc_closure(reinterpret_cast(l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed), 6, 5); -lean::closure_set(x_61, 0, x_48); -lean::closure_set(x_61, 1, x_60); -lean::closure_set(x_61, 2, x_2); -lean::closure_set(x_61, 3, x_3); -lean::closure_set(x_61, 4, x_7); -return x_61; +x_43 = l_lean_parser_command_end_has__view; +x_44 = lean::cnstr_get(x_43, 1); +lean::inc(x_44); +lean::dec(x_43); +x_47 = lean::apply_1(x_44, x_5); +x_48 = l_lean_elaborator_end__scope___lambda__2___closed__1; +x_49 = lean::string_append(x_48, x_0); +x_50 = l_lean_elaborator_end__scope___lambda__2___closed__2; +x_51 = lean::string_append(x_49, x_50); +x_52 = lean::box(0); +x_53 = l_option_get__or__else___main___rarg(x_1, x_52); +x_54 = l_lean_name_to__string___closed__1; +x_55 = l_lean_name_to__string__with__sep___main(x_54, x_53); +x_56 = lean::string_append(x_51, x_55); +lean::dec(x_55); +x_58 = l_char_has__repr___closed__1; +x_59 = lean::string_append(x_56, x_58); +x_60 = lean::alloc_closure(reinterpret_cast(l_lean_expander_error___at_lean_elaborator_no__kind_elaborate___spec__1___rarg___boxed), 6, 5); +lean::closure_set(x_60, 0, x_47); +lean::closure_set(x_60, 1, x_59); +lean::closure_set(x_60, 2, x_2); +lean::closure_set(x_60, 3, x_3); +lean::closure_set(x_60, 4, x_7); +return x_60; } } } @@ -26452,18 +26613,46 @@ return x_0; obj* l_lean_elaborator_section_elaborate___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { -obj* x_4; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; -x_4 = lean::cnstr_get(x_3, 1); +obj* x_4; +x_4 = lean::cnstr_get(x_0, 1); lean::inc(x_4); -lean::dec(x_3); -x_7 = lean::cnstr_get(x_0, 1); -lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_elaborator_to__pexpr___main___closed__28; -x_11 = l_option_map___rarg(x_10, x_7); -x_12 = l_lean_elaborator_section_elaborate___lambda__1___closed__1; -x_13 = l_lean_elaborator_end__scope(x_12, x_11, x_1, x_2, x_4); -return x_13; +if (lean::obj_tag(x_4) == 0) +{ +obj* x_7; obj* x_10; obj* x_11; obj* x_12; +x_7 = lean::cnstr_get(x_3, 1); +lean::inc(x_7); +lean::dec(x_3); +x_10 = lean::box(0); +x_11 = l_lean_elaborator_section_elaborate___lambda__1___closed__1; +x_12 = l_lean_elaborator_end__scope(x_11, x_10, x_1, x_2, x_7); +return x_12; +} +else +{ +obj* x_13; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +x_13 = lean::cnstr_get(x_3, 1); +lean::inc(x_13); +lean::dec(x_3); +x_16 = lean::cnstr_get(x_4, 0); +if (lean::is_exclusive(x_4)) { + x_18 = x_4; +} else { + lean::inc(x_16); + lean::dec(x_4); + x_18 = lean::box(0); +} +x_19 = l_lean_elaborator_mangle__ident(x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = l_lean_elaborator_section_elaborate___lambda__1___closed__1; +x_22 = l_lean_elaborator_end__scope(x_21, x_20, x_1, x_2, x_13); +return x_22; +} } } obj* l_lean_elaborator_section_elaborate___lambda__2(obj* x_0, obj* x_1, obj* x_2) { @@ -29811,8 +30000,6 @@ lean::mark_persistent(l_lean_elaborator_to__pexpr___main___closed__44); lean::mark_persistent(l_lean_elaborator_to__pexpr___main___closed__45); l_lean_elaborator_to__pexpr___main___closed__46 = _init_l_lean_elaborator_to__pexpr___main___closed__46(); lean::mark_persistent(l_lean_elaborator_to__pexpr___main___closed__46); - l_lean_elaborator_to__pexpr___main___closed__47 = _init_l_lean_elaborator_to__pexpr___main___closed__47(); -lean::mark_persistent(l_lean_elaborator_to__pexpr___main___closed__47); l_lean_elaborator_ordered__rbmap_empty___at_lean_elaborator_old__elab__command___spec__6 = _init_l_lean_elaborator_ordered__rbmap_empty___at_lean_elaborator_old__elab__command___spec__6(); lean::mark_persistent(l_lean_elaborator_ordered__rbmap_empty___at_lean_elaborator_old__elab__command___spec__6); l_lean_elaborator_ordered__rbmap_of__list___at_lean_elaborator_old__elab__command___spec__1___closed__1 = _init_l_lean_elaborator_ordered__rbmap_of__list___at_lean_elaborator_old__elab__command___spec__1___closed__1(); @@ -29885,8 +30072,6 @@ lean::mark_persistent(l_list_mmap___main___at_lean_elaborator_command__parser__c lean::mark_persistent(l_lean_elaborator_command__parser__config_register__notation__parser___closed__1); l_lean_elaborator_postprocess__notation__spec___closed__1 = _init_l_lean_elaborator_postprocess__notation__spec___closed__1(); lean::mark_persistent(l_lean_elaborator_postprocess__notation__spec___closed__1); - l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___closed__1 = _init_l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___closed__1(); -lean::mark_persistent(l_list_mmap___main___at_lean_elaborator_match__spec___spec__1___closed__1); l_lean_elaborator_match__spec___closed__1 = _init_l_lean_elaborator_match__spec___closed__1(); lean::mark_persistent(l_lean_elaborator_match__spec___closed__1); l_lean_elaborator_notation_elaborate__aux___closed__1 = _init_l_lean_elaborator_notation_elaborate__aux___closed__1(); @@ -29917,16 +30102,14 @@ lean::mark_persistent(l_lean_elaborator_init__quot_elaborate___closed__1); lean::mark_persistent(l_list_mmap_x_27___main___at_lean_elaborator_no__kind_elaborate___spec__2___closed__1); l_lean_elaborator_no__kind_elaborate___lambda__1___closed__1 = _init_l_lean_elaborator_no__kind_elaborate___lambda__1___closed__1(); lean::mark_persistent(l_lean_elaborator_no__kind_elaborate___lambda__1___closed__1); - l_lean_elaborator_commands_elaborate___main___lambda__4___closed__1 = _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__1(); -lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__4___closed__1); - l_lean_elaborator_commands_elaborate___main___lambda__4___closed__2 = _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__2(); -lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__4___closed__2); - l_lean_elaborator_commands_elaborate___main___lambda__4___closed__3 = _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__3(); -lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__4___closed__3); - l_lean_elaborator_commands_elaborate___main___lambda__4___closed__4 = _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__4(); -lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__4___closed__4); - l_lean_elaborator_commands_elaborate___main___lambda__4___closed__5 = _init_l_lean_elaborator_commands_elaborate___main___lambda__4___closed__5(); -lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__4___closed__5); + l_lean_elaborator_commands_elaborate___main___lambda__3___closed__1 = _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__1(); +lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__3___closed__1); + l_lean_elaborator_commands_elaborate___main___lambda__3___closed__2 = _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__2(); +lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__3___closed__2); + l_lean_elaborator_commands_elaborate___main___lambda__3___closed__3 = _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__3(); +lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__3___closed__3); + l_lean_elaborator_commands_elaborate___main___lambda__3___closed__4 = _init_l_lean_elaborator_commands_elaborate___main___lambda__3___closed__4(); +lean::mark_persistent(l_lean_elaborator_commands_elaborate___main___lambda__3___closed__4); l_lean_elaborator_end__scope___lambda__2___closed__1 = _init_l_lean_elaborator_end__scope___lambda__2___closed__1(); lean::mark_persistent(l_lean_elaborator_end__scope___lambda__2___closed__1); l_lean_elaborator_end__scope___lambda__2___closed__2 = _init_l_lean_elaborator_end__scope___lambda__2___closed__2(); diff --git a/src/boot/init/lean/expander.cpp b/src/boot/init/lean/expander.cpp index 97b364828b..5573a8da1f 100644 --- a/src/boot/init/lean/expander.cpp +++ b/src/boot/init/lean/expander.cpp @@ -30,6 +30,7 @@ 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; @@ -65,7 +66,6 @@ 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*); @@ -88,7 +88,6 @@ extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__6(obj*, obj*); obj* l_lean_expander_binding__annotation__update_has__view; obj* l_coe___at_lean_expander_coe__binders__ext___spec__1(obj*); -obj* l_lean_expander_mixfix__to__notation__spec___lambda__2___boxed(obj*); extern obj* l_lean_parser_command_mixfix_has__view; obj* l_lean_expander_intro__rule_transform(obj*, obj*); extern obj* l_lean_parser_command_universes_has__view; @@ -104,7 +103,6 @@ obj* l_lean_expander_transform__m_monad; obj* l_lean_expander_expand__bracketed__binder___main___closed__4; obj* l_list_mfoldr___main___at_lean_expander_expand__binders___spec__6___closed__3; obj* l_lean_expander_error___at___private_init_lean_expander_1__pop__stx__arg___spec__1___rarg___boxed(obj*, obj*, obj*, obj*); -obj* l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1; extern obj* l_lean_parser_command_variable_has__view; obj* l_lean_expander_arrow_transform___closed__1; obj* l_lean_expander_error___at___private_init_lean_expander_1__pop__stx__arg___spec__1___boxed(obj*); @@ -126,7 +124,6 @@ extern obj* l_lean_parser_ident__univs; obj* l_list_assoc___main___at_lean_expander_mk__notation__transformer___spec__7(obj*, obj*); obj* l_list_foldr___main___at_lean_expander_expand__binders___spec__2(obj*, obj*, obj*, obj*); obj* l_list_map___main___at_lean_expander_let_transform___spec__1(obj*); -obj* l_lean_expander_mixfix__to__notation__spec___lambda__2(obj*); extern obj* l_lean_parser_term_sorry; obj* l___private_init_lean_expander_1__pop__stx__arg(obj*, obj*); obj* l_lean_expander_reserve__mixfix_transform___closed__1; @@ -155,7 +152,6 @@ 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*); @@ -196,7 +192,6 @@ 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; @@ -228,6 +223,7 @@ obj* l_lean_expander_declaration_transform(obj*, obj*); obj* l_lean_expander_error___at___private_init_lean_expander_2__expand__core___main___spec__1___rarg(obj*, obj*, obj*, obj*); obj* l_lean_expander_arrow_transform___closed__2; obj* l_lean_expander_no__expansion(obj*); +obj* l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_syntax_mk__node(obj*, obj*); obj* l_lean_expander_declaration_transform___closed__2; obj* l_rbnode_balance2___main___rarg(obj*, obj*); @@ -245,7 +241,6 @@ 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*); @@ -255,6 +250,7 @@ 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; @@ -280,6 +276,7 @@ obj* l_lean_expander_coe__binders__ext__binders(obj*); obj* l_lean_expander_mixfix_transform(obj*, obj*); obj* l_lean_parser_symbol__core___at_lean_parser_command_notation__spec_precedence__term_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_expander_expand__bracketed__binder___main___closed__1; +obj* l_lean_expander_mixfix__to__notation__spec___closed__7; obj* l_lean_expander_paren_transform___closed__1; obj* l_rbnode_balance1___main___rarg(obj*, obj*); obj* l_lean_expander_coe__ident__ident__univs(obj*); @@ -320,6 +317,7 @@ 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; @@ -334,7 +332,6 @@ 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*); @@ -354,17 +351,16 @@ obj* l_lean_expander_mixfix__to__notation__spec___closed__4; obj* l_lean_parser_combinators_node___at_lean_parser_command_notation__spec_precedence__lit_parser___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_expander_coe__binder__bracketed__binder(obj*); obj* l_list_foldl___main___at_lean_expander_builtin__transformers___spec__5(obj*, obj*); -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_expander_no__expansion___closed__1; obj* l_list_mfoldr___main___at_lean_expander_expand__binders___spec__6(obj*, obj*, obj*, obj*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__21(uint8, obj*, obj*, obj*); obj* l_list_mfoldr___main___at_lean_expander_expand__binders___spec__6___closed__4; extern obj* l_lean_parser_term__parser__m_monad__except; -obj* l_lean_expander_mixfix__to__notation__spec___lambda__1(obj*); 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; @@ -373,13 +369,13 @@ 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*); obj* l_list_map___main___at_lean_expander_expand__bracketed__binder___main___spec__11(obj*, obj*, obj*); obj* l_rbnode_set__black___main___rarg(obj*); extern obj* l_lean_parser_term__parser__m_alternative; -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* l_lean_expander_transformer__config__coe__frontend__config(obj* x_0) { _start: { @@ -400,22 +396,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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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 +424,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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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 +453,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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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); @@ -2842,43 +2838,6 @@ lean::dec(x_1); return x_2; } } -obj* _init_l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1() { -_start: -{ -obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; -x_0 = lean::box(0); -x_1 = lean::mk_string(":"); -x_2 = l_string_trim(x_1); -x_3 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_3, 0, x_0); -lean::cnstr_set(x_3, 1, x_2); -x_4 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_4, 0, x_3); -return x_4; -} -} -obj* l_lean_expander_mixfix__to__notation__spec___lambda__1(obj* x_0) { -_start: -{ -obj* x_1; obj* x_2; obj* x_3; -x_1 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_1, 0, x_0); -x_2 = l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1; -x_3 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_3, 0, x_2); -lean::cnstr_set(x_3, 1, x_1); -return x_3; -} -} -obj* l_lean_expander_mixfix__to__notation__spec___lambda__2(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::cnstr_get(x_0, 1); -lean::inc(x_1); -return x_1; -} -} obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__1() { _start: { @@ -2930,22 +2889,81 @@ return x_11; obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__3() { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_expander_mixfix__to__notation__spec___lambda__2___boxed), 1, 0); -return x_0; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(0); +x_3 = lean::mk_string("b"); +x_4 = lean_name_mk_string(x_2, x_3); +x_5 = lean::mk_string("."); +lean::inc(x_4); +x_7 = l_lean_name_to__string__with__sep___main(x_5, x_4); +lean::dec(x_5); +x_9 = l_lean_parser_substring_of__string(x_7); +x_10 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_10, 0, x_0); +lean::cnstr_set(x_10, 1, x_9); +lean::cnstr_set(x_10, 2, x_4); +lean::cnstr_set(x_10, 3, x_1); +lean::cnstr_set(x_10, 4, x_1); +x_11 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_11, 0, x_10); +lean::cnstr_set(x_11, 1, x_0); +x_12 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_12, 0, x_11); +x_13 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_13, 0, x_12); +return x_13; } } obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__4() { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_expander_mixfix__to__notation__spec___lambda__1), 1, 0); -return x_0; +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; +x_0 = lean::box(0); +x_1 = lean::mk_string(":"); +x_2 = l_string_trim(x_1); +x_3 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_3, 0, x_0); +lean::cnstr_set(x_3, 1, x_2); +x_4 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_4, 0, x_3); +return x_4; } } obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__5() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_string("b"); +x_3 = lean_name_mk_string(x_1, x_2); +x_4 = lean::mk_string("."); +lean::inc(x_3); +x_6 = l_lean_name_to__string__with__sep___main(x_4, x_3); +lean::dec(x_4); +x_8 = l_lean_parser_substring_of__string(x_6); +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(0, 5, 0); +lean::cnstr_set(x_10, 0, x_0); +lean::cnstr_set(x_10, 1, x_8); +lean::cnstr_set(x_10, 2, x_3); +lean::cnstr_set(x_10, 3, x_9); +lean::cnstr_set(x_10, 4, x_9); +x_11 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_11, 0, x_10); +lean::cnstr_set(x_11, 1, x_0); +x_12 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_12, 0, x_11); +x_13 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_13, 0, x_12); +return x_13; +} +} +obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__6() { +_start: +{ obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_8; obj* x_9; obj* x_10; x_0 = lean::box(0); x_1 = lean::box(0); @@ -2966,7 +2984,7 @@ lean::cnstr_set(x_10, 4, x_9); return x_10; } } -obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__6() { +obj* _init_l_lean_expander_mixfix__to__notation__spec___closed__7() { _start: { obj* x_0; @@ -2983,130 +3001,170 @@ lean::inc(x_5); switch (lean::obj_tag(x_0)) { case 0: { -obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_10; obj* x_11; lean::dec(x_2); x_10 = lean::box(0); x_11 = lean::box(0); -x_12 = l_lean_expander_mixfix__to__notation__spec___closed__3; -x_13 = l_option_map___rarg(x_12, x_5); -x_14 = l_lean_expander_mixfix__to__notation__spec___closed__4; -x_15 = l_option_map___rarg(x_14, x_13); -x_16 = l_lean_expander_mixfix__to__notation__spec___closed__5; -x_17 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_15); -x_18 = lean::alloc_cnstr(2, 1, 0); -lean::cnstr_set(x_18, 0, x_17); -x_19 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_19, 0, x_18); -x_20 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_20, 0, x_1); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_20); -lean::cnstr_set(x_21, 1, x_11); -x_22 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_22, 0, x_10); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_23, 0, x_22); -return x_23; +if (lean::obj_tag(x_5) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_12 = l_lean_expander_mixfix__to__notation__spec___closed__5; +x_13 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_13, 0, x_1); +lean::cnstr_set(x_13, 1, x_12); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_11); +x_15 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_15, 0, x_10); +lean::cnstr_set(x_15, 1, x_14); +x_16 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_16, 0, x_15); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_17 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_19 = x_5; +} else { + lean::inc(x_17); + lean::dec(x_5); + x_19 = lean::box(0); +} +x_20 = lean::cnstr_get(x_17, 1); +lean::inc(x_20); +lean::dec(x_17); +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +x_24 = l_lean_expander_mixfix__to__notation__spec___closed__4; +x_25 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_23); +if (lean::is_scalar(x_19)) { + x_26 = lean::alloc_cnstr(1, 1, 0); +} else { + x_26 = x_19; +} +lean::cnstr_set(x_26, 0, x_25); +x_27 = l_lean_expander_mixfix__to__notation__spec___closed__6; +x_28 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_28, 0, x_27); +lean::cnstr_set(x_28, 1, x_26); +x_29 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_29, 0, x_28); +x_30 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_30, 0, x_29); +x_31 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_31, 0, x_1); +lean::cnstr_set(x_31, 1, x_30); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_11); +x_33 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_33, 0, x_10); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_34, 0, x_33); +return x_34; +} } case 3: { if (lean::obj_tag(x_5) == 0) { -obj* x_25; +obj* x_36; lean::dec(x_2); -x_25 = lean::box(0); -x_3 = x_25; +x_36 = lean::box(0); +x_3 = x_36; goto lbl_4; } else { -obj* x_26; obj* x_28; obj* x_29; obj* x_31; obj* x_32; uint8 x_33; -x_26 = lean::cnstr_get(x_5, 0); +obj* x_37; obj* x_39; obj* x_40; obj* x_42; obj* x_43; uint8 x_44; +x_37 = lean::cnstr_get(x_5, 0); if (lean::is_exclusive(x_5)) { lean::cnstr_set(x_5, 0, lean::box(0)); - x_28 = x_5; + x_39 = x_5; } else { - lean::inc(x_26); + lean::inc(x_37); lean::dec(x_5); - x_28 = lean::box(0); + x_39 = lean::box(0); } -x_29 = lean::cnstr_get(x_26, 1); -lean::inc(x_29); -x_31 = l_lean_parser_command_notation__spec_precedence__term_view_to__nat___main(x_29); -x_32 = lean::mk_nat_obj(0u); -x_33 = lean::nat_dec_eq(x_31, x_32); -if (x_33 == 0) +x_40 = lean::cnstr_get(x_37, 1); +lean::inc(x_40); +x_42 = l_lean_parser_command_notation__spec_precedence__term_view_to__nat___main(x_40); +x_43 = lean::mk_nat_obj(0u); +x_44 = lean::nat_dec_eq(x_42, x_43); +if (x_44 == 0) { -obj* x_36; obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; lean::dec(x_2); -lean::dec(x_26); -x_36 = lean::mk_nat_obj(1u); -x_37 = lean::nat_sub(x_31, x_36); -lean::dec(x_31); -x_39 = l_lean_parser_number_view_of__nat(x_37); -x_40 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_40, 0, x_39); -x_41 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_41, 0, x_40); -x_42 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_42, 0, x_41); -x_43 = l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1; -x_44 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_42); -if (lean::is_scalar(x_28)) { - x_45 = lean::alloc_cnstr(1, 1, 0); +lean::dec(x_37); +x_47 = lean::mk_nat_obj(1u); +x_48 = lean::nat_sub(x_42, x_47); +lean::dec(x_42); +x_50 = l_lean_parser_number_view_of__nat(x_48); +x_51 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_51, 0, x_50); +x_52 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_52, 0, x_51); +x_53 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_53, 0, x_52); +x_54 = l_lean_expander_mixfix__to__notation__spec___closed__4; +x_55 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_55, 0, x_54); +lean::cnstr_set(x_55, 1, x_53); +if (lean::is_scalar(x_39)) { + x_56 = lean::alloc_cnstr(1, 1, 0); } else { - x_45 = x_28; + x_56 = x_39; } -lean::cnstr_set(x_45, 0, x_44); -x_3 = x_45; +lean::cnstr_set(x_56, 0, x_55); +x_3 = x_56; goto lbl_4; } else { -obj* x_48; obj* x_49; obj* x_52; obj* x_53; obj* x_54; -lean::dec(x_28); -lean::dec(x_31); -x_48 = l_lean_parser_command_notation__spec_precedence_has__view; -x_49 = lean::cnstr_get(x_48, 1); -lean::inc(x_49); -lean::dec(x_48); -x_52 = lean::apply_1(x_49, x_26); -x_53 = l_lean_expander_mixfix__to__notation__spec___closed__6; -x_54 = l_lean_expander_error___at_lean_expander_mk__notation__transformer___spec__1___rarg(x_52, x_53, x_2); -lean::dec(x_52); -if (lean::obj_tag(x_54) == 0) +obj* x_59; obj* x_60; obj* x_63; obj* x_64; obj* x_65; +lean::dec(x_42); +lean::dec(x_39); +x_59 = l_lean_parser_command_notation__spec_precedence_has__view; +x_60 = lean::cnstr_get(x_59, 1); +lean::inc(x_60); +lean::dec(x_59); +x_63 = lean::apply_1(x_60, x_37); +x_64 = l_lean_expander_mixfix__to__notation__spec___closed__7; +x_65 = l_lean_expander_error___at_lean_expander_mk__notation__transformer___spec__1___rarg(x_63, x_64, x_2); +lean::dec(x_63); +if (lean::obj_tag(x_65) == 0) { -obj* x_57; obj* x_59; obj* x_60; +obj* x_68; obj* x_70; obj* x_71; lean::dec(x_1); -x_57 = lean::cnstr_get(x_54, 0); -if (lean::is_exclusive(x_54)) { - x_59 = x_54; +x_68 = lean::cnstr_get(x_65, 0); +if (lean::is_exclusive(x_65)) { + x_70 = x_65; } else { - lean::inc(x_57); - lean::dec(x_54); - x_59 = lean::box(0); + lean::inc(x_68); + lean::dec(x_65); + x_70 = lean::box(0); } -if (lean::is_scalar(x_59)) { - x_60 = lean::alloc_cnstr(0, 1, 0); +if (lean::is_scalar(x_70)) { + x_71 = lean::alloc_cnstr(0, 1, 0); } else { - x_60 = x_59; + x_71 = x_70; } -lean::cnstr_set(x_60, 0, x_57); -return x_60; +lean::cnstr_set(x_71, 0, x_68); +return x_71; } else { -obj* x_61; -x_61 = lean::cnstr_get(x_54, 0); -lean::inc(x_61); -lean::dec(x_54); -x_3 = x_61; +obj* x_72; +x_72 = lean::cnstr_get(x_65, 0); +lean::inc(x_72); +lean::dec(x_65); +x_3 = x_72; goto lbl_4; } } @@ -3114,100 +3172,132 @@ goto lbl_4; } case 4: { -obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; lean::dec(x_5); lean::dec(x_2); -x_66 = lean::box(0); -x_67 = lean::box(0); -x_68 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_68, 0, x_1); -lean::cnstr_set(x_68, 1, x_66); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_68); -lean::cnstr_set(x_69, 1, x_67); -x_70 = l_lean_expander_mixfix__to__notation__spec___closed__2; -x_71 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_71, 0, x_70); -lean::cnstr_set(x_71, 1, x_69); -x_72 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_72, 0, x_71); -return x_72; +x_77 = lean::box(0); +x_78 = lean::box(0); +x_79 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_79, 0, x_1); +lean::cnstr_set(x_79, 1, x_77); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_79); +lean::cnstr_set(x_80, 1, x_78); +x_81 = l_lean_expander_mixfix__to__notation__spec___closed__2; +x_82 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_80); +x_83 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_83, 0, x_82); +return x_83; } default: { -obj* x_74; +obj* x_85; lean::dec(x_2); -x_74 = lean::box(0); -x_7 = x_74; +x_85 = lean::box(0); +x_7 = x_85; goto lbl_8; } } lbl_4: { -obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; -x_75 = lean::box(0); -x_76 = l_lean_expander_mixfix__to__notation__spec___closed__1; -x_77 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_77, 0, x_76); -lean::cnstr_set(x_77, 1, x_3); -x_78 = lean::alloc_cnstr(2, 1, 0); -lean::cnstr_set(x_78, 0, x_77); -x_79 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_79, 0, x_78); -x_80 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_80, 0, x_1); -lean::cnstr_set(x_80, 1, x_79); -x_81 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_81, 0, x_80); -lean::cnstr_set(x_81, 1, x_75); -x_82 = l_lean_expander_mixfix__to__notation__spec___closed__2; -x_83 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_83, 0, x_82); -lean::cnstr_set(x_83, 1, x_81); -x_84 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_84, 0, x_83); -return x_84; +obj* 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_86 = lean::box(0); +x_87 = l_lean_expander_mixfix__to__notation__spec___closed__1; +x_88 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_3); +x_89 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_89, 0, x_88); +x_90 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_90, 0, x_89); +x_91 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_91, 0, x_1); +lean::cnstr_set(x_91, 1, x_90); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_91); +lean::cnstr_set(x_92, 1, x_86); +x_93 = l_lean_expander_mixfix__to__notation__spec___closed__2; +x_94 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_92); +x_95 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_95, 0, x_94); +return x_95; } lbl_8: { -obj* 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; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +obj* x_97; lean::dec(x_7); -x_86 = lean::box(0); -x_87 = l_lean_expander_mixfix__to__notation__spec___closed__3; -x_88 = l_option_map___rarg(x_87, x_5); -x_89 = l_lean_expander_mixfix__to__notation__spec___closed__4; -x_90 = l_option_map___rarg(x_89, x_88); -x_91 = l_lean_expander_mixfix__to__notation__spec___closed__1; -x_92 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_92, 0, x_91); -lean::cnstr_set(x_92, 1, x_90); -x_93 = lean::alloc_cnstr(2, 1, 0); -lean::cnstr_set(x_93, 0, x_92); -x_94 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_94, 0, x_93); -x_95 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_95, 0, x_1); -lean::cnstr_set(x_95, 1, x_94); -x_96 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_96, 0, x_95); -lean::cnstr_set(x_96, 1, x_86); -x_97 = l_lean_expander_mixfix__to__notation__spec___closed__2; -x_98 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_98, 0, x_97); -lean::cnstr_set(x_98, 1, x_96); -x_99 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_99, 0, x_98); -return x_99; -} -} -} -obj* l_lean_expander_mixfix__to__notation__spec___lambda__2___boxed(obj* x_0) { -_start: +x_97 = lean::box(0); +if (lean::obj_tag(x_5) == 0) { -obj* x_1; -x_1 = l_lean_expander_mixfix__to__notation__spec___lambda__2(x_0); -lean::dec(x_0); -return x_1; +obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; +x_98 = l_lean_expander_mixfix__to__notation__spec___closed__3; +x_99 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_99, 0, x_1); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_99); +lean::cnstr_set(x_100, 1, x_97); +x_101 = l_lean_expander_mixfix__to__notation__spec___closed__2; +x_102 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_102, 0, x_101); +lean::cnstr_set(x_102, 1, x_100); +x_103 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_103, 0, x_102); +return x_103; +} +else +{ +obj* x_104; obj* x_106; obj* x_107; obj* x_110; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; +x_104 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_106 = x_5; +} else { + lean::inc(x_104); + lean::dec(x_5); + x_106 = lean::box(0); +} +x_107 = lean::cnstr_get(x_104, 1); +lean::inc(x_107); +lean::dec(x_104); +x_110 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_110, 0, x_107); +x_111 = l_lean_expander_mixfix__to__notation__spec___closed__4; +x_112 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_112, 0, x_111); +lean::cnstr_set(x_112, 1, x_110); +if (lean::is_scalar(x_106)) { + x_113 = lean::alloc_cnstr(1, 1, 0); +} else { + x_113 = x_106; +} +lean::cnstr_set(x_113, 0, x_112); +x_114 = l_lean_expander_mixfix__to__notation__spec___closed__1; +x_115 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_115, 0, x_114); +lean::cnstr_set(x_115, 1, x_113); +x_116 = lean::alloc_cnstr(2, 1, 0); +lean::cnstr_set(x_116, 0, x_115); +x_117 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_117, 0, x_116); +x_118 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_118, 0, x_1); +lean::cnstr_set(x_118, 1, x_117); +x_119 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_119, 0, x_118); +lean::cnstr_set(x_119, 1, x_97); +x_120 = l_lean_expander_mixfix__to__notation__spec___closed__2; +x_121 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_121, 0, x_120); +lean::cnstr_set(x_121, 1, x_119); +x_122 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_122, 0, x_121); +return x_122; +} +} } } obj* l_lean_expander_mixfix__to__notation__spec___boxed(obj* x_0, obj* x_1, obj* x_2) { @@ -9146,22 +9236,61 @@ x_6 = lean_name_mk_string(x_4, x_5); return x_6; } } +obj* _init_l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_expander_binding__annotation__update; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_expander_binding__annotation__update; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_expander_binding__annotation__update; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_expander_binding__annotation__update_has__view_x_27() { @@ -11165,8 +11294,6 @@ lean::mark_persistent(l_list_mmap_x_27___main___at_lean_expander_mk__notation__t lean::mark_persistent(l_list_mmap_x_27___main___at_lean_expander_mk__notation__transformer___spec__4___closed__2); l_list_mmap_x_27___main___at_lean_expander_mk__notation__transformer___spec__4___closed__3 = _init_l_list_mmap_x_27___main___at_lean_expander_mk__notation__transformer___spec__4___closed__3(); lean::mark_persistent(l_list_mmap_x_27___main___at_lean_expander_mk__notation__transformer___spec__4___closed__3); - l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1 = _init_l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1(); -lean::mark_persistent(l_lean_expander_mixfix__to__notation__spec___lambda__1___closed__1); l_lean_expander_mixfix__to__notation__spec___closed__1 = _init_l_lean_expander_mixfix__to__notation__spec___closed__1(); lean::mark_persistent(l_lean_expander_mixfix__to__notation__spec___closed__1); l_lean_expander_mixfix__to__notation__spec___closed__2 = _init_l_lean_expander_mixfix__to__notation__spec___closed__2(); @@ -11179,6 +11306,8 @@ lean::mark_persistent(l_lean_expander_mixfix__to__notation__spec___closed__4); lean::mark_persistent(l_lean_expander_mixfix__to__notation__spec___closed__5); l_lean_expander_mixfix__to__notation__spec___closed__6 = _init_l_lean_expander_mixfix__to__notation__spec___closed__6(); lean::mark_persistent(l_lean_expander_mixfix__to__notation__spec___closed__6); + l_lean_expander_mixfix__to__notation__spec___closed__7 = _init_l_lean_expander_mixfix__to__notation__spec___closed__7(); +lean::mark_persistent(l_lean_expander_mixfix__to__notation__spec___closed__7); l_lean_expander_mixfix_transform___closed__1 = _init_l_lean_expander_mixfix_transform___closed__1(); lean::mark_persistent(l_lean_expander_mixfix_transform___closed__1); l_lean_expander_mixfix_transform___closed__2 = _init_l_lean_expander_mixfix_transform___closed__2(); @@ -11273,6 +11402,8 @@ lean::mark_persistent(l_lean_expander_declaration_transform___closed__3); lean::mark_persistent(l_lean_expander_variable_transform___closed__1); l_lean_expander_binding__annotation__update = _init_l_lean_expander_binding__annotation__update(); lean::mark_persistent(l_lean_expander_binding__annotation__update); + l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1___closed__1 = _init_l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1___closed__1(); +lean::mark_persistent(l_lean_expander_binding__annotation__update_has__view_x_27___lambda__1___closed__1); l_lean_expander_binding__annotation__update_has__view_x_27 = _init_l_lean_expander_binding__annotation__update_has__view_x_27(); lean::mark_persistent(l_lean_expander_binding__annotation__update_has__view_x_27); l_lean_expander_binding__annotation__update_has__view = _init_l_lean_expander_binding__annotation__update_has__view(); diff --git a/src/boot/init/lean/level.cpp b/src/boot/init/lean/level.cpp index de196072ec..f7ee0ed4ed 100644 --- a/src/boot/init/lean/level.cpp +++ b/src/boot/init/lean/level.cpp @@ -14,7 +14,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-label" #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif -obj* l_lean_level_to__nat___main___closed__4; obj* l_lean_level_of__nat___boxed(obj*); obj* l_lean_level__to__format_paren__if__false___boxed(obj*, obj*); obj* l_lean_level__to__format_result_to__format___main___closed__2; @@ -37,7 +36,6 @@ obj* l_lean_level_has__param___boxed(obj*); obj* l_lean_has__repr___lambda__1(obj*); obj* l_lean_level__to__format_paren__if__false___main___boxed(obj*, obj*); obj* l_lean_level__to__format_level__has__to__format; -obj* l_lean_level_to__nat___main___lambda__1___boxed(obj*); obj* l_lean_level_has__param(obj*); obj* l_lean_level_has__mvar(obj*); obj* l_lean_level__to__format_result_to__format___main___boxed(obj*, obj*); @@ -62,14 +60,12 @@ obj* l_lean_level_of__nat(obj*); obj* l_lean_level_has__param___main(obj*); extern "C" obj* level_mk_succ(obj*); obj* l_lean_level__to__format_level_to__result___main___closed__1; -obj* l_lean_level_to__nat___main___closed__2; obj* l_lean_level__to__format_result_to__format___boxed(obj*, obj*); obj* l_lean_to__fmt___at_lean_level__to__format_level_to__result___main___spec__1(obj*); obj* l_lean_level_has__mvar___boxed(obj*); obj* l_lean_format_group___main(obj*); obj* l_lean_level__to__format_result_to__format(obj*, uint8); extern obj* l_lean_format_paren___closed__3; -obj* l_lean_level_to__nat___main___lambda__1(obj*); obj* l_lean_level__to__format_result_max___main(obj*, obj*); obj* l_lean_level__to__format_level_to__result(obj*); extern "C" obj* level_mk_max(obj*, obj*); @@ -84,7 +80,6 @@ obj* l_lean_nat_imax___boxed(obj*, obj*); obj* l_lean_level__to__format_result__list_to__format___main(obj*); extern "C" usize lean_level_hash(obj*); obj* l_lean_level_to__nat(obj*); -obj* l_nat_max___boxed(obj*, obj*); obj* l_lean_level_has__mvar___main___boxed(obj*); obj* l_lean_level_one; obj* l_nat_repr(obj*); @@ -94,9 +89,7 @@ obj* nat_sub(obj*, obj*); } obj* l_lean_level_hash___boxed(obj*); obj* l_lean_level_to__offset___main(obj*); -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_level_of__nat___main___boxed(obj*); -obj* l_lean_level_to__nat___main___closed__3; obj* _init_l_lean_level__is__inhabited() { _start: { @@ -372,15 +365,6 @@ lean::dec(x_1); return x_2; } } -obj* l_lean_level_to__nat___main___lambda__1(obj* x_0) { -_start: -{ -obj* x_1; obj* x_2; -x_1 = lean::mk_nat_obj(1u); -x_2 = lean::nat_add(x_0, x_1); -return x_2; -} -} obj* _init_l_lean_level_to__nat___main___closed__1() { _start: { @@ -391,30 +375,6 @@ lean::cnstr_set(x_1, 0, x_0); return x_1; } } -obj* _init_l_lean_level_to__nat___main___closed__2() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_level_to__nat___main___lambda__1___boxed), 1, 0); -return x_0; -} -} -obj* _init_l_lean_level_to__nat___main___closed__3() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_nat_max___boxed), 2, 0); -return x_0; -} -} -obj* _init_l_lean_level_to__nat___main___closed__4() { -_start: -{ -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_nat_imax___boxed), 2, 0); -return x_0; -} -} obj* l_lean_level_to__nat___main(obj* x_0) { _start: { @@ -427,79 +387,145 @@ return x_1; } case 1: { -obj* x_2; obj* x_3; obj* x_4; obj* x_5; +obj* x_2; obj* x_3; x_2 = lean::cnstr_get(x_0, 0); x_3 = l_lean_level_to__nat___main(x_2); -x_4 = l_lean_level_to__nat___main___closed__2; -x_5 = l_option_map___rarg(x_4, x_3); -return x_5; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_4; +x_4 = lean::box(0); +return x_4; +} +else +{ +obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_11; +x_5 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_7 = x_3; +} else { + lean::inc(x_5); + lean::dec(x_3); + x_7 = lean::box(0); +} +x_8 = lean::mk_nat_obj(1u); +x_9 = lean::nat_add(x_5, x_8); +lean::dec(x_5); +if (lean::is_scalar(x_7)) { + x_11 = lean::alloc_cnstr(1, 1, 0); +} else { + x_11 = x_7; +} +lean::cnstr_set(x_11, 0, x_9); +return x_11; +} } case 2: { -obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; -x_6 = lean::cnstr_get(x_0, 0); -x_7 = lean::cnstr_get(x_0, 1); -x_8 = l_lean_level_to__nat___main(x_6); -x_9 = l_lean_level_to__nat___main___closed__3; -x_10 = l_option_map___rarg(x_9, x_8); -if (lean::obj_tag(x_10) == 0) +obj* x_12; obj* x_13; obj* x_14; +x_12 = lean::cnstr_get(x_0, 0); +x_13 = lean::cnstr_get(x_0, 1); +x_14 = l_lean_level_to__nat___main(x_12); +if (lean::obj_tag(x_14) == 0) { -obj* x_11; -x_11 = lean::box(0); -return x_11; +obj* x_15; +x_15 = lean::box(0); +return x_15; } else { -obj* x_12; obj* x_15; obj* x_16; -x_12 = lean::cnstr_get(x_10, 0); -lean::inc(x_12); -lean::dec(x_10); -x_15 = l_lean_level_to__nat___main(x_7); -x_16 = l_option_map___rarg(x_12, x_15); -return x_16; -} -} -case 3: +obj* x_16; obj* x_19; +x_16 = lean::cnstr_get(x_14, 0); +lean::inc(x_16); +lean::dec(x_14); +x_19 = l_lean_level_to__nat___main(x_13); +if (lean::obj_tag(x_19) == 0) { -obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; -x_17 = lean::cnstr_get(x_0, 0); -x_18 = lean::cnstr_get(x_0, 1); -x_19 = l_lean_level_to__nat___main(x_17); -x_20 = l_lean_level_to__nat___main___closed__4; -x_21 = l_option_map___rarg(x_20, x_19); -if (lean::obj_tag(x_21) == 0) -{ -obj* x_22; -x_22 = lean::box(0); -return x_22; +obj* x_21; +lean::dec(x_16); +x_21 = lean::box(0); +return x_21; } else { -obj* x_23; obj* x_26; obj* x_27; -x_23 = lean::cnstr_get(x_21, 0); -lean::inc(x_23); -lean::dec(x_21); -x_26 = l_lean_level_to__nat___main(x_18); -x_27 = l_option_map___rarg(x_23, x_26); -return x_27; +obj* x_22; obj* x_24; obj* x_25; obj* x_28; +x_22 = lean::cnstr_get(x_19, 0); +if (lean::is_exclusive(x_19)) { + x_24 = x_19; +} else { + lean::inc(x_22); + lean::dec(x_19); + x_24 = lean::box(0); } +x_25 = l_nat_max(x_16, x_22); +lean::dec(x_22); +lean::dec(x_16); +if (lean::is_scalar(x_24)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_24; } -default: -{ -obj* x_28; -x_28 = lean::box(0); +lean::cnstr_set(x_28, 0, x_25); return x_28; } } } -} -obj* l_lean_level_to__nat___main___lambda__1___boxed(obj* x_0) { -_start: +case 3: { -obj* x_1; -x_1 = l_lean_level_to__nat___main___lambda__1(x_0); -lean::dec(x_0); -return x_1; +obj* x_29; obj* x_30; obj* x_31; +x_29 = lean::cnstr_get(x_0, 0); +x_30 = lean::cnstr_get(x_0, 1); +x_31 = l_lean_level_to__nat___main(x_29); +if (lean::obj_tag(x_31) == 0) +{ +obj* x_32; +x_32 = lean::box(0); +return x_32; +} +else +{ +obj* x_33; obj* x_36; +x_33 = lean::cnstr_get(x_31, 0); +lean::inc(x_33); +lean::dec(x_31); +x_36 = l_lean_level_to__nat___main(x_30); +if (lean::obj_tag(x_36) == 0) +{ +obj* x_38; +lean::dec(x_33); +x_38 = lean::box(0); +return x_38; +} +else +{ +obj* x_39; obj* x_41; obj* x_42; obj* x_45; +x_39 = lean::cnstr_get(x_36, 0); +if (lean::is_exclusive(x_36)) { + x_41 = x_36; +} else { + lean::inc(x_39); + lean::dec(x_36); + x_41 = lean::box(0); +} +x_42 = l_lean_nat_imax(x_33, x_39); +lean::dec(x_39); +lean::dec(x_33); +if (lean::is_scalar(x_41)) { + x_45 = lean::alloc_cnstr(1, 1, 0); +} else { + x_45 = x_41; +} +lean::cnstr_set(x_45, 0, x_42); +return x_45; +} +} +} +default: +{ +obj* x_46; +x_46 = lean::box(0); +return x_46; +} +} } } obj* l_lean_level_to__nat___main___boxed(obj* x_0) { @@ -1264,12 +1290,6 @@ lean::mark_persistent(l_lean_level__is__inhabited); lean::mark_persistent(l_lean_level_one); l_lean_level_to__nat___main___closed__1 = _init_l_lean_level_to__nat___main___closed__1(); lean::mark_persistent(l_lean_level_to__nat___main___closed__1); - l_lean_level_to__nat___main___closed__2 = _init_l_lean_level_to__nat___main___closed__2(); -lean::mark_persistent(l_lean_level_to__nat___main___closed__2); - l_lean_level_to__nat___main___closed__3 = _init_l_lean_level_to__nat___main___closed__3(); -lean::mark_persistent(l_lean_level_to__nat___main___closed__3); - l_lean_level_to__nat___main___closed__4 = _init_l_lean_level_to__nat___main___closed__4(); -lean::mark_persistent(l_lean_level_to__nat___main___closed__4); l_lean_level__to__format_result_to__format___main___closed__1 = _init_l_lean_level__to__format_result_to__format___main___closed__1(); lean::mark_persistent(l_lean_level__to__format_result_to__format___main___closed__1); l_lean_level__to__format_result_to__format___main___closed__2 = _init_l_lean_level__to__format_result_to__format___main___closed__2(); diff --git a/src/boot/init/lean/name_mangling.cpp b/src/boot/init/lean/name_mangling.cpp index 2fb35dea94..0ba7f3f65b 100644 --- a/src/boot/init/lean/name_mangling.cpp +++ b/src/boot/init/lean/name_mangling.cpp @@ -46,6 +46,7 @@ uint8 l_char_is__digit(uint32); obj* l_lean_parser_parsec__t_labels__mk__res___rarg(obj*, obj*); uint32 l_char_of__nat(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__5(obj*, obj*, obj*); +obj* l_id___rarg___boxed(obj*); obj* l_string_quote(obj*); extern obj* l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; obj* l_lean_parser_monad__parsec_take__while1___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__3(obj*); @@ -95,7 +96,6 @@ obj* l_lean_parser_monad__parsec_digit___at___private_init_lean_name__mangling_2 obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at___private_init_lean_name__mangling_5__parse__mangled__name__aux___main___spec__9(obj*, obj*, obj*); obj* l___private_init_lean_name__mangling_4__name_mangle__aux(obj*, obj*); extern obj* l_string_join___closed__1; -obj* l_id___rarg(obj*); namespace lean { obj* uint32_to_nat(uint32); } @@ -1027,7 +1027,7 @@ obj* _init_l_lean_parser_monad__parsec_eoi___at___private_init_lean_name__mangli _start: { obj* x_0; obj* x_2; obj* x_3; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 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); @@ -1465,7 +1465,7 @@ lean::dec(x_163); x_171 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_166); if (lean::obj_tag(x_171) == 0) { -obj* x_172; obj* x_174; obj* x_176; obj* x_179; obj* x_180; obj* x_182; uint32 x_185; obj* x_187; obj* x_188; obj* x_189; obj* x_190; obj* x_191; +obj* x_172; obj* x_174; obj* x_176; obj* x_179; obj* x_180; obj* x_182; uint32 x_185; obj* x_188; obj* x_189; obj* x_190; obj* x_191; obj* x_192; x_172 = lean::cnstr_get(x_171, 0); lean::inc(x_172); x_174 = lean::cnstr_get(x_171, 1); @@ -1480,442 +1480,444 @@ x_182 = lean::nat_add(x_180, x_172); lean::dec(x_172); lean::dec(x_180); x_185 = l_char_of__nat(x_182); +lean::dec(x_182); lean::inc(x_1); -x_187 = lean::string_push(x_1, x_185); -x_188 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_6, x_187, x_174); -x_189 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_176, x_188); -x_190 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_168, x_189); -x_191 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_160, x_190); -if (lean::obj_tag(x_191) == 0) +x_188 = lean::string_push(x_1, x_185); +x_189 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_6, x_188, x_174); +x_190 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_176, x_189); +x_191 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_168, x_190); +x_192 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_160, x_191); +if (lean::obj_tag(x_192) == 0) { -obj* x_195; obj* x_196; obj* x_197; obj* x_198; +obj* x_196; obj* x_197; obj* x_198; obj* x_199; lean::dec(x_6); lean::dec(x_1); lean::dec(x_2); -x_195 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_191); -x_196 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_195); -x_197 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_196); -x_198 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_197); -return x_198; +x_196 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_192); +x_197 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_196); +x_198 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_197); +x_199 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_198); +return x_199; } else { -obj* x_199; uint8 x_201; -x_199 = lean::cnstr_get(x_191, 0); -lean::inc(x_199); -x_201 = lean::cnstr_get_scalar(x_191, sizeof(void*)*1); -x_149 = x_191; -x_150 = x_199; -x_151 = x_201; +obj* x_200; uint8 x_202; +x_200 = lean::cnstr_get(x_192, 0); +lean::inc(x_200); +x_202 = lean::cnstr_get_scalar(x_192, sizeof(void*)*1); +x_149 = x_192; +x_150 = x_200; +x_151 = x_202; goto lbl_152; } } else { -obj* x_203; uint8 x_205; obj* x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; +obj* x_204; uint8 x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; lean::dec(x_164); -x_203 = lean::cnstr_get(x_171, 0); -x_205 = lean::cnstr_get_scalar(x_171, sizeof(void*)*1); +x_204 = lean::cnstr_get(x_171, 0); +x_206 = lean::cnstr_get_scalar(x_171, sizeof(void*)*1); if (lean::is_exclusive(x_171)) { - x_206 = x_171; + x_207 = x_171; } else { - lean::inc(x_203); + lean::inc(x_204); lean::dec(x_171); - x_206 = lean::box(0); + x_207 = lean::box(0); } -if (lean::is_scalar(x_206)) { - x_207 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_207)) { + x_208 = lean::alloc_cnstr(1, 1, 1); } else { - x_207 = x_206; + x_208 = x_207; } -lean::cnstr_set(x_207, 0, x_203); -lean::cnstr_set_scalar(x_207, sizeof(void*)*1, x_205); -x_208 = x_207; -x_209 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_168, x_208); -x_210 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_160, x_209); -if (lean::obj_tag(x_210) == 0) +lean::cnstr_set(x_208, 0, x_204); +lean::cnstr_set_scalar(x_208, sizeof(void*)*1, x_206); +x_209 = x_208; +x_210 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_168, x_209); +x_211 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_160, x_210); +if (lean::obj_tag(x_211) == 0) { -obj* x_214; obj* x_215; obj* x_216; obj* x_217; +obj* x_215; obj* x_216; obj* x_217; obj* x_218; lean::dec(x_6); lean::dec(x_1); lean::dec(x_2); -x_214 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_210); -x_215 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_214); -x_216 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_215); -x_217 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_216); -return x_217; +x_215 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_211); +x_216 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_215); +x_217 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_216); +x_218 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_217); +return x_218; } else { -obj* x_218; uint8 x_220; -x_218 = lean::cnstr_get(x_210, 0); -lean::inc(x_218); -x_220 = lean::cnstr_get_scalar(x_210, sizeof(void*)*1); -x_149 = x_210; -x_150 = x_218; -x_151 = x_220; +obj* x_219; uint8 x_221; +x_219 = lean::cnstr_get(x_211, 0); +lean::inc(x_219); +x_221 = lean::cnstr_get_scalar(x_211, sizeof(void*)*1); +x_149 = x_211; +x_150 = x_219; +x_151 = x_221; goto lbl_152; } } } else { -obj* x_221; uint8 x_223; obj* x_224; obj* x_225; obj* x_226; obj* x_227; -x_221 = lean::cnstr_get(x_163, 0); -x_223 = lean::cnstr_get_scalar(x_163, sizeof(void*)*1); +obj* x_222; uint8 x_224; obj* x_225; obj* x_226; obj* x_227; obj* x_228; +x_222 = lean::cnstr_get(x_163, 0); +x_224 = lean::cnstr_get_scalar(x_163, sizeof(void*)*1); if (lean::is_exclusive(x_163)) { - x_224 = x_163; + x_225 = x_163; } else { - lean::inc(x_221); + lean::inc(x_222); lean::dec(x_163); - x_224 = lean::box(0); + x_225 = lean::box(0); } -if (lean::is_scalar(x_224)) { - x_225 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_225)) { + x_226 = lean::alloc_cnstr(1, 1, 1); } else { - x_225 = x_224; + x_226 = x_225; } -lean::cnstr_set(x_225, 0, x_221); -lean::cnstr_set_scalar(x_225, sizeof(void*)*1, x_223); -x_226 = x_225; -x_227 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_160, x_226); -if (lean::obj_tag(x_227) == 0) +lean::cnstr_set(x_226, 0, x_222); +lean::cnstr_set_scalar(x_226, sizeof(void*)*1, x_224); +x_227 = x_226; +x_228 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_160, x_227); +if (lean::obj_tag(x_228) == 0) { -obj* x_231; obj* x_232; obj* x_233; obj* x_234; +obj* x_232; obj* x_233; obj* x_234; obj* x_235; lean::dec(x_6); lean::dec(x_1); lean::dec(x_2); -x_231 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_227); -x_232 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_231); -x_233 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_232); -x_234 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_233); -return x_234; +x_232 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_228); +x_233 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_232); +x_234 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_233); +x_235 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_234); +return x_235; } else { -obj* x_235; uint8 x_237; -x_235 = lean::cnstr_get(x_227, 0); -lean::inc(x_235); -x_237 = lean::cnstr_get_scalar(x_227, sizeof(void*)*1); -x_149 = x_227; -x_150 = x_235; -x_151 = x_237; +obj* x_236; uint8 x_238; +x_236 = lean::cnstr_get(x_228, 0); +lean::inc(x_236); +x_238 = lean::cnstr_get_scalar(x_228, sizeof(void*)*1); +x_149 = x_228; +x_150 = x_236; +x_151 = x_238; goto lbl_152; } } } else { -obj* x_238; uint8 x_240; obj* x_241; obj* x_243; obj* x_244; -x_238 = lean::cnstr_get(x_157, 0); -x_240 = lean::cnstr_get_scalar(x_157, sizeof(void*)*1); +obj* x_239; uint8 x_241; obj* x_242; obj* x_244; obj* x_245; +x_239 = lean::cnstr_get(x_157, 0); +x_241 = lean::cnstr_get_scalar(x_157, sizeof(void*)*1); if (lean::is_exclusive(x_157)) { - x_241 = x_157; + x_242 = x_157; } else { - lean::inc(x_238); + lean::inc(x_239); lean::dec(x_157); - x_241 = lean::box(0); + x_242 = lean::box(0); } -lean::inc(x_238); -if (lean::is_scalar(x_241)) { - x_243 = lean::alloc_cnstr(1, 1, 1); +lean::inc(x_239); +if (lean::is_scalar(x_242)) { + x_244 = lean::alloc_cnstr(1, 1, 1); } else { - x_243 = x_241; + x_244 = x_242; } -lean::cnstr_set(x_243, 0, x_238); -lean::cnstr_set_scalar(x_243, sizeof(void*)*1, x_240); -x_244 = x_243; -x_149 = x_244; -x_150 = x_238; -x_151 = x_240; +lean::cnstr_set(x_244, 0, x_239); +lean::cnstr_set_scalar(x_244, sizeof(void*)*1, x_241); +x_245 = x_244; +x_149 = x_245; +x_150 = x_239; +x_151 = x_241; goto lbl_152; } } else { -obj* x_249; obj* x_250; obj* x_251; +obj* x_250; obj* x_251; obj* x_252; lean::dec(x_109); lean::dec(x_6); lean::dec(x_1); lean::dec(x_2); -x_249 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_108); -x_250 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_249); -x_251 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_250); -return x_251; +x_250 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_108); +x_251 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_250); +x_252 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_251); +return x_252; } lbl_152: { if (x_151 == 0) { -obj* x_253; obj* x_254; obj* x_255; +obj* x_254; obj* x_255; obj* x_256; lean::dec(x_149); -x_253 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1; -x_254 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1; -x_255 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_253, x_254, x_2); -if (lean::obj_tag(x_255) == 0) +x_254 = l___private_init_lean_name__mangling_1__string_mangle__aux___main___closed__1; +x_255 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___closed__1; +x_256 = l_lean_parser_monad__parsec_str__core___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__1(x_254, x_255, x_2); +if (lean::obj_tag(x_256) == 0) { -obj* x_256; obj* x_258; obj* x_261; -x_256 = lean::cnstr_get(x_255, 1); -lean::inc(x_256); -x_258 = lean::cnstr_get(x_255, 2); -lean::inc(x_258); -lean::dec(x_255); -x_261 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_256); -if (lean::obj_tag(x_261) == 0) +obj* x_257; obj* x_259; obj* x_262; +x_257 = lean::cnstr_get(x_256, 1); +lean::inc(x_257); +x_259 = lean::cnstr_get(x_256, 2); +lean::inc(x_259); +lean::dec(x_256); +x_262 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_257); +if (lean::obj_tag(x_262) == 0) { -obj* x_262; obj* x_264; obj* x_266; obj* x_269; -x_262 = lean::cnstr_get(x_261, 0); -lean::inc(x_262); -x_264 = lean::cnstr_get(x_261, 1); -lean::inc(x_264); -x_266 = lean::cnstr_get(x_261, 2); -lean::inc(x_266); -lean::dec(x_261); -x_269 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_264); -if (lean::obj_tag(x_269) == 0) -{ -obj* x_270; obj* x_272; obj* x_274; obj* x_277; -x_270 = lean::cnstr_get(x_269, 0); -lean::inc(x_270); -x_272 = lean::cnstr_get(x_269, 1); -lean::inc(x_272); -x_274 = lean::cnstr_get(x_269, 2); -lean::inc(x_274); -lean::dec(x_269); -x_277 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_272); -if (lean::obj_tag(x_277) == 0) -{ -obj* x_278; obj* x_280; obj* x_282; obj* x_285; -x_278 = lean::cnstr_get(x_277, 0); -lean::inc(x_278); -x_280 = lean::cnstr_get(x_277, 1); -lean::inc(x_280); -x_282 = lean::cnstr_get(x_277, 2); -lean::inc(x_282); -lean::dec(x_277); -x_285 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_280); -if (lean::obj_tag(x_285) == 0) -{ -obj* x_286; obj* x_288; obj* x_290; obj* x_293; obj* x_294; obj* x_296; obj* x_297; obj* x_299; obj* x_302; obj* x_303; obj* x_305; obj* x_308; uint32 x_311; obj* x_312; obj* x_313; obj* x_315; obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_321; obj* x_322; obj* x_323; obj* x_324; -x_286 = lean::cnstr_get(x_285, 0); -lean::inc(x_286); -x_288 = lean::cnstr_get(x_285, 1); -lean::inc(x_288); -x_290 = lean::cnstr_get(x_285, 2); -lean::inc(x_290); -lean::dec(x_285); -x_293 = lean::mk_nat_obj(4096u); -x_294 = lean::nat_mul(x_262, x_293); +obj* x_263; obj* x_265; obj* x_267; obj* x_270; +x_263 = lean::cnstr_get(x_262, 0); +lean::inc(x_263); +x_265 = lean::cnstr_get(x_262, 1); +lean::inc(x_265); +x_267 = lean::cnstr_get(x_262, 2); +lean::inc(x_267); lean::dec(x_262); -x_296 = lean::mk_nat_obj(256u); -x_297 = lean::nat_mul(x_270, x_296); +x_270 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_265); +if (lean::obj_tag(x_270) == 0) +{ +obj* x_271; obj* x_273; obj* x_275; obj* x_278; +x_271 = lean::cnstr_get(x_270, 0); +lean::inc(x_271); +x_273 = lean::cnstr_get(x_270, 1); +lean::inc(x_273); +x_275 = lean::cnstr_get(x_270, 2); +lean::inc(x_275); lean::dec(x_270); -x_299 = lean::nat_add(x_294, x_297); -lean::dec(x_297); -lean::dec(x_294); -x_302 = lean::mk_nat_obj(16u); -x_303 = lean::nat_mul(x_278, x_302); +x_278 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_273); +if (lean::obj_tag(x_278) == 0) +{ +obj* x_279; obj* x_281; obj* x_283; obj* x_286; +x_279 = lean::cnstr_get(x_278, 0); +lean::inc(x_279); +x_281 = lean::cnstr_get(x_278, 1); +lean::inc(x_281); +x_283 = lean::cnstr_get(x_278, 2); +lean::inc(x_283); lean::dec(x_278); -x_305 = lean::nat_add(x_299, x_303); -lean::dec(x_303); -lean::dec(x_299); -x_308 = lean::nat_add(x_305, x_286); +x_286 = l_lean_parser_parse__hex__digit___at___private_init_lean_name__mangling_2__parse__mangled__string__aux___main___spec__2(x_281); +if (lean::obj_tag(x_286) == 0) +{ +obj* x_287; obj* x_289; obj* x_291; obj* x_294; obj* x_295; obj* x_297; obj* x_298; obj* x_300; obj* x_303; obj* x_304; obj* x_306; obj* x_309; uint32 x_312; obj* x_314; obj* x_315; obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_321; obj* x_322; obj* x_323; obj* x_324; obj* x_325; obj* x_326; +x_287 = lean::cnstr_get(x_286, 0); +lean::inc(x_287); +x_289 = lean::cnstr_get(x_286, 1); +lean::inc(x_289); +x_291 = lean::cnstr_get(x_286, 2); +lean::inc(x_291); lean::dec(x_286); -lean::dec(x_305); -x_311 = l_char_of__nat(x_308); -x_312 = lean::string_push(x_1, x_311); -x_313 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_6, x_312, x_288); +x_294 = lean::mk_nat_obj(4096u); +x_295 = lean::nat_mul(x_263, x_294); +lean::dec(x_263); +x_297 = lean::mk_nat_obj(256u); +x_298 = lean::nat_mul(x_271, x_297); +lean::dec(x_271); +x_300 = lean::nat_add(x_295, x_298); +lean::dec(x_298); +lean::dec(x_295); +x_303 = lean::mk_nat_obj(16u); +x_304 = lean::nat_mul(x_279, x_303); +lean::dec(x_279); +x_306 = lean::nat_add(x_300, x_304); +lean::dec(x_304); +lean::dec(x_300); +x_309 = lean::nat_add(x_306, x_287); +lean::dec(x_287); +lean::dec(x_306); +x_312 = l_char_of__nat(x_309); +lean::dec(x_309); +x_314 = lean::string_push(x_1, x_312); +x_315 = l___private_init_lean_name__mangling_2__parse__mangled__string__aux___main(x_6, x_314, x_289); lean::dec(x_6); -x_315 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_290, x_313); -x_316 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_282, x_315); -x_317 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_274, x_316); -x_318 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_266, x_317); -x_319 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_258, x_318); -x_320 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_319); -x_321 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_320); -x_322 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_321); -x_323 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_322); -x_324 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_323); -return x_324; +x_317 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_291, x_315); +x_318 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_283, x_317); +x_319 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_318); +x_320 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_267, x_319); +x_321 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_259, x_320); +x_322 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_321); +x_323 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_322); +x_324 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_323); +x_325 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_324); +x_326 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_325); +return x_326; } else { -obj* x_330; uint8 x_332; obj* x_333; obj* x_334; obj* x_335; obj* x_336; obj* x_337; obj* x_338; obj* x_339; obj* x_340; obj* x_341; obj* x_342; obj* x_343; obj* x_344; +obj* x_332; uint8 x_334; obj* x_335; obj* x_336; obj* x_337; obj* x_338; obj* x_339; obj* x_340; obj* x_341; obj* x_342; obj* x_343; obj* x_344; obj* x_345; obj* x_346; lean::dec(x_6); lean::dec(x_1); -lean::dec(x_278); -lean::dec(x_270); -lean::dec(x_262); -x_330 = lean::cnstr_get(x_285, 0); -x_332 = lean::cnstr_get_scalar(x_285, sizeof(void*)*1); -if (lean::is_exclusive(x_285)) { - x_333 = x_285; +lean::dec(x_263); +lean::dec(x_279); +lean::dec(x_271); +x_332 = lean::cnstr_get(x_286, 0); +x_334 = lean::cnstr_get_scalar(x_286, sizeof(void*)*1); +if (lean::is_exclusive(x_286)) { + x_335 = x_286; } else { - lean::inc(x_330); - lean::dec(x_285); - x_333 = lean::box(0); + lean::inc(x_332); + lean::dec(x_286); + x_335 = lean::box(0); } -if (lean::is_scalar(x_333)) { - x_334 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_335)) { + x_336 = lean::alloc_cnstr(1, 1, 1); } else { - x_334 = x_333; + x_336 = x_335; } -lean::cnstr_set(x_334, 0, x_330); -lean::cnstr_set_scalar(x_334, sizeof(void*)*1, x_332); -x_335 = x_334; -x_336 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_282, x_335); -x_337 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_274, x_336); -x_338 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_266, x_337); -x_339 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_258, x_338); -x_340 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_339); -x_341 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_340); -x_342 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_341); -x_343 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_342); -x_344 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_343); -return x_344; +lean::cnstr_set(x_336, 0, x_332); +lean::cnstr_set_scalar(x_336, sizeof(void*)*1, x_334); +x_337 = x_336; +x_338 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_283, x_337); +x_339 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_338); +x_340 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_267, x_339); +x_341 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_259, x_340); +x_342 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_341); +x_343 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_342); +x_344 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_343); +x_345 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_344); +x_346 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_345); +return x_346; } } else { -obj* x_349; uint8 x_351; obj* x_352; obj* x_353; obj* x_354; obj* x_355; obj* x_356; obj* x_357; obj* x_358; obj* x_359; obj* x_360; obj* x_361; obj* x_362; +obj* x_351; uint8 x_353; obj* x_354; obj* x_355; obj* x_356; obj* x_357; obj* x_358; obj* x_359; obj* x_360; obj* x_361; obj* x_362; obj* x_363; obj* x_364; lean::dec(x_6); lean::dec(x_1); -lean::dec(x_270); -lean::dec(x_262); -x_349 = lean::cnstr_get(x_277, 0); -x_351 = lean::cnstr_get_scalar(x_277, sizeof(void*)*1); -if (lean::is_exclusive(x_277)) { - x_352 = x_277; +lean::dec(x_263); +lean::dec(x_271); +x_351 = lean::cnstr_get(x_278, 0); +x_353 = lean::cnstr_get_scalar(x_278, sizeof(void*)*1); +if (lean::is_exclusive(x_278)) { + x_354 = x_278; } else { - lean::inc(x_349); - lean::dec(x_277); - x_352 = lean::box(0); + lean::inc(x_351); + lean::dec(x_278); + x_354 = lean::box(0); } -if (lean::is_scalar(x_352)) { - x_353 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_354)) { + x_355 = lean::alloc_cnstr(1, 1, 1); } else { - x_353 = x_352; + x_355 = x_354; } -lean::cnstr_set(x_353, 0, x_349); -lean::cnstr_set_scalar(x_353, sizeof(void*)*1, x_351); -x_354 = x_353; -x_355 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_274, x_354); -x_356 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_266, x_355); -x_357 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_258, x_356); -x_358 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_357); -x_359 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_358); -x_360 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_359); -x_361 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_360); -x_362 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_361); -return x_362; +lean::cnstr_set(x_355, 0, x_351); +lean::cnstr_set_scalar(x_355, sizeof(void*)*1, x_353); +x_356 = x_355; +x_357 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_275, x_356); +x_358 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_267, x_357); +x_359 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_259, x_358); +x_360 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_359); +x_361 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_360); +x_362 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_361); +x_363 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_362); +x_364 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_363); +return x_364; } } else { -obj* x_366; uint8 x_368; obj* x_369; obj* x_370; obj* x_371; obj* x_372; obj* x_373; obj* x_374; obj* x_375; obj* x_376; obj* x_377; obj* x_378; +obj* x_368; uint8 x_370; obj* x_371; obj* x_372; obj* x_373; obj* x_374; obj* x_375; obj* x_376; obj* x_377; obj* x_378; obj* x_379; obj* x_380; lean::dec(x_6); lean::dec(x_1); -lean::dec(x_262); -x_366 = lean::cnstr_get(x_269, 0); -x_368 = lean::cnstr_get_scalar(x_269, sizeof(void*)*1); -if (lean::is_exclusive(x_269)) { - x_369 = x_269; +lean::dec(x_263); +x_368 = lean::cnstr_get(x_270, 0); +x_370 = lean::cnstr_get_scalar(x_270, sizeof(void*)*1); +if (lean::is_exclusive(x_270)) { + x_371 = x_270; } else { - lean::inc(x_366); - lean::dec(x_269); - x_369 = lean::box(0); + lean::inc(x_368); + lean::dec(x_270); + x_371 = lean::box(0); } -if (lean::is_scalar(x_369)) { - x_370 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_371)) { + x_372 = lean::alloc_cnstr(1, 1, 1); } else { - x_370 = x_369; + x_372 = x_371; } -lean::cnstr_set(x_370, 0, x_366); -lean::cnstr_set_scalar(x_370, sizeof(void*)*1, x_368); -x_371 = x_370; -x_372 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_266, x_371); -x_373 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_258, x_372); -x_374 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_373); -x_375 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_374); -x_376 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_375); -x_377 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_376); -x_378 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_377); -return x_378; +lean::cnstr_set(x_372, 0, x_368); +lean::cnstr_set_scalar(x_372, sizeof(void*)*1, x_370); +x_373 = x_372; +x_374 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_267, x_373); +x_375 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_259, x_374); +x_376 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_375); +x_377 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_376); +x_378 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_377); +x_379 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_378); +x_380 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_379); +return x_380; } } else { -obj* x_381; uint8 x_383; obj* x_384; obj* x_385; obj* x_386; obj* x_387; obj* x_388; obj* x_389; obj* x_390; obj* x_391; obj* x_392; +obj* x_383; uint8 x_385; obj* x_386; obj* x_387; obj* x_388; obj* x_389; obj* x_390; obj* x_391; obj* x_392; obj* x_393; obj* x_394; lean::dec(x_6); lean::dec(x_1); -x_381 = lean::cnstr_get(x_261, 0); -x_383 = lean::cnstr_get_scalar(x_261, sizeof(void*)*1); -if (lean::is_exclusive(x_261)) { - x_384 = x_261; +x_383 = lean::cnstr_get(x_262, 0); +x_385 = lean::cnstr_get_scalar(x_262, sizeof(void*)*1); +if (lean::is_exclusive(x_262)) { + x_386 = x_262; } else { - lean::inc(x_381); - lean::dec(x_261); - x_384 = lean::box(0); + lean::inc(x_383); + lean::dec(x_262); + x_386 = lean::box(0); } -if (lean::is_scalar(x_384)) { - x_385 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_386)) { + x_387 = lean::alloc_cnstr(1, 1, 1); } else { - x_385 = x_384; + x_387 = x_386; } -lean::cnstr_set(x_385, 0, x_381); -lean::cnstr_set_scalar(x_385, sizeof(void*)*1, x_383); -x_386 = x_385; -x_387 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_258, x_386); -x_388 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_387); -x_389 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_388); -x_390 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_389); -x_391 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_390); -x_392 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_391); -return x_392; +lean::cnstr_set(x_387, 0, x_383); +lean::cnstr_set_scalar(x_387, sizeof(void*)*1, x_385); +x_388 = x_387; +x_389 = l_lean_parser_parsec__t_bind__mk__res___rarg(x_259, x_388); +x_390 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_389); +x_391 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_390); +x_392 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_391); +x_393 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_392); +x_394 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_393); +return x_394; } } else { -obj* x_395; uint8 x_397; obj* x_398; obj* x_399; obj* x_400; obj* x_401; obj* x_402; obj* x_403; obj* x_404; obj* x_405; +obj* x_397; uint8 x_399; obj* x_400; obj* x_401; obj* x_402; obj* x_403; obj* x_404; obj* x_405; obj* x_406; obj* x_407; lean::dec(x_6); lean::dec(x_1); -x_395 = lean::cnstr_get(x_255, 0); -x_397 = lean::cnstr_get_scalar(x_255, sizeof(void*)*1); -if (lean::is_exclusive(x_255)) { - x_398 = x_255; +x_397 = lean::cnstr_get(x_256, 0); +x_399 = lean::cnstr_get_scalar(x_256, sizeof(void*)*1); +if (lean::is_exclusive(x_256)) { + x_400 = x_256; } else { - lean::inc(x_395); - lean::dec(x_255); - x_398 = lean::box(0); + lean::inc(x_397); + lean::dec(x_256); + x_400 = lean::box(0); } -if (lean::is_scalar(x_398)) { - x_399 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_400)) { + x_401 = lean::alloc_cnstr(1, 1, 1); } else { - x_399 = x_398; + x_401 = x_400; } -lean::cnstr_set(x_399, 0, x_395); -lean::cnstr_set_scalar(x_399, sizeof(void*)*1, x_397); -x_400 = x_399; -x_401 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_400); -x_402 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_401); -x_403 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_402); -x_404 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_403); -x_405 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_404); -return x_405; +lean::cnstr_set(x_401, 0, x_397); +lean::cnstr_set_scalar(x_401, sizeof(void*)*1, x_399); +x_402 = x_401; +x_403 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_150, x_402); +x_404 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_403); +x_405 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_404); +x_406 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_405); +x_407 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_406); +return x_407; } } else { -obj* x_410; obj* x_411; obj* x_412; obj* x_413; +obj* x_412; obj* x_413; obj* x_414; obj* x_415; lean::dec(x_6); lean::dec(x_1); lean::dec(x_2); lean::dec(x_150); -x_410 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_149); -x_411 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_410); -x_412 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_411); -x_413 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_412); -return x_413; +x_412 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_109, x_149); +x_413 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_70, x_412); +x_414 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_33, x_413); +x_415 = l_lean_parser_parsec__t_orelse__mk__res___rarg(x_29, x_414); +return x_415; } } } @@ -1926,13 +1928,13 @@ return x_413; } else { -obj* x_414; obj* x_415; -x_414 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_415 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_415, 0, x_1); -lean::cnstr_set(x_415, 1, x_2); -lean::cnstr_set(x_415, 2, x_414); -return x_415; +obj* x_416; obj* x_417; +x_416 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_417 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_417, 0, x_1); +lean::cnstr_set(x_417, 1, x_2); +lean::cnstr_set(x_417, 2, x_416); +return x_417; } } } diff --git a/src/boot/init/lean/parser/basic.cpp b/src/boot/init/lean/parser/basic.cpp index bd5e460b42..a61e12b966 100644 --- a/src/boot/init/lean/parser/basic.cpp +++ b/src/boot/init/lean/parser/basic.cpp @@ -24,6 +24,7 @@ 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; @@ -43,7 +44,6 @@ 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,6 +63,7 @@ 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*); @@ -102,7 +103,6 @@ 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,7 +128,6 @@ 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; @@ -138,7 +137,6 @@ 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*); @@ -157,7 +155,6 @@ 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*); @@ -169,6 +166,7 @@ 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*); @@ -209,6 +207,7 @@ 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*); @@ -216,9 +215,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; @@ -227,7 +226,6 @@ 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*); @@ -248,7 +246,9 @@ 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 4, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__2), 4, 0); +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); 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), 1, 0); -x_6 = lean::alloc_closure(reinterpret_cast(l_id_monad___lambda__3), 4, 0); +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_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), 2, 0); +x_8 = lean::alloc_closure(reinterpret_cast(l_id_bind___boxed), 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), 1, 0); +x_2 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 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), 4, 2); +x_4 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 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), 4, 2); +x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 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/command.cpp b/src/boot/init/lean/parser/command.cpp index c6e396a58c..1a930fd6e6 100644 --- a/src/boot/init/lean/parser/command.cpp +++ b/src/boot/init/lean/parser/command.cpp @@ -39,7 +39,6 @@ obj* l_lean_parser_command_declaration_parser_lean_parser_has__view___lambda__1( extern obj* l_lean_parser_command_struct__binder__content_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_omit_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_set__option_parser___closed__1; -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_init__quot_has__view_x_27; obj* l_reader__t_orelse___at_lean_parser_command__parser_run___spec__4(obj*); obj* l_lean_parser_term_bracketed__binders_parser(obj*, obj*, obj*, obj*, obj*); @@ -166,6 +165,7 @@ obj* l_lean_parser_command_section_has__view; obj* l_list_join___main___rarg(obj*); obj* l_lean_parser_command_namespace_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_end_has__view_x_27; +extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; extern obj* l_lean_parser_number_has__view; obj* l_lean_parser_combinators_sep__by1___at_lean_parser_command_decl__attributes_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_lean_parser_command__parser__m_lean_parser_monad__parsec___closed__1; @@ -242,6 +242,7 @@ obj* l_lean_parser_command_export_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_syntax_mk__node(obj*, obj*); obj* l_lean_parser_number_parser___at_lean_parser_command_set__option_parser_lean_parser_has__tokens___spec__3(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_open__spec_only_has__view_x_27___lambda__2(obj*); +extern obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_end; obj* l_lean_parser_command_variable_parser___closed__1; obj* l_lean_parser_command_set__option_has__view_x_27; @@ -274,6 +275,7 @@ obj* l_lean_parser_rec__t_run__parsec___at_lean_parser_command__parser_run___spe obj* l_list_map___main___at_lean_parser_command_open__spec_only_has__view_x_27___spec__1(obj*); obj* l_lean_parser_substring_to__string(obj*); obj* l_lean_parser_try__view___at_lean_parser_string__lit_parser___spec__1(obj*); +obj* l_lean_parser_command_section_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_namespace_has__view_x_27___lambda__1(obj*); extern "C" uint8 lean_name_dec_eq(obj*, obj*); obj* l_lean_parser_command_bool__option__value_has__view_x_27___lambda__2(obj*); @@ -323,6 +325,7 @@ obj* l_lean_parser_command_open__spec_renaming_has__view_x_27___lambda__1___clos extern obj* l_lean_parser_string__lit_parser___at_lean_parser_term_builtin__leading__parsers_lean_parser_has__tokens___spec__1___rarg___closed__1; obj* l_lean_parser_command_open__spec_hiding; obj* l_lean_parser_command_parser(obj*); +extern obj* l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; extern obj* l_lean_parser_command_attr__instance_parser_lean_parser_has__tokens; obj* l_lean_parser_command_init__quot; obj* l_lean_parser_command_open__spec_as_has__view_x_27___lambda__1(obj*); @@ -331,6 +334,7 @@ obj* l_lean_parser_command_variables_parser(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_declaration_parser(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_check_has__view_x_27___lambda__1___closed__1; obj* l_reader__t_lift___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__8___rarg___boxed(obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_command_init__quot_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_reserve__notation_parser(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_export_parser(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_command__parser_run___spec__8___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -345,7 +349,6 @@ obj* l_lean_parser_command_open__spec_only_has__view_x_27___lambda__1___closed__ obj* l_list_map___main___at_lean_parser_command_open__spec_only_has__view_x_27___spec__2(obj*); obj* l_lean_parser_command_attribute_parser(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_omit_parser_lean_parser_has__tokens; -extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_variables_has__view_x_27___lambda__1(obj*); obj* l_dlist_singleton___rarg(obj*, obj*); extern obj* l_lean_parser_command_notation__spec_has__view_x_27___lambda__1___closed__4; @@ -356,12 +359,13 @@ obj* l_lean_parser_command_omit_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_universe_parser___closed__1; obj* l_lean_parser_command_open_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_bool__option__value_has__view_x_27___lambda__1___closed__1; -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_symbol__core___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_set__option_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_omit_parser(obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_attribute_parser___closed__1; extern obj* l_lean_parser_combinators_any__of___rarg___closed__1; +extern obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; obj* l_lean_parser_command_section_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_rec__t_run__parsec___at_lean_parser_command__parser_run___spec__6___lambda__1(obj*, obj*, obj*); obj* l_lean_parser_command_open_has__view_x_27___lambda__2(obj*); @@ -372,15 +376,16 @@ obj* l_lean_parser_command_open__spec_hiding_has__view_x_27___lambda__1___closed obj* l_list_map___main___at_lean_parser_command__parser_run___spec__1(obj*, obj*); obj* l_lean_parser_command_check; obj* l_list_foldl___main___at_lean_parser_command__parser_run___spec__5(obj*, obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__4; obj* l_lean_parser_parser__core__t___at_lean_parser_command__parser_run___spec__7; extern obj* l_lean_parser_command_reserve__notation_parser_lean_parser_has__tokens; obj* l_lean_parser_command_export_parser_lean_parser_has__tokens; obj* l_lean_parser_command_export; obj* l_reader__t_orelse___at_lean_parser_command_universe_parser___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_rec_1__run__aux___main___rarg(obj*, obj*, obj*, obj*); +obj* l_lean_parser_command_end_has__view_x_27___lambda__2___closed__1; obj* l_list_map___main___at_lean_parser_command_include_has__view_x_27___spec__2(obj*); obj* l_lean_parser_command_set__option_has__view; -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* l_lean_parser_rec__t_recurse___at_lean_parser_command_parser_lean_parser_has__view___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { _start: { @@ -733,29 +738,58 @@ return x_40; obj* l_lean_parser_command_open__spec_as_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_11, 0, x_3); -x_12 = lean::box(0); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_11); -lean::cnstr_set(x_13, 1, x_12); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_9); -lean::cnstr_set(x_14, 1, x_13); -x_15 = l_lean_parser_command_open__spec_as; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -return x_16; +x_6 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_6, 0, x_3); +x_7 = lean::box(0); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_7); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_9 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_9); +lean::cnstr_set(x_10, 1, x_8); +x_11 = l_lean_parser_command_open__spec_as; +x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); +return x_12; +} +else +{ +obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; +x_13 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_15 = x_1; +} else { + lean::inc(x_13); + lean::dec(x_1); + x_15 = lean::box(0); +} +x_16 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_16, 0, x_13); +if (lean::is_scalar(x_15)) { + x_17 = lean::alloc_cnstr(1, 1, 0); +} else { + x_17 = x_15; +} +lean::cnstr_set(x_17, 0, x_16); +x_18 = lean::box(3); +x_19 = l_option_get__or__else___main___rarg(x_17, x_18); +lean::dec(x_17); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_19); +lean::cnstr_set(x_21, 1, x_8); +x_22 = l_lean_parser_command_open__spec_as; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} } } obj* _init_l_lean_parser_command_open__spec_as_has__view_x_27() { @@ -1552,7 +1586,7 @@ return x_122; obj* l_lean_parser_command_open__spec_only_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -1562,39 +1596,148 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_15, 0, x_3); -x_16 = lean::box(0); +x_10 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_10, 0, x_3); +x_11 = lean::box(0); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set(x_12, 1, x_11); +x_13 = l_list_map___main___at_lean_parser_command_open__spec_only_has__view_x_27___spec__2(x_5); +x_14 = l_lean_parser_no__kind; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_16; obj* x_17; obj* x_18; +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_13); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_no__kind; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -x_21 = l_list_map___main___at_lean_parser_command_open__spec_only_has__view_x_27___spec__2(x_5); -x_22 = l_lean_parser_syntax_mk__node(x_19, x_21); -x_23 = l_option_map___rarg(x_10, x_7); -x_24 = l_option_get__or__else___main___rarg(x_23, x_12); -lean::dec(x_23); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_24); -lean::cnstr_set(x_26, 1, x_16); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_22); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_20); -lean::cnstr_set(x_28, 1, x_27); -x_29 = l_lean_parser_command_open__spec_only; -x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); -return x_30; +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_12); +x_18 = l_lean_parser_syntax_mk__node(x_14, x_17); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_19 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_15); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_18); +lean::cnstr_set(x_21, 1, x_20); +x_22 = l_lean_parser_command_open__spec_only; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_24 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_26 = x_7; +} else { + lean::inc(x_24); + lean::dec(x_7); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_11); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_15); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_18); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_lean_parser_command_open__spec_only; +x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); +return x_36; +} +} +else +{ +obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; +x_37 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_39 = x_1; +} else { + lean::inc(x_37); + lean::dec(x_1); + x_39 = lean::box(0); +} +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +if (lean::is_scalar(x_39)) { + x_41 = lean::alloc_cnstr(1, 1, 0); +} else { + x_41 = x_39; +} +lean::cnstr_set(x_41, 0, x_40); +x_42 = lean::box(3); +x_43 = l_option_get__or__else___main___rarg(x_41, x_42); +lean::dec(x_41); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_12); +x_46 = l_lean_parser_syntax_mk__node(x_14, x_45); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_15); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_46); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_lean_parser_command_open__spec_only; +x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); +return x_51; +} +else +{ +obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_52 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_54 = x_7; +} else { + lean::inc(x_52); + lean::dec(x_7); + x_54 = lean::box(0); +} +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(1, 1, 0); +} else { + x_56 = x_54; +} +lean::cnstr_set(x_56, 0, x_55); +x_57 = l_option_get__or__else___main___rarg(x_56, x_42); +lean::dec(x_56); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_57); +lean::cnstr_set(x_59, 1, x_11); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_15); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_46); +lean::cnstr_set(x_61, 1, x_60); +x_62 = l_lean_parser_command_open__spec_only; +x_63 = l_lean_parser_syntax_mk__node(x_62, x_61); +return x_63; +} +} } } obj* _init_l_lean_parser_command_open__spec_only_has__view_x_27() { @@ -1976,7 +2119,7 @@ return x_57; obj* l_lean_parser_command_open__spec_renaming_item_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -1986,26 +2129,58 @@ lean::inc(x_5); lean::dec(x_0); x_8 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_8, 0, x_1); -x_9 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_10 = l_option_map___rarg(x_9, x_3); -x_11 = lean::box(3); -x_12 = l_option_get__or__else___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_14, 0, x_5); -x_15 = lean::box(0); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_12); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_8); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_open__spec_renaming_item; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +x_9 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_9, 0, x_5); +x_10 = lean::box(0); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_10); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_12 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_11); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_8); +lean::cnstr_set(x_14, 1, x_13); +x_15 = l_lean_parser_command_open__spec_renaming_item; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_17 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_19 = x_3; +} else { + lean::inc(x_17); + lean::dec(x_3); + x_19 = lean::box(0); +} +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); +if (lean::is_scalar(x_19)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_19; +} +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::box(3); +x_23 = l_option_get__or__else___main___rarg(x_21, x_22); +lean::dec(x_21); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_11); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_8); +lean::cnstr_set(x_26, 1, x_25); +x_27 = l_lean_parser_command_open__spec_renaming_item; +x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); +return x_28; +} } } obj* _init_l_lean_parser_command_open__spec_renaming_item_has__view_x_27() { @@ -2739,7 +2914,7 @@ return x_1; obj* l_lean_parser_command_open__spec_renaming_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -2749,41 +2924,303 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_option_map___rarg(x_10, x_3); -x_16 = l_option_get__or__else___main___rarg(x_15, x_12); -lean::dec(x_15); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_16); -lean::cnstr_set(x_19, 1, x_18); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_13); -lean::cnstr_set(x_20, 1, x_19); -x_21 = l_lean_parser_no__kind; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -x_23 = l_lean_parser_command_open__spec_renaming_has__view_x_27___lambda__2___closed__1; -x_24 = l_list_map___main___rarg(x_23, x_5); -x_25 = l_lean_parser_syntax_mk__node(x_21, x_24); -x_26 = l_option_map___rarg(x_10, x_7); -x_27 = l_option_get__or__else___main___rarg(x_26, x_12); -lean::dec(x_26); +x_10 = lean::box(0); +x_11 = l_lean_parser_command_open__spec_renaming_has__view_x_27___lambda__2___closed__1; +x_12 = l_list_map___main___rarg(x_11, x_5); +x_13 = l_lean_parser_no__kind; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_15 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_14); +lean::cnstr_set(x_16, 1, x_15); +x_17 = l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = l_lean_parser_command_open__spec_renaming; +x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); +return x_20; +} +else +{ +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_21 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_23 = x_7; +} else { + lean::inc(x_21); + lean::dec(x_7); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); x_29 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_18); +lean::cnstr_set(x_29, 1, x_10); x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_25); +lean::cnstr_set(x_30, 0, x_14); lean::cnstr_set(x_30, 1, x_29); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_22); -lean::cnstr_set(x_31, 1, x_30); -x_32 = l_lean_parser_command_open__spec_renaming; -x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); -return x_33; +x_31 = l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1; +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_30); +x_33 = l_lean_parser_command_open__spec_renaming; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +return x_34; +} +} +else +{ +obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_35 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_37 = x_3; +} else { + lean::inc(x_35); + lean::dec(x_3); + x_37 = lean::box(0); +} +x_38 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_38, 0, x_35); +if (lean::is_scalar(x_37)) { + x_39 = lean::alloc_cnstr(1, 1, 0); +} else { + x_39 = x_37; +} +lean::cnstr_set(x_39, 0, x_38); +x_40 = lean::box(3); +x_41 = l_option_get__or__else___main___rarg(x_39, x_40); +lean::dec(x_39); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_41); +lean::cnstr_set(x_43, 1, x_10); +x_44 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_43); +x_46 = l_lean_parser_syntax_mk__node(x_13, x_45); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_47 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_14); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_46); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_lean_parser_command_open__spec_renaming; +x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); +return x_51; +} +else +{ +obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_52 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_54 = x_7; +} else { + lean::inc(x_52); + lean::dec(x_7); + x_54 = lean::box(0); +} +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(1, 1, 0); +} else { + x_56 = x_54; +} +lean::cnstr_set(x_56, 0, x_55); +x_57 = l_option_get__or__else___main___rarg(x_56, x_40); +lean::dec(x_56); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_57); +lean::cnstr_set(x_59, 1, x_10); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_14); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_46); +lean::cnstr_set(x_61, 1, x_60); +x_62 = l_lean_parser_command_open__spec_renaming; +x_63 = l_lean_parser_syntax_mk__node(x_62, x_61); +return x_63; +} +} +} +else +{ +obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +x_64 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_66 = x_1; +} else { + lean::inc(x_64); + lean::dec(x_1); + x_66 = lean::box(0); +} +x_67 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_67, 0, x_64); +if (lean::is_scalar(x_66)) { + x_68 = lean::alloc_cnstr(1, 1, 0); +} else { + x_68 = x_66; +} +lean::cnstr_set(x_68, 0, x_67); +x_69 = lean::box(3); +x_70 = l_option_get__or__else___main___rarg(x_68, x_69); +lean::dec(x_68); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_72; obj* x_73; obj* x_74; +x_72 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_70); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_syntax_mk__node(x_13, x_73); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_14); +lean::cnstr_set(x_75, 1, x_72); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_74); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_lean_parser_command_open__spec_renaming; +x_78 = l_lean_parser_syntax_mk__node(x_77, x_76); +return x_78; +} +else +{ +obj* x_79; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_79 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_81 = x_7; +} else { + lean::inc(x_79); + lean::dec(x_7); + x_81 = lean::box(0); +} +x_82 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_82, 0, x_79); +if (lean::is_scalar(x_81)) { + x_83 = lean::alloc_cnstr(1, 1, 0); +} else { + x_83 = x_81; +} +lean::cnstr_set(x_83, 0, x_82); +x_84 = l_option_get__or__else___main___rarg(x_83, x_69); +lean::dec(x_83); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_84); +lean::cnstr_set(x_86, 1, x_10); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_14); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_74); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_lean_parser_command_open__spec_renaming; +x_90 = l_lean_parser_syntax_mk__node(x_89, x_88); +return x_90; +} +} +else +{ +obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; +x_91 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_93 = x_3; +} else { + lean::inc(x_91); + lean::dec(x_3); + x_93 = lean::box(0); +} +x_94 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_94, 0, x_91); +if (lean::is_scalar(x_93)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_93; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = l_option_get__or__else___main___rarg(x_95, x_69); +lean::dec(x_95); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set(x_98, 1, x_10); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_70); +lean::cnstr_set(x_99, 1, x_98); +x_100 = l_lean_parser_syntax_mk__node(x_13, x_99); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; +x_101 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_14); +lean::cnstr_set(x_102, 1, x_101); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_100); +lean::cnstr_set(x_103, 1, x_102); +x_104 = l_lean_parser_command_open__spec_renaming; +x_105 = l_lean_parser_syntax_mk__node(x_104, x_103); +return x_105; +} +else +{ +obj* x_106; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; +x_106 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_108 = x_7; +} else { + lean::inc(x_106); + lean::dec(x_7); + x_108 = lean::box(0); +} +x_109 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_109, 0, x_106); +if (lean::is_scalar(x_108)) { + x_110 = lean::alloc_cnstr(1, 1, 0); +} else { + x_110 = x_108; +} +lean::cnstr_set(x_110, 0, x_109); +x_111 = l_option_get__or__else___main___rarg(x_110, x_69); +lean::dec(x_110); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_111); +lean::cnstr_set(x_113, 1, x_10); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_14); +lean::cnstr_set(x_114, 1, x_113); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_100); +lean::cnstr_set(x_115, 1, x_114); +x_116 = l_lean_parser_command_open__spec_renaming; +x_117 = l_lean_parser_syntax_mk__node(x_116, x_115); +return x_117; +} +} +} } } obj* _init_l_lean_parser_command_open__spec_renaming_has__view_x_27() { @@ -3517,7 +3954,7 @@ return x_98; obj* l_lean_parser_command_open__spec_hiding_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -3527,36 +3964,310 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_option_map___rarg(x_10, x_3); -x_16 = l_option_get__or__else___main___rarg(x_15, x_12); -lean::dec(x_15); -x_18 = l_list_map___main___at_lean_parser_command_open__spec_hiding_has__view_x_27___spec__2(x_5); -x_19 = l_lean_parser_no__kind; +x_10 = l_list_map___main___at_lean_parser_command_open__spec_hiding_has__view_x_27___spec__2(x_5); +x_11 = l_lean_parser_no__kind; +x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set(x_18, 1, x_17); +x_19 = l_lean_parser_command_open__spec_hiding; x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -x_21 = l_option_map___rarg(x_10, x_7); -x_22 = l_option_get__or__else___main___rarg(x_21, x_12); -lean::dec(x_21); -x_24 = lean::box(0); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_20); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_16); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_13); -lean::cnstr_set(x_28, 1, x_27); -x_29 = l_lean_parser_command_open__spec_hiding; -x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); -return x_30; +return x_20; +} +else +{ +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_21 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_23 = x_7; +} else { + lean::inc(x_21); + lean::dec(x_7); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_27); +lean::cnstr_set(x_29, 1, x_13); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_12); +lean::cnstr_set(x_30, 1, x_29); +x_31 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_30); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_32); +x_34 = l_lean_parser_command_open__spec_hiding; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +return x_35; +} +} +else +{ +obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_36 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_38 = x_3; +} else { + lean::inc(x_36); + lean::dec(x_3); + x_38 = lean::box(0); +} +x_39 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_39, 0, x_36); +if (lean::is_scalar(x_38)) { + x_40 = lean::alloc_cnstr(1, 1, 0); +} else { + x_40 = x_38; +} +lean::cnstr_set(x_40, 0, x_39); +x_41 = lean::box(3); +x_42 = l_option_get__or__else___main___rarg(x_40, x_41); +lean::dec(x_40); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_44 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_12); +lean::cnstr_set(x_45, 1, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_42); +lean::cnstr_set(x_46, 1, x_45); +x_47 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_46); +x_49 = l_lean_parser_command_open__spec_hiding; +x_50 = l_lean_parser_syntax_mk__node(x_49, x_48); +return x_50; +} +else +{ +obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +x_51 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_53 = x_7; +} else { + lean::inc(x_51); + lean::dec(x_7); + x_53 = lean::box(0); +} +x_54 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_54, 0, x_51); +if (lean::is_scalar(x_53)) { + x_55 = lean::alloc_cnstr(1, 1, 0); +} else { + x_55 = x_53; +} +lean::cnstr_set(x_55, 0, x_54); +x_56 = l_option_get__or__else___main___rarg(x_55, x_41); +lean::dec(x_55); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_56); +lean::cnstr_set(x_58, 1, x_13); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_12); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_42); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_61); +lean::cnstr_set(x_62, 1, x_60); +x_63 = l_lean_parser_command_open__spec_hiding; +x_64 = l_lean_parser_syntax_mk__node(x_63, x_62); +return x_64; +} +} +} +else +{ +obj* x_65; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +x_65 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_67 = x_1; +} else { + lean::inc(x_65); + lean::dec(x_1); + x_67 = lean::box(0); +} +x_68 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_68, 0, x_65); +if (lean::is_scalar(x_67)) { + x_69 = lean::alloc_cnstr(1, 1, 0); +} else { + x_69 = x_67; +} +lean::cnstr_set(x_69, 0, x_68); +x_70 = lean::box(3); +x_71 = l_option_get__or__else___main___rarg(x_69, x_70); +lean::dec(x_69); +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; +x_73 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_12); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_75); +lean::cnstr_set(x_76, 1, x_74); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_71); +lean::cnstr_set(x_77, 1, x_76); +x_78 = l_lean_parser_command_open__spec_hiding; +x_79 = l_lean_parser_syntax_mk__node(x_78, x_77); +return x_79; +} +else +{ +obj* x_80; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; +x_80 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_82 = x_7; +} else { + lean::inc(x_80); + lean::dec(x_7); + x_82 = lean::box(0); +} +x_83 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_83, 0, x_80); +if (lean::is_scalar(x_82)) { + x_84 = lean::alloc_cnstr(1, 1, 0); +} else { + x_84 = x_82; +} +lean::cnstr_set(x_84, 0, x_83); +x_85 = l_option_get__or__else___main___rarg(x_84, x_70); +lean::dec(x_84); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_85); +lean::cnstr_set(x_87, 1, x_13); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_12); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_89); +lean::cnstr_set(x_90, 1, x_88); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_71); +lean::cnstr_set(x_91, 1, x_90); +x_92 = l_lean_parser_command_open__spec_hiding; +x_93 = l_lean_parser_syntax_mk__node(x_92, x_91); +return x_93; +} +} +else +{ +obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_94 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_96 = x_3; +} else { + lean::inc(x_94); + lean::dec(x_3); + x_96 = lean::box(0); +} +x_97 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_97, 0, x_94); +if (lean::is_scalar(x_96)) { + x_98 = lean::alloc_cnstr(1, 1, 0); +} else { + x_98 = x_96; +} +lean::cnstr_set(x_98, 0, x_97); +x_99 = l_option_get__or__else___main___rarg(x_98, x_70); +lean::dec(x_98); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; +x_101 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_12); +lean::cnstr_set(x_102, 1, x_101); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_99); +lean::cnstr_set(x_103, 1, x_102); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_71); +lean::cnstr_set(x_104, 1, x_103); +x_105 = l_lean_parser_command_open__spec_hiding; +x_106 = l_lean_parser_syntax_mk__node(x_105, x_104); +return x_106; +} +else +{ +obj* x_107; obj* x_109; obj* x_110; obj* x_111; obj* x_112; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; +x_107 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_109 = x_7; +} else { + lean::inc(x_107); + lean::dec(x_7); + x_109 = lean::box(0); +} +x_110 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_110, 0, x_107); +if (lean::is_scalar(x_109)) { + x_111 = lean::alloc_cnstr(1, 1, 0); +} else { + x_111 = x_109; +} +lean::cnstr_set(x_111, 0, x_110); +x_112 = l_option_get__or__else___main___rarg(x_111, x_70); +lean::dec(x_111); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_112); +lean::cnstr_set(x_114, 1, x_13); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_12); +lean::cnstr_set(x_115, 1, x_114); +x_116 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_116, 0, x_99); +lean::cnstr_set(x_116, 1, x_115); +x_117 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_117, 0, x_71); +lean::cnstr_set(x_117, 1, x_116); +x_118 = l_lean_parser_command_open__spec_hiding; +x_119 = l_lean_parser_syntax_mk__node(x_118, x_117); +return x_119; +} +} +} } } obj* _init_l_lean_parser_command_open__spec_hiding_has__view_x_27() { @@ -5838,31 +6549,60 @@ return x_1; obj* l_lean_parser_command_open_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_command_open_has__view_x_27___lambda__2___closed__1; -x_12 = l_list_map___main___rarg(x_11, x_3); -x_13 = l_lean_parser_no__kind; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -x_15 = lean::box(0); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_9); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_command_open; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_6 = l_lean_parser_command_open_has__view_x_27___lambda__2___closed__1; +x_7 = l_list_map___main___rarg(x_6, x_3); +x_8 = l_lean_parser_no__kind; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +x_10 = lean::box(0); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_10); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_12 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_11); +x_14 = l_lean_parser_command_open; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +x_16 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_18 = x_1; +} else { + lean::inc(x_16); + lean::dec(x_1); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_11); +x_25 = l_lean_parser_command_open; +x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); +return x_26; +} } } obj* _init_l_lean_parser_command_open_has__view_x_27() { @@ -6198,31 +6938,60 @@ return x_75; obj* l_lean_parser_command_export_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_command_open_has__view_x_27___lambda__2___closed__1; -x_12 = l_list_map___main___rarg(x_11, x_3); -x_13 = l_lean_parser_no__kind; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -x_15 = lean::box(0); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_9); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_command_export; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_6 = l_lean_parser_command_open_has__view_x_27___lambda__2___closed__1; +x_7 = l_list_map___main___rarg(x_6, x_3); +x_8 = l_lean_parser_no__kind; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +x_10 = lean::box(0); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_10); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_12 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_11); +x_14 = l_lean_parser_command_export; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +x_16 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_18 = x_1; +} else { + lean::inc(x_16); + lean::dec(x_1); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_11); +x_25 = l_lean_parser_command_export; +x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); +return x_26; +} } } obj* _init_l_lean_parser_command_export_has__view_x_27() { @@ -6682,54 +7451,126 @@ return x_66; } } } +obj* _init_l_lean_parser_command_section_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = l_lean_parser_no__kind; +x_5 = l_lean_parser_syntax_mk__node(x_4, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +x_8 = l_lean_parser_command_section; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +return x_9; +} +} obj* l_lean_parser_command_section_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); +x_6 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_3) == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_14; -x_11 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_9); -lean::cnstr_set(x_12, 1, x_11); -x_13 = l_lean_parser_command_section; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -return x_14; +obj* x_7; +x_7 = l_lean_parser_command_section_has__view_x_27___lambda__2___closed__1; +return x_7; } else { -obj* x_15; obj* x_18; 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_15 = lean::cnstr_get(x_3, 0); -lean::inc(x_15); +obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_8 = lean::cnstr_get(x_3, 0); +lean::inc(x_8); lean::dec(x_3); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_19, 0, x_15); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = l_lean_parser_no__kind; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_22); -lean::cnstr_set(x_23, 1, x_18); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_9); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_section; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_11 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_11, 0, x_8); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_6); +x_13 = l_lean_parser_no__kind; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_6); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_command_section; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +x_20 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_22 = x_1; +} else { + lean::inc(x_20); + lean::dec(x_1); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_28 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_26); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_command_section; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} +else +{ +obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_32 = lean::cnstr_get(x_3, 0); +lean::inc(x_32); +lean::dec(x_3); +x_35 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_6); +x_37 = l_lean_parser_no__kind; +x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_6); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_26); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_lean_parser_command_section; +x_42 = l_lean_parser_syntax_mk__node(x_41, x_40); +return x_42; +} } } } @@ -7048,29 +7889,58 @@ return x_40; obj* l_lean_parser_command_namespace_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_11, 0, x_3); -x_12 = lean::box(0); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_11); -lean::cnstr_set(x_13, 1, x_12); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_9); -lean::cnstr_set(x_14, 1, x_13); -x_15 = l_lean_parser_command_namespace; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -return x_16; +x_6 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_6, 0, x_3); +x_7 = lean::box(0); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_7); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_9 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_9); +lean::cnstr_set(x_10, 1, x_8); +x_11 = l_lean_parser_command_namespace; +x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); +return x_12; +} +else +{ +obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; +x_13 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_15 = x_1; +} else { + lean::inc(x_13); + lean::dec(x_1); + x_15 = lean::box(0); +} +x_16 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_16, 0, x_13); +if (lean::is_scalar(x_15)) { + x_17 = lean::alloc_cnstr(1, 1, 0); +} else { + x_17 = x_15; +} +lean::cnstr_set(x_17, 0, x_16); +x_18 = lean::box(3); +x_19 = l_option_get__or__else___main___rarg(x_17, x_18); +lean::dec(x_17); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_19); +lean::cnstr_set(x_21, 1, x_8); +x_22 = l_lean_parser_command_namespace; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} } } obj* _init_l_lean_parser_command_namespace_has__view_x_27() { @@ -7432,32 +8302,61 @@ return x_55; obj* l_lean_parser_command_variable_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_term_binder_has__view; -x_12 = lean::cnstr_get(x_11, 1); -lean::inc(x_12); -lean::dec(x_11); -x_15 = lean::apply_1(x_12, x_3); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_9); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_variable; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +x_6 = l_lean_parser_term_binder_has__view; +x_7 = lean::cnstr_get(x_6, 1); +lean::inc(x_7); +lean::dec(x_6); +x_10 = lean::apply_1(x_7, x_3); +x_11 = lean::box(0); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set(x_12, 1, x_11); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_13 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_lean_parser_command_variable; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +x_17 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_19 = x_1; +} else { + lean::inc(x_17); + lean::dec(x_1); + x_19 = lean::box(0); +} +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); +if (lean::is_scalar(x_19)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_19; +} +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::box(3); +x_23 = l_option_get__or__else___main___rarg(x_21, x_22); +lean::dec(x_21); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_12); +x_26 = l_lean_parser_command_variable; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_command_variable_has__view_x_27() { @@ -7811,32 +8710,61 @@ return x_55; obj* l_lean_parser_command_variables_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_term_bracketed__binders_has__view; -x_12 = lean::cnstr_get(x_11, 1); -lean::inc(x_12); -lean::dec(x_11); -x_15 = lean::apply_1(x_12, x_3); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_9); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_variables; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +x_6 = l_lean_parser_term_bracketed__binders_has__view; +x_7 = lean::cnstr_get(x_6, 1); +lean::inc(x_7); +lean::dec(x_6); +x_10 = lean::apply_1(x_7, x_3); +x_11 = lean::box(0); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set(x_12, 1, x_11); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_13 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_lean_parser_command_variables; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +x_17 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_19 = x_1; +} else { + lean::inc(x_17); + lean::dec(x_1); + x_19 = lean::box(0); +} +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); +if (lean::is_scalar(x_19)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_19; +} +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::box(3); +x_23 = l_option_get__or__else___main___rarg(x_21, x_22); +lean::dec(x_21); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_12); +x_26 = l_lean_parser_command_variables; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_command_variables_has__view_x_27() { @@ -8259,30 +9187,59 @@ return x_43; obj* l_lean_parser_command_include_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_list_map___main___at_lean_parser_command_include_has__view_x_27___spec__2(x_3); -x_12 = l_lean_parser_no__kind; -x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_13); -lean::cnstr_set(x_15, 1, x_14); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_9); -lean::cnstr_set(x_16, 1, x_15); -x_17 = l_lean_parser_command_include; -x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); -return x_18; +x_6 = l_list_map___main___at_lean_parser_command_include_has__view_x_27___spec__2(x_3); +x_7 = l_lean_parser_no__kind; +x_8 = l_lean_parser_syntax_mk__node(x_7, x_6); +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set(x_10, 1, x_9); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_11; obj* x_12; obj* x_13; obj* x_14; +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = l_lean_parser_command_include; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +x_15 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_17 = x_1; +} else { + lean::inc(x_15); + lean::dec(x_1); + x_17 = lean::box(0); +} +x_18 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_18, 0, x_15); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(1, 1, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +x_20 = lean::box(3); +x_21 = l_option_get__or__else___main___rarg(x_19, x_20); +lean::dec(x_19); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_21); +lean::cnstr_set(x_23, 1, x_10); +x_24 = l_lean_parser_command_include; +x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); +return x_25; +} } } obj* _init_l_lean_parser_command_include_has__view_x_27() { @@ -8704,30 +9661,59 @@ return x_43; obj* l_lean_parser_command_omit_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_list_map___main___at_lean_parser_command_omit_has__view_x_27___spec__2(x_3); -x_12 = l_lean_parser_no__kind; -x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_13); -lean::cnstr_set(x_15, 1, x_14); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_9); -lean::cnstr_set(x_16, 1, x_15); -x_17 = l_lean_parser_command_omit; -x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); -return x_18; +x_6 = l_list_map___main___at_lean_parser_command_omit_has__view_x_27___spec__2(x_3); +x_7 = l_lean_parser_no__kind; +x_8 = l_lean_parser_syntax_mk__node(x_7, x_6); +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set(x_10, 1, x_9); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_11; obj* x_12; obj* x_13; obj* x_14; +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = l_lean_parser_command_omit; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +x_15 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_17 = x_1; +} else { + lean::inc(x_15); + lean::dec(x_1); + x_17 = lean::box(0); +} +x_18 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_18, 0, x_15); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(1, 1, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +x_20 = lean::box(3); +x_21 = l_option_get__or__else___main___rarg(x_19, x_20); +lean::dec(x_19); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_21); +lean::cnstr_set(x_23, 1, x_10); +x_24 = l_lean_parser_command_omit; +x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); +return x_25; +} } } obj* _init_l_lean_parser_command_omit_has__view_x_27() { @@ -9190,54 +10176,126 @@ return x_66; } } } +obj* _init_l_lean_parser_command_end_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = l_lean_parser_no__kind; +x_5 = l_lean_parser_syntax_mk__node(x_4, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +x_8 = l_lean_parser_command_end; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +return x_9; +} +} obj* l_lean_parser_command_end_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); +x_6 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_3) == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_14; -x_11 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_9); -lean::cnstr_set(x_12, 1, x_11); -x_13 = l_lean_parser_command_end; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -return x_14; +obj* x_7; +x_7 = l_lean_parser_command_end_has__view_x_27___lambda__2___closed__1; +return x_7; } else { -obj* x_15; obj* x_18; 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_15 = lean::cnstr_get(x_3, 0); -lean::inc(x_15); +obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_8 = lean::cnstr_get(x_3, 0); +lean::inc(x_8); lean::dec(x_3); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_19, 0, x_15); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_19); -lean::cnstr_set(x_20, 1, x_18); -x_21 = l_lean_parser_no__kind; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_22); -lean::cnstr_set(x_23, 1, x_18); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_9); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_end; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_11 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_11, 0, x_8); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_6); +x_13 = l_lean_parser_no__kind; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_6); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_command_end; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +x_20 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_22 = x_1; +} else { + lean::inc(x_20); + lean::dec(x_1); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_28 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_26); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_command_end; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} +else +{ +obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +x_32 = lean::cnstr_get(x_3, 0); +lean::inc(x_32); +lean::dec(x_3); +x_35 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_6); +x_37 = l_lean_parser_no__kind; +x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_6); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_26); +lean::cnstr_set(x_40, 1, x_39); +x_41 = l_lean_parser_command_end; +x_42 = l_lean_parser_syntax_mk__node(x_41, x_40); +return x_42; +} } } } @@ -9660,30 +10718,59 @@ return x_43; obj* l_lean_parser_command_universes_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_list_map___main___at_lean_parser_command_universes_has__view_x_27___spec__2(x_3); -x_12 = l_lean_parser_no__kind; -x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_13); -lean::cnstr_set(x_15, 1, x_14); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_9); -lean::cnstr_set(x_16, 1, x_15); -x_17 = l_lean_parser_command_universes; -x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); -return x_18; +x_6 = l_list_map___main___at_lean_parser_command_universes_has__view_x_27___spec__2(x_3); +x_7 = l_lean_parser_no__kind; +x_8 = l_lean_parser_syntax_mk__node(x_7, x_6); +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set(x_10, 1, x_9); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_11; obj* x_12; obj* x_13; obj* x_14; +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = l_lean_parser_command_universes; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; +x_15 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_17 = x_1; +} else { + lean::inc(x_15); + lean::dec(x_1); + x_17 = lean::box(0); +} +x_18 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_18, 0, x_15); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(1, 1, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +x_20 = lean::box(3); +x_21 = l_option_get__or__else___main___rarg(x_19, x_20); +lean::dec(x_19); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_21); +lean::cnstr_set(x_23, 1, x_10); +x_24 = l_lean_parser_command_universes; +x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); +return x_25; +} } } obj* _init_l_lean_parser_command_universes_has__view_x_27() { @@ -9945,29 +11032,58 @@ return x_40; obj* l_lean_parser_command_universe_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_11, 0, x_3); -x_12 = lean::box(0); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_11); -lean::cnstr_set(x_13, 1, x_12); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_9); -lean::cnstr_set(x_14, 1, x_13); -x_15 = l_lean_parser_command_universe; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -return x_16; +x_6 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_6, 0, x_3); +x_7 = lean::box(0); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_7); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_9; obj* x_10; obj* x_11; obj* x_12; +x_9 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_9); +lean::cnstr_set(x_10, 1, x_8); +x_11 = l_lean_parser_command_universe; +x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); +return x_12; +} +else +{ +obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; +x_13 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_15 = x_1; +} else { + lean::inc(x_13); + lean::dec(x_1); + x_15 = lean::box(0); +} +x_16 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_16, 0, x_13); +if (lean::is_scalar(x_15)) { + x_17 = lean::alloc_cnstr(1, 1, 0); +} else { + x_17 = x_15; +} +lean::cnstr_set(x_17, 0, x_16); +x_18 = lean::box(3); +x_19 = l_option_get__or__else___main___rarg(x_17, x_18); +lean::dec(x_17); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_19); +lean::cnstr_set(x_21, 1, x_8); +x_22 = l_lean_parser_command_universe; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} } } obj* _init_l_lean_parser_command_universe_has__view_x_27() { @@ -10437,27 +11553,56 @@ return x_51; obj* l_lean_parser_command_check_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_command_check; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_command_check; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_command_check; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_command_check_has__view_x_27() { @@ -10845,7 +11990,7 @@ return x_20; } else { -obj* x_21; obj* x_24; obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_34; obj* x_35; obj* x_36; +obj* x_21; obj* x_24; obj* x_25; obj* x_28; x_21 = lean::cnstr_get(x_9, 0); lean::inc(x_21); lean::dec(x_9); @@ -10854,25 +11999,59 @@ x_25 = lean::cnstr_get(x_24, 1); lean::inc(x_25); lean::dec(x_24); x_28 = lean::apply_1(x_25, x_7); -x_29 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_30 = l_option_map___rarg(x_29, x_21); -x_31 = lean::box(3); -x_32 = l_option_get__or__else___main___rarg(x_30, x_31); -lean::dec(x_30); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_34 = lean::alloc_cnstr(1, 2, 0); + x_30 = lean::alloc_cnstr(1, 2, 0); } else { - x_34 = x_6; + x_30 = x_6; +} +lean::cnstr_set(x_30, 0, x_28); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_13); +return x_31; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; +x_32 = lean::cnstr_get(x_21, 0); +if (lean::is_exclusive(x_21)) { + x_34 = x_21; +} else { + lean::inc(x_32); + lean::dec(x_21); + x_34 = lean::box(0); +} +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(1, 1, 0); +} else { + x_36 = x_34; } -lean::cnstr_set(x_34, 0, x_32); -lean::cnstr_set(x_34, 1, x_12); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_28); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_13); -return x_36; +x_37 = lean::box(3); +x_38 = l_option_get__or__else___main___rarg(x_36, x_37); +lean::dec(x_36); +if (lean::is_scalar(x_6)) { + x_40 = lean::alloc_cnstr(1, 2, 0); +} else { + x_40 = x_6; +} +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set(x_40, 1, x_12); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_28); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_13); +return x_42; +} } } } @@ -11775,7 +12954,7 @@ return x_164; obj* l_lean_parser_command_attribute_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -11789,77 +12968,254 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_0, 5); lean::inc(x_11); lean::dec(x_0); -x_14 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_15 = l_option_map___rarg(x_14, x_3); -x_16 = lean::box(3); -x_17 = l_option_get__or__else___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = lean::box(0); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_17); -lean::cnstr_set(x_20, 1, x_19); -x_21 = l_option_map___rarg(x_14, x_5); -x_22 = l_option_get__or__else___main___rarg(x_21, x_16); -lean::dec(x_21); -x_24 = l_list_map___main___at_lean_parser_command_attribute_has__view_x_27___spec__3(x_7); -x_25 = l_list_join___main___rarg(x_24); -x_26 = l_lean_parser_no__kind; -x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); -x_28 = l_option_map___rarg(x_14, x_9); -x_29 = l_option_get__or__else___main___rarg(x_28, x_16); -lean::dec(x_28); -x_31 = l_list_map___main___at_lean_parser_command_attribute_has__view_x_27___spec__4(x_11); -x_32 = l_lean_parser_syntax_mk__node(x_26, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_19); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_29); -lean::cnstr_set(x_34, 1, x_33); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_27); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_22); -lean::cnstr_set(x_36, 1, x_35); +x_14 = lean::box(0); +x_15 = l_list_map___main___at_lean_parser_command_attribute_has__view_x_27___spec__3(x_7); +x_16 = l_list_join___main___rarg(x_15); +x_17 = l_lean_parser_no__kind; +x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); +x_19 = l_list_map___main___at_lean_parser_command_attribute_has__view_x_27___spec__4(x_11); +x_20 = l_lean_parser_syntax_mk__node(x_17, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_14); if (lean::obj_tag(x_1) == 0) { -obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; -x_37 = l_lean_parser_combinators_many___rarg___closed__1; -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_20); -x_39 = l_lean_parser_syntax_mk__node(x_26, x_38); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_36); -x_41 = l_lean_parser_command_attribute; -x_42 = l_lean_parser_syntax_mk__node(x_41, x_40); -return x_42; +obj* x_24; +x_24 = l_lean_parser_combinators_many___rarg___closed__1; +x_22 = x_24; +goto lbl_23; } else { -obj* x_43; obj* x_46; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_43 = lean::cnstr_get(x_1, 0); -lean::inc(x_43); +obj* x_25; +x_25 = lean::cnstr_get(x_1, 0); +lean::inc(x_25); lean::dec(x_1); -x_46 = l_option_map___rarg(x_14, x_43); -x_47 = l_option_get__or__else___main___rarg(x_46, x_16); +if (lean::obj_tag(x_25) == 0) +{ +obj* x_28; +x_28 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; +x_22 = x_28; +goto lbl_23; +} +else +{ +obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_37; obj* x_38; +x_29 = lean::cnstr_get(x_25, 0); +if (lean::is_exclusive(x_25)) { + x_31 = x_25; +} else { + lean::inc(x_29); + lean::dec(x_25); + x_31 = lean::box(0); +} +x_32 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_32, 0, x_29); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(1, 1, 0); +} else { + x_33 = x_31; +} +lean::cnstr_set(x_33, 0, x_32); +x_34 = lean::box(3); +x_35 = l_option_get__or__else___main___rarg(x_33, x_34); +lean::dec(x_33); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_35); +lean::cnstr_set(x_37, 1, x_14); +x_38 = l_lean_parser_syntax_mk__node(x_17, x_37); +x_22 = x_38; +goto lbl_23; +} +} +lbl_23: +{ +obj* x_39; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_41; +x_41 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_39 = x_41; +goto lbl_40; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +x_42 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_44 = x_3; +} else { + lean::inc(x_42); + lean::dec(x_3); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::box(3); +x_48 = l_option_get__or__else___main___rarg(x_46, x_47); lean::dec(x_46); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_47); -lean::cnstr_set(x_49, 1, x_19); -x_50 = l_lean_parser_syntax_mk__node(x_26, x_49); +x_39 = x_48; +goto lbl_40; +} +lbl_40: +{ +obj* x_50; obj* x_51; obj* x_52; +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_39); +lean::cnstr_set(x_50, 1, x_14); x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_50); -lean::cnstr_set(x_51, 1, x_20); -x_52 = l_lean_parser_syntax_mk__node(x_26, x_51); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_52); -lean::cnstr_set(x_53, 1, x_36); -x_54 = l_lean_parser_command_attribute; -x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); -return x_55; +lean::cnstr_set(x_51, 0, x_22); +lean::cnstr_set(x_51, 1, x_50); +x_52 = l_lean_parser_syntax_mk__node(x_17, x_51); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; +x_53 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_21); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_18); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_53); +lean::cnstr_set(x_56, 1, x_55); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_52); +lean::cnstr_set(x_57, 1, x_56); +x_58 = l_lean_parser_command_attribute; +x_59 = l_lean_parser_syntax_mk__node(x_58, x_57); +return x_59; +} +else +{ +obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; +x_60 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_62 = x_9; +} else { + lean::inc(x_60); + lean::dec(x_9); + x_62 = lean::box(0); +} +x_63 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_63, 0, x_60); +if (lean::is_scalar(x_62)) { + x_64 = lean::alloc_cnstr(1, 1, 0); +} else { + x_64 = x_62; +} +lean::cnstr_set(x_64, 0, x_63); +x_65 = lean::box(3); +x_66 = l_option_get__or__else___main___rarg(x_64, x_65); +lean::dec(x_64); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_21); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_18); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_52); +lean::cnstr_set(x_72, 1, x_71); +x_73 = l_lean_parser_command_attribute; +x_74 = l_lean_parser_syntax_mk__node(x_73, x_72); +return x_74; +} +} +else +{ +obj* x_75; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_75 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_77 = x_5; +} else { + lean::inc(x_75); + lean::dec(x_5); + x_77 = lean::box(0); +} +x_78 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_78, 0, x_75); +if (lean::is_scalar(x_77)) { + x_79 = lean::alloc_cnstr(1, 1, 0); +} else { + x_79 = x_77; +} +lean::cnstr_set(x_79, 0, x_78); +x_80 = lean::box(3); +x_81 = l_option_get__or__else___main___rarg(x_79, x_80); +lean::dec(x_79); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +x_83 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_83); +lean::cnstr_set(x_84, 1, x_21); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_18); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_81); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_52); +lean::cnstr_set(x_87, 1, x_86); +x_88 = l_lean_parser_command_attribute; +x_89 = l_lean_parser_syntax_mk__node(x_88, x_87); +return x_89; +} +else +{ +obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; +x_90 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_92 = x_9; +} else { + lean::inc(x_90); + lean::dec(x_9); + x_92 = lean::box(0); +} +x_93 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_93, 0, x_90); +if (lean::is_scalar(x_92)) { + x_94 = lean::alloc_cnstr(1, 1, 0); +} else { + x_94 = x_92; +} +lean::cnstr_set(x_94, 0, x_93); +x_95 = l_option_get__or__else___main___rarg(x_94, x_80); +lean::dec(x_94); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_95); +lean::cnstr_set(x_97, 1, x_21); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_18); +lean::cnstr_set(x_98, 1, x_97); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_81); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_52); +lean::cnstr_set(x_100, 1, x_99); +x_101 = l_lean_parser_command_attribute; +x_102 = l_lean_parser_syntax_mk__node(x_101, x_100); +return x_102; +} +} +} } } } @@ -12145,22 +13501,61 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } +obj* _init_l_lean_parser_command_init__quot_has__view_x_27___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_command_init__quot; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_command_init__quot_has__view_x_27___lambda__1(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_parser_command_init__quot; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_parser_command_init__quot_has__view_x_27___lambda__1___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_parser_command_init__quot; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_parser_command_init__quot_has__view_x_27() { @@ -12531,7 +13926,7 @@ lean::dec(x_0); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_11); lean::cnstr_set(x_14, 1, x_1); -x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); @@ -12904,7 +14299,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -12927,7 +14322,7 @@ x_37 = lean::apply_1(x_34, x_30); x_38 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_38, 0, x_37); lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); @@ -13337,7 +14732,7 @@ return x_71; obj* l_lean_parser_command_set__option_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_13; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -13345,31 +14740,60 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); +x_8 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_8, 0, x_3); +x_9 = l_lean_parser_command_option__value_has__view; +x_10 = lean::cnstr_get(x_9, 1); +lean::inc(x_10); lean::dec(x_9); -x_13 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_13, 0, x_3); -x_14 = l_lean_parser_command_option__value_has__view; -x_15 = lean::cnstr_get(x_14, 1); -lean::inc(x_15); -lean::dec(x_14); -x_18 = lean::apply_1(x_15, x_5); -x_19 = lean::box(0); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_18); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_13); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_11); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_command_set__option; -x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); -return x_24; +x_13 = lean::apply_1(x_10, x_5); +x_14 = lean::box(0); +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_13); +lean::cnstr_set(x_15, 1, x_14); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_8); +lean::cnstr_set(x_16, 1, x_15); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = l_lean_parser_command_set__option; +x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); +return x_20; +} +else +{ +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; +x_21 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_23 = x_1; +} else { + lean::inc(x_21); + lean::dec(x_1); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_27); +lean::cnstr_set(x_29, 1, x_16); +x_30 = l_lean_parser_command_set__option; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} } } obj* _init_l_lean_parser_command_set__option_has__view_x_27() { @@ -14934,6 +16358,8 @@ lean::mark_persistent(l_lean_parser_command_export_parser___closed__1); lean::mark_persistent(l_lean_parser_command_section); l_lean_parser_command_section_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_command_section_has__view_x_27___lambda__1___closed__1(); lean::mark_persistent(l_lean_parser_command_section_has__view_x_27___lambda__1___closed__1); + l_lean_parser_command_section_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_section_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_section_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_section_has__view_x_27 = _init_l_lean_parser_command_section_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_section_has__view_x_27); l_lean_parser_command_section_has__view = _init_l_lean_parser_command_section_has__view(); @@ -15012,6 +16438,8 @@ lean::mark_persistent(l_lean_parser_command_omit_parser___closed__1); lean::mark_persistent(l_lean_parser_command_end); l_lean_parser_command_end_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_command_end_has__view_x_27___lambda__1___closed__1(); lean::mark_persistent(l_lean_parser_command_end_has__view_x_27___lambda__1___closed__1); + l_lean_parser_command_end_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_end_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_end_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_end_has__view_x_27 = _init_l_lean_parser_command_end_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_end_has__view_x_27); l_lean_parser_command_end_has__view = _init_l_lean_parser_command_end_has__view(); @@ -15070,6 +16498,8 @@ lean::mark_persistent(l_lean_parser_command_attribute_parser_lean_parser_has__vi lean::mark_persistent(l_lean_parser_command_attribute_parser___closed__1); l_lean_parser_command_init__quot = _init_l_lean_parser_command_init__quot(); lean::mark_persistent(l_lean_parser_command_init__quot); + l_lean_parser_command_init__quot_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_command_init__quot_has__view_x_27___lambda__1___closed__1(); +lean::mark_persistent(l_lean_parser_command_init__quot_has__view_x_27___lambda__1___closed__1); l_lean_parser_command_init__quot_has__view_x_27 = _init_l_lean_parser_command_init__quot_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_init__quot_has__view_x_27); l_lean_parser_command_init__quot_has__view = _init_l_lean_parser_command_init__quot_has__view(); diff --git a/src/boot/init/lean/parser/declaration.cpp b/src/boot/init/lean/parser/declaration.cpp index 2bf4535482..3ff34b8f4f 100644 --- a/src/boot/init/lean/parser/declaration.cpp +++ b/src/boot/init/lean/parser/declaration.cpp @@ -42,7 +42,7 @@ obj* l_lean_parser_monad__parsec_error___at_lean_parser_command_doc__comment_par extern uint8 l_true_decidable; extern obj* l_lean_parser_command_notation__like_has__view; obj* l_lean_parser_command_structure__kw_has__view_x_27___lambda__2(obj*); -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +extern obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_term_bracketed__binders_parser(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_def__like_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_structure__field__block_parser_lean_parser_has__tokens; @@ -59,6 +59,7 @@ obj* l_lean_parser_command_opt__decl__sig_has__view_x_27___lambda__1(obj*); extern obj* l_lean_parser_combinators_many___rarg___closed__1; obj* l_lean_parser_command_inductive_has__view; obj* l_lean_parser_command_struct__explicit__binder__content_has__view; +obj* l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_structure_parser(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_many1__aux_x_27___main___at_lean_parser_command_doc__comment_parser___spec__3___boxed(obj*, obj*, obj*, obj*, obj*); @@ -70,6 +71,7 @@ obj* nat_add(obj*, obj*); } obj* l_lean_parser_monad__parsec_many_x_27___at_lean_parser_command_doc__comment_parser___spec__2(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_decl__sig_has__view_x_27; +obj* l_lean_parser_command_doc__comment_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_structure__field__block_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_equation_parser___closed__1; obj* l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__1___closed__1; @@ -80,6 +82,8 @@ obj* l_lean_parser_command_doc__comment_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_simple__decl__val_has__view_x_27; extern obj* l_mjoin___rarg___closed__1; obj* l_lean_parser_command_declaration_has__view_x_27; +obj* l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2___closed__1; +obj* l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_strict__implicit__binder; obj* l_lean_parser_command_decl__modifiers; obj* l_lean_parser_command_def__like_kind_has__view; @@ -103,6 +107,7 @@ obj* l_list_map___main___at_lean_parser_command_extends_has__view_x_27___spec__2 obj* l_lean_parser_command_decl__val_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_struct__implicit__binder_has__view_x_27; obj* l_lean_parser_list_cons_tokens___rarg(obj*, obj*); +obj* l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_with__trailing___at_lean_parser_token___spec__3(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_struct__explicit__binder; obj* l_lean_parser_command_structure__ctor; @@ -133,6 +138,7 @@ obj* l_lean_parser_command_def__like_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_struct__binder__content_parser(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_simple__decl__val; obj* l_lean_parser_command_structure_has__view_x_27___lambda__1(obj*); +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__6; obj* l_reader__t_bind___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__11___boxed(obj*, obj*); obj* l___private_init_lean_parser_combinators_1__many1__aux___main___at_lean_parser_command_attr__instance_parser_lean_parser_has__tokens___spec__4(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_structure__kw_has__view_x_27___lambda__1(obj*); @@ -185,18 +191,21 @@ obj* l_lean_parser_command_struct__explicit__binder__content_has__view_x_27___la obj* l_lean_parser_monad__parsec_many1__aux_x_27___main___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__7___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_def__like_kind_has__view_x_27___lambda__1(obj*); obj* l___private_init_lean_parser_combinators_1__many1__aux___main___at_lean_parser_command_attr__instance_parser_lean_parser_has__tokens___spec__4___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__3; namespace lean { obj* string_length(obj*); } obj* l_lean_parser_monad__parsec_any___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__5(obj*, obj*, obj*, obj*); obj* l_lean_parser_command_struct__implicit__binder_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_old__univ__params_parser(obj*, obj*, obj*, obj*); +obj* l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_decl__attributes_parser_lean_parser_has__view; uint8 l_string_is__empty(obj*); extern obj* l_lean_parser_command_notation__like_parser_lean_parser_has__tokens; obj* l_lean_parser_command_decl__modifiers_parser_lean_parser_has__tokens; obj* l_lean_parser_command_intro__rule_has__view; obj* l_lean_parser_command_structure_has__view_x_27; +obj* l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_structure_has__view_x_27___lambda__2(obj*); namespace lean { uint32 string_iterator_curr(obj*); @@ -217,12 +226,14 @@ obj* l_function_comp___rarg(obj*, obj*, obj*); obj* l_lean_parser_command_attr__instance_has__view_x_27___lambda__1___closed__3; obj* l_lean_parser_monad__parsec_many1__aux_x_27___main___at_lean_parser_command_doc__comment_parser___spec__3(obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_combinators_3__sep__by_view__aux___main___at_lean_parser_command_decl__attributes_has__view_x_27___spec__1(obj*); +obj* l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_constant_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_parsec__t_lookahead___at_lean_parser_command_doc__comment_parser___spec__1___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_intro__rule_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_decl__sig_has__view_x_27___lambda__1___closed__2; extern obj* l___private_init_lean_parser_token_1__finish__comment__block__aux___main___closed__1; +obj* l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_doc__comment; extern obj* l_lean_parser_parsec_result_mk__eps___rarg___closed__1; obj* l_lean_parser_command_structure_has__view_x_27___lambda__1___closed__5; @@ -236,20 +247,18 @@ obj* l_lean_parser_command_instance_has__view_x_27___lambda__1(obj*); obj* l___private_init_lean_parser_parsec_1__str__aux___main(obj*, obj*, obj*); obj* l_list_join___main___rarg(obj*); obj* l_lean_parser_monad__parsec_many1__aux_x_27___main___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__7(obj*, obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_command_declaration_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_doc__comment_parser_lean_parser_has__tokens; -extern obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_struct__binder__content_parser___closed__1; obj* l_lean_parser_command_decl__attributes_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_combinators_sep__by1___at_lean_parser_command_decl__attributes_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_lean_parser_command__parser__m_lean_parser_monad__parsec___closed__1; obj* l_reader__t_lift___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__8(obj*); -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_declaration_has__view_x_27___lambda__1___closed__3; obj* l_lean_parser_command_decl__attributes_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_structure__kw; obj* l_lean_parser_command_decl__val_has__view_x_27___lambda__1___closed__4; -extern obj* l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_decl__val_has__view_x_27; obj* l_lean_parser_command_struct__explicit__binder_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_def__like_has__view_x_27; @@ -342,6 +351,7 @@ obj* l_lean_parser_command_opt__decl__sig; obj* l_lean_parser_command_doc__comment_parser_lean_parser_has__view___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_list_map___main___at_lean_parser_command_equation_has__view_x_27___spec__1(obj*); obj* l_lean_parser_command_old__univ__params_parser_lean_parser_has__tokens; +extern obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_decl__val_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_doc__comment_has__view_x_27; obj* l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2(obj*); @@ -379,6 +389,7 @@ obj* l_lean_parser_term_opt__type_parser(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_ident__univ__params; obj* l_lean_parser_command_structure_parser___closed__1; obj* l_lean_parser_command_structure__field__block_has__view_x_27___lambda__2(obj*); +extern obj* l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2; obj* l_list_map___main___at_lean_parser_command_univ__params_has__view_x_27___spec__2(obj*); obj* l_lean_parser_command_decl__val_parser_lean_parser_has__view; obj* l_lean_parser_command_struct__binder__content_has__view_x_27___lambda__2(obj*); @@ -413,6 +424,7 @@ obj* l_lean_parser_command_decl__val; extern obj* l_lean_parser_combinators_choice__aux___main___rarg___closed__1; obj* l_lean_parser_command_constant__keyword_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_decl__sig_has__view_x_27___lambda__1(obj*); +extern obj* l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_command_decl__attributes_parser_lean_parser_has__tokens; obj* l_lean_parser_parsec__t_lookahead___at_lean_parser_command_doc__comment_parser_lean_parser_has__view___spec__1(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_many_x_27___at_lean_parser_command_doc__comment_parser___spec__2___boxed(obj*, obj*, obj*, obj*); @@ -442,6 +454,7 @@ obj* l_lean_parser_command_old__univ__params_has__view_x_27; obj* l_lean_parser_command_inductive_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_visibility_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_combinators_many___at_lean_parser_command_attr__instance_parser_lean_parser_has__tokens___spec__2(obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__1; obj* l_string_trim(obj*); obj* l_lean_parser_command_struct__explicit__binder_has__view_x_27; obj* l_option_get___main___at_lean_parser_run___spec__2(obj*); @@ -450,6 +463,7 @@ obj* l_lean_parser_command_structure__field__block_parser___closed__1; obj* l_lean_parser_command_declaration_parser_lean_parser_has__tokens; obj* l_lean_parser_command_def__like_kind_has__view_x_27; obj* l_lean_parser_command_constant; +obj* l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2___closed__1; obj* l_list_map___main___at_lean_parser_command_attr__instance_has__view_x_27___spec__1(obj*); extern obj* l_lean_parser_ident__univ__spec_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_attr__instance_parser(obj*, obj*, obj*, obj*); @@ -486,6 +500,7 @@ obj* l_lean_parser_command_struct__implicit__binder_has__view_x_27___lambda__1(o obj* l_lean_parser_command_inst__implicit__binder_has__view; obj* l_lean_parser_command_strict__infer__modifier_has__view; obj* l_lean_parser_command_def__like_kind; +extern obj* l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_attr__instance_parser_lean_parser_has__tokens; obj* l_lean_parser_command_relaxed__infer__modifier; obj* l_lean_parser_command_declaration_parser(obj*, obj*, obj*, obj*); @@ -495,6 +510,7 @@ extern obj* l_lean_parser_term_binder__default_has__view; extern obj* l_lean_parser_term_type__spec_has__view; obj* l_lean_parser_command_attr__instance_parser___closed__1; obj* l_lean_parser_command_ident__univ__params_has__view_x_27___lambda__1___closed__2; +obj* l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_structure__ctor_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_univ__params_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_infer__modifier_parser_lean_parser_has__view___lambda__1(obj*, obj*, obj*, obj*, obj*); @@ -510,7 +526,6 @@ obj* l_lean_parser_command_infer__modifier_has__view_x_27___lambda__1___closed__ obj* l_list_map___main___at_lean_parser_command_struct__binder__content_has__view_x_27___spec__2(obj*); obj* l_lean_parser_command_instance_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_doc__comment_parser(obj*, obj*, obj*, obj*); -extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_def__like_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_decl__sig_parser___closed__1; obj* l_lean_parser_command_old__univ__params_has__view_x_27___lambda__1(obj*); @@ -532,21 +547,25 @@ obj* l_lean_parser_command_old__univ__params_has__view; obj* l_lean_parser_command_inductive_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_attr__instance_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_monad__parsec_error___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__4(obj*); -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_symbol__core___at_lean_parser_command_doc__comment_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_struct__implicit__binder; obj* l_lean_parser_command_example_has__view_x_27; obj* l_lean_parser_command_doc__comment_has__view; +extern obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; obj* l_lean_parser_command_attr__instance_has__view_x_27___lambda__1___closed__2; +obj* l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_substring_of__string(obj*); obj* l_lean_parser_command_struct__explicit__binder_has__view_x_27___lambda__1___closed__1; +obj* l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_struct__binder__content_has__view; obj* l_lean_parser_command_visibility_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__1___closed__1; +extern obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6; obj* l_lean_parser_command_extends_has__view_x_27___lambda__1___closed__1; extern obj* l_lean_parser_term_tuple_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_intro__rule_parser(obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__4; obj* l_lean_parser_command_decl__sig; obj* l_char_quote__core(uint32); obj* l_lean_parser_command_infer__modifier_has__view; @@ -555,7 +574,6 @@ obj* l_lean_parser_command_inductive; obj* l_lean_parser_command_strict__infer__modifier; obj* l_lean_parser_command_example_has__view; obj* l_lean_parser_term_type__spec_parser(obj*, obj*, obj*, obj*, obj*); -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* l_lean_parser_command_example_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_decl__modifiers_has__view; obj* l_lean_parser_term__parser__command__parser__coe(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { @@ -994,10 +1012,34 @@ goto lbl_29; } } } +obj* _init_l_lean_parser_command_doc__comment_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +lean::inc(x_3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_3); +lean::cnstr_set(x_5, 1, x_0); +lean::inc(x_3); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_5); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_3); +lean::cnstr_set(x_8, 1, x_7); +x_9 = l_lean_parser_command_doc__comment; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +return x_10; +} +} obj* l_lean_parser_command_doc__comment_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -1005,30 +1047,270 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_option_map___rarg(x_8, x_3); -x_14 = l_option_get__or__else___main___rarg(x_13, x_10); -lean::dec(x_13); -x_16 = l_option_map___rarg(x_8, x_5); -x_17 = l_option_get__or__else___main___rarg(x_16, x_10); -lean::dec(x_16); -x_19 = lean::box(0); +x_8 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; +x_9 = l_lean_parser_command_doc__comment_has__view_x_27___lambda__2___closed__1; +return x_9; +} +else +{ +obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_10 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_12 = x_5; +} else { + lean::inc(x_10); + lean::dec(x_5); + x_12 = lean::box(0); +} +x_13 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_13, 0, x_10); +if (lean::is_scalar(x_12)) { + x_14 = lean::alloc_cnstr(1, 1, 0); +} else { + x_14 = x_12; +} +lean::cnstr_set(x_14, 0, x_13); +x_15 = lean::box(3); +x_16 = l_option_get__or__else___main___rarg(x_14, x_15); +lean::dec(x_14); +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set(x_18, 1, x_8); +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_17); -lean::cnstr_set(x_20, 1, x_19); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_14); +lean::cnstr_set(x_21, 0, x_19); lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_11); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_command_doc__comment; -x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); -return x_24; +x_22 = l_lean_parser_command_doc__comment; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +x_24 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_26 = x_3; +} else { + lean::inc(x_24); + lean::dec(x_3); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_32 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_30); +lean::cnstr_set(x_33, 1, x_32); +x_34 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_33); +x_36 = l_lean_parser_command_doc__comment; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} +else +{ +obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_38 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_40 = x_5; +} else { + lean::inc(x_38); + lean::dec(x_5); + x_40 = lean::box(0); +} +x_41 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_41, 0, x_38); +if (lean::is_scalar(x_40)) { + x_42 = lean::alloc_cnstr(1, 1, 0); +} else { + x_42 = x_40; +} +lean::cnstr_set(x_42, 0, x_41); +x_43 = l_option_get__or__else___main___rarg(x_42, x_29); +lean::dec(x_42); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_8); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_30); +lean::cnstr_set(x_46, 1, x_45); +x_47 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_46); +x_49 = l_lean_parser_command_doc__comment; +x_50 = l_lean_parser_syntax_mk__node(x_49, x_48); +return x_50; +} +} +} +else +{ +obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_51 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_53 = x_1; +} else { + lean::inc(x_51); + lean::dec(x_1); + x_53 = lean::box(0); +} +x_54 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_54, 0, x_51); +if (lean::is_scalar(x_53)) { + x_55 = lean::alloc_cnstr(1, 1, 0); +} else { + x_55 = x_53; +} +lean::cnstr_set(x_55, 0, x_54); +x_56 = lean::box(3); +x_57 = l_option_get__or__else___main___rarg(x_55, x_56); +lean::dec(x_55); +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_59 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3; +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_57); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_lean_parser_command_doc__comment; +x_62 = l_lean_parser_syntax_mk__node(x_61, x_60); +return x_62; +} +else +{ +obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_63 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_65 = x_5; +} else { + lean::inc(x_63); + lean::dec(x_5); + x_65 = lean::box(0); +} +x_66 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_66, 0, x_63); +if (lean::is_scalar(x_65)) { + x_67 = lean::alloc_cnstr(1, 1, 0); +} else { + x_67 = x_65; +} +lean::cnstr_set(x_67, 0, x_66); +x_68 = l_option_get__or__else___main___rarg(x_67, x_56); +lean::dec(x_67); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_68); +lean::cnstr_set(x_70, 1, x_8); +x_71 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_70); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_57); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_command_doc__comment; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; +} +} +else +{ +obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_76 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_78 = x_3; +} else { + lean::inc(x_76); + lean::dec(x_3); + x_78 = lean::box(0); +} +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_76); +if (lean::is_scalar(x_78)) { + x_80 = lean::alloc_cnstr(1, 1, 0); +} else { + x_80 = x_78; +} +lean::cnstr_set(x_80, 0, x_79); +x_81 = l_option_get__or__else___main___rarg(x_80, x_56); +lean::dec(x_80); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; +x_83 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_81); +lean::cnstr_set(x_84, 1, x_83); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_57); +lean::cnstr_set(x_85, 1, x_84); +x_86 = l_lean_parser_command_doc__comment; +x_87 = l_lean_parser_syntax_mk__node(x_86, x_85); +return x_87; +} +else +{ +obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_88 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_90 = x_5; +} else { + lean::inc(x_88); + lean::dec(x_5); + x_90 = lean::box(0); +} +x_91 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_91, 0, x_88); +if (lean::is_scalar(x_90)) { + x_92 = lean::alloc_cnstr(1, 1, 0); +} else { + x_92 = x_90; +} +lean::cnstr_set(x_92, 0, x_91); +x_93 = l_option_get__or__else___main___rarg(x_92, x_56); +lean::dec(x_92); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_93); +lean::cnstr_set(x_95, 1, x_8); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_81); +lean::cnstr_set(x_96, 1, x_95); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_57); +lean::cnstr_set(x_97, 1, x_96); +x_98 = l_lean_parser_command_doc__comment; +x_99 = l_lean_parser_syntax_mk__node(x_98, x_97); +return x_99; +} +} +} } } obj* _init_l_lean_parser_command_doc__comment_has__view_x_27() { @@ -7441,7 +7723,7 @@ return x_20; } else { -obj* x_21; obj* x_24; obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +obj* x_21; obj* x_24; obj* x_25; obj* x_28; x_21 = lean::cnstr_get(x_9, 0); lean::inc(x_21); lean::dec(x_9); @@ -7450,26 +7732,60 @@ x_25 = lean::cnstr_get(x_24, 1); lean::inc(x_25); lean::dec(x_24); x_28 = lean::apply_1(x_25, x_7); -x_29 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_30 = l_option_map___rarg(x_29, x_21); -x_31 = lean::box(3); -x_32 = l_option_get__or__else___main___rarg(x_30, x_31); -lean::dec(x_30); -x_34 = lean::box(0); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_35 = lean::alloc_cnstr(1, 2, 0); + x_30 = lean::alloc_cnstr(1, 2, 0); } else { - x_35 = x_6; + x_30 = x_6; +} +lean::cnstr_set(x_30, 0, x_28); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_12); +return x_31; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; +x_32 = lean::cnstr_get(x_21, 0); +if (lean::is_exclusive(x_21)) { + x_34 = x_21; +} else { + lean::inc(x_32); + lean::dec(x_21); + x_34 = lean::box(0); +} +x_35 = lean::box(0); +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_32); +if (lean::is_scalar(x_34)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_34; } -lean::cnstr_set(x_35, 0, x_32); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_28); -lean::cnstr_set(x_36, 1, x_35); -x_37 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_12); -return x_37; +x_38 = lean::box(3); +x_39 = l_option_get__or__else___main___rarg(x_37, x_38); +lean::dec(x_37); +if (lean::is_scalar(x_6)) { + x_41 = lean::alloc_cnstr(1, 2, 0); +} else { + x_41 = x_6; +} +lean::cnstr_set(x_41, 0, x_39); +lean::cnstr_set(x_41, 1, x_35); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_28); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_12); +return x_43; +} } } } @@ -7950,7 +8266,7 @@ return x_78; obj* l_lean_parser_command_decl__attributes_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -7958,31 +8274,136 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_list_map___main___at_lean_parser_command_decl__attributes_has__view_x_27___spec__2(x_3); -x_14 = l_list_join___main___rarg(x_13); -x_15 = l_lean_parser_no__kind; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -x_17 = l_option_map___rarg(x_8, x_5); -x_18 = l_option_get__or__else___main___rarg(x_17, x_10); -lean::dec(x_17); -x_20 = lean::box(0); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_18); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_16); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_11); -lean::cnstr_set(x_23, 1, x_22); -x_24 = l_lean_parser_command_decl__attributes; -x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); -return x_25; +x_8 = l_list_map___main___at_lean_parser_command_decl__attributes_has__view_x_27___spec__2(x_3); +x_9 = l_list_join___main___rarg(x_8); +x_10 = l_lean_parser_no__kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +x_12 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +x_13 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_11); +lean::cnstr_set(x_14, 1, x_13); +x_15 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = l_lean_parser_command_decl__attributes; +x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); +return x_18; +} +else +{ +obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_19 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_21 = x_5; +} else { + lean::inc(x_19); + lean::dec(x_5); + x_21 = lean::box(0); +} +x_22 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_22, 0, x_19); +if (lean::is_scalar(x_21)) { + x_23 = lean::alloc_cnstr(1, 1, 0); +} else { + x_23 = x_21; +} +lean::cnstr_set(x_23, 0, x_22); +x_24 = lean::box(3); +x_25 = l_option_get__or__else___main___rarg(x_23, x_24); +lean::dec(x_23); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_25); +lean::cnstr_set(x_27, 1, x_12); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_11); +lean::cnstr_set(x_28, 1, x_27); +x_29 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_28); +x_31 = l_lean_parser_command_decl__attributes; +x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); +return x_32; +} +} +else +{ +obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_33 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_35 = x_1; +} else { + lean::inc(x_33); + lean::dec(x_1); + x_35 = lean::box(0); +} +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); +if (lean::is_scalar(x_35)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_35; +} +lean::cnstr_set(x_37, 0, x_36); +x_38 = lean::box(3); +x_39 = l_option_get__or__else___main___rarg(x_37, x_38); +lean::dec(x_37); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_41 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_11); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_39); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_lean_parser_command_decl__attributes; +x_45 = l_lean_parser_syntax_mk__node(x_44, x_43); +return x_45; +} +else +{ +obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_46 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_48 = x_5; +} else { + lean::inc(x_46); + lean::dec(x_5); + x_48 = lean::box(0); +} +x_49 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_49, 0, x_46); +if (lean::is_scalar(x_48)) { + x_50 = lean::alloc_cnstr(1, 1, 0); +} else { + x_50 = x_48; +} +lean::cnstr_set(x_50, 0, x_49); +x_51 = l_option_get__or__else___main___rarg(x_50, x_38); +lean::dec(x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_51); +lean::cnstr_set(x_53, 1, x_12); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_11); +lean::cnstr_set(x_54, 1, x_53); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_39); +lean::cnstr_set(x_55, 1, x_54); +x_56 = l_lean_parser_command_decl__attributes; +x_57 = l_lean_parser_syntax_mk__node(x_56, x_55); +return x_57; +} +} } } obj* _init_l_lean_parser_command_decl__attributes_has__view_x_27() { @@ -9389,6 +9810,52 @@ return x_83; } } } +obj* _init_l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_visibility; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_visibility; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_command_visibility_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -9396,49 +9863,97 @@ obj* x_1; x_1 = lean::box(0); if (lean::obj_tag(x_0) == 0) { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_command_visibility; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__1; +return x_5; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_command_visibility; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_visibility; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_command_visibility; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } } } @@ -10633,6 +11148,48 @@ return x_197; } } } +obj* _init_l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_no__kind; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +return x_7; +} +} +obj* _init_l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_no__kind; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +x_7 = l_lean_parser_syntax_mk__node(x_5, x_0); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_7); +lean::cnstr_set(x_8, 1, x_0); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_6); +lean::cnstr_set(x_9, 1, x_8); +return x_9; +} +} obj* l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -10706,180 +11263,231 @@ goto lbl_28; } lbl_28: { -obj* x_41; obj* x_43; obj* x_44; +obj* x_41; if (lean::obj_tag(x_5) == 0) { -if (lean::obj_tag(x_7) == 0) -{ -obj* x_46; -x_46 = l_lean_parser_combinators_many___rarg___closed__1; -x_41 = x_46; +obj* x_43; +x_43 = l_lean_parser_combinators_many___rarg___closed__1; +x_41 = x_43; goto lbl_42; } else { -obj* x_47; obj* x_50; -x_47 = lean::cnstr_get(x_7, 0); -lean::inc(x_47); -lean::dec(x_7); -x_50 = l_lean_parser_combinators_many___rarg___closed__1; -x_43 = x_50; -x_44 = x_47; -goto lbl_45; -} -} -else -{ -obj* x_51; obj* x_54; obj* x_55; obj* x_58; obj* x_59; obj* x_60; obj* x_61; -x_51 = lean::cnstr_get(x_5, 0); -lean::inc(x_51); +obj* x_44; obj* x_47; obj* x_48; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_44 = lean::cnstr_get(x_5, 0); +lean::inc(x_44); lean::dec(x_5); -x_54 = l_lean_parser_command_visibility_has__view; -x_55 = lean::cnstr_get(x_54, 1); -lean::inc(x_55); -lean::dec(x_54); -x_58 = lean::apply_1(x_55, x_51); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_12); -x_60 = l_lean_parser_no__kind; -x_61 = l_lean_parser_syntax_mk__node(x_60, x_59); -if (lean::obj_tag(x_7) == 0) -{ -x_41 = x_61; +x_47 = l_lean_parser_command_visibility_has__view; +x_48 = lean::cnstr_get(x_47, 1); +lean::inc(x_48); +lean::dec(x_47); +x_51 = lean::apply_1(x_48, x_44); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_51); +lean::cnstr_set(x_52, 1, x_12); +x_53 = l_lean_parser_no__kind; +x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); +x_41 = x_54; goto lbl_42; } -else -{ -obj* x_62; -x_62 = lean::cnstr_get(x_7, 0); -lean::inc(x_62); -lean::dec(x_7); -x_43 = x_61; -x_44 = x_62; -goto lbl_45; -} -} lbl_42: { +obj* x_55; obj* x_56; +if (lean::obj_tag(x_7) == 0) +{ if (lean::obj_tag(x_9) == 0) { -obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; -x_65 = l_lean_parser_term_binder__content_has__view_x_27___lambda__2___closed__2; -x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_41); -lean::cnstr_set(x_66, 1, x_65); -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_27); -lean::cnstr_set(x_67, 1, x_66); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_13); -lean::cnstr_set(x_68, 1, x_67); -x_69 = l_lean_parser_command_decl__modifiers; -x_70 = l_lean_parser_syntax_mk__node(x_69, x_68); -return x_70; +obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_58 = l_lean_parser_term_binder__content_has__view_x_27___lambda__2___closed__2; +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_41); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_27); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_13); +lean::cnstr_set(x_61, 1, x_60); +x_62 = l_lean_parser_command_decl__modifiers; +x_63 = l_lean_parser_syntax_mk__node(x_62, x_61); +return x_63; } else { -obj* x_71; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; -x_71 = lean::cnstr_get(x_9, 0); -lean::inc(x_71); +obj* x_64; obj* x_67; +x_64 = lean::cnstr_get(x_9, 0); +lean::inc(x_64); lean::dec(x_9); -x_74 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_75 = l_option_map___rarg(x_74, x_71); -x_76 = lean::box(3); -x_77 = l_option_get__or__else___main___rarg(x_75, x_76); -lean::dec(x_75); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_77); -lean::cnstr_set(x_79, 1, x_12); -x_80 = l_lean_parser_no__kind; -x_81 = l_lean_parser_syntax_mk__node(x_80, x_79); -x_82 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_82, 0, x_81); -lean::cnstr_set(x_82, 1, x_12); -x_83 = l_lean_parser_combinators_many___rarg___closed__1; -x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_83); -lean::cnstr_set(x_84, 1, x_82); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_41); -lean::cnstr_set(x_85, 1, x_84); -x_86 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_86, 0, x_27); -lean::cnstr_set(x_86, 1, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_13); -lean::cnstr_set(x_87, 1, x_86); -x_88 = l_lean_parser_command_decl__modifiers; -x_89 = l_lean_parser_syntax_mk__node(x_88, x_87); -return x_89; +x_67 = l_lean_parser_combinators_many___rarg___closed__1; +x_55 = x_67; +x_56 = x_64; +goto lbl_57; } } -lbl_45: +else { -obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_95; obj* x_96; obj* x_97; -x_90 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_91 = l_option_map___rarg(x_90, x_44); -x_92 = lean::box(3); -x_93 = l_option_get__or__else___main___rarg(x_91, x_92); -lean::dec(x_91); +obj* x_68; +x_68 = lean::cnstr_get(x_7, 0); +lean::inc(x_68); +lean::dec(x_7); +if (lean::obj_tag(x_68) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_71 = l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__2; +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_41); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_27); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_13); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_lean_parser_command_decl__modifiers; +x_76 = l_lean_parser_syntax_mk__node(x_75, x_74); +return x_76; +} +else +{ +obj* x_77; obj* x_80; +x_77 = lean::cnstr_get(x_9, 0); +lean::inc(x_77); +lean::dec(x_9); +x_80 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; +x_55 = x_80; +x_56 = x_77; +goto lbl_57; +} +} +else +{ +obj* x_81; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_89; obj* x_90; obj* x_91; +x_81 = lean::cnstr_get(x_68, 0); +if (lean::is_exclusive(x_68)) { + x_83 = x_68; +} else { + lean::inc(x_81); + lean::dec(x_68); + x_83 = lean::box(0); +} +x_84 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_84, 0, x_81); +if (lean::is_scalar(x_83)) { + x_85 = lean::alloc_cnstr(1, 1, 0); +} else { + x_85 = x_83; +} +lean::cnstr_set(x_85, 0, x_84); +x_86 = lean::box(3); +x_87 = l_option_get__or__else___main___rarg(x_85, x_86); +lean::dec(x_85); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_87); +lean::cnstr_set(x_89, 1, x_12); +x_90 = l_lean_parser_no__kind; +x_91 = l_lean_parser_syntax_mk__node(x_90, x_89); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; +x_92 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_91); +lean::cnstr_set(x_93, 1, x_92); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_41); +lean::cnstr_set(x_94, 1, x_93); x_95 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_95, 0, x_93); -lean::cnstr_set(x_95, 1, x_12); -x_96 = l_lean_parser_no__kind; -x_97 = l_lean_parser_syntax_mk__node(x_96, x_95); -if (lean::obj_tag(x_9) == 0) -{ -obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; -x_98 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; -x_99 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_99, 0, x_97); -lean::cnstr_set(x_99, 1, x_98); -x_100 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_100, 0, x_43); -lean::cnstr_set(x_100, 1, x_99); -x_101 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_101, 0, x_27); -lean::cnstr_set(x_101, 1, x_100); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_13); -lean::cnstr_set(x_102, 1, x_101); -x_103 = l_lean_parser_command_decl__modifiers; -x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); -return x_104; +lean::cnstr_set(x_95, 0, x_27); +lean::cnstr_set(x_95, 1, x_94); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_13); +lean::cnstr_set(x_96, 1, x_95); +x_97 = l_lean_parser_command_decl__modifiers; +x_98 = l_lean_parser_syntax_mk__node(x_97, x_96); +return x_98; } else { -obj* x_105; obj* x_108; obj* x_109; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; -x_105 = lean::cnstr_get(x_9, 0); -lean::inc(x_105); +obj* x_99; +x_99 = lean::cnstr_get(x_9, 0); +lean::inc(x_99); lean::dec(x_9); -x_108 = l_option_map___rarg(x_90, x_105); -x_109 = l_option_get__or__else___main___rarg(x_108, x_92); -lean::dec(x_108); -x_111 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_111, 0, x_109); -lean::cnstr_set(x_111, 1, x_12); -x_112 = l_lean_parser_syntax_mk__node(x_96, x_111); -x_113 = lean::alloc_cnstr(1, 2, 0); +x_55 = x_91; +x_56 = x_99; +goto lbl_57; +} +} +} +lbl_57: +{ +if (lean::obj_tag(x_56) == 0) +{ +obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; +x_102 = l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__1; +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_55); +lean::cnstr_set(x_103, 1, x_102); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_41); +lean::cnstr_set(x_104, 1, x_103); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_27); +lean::cnstr_set(x_105, 1, x_104); +x_106 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_106, 0, x_13); +lean::cnstr_set(x_106, 1, x_105); +x_107 = l_lean_parser_command_decl__modifiers; +x_108 = l_lean_parser_syntax_mk__node(x_107, x_106); +return x_108; +} +else +{ +obj* x_109; obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; 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_125; obj* x_126; +x_109 = lean::cnstr_get(x_56, 0); +if (lean::is_exclusive(x_56)) { + x_111 = x_56; +} else { + lean::inc(x_109); + lean::dec(x_56); + x_111 = lean::box(0); +} +x_112 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_112, 0, x_109); +if (lean::is_scalar(x_111)) { + x_113 = lean::alloc_cnstr(1, 1, 0); +} else { + x_113 = x_111; +} lean::cnstr_set(x_113, 0, x_112); -lean::cnstr_set(x_113, 1, x_12); -x_114 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_114, 0, x_97); -lean::cnstr_set(x_114, 1, x_113); -x_115 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_115, 0, x_43); -lean::cnstr_set(x_115, 1, x_114); -x_116 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_116, 0, x_27); -lean::cnstr_set(x_116, 1, x_115); +x_114 = lean::box(3); +x_115 = l_option_get__or__else___main___rarg(x_113, x_114); +lean::dec(x_113); x_117 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_117, 0, x_13); -lean::cnstr_set(x_117, 1, x_116); -x_118 = l_lean_parser_command_decl__modifiers; +lean::cnstr_set(x_117, 0, x_115); +lean::cnstr_set(x_117, 1, x_12); +x_118 = l_lean_parser_no__kind; x_119 = l_lean_parser_syntax_mk__node(x_118, x_117); -return x_119; +x_120 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_120, 0, x_119); +lean::cnstr_set(x_120, 1, x_12); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_55); +lean::cnstr_set(x_121, 1, x_120); +x_122 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_122, 0, x_41); +lean::cnstr_set(x_122, 1, x_121); +x_123 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_123, 0, x_27); +lean::cnstr_set(x_123, 1, x_122); +x_124 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_124, 0, x_13); +lean::cnstr_set(x_124, 1, x_123); +x_125 = l_lean_parser_command_decl__modifiers; +x_126 = l_lean_parser_syntax_mk__node(x_125, x_124); +return x_126; +} } } } @@ -13403,7 +14011,7 @@ return x_140; obj* l_lean_parser_command_equation_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -13413,33 +14021,143 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_list_map___main___at_lean_parser_command_equation_has__view_x_27___spec__2(x_3); -x_16 = l_lean_parser_no__kind; -x_17 = l_lean_parser_syntax_mk__node(x_16, x_15); -x_18 = l_option_map___rarg(x_10, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_12); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_7); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_19); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_17); -lean::cnstr_set(x_24, 1, x_23); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_13); -lean::cnstr_set(x_25, 1, x_24); -x_26 = l_lean_parser_command_equation; -x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); -return x_27; +x_10 = l_list_map___main___at_lean_parser_command_equation_has__view_x_27___spec__2(x_3); +x_11 = l_lean_parser_no__kind; +x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); +x_13 = lean::box(0); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_7); +lean::cnstr_set(x_14, 1, x_13); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_15 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_12); +lean::cnstr_set(x_17, 1, x_16); +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_15); +lean::cnstr_set(x_18, 1, x_17); +x_19 = l_lean_parser_command_equation; +x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); +return x_20; +} +else +{ +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_21 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_23 = x_5; +} else { + lean::inc(x_21); + lean::dec(x_5); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_27); +lean::cnstr_set(x_29, 1, x_14); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_12); +lean::cnstr_set(x_30, 1, x_29); +x_31 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_30); +x_33 = l_lean_parser_command_equation; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +return x_34; +} +} +else +{ +obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_35 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_37 = x_1; +} else { + lean::inc(x_35); + lean::dec(x_1); + x_37 = lean::box(0); +} +x_38 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_38, 0, x_35); +if (lean::is_scalar(x_37)) { + x_39 = lean::alloc_cnstr(1, 1, 0); +} else { + x_39 = x_37; +} +lean::cnstr_set(x_39, 0, x_38); +x_40 = lean::box(3); +x_41 = l_option_get__or__else___main___rarg(x_39, x_40); +lean::dec(x_39); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +x_43 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_14); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_12); +lean::cnstr_set(x_45, 1, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_41); +lean::cnstr_set(x_46, 1, x_45); +x_47 = l_lean_parser_command_equation; +x_48 = l_lean_parser_syntax_mk__node(x_47, x_46); +return x_48; +} +else +{ +obj* x_49; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_49 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_51 = x_5; +} else { + lean::inc(x_49); + lean::dec(x_5); + x_51 = lean::box(0); +} +x_52 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_52, 0, x_49); +if (lean::is_scalar(x_51)) { + x_53 = lean::alloc_cnstr(1, 1, 0); +} else { + x_53 = x_51; +} +lean::cnstr_set(x_53, 0, x_52); +x_54 = l_option_get__or__else___main___rarg(x_53, x_40); +lean::dec(x_53); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_54); +lean::cnstr_set(x_56, 1, x_14); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_12); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_41); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_command_equation; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +return x_60; +} +} } } obj* _init_l_lean_parser_command_equation_has__view_x_27() { @@ -13788,27 +14506,56 @@ return x_51; obj* l_lean_parser_command_simple__decl__val_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_command_simple__decl__val; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_command_simple__decl__val; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_command_simple__decl__val; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_command_simple__decl__val_has__view_x_27() { @@ -14237,6 +14984,29 @@ return x_95; obj* _init_l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__1() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_decl__val; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__2() { +_start: +{ obj* x_0; obj* x_1; x_0 = l_lean_parser_command_equation_has__view; x_1 = lean::cnstr_get(x_0, 1); @@ -14276,48 +15046,72 @@ return x_15; } case 1: { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_16; x_16 = lean::cnstr_get(x_0, 0); lean::inc(x_16); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_decl__val; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__1; +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_22 = x_16; +} else { + lean::inc(x_20); + lean::dec(x_16); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_1); +x_29 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_1); +x_32 = l_lean_parser_command_decl__val; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} } default: { -obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; -x_30 = lean::cnstr_get(x_0, 0); -lean::inc(x_30); +obj* x_34; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_34 = lean::cnstr_get(x_0, 0); +lean::inc(x_34); lean::dec(x_0); -x_33 = l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__1; -x_34 = l_list_map___main___rarg(x_33, x_30); -x_35 = l_lean_parser_no__kind; -x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_1); -x_38 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; -x_39 = l_lean_parser_syntax_mk__node(x_38, x_37); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_1); -x_41 = l_lean_parser_command_decl__val; -x_42 = l_lean_parser_syntax_mk__node(x_41, x_40); -return x_42; +x_37 = l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__2; +x_38 = l_list_map___main___rarg(x_37, x_34); +x_39 = l_lean_parser_no__kind; +x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_1); +x_42 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; +x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_43); +lean::cnstr_set(x_44, 1, x_1); +x_45 = l_lean_parser_command_decl__val; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; } } } @@ -14819,33 +15613,143 @@ goto lbl_3; } } } +obj* _init_l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +lean::inc(x_3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_3); +lean::cnstr_set(x_5, 1, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_3); +lean::cnstr_set(x_6, 1, x_5); +x_7 = l_lean_parser_command_relaxed__infer__modifier; +x_8 = l_lean_parser_syntax_mk__node(x_7, x_6); +return x_8; +} +} obj* l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_option_map___rarg(x_6, x_3); -x_12 = l_option_get__or__else___main___rarg(x_11, x_8); -lean::dec(x_11); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_12); -lean::cnstr_set(x_15, 1, x_14); +x_6 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +obj* x_7; +x_7 = l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2___closed__1; +return x_7; +} +else +{ +obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_8 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_10 = x_3; +} else { + lean::inc(x_8); + lean::dec(x_3); + x_10 = lean::box(0); +} +x_11 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_11, 0, x_8); +if (lean::is_scalar(x_10)) { + x_12 = lean::alloc_cnstr(1, 1, 0); +} else { + x_12 = x_10; +} +lean::cnstr_set(x_12, 0, x_11); +x_13 = lean::box(3); +x_14 = l_option_get__or__else___main___rarg(x_12, x_13); +lean::dec(x_12); x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_9); -lean::cnstr_set(x_16, 1, x_15); -x_17 = l_lean_parser_command_relaxed__infer__modifier; -x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); -return x_18; +lean::cnstr_set(x_16, 0, x_14); +lean::cnstr_set(x_16, 1, x_6); +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = l_lean_parser_command_relaxed__infer__modifier; +x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); +return x_20; +} +} +else +{ +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_21 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_23 = x_1; +} else { + lean::inc(x_21); + lean::dec(x_1); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_27); +lean::cnstr_set(x_30, 1, x_29); +x_31 = l_lean_parser_command_relaxed__infer__modifier; +x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); +return x_32; +} +else +{ +obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_33 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_35 = x_3; +} else { + lean::inc(x_33); + lean::dec(x_3); + x_35 = lean::box(0); +} +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); +if (lean::is_scalar(x_35)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_35; +} +lean::cnstr_set(x_37, 0, x_36); +x_38 = l_option_get__or__else___main___rarg(x_37, x_26); +lean::dec(x_37); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set(x_40, 1, x_6); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_27); +lean::cnstr_set(x_41, 1, x_40); +x_42 = l_lean_parser_command_relaxed__infer__modifier; +x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); +return x_43; +} +} } } obj* _init_l_lean_parser_command_relaxed__infer__modifier_has__view_x_27() { @@ -15171,33 +16075,143 @@ goto lbl_3; } } } +obj* _init_l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +lean::inc(x_3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_3); +lean::cnstr_set(x_5, 1, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_3); +lean::cnstr_set(x_6, 1, x_5); +x_7 = l_lean_parser_command_strict__infer__modifier; +x_8 = l_lean_parser_syntax_mk__node(x_7, x_6); +return x_8; +} +} obj* l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_option_map___rarg(x_6, x_3); -x_12 = l_option_get__or__else___main___rarg(x_11, x_8); -lean::dec(x_11); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_12); -lean::cnstr_set(x_15, 1, x_14); +x_6 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +obj* x_7; +x_7 = l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2___closed__1; +return x_7; +} +else +{ +obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_8 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_10 = x_3; +} else { + lean::inc(x_8); + lean::dec(x_3); + x_10 = lean::box(0); +} +x_11 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_11, 0, x_8); +if (lean::is_scalar(x_10)) { + x_12 = lean::alloc_cnstr(1, 1, 0); +} else { + x_12 = x_10; +} +lean::cnstr_set(x_12, 0, x_11); +x_13 = lean::box(3); +x_14 = l_option_get__or__else___main___rarg(x_12, x_13); +lean::dec(x_12); x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_9); -lean::cnstr_set(x_16, 1, x_15); -x_17 = l_lean_parser_command_strict__infer__modifier; -x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); -return x_18; +lean::cnstr_set(x_16, 0, x_14); +lean::cnstr_set(x_16, 1, x_6); +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = l_lean_parser_command_strict__infer__modifier; +x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); +return x_20; +} +} +else +{ +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_21 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_23 = x_1; +} else { + lean::inc(x_21); + lean::dec(x_1); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_27); +lean::cnstr_set(x_30, 1, x_29); +x_31 = l_lean_parser_command_strict__infer__modifier; +x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); +return x_32; +} +else +{ +obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_33 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_35 = x_3; +} else { + lean::inc(x_33); + lean::dec(x_3); + x_35 = lean::box(0); +} +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); +if (lean::is_scalar(x_35)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_35; +} +lean::cnstr_set(x_37, 0, x_36); +x_38 = l_option_get__or__else___main___rarg(x_37, x_26); +lean::dec(x_37); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set(x_40, 1, x_6); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_27); +lean::cnstr_set(x_41, 1, x_40); +x_42 = l_lean_parser_command_strict__infer__modifier; +x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); +return x_43; +} +} } } obj* _init_l_lean_parser_command_strict__infer__modifier_has__view_x_27() { @@ -15523,7 +16537,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -16499,7 +17513,7 @@ return x_123; obj* l_lean_parser_command_intro__rule_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_20; obj* x_21; obj* x_22; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -16509,67 +17523,136 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); +x_10 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_10, 0, x_3); +x_11 = l_lean_parser_command_opt__decl__sig_has__view; +x_12 = lean::cnstr_get(x_11, 1); +lean::inc(x_12); lean::dec(x_11); -x_15 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_15, 0, x_3); -x_16 = l_lean_parser_command_opt__decl__sig_has__view; -x_17 = lean::cnstr_get(x_16, 1); -lean::inc(x_17); -lean::dec(x_16); -x_20 = lean::apply_1(x_17, x_7); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_20); -lean::cnstr_set(x_22, 1, x_21); +x_15 = lean::apply_1(x_12, x_7); +x_16 = lean::box(0); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_15); +lean::cnstr_set(x_17, 1, x_16); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_5) == 0) { -obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; -x_23 = l_lean_parser_combinators_many___rarg___closed__1; -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_23); -lean::cnstr_set(x_24, 1, x_22); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_15); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_13); -lean::cnstr_set(x_26, 1, x_25); -x_27 = l_lean_parser_command_intro__rule; -x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); -return x_28; +obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_18 = l_lean_parser_combinators_many___rarg___closed__1; +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_18); +lean::cnstr_set(x_19, 1, x_17); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_10); +lean::cnstr_set(x_20, 1, x_19); +x_21 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = l_lean_parser_command_intro__rule; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; } else { -obj* x_29; obj* x_32; obj* x_33; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_29 = lean::cnstr_get(x_5, 0); -lean::inc(x_29); +obj* x_25; obj* x_28; obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_25 = lean::cnstr_get(x_5, 0); +lean::inc(x_25); lean::dec(x_5); -x_32 = l_lean_parser_command_infer__modifier_has__view; -x_33 = lean::cnstr_get(x_32, 1); -lean::inc(x_33); -lean::dec(x_32); -x_36 = lean::apply_1(x_33, x_29); +x_28 = l_lean_parser_command_infer__modifier_has__view; +x_29 = lean::cnstr_get(x_28, 1); +lean::inc(x_29); +lean::dec(x_28); +x_32 = lean::apply_1(x_29, x_25); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_16); +x_34 = l_lean_parser_no__kind; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_17); x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_21); -x_38 = l_lean_parser_no__kind; -x_39 = l_lean_parser_syntax_mk__node(x_38, x_37); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_39); -lean::cnstr_set(x_40, 1, x_22); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_15); -lean::cnstr_set(x_41, 1, x_40); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_13); -lean::cnstr_set(x_42, 1, x_41); -x_43 = l_lean_parser_command_intro__rule; -x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); -return x_44; +lean::cnstr_set(x_37, 0, x_10); +lean::cnstr_set(x_37, 1, x_36); +x_38 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_37); +x_40 = l_lean_parser_command_intro__rule; +x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); +return x_41; +} +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; +x_42 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_44 = x_1; +} else { + lean::inc(x_42); + lean::dec(x_1); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::box(3); +x_48 = l_option_get__or__else___main___rarg(x_46, x_47); +lean::dec(x_46); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_50 = l_lean_parser_combinators_many___rarg___closed__1; +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_50); +lean::cnstr_set(x_51, 1, x_17); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_10); +lean::cnstr_set(x_52, 1, x_51); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_48); +lean::cnstr_set(x_53, 1, x_52); +x_54 = l_lean_parser_command_intro__rule; +x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); +return x_55; +} +else +{ +obj* x_56; obj* x_59; obj* x_60; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; +x_56 = lean::cnstr_get(x_5, 0); +lean::inc(x_56); +lean::dec(x_5); +x_59 = l_lean_parser_command_infer__modifier_has__view; +x_60 = lean::cnstr_get(x_59, 1); +lean::inc(x_60); +lean::dec(x_59); +x_63 = lean::apply_1(x_60, x_56); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_63); +lean::cnstr_set(x_64, 1, x_16); +x_65 = l_lean_parser_no__kind; +x_66 = l_lean_parser_syntax_mk__node(x_65, x_64); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_66); +lean::cnstr_set(x_67, 1, x_17); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_10); +lean::cnstr_set(x_68, 1, x_67); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_48); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_command_intro__rule; +x_71 = l_lean_parser_syntax_mk__node(x_70, x_69); +return x_71; +} } } } @@ -18321,7 +19404,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -18846,7 +19929,7 @@ return x_84; obj* l_lean_parser_command_struct__explicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -18854,32 +19937,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_command_struct__explicit__binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_struct__explicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_command_struct__explicit__binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_command_struct__explicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_command_struct__explicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_command_struct__explicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_command_struct__explicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_command_struct__explicit__binder_has__view_x_27() { @@ -19396,7 +20584,7 @@ return x_84; obj* l_lean_parser_command_struct__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -19404,32 +20592,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_command_struct__binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_struct__implicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_command_struct__binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_command_struct__implicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_command_struct__implicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_command_struct__implicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_command_struct__implicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_command_struct__implicit__binder_has__view_x_27() { @@ -19933,7 +21226,7 @@ return x_84; obj* l_lean_parser_command_strict__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -19941,32 +21234,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_command_struct__binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_strict__implicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_command_struct__binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_command_strict__implicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_command_strict__implicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_command_strict__implicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_command_strict__implicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_command_strict__implicit__binder_has__view_x_27() { @@ -20470,7 +21868,7 @@ return x_84; obj* l_lean_parser_command_inst__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -20478,32 +21876,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_command_struct__binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_inst__implicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_command_struct__binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_command_inst__implicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_command_inst__implicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_command_inst__implicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_command_inst__implicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_command_inst__implicit__binder_has__view_x_27() { @@ -20906,7 +22409,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -20929,7 +22432,7 @@ x_37 = lean::apply_1(x_34, x_30); x_38 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_38, 0, x_37); lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); @@ -20952,7 +22455,7 @@ x_51 = lean::apply_1(x_48, x_44); x_52 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_52, 0, x_51); lean::cnstr_set(x_52, 1, x_1); -x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; +x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); x_55 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_55, 0, x_54); @@ -22023,7 +23526,7 @@ return x_80; obj* l_lean_parser_command_old__univ__params_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -22031,30 +23534,135 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_list_map___main___at_lean_parser_command_old__univ__params_has__view_x_27___spec__2(x_3); -x_14 = l_lean_parser_no__kind; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -x_16 = l_option_map___rarg(x_8, x_5); -x_17 = l_option_get__or__else___main___rarg(x_16, x_10); -lean::dec(x_16); -x_19 = lean::box(0); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_17); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_15); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_11); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_command_old__univ__params; -x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); -return x_24; +x_8 = l_list_map___main___at_lean_parser_command_old__univ__params_has__view_x_27___spec__2(x_3); +x_9 = l_lean_parser_no__kind; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +x_11 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; +x_12 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_12); +x_14 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_13); +x_16 = l_lean_parser_command_old__univ__params; +x_17 = l_lean_parser_syntax_mk__node(x_16, x_15); +return x_17; +} +else +{ +obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_18 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_20 = x_5; +} else { + lean::inc(x_18); + lean::dec(x_5); + x_20 = lean::box(0); +} +x_21 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_21, 0, x_18); +if (lean::is_scalar(x_20)) { + x_22 = lean::alloc_cnstr(1, 1, 0); +} else { + x_22 = x_20; +} +lean::cnstr_set(x_22, 0, x_21); +x_23 = lean::box(3); +x_24 = l_option_get__or__else___main___rarg(x_22, x_23); +lean::dec(x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_24); +lean::cnstr_set(x_26, 1, x_11); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_10); +lean::cnstr_set(x_27, 1, x_26); +x_28 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_27); +x_30 = l_lean_parser_command_old__univ__params; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_32 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_34 = x_1; +} else { + lean::inc(x_32); + lean::dec(x_1); + x_34 = lean::box(0); +} +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(1, 1, 0); +} else { + x_36 = x_34; +} +lean::cnstr_set(x_36, 0, x_35); +x_37 = lean::box(3); +x_38 = l_option_get__or__else___main___rarg(x_36, x_37); +lean::dec(x_36); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +x_40 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_10); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_38); +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_lean_parser_command_old__univ__params; +x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); +return x_44; +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_45 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_47 = x_5; +} else { + lean::inc(x_45); + lean::dec(x_5); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = l_option_get__or__else___main___rarg(x_49, x_37); +lean::dec(x_49); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_50); +lean::cnstr_set(x_52, 1, x_11); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_10); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_38); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_command_old__univ__params; +x_56 = l_lean_parser_syntax_mk__node(x_55, x_54); +return x_56; +} +} } } obj* _init_l_lean_parser_command_old__univ__params_has__view_x_27() { @@ -22778,7 +24386,7 @@ return x_80; obj* l_lean_parser_command_univ__params_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -22786,30 +24394,135 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_list_map___main___at_lean_parser_command_univ__params_has__view_x_27___spec__2(x_3); -x_14 = l_lean_parser_no__kind; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -x_16 = l_option_map___rarg(x_8, x_5); -x_17 = l_option_get__or__else___main___rarg(x_16, x_10); -lean::dec(x_16); -x_19 = lean::box(0); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_17); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_15); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_11); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_command_univ__params; -x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); -return x_24; +x_8 = l_list_map___main___at_lean_parser_command_univ__params_has__view_x_27___spec__2(x_3); +x_9 = l_lean_parser_no__kind; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +x_11 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; +x_12 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_12); +x_14 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_13); +x_16 = l_lean_parser_command_univ__params; +x_17 = l_lean_parser_syntax_mk__node(x_16, x_15); +return x_17; +} +else +{ +obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_18 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_20 = x_5; +} else { + lean::inc(x_18); + lean::dec(x_5); + x_20 = lean::box(0); +} +x_21 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_21, 0, x_18); +if (lean::is_scalar(x_20)) { + x_22 = lean::alloc_cnstr(1, 1, 0); +} else { + x_22 = x_20; +} +lean::cnstr_set(x_22, 0, x_21); +x_23 = lean::box(3); +x_24 = l_option_get__or__else___main___rarg(x_22, x_23); +lean::dec(x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_24); +lean::cnstr_set(x_26, 1, x_11); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_10); +lean::cnstr_set(x_27, 1, x_26); +x_28 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_27); +x_30 = l_lean_parser_command_univ__params; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_32 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_34 = x_1; +} else { + lean::inc(x_32); + lean::dec(x_1); + x_34 = lean::box(0); +} +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(1, 1, 0); +} else { + x_36 = x_34; +} +lean::cnstr_set(x_36, 0, x_35); +x_37 = lean::box(3); +x_38 = l_option_get__or__else___main___rarg(x_36, x_37); +lean::dec(x_36); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +x_40 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_10); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_38); +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_lean_parser_command_univ__params; +x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); +return x_44; +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_45 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_47 = x_5; +} else { + lean::inc(x_45); + lean::dec(x_5); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = l_option_get__or__else___main___rarg(x_49, x_37); +lean::dec(x_49); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_50); +lean::cnstr_set(x_52, 1, x_11); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_10); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_38); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_command_univ__params; +x_56 = l_lean_parser_syntax_mk__node(x_55, x_54); +return x_56; +} +} } } obj* _init_l_lean_parser_command_univ__params_has__view_x_27() { @@ -24182,6 +25895,52 @@ return x_83; } } } +obj* _init_l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_structure__kw; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_structure__kw; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_command_structure__kw_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -24189,49 +25948,97 @@ obj* x_1; x_1 = lean::box(0); if (lean::obj_tag(x_0) == 0) { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_command_structure__kw; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__1; +return x_5; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_command_structure__kw; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_structure__kw; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_command_structure__kw; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } } } @@ -24439,30 +26246,64 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; x_16 = lean::cnstr_get(x_9, 0); lean::inc(x_16); lean::dec(x_9); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::box(0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; obj* x_20; obj* x_21; +x_19 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_25 = lean::alloc_cnstr(1, 2, 0); + x_20 = lean::alloc_cnstr(1, 2, 0); } else { - x_25 = x_6; + x_20 = x_6; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_12); +return x_21; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_24 = x_16; +} else { + lean::inc(x_22); + lean::dec(x_16); + x_24 = lean::box(0); +} +x_25 = lean::box(0); +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_22); +if (lean::is_scalar(x_24)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_24; } -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_12); -return x_27; +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +if (lean::is_scalar(x_6)) { + x_31 = lean::alloc_cnstr(1, 2, 0); +} else { + x_31 = x_6; +} +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_25); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_7); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_12); +return x_33; +} } } } @@ -24823,31 +26664,60 @@ return x_63; obj* l_lean_parser_command_extends_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_list_map___main___at_lean_parser_command_extends_has__view_x_27___spec__2(x_3); -x_12 = l_list_join___main___rarg(x_11); -x_13 = l_lean_parser_no__kind; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -x_15 = lean::box(0); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_9); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_command_extends; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_6 = l_list_map___main___at_lean_parser_command_extends_has__view_x_27___spec__2(x_3); +x_7 = l_list_join___main___rarg(x_6); +x_8 = l_lean_parser_no__kind; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +x_10 = lean::box(0); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_10); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_12 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_11); +x_14 = l_lean_parser_command_extends; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +x_16 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_18 = x_1; +} else { + lean::inc(x_16); + lean::dec(x_1); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_11); +x_25 = l_lean_parser_command_extends; +x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); +return x_26; +} } } obj* _init_l_lean_parser_command_extends_has__view_x_27() { @@ -25417,7 +27287,7 @@ goto lbl_28; obj* l_lean_parser_command_structure__ctor_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -25427,54 +27297,122 @@ lean::inc(x_5); lean::dec(x_0); x_8 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_8, 0, x_1); -x_9 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_10 = l_option_map___rarg(x_9, x_5); -x_11 = lean::box(3); -x_12 = l_option_get__or__else___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_12); -lean::cnstr_set(x_15, 1, x_14); +x_9 = lean::box(0); if (lean::obj_tag(x_3) == 0) { -obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; -x_16 = l_lean_parser_combinators_many___rarg___closed__1; -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_16); -lean::cnstr_set(x_17, 1, x_15); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_8); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_structure__ctor; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +if (lean::obj_tag(x_5) == 0) +{ +obj* x_10; obj* x_11; obj* x_12; obj* x_13; +x_10 = l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2; +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_8); +lean::cnstr_set(x_11, 1, x_10); +x_12 = l_lean_parser_command_structure__ctor; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; } else { -obj* x_21; obj* x_24; obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_21 = lean::cnstr_get(x_3, 0); -lean::inc(x_21); +obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_14 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_16 = x_5; +} else { + lean::inc(x_14); + lean::dec(x_5); + x_16 = lean::box(0); +} +x_17 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_17, 0, x_14); +if (lean::is_scalar(x_16)) { + x_18 = lean::alloc_cnstr(1, 1, 0); +} else { + x_18 = x_16; +} +lean::cnstr_set(x_18, 0, x_17); +x_19 = lean::box(3); +x_20 = l_option_get__or__else___main___rarg(x_18, x_19); +lean::dec(x_18); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_20); +lean::cnstr_set(x_22, 1, x_9); +x_23 = l_lean_parser_combinators_many___rarg___closed__1; +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_22); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_lean_parser_command_structure__ctor; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} +} +else +{ +obj* x_28; obj* x_31; obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_28 = lean::cnstr_get(x_3, 0); +lean::inc(x_28); lean::dec(x_3); -x_24 = l_lean_parser_command_infer__modifier_has__view; -x_25 = lean::cnstr_get(x_24, 1); -lean::inc(x_25); -lean::dec(x_24); -x_28 = lean::apply_1(x_25, x_21); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_14); -x_30 = l_lean_parser_no__kind; -x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_31); -lean::cnstr_set(x_32, 1, x_15); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_8); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_lean_parser_command_structure__ctor; -x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); -return x_35; +x_31 = l_lean_parser_command_infer__modifier_has__view; +x_32 = lean::cnstr_get(x_31, 1); +lean::inc(x_32); +lean::dec(x_31); +x_35 = lean::apply_1(x_32, x_28); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_9); +x_37 = l_lean_parser_no__kind; +x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_39 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set(x_40, 1, x_39); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_8); +lean::cnstr_set(x_41, 1, x_40); +x_42 = l_lean_parser_command_structure__ctor; +x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); +return x_43; +} +else +{ +obj* x_44; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_44 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_46 = x_5; +} else { + lean::inc(x_44); + lean::dec(x_5); + x_46 = lean::box(0); +} +x_47 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_47, 0, x_44); +if (lean::is_scalar(x_46)) { + x_48 = lean::alloc_cnstr(1, 1, 0); +} else { + x_48 = x_46; +} +lean::cnstr_set(x_48, 0, x_47); +x_49 = lean::box(3); +x_50 = l_option_get__or__else___main___rarg(x_48, x_49); +lean::dec(x_48); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_50); +lean::cnstr_set(x_52, 1, x_9); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_38); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_8); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_command_structure__ctor; +x_56 = l_lean_parser_syntax_mk__node(x_55, x_54); +return x_56; +} } } } @@ -26747,7 +28685,7 @@ return x_1; obj* l_lean_parser_command_structure_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_18; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_46; obj* x_47; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_15; obj* x_18; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -26780,224 +28718,247 @@ x_29 = lean::cnstr_get(x_28, 1); lean::inc(x_29); lean::dec(x_28); x_32 = lean::apply_1(x_29, x_7); -x_33 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_34 = l_option_map___rarg(x_33, x_11); -x_35 = lean::box(3); -x_36 = l_option_get__or__else___main___rarg(x_34, x_35); -lean::dec(x_34); -x_38 = l_lean_parser_command_structure_has__view_x_27___lambda__2___closed__1; -x_39 = l_list_map___main___rarg(x_38, x_15); -x_40 = l_lean_parser_no__kind; -x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); -x_42 = lean::box(0); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_42); +x_33 = l_lean_parser_command_structure_has__view_x_27___lambda__2___closed__1; +x_34 = l_list_map___main___rarg(x_33, x_15); +x_35 = l_lean_parser_no__kind; +x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); +x_37 = lean::box(0); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_36); +lean::cnstr_set(x_38, 1, x_37); if (lean::obj_tag(x_3) == 0) { -if (lean::obj_tag(x_9) == 0) -{ -obj* x_49; -x_49 = l_lean_parser_combinators_many___rarg___closed__1; -x_44 = x_49; -goto lbl_45; +obj* x_41; +x_41 = l_lean_parser_combinators_many___rarg___closed__1; +x_39 = x_41; +goto lbl_40; } else { -obj* x_50; obj* x_53; -x_50 = lean::cnstr_get(x_9, 0); -lean::inc(x_50); -lean::dec(x_9); -x_53 = l_lean_parser_combinators_many___rarg___closed__1; -x_46 = x_53; -x_47 = x_50; -goto lbl_48; -} -} -else -{ -obj* x_54; obj* x_57; obj* x_58; obj* x_61; obj* x_62; obj* x_63; -x_54 = lean::cnstr_get(x_3, 0); -lean::inc(x_54); +obj* x_42; obj* x_45; obj* x_46; obj* x_49; obj* x_50; obj* x_51; +x_42 = lean::cnstr_get(x_3, 0); +lean::inc(x_42); lean::dec(x_3); -x_57 = l_lean_parser_command_old__univ__params_has__view; -x_58 = lean::cnstr_get(x_57, 1); -lean::inc(x_58); -lean::dec(x_57); -x_61 = lean::apply_1(x_58, x_54); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_61); -lean::cnstr_set(x_62, 1, x_42); -x_63 = l_lean_parser_syntax_mk__node(x_40, x_62); +x_45 = l_lean_parser_command_old__univ__params_has__view; +x_46 = lean::cnstr_get(x_45, 1); +lean::inc(x_46); +lean::dec(x_45); +x_49 = lean::apply_1(x_46, x_42); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_37); +x_51 = l_lean_parser_syntax_mk__node(x_35, x_50); +x_39 = x_51; +goto lbl_40; +} +lbl_40: +{ +obj* x_52; obj* x_54; obj* x_55; if (lean::obj_tag(x_9) == 0) { -x_44 = x_63; -goto lbl_45; +if (lean::obj_tag(x_11) == 0) +{ +obj* x_57; +x_57 = l_lean_parser_combinators_many___rarg___closed__1; +x_52 = x_57; +goto lbl_53; } else { -obj* x_64; -x_64 = lean::cnstr_get(x_9, 0); -lean::inc(x_64); +obj* x_58; obj* x_61; +x_58 = lean::cnstr_get(x_11, 0); +lean::inc(x_58); +lean::dec(x_11); +x_61 = l_lean_parser_combinators_many___rarg___closed__1; +x_54 = x_61; +x_55 = x_58; +goto lbl_56; +} +} +else +{ +obj* x_62; obj* x_65; obj* x_66; obj* x_69; obj* x_70; obj* x_71; +x_62 = lean::cnstr_get(x_9, 0); +lean::inc(x_62); lean::dec(x_9); -x_46 = x_63; -x_47 = x_64; -goto lbl_48; -} -} -lbl_45: -{ -if (lean::obj_tag(x_13) == 0) -{ -obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; -x_67 = l_lean_parser_combinators_many___rarg___closed__1; -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_67); -lean::cnstr_set(x_68, 1, x_43); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_36); -lean::cnstr_set(x_69, 1, x_68); +x_65 = l_lean_parser_command_extends_has__view; +x_66 = lean::cnstr_get(x_65, 1); +lean::inc(x_66); +lean::dec(x_65); +x_69 = lean::apply_1(x_66, x_62); x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_67); -lean::cnstr_set(x_70, 1, x_69); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_32); -lean::cnstr_set(x_71, 1, x_70); -x_72 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_72, 0, x_27); -lean::cnstr_set(x_72, 1, x_71); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_44); -lean::cnstr_set(x_73, 1, x_72); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_22); -lean::cnstr_set(x_74, 1, x_73); -x_75 = l_lean_parser_command_structure; -x_76 = l_lean_parser_syntax_mk__node(x_75, x_74); -return x_76; +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_37); +x_71 = l_lean_parser_syntax_mk__node(x_35, x_70); +if (lean::obj_tag(x_11) == 0) +{ +x_52 = x_71; +goto lbl_53; } else { -obj* x_77; obj* x_80; obj* x_81; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; -x_77 = lean::cnstr_get(x_13, 0); -lean::inc(x_77); -lean::dec(x_13); -x_80 = l_lean_parser_command_structure__ctor_has__view; -x_81 = lean::cnstr_get(x_80, 1); -lean::inc(x_81); -lean::dec(x_80); -x_84 = lean::apply_1(x_81, x_77); -x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_42); -x_86 = l_lean_parser_syntax_mk__node(x_40, x_85); -x_87 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_87, 0, x_86); -lean::cnstr_set(x_87, 1, x_43); -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_36); -lean::cnstr_set(x_88, 1, x_87); -x_89 = l_lean_parser_combinators_many___rarg___closed__1; -x_90 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_90, 0, x_89); -lean::cnstr_set(x_90, 1, x_88); -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_32); -lean::cnstr_set(x_91, 1, x_90); -x_92 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_92, 0, x_27); -lean::cnstr_set(x_92, 1, x_91); -x_93 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_93, 0, x_44); -lean::cnstr_set(x_93, 1, x_92); -x_94 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_94, 0, x_22); -lean::cnstr_set(x_94, 1, x_93); -x_95 = l_lean_parser_command_structure; -x_96 = l_lean_parser_syntax_mk__node(x_95, x_94); -return x_96; +obj* x_72; +x_72 = lean::cnstr_get(x_11, 0); +lean::inc(x_72); +lean::dec(x_11); +x_54 = x_71; +x_55 = x_72; +goto lbl_56; } } -lbl_48: +lbl_53: { -obj* x_97; obj* x_98; obj* x_101; obj* x_102; obj* x_103; -x_97 = l_lean_parser_command_extends_has__view; -x_98 = lean::cnstr_get(x_97, 1); -lean::inc(x_98); -lean::dec(x_97); -x_101 = lean::apply_1(x_98, x_47); -x_102 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_102, 0, x_101); -lean::cnstr_set(x_102, 1, x_42); -x_103 = l_lean_parser_syntax_mk__node(x_40, x_102); if (lean::obj_tag(x_13) == 0) { -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_112; obj* x_113; -x_104 = l_lean_parser_combinators_many___rarg___closed__1; -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_104); -lean::cnstr_set(x_105, 1, x_43); -x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_36); -lean::cnstr_set(x_106, 1, x_105); -x_107 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_107, 0, x_103); -lean::cnstr_set(x_107, 1, x_106); -x_108 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_108, 0, x_32); -lean::cnstr_set(x_108, 1, x_107); -x_109 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_109, 0, x_27); -lean::cnstr_set(x_109, 1, x_108); -x_110 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_110, 0, x_46); -lean::cnstr_set(x_110, 1, x_109); -x_111 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_111, 0, x_22); -lean::cnstr_set(x_111, 1, x_110); -x_112 = l_lean_parser_command_structure; -x_113 = l_lean_parser_syntax_mk__node(x_112, x_111); -return x_113; +obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_75 = l_lean_parser_combinators_many___rarg___closed__1; +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_75); +lean::cnstr_set(x_76, 1, x_38); +x_77 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_76); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_52); +lean::cnstr_set(x_79, 1, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_32); +lean::cnstr_set(x_80, 1, x_79); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_27); +lean::cnstr_set(x_81, 1, x_80); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_39); +lean::cnstr_set(x_82, 1, x_81); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_22); +lean::cnstr_set(x_83, 1, x_82); +x_84 = l_lean_parser_command_structure; +x_85 = l_lean_parser_syntax_mk__node(x_84, x_83); +return x_85; } else { -obj* x_114; obj* x_117; obj* x_118; obj* 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; obj* x_132; -x_114 = lean::cnstr_get(x_13, 0); -lean::inc(x_114); +obj* x_86; obj* x_89; obj* x_90; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; +x_86 = lean::cnstr_get(x_13, 0); +lean::inc(x_86); lean::dec(x_13); -x_117 = l_lean_parser_command_structure__ctor_has__view; -x_118 = lean::cnstr_get(x_117, 1); -lean::inc(x_118); -lean::dec(x_117); -x_121 = lean::apply_1(x_118, x_114); -x_122 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_122, 0, x_121); -lean::cnstr_set(x_122, 1, x_42); -x_123 = l_lean_parser_syntax_mk__node(x_40, x_122); -x_124 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_124, 0, x_123); -lean::cnstr_set(x_124, 1, x_43); -x_125 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_125, 0, x_36); -lean::cnstr_set(x_125, 1, x_124); -x_126 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_126, 0, x_103); -lean::cnstr_set(x_126, 1, x_125); -x_127 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_127, 0, x_32); -lean::cnstr_set(x_127, 1, x_126); -x_128 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_128, 0, x_27); -lean::cnstr_set(x_128, 1, x_127); +x_89 = l_lean_parser_command_structure__ctor_has__view; +x_90 = lean::cnstr_get(x_89, 1); +lean::inc(x_90); +lean::dec(x_89); +x_93 = lean::apply_1(x_90, x_86); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_37); +x_95 = l_lean_parser_syntax_mk__node(x_35, x_94); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_95); +lean::cnstr_set(x_96, 1, x_38); +x_97 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_97); +lean::cnstr_set(x_98, 1, x_96); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_52); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_32); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_27); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_39); +lean::cnstr_set(x_102, 1, x_101); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_22); +lean::cnstr_set(x_103, 1, x_102); +x_104 = l_lean_parser_command_structure; +x_105 = l_lean_parser_syntax_mk__node(x_104, x_103); +return x_105; +} +} +lbl_56: +{ +obj* x_106; obj* x_107; obj* x_108; obj* x_109; +x_106 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_106, 0, x_55); +x_107 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_107, 0, x_106); +x_108 = lean::box(3); +x_109 = l_option_get__or__else___main___rarg(x_107, x_108); +lean::dec(x_107); +if (lean::obj_tag(x_13) == 0) +{ +obj* x_111; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; obj* x_120; +x_111 = l_lean_parser_combinators_many___rarg___closed__1; +x_112 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_112, 0, x_111); +lean::cnstr_set(x_112, 1, x_38); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_109); +lean::cnstr_set(x_113, 1, x_112); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_54); +lean::cnstr_set(x_114, 1, x_113); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_32); +lean::cnstr_set(x_115, 1, x_114); +x_116 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_116, 0, x_27); +lean::cnstr_set(x_116, 1, x_115); +x_117 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_117, 0, x_39); +lean::cnstr_set(x_117, 1, x_116); +x_118 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_118, 0, x_22); +lean::cnstr_set(x_118, 1, x_117); +x_119 = l_lean_parser_command_structure; +x_120 = l_lean_parser_syntax_mk__node(x_119, x_118); +return x_120; +} +else +{ +obj* x_121; obj* x_124; obj* x_125; obj* 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_136; obj* x_137; obj* x_138; obj* x_139; +x_121 = lean::cnstr_get(x_13, 0); +lean::inc(x_121); +lean::dec(x_13); +x_124 = l_lean_parser_command_structure__ctor_has__view; +x_125 = lean::cnstr_get(x_124, 1); +lean::inc(x_125); +lean::dec(x_124); +x_128 = lean::apply_1(x_125, x_121); x_129 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_129, 0, x_46); -lean::cnstr_set(x_129, 1, x_128); -x_130 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_130, 0, x_22); -lean::cnstr_set(x_130, 1, x_129); -x_131 = l_lean_parser_command_structure; -x_132 = l_lean_parser_syntax_mk__node(x_131, x_130); -return x_132; +lean::cnstr_set(x_129, 0, x_128); +lean::cnstr_set(x_129, 1, x_37); +x_130 = l_lean_parser_syntax_mk__node(x_35, x_129); +x_131 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_131, 0, x_130); +lean::cnstr_set(x_131, 1, x_38); +x_132 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_132, 0, x_109); +lean::cnstr_set(x_132, 1, x_131); +x_133 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_133, 0, x_54); +lean::cnstr_set(x_133, 1, x_132); +x_134 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_134, 0, x_32); +lean::cnstr_set(x_134, 1, x_133); +x_135 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_135, 0, x_27); +lean::cnstr_set(x_135, 1, x_134); +x_136 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_136, 0, x_39); +lean::cnstr_set(x_136, 1, x_135); +x_137 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_137, 0, x_22); +lean::cnstr_set(x_137, 1, x_136); +x_138 = l_lean_parser_command_structure; +x_139 = l_lean_parser_syntax_mk__node(x_138, x_137); +return x_139; +} } } } @@ -27873,6 +29834,75 @@ return x_94; } } } +obj* _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_def__like_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_def__like_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__3() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(2u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_def__like_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -27881,72 +29911,144 @@ x_1 = lean::box(0); switch (lean::obj_tag(x_0)) { case 0: { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_command_def__like_kind; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__1; +return x_5; +} +else +{ +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_command_def__like_kind; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} } case 1: { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_def__like_kind; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_command_def__like_kind; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } default: { -obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_30 = lean::cnstr_get(x_0, 0); -lean::inc(x_30); +obj* x_38; +x_38 = lean::cnstr_get(x_0, 0); +lean::inc(x_38); lean::dec(x_0); -x_33 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_34 = l_option_map___rarg(x_33, x_30); -x_35 = lean::box(3); -x_36 = l_option_get__or__else___main___rarg(x_34, x_35); -lean::dec(x_34); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_36); -lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; -x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_1); -x_42 = l_lean_parser_command_def__like_kind; -x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); -return x_43; +if (lean::obj_tag(x_38) == 0) +{ +obj* x_41; +x_41 = l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__3; +return x_41; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_42 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_44 = x_38; +} else { + lean::inc(x_42); + lean::dec(x_38); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::box(3); +x_48 = l_option_get__or__else___main___rarg(x_46, x_47); +lean::dec(x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_48); +lean::cnstr_set(x_50, 1, x_1); +x_51 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; +x_52 = l_lean_parser_syntax_mk__node(x_51, x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_1); +x_54 = l_lean_parser_command_def__like_kind; +x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); +return x_55; +} } } } @@ -29224,7 +31326,7 @@ return x_117; obj* l_lean_parser_command_instance_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -29234,67 +31336,130 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_lean_parser_command_decl__sig_has__view; +x_10 = l_lean_parser_command_decl__sig_has__view; +x_11 = lean::cnstr_get(x_10, 1); +lean::inc(x_11); +lean::dec(x_10); +x_14 = lean::apply_1(x_11, x_5); +x_15 = l_lean_parser_command_decl__val_has__view; x_16 = lean::cnstr_get(x_15, 1); lean::inc(x_16); lean::dec(x_15); -x_19 = lean::apply_1(x_16, x_5); -x_20 = l_lean_parser_command_decl__val_has__view; -x_21 = lean::cnstr_get(x_20, 1); -lean::inc(x_21); -lean::dec(x_20); -x_24 = lean::apply_1(x_21, x_7); -x_25 = lean::box(0); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_24); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_19); -lean::cnstr_set(x_27, 1, x_26); +x_19 = lean::apply_1(x_16, x_7); +x_20 = lean::box(0); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_19); +lean::cnstr_set(x_21, 1, x_20); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_14); +lean::cnstr_set(x_22, 1, x_21); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_3) == 0) { -obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; -x_28 = l_lean_parser_combinators_many___rarg___closed__1; -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_28); -lean::cnstr_set(x_29, 1, x_27); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_13); -lean::cnstr_set(x_30, 1, x_29); -x_31 = l_lean_parser_command_instance; -x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); -return x_32; +obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_23 = l_lean_parser_combinators_many___rarg___closed__1; +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_23); +lean::cnstr_set(x_24, 1, x_22); +x_25 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_24); +x_27 = l_lean_parser_command_instance; +x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); +return x_28; } else { -obj* x_33; obj* x_36; obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_33 = lean::cnstr_get(x_3, 0); -lean::inc(x_33); +obj* x_29; obj* x_32; obj* x_33; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +x_29 = lean::cnstr_get(x_3, 0); +lean::inc(x_29); lean::dec(x_3); -x_36 = l_lean_parser_command_ident__univ__params_has__view; -x_37 = lean::cnstr_get(x_36, 1); -lean::inc(x_37); -lean::dec(x_36); -x_40 = lean::apply_1(x_37, x_33); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_25); -x_42 = l_lean_parser_no__kind; -x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_27); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_13); -lean::cnstr_set(x_45, 1, x_44); -x_46 = l_lean_parser_command_instance; -x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); -return x_47; +x_32 = l_lean_parser_command_ident__univ__params_has__view; +x_33 = lean::cnstr_get(x_32, 1); +lean::inc(x_33); +lean::dec(x_32); +x_36 = lean::apply_1(x_33, x_29); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_20); +x_38 = l_lean_parser_no__kind; +x_39 = l_lean_parser_syntax_mk__node(x_38, x_37); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_22); +x_41 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_40); +x_43 = l_lean_parser_command_instance; +x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); +return x_44; +} +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_45 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_47 = x_1; +} else { + lean::inc(x_45); + lean::dec(x_1); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = lean::box(3); +x_51 = l_option_get__or__else___main___rarg(x_49, x_50); +lean::dec(x_49); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_53 = l_lean_parser_combinators_many___rarg___closed__1; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_22); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_51); +lean::cnstr_set(x_55, 1, x_54); +x_56 = l_lean_parser_command_instance; +x_57 = l_lean_parser_syntax_mk__node(x_56, x_55); +return x_57; +} +else +{ +obj* x_58; obj* x_61; obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; +x_58 = lean::cnstr_get(x_3, 0); +lean::inc(x_58); +lean::dec(x_3); +x_61 = l_lean_parser_command_ident__univ__params_has__view; +x_62 = lean::cnstr_get(x_61, 1); +lean::inc(x_62); +lean::dec(x_61); +x_65 = lean::apply_1(x_62, x_58); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_65); +lean::cnstr_set(x_66, 1, x_20); +x_67 = l_lean_parser_no__kind; +x_68 = l_lean_parser_syntax_mk__node(x_67, x_66); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_68); +lean::cnstr_set(x_69, 1, x_22); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_51); +lean::cnstr_set(x_70, 1, x_69); +x_71 = l_lean_parser_command_instance; +x_72 = l_lean_parser_syntax_mk__node(x_71, x_70); +return x_72; +} } } } @@ -29687,7 +31852,7 @@ return x_74; obj* l_lean_parser_command_example_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -29695,34 +31860,63 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_command_decl__sig_has__view; +x_8 = l_lean_parser_command_decl__sig_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = l_lean_parser_command_decl__val_has__view; x_14 = lean::cnstr_get(x_13, 1); lean::inc(x_14); lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_lean_parser_command_decl__val_has__view; -x_19 = lean::cnstr_get(x_18, 1); -lean::inc(x_19); -lean::dec(x_18); -x_22 = lean::apply_1(x_19, x_5); -x_23 = lean::box(0); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_23); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_17); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_11); -lean::cnstr_set(x_26, 1, x_25); -x_27 = l_lean_parser_command_example; -x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); -return x_28; +x_17 = lean::apply_1(x_14, x_5); +x_18 = lean::box(0); +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_17); +lean::cnstr_set(x_19, 1, x_18); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_12); +lean::cnstr_set(x_20, 1, x_19); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_21 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = l_lean_parser_command_example; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; +x_25 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_27 = x_1; +} else { + lean::inc(x_25); + lean::dec(x_1); + x_27 = lean::box(0); +} +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +if (lean::is_scalar(x_27)) { + x_29 = lean::alloc_cnstr(1, 1, 0); +} else { + x_29 = x_27; +} +lean::cnstr_set(x_29, 0, x_28); +x_30 = lean::box(3); +x_31 = l_option_get__or__else___main___rarg(x_29, x_30); +lean::dec(x_29); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_20); +x_34 = l_lean_parser_command_example; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +return x_35; +} } } obj* _init_l_lean_parser_command_example_has__view_x_27() { @@ -30098,6 +32292,52 @@ return x_83; } } } +obj* _init_l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_constant__keyword; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_constant__keyword; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -30105,49 +32345,97 @@ obj* x_1; x_1 = lean::box(0); if (lean::obj_tag(x_0) == 0) { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_command_constant__keyword; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__1; +return x_5; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_command_constant__keyword; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_constant__keyword; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_command_constant__keyword; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } } } @@ -31745,7 +34033,7 @@ return x_1; obj* l_lean_parser_command_inductive_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -31761,194 +34049,252 @@ lean::inc(x_11); x_13 = lean::cnstr_get(x_0, 6); lean::inc(x_13); lean::dec(x_0); -x_16 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_17 = l_option_map___rarg(x_16, x_3); -x_18 = lean::box(3); -x_19 = l_option_get__or__else___main___rarg(x_17, x_18); +x_16 = lean::box(0); +x_17 = l_lean_parser_command_ident__univ__params_has__view; +x_18 = lean::cnstr_get(x_17, 1); +lean::inc(x_18); lean::dec(x_17); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_command_ident__univ__params_has__view; -x_24 = lean::cnstr_get(x_23, 1); -lean::inc(x_24); -lean::dec(x_23); -x_27 = lean::apply_1(x_24, x_7); -x_28 = l_lean_parser_command_opt__decl__sig_has__view; -x_29 = lean::cnstr_get(x_28, 1); -lean::inc(x_29); -lean::dec(x_28); -x_32 = lean::apply_1(x_29, x_9); -x_33 = l_lean_parser_command_inductive_has__view_x_27___lambda__2___closed__1; -x_34 = l_list_map___main___rarg(x_33, x_13); -x_35 = l_lean_parser_no__kind; -x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_21); +x_21 = lean::apply_1(x_18, x_7); +x_22 = l_lean_parser_command_opt__decl__sig_has__view; +x_23 = lean::cnstr_get(x_22, 1); +lean::inc(x_23); +lean::dec(x_22); +x_26 = lean::apply_1(x_23, x_9); +x_27 = l_lean_parser_command_inductive_has__view_x_27___lambda__2___closed__1; +x_28 = l_list_map___main___rarg(x_27, x_13); +x_29 = l_lean_parser_no__kind; +x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_16); if (lean::obj_tag(x_1) == 0) { -obj* x_40; -x_40 = l_lean_parser_combinators_many___rarg___closed__1; -x_38 = x_40; -goto lbl_39; +obj* x_34; +x_34 = l_lean_parser_combinators_many___rarg___closed__1; +x_32 = x_34; +goto lbl_33; } else { -obj* x_41; obj* x_44; obj* x_45; obj* x_47; obj* x_48; -x_41 = lean::cnstr_get(x_1, 0); -lean::inc(x_41); +obj* x_35; +x_35 = lean::cnstr_get(x_1, 0); +lean::inc(x_35); lean::dec(x_1); -x_44 = l_option_map___rarg(x_16, x_41); -x_45 = l_option_get__or__else___main___rarg(x_44, x_18); -lean::dec(x_44); +if (lean::obj_tag(x_35) == 0) +{ +obj* x_38; +x_38 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; +x_32 = x_38; +goto lbl_33; +} +else +{ +obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; +x_39 = lean::cnstr_get(x_35, 0); +if (lean::is_exclusive(x_35)) { + x_41 = x_35; +} else { + lean::inc(x_39); + lean::dec(x_35); + x_41 = lean::box(0); +} +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +if (lean::is_scalar(x_41)) { + x_43 = lean::alloc_cnstr(1, 1, 0); +} else { + x_43 = x_41; +} +lean::cnstr_set(x_43, 0, x_42); +x_44 = lean::box(3); +x_45 = l_option_get__or__else___main___rarg(x_43, x_44); +lean::dec(x_43); x_47 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_47, 0, x_45); -lean::cnstr_set(x_47, 1, x_21); -x_48 = l_lean_parser_syntax_mk__node(x_35, x_47); -x_38 = x_48; -goto lbl_39; +lean::cnstr_set(x_47, 1, x_16); +x_48 = l_lean_parser_syntax_mk__node(x_29, x_47); +x_32 = x_48; +goto lbl_33; } -lbl_39: +} +lbl_33: { -obj* x_49; obj* x_50; -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_38); -lean::cnstr_set(x_49, 1, x_22); -x_50 = l_lean_parser_syntax_mk__node(x_35, x_49); +obj* x_49; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_51; +x_51 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_49 = x_51; +goto lbl_50; +} +else +{ +obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_52 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_54 = x_3; +} else { + lean::inc(x_52); + lean::dec(x_3); + x_54 = lean::box(0); +} +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(1, 1, 0); +} else { + x_56 = x_54; +} +lean::cnstr_set(x_56, 0, x_55); +x_57 = lean::box(3); +x_58 = l_option_get__or__else___main___rarg(x_56, x_57); +lean::dec(x_56); +x_49 = x_58; +goto lbl_50; +} +lbl_50: +{ +obj* x_60; obj* x_61; obj* x_62; +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_49); +lean::cnstr_set(x_60, 1, x_16); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_32); +lean::cnstr_set(x_61, 1, x_60); +x_62 = l_lean_parser_syntax_mk__node(x_29, x_61); if (lean::obj_tag(x_5) == 0) { if (lean::obj_tag(x_11) == 0) { -obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; -x_51 = l_lean_parser_combinators_many___rarg___closed__1; -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_51); -lean::cnstr_set(x_52, 1, x_37); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_32); -lean::cnstr_set(x_53, 1, x_52); -x_54 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_54, 0, x_27); -lean::cnstr_set(x_54, 1, x_53); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_51); -lean::cnstr_set(x_55, 1, x_54); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_50); -lean::cnstr_set(x_56, 1, x_55); -x_57 = l_lean_parser_command_inductive; -x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); -return x_58; -} -else -{ -obj* x_59; obj* x_62; obj* x_63; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; -x_59 = lean::cnstr_get(x_11, 0); -lean::inc(x_59); -lean::dec(x_11); -x_62 = l_lean_parser_command_notation__like_has__view; -x_63 = lean::cnstr_get(x_62, 1); -lean::inc(x_63); -lean::dec(x_62); -x_66 = lean::apply_1(x_63, x_59); +obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +x_63 = l_lean_parser_combinators_many___rarg___closed__1; +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_63); +lean::cnstr_set(x_64, 1, x_31); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_26); +lean::cnstr_set(x_65, 1, x_64); +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_21); +lean::cnstr_set(x_66, 1, x_65); x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_66); -lean::cnstr_set(x_67, 1, x_21); -x_68 = l_lean_parser_syntax_mk__node(x_35, x_67); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_68); -lean::cnstr_set(x_69, 1, x_37); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_32); -lean::cnstr_set(x_70, 1, x_69); -x_71 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_71, 0, x_27); -lean::cnstr_set(x_71, 1, x_70); -x_72 = l_lean_parser_combinators_many___rarg___closed__1; -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_71); -x_74 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_74, 0, x_50); -lean::cnstr_set(x_74, 1, x_73); -x_75 = l_lean_parser_command_inductive; -x_76 = l_lean_parser_syntax_mk__node(x_75, x_74); -return x_76; -} +lean::cnstr_set(x_67, 0, x_63); +lean::cnstr_set(x_67, 1, x_66); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_62); +lean::cnstr_set(x_68, 1, x_67); +x_69 = l_lean_parser_command_inductive; +x_70 = l_lean_parser_syntax_mk__node(x_69, x_68); +return x_70; } else { -obj* x_77; obj* x_80; obj* x_81; obj* x_84; obj* x_85; obj* x_86; -x_77 = lean::cnstr_get(x_5, 0); -lean::inc(x_77); -lean::dec(x_5); -x_80 = l_lean_parser_command_old__univ__params_has__view; -x_81 = lean::cnstr_get(x_80, 1); -lean::inc(x_81); -lean::dec(x_80); -x_84 = lean::apply_1(x_81, x_77); +obj* x_71; obj* x_74; obj* x_75; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +x_71 = lean::cnstr_get(x_11, 0); +lean::inc(x_71); +lean::dec(x_11); +x_74 = l_lean_parser_command_notation__like_has__view; +x_75 = lean::cnstr_get(x_74, 1); +lean::inc(x_75); +lean::dec(x_74); +x_78 = lean::apply_1(x_75, x_71); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_78); +lean::cnstr_set(x_79, 1, x_16); +x_80 = l_lean_parser_syntax_mk__node(x_29, x_79); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_80); +lean::cnstr_set(x_81, 1, x_31); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_26); +lean::cnstr_set(x_82, 1, x_81); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_21); +lean::cnstr_set(x_83, 1, x_82); +x_84 = l_lean_parser_combinators_many___rarg___closed__1; x_85 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_85, 0, x_84); -lean::cnstr_set(x_85, 1, x_21); -x_86 = l_lean_parser_syntax_mk__node(x_35, x_85); -if (lean::obj_tag(x_11) == 0) -{ -obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; -x_87 = l_lean_parser_combinators_many___rarg___closed__1; -x_88 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_88, 0, x_87); -lean::cnstr_set(x_88, 1, x_37); -x_89 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_89, 0, x_32); -lean::cnstr_set(x_89, 1, x_88); -x_90 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_90, 0, x_27); -lean::cnstr_set(x_90, 1, x_89); -x_91 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_91, 0, x_86); -lean::cnstr_set(x_91, 1, x_90); -x_92 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_92, 0, x_50); -lean::cnstr_set(x_92, 1, x_91); -x_93 = l_lean_parser_command_inductive; -x_94 = l_lean_parser_syntax_mk__node(x_93, x_92); -return x_94; +lean::cnstr_set(x_85, 1, x_83); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_62); +lean::cnstr_set(x_86, 1, x_85); +x_87 = l_lean_parser_command_inductive; +x_88 = l_lean_parser_syntax_mk__node(x_87, x_86); +return x_88; +} } else { -obj* x_95; obj* x_98; obj* x_99; 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; obj* x_111; -x_95 = lean::cnstr_get(x_11, 0); -lean::inc(x_95); -lean::dec(x_11); -x_98 = l_lean_parser_command_notation__like_has__view; -x_99 = lean::cnstr_get(x_98, 1); -lean::inc(x_99); -lean::dec(x_98); -x_102 = lean::apply_1(x_99, x_95); +obj* x_89; obj* x_92; obj* x_93; obj* x_96; obj* x_97; obj* x_98; +x_89 = lean::cnstr_get(x_5, 0); +lean::inc(x_89); +lean::dec(x_5); +x_92 = l_lean_parser_command_old__univ__params_has__view; +x_93 = lean::cnstr_get(x_92, 1); +lean::inc(x_93); +lean::dec(x_92); +x_96 = lean::apply_1(x_93, x_89); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_96); +lean::cnstr_set(x_97, 1, x_16); +x_98 = l_lean_parser_syntax_mk__node(x_29, x_97); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; +x_99 = l_lean_parser_combinators_many___rarg___closed__1; +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_99); +lean::cnstr_set(x_100, 1, x_31); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_26); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_21); +lean::cnstr_set(x_102, 1, x_101); x_103 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_103, 0, x_102); -lean::cnstr_set(x_103, 1, x_21); -x_104 = l_lean_parser_syntax_mk__node(x_35, x_103); -x_105 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_105, 0, x_104); -lean::cnstr_set(x_105, 1, x_37); -x_106 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_106, 0, x_32); -lean::cnstr_set(x_106, 1, x_105); -x_107 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_107, 0, x_27); -lean::cnstr_set(x_107, 1, x_106); -x_108 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_108, 0, x_86); -lean::cnstr_set(x_108, 1, x_107); -x_109 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_109, 0, x_50); -lean::cnstr_set(x_109, 1, x_108); -x_110 = l_lean_parser_command_inductive; -x_111 = l_lean_parser_syntax_mk__node(x_110, x_109); -return x_111; +lean::cnstr_set(x_103, 0, x_98); +lean::cnstr_set(x_103, 1, x_102); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_62); +lean::cnstr_set(x_104, 1, x_103); +x_105 = l_lean_parser_command_inductive; +x_106 = l_lean_parser_syntax_mk__node(x_105, x_104); +return x_106; +} +else +{ +obj* x_107; obj* x_110; obj* x_111; obj* x_114; obj* 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; +x_107 = lean::cnstr_get(x_11, 0); +lean::inc(x_107); +lean::dec(x_11); +x_110 = l_lean_parser_command_notation__like_has__view; +x_111 = lean::cnstr_get(x_110, 1); +lean::inc(x_111); +lean::dec(x_110); +x_114 = lean::apply_1(x_111, x_107); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_114); +lean::cnstr_set(x_115, 1, x_16); +x_116 = l_lean_parser_syntax_mk__node(x_29, x_115); +x_117 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_117, 0, x_116); +lean::cnstr_set(x_117, 1, x_31); +x_118 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_118, 0, x_26); +lean::cnstr_set(x_118, 1, x_117); +x_119 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_119, 0, x_21); +lean::cnstr_set(x_119, 1, x_118); +x_120 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_120, 0, x_98); +lean::cnstr_set(x_120, 1, x_119); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_62); +lean::cnstr_set(x_121, 1, x_120); +x_122 = l_lean_parser_command_inductive; +x_123 = l_lean_parser_syntax_mk__node(x_122, x_121); +return x_123; +} } } } @@ -32434,7 +34780,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -32457,7 +34803,7 @@ x_37 = lean::apply_1(x_34, x_30); x_38 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_38, 0, x_37); lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); @@ -32480,7 +34826,7 @@ x_51 = lean::apply_1(x_48, x_44); x_52 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_52, 0, x_51); lean::cnstr_set(x_52, 1, x_1); -x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; +x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); x_55 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_55, 0, x_54); @@ -32503,7 +34849,7 @@ x_65 = lean::apply_1(x_62, x_58); x_66 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_66, 0, x_65); lean::cnstr_set(x_66, 1, x_1); -x_67 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; +x_67 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6; x_68 = l_lean_parser_syntax_mk__node(x_67, x_66); x_69 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_69, 0, x_68); @@ -32526,7 +34872,7 @@ x_79 = lean::apply_1(x_76, x_72); x_80 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_80, 0, x_79); lean::cnstr_set(x_80, 1, x_1); -x_81 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2; +x_81 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3; x_82 = l_lean_parser_syntax_mk__node(x_81, x_80); x_83 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_83, 0, x_82); @@ -33511,6 +35857,8 @@ void initialize_init_lean_parser_declaration() { lean::mark_persistent(l_lean_parser_command_doc__comment); l_lean_parser_command_doc__comment_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_command_doc__comment_has__view_x_27___lambda__1___closed__1(); lean::mark_persistent(l_lean_parser_command_doc__comment_has__view_x_27___lambda__1___closed__1); + l_lean_parser_command_doc__comment_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_doc__comment_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_doc__comment_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_doc__comment_has__view_x_27 = _init_l_lean_parser_command_doc__comment_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_doc__comment_has__view_x_27); l_lean_parser_command_doc__comment_has__view = _init_l_lean_parser_command_doc__comment_has__view(); @@ -33565,6 +35913,10 @@ lean::mark_persistent(l_lean_parser_command_visibility_has__view_x_27___lambda__ lean::mark_persistent(l_lean_parser_command_visibility_has__view_x_27___lambda__1___closed__3); l_lean_parser_command_visibility_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_command_visibility_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_command_visibility_has__view_x_27___lambda__1___closed__4); + l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_visibility_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_visibility_has__view_x_27 = _init_l_lean_parser_command_visibility_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_visibility_has__view_x_27); l_lean_parser_command_visibility_has__view = _init_l_lean_parser_command_visibility_has__view(); @@ -33579,6 +35931,10 @@ lean::mark_persistent(l_lean_parser_command_decl__modifiers_has__view_x_27___lam lean::mark_persistent(l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__1___closed__3); l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__1___closed__4); + l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_decl__modifiers_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_decl__modifiers_has__view_x_27 = _init_l_lean_parser_command_decl__modifiers_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_decl__modifiers_has__view_x_27); l_lean_parser_command_decl__modifiers_has__view = _init_l_lean_parser_command_decl__modifiers_has__view(); @@ -33657,6 +36013,8 @@ lean::mark_persistent(l_lean_parser_command_decl__val_has__view_x_27___lambda__1 lean::mark_persistent(l_lean_parser_command_decl__val_has__view_x_27___lambda__1___closed__5); l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__1(); lean::mark_persistent(l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_decl__val_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_decl__val_has__view_x_27 = _init_l_lean_parser_command_decl__val_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_decl__val_has__view_x_27); l_lean_parser_command_decl__val_has__view = _init_l_lean_parser_command_decl__val_has__view(); @@ -33673,6 +36031,8 @@ lean::mark_persistent(l_lean_parser_command_relaxed__infer__modifier); lean::mark_persistent(l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__1___closed__1); l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__1___closed__2); + l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_relaxed__infer__modifier_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_relaxed__infer__modifier_has__view_x_27 = _init_l_lean_parser_command_relaxed__infer__modifier_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_relaxed__infer__modifier_has__view_x_27); l_lean_parser_command_relaxed__infer__modifier_has__view = _init_l_lean_parser_command_relaxed__infer__modifier_has__view(); @@ -33683,6 +36043,8 @@ lean::mark_persistent(l_lean_parser_command_strict__infer__modifier); lean::mark_persistent(l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__1___closed__1); l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__1___closed__2); + l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_strict__infer__modifier_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_strict__infer__modifier_has__view_x_27 = _init_l_lean_parser_command_strict__infer__modifier_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_strict__infer__modifier_has__view_x_27); l_lean_parser_command_strict__infer__modifier_has__view = _init_l_lean_parser_command_strict__infer__modifier_has__view(); @@ -33853,6 +36215,10 @@ lean::mark_persistent(l_lean_parser_command_structure__kw_has__view_x_27___lambd lean::mark_persistent(l_lean_parser_command_structure__kw_has__view_x_27___lambda__1___closed__3); l_lean_parser_command_structure__kw_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_command_structure__kw_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_command_structure__kw_has__view_x_27___lambda__1___closed__4); + l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_structure__kw_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_structure__kw_has__view_x_27 = _init_l_lean_parser_command_structure__kw_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_structure__kw_has__view_x_27); l_lean_parser_command_structure__kw_has__view = _init_l_lean_parser_command_structure__kw_has__view(); @@ -33913,6 +36279,12 @@ lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27___lamb lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27___lambda__1___closed__4); l_lean_parser_command_def__like_kind_has__view_x_27___lambda__1___closed__5 = _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__1___closed__5(); lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27___lambda__1___closed__5); + l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__2); + l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__3 = _init_l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__3(); +lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27___lambda__2___closed__3); l_lean_parser_command_def__like_kind_has__view_x_27 = _init_l_lean_parser_command_def__like_kind_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_def__like_kind_has__view_x_27); l_lean_parser_command_def__like_kind_has__view = _init_l_lean_parser_command_def__like_kind_has__view(); @@ -33957,6 +36329,10 @@ lean::mark_persistent(l_lean_parser_command_constant__keyword_has__view_x_27___l lean::mark_persistent(l_lean_parser_command_constant__keyword_has__view_x_27___lambda__1___closed__3); l_lean_parser_command_constant__keyword_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_command_constant__keyword_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_command_constant__keyword_has__view_x_27___lambda__1___closed__4); + l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_constant__keyword_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_constant__keyword_has__view_x_27 = _init_l_lean_parser_command_constant__keyword_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_constant__keyword_has__view_x_27); l_lean_parser_command_constant__keyword_has__view = _init_l_lean_parser_command_constant__keyword_has__view(); diff --git a/src/boot/init/lean/parser/level.cpp b/src/boot/init/lean/parser/level.cpp index b2db8d283b..c08514323a 100644 --- a/src/boot/init/lean/parser/level.cpp +++ b/src/boot/init/lean/parser/level.cpp @@ -16,7 +16,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #endif obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_trailing_parser_lean_parser_has__tokens___spec__2___boxed(obj*); obj* l_lean_parser_trailing__level__parser__m_monad__except; -extern obj* l_lean_parser_match__token___closed__2; obj* l_lean_parser_parsec__t_bind__mk__res___rarg(obj*, obj*); obj* l_lean_parser_level__parser__m; obj* l_lean_parser_trie_match__prefix___rarg(obj*, obj*); @@ -24,8 +23,8 @@ obj* l_lean_parser_level_parser_lean_parser_has__view(obj*); obj* l_lean_parser_level__parser_run_lean_parser_has__view(obj*); 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; @@ -41,7 +40,6 @@ 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*); @@ -60,6 +58,7 @@ obj* l_list_reverse___rarg(obj*); extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_reader__t_alternative___rarg(obj*, obj*); obj* l_lean_parser_rec__t_recurse___at_lean_parser_level_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__6; obj* l_lean_parser_combinators_node___at_lean_parser_level_paren_parser___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_level_parser___closed__1; obj* l_lean_parser_level__parser__m_monad__reader; @@ -68,6 +67,7 @@ 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*); @@ -101,11 +101,12 @@ obj* l_lean_parser_level_trailing_has__view_x_27___lambda__1(obj*); extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; extern obj* l_lean_parser_curr__lbp___rarg___lambda__1___closed__1; obj* l___private_init_lean_parser_rec_1__run__aux___at_lean_parser_level__parser_run___spec__7(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_match__token___closed__1; obj* l_lean_parser_level_trailing_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__1; +extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; extern obj* l_lean_parser_number_has__view; obj* l_lean_parser_level__parser_run(obj*, obj*, obj*, obj*); -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_level__parser__m_monad; obj* l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_tokens___rarg(obj*); @@ -144,7 +145,6 @@ 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; @@ -152,6 +152,7 @@ obj* l_lean_parser_rec__t_lean_parser_monad__parsec___rarg(obj*, obj*, obj*); obj* l_lean_parser_level_app_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_syntax_mk__node(obj*, obj*); obj* l_lean_parser_level_add__lit_parser_lean_parser_has__view; +extern obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_level_parser_lean_parser_has__tokens(obj*); extern obj* l_lean_parser_rec__t_run__parsec___at_lean_parser_detail__ident_parser___spec__1___closed__1; obj* l_lean_parser_symbol__core___at_lean_parser_level_paren_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -179,6 +180,7 @@ uint8 string_dec_eq(obj*, obj*); } obj* l_lean_parser_level_paren_has__view; extern obj* l_lean_parser_combinators_choice__aux___main___rarg___closed__1; +obj* l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_level_leading_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_level__parser_run___spec__3(obj*); obj* l_lean_parser_level__parser_run_lean_parser_has__view___closed__2; @@ -200,12 +202,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*); @@ -224,7 +226,6 @@ obj* l_lean_parser_level_app_has__view_x_27; obj* l_lean_parser_monad__parsec_error___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__5___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_pratt__parser___at_lean_parser_level__parser_run___spec__1___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_number_parser___at_lean_parser_level_add__lit_parser_lean_parser_has__tokens___spec__2___rarg(obj*, obj*, obj*); -extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; extern obj* l_lean_parser_basic__parser__m_lean_parser_monad__parsec; obj* l_lean_parser_level_add__lit_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_level_lean_parser_has__view; @@ -237,12 +238,13 @@ obj* l_lean_parser_symbol__core___at_lean_parser_level_add__lit_parser_lean_pars obj* l_lean_parser_level_app_parser_lean_parser_has__view___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_level_paren_has__view_x_27___lambda__1(obj*); extern obj* l_lean_parser_number_has__view_x_27___lambda__1___closed__6; -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_rec__t_run__parsec___at_lean_parser_level__parser_run___spec__5(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_ident_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__3___rarg___closed__1; +extern obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; obj* l_lean_parser_level_leading_parser___closed__1; obj* l_lean_parser_substring_of__string(obj*); obj* l___private_init_lean_parser_pratt_1__trailing__loop___main___at_lean_parser_level__parser_run___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__4; namespace lean { uint8 nat_dec_lt(obj*, obj*); } @@ -251,7 +253,6 @@ obj* l_lean_parser_level_trailing_has__view_x_27; obj* l___private_init_lean_parser_rec_1__run__aux___main___rarg(obj*, obj*, obj*, obj*); obj* l_lean_parser_number_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__2___boxed(obj*); obj* l_lean_parser_ident_parser___at_lean_parser_level_leading_parser_lean_parser_has__tokens___spec__3___boxed(obj*); -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* _init_l_lean_parser_level__parser__m_monad() { _start: { @@ -319,9 +320,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), 2, 1); +x_2 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__refl___boxed), 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), 4, 2); +x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 4, 2); lean::closure_set(x_3, 0, x_1); lean::closure_set(x_3, 1, x_2); return x_3; @@ -428,7 +429,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), 4, 2); +x_3 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__trans___rarg___boxed), 4, 2); lean::closure_set(x_3, 0, x_1); lean::closure_set(x_3, 1, x_2); return x_3; @@ -620,7 +621,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), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); lean::inc(x_0); x_2 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2, 0, x_0); @@ -1097,7 +1098,7 @@ return x_79; obj* l_lean_parser_level_paren_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -1105,27 +1106,132 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_option_map___rarg(x_8, x_5); -x_14 = l_option_get__or__else___main___rarg(x_13, x_10); -lean::dec(x_13); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_14); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_3); -lean::cnstr_set(x_18, 1, x_17); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_11); -lean::cnstr_set(x_19, 1, x_18); -x_20 = l_lean_parser_level_paren; -x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); -return x_21; +x_8 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; +x_9 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_3); +lean::cnstr_set(x_10, 1, x_9); +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = l_lean_parser_level_paren; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_15 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_17 = x_5; +} else { + lean::inc(x_15); + lean::dec(x_5); + x_17 = lean::box(0); +} +x_18 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_18, 0, x_15); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(1, 1, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +x_20 = lean::box(3); +x_21 = l_option_get__or__else___main___rarg(x_19, x_20); +lean::dec(x_19); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_21); +lean::cnstr_set(x_23, 1, x_8); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_3); +lean::cnstr_set(x_24, 1, x_23); +x_25 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_24); +x_27 = l_lean_parser_level_paren; +x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); +return x_28; +} +} +else +{ +obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_29 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_31 = x_1; +} else { + lean::inc(x_29); + lean::dec(x_1); + x_31 = lean::box(0); +} +x_32 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_32, 0, x_29); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(1, 1, 0); +} else { + x_33 = x_31; +} +lean::cnstr_set(x_33, 0, x_32); +x_34 = lean::box(3); +x_35 = l_option_get__or__else___main___rarg(x_33, x_34); +lean::dec(x_33); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_37 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_3); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_35); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_lean_parser_level_paren; +x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); +return x_41; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_42 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_44 = x_5; +} else { + lean::inc(x_42); + lean::dec(x_5); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = l_option_get__or__else___main___rarg(x_46, x_34); +lean::dec(x_46); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_47); +lean::cnstr_set(x_49, 1, x_8); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_3); +lean::cnstr_set(x_50, 1, x_49); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_35); +lean::cnstr_set(x_51, 1, x_50); +x_52 = l_lean_parser_level_paren; +x_53 = l_lean_parser_syntax_mk__node(x_52, x_51); +return x_53; +} +} } } obj* _init_l_lean_parser_level_paren_has__view_x_27() { @@ -2474,6 +2580,29 @@ return x_108; obj* _init_l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__1() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(2u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_level_leading; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2() { +_start: +{ obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); x_1 = lean::mk_nat_obj(4u); @@ -2481,7 +2610,7 @@ x_2 = lean_name_mk_numeral(x_0, x_1); return x_2; } } -obj* _init_l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2() { +obj* _init_l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -2524,7 +2653,7 @@ lean::dec(x_0); x_14 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_14, 0, x_11); lean::cnstr_set(x_14, 1, x_1); -x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); x_17 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_17, 0, x_16); @@ -2535,92 +2664,116 @@ return x_19; } case 2: { -obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +obj* x_20; x_20 = lean::cnstr_get(x_0, 0); lean::inc(x_20); lean::dec(x_0); -x_23 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_24 = l_option_map___rarg(x_23, x_20); -x_25 = lean::box(3); -x_26 = l_option_get__or__else___main___rarg(x_24, x_25); -lean::dec(x_24); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_26); -lean::cnstr_set(x_28, 1, x_1); -x_29 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; -x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_1); -x_32 = l_lean_parser_level_leading; -x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); -return x_33; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__1; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_level_leading; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } case 3: { -obj* x_34; obj* x_37; obj* x_38; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; -x_34 = lean::cnstr_get(x_0, 0); -lean::inc(x_34); -lean::dec(x_0); -x_37 = l_lean_parser_level_paren_has__view; -x_38 = lean::cnstr_get(x_37, 1); +obj* x_38; obj* x_41; obj* x_42; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_38 = lean::cnstr_get(x_0, 0); lean::inc(x_38); -lean::dec(x_37); -x_41 = lean::apply_1(x_38, x_34); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_41); -lean::cnstr_set(x_42, 1, x_1); -x_43 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; -x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_1); -x_46 = l_lean_parser_level_leading; -x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); -return x_47; +lean::dec(x_0); +x_41 = l_lean_parser_level_paren_has__view; +x_42 = lean::cnstr_get(x_41, 1); +lean::inc(x_42); +lean::dec(x_41); +x_45 = lean::apply_1(x_42, x_38); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_1); +x_47 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; +x_48 = l_lean_parser_syntax_mk__node(x_47, x_46); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_1); +x_50 = l_lean_parser_level_leading; +x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); +return x_51; } case 4: { -obj* x_48; obj* x_51; obj* x_52; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; -x_48 = lean::cnstr_get(x_0, 0); -lean::inc(x_48); -lean::dec(x_0); -x_51 = l_lean_parser_number_has__view; -x_52 = lean::cnstr_get(x_51, 1); +obj* x_52; obj* x_55; obj* x_56; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; +x_52 = lean::cnstr_get(x_0, 0); lean::inc(x_52); -lean::dec(x_51); -x_55 = lean::apply_1(x_52, x_48); -x_56 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_56, 0, x_55); -lean::cnstr_set(x_56, 1, x_1); -x_57 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__1; -x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); -x_59 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_59, 0, x_58); -lean::cnstr_set(x_59, 1, x_1); -x_60 = l_lean_parser_level_leading; -x_61 = l_lean_parser_syntax_mk__node(x_60, x_59); -return x_61; +lean::dec(x_0); +x_55 = l_lean_parser_number_has__view; +x_56 = lean::cnstr_get(x_55, 1); +lean::inc(x_56); +lean::dec(x_55); +x_59 = lean::apply_1(x_56, x_52); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_59); +lean::cnstr_set(x_60, 1, x_1); +x_61 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2; +x_62 = l_lean_parser_syntax_mk__node(x_61, x_60); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_62); +lean::cnstr_set(x_63, 1, x_1); +x_64 = l_lean_parser_level_leading; +x_65 = l_lean_parser_syntax_mk__node(x_64, x_63); +return x_65; } default: { -obj* x_62; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; -x_62 = lean::cnstr_get(x_0, 0); -lean::inc(x_62); +obj* x_66; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_66 = lean::cnstr_get(x_0, 0); +lean::inc(x_66); lean::dec(x_0); -x_65 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_65, 0, x_62); -x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_1); -x_67 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2; -x_68 = l_lean_parser_syntax_mk__node(x_67, x_66); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_68); -lean::cnstr_set(x_69, 1, x_1); -x_70 = l_lean_parser_level_leading; -x_71 = l_lean_parser_syntax_mk__node(x_70, x_69); -return x_71; +x_69 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_69, 0, x_66); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_69); +lean::cnstr_set(x_70, 1, x_1); +x_71 = l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3; +x_72 = l_lean_parser_syntax_mk__node(x_71, x_70); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_1); +x_74 = l_lean_parser_level_leading; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; } } } @@ -4741,7 +4894,7 @@ return x_66; obj* l_lean_parser_level_add__lit_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; obj* x_14; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -4749,29 +4902,61 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_3); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_number_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_5); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_17); -lean::cnstr_set(x_19, 1, x_18); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_11); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_1); -lean::cnstr_set(x_21, 1, x_20); -x_22 = l_lean_parser_level_add__lit; -x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); -return x_23; +x_8 = l_lean_parser_number_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_5); +x_13 = lean::box(0); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_13); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_15 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_1); +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_lean_parser_level_add__lit; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_20 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_22 = x_3; +} else { + lean::inc(x_20); + lean::dec(x_3); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_14); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_1); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_level_add__lit; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} } } obj* _init_l_lean_parser_level_add__lit_has__view_x_27() { @@ -5664,7 +5849,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -6081,7 +6266,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), 2, 1); +x_0 = lean::alloc_closure(reinterpret_cast(l_has__monad__lift__t__refl___boxed), 2, 1); lean::closure_set(x_0, 0, lean::box(0)); return x_0; } @@ -6302,7 +6487,7 @@ if (lean::is_exclusive(x_64)) { x_70 = lean::cnstr_get(x_67, 1); lean::inc(x_70); lean::dec(x_67); -x_73 = l_lean_parser_match__token___closed__2; +x_73 = l_lean_parser_match__token___closed__1; if (lean::is_scalar(x_38)) { x_74 = lean::alloc_cnstr(0, 3, 0); } else { @@ -7106,6 +7291,8 @@ lean::mark_persistent(l_lean_parser_level_leading_has__view_x_27___lambda__1___c lean::mark_persistent(l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__1); l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2(); lean::mark_persistent(l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__2); + l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3 = _init_l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3(); +lean::mark_persistent(l_lean_parser_level_leading_has__view_x_27___lambda__2___closed__3); l_lean_parser_level_leading_has__view_x_27 = _init_l_lean_parser_level_leading_has__view_x_27(); lean::mark_persistent(l_lean_parser_level_leading_has__view_x_27); l_lean_parser_level_leading_has__view = _init_l_lean_parser_level_leading_has__view(); diff --git a/src/boot/init/lean/parser/module.cpp b/src/boot/init/lean/parser/module.cpp index 3c128c4063..8b6d23f81b 100644 --- a/src/boot/init/lean/parser/module.cpp +++ b/src/boot/init/lean/parser/module.cpp @@ -131,6 +131,7 @@ obj* string_append(obj*, obj*); obj* l_lean_parser_module_import_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_module_yield__command___lambda__5___boxed(obj*, obj*, obj*, obj*); obj* l_function_comp___rarg(obj*, obj*, obj*); +obj* l_lean_parser_module_prelude_has__view_x_27___lambda__1___closed__1; 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*); @@ -319,10 +320,10 @@ obj* l_lean_parser_monad__parsec_any___at___private_init_lean_parser_module_1__c obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__14___closed__2; obj* l_list_append___rarg(obj*, obj*); obj* l_lean_parser_module_parser___lambda__6___closed__1; -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*); +extern obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; 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*); @@ -341,7 +342,6 @@ obj* l_lean_parser_module_prelude_parser___closed__1; obj* l_lean_parser_module_yield__command___lambda__1(obj*, obj*, obj*); obj* l_lean_parser_module_import__path_parser_lean_parser_has__tokens; obj* l_lean_parser_module__parser__m_lift__parser__t(obj*); -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* l___private_init_lean_parser_module_1__commands__aux___main___lambda__12___closed__1; obj* l_lean_parser_module__parser__config__coe(obj* x_0) { _start: @@ -1794,22 +1794,61 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } +obj* _init_l_lean_parser_module_prelude_has__view_x_27___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_module_prelude; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_module_prelude_has__view_x_27___lambda__1(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_parser_module_prelude; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_parser_module_prelude_has__view_x_27___lambda__1___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_parser_module_prelude; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_parser_module_prelude_has__view_x_27() { @@ -2008,10 +2047,12 @@ return x_1; } else { -obj* x_2; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; +obj* x_2; obj* x_4; obj* x_6; obj* x_7; x_2 = lean::cnstr_get(x_0, 0); x_4 = lean::cnstr_get(x_0, 1); if (lean::is_exclusive(x_0)) { + lean::cnstr_set(x_0, 0, lean::box(0)); + lean::cnstr_set(x_0, 1, lean::box(0)); x_6 = x_0; } else { lean::inc(x_2); @@ -2019,20 +2060,51 @@ if (lean::is_exclusive(x_0)) { lean::dec(x_0); x_6 = lean::box(0); } -x_7 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_8 = l_option_map___rarg(x_7, x_2); -x_9 = lean::box(3); -x_10 = l_option_get__or__else___main___rarg(x_8, x_9); -lean::dec(x_8); -x_12 = l_list_map___main___at_lean_parser_module_import__path_has__view_x_27___spec__2(x_4); +x_7 = l_list_map___main___at_lean_parser_module_import__path_has__view_x_27___spec__2(x_4); +if (lean::obj_tag(x_2) == 0) +{ +obj* x_8; obj* x_9; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; if (lean::is_scalar(x_6)) { - x_13 = lean::alloc_cnstr(1, 2, 0); + x_9 = lean::alloc_cnstr(1, 2, 0); } else { - x_13 = x_6; + x_9 = x_6; } +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +return x_9; +} +else +{ +obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; +x_10 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_12 = x_2; +} else { + lean::inc(x_10); + lean::dec(x_2); + x_12 = lean::box(0); +} +x_13 = lean::alloc_cnstr(0, 1, 0); lean::cnstr_set(x_13, 0, x_10); -lean::cnstr_set(x_13, 1, x_12); -return x_13; +if (lean::is_scalar(x_12)) { + x_14 = lean::alloc_cnstr(1, 1, 0); +} else { + x_14 = x_12; +} +lean::cnstr_set(x_14, 0, x_13); +x_15 = lean::box(3); +x_16 = l_option_get__or__else___main___rarg(x_14, x_15); +lean::dec(x_14); +if (lean::is_scalar(x_6)) { + x_18 = lean::alloc_cnstr(1, 2, 0); +} else { + x_18 = x_6; +} +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set(x_18, 1, x_7); +return x_18; +} } } } @@ -3156,31 +3228,60 @@ return x_1; obj* l_lean_parser_module_import_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_module_import_has__view_x_27___lambda__2___closed__1; -x_12 = l_list_map___main___rarg(x_11, x_3); -x_13 = l_lean_parser_no__kind; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -x_15 = lean::box(0); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_9); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_module_import; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_6 = l_lean_parser_module_import_has__view_x_27___lambda__2___closed__1; +x_7 = l_list_map___main___rarg(x_6, x_3); +x_8 = l_lean_parser_no__kind; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +x_10 = lean::box(0); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_10); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_12 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_11); +x_14 = l_lean_parser_module_import; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +x_16 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_18 = x_1; +} else { + lean::inc(x_16); + lean::dec(x_1); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_11); +x_25 = l_lean_parser_module_import; +x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); +return x_26; +} } } obj* _init_l_lean_parser_module_import_has__view_x_27() { @@ -6712,6 +6813,8 @@ lean::mark_persistent(l_lean_parser_module_yield__command___closed__1); lean::mark_persistent(l_lean_parser_module_yield__command___closed__2); 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___lambda__1___closed__1 = _init_l_lean_parser_module_prelude_has__view_x_27___lambda__1___closed__1(); +lean::mark_persistent(l_lean_parser_module_prelude_has__view_x_27___lambda__1___closed__1); l_lean_parser_module_prelude_has__view_x_27 = _init_l_lean_parser_module_prelude_has__view_x_27(); lean::mark_persistent(l_lean_parser_module_prelude_has__view_x_27); l_lean_parser_module_prelude_has__view = _init_l_lean_parser_module_prelude_has__view(); diff --git a/src/boot/init/lean/parser/notation.cpp b/src/boot/init/lean/parser/notation.cpp index 6dfebdd419..92504e238b 100644 --- a/src/boot/init/lean/parser/notation.cpp +++ b/src/boot/init/lean/parser/notation.cpp @@ -35,7 +35,6 @@ obj* l_lean_parser_command_notation__spec_binders_has__view_x_27; obj* l_lean_parser_command_notation__spec_precedence__term_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_raw_view___rarg(obj*, obj*, obj*, obj*, obj*, uint8); obj* l_lean_parser_command_notation__like_has__view; -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1; obj* l_reader__t_lift___at_lean_parser_command_notation__spec_symbol__quote_parser_lean_parser_has__tokens___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_notation__spec_action__kind_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_ident_parser___at_lean_parser_command_notation__spec_fold__action_parser_lean_parser_has__tokens___spec__4___rarg___closed__1; @@ -43,11 +42,14 @@ obj* l_lean_parser_command_notation__spec_binder_has__view_x_27; extern obj* l_lean_parser_combinators_many___rarg___closed__1; obj* l_lean_parser_command_notation__spec_precedence_parser_lean_parser_has__tokens; obj* l_lean_parser_command_reserve__notation_has__view; +obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_command_notation__spec_precedence__term_parser_lean_parser_has__view; obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__1___closed__3; +obj* l_lean_parser_raw_view___rarg___lambda__2(obj*); namespace lean { obj* nat_add(obj*, obj*); } +obj* l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_notation__spec_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_notation_has__view_x_27___lambda__2(obj*); @@ -88,6 +90,7 @@ extern "C" obj* lean_name_mk_string(obj*, obj*); obj* l_lean_parser_command_notation__spec_notation__symbol_has__view; obj* l_lean_parser_command_mixfix_has__view; obj* l_lean_parser_command_notation__spec_precedence_parser___closed__1; +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__6; obj* l_lean_parser_command_notation__spec_notation__symbol_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_notation__spec_precedence__term_parser_lean_parser_has__tokens; obj* l_lean_parser_command_notation__spec_notation__symbol_parser(obj*, obj*, obj*, obj*, obj*); @@ -171,6 +174,7 @@ obj* l_lean_parser_command_reserve__mixfix_has__view_x_27___lambda__2(obj*); obj* l___private_init_lean_parser_parsec_1__str__aux___main(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_command_notation__spec_quoted__symbol_parser_lean_parser_has__view___spec__1(obj*, obj*, obj*); obj* l_lean_parser_command_notation__spec_transition_parser_lean_parser_has__tokens; +extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; extern obj* l_lean_parser_number_has__view; obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_mixfix_has__view_x_27___lambda__1(obj*); @@ -179,7 +183,6 @@ obj* l_lean_parser_command_notation__spec_unquoted__symbol_view; obj* l_lean_parser_command_notation__spec_action_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_notation__spec_fold__action__folder_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_notation__spec_argument_has__view_x_27___lambda__1___closed__4; -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_notation__spec_precedence_has__view_x_27; obj* l_lean_parser_command_notation__spec_scoped__action_has__view_x_27; obj* l_lean_parser_command_notation__like_parser___closed__1; @@ -264,6 +267,7 @@ obj* l_reader__t_orelse___at_lean_parser_command_notation__spec_fold__action_par obj* l_lean_parser_command_notation__spec_rule_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_notation__spec_transition_parser___closed__1; obj* l_lean_parser_command_reserve__mixfix_has__view_x_27; +extern obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_term_parser_lean_parser_has__view___closed__1; obj* l_lean_parser_command_notation__spec_action; obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__1___closed__1; @@ -277,6 +281,7 @@ obj* l_lean_parser_combinators_recurse_view___rarg(obj*, obj*); obj* l_lean_parser_command_notation__like_has__view_x_27___lambda__1___closed__1; obj* l_reader__t_lift___at_lean_parser_command_notation__spec_symbol__quote_parser_lean_parser_has__tokens___spec__1___boxed(obj*); obj* l_lean_parser_token(obj*, obj*, obj*); +obj* l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_term_parser_lean_parser_has__view(obj*); obj* l_lean_parser_whitespace(obj*, obj*, obj*); obj* l_lean_parser_combinators_choice__aux___main___at_lean_parser_command_notation__spec_precedence__lit_parser_lean_parser_has__tokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -323,9 +328,9 @@ obj* l_lean_parser_command_notation__spec_precedence__offset; obj* l_lean_parser_symbol__core___at_lean_parser_command_notation__spec_precedence__term_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); extern obj* l_lean_parser_combinators_choice__aux___main___rarg___closed__1; obj* l_lean_parser_command_mixfix_kind; -obj* l_lean_parser_raw_view___rarg___lambda__3(obj*); obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_notation__spec_rule; +obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_monad__parsec_error___at_lean_parser_command_notation__spec_precedence__lit_parser_lean_parser_has__tokens___spec__4___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_command_notation__spec_parser___closed__1; obj* l_lean_parser_command_notation__like_has__view_x_27; @@ -344,6 +349,7 @@ obj* l_lean_parser_command_notation__spec_rule_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_command_reserve__notation_has__view_x_27; obj* l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27; +obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_notation__spec_precedence_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_notation__spec_precedence__lit_view_to__nat(obj*); obj* l_reader__t_lift___at_lean_parser_command_notation__spec_symbol__quote_parser_lean_parser_has__tokens___spec__3___boxed(obj*); @@ -354,6 +360,7 @@ obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_command_notation__ obj* l_lean_parser_command_notation__spec_precedence__offset_has__view_x_27___lambda__1___closed__2; obj* l_option_get___main___at_lean_parser_run___spec__2(obj*); obj* l_lean_parser_command_reserve__notation_has__view_x_27___lambda__1(obj*); +obj* l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_notation_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_notation__spec_precedence__offset_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_command_notation__spec_precedence__offset_has__view; @@ -369,6 +376,7 @@ obj* l_lean_parser_command_notation__spec_binders_has__view; obj* l_lean_parser_command_notation__spec_transition_parser_lean_parser_has__view; obj* l_lean_parser_term_parser___closed__1; obj* l_lean_parser_term_parser_lean_parser_has__tokens___boxed(obj*); +obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__4; obj* l_lean_parser_command_mixfix_parser___closed__1; obj* l_lean_parser_command_reserve__notation_parser___closed__1; obj* l_lean_parser_command_notation__spec_binders_has__view_x_27___lambda__2(obj*); @@ -383,6 +391,7 @@ obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda obj* l_lean_parser_command_reserve__mixfix_parser___closed__1; obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view; extern "C" obj* lean_name_mk_numeral(obj*, obj*); +obj* l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_command_notation__spec_notation__symbol_has__view_x_27; obj* l_lean_parser_command_notation__spec_parser(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_with__trailing___at_lean_parser_command_notation__spec_symbol__quote_parser_lean_parser_has__tokens___spec__6___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -394,6 +403,7 @@ extern obj* l_lean_parser_term__parser__m_lean_parser_monad__rec; obj* l_lean_parser_command_notation__spec_argument_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_mixfix_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_notation__spec_action_parser_lean_parser_has__tokens; +obj* l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_command_reserve__notation_has__view_x_27___lambda__1___closed__2; obj* l___private_init_lean_parser_parsec_3__mk__string__result___rarg(obj*, obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_command_notation__spec_precedence__lit_parser_lean_parser_has__tokens___spec__4(obj*); @@ -420,10 +430,10 @@ obj* l_lean_parser_ident_parser___at_lean_parser_command_notation__spec_fold__ac obj* l_lean_parser_command_notation__spec_precedence__term_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_notation__spec_binder; obj* l_lean_parser_command_notation__spec_quoted__symbol_parser(obj*, obj*, obj*, obj*, obj*); -extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; namespace lean { obj* string_push(obj*, uint32); } +obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__5; obj* l_dlist_singleton___rarg(obj*, obj*); obj* l_lean_parser_command_notation__spec_precedence__term_has__view; obj* l_lean_parser_command_notation__spec_has__view_x_27___lambda__1___closed__4; @@ -438,9 +448,10 @@ obj* l_lean_parser_command_notation__spec_precedence__lit_has__view; obj* l_lean_parser_command_notation__spec_action__kind_has__view; obj* l_lean_parser_command_notation__spec_symbol__quote; obj* l_lean_parser_monad__parsec_error___at_lean_parser_command_notation__spec_precedence__lit_parser_lean_parser_has__tokens___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_command_notation__spec_scoped__action_has__view_x_27___lambda__1___closed__1; +obj* l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1; extern obj* l_lean_parser_combinators_any__of___rarg___closed__1; +extern obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; obj* l_lean_parser_command_notation__spec_action__kind_has__view_x_27; extern obj* l_lean_parser_term__parser__m_monad__except; obj* l_lean_parser_command_reserve__mixfix_has__view_x_27___lambda__1___closed__2; @@ -450,9 +461,11 @@ obj* l_lean_parser_substring_of__string(obj*); obj* l_lean_parser_command_notation__like; obj* l_lean_parser_command_notation__spec_notation__symbol_parser___closed__1; obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_command_notation__spec_quoted__symbol_parser___spec__1___rarg(obj*, obj*); +obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6; obj* l_lean_parser_command_notation_has__view; obj* l_lean_parser_command_notation__spec_scoped__action_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_command_mixfix_kind_parser___closed__1; +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__4; obj* l_lean_parser_command_reserve__notation_parser_lean_parser_has__tokens; obj* l_lean_parser_command_notation__spec_argument_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_command_notation__spec_action_has__view_x_27___lambda__1___closed__1; @@ -463,7 +476,6 @@ obj* l_lean_parser_ident_parser___at_lean_parser_command_notation__spec_fold__ac obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_command_notation__spec_quoted__symbol_parser___spec__1___boxed(obj*, obj*, obj*); obj* l_lean_parser_command_notation__spec_precedence_has__view_x_27___lambda__1___closed__2; extern obj* l_lean_parser_term__parser__m_alternative; -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* l_lean_parser_rec__t_recurse___at_lean_parser_term_parser_lean_parser_has__tokens___spec__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { _start: { @@ -872,7 +884,7 @@ lean::dec(x_0); x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_16); lean::cnstr_set(x_19, 1, x_1); -x_20 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_20 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); @@ -2561,6 +2573,52 @@ return x_83; } } } +obj* _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_notation__spec_precedence__offset__op; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_notation__spec_precedence__offset__op; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -2568,49 +2626,97 @@ obj* x_1; x_1 = lean::box(0); if (lean::obj_tag(x_0) == 0) { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_command_notation__spec_precedence__offset__op; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__1; +return x_5; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_command_notation__spec_precedence__offset__op; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_notation__spec_precedence__offset__op; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_command_notation__spec_precedence__offset__op; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } } } @@ -3200,7 +3306,7 @@ return x_98; obj* l_lean_parser_command_notation__spec_precedence__offset_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_26; obj* x_27; obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_21; obj* x_22; obj* x_23; obj* x_26; obj* x_27; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -3212,48 +3318,171 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_1); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = l_lean_parser_command_notation__spec_precedence__lit_has__view; +x_12 = l_lean_parser_command_notation__spec_precedence__lit_has__view; +x_13 = lean::cnstr_get(x_12, 1); +lean::inc(x_13); +lean::dec(x_12); +x_16 = lean::apply_1(x_13, x_3); +x_17 = l_lean_parser_command_notation__spec_precedence__offset__op_has__view; x_18 = lean::cnstr_get(x_17, 1); lean::inc(x_18); lean::dec(x_17); -x_21 = lean::apply_1(x_18, x_3); -x_22 = l_lean_parser_command_notation__spec_precedence__offset__op_has__view; +x_21 = lean::apply_1(x_18, x_5); +x_22 = l_lean_parser_number_has__view; x_23 = lean::cnstr_get(x_22, 1); lean::inc(x_23); lean::dec(x_22); -x_26 = lean::apply_1(x_23, x_5); -x_27 = l_lean_parser_number_has__view; -x_28 = lean::cnstr_get(x_27, 1); -lean::inc(x_28); -lean::dec(x_27); -x_31 = lean::apply_1(x_28, x_7); -x_32 = l_option_map___rarg(x_12, x_9); -x_33 = l_option_get__or__else___main___rarg(x_32, x_14); -lean::dec(x_32); -x_35 = lean::box(0); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_33); -lean::cnstr_set(x_36, 1, x_35); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_31); -lean::cnstr_set(x_37, 1, x_36); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_26); -lean::cnstr_set(x_38, 1, x_37); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_21); -lean::cnstr_set(x_39, 1, x_38); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_15); -lean::cnstr_set(x_40, 1, x_39); -x_41 = l_lean_parser_command_notation__spec_precedence__offset; -x_42 = l_lean_parser_syntax_mk__node(x_41, x_40); -return x_42; +x_26 = lean::apply_1(x_23, x_7); +x_27 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_28 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_26); +lean::cnstr_set(x_29, 1, x_28); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_21); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_16); +lean::cnstr_set(x_31, 1, x_30); +x_32 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_31); +x_34 = l_lean_parser_command_notation__spec_precedence__offset; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +return x_35; +} +else +{ +obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_36 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_38 = x_9; +} else { + lean::inc(x_36); + lean::dec(x_9); + x_38 = lean::box(0); +} +x_39 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_39, 0, x_36); +if (lean::is_scalar(x_38)) { + x_40 = lean::alloc_cnstr(1, 1, 0); +} else { + x_40 = x_38; +} +lean::cnstr_set(x_40, 0, x_39); +x_41 = lean::box(3); +x_42 = l_option_get__or__else___main___rarg(x_40, x_41); +lean::dec(x_40); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_42); +lean::cnstr_set(x_44, 1, x_27); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_26); +lean::cnstr_set(x_45, 1, x_44); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_21); +lean::cnstr_set(x_46, 1, x_45); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_16); +lean::cnstr_set(x_47, 1, x_46); +x_48 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_48); +lean::cnstr_set(x_49, 1, x_47); +x_50 = l_lean_parser_command_notation__spec_precedence__offset; +x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); +return x_51; +} +} +else +{ +obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_52 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_54 = x_1; +} else { + lean::inc(x_52); + lean::dec(x_1); + x_54 = lean::box(0); +} +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(1, 1, 0); +} else { + x_56 = x_54; +} +lean::cnstr_set(x_56, 0, x_55); +x_57 = lean::box(3); +x_58 = l_option_get__or__else___main___rarg(x_56, x_57); +lean::dec(x_56); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; +x_60 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_26); +lean::cnstr_set(x_61, 1, x_60); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_21); +lean::cnstr_set(x_62, 1, x_61); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_16); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_58); +lean::cnstr_set(x_64, 1, x_63); +x_65 = l_lean_parser_command_notation__spec_precedence__offset; +x_66 = l_lean_parser_syntax_mk__node(x_65, x_64); +return x_66; +} +else +{ +obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +x_67 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_69 = x_9; +} else { + lean::inc(x_67); + lean::dec(x_9); + x_69 = lean::box(0); +} +x_70 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_70, 0, x_67); +if (lean::is_scalar(x_69)) { + x_71 = lean::alloc_cnstr(1, 1, 0); +} else { + x_71 = x_69; +} +lean::cnstr_set(x_71, 0, x_70); +x_72 = l_option_get__or__else___main___rarg(x_71, x_57); +lean::dec(x_71); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_72); +lean::cnstr_set(x_74, 1, x_27); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_26); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_21); +lean::cnstr_set(x_76, 1, x_75); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_16); +lean::cnstr_set(x_77, 1, x_76); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_58); +lean::cnstr_set(x_78, 1, x_77); +x_79 = l_lean_parser_command_notation__spec_precedence__offset; +x_80 = l_lean_parser_syntax_mk__node(x_79, x_78); +return x_80; +} +} } } obj* _init_l_lean_parser_command_notation__spec_precedence__offset_has__view_x_27() { @@ -3583,7 +3812,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -4523,32 +4752,61 @@ return x_55; obj* l_lean_parser_command_notation__spec_precedence_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_command_notation__spec_precedence__term_has__view; -x_12 = lean::cnstr_get(x_11, 1); -lean::inc(x_12); -lean::dec(x_11); -x_15 = lean::apply_1(x_12, x_3); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_9); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_notation__spec_precedence; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +x_6 = l_lean_parser_command_notation__spec_precedence__term_has__view; +x_7 = lean::cnstr_get(x_6, 1); +lean::inc(x_7); +lean::dec(x_6); +x_10 = lean::apply_1(x_7, x_3); +x_11 = lean::box(0); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set(x_12, 1, x_11); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_13 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_lean_parser_command_notation__spec_precedence; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +x_17 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_19 = x_1; +} else { + lean::inc(x_17); + lean::dec(x_1); + x_19 = lean::box(0); +} +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); +if (lean::is_scalar(x_19)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_19; +} +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::box(3); +x_23 = l_option_get__or__else___main___rarg(x_21, x_22); +lean::dec(x_21); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_12); +x_26 = l_lean_parser_command_notation__spec_precedence; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_command_notation__spec_precedence_has__view_x_27() { @@ -5874,10 +6132,52 @@ return x_139; } } } +obj* _init_l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_8; obj* x_9; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = l_lean_parser_no__kind; +x_5 = l_lean_parser_syntax_mk__node(x_4, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +lean::inc(x_3); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_3); +lean::cnstr_set(x_8, 1, x_6); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_3); +lean::cnstr_set(x_9, 1, x_8); +return x_9; +} +} +obj* _init_l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = l_lean_parser_no__kind; +x_5 = l_lean_parser_syntax_mk__node(x_4, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +return x_7; +} +} obj* l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -5887,66 +6187,246 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_option_map___rarg(x_10, x_3); -x_16 = l_option_get__or__else___main___rarg(x_15, x_12); -lean::dec(x_15); -x_18 = l_option_map___rarg(x_10, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_12); -lean::dec(x_18); -if (lean::obj_tag(x_7) == 0) +x_10 = lean::box(0); +if (lean::obj_tag(x_1) == 0) { -obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; -x_21 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_16); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_13); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_command_notation__spec_symbol__quote; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +obj* x_13; +x_13 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_11 = x_13; +goto lbl_12; } else { -obj* x_27; obj* x_30; obj* x_31; obj* x_32; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; -x_27 = lean::cnstr_get(x_7, 0); -lean::inc(x_27); +obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +x_14 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_16 = x_1; +} else { + lean::inc(x_14); + lean::dec(x_1); + x_16 = lean::box(0); +} +x_17 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_17, 0, x_14); +if (lean::is_scalar(x_16)) { + x_18 = lean::alloc_cnstr(1, 1, 0); +} else { + x_18 = x_16; +} +lean::cnstr_set(x_18, 0, x_17); +x_19 = lean::box(3); +x_20 = l_option_get__or__else___main___rarg(x_18, x_19); +lean::dec(x_18); +x_11 = x_20; +goto lbl_12; +} +lbl_12: +{ +obj* x_22; obj* x_23; +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_25 = l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__1; +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_11); +lean::cnstr_set(x_26, 1, x_25); +x_27 = l_lean_parser_command_notation__spec_symbol__quote; +x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); +return x_28; +} +else +{ +obj* x_29; obj* x_32; obj* x_33; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_29 = lean::cnstr_get(x_7, 0); +lean::inc(x_29); lean::dec(x_7); -x_30 = lean::box(0); -x_31 = l_lean_parser_command_notation__spec_precedence_has__view; -x_32 = lean::cnstr_get(x_31, 1); -lean::inc(x_32); -lean::dec(x_31); -x_35 = lean::apply_1(x_32, x_27); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_30); -x_37 = l_lean_parser_no__kind; -x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_38); -lean::cnstr_set(x_39, 1, x_30); +x_32 = l_lean_parser_command_notation__spec_precedence_has__view; +x_33 = lean::cnstr_get(x_32, 1); +lean::inc(x_33); +lean::dec(x_32); +x_36 = lean::apply_1(x_33, x_29); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_10); +x_38 = l_lean_parser_no__kind; +x_39 = l_lean_parser_syntax_mk__node(x_38, x_37); x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_19); -lean::cnstr_set(x_40, 1, x_39); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_16); -lean::cnstr_set(x_41, 1, x_40); +lean::cnstr_set(x_40, 0, x_39); +lean::cnstr_set(x_40, 1, x_10); +x_41 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_13); -lean::cnstr_set(x_42, 1, x_41); -x_43 = l_lean_parser_command_notation__spec_symbol__quote; -x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); -return x_44; +lean::cnstr_set(x_42, 0, x_41); +lean::cnstr_set(x_42, 1, x_40); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_41); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_11); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_command_notation__spec_symbol__quote; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +} +else +{ +obj* x_47; obj* x_50; +x_47 = lean::cnstr_get(x_5, 0); +lean::inc(x_47); +lean::dec(x_5); +x_50 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_22 = x_50; +x_23 = x_47; +goto lbl_24; +} +} +else +{ +obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_51 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_53 = x_3; +} else { + lean::inc(x_51); + lean::dec(x_3); + x_53 = lean::box(0); +} +x_54 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_54, 0, x_51); +if (lean::is_scalar(x_53)) { + x_55 = lean::alloc_cnstr(1, 1, 0); +} else { + x_55 = x_53; +} +lean::cnstr_set(x_55, 0, x_54); +x_56 = lean::box(3); +x_57 = l_option_get__or__else___main___rarg(x_55, x_56); +lean::dec(x_55); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_59 = l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__2; +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_57); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_11); +lean::cnstr_set(x_61, 1, x_60); +x_62 = l_lean_parser_command_notation__spec_symbol__quote; +x_63 = l_lean_parser_syntax_mk__node(x_62, x_61); +return x_63; +} +else +{ +obj* x_64; obj* x_67; obj* x_68; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_64 = lean::cnstr_get(x_7, 0); +lean::inc(x_64); +lean::dec(x_7); +x_67 = l_lean_parser_command_notation__spec_precedence_has__view; +x_68 = lean::cnstr_get(x_67, 1); +lean::inc(x_68); +lean::dec(x_67); +x_71 = lean::apply_1(x_68, x_64); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_10); +x_73 = l_lean_parser_no__kind; +x_74 = l_lean_parser_syntax_mk__node(x_73, x_72); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_74); +lean::cnstr_set(x_75, 1, x_10); +x_76 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_57); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_11); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_lean_parser_command_notation__spec_symbol__quote; +x_81 = l_lean_parser_syntax_mk__node(x_80, x_79); +return x_81; +} +} +else +{ +obj* x_82; +x_82 = lean::cnstr_get(x_5, 0); +lean::inc(x_82); +lean::dec(x_5); +x_22 = x_57; +x_23 = x_82; +goto lbl_24; +} +} +lbl_24: +{ +obj* x_85; obj* x_86; obj* x_87; obj* x_88; +x_85 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_85, 0, x_23); +x_86 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_86, 0, x_85); +x_87 = lean::box(3); +x_88 = l_option_get__or__else___main___rarg(x_86, x_87); +lean::dec(x_86); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; +x_90 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_88); +lean::cnstr_set(x_91, 1, x_90); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_22); +lean::cnstr_set(x_92, 1, x_91); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_11); +lean::cnstr_set(x_93, 1, x_92); +x_94 = l_lean_parser_command_notation__spec_symbol__quote; +x_95 = l_lean_parser_syntax_mk__node(x_94, x_93); +return x_95; +} +else +{ +obj* x_96; obj* x_99; obj* x_100; 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_112; +x_96 = lean::cnstr_get(x_7, 0); +lean::inc(x_96); +lean::dec(x_7); +x_99 = l_lean_parser_command_notation__spec_precedence_has__view; +x_100 = lean::cnstr_get(x_99, 1); +lean::inc(x_100); +lean::dec(x_99); +x_103 = lean::apply_1(x_100, x_96); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_103); +lean::cnstr_set(x_104, 1, x_10); +x_105 = l_lean_parser_no__kind; +x_106 = l_lean_parser_syntax_mk__node(x_105, x_104); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_106); +lean::cnstr_set(x_107, 1, x_10); +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_88); +lean::cnstr_set(x_108, 1, x_107); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_22); +lean::cnstr_set(x_109, 1, x_108); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_11); +lean::cnstr_set(x_110, 1, x_109); +x_111 = l_lean_parser_command_notation__spec_symbol__quote; +x_112 = l_lean_parser_syntax_mk__node(x_111, x_110); +return x_112; +} +} } } } @@ -7323,7 +7803,7 @@ _start: { obj* x_0; obj* x_1; obj* x_2; x_0 = lean::alloc_closure(reinterpret_cast(l_lean_parser_raw_view___rarg___lambda__1), 1, 0); -x_1 = lean::alloc_closure(reinterpret_cast(l_lean_parser_raw_view___rarg___lambda__3), 1, 0); +x_1 = lean::alloc_closure(reinterpret_cast(l_lean_parser_raw_view___rarg___lambda__2), 1, 0); x_2 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2, 0, x_0); lean::cnstr_set(x_2, 1, x_1); @@ -7959,6 +8439,29 @@ return x_81; } } } +obj* _init_l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_notation__spec_mixfix__symbol; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -7989,26 +8492,50 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_16; x_16 = lean::cnstr_get(x_0, 0); lean::inc(x_16); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_notation__spec_mixfix__symbol; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2___closed__1; +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_22 = x_16; +} else { + lean::inc(x_20); + lean::dec(x_16); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_1); +x_29 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_1); +x_32 = l_lean_parser_command_notation__spec_mixfix__symbol; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} } } } @@ -8962,7 +9489,7 @@ return x_131; obj* l_lean_parser_command_notation__spec_fold__action__folder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -8976,43 +9503,219 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_0, 5); lean::inc(x_11); lean::dec(x_0); -x_14 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_15 = l_option_map___rarg(x_14, x_1); -x_16 = lean::box(3); -x_17 = l_option_get__or__else___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_19, 0, x_3); -x_20 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_20, 0, x_5); -x_21 = l_option_map___rarg(x_14, x_7); -x_22 = l_option_get__or__else___main___rarg(x_21, x_16); -lean::dec(x_21); -x_24 = l_option_map___rarg(x_14, x_11); -x_25 = l_option_get__or__else___main___rarg(x_24, x_16); -lean::dec(x_24); -x_27 = lean::box(0); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_25); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_9); -lean::cnstr_set(x_29, 1, x_28); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_22); -lean::cnstr_set(x_30, 1, x_29); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_20); -lean::cnstr_set(x_31, 1, x_30); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_19); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_17); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_lean_parser_command_notation__spec_fold__action__folder; -x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); -return x_35; +x_14 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_14, 0, x_3); +x_15 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_15, 0, x_5); +x_16 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_22; +x_22 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = x_22; +goto lbl_18; +} +else +{ +obj* x_23; obj* x_26; +x_23 = lean::cnstr_get(x_7, 0); +lean::inc(x_23); +lean::dec(x_7); +x_26 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_19 = x_26; +x_20 = x_23; +goto lbl_21; +} +} +else +{ +obj* x_27; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_27 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_29 = x_1; +} else { + lean::inc(x_27); + lean::dec(x_1); + x_29 = lean::box(0); +} +x_30 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_30, 0, x_27); +if (lean::is_scalar(x_29)) { + x_31 = lean::alloc_cnstr(1, 1, 0); +} else { + x_31 = x_29; +} +lean::cnstr_set(x_31, 0, x_30); +x_32 = lean::box(3); +x_33 = l_option_get__or__else___main___rarg(x_31, x_32); +lean::dec(x_31); +if (lean::obj_tag(x_7) == 0) +{ +x_17 = x_33; +goto lbl_18; +} +else +{ +obj* x_35; +x_35 = lean::cnstr_get(x_7, 0); +lean::inc(x_35); +lean::dec(x_7); +x_19 = x_33; +x_20 = x_35; +goto lbl_21; +} +} +lbl_18: +{ +if (lean::obj_tag(x_11) == 0) +{ +obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_38 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_9); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_40); +lean::cnstr_set(x_41, 1, x_39); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_15); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_14); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_17); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_command_notation__spec_fold__action__folder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_47 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_49 = x_11; +} else { + lean::inc(x_47); + lean::dec(x_11); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = lean::box(3); +x_53 = l_option_get__or__else___main___rarg(x_51, x_52); +lean::dec(x_51); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_53); +lean::cnstr_set(x_55, 1, x_16); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_9); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_57); +lean::cnstr_set(x_58, 1, x_56); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_15); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_14); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_17); +lean::cnstr_set(x_61, 1, x_60); +x_62 = l_lean_parser_command_notation__spec_fold__action__folder; +x_63 = l_lean_parser_syntax_mk__node(x_62, x_61); +return x_63; +} +} +lbl_21: +{ +obj* x_64; obj* x_65; obj* x_66; obj* x_67; +x_64 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_64, 0, x_20); +x_65 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_65, 0, x_64); +x_66 = lean::box(3); +x_67 = l_option_get__or__else___main___rarg(x_65, x_66); +lean::dec(x_65); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_69 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_9); +lean::cnstr_set(x_70, 1, x_69); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_67); +lean::cnstr_set(x_71, 1, x_70); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_15); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_14); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_19); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_lean_parser_command_notation__spec_fold__action__folder; +x_76 = l_lean_parser_syntax_mk__node(x_75, x_74); +return x_76; +} +else +{ +obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_77 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_79 = x_11; +} else { + lean::inc(x_77); + lean::dec(x_11); + x_79 = lean::box(0); +} +x_80 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_80, 0, x_77); +if (lean::is_scalar(x_79)) { + x_81 = lean::alloc_cnstr(1, 1, 0); +} else { + x_81 = x_79; +} +lean::cnstr_set(x_81, 0, x_80); +x_82 = l_option_get__or__else___main___rarg(x_81, x_66); +lean::dec(x_81); +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_82); +lean::cnstr_set(x_84, 1, x_16); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_9); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_67); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_15); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 1, x_87); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_19); +lean::cnstr_set(x_89, 1, x_88); +x_90 = l_lean_parser_command_notation__spec_fold__action__folder; +x_91 = l_lean_parser_syntax_mk__node(x_90, x_89); +return x_91; +} +} } } obj* _init_l_lean_parser_command_notation__spec_fold__action__folder_has__view_x_27() { @@ -9723,7 +10426,7 @@ return x_114; obj* l_lean_parser_command_notation__spec_fold__action_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_26; obj* x_27; obj* x_28; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_21; obj* x_22; obj* x_23; obj* x_26; obj* x_27; obj* x_28; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -9739,51 +10442,192 @@ lean::inc(x_11); x_13 = lean::cnstr_get(x_0, 6); lean::inc(x_13); lean::dec(x_0); -x_16 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_17 = l_option_map___rarg(x_16, x_1); -x_18 = lean::box(3); -x_19 = l_option_get__or__else___main___rarg(x_17, x_18); -lean::dec(x_17); -x_21 = l_lean_parser_command_notation__spec_notation__symbol_has__view; -x_22 = lean::cnstr_get(x_21, 1); -lean::inc(x_22); -lean::dec(x_21); -lean::inc(x_22); -x_26 = lean::apply_1(x_22, x_5); -x_27 = l_lean_parser_command_notation__spec_fold__action__folder_has__view; -x_28 = lean::cnstr_get(x_27, 1); -lean::inc(x_28); -lean::dec(x_27); -x_31 = lean::apply_1(x_28, x_7); -x_32 = lean::apply_1(x_22, x_11); -x_33 = l_option_map___rarg(x_16, x_13); -x_34 = l_option_get__or__else___main___rarg(x_33, x_18); -lean::dec(x_33); -x_36 = lean::box(0); -x_37 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_37, 0, x_34); -lean::cnstr_set(x_37, 1, x_36); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_32); -lean::cnstr_set(x_38, 1, x_37); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_9); -lean::cnstr_set(x_39, 1, x_38); -x_40 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_40, 0, x_31); -lean::cnstr_set(x_40, 1, x_39); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_26); -lean::cnstr_set(x_41, 1, x_40); -x_42 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_42, 0, x_3); -lean::cnstr_set(x_42, 1, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_19); -lean::cnstr_set(x_43, 1, x_42); -x_44 = l_lean_parser_command_notation__spec_fold__action; -x_45 = l_lean_parser_syntax_mk__node(x_44, x_43); -return x_45; +x_16 = l_lean_parser_command_notation__spec_notation__symbol_has__view; +x_17 = lean::cnstr_get(x_16, 1); +lean::inc(x_17); +lean::dec(x_16); +lean::inc(x_17); +x_21 = lean::apply_1(x_17, x_5); +x_22 = l_lean_parser_command_notation__spec_fold__action__folder_has__view; +x_23 = lean::cnstr_get(x_22, 1); +lean::inc(x_23); +lean::dec(x_22); +x_26 = lean::apply_1(x_23, x_7); +x_27 = lean::apply_1(x_17, x_11); +x_28 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_13) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_27); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_9); +lean::cnstr_set(x_31, 1, x_30); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_26); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_21); +lean::cnstr_set(x_33, 1, x_32); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_3); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_34); +x_37 = l_lean_parser_command_notation__spec_fold__action; +x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); +return x_38; +} +else +{ +obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_39 = lean::cnstr_get(x_13, 0); +if (lean::is_exclusive(x_13)) { + x_41 = x_13; +} else { + lean::inc(x_39); + lean::dec(x_13); + x_41 = lean::box(0); +} +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +if (lean::is_scalar(x_41)) { + x_43 = lean::alloc_cnstr(1, 1, 0); +} else { + x_43 = x_41; +} +lean::cnstr_set(x_43, 0, x_42); +x_44 = lean::box(3); +x_45 = l_option_get__or__else___main___rarg(x_43, x_44); +lean::dec(x_43); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_45); +lean::cnstr_set(x_47, 1, x_28); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_27); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_9); +lean::cnstr_set(x_49, 1, x_48); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_26); +lean::cnstr_set(x_50, 1, x_49); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_21); +lean::cnstr_set(x_51, 1, x_50); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_3); +lean::cnstr_set(x_52, 1, x_51); +x_53 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_52); +x_55 = l_lean_parser_command_notation__spec_fold__action; +x_56 = l_lean_parser_syntax_mk__node(x_55, x_54); +return x_56; +} +} +else +{ +obj* x_57; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_57 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_59 = x_1; +} else { + lean::inc(x_57); + lean::dec(x_1); + x_59 = lean::box(0); +} +x_60 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_60, 0, x_57); +if (lean::is_scalar(x_59)) { + x_61 = lean::alloc_cnstr(1, 1, 0); +} else { + x_61 = x_59; +} +lean::cnstr_set(x_61, 0, x_60); +x_62 = lean::box(3); +x_63 = l_option_get__or__else___main___rarg(x_61, x_62); +lean::dec(x_61); +if (lean::obj_tag(x_13) == 0) +{ +obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_65 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_66 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_66, 0, x_27); +lean::cnstr_set(x_66, 1, x_65); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_9); +lean::cnstr_set(x_67, 1, x_66); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_26); +lean::cnstr_set(x_68, 1, x_67); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_21); +lean::cnstr_set(x_69, 1, x_68); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_3); +lean::cnstr_set(x_70, 1, x_69); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_63); +lean::cnstr_set(x_71, 1, x_70); +x_72 = l_lean_parser_command_notation__spec_fold__action; +x_73 = l_lean_parser_syntax_mk__node(x_72, x_71); +return x_73; +} +else +{ +obj* x_74; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +x_74 = lean::cnstr_get(x_13, 0); +if (lean::is_exclusive(x_13)) { + x_76 = x_13; +} else { + lean::inc(x_74); + lean::dec(x_13); + x_76 = lean::box(0); +} +x_77 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_77, 0, x_74); +if (lean::is_scalar(x_76)) { + x_78 = lean::alloc_cnstr(1, 1, 0); +} else { + x_78 = x_76; +} +lean::cnstr_set(x_78, 0, x_77); +x_79 = l_option_get__or__else___main___rarg(x_78, x_62); +lean::dec(x_78); +x_81 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_81, 0, x_79); +lean::cnstr_set(x_81, 1, x_28); +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_27); +lean::cnstr_set(x_82, 1, x_81); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_9); +lean::cnstr_set(x_83, 1, x_82); +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_26); +lean::cnstr_set(x_84, 1, x_83); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_21); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_3); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_63); +lean::cnstr_set(x_87, 1, x_86); +x_88 = l_lean_parser_command_notation__spec_fold__action; +x_89 = l_lean_parser_syntax_mk__node(x_88, x_87); +return x_89; +} +} } } obj* _init_l_lean_parser_command_notation__spec_fold__action_has__view_x_27() { @@ -11516,7 +12360,7 @@ return x_184; obj* l_lean_parser_command_notation__spec_scoped__action_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -11532,78 +12376,253 @@ lean::inc(x_11); x_13 = lean::cnstr_get(x_0, 6); lean::inc(x_13); lean::dec(x_0); -x_16 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_17 = l_option_map___rarg(x_16, x_1); -x_18 = lean::box(3); -x_19 = l_option_get__or__else___main___rarg(x_17, x_18); -lean::dec(x_17); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_3); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_19); -lean::cnstr_set(x_23, 1, x_22); -x_24 = l_lean_parser_no__kind; -x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); -x_26 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_26, 0, x_7); -x_27 = l_option_map___rarg(x_16, x_9); -x_28 = l_option_get__or__else___main___rarg(x_27, x_18); -lean::dec(x_27); -x_30 = l_option_map___rarg(x_16, x_13); -x_31 = l_option_get__or__else___main___rarg(x_30, x_18); -lean::dec(x_30); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_31); -lean::cnstr_set(x_33, 1, x_21); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_11); -lean::cnstr_set(x_34, 1, x_33); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_28); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_26); -lean::cnstr_set(x_36, 1, x_35); -if (lean::obj_tag(x_5) == 0) +x_16 = lean::box(0); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_3); +lean::cnstr_set(x_17, 1, x_16); +x_18 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_18, 0, x_7); +if (lean::obj_tag(x_1) == 0) { -obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; -x_37 = l_lean_parser_combinators_many___rarg___closed__1; -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_37); -lean::cnstr_set(x_38, 1, x_36); -x_39 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_39, 0, x_25); -lean::cnstr_set(x_39, 1, x_38); -x_40 = l_lean_parser_command_notation__spec_scoped__action; -x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); -return x_41; +obj* x_21; +x_21 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_19 = x_21; +goto lbl_20; } else { -obj* x_42; obj* x_45; obj* x_46; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; -x_42 = lean::cnstr_get(x_5, 0); -lean::inc(x_42); +obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_22 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_24 = x_1; +} else { + lean::inc(x_22); + lean::dec(x_1); + x_24 = lean::box(0); +} +x_25 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_25, 0, x_22); +if (lean::is_scalar(x_24)) { + x_26 = lean::alloc_cnstr(1, 1, 0); +} else { + x_26 = x_24; +} +lean::cnstr_set(x_26, 0, x_25); +x_27 = lean::box(3); +x_28 = l_option_get__or__else___main___rarg(x_26, x_27); +lean::dec(x_26); +x_19 = x_28; +goto lbl_20; +} +lbl_20: +{ +obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_35; obj* x_36; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_19); +lean::cnstr_set(x_30, 1, x_17); +x_31 = l_lean_parser_no__kind; +x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_38; +x_38 = l_lean_parser_combinators_many___rarg___closed__1; +x_33 = x_38; +goto lbl_34; +} +else +{ +obj* x_39; obj* x_42; +x_39 = lean::cnstr_get(x_9, 0); +lean::inc(x_39); +lean::dec(x_9); +x_42 = l_lean_parser_combinators_many___rarg___closed__1; +x_35 = x_42; +x_36 = x_39; +goto lbl_37; +} +} +else +{ +obj* x_43; obj* x_46; obj* x_47; obj* x_50; obj* x_51; obj* x_52; +x_43 = lean::cnstr_get(x_5, 0); +lean::inc(x_43); lean::dec(x_5); -x_45 = l_lean_parser_command_notation__spec_precedence_has__view; -x_46 = lean::cnstr_get(x_45, 1); -lean::inc(x_46); -lean::dec(x_45); -x_49 = lean::apply_1(x_46, x_42); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_49); -lean::cnstr_set(x_50, 1, x_21); -x_51 = l_lean_parser_syntax_mk__node(x_24, x_50); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_51); -lean::cnstr_set(x_52, 1, x_36); -x_53 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_53, 0, x_25); -lean::cnstr_set(x_53, 1, x_52); -x_54 = l_lean_parser_command_notation__spec_scoped__action; -x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); -return x_55; +x_46 = l_lean_parser_command_notation__spec_precedence_has__view; +x_47 = lean::cnstr_get(x_46, 1); +lean::inc(x_47); +lean::dec(x_46); +x_50 = lean::apply_1(x_47, x_43); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_50); +lean::cnstr_set(x_51, 1, x_16); +x_52 = l_lean_parser_syntax_mk__node(x_31, x_51); +if (lean::obj_tag(x_9) == 0) +{ +x_33 = x_52; +goto lbl_34; +} +else +{ +obj* x_53; +x_53 = lean::cnstr_get(x_9, 0); +lean::inc(x_53); +lean::dec(x_9); +x_35 = x_52; +x_36 = x_53; +goto lbl_37; +} +} +lbl_34: +{ +if (lean::obj_tag(x_13) == 0) +{ +obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +x_56 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_11); +lean::cnstr_set(x_57, 1, x_56); +x_58 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_58); +lean::cnstr_set(x_59, 1, x_57); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_18); +lean::cnstr_set(x_60, 1, x_59); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_33); +lean::cnstr_set(x_61, 1, x_60); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_32); +lean::cnstr_set(x_62, 1, x_61); +x_63 = l_lean_parser_command_notation__spec_scoped__action; +x_64 = l_lean_parser_syntax_mk__node(x_63, x_62); +return x_64; +} +else +{ +obj* x_65; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_65 = lean::cnstr_get(x_13, 0); +if (lean::is_exclusive(x_13)) { + x_67 = x_13; +} else { + lean::inc(x_65); + lean::dec(x_13); + x_67 = lean::box(0); +} +x_68 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_68, 0, x_65); +if (lean::is_scalar(x_67)) { + x_69 = lean::alloc_cnstr(1, 1, 0); +} else { + x_69 = x_67; +} +lean::cnstr_set(x_69, 0, x_68); +x_70 = lean::box(3); +x_71 = l_option_get__or__else___main___rarg(x_69, x_70); +lean::dec(x_69); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_71); +lean::cnstr_set(x_73, 1, x_16); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_11); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_75); +lean::cnstr_set(x_76, 1, x_74); +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_18); +lean::cnstr_set(x_77, 1, x_76); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_33); +lean::cnstr_set(x_78, 1, x_77); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_32); +lean::cnstr_set(x_79, 1, x_78); +x_80 = l_lean_parser_command_notation__spec_scoped__action; +x_81 = l_lean_parser_syntax_mk__node(x_80, x_79); +return x_81; +} +} +lbl_37: +{ +obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_82 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_82, 0, x_36); +x_83 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_83, 0, x_82); +x_84 = lean::box(3); +x_85 = l_option_get__or__else___main___rarg(x_83, x_84); +lean::dec(x_83); +if (lean::obj_tag(x_13) == 0) +{ +obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_94; +x_87 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_11); +lean::cnstr_set(x_88, 1, x_87); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_85); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_18); +lean::cnstr_set(x_90, 1, x_89); +x_91 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_91, 0, x_35); +lean::cnstr_set(x_91, 1, x_90); +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_32); +lean::cnstr_set(x_92, 1, x_91); +x_93 = l_lean_parser_command_notation__spec_scoped__action; +x_94 = l_lean_parser_syntax_mk__node(x_93, x_92); +return x_94; +} +else +{ +obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; +x_95 = lean::cnstr_get(x_13, 0); +if (lean::is_exclusive(x_13)) { + x_97 = x_13; +} else { + lean::inc(x_95); + lean::dec(x_13); + x_97 = lean::box(0); +} +x_98 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_98, 0, x_95); +if (lean::is_scalar(x_97)) { + x_99 = lean::alloc_cnstr(1, 1, 0); +} else { + x_99 = x_97; +} +lean::cnstr_set(x_99, 0, x_98); +x_100 = l_option_get__or__else___main___rarg(x_99, x_84); +lean::dec(x_99); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_100); +lean::cnstr_set(x_102, 1, x_16); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_11); +lean::cnstr_set(x_103, 1, x_102); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_85); +lean::cnstr_set(x_104, 1, x_103); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_18); +lean::cnstr_set(x_105, 1, x_104); +x_106 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_106, 0, x_35); +lean::cnstr_set(x_106, 1, x_105); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_32); +lean::cnstr_set(x_107, 1, x_106); +x_108 = l_lean_parser_command_notation__spec_scoped__action; +x_109 = l_lean_parser_syntax_mk__node(x_108, x_107); +return x_109; +} +} } } } @@ -11996,7 +13015,7 @@ lean::dec(x_0); x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_16); lean::cnstr_set(x_19, 1, x_1); -x_20 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_20 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); @@ -12019,7 +13038,7 @@ x_32 = lean::apply_1(x_29, x_25); x_33 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_33, 0, x_32); lean::cnstr_set(x_33, 1, x_1); -x_34 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_34 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); x_36 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_36, 0, x_35); @@ -12042,7 +13061,7 @@ x_46 = lean::apply_1(x_43, x_39); x_47 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_47, 0, x_46); lean::cnstr_set(x_47, 1, x_1); -x_48 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; +x_48 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; x_49 = l_lean_parser_syntax_mk__node(x_48, x_47); x_50 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_50, 0, x_49); @@ -12363,32 +13382,61 @@ return x_55; obj* l_lean_parser_command_notation__spec_action_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_command_notation__spec_action__kind_has__view; -x_12 = lean::cnstr_get(x_11, 1); -lean::inc(x_12); -lean::dec(x_11); -x_15 = lean::apply_1(x_12, x_3); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_9); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_notation__spec_action; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +x_6 = l_lean_parser_command_notation__spec_action__kind_has__view; +x_7 = lean::cnstr_get(x_6, 1); +lean::inc(x_7); +lean::dec(x_6); +x_10 = lean::apply_1(x_7, x_3); +x_11 = lean::box(0); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set(x_12, 1, x_11); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_13 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_lean_parser_command_notation__spec_action; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +x_17 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_19 = x_1; +} else { + lean::inc(x_17); + lean::dec(x_1); + x_19 = lean::box(0); +} +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); +if (lean::is_scalar(x_19)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_19; +} +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::box(3); +x_23 = l_option_get__or__else___main___rarg(x_21, x_22); +lean::dec(x_21); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_12); +x_26 = l_lean_parser_command_notation__spec_action; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_command_notation__spec_action_has__view_x_27() { @@ -14935,7 +15983,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -14958,7 +16006,7 @@ x_37 = lean::apply_1(x_34, x_30); x_38 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_38, 0, x_37); lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); @@ -17860,10 +18908,26 @@ return x_148; } } } +obj* _init_l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_no__kind; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_command_notation_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -17875,72 +18939,238 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_3); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); +x_12 = lean::box(0); +x_13 = l_lean_parser_command_notation__spec_has__view; +x_14 = lean::cnstr_get(x_13, 1); +lean::inc(x_14); lean::dec(x_13); -x_17 = lean::box(0); +x_17 = lean::apply_1(x_14, x_5); x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_15); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_command_notation__spec_has__view; -x_20 = lean::cnstr_get(x_19, 1); -lean::inc(x_20); -lean::dec(x_19); -x_23 = lean::apply_1(x_20, x_5); -x_24 = l_option_map___rarg(x_12, x_7); -x_25 = l_option_get__or__else___main___rarg(x_24, x_14); -lean::dec(x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_9); -lean::cnstr_set(x_27, 1, x_17); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_25); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_23); -lean::cnstr_set(x_29, 1, x_28); +lean::cnstr_set(x_18, 0, x_9); +lean::cnstr_set(x_18, 1, x_12); if (lean::obj_tag(x_1) == 0) { -obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; -x_30 = l_lean_parser_combinators_many___rarg___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_18); -x_32 = l_lean_parser_no__kind; -x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_29); -x_35 = l_lean_parser_command_notation; -x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); -return x_36; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_24; +x_24 = l_lean_parser_combinators_many___rarg___closed__1; +x_19 = x_24; +goto lbl_20; } else { -obj* x_37; obj* x_40; obj* x_41; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; -x_37 = lean::cnstr_get(x_1, 0); -lean::inc(x_37); +obj* x_25; obj* x_28; +x_25 = lean::cnstr_get(x_3, 0); +lean::inc(x_25); +lean::dec(x_3); +x_28 = l_lean_parser_combinators_many___rarg___closed__1; +x_21 = x_28; +x_22 = x_25; +goto lbl_23; +} +} +else +{ +obj* x_29; +x_29 = lean::cnstr_get(x_1, 0); +lean::inc(x_29); lean::dec(x_1); -x_40 = l_option_map___rarg(x_12, x_37); -x_41 = l_option_get__or__else___main___rarg(x_40, x_14); -lean::dec(x_40); -x_43 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_43, 0, x_41); -lean::cnstr_set(x_43, 1, x_17); -x_44 = l_lean_parser_no__kind; -x_45 = l_lean_parser_syntax_mk__node(x_44, x_43); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_18); -x_47 = l_lean_parser_syntax_mk__node(x_44, x_46); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_29); -x_49 = l_lean_parser_command_notation; -x_50 = l_lean_parser_syntax_mk__node(x_49, x_48); -return x_50; +if (lean::obj_tag(x_29) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +obj* x_32; +x_32 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; +x_19 = x_32; +goto lbl_20; +} +else +{ +obj* x_33; obj* x_36; +x_33 = lean::cnstr_get(x_3, 0); +lean::inc(x_33); +lean::dec(x_3); +x_36 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; +x_21 = x_36; +x_22 = x_33; +goto lbl_23; +} +} +else +{ +obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; +x_37 = lean::cnstr_get(x_29, 0); +if (lean::is_exclusive(x_29)) { + x_39 = x_29; +} else { + lean::inc(x_37); + lean::dec(x_29); + x_39 = lean::box(0); +} +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +if (lean::is_scalar(x_39)) { + x_41 = lean::alloc_cnstr(1, 1, 0); +} else { + x_41 = x_39; +} +lean::cnstr_set(x_41, 0, x_40); +x_42 = lean::box(3); +x_43 = l_option_get__or__else___main___rarg(x_41, x_42); +lean::dec(x_41); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_12); +x_46 = l_lean_parser_no__kind; +x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); +if (lean::obj_tag(x_3) == 0) +{ +x_19 = x_47; +goto lbl_20; +} +else +{ +obj* x_48; +x_48 = lean::cnstr_get(x_3, 0); +lean::inc(x_48); +lean::dec(x_3); +x_21 = x_47; +x_22 = x_48; +goto lbl_23; +} +} +} +lbl_20: +{ +obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_51 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_19); +lean::cnstr_set(x_52, 1, x_51); +x_53 = l_lean_parser_no__kind; +x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_55 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_18); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_17); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_54); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_command_notation; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +return x_60; +} +else +{ +obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_61 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_63 = x_7; +} else { + lean::inc(x_61); + lean::dec(x_7); + x_63 = lean::box(0); +} +x_64 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_64, 0, x_61); +if (lean::is_scalar(x_63)) { + x_65 = lean::alloc_cnstr(1, 1, 0); +} else { + x_65 = x_63; +} +lean::cnstr_set(x_65, 0, x_64); +x_66 = lean::box(3); +x_67 = l_option_get__or__else___main___rarg(x_65, x_66); +lean::dec(x_65); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_67); +lean::cnstr_set(x_69, 1, x_18); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_17); +lean::cnstr_set(x_70, 1, x_69); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_54); +lean::cnstr_set(x_71, 1, x_70); +x_72 = l_lean_parser_command_notation; +x_73 = l_lean_parser_syntax_mk__node(x_72, x_71); +return x_73; +} +} +lbl_23: +{ +obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_74 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_74, 0, x_22); +x_75 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_75, 0, x_74); +x_76 = lean::box(3); +x_77 = l_option_get__or__else___main___rarg(x_75, x_76); +lean::dec(x_75); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_77); +lean::cnstr_set(x_79, 1, x_12); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_21); +lean::cnstr_set(x_80, 1, x_79); +x_81 = l_lean_parser_no__kind; +x_82 = l_lean_parser_syntax_mk__node(x_81, x_80); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; +x_83 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_83); +lean::cnstr_set(x_84, 1, x_18); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_17); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set(x_86, 1, x_85); +x_87 = l_lean_parser_command_notation; +x_88 = l_lean_parser_syntax_mk__node(x_87, x_86); +return x_88; +} +else +{ +obj* x_89; obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_96; obj* x_97; obj* x_98; obj* x_99; obj* x_100; +x_89 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_91 = x_7; +} else { + lean::inc(x_89); + lean::dec(x_7); + x_91 = lean::box(0); +} +x_92 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_92, 0, x_89); +if (lean::is_scalar(x_91)) { + x_93 = lean::alloc_cnstr(1, 1, 0); +} else { + x_93 = x_91; +} +lean::cnstr_set(x_93, 0, x_92); +x_94 = l_option_get__or__else___main___rarg(x_93, x_76); +lean::dec(x_93); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_94); +lean::cnstr_set(x_96, 1, x_18); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_17); +lean::cnstr_set(x_97, 1, x_96); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_82); +lean::cnstr_set(x_98, 1, x_97); +x_99 = l_lean_parser_command_notation; +x_100 = l_lean_parser_syntax_mk__node(x_99, x_98); +return x_100; +} } } } @@ -18617,10 +19847,30 @@ return x_100; } } } +obj* _init_l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +lean::inc(x_3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_3); +lean::cnstr_set(x_5, 1, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_3); +lean::cnstr_set(x_6, 1, x_5); +x_7 = l_lean_parser_no__kind; +x_8 = l_lean_parser_syntax_mk__node(x_7, x_6); +return x_8; +} +} obj* l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_13; obj* x_14; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -18628,37 +19878,142 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); +x_8 = lean::box(0); +x_9 = l_lean_parser_command_notation__spec_has__view; +x_10 = lean::cnstr_get(x_9, 1); +lean::inc(x_10); lean::dec(x_9); -x_13 = l_option_map___rarg(x_8, x_3); -x_14 = l_option_get__or__else___main___rarg(x_13, x_10); -lean::dec(x_13); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_14); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_11); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_no__kind; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -x_21 = l_lean_parser_command_notation__spec_has__view; -x_22 = lean::cnstr_get(x_21, 1); -lean::inc(x_22); -lean::dec(x_21); -x_25 = lean::apply_1(x_22, x_5); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_25); -lean::cnstr_set(x_26, 1, x_16); +x_13 = lean::apply_1(x_10, x_5); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_8); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +obj* x_15; obj* x_16; obj* x_17; obj* x_18; +x_15 = l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = l_lean_parser_command_reserve__notation; +x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); +return x_18; +} +else +{ +obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; +x_19 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_21 = x_3; +} else { + lean::inc(x_19); + lean::dec(x_3); + x_21 = lean::box(0); +} +x_22 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_22, 0, x_19); +if (lean::is_scalar(x_21)) { + x_23 = lean::alloc_cnstr(1, 1, 0); +} else { + x_23 = x_21; +} +lean::cnstr_set(x_23, 0, x_22); +x_24 = lean::box(3); +x_25 = l_option_get__or__else___main___rarg(x_23, x_24); +lean::dec(x_23); x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_20); -lean::cnstr_set(x_27, 1, x_26); -x_28 = l_lean_parser_command_reserve__notation; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +lean::cnstr_set(x_27, 0, x_25); +lean::cnstr_set(x_27, 1, x_8); +x_28 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_27); +x_30 = l_lean_parser_no__kind; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_31); +lean::cnstr_set(x_32, 1, x_14); +x_33 = l_lean_parser_command_reserve__notation; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +return x_34; +} +} +else +{ +obj* x_35; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_35 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_37 = x_1; +} else { + lean::inc(x_35); + lean::dec(x_1); + x_37 = lean::box(0); +} +x_38 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_38, 0, x_35); +if (lean::is_scalar(x_37)) { + x_39 = lean::alloc_cnstr(1, 1, 0); +} else { + x_39 = x_37; +} +lean::cnstr_set(x_39, 0, x_38); +x_40 = lean::box(3); +x_41 = l_option_get__or__else___main___rarg(x_39, x_40); +lean::dec(x_39); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_43 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_41); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_no__kind; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_14); +x_48 = l_lean_parser_command_reserve__notation; +x_49 = l_lean_parser_syntax_mk__node(x_48, x_47); +return x_49; +} +else +{ +obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; +x_50 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_52 = x_3; +} else { + lean::inc(x_50); + lean::dec(x_3); + x_52 = lean::box(0); +} +x_53 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_53, 0, x_50); +if (lean::is_scalar(x_52)) { + x_54 = lean::alloc_cnstr(1, 1, 0); +} else { + x_54 = x_52; +} +lean::cnstr_set(x_54, 0, x_53); +x_55 = l_option_get__or__else___main___rarg(x_54, x_40); +lean::dec(x_54); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_55); +lean::cnstr_set(x_57, 1, x_8); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_41); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_no__kind; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_14); +x_62 = l_lean_parser_command_reserve__notation; +x_63 = l_lean_parser_syntax_mk__node(x_62, x_61); +return x_63; +} +} } } obj* _init_l_lean_parser_command_reserve__notation_has__view_x_27() { @@ -19424,6 +20779,121 @@ return x_116; obj* _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_mixfix_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_mixfix_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__3() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(2u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_mixfix_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__4() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(3u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_mixfix_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__5() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(4u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_command_mixfix_kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6() { +_start: +{ obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); x_1 = lean::mk_nat_obj(4u); @@ -19439,118 +20909,238 @@ x_1 = lean::box(0); switch (lean::obj_tag(x_0)) { case 0: { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_command_mixfix_kind; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; +return x_5; +} +else +{ +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_command_mixfix_kind; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} } case 1: { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_command_mixfix_kind; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_command_mixfix_kind; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } case 2: { -obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_30 = lean::cnstr_get(x_0, 0); -lean::inc(x_30); +obj* x_38; +x_38 = lean::cnstr_get(x_0, 0); +lean::inc(x_38); lean::dec(x_0); -x_33 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_34 = l_option_map___rarg(x_33, x_30); -x_35 = lean::box(3); -x_36 = l_option_get__or__else___main___rarg(x_34, x_35); -lean::dec(x_34); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_36); -lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; -x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_1); -x_42 = l_lean_parser_command_mixfix_kind; -x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); -return x_43; +if (lean::obj_tag(x_38) == 0) +{ +obj* x_41; +x_41 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__3; +return x_41; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_42 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_44 = x_38; +} else { + lean::inc(x_42); + lean::dec(x_38); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::box(3); +x_48 = l_option_get__or__else___main___rarg(x_46, x_47); +lean::dec(x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_48); +lean::cnstr_set(x_50, 1, x_1); +x_51 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; +x_52 = l_lean_parser_syntax_mk__node(x_51, x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_1); +x_54 = l_lean_parser_command_mixfix_kind; +x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); +return x_55; +} } case 3: { -obj* x_44; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_44 = lean::cnstr_get(x_0, 0); -lean::inc(x_44); +obj* x_56; +x_56 = lean::cnstr_get(x_0, 0); +lean::inc(x_56); lean::dec(x_0); -x_47 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_48 = l_option_map___rarg(x_47, x_44); -x_49 = lean::box(3); -x_50 = l_option_get__or__else___main___rarg(x_48, x_49); -lean::dec(x_48); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_50); -lean::cnstr_set(x_52, 1, x_1); -x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; -x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_1); -x_56 = l_lean_parser_command_mixfix_kind; -x_57 = l_lean_parser_syntax_mk__node(x_56, x_55); -return x_57; +if (lean::obj_tag(x_56) == 0) +{ +obj* x_59; +x_59 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__4; +return x_59; +} +else +{ +obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_60 = lean::cnstr_get(x_56, 0); +if (lean::is_exclusive(x_56)) { + x_62 = x_56; +} else { + lean::inc(x_60); + lean::dec(x_56); + x_62 = lean::box(0); +} +x_63 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_63, 0, x_60); +if (lean::is_scalar(x_62)) { + x_64 = lean::alloc_cnstr(1, 1, 0); +} else { + x_64 = x_62; +} +lean::cnstr_set(x_64, 0, x_63); +x_65 = lean::box(3); +x_66 = l_option_get__or__else___main___rarg(x_64, x_65); +lean::dec(x_64); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_1); +x_69 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; +x_70 = l_lean_parser_syntax_mk__node(x_69, x_68); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_1); +x_72 = l_lean_parser_command_mixfix_kind; +x_73 = l_lean_parser_syntax_mk__node(x_72, x_71); +return x_73; +} } default: { -obj* x_58; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; -x_58 = lean::cnstr_get(x_0, 0); -lean::inc(x_58); +obj* x_74; +x_74 = lean::cnstr_get(x_0, 0); +lean::inc(x_74); lean::dec(x_0); -x_61 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_62 = l_option_map___rarg(x_61, x_58); -x_63 = lean::box(3); -x_64 = l_option_get__or__else___main___rarg(x_62, x_63); -lean::dec(x_62); -x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_64); -lean::cnstr_set(x_66, 1, x_1); -x_67 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; -x_68 = l_lean_parser_syntax_mk__node(x_67, x_66); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_68); -lean::cnstr_set(x_69, 1, x_1); -x_70 = l_lean_parser_command_mixfix_kind; -x_71 = l_lean_parser_syntax_mk__node(x_70, x_69); -return x_71; +if (lean::obj_tag(x_74) == 0) +{ +obj* x_77; +x_77 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__5; +return x_77; +} +else +{ +obj* x_78; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_78 = lean::cnstr_get(x_74, 0); +if (lean::is_exclusive(x_74)) { + x_80 = x_74; +} else { + lean::inc(x_78); + lean::dec(x_74); + x_80 = lean::box(0); +} +x_81 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_81, 0, x_78); +if (lean::is_scalar(x_80)) { + x_82 = lean::alloc_cnstr(1, 1, 0); +} else { + x_82 = x_80; +} +lean::cnstr_set(x_82, 0, x_81); +x_83 = lean::box(3); +x_84 = l_option_get__or__else___main___rarg(x_82, x_83); +lean::dec(x_82); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_84); +lean::cnstr_set(x_86, 1, x_1); +x_87 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6; +x_88 = l_lean_parser_syntax_mk__node(x_87, x_86); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_1); +x_90 = l_lean_parser_command_mixfix_kind; +x_91 = l_lean_parser_syntax_mk__node(x_90, x_89); +return x_91; +} } } } @@ -20528,7 +22118,7 @@ return x_144; obj* l_lean_parser_command_mixfix_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -20554,60 +22144,120 @@ x_20 = lean::cnstr_get(x_19, 1); lean::inc(x_20); lean::dec(x_19); x_23 = lean::apply_1(x_20, x_5); -x_24 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_25 = l_option_map___rarg(x_24, x_7); -x_26 = lean::box(3); -x_27 = l_option_get__or__else___main___rarg(x_25, x_26); -lean::dec(x_25); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_9); -lean::cnstr_set(x_29, 1, x_17); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_27); -lean::cnstr_set(x_30, 1, x_29); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_23); -lean::cnstr_set(x_31, 1, x_30); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_9); +lean::cnstr_set(x_24, 1, x_17); if (lean::obj_tag(x_1) == 0) { -obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_32 = l_lean_parser_combinators_many___rarg___closed__1; -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_18); -x_34 = l_lean_parser_no__kind; -x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_35); -lean::cnstr_set(x_36, 1, x_31); -x_37 = l_lean_parser_command_mixfix; -x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); -return x_38; +obj* x_27; +x_27 = l_lean_parser_combinators_many___rarg___closed__1; +x_25 = x_27; +goto lbl_26; } else { -obj* x_39; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; -x_39 = lean::cnstr_get(x_1, 0); -lean::inc(x_39); +obj* x_28; +x_28 = lean::cnstr_get(x_1, 0); +lean::inc(x_28); lean::dec(x_1); -x_42 = l_option_map___rarg(x_24, x_39); -x_43 = l_option_get__or__else___main___rarg(x_42, x_26); -lean::dec(x_42); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_43); -lean::cnstr_set(x_45, 1, x_17); -x_46 = l_lean_parser_no__kind; -x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); +if (lean::obj_tag(x_28) == 0) +{ +obj* x_31; +x_31 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; +x_25 = x_31; +goto lbl_26; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; +x_32 = lean::cnstr_get(x_28, 0); +if (lean::is_exclusive(x_28)) { + x_34 = x_28; +} else { + lean::inc(x_32); + lean::dec(x_28); + x_34 = lean::box(0); +} +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(1, 1, 0); +} else { + x_36 = x_34; +} +lean::cnstr_set(x_36, 0, x_35); +x_37 = lean::box(3); +x_38 = l_option_get__or__else___main___rarg(x_36, x_37); +lean::dec(x_36); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set(x_40, 1, x_17); +x_41 = l_lean_parser_no__kind; +x_42 = l_lean_parser_syntax_mk__node(x_41, x_40); +x_25 = x_42; +goto lbl_26; +} +} +lbl_26: +{ +obj* x_43; obj* x_44; obj* x_45; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_25); +lean::cnstr_set(x_43, 1, x_18); +x_44 = l_lean_parser_no__kind; +x_45 = l_lean_parser_syntax_mk__node(x_44, x_43); +if (lean::obj_tag(x_7) == 0) +{ +obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_46 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_24); x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_18); -x_49 = l_lean_parser_syntax_mk__node(x_46, x_48); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_49); -lean::cnstr_set(x_50, 1, x_31); -x_51 = l_lean_parser_command_mixfix; -x_52 = l_lean_parser_syntax_mk__node(x_51, x_50); -return x_52; +lean::cnstr_set(x_48, 0, x_23); +lean::cnstr_set(x_48, 1, x_47); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_45); +lean::cnstr_set(x_49, 1, x_48); +x_50 = l_lean_parser_command_mixfix; +x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); +return x_51; +} +else +{ +obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; +x_52 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_54 = x_7; +} else { + lean::inc(x_52); + lean::dec(x_7); + x_54 = lean::box(0); +} +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(1, 1, 0); +} else { + x_56 = x_54; +} +lean::cnstr_set(x_56, 0, x_55); +x_57 = lean::box(3); +x_58 = l_option_get__or__else___main___rarg(x_56, x_57); +lean::dec(x_56); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_58); +lean::cnstr_set(x_60, 1, x_24); +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_23); +lean::cnstr_set(x_61, 1, x_60); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_45); +lean::cnstr_set(x_62, 1, x_61); +x_63 = l_lean_parser_command_mixfix; +x_64 = l_lean_parser_syntax_mk__node(x_63, x_62); +return x_64; +} } } } @@ -21095,7 +22745,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -21658,7 +23308,7 @@ return x_99; obj* l_lean_parser_command_reserve__mixfix_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_19; obj* x_20; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -21666,39 +23316,73 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_command_mixfix_kind_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_17); -lean::cnstr_set(x_19, 1, x_18); +x_8 = l_lean_parser_command_mixfix_kind_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_13); +x_15 = l_lean_parser_command_notation__spec_notation__symbol_has__view; +x_16 = lean::cnstr_get(x_15, 1); +lean::inc(x_16); +lean::dec(x_15); +x_19 = lean::apply_1(x_16, x_5); x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_11); -lean::cnstr_set(x_20, 1, x_19); -x_21 = l_lean_parser_no__kind; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -x_23 = l_lean_parser_command_notation__spec_notation__symbol_has__view; -x_24 = lean::cnstr_get(x_23, 1); -lean::inc(x_24); -lean::dec(x_23); -x_27 = lean::apply_1(x_24, x_5); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_27); -lean::cnstr_set(x_28, 1, x_18); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_22); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_lean_parser_command_reserve__mixfix; -x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); -return x_31; +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_13); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_21 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_14); +x_23 = l_lean_parser_no__kind; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_20); +x_26 = l_lean_parser_command_reserve__mixfix; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} +else +{ +obj* x_28; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_28 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_30 = x_1; +} else { + lean::inc(x_28); + lean::dec(x_1); + x_30 = lean::box(0); +} +x_31 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_31, 0, x_28); +if (lean::is_scalar(x_30)) { + x_32 = lean::alloc_cnstr(1, 1, 0); +} else { + x_32 = x_30; +} +lean::cnstr_set(x_32, 0, x_31); +x_33 = lean::box(3); +x_34 = l_option_get__or__else___main___rarg(x_32, x_33); +lean::dec(x_32); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_34); +lean::cnstr_set(x_36, 1, x_14); +x_37 = l_lean_parser_no__kind; +x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_20); +x_40 = l_lean_parser_command_reserve__mixfix; +x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); +return x_41; +} } } obj* _init_l_lean_parser_command_reserve__mixfix_has__view_x_27() { @@ -21874,6 +23558,10 @@ lean::mark_persistent(l_lean_parser_command_notation__spec_precedence__offset__o lean::mark_persistent(l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__1___closed__3); l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__1___closed__4); + l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27 = _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_notation__spec_precedence__offset__op_has__view_x_27); l_lean_parser_command_notation__spec_precedence__offset__op_has__view = _init_l_lean_parser_command_notation__spec_precedence__offset__op_has__view(); @@ -21932,6 +23620,10 @@ lean::mark_persistent(l_lean_parser_command_notation__spec_symbol__quote); lean::mark_persistent(l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__1___closed__1); l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__1___closed__2); + l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27___lambda__2___closed__2); l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27 = _init_l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_notation__spec_symbol__quote_has__view_x_27); l_lean_parser_command_notation__spec_symbol__quote_has__view = _init_l_lean_parser_command_notation__spec_symbol__quote_has__view(); @@ -21974,6 +23666,8 @@ lean::mark_persistent(l_lean_parser_command_notation__spec_mixfix__symbol_has__v lean::mark_persistent(l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__1___closed__2); l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__1___closed__3 = _init_l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__1___closed__3(); lean::mark_persistent(l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__1___closed__3); + l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27 = _init_l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_notation__spec_mixfix__symbol_has__view_x_27); l_lean_parser_command_notation__spec_mixfix__symbol_has__view = _init_l_lean_parser_command_notation__spec_mixfix__symbol_has__view(); @@ -22146,6 +23840,8 @@ lean::mark_persistent(l_lean_parser_command_notation); lean::mark_persistent(l_lean_parser_command_notation_has__view_x_27___lambda__1___closed__1); l_lean_parser_command_notation_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_command_notation_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_command_notation_has__view_x_27___lambda__1___closed__2); + l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_notation_has__view_x_27 = _init_l_lean_parser_command_notation_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_notation_has__view_x_27); l_lean_parser_command_notation_has__view = _init_l_lean_parser_command_notation_has__view(); @@ -22162,6 +23858,8 @@ lean::mark_persistent(l_lean_parser_command_reserve__notation); lean::mark_persistent(l_lean_parser_command_reserve__notation_has__view_x_27___lambda__1___closed__1); l_lean_parser_command_reserve__notation_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_command_reserve__notation_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_command_reserve__notation_has__view_x_27___lambda__1___closed__2); + l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_command_reserve__notation_has__view_x_27___lambda__2___closed__1); l_lean_parser_command_reserve__notation_has__view_x_27 = _init_l_lean_parser_command_reserve__notation_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_reserve__notation_has__view_x_27); l_lean_parser_command_reserve__notation_has__view = _init_l_lean_parser_command_reserve__notation_has__view(); @@ -22190,6 +23888,16 @@ lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda_ lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__1___closed__7); l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1(); lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1); + l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__2); + l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__3 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__3(); +lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__3); + l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__4 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__4(); +lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__4); + l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__5 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__5(); +lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__5); + l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6(); +lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6); l_lean_parser_command_mixfix_kind_has__view_x_27 = _init_l_lean_parser_command_mixfix_kind_has__view_x_27(); lean::mark_persistent(l_lean_parser_command_mixfix_kind_has__view_x_27); l_lean_parser_command_mixfix_kind_has__view = _init_l_lean_parser_command_mixfix_kind_has__view(); diff --git a/src/boot/init/lean/parser/parsec.cpp b/src/boot/init/lean/parser/parsec.cpp index 657e0d025a..2d3c8e8041 100644 --- a/src/boot/init/lean/parser/parsec.cpp +++ b/src/boot/init/lean/parser/parsec.cpp @@ -202,6 +202,7 @@ obj* l_lean_parser_monad__parsec_error___at_lean_parser_monad__parsec_take__unti obj* l_lean_parser_monad__parsec_error___at_lean_parser_monad__parsec_upper___spec__1___boxed(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_lookahead___boxed(obj*, obj*, obj*); obj* l___private_init_lean_parser_parsec_2__take__aux___rarg(obj*, obj*, obj*); +obj* l_id___rarg___boxed(obj*); obj* l_string_quote(obj*); obj* l_lean_parser_parsec__t_try___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_eoi__error___rarg___closed__1; @@ -437,7 +438,6 @@ obj* l_lean_parser_monad__parsec_error___at_lean_parser_monad__parsec_any___spec obj* l_lean_parser_parsec__t_has__monad__lift___boxed(obj*); obj* l___private_init_lean_parser_parsec_6__take__while__aux_x_27___main___at_lean_parser_monad__parsec_whitespace___spec__2___rarg___boxed(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_alpha(obj*, obj*); -obj* l_id___rarg(obj*); obj* l_lean_parser_monad__parsec_foldr__aux___main___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_sep__by1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_list_mfoldr___main___at_lean_parser_monad__parsec_longest__match___spec__2___rarg___lambda__1(obj*, obj*, obj*, obj*); @@ -1202,7 +1202,7 @@ obj* _init_l_lean_parser_parsec_result_mk__eps___rarg___closed__1() { _start: { obj* x_0; obj* x_1; -x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); x_1 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_1, 0, x_0); return x_1; diff --git a/src/boot/init/lean/parser/string_literal.cpp b/src/boot/init/lean/parser/string_literal.cpp index 8c21a395a9..428b816449 100644 --- a/src/boot/init/lean/parser/string_literal.cpp +++ b/src/boot/init/lean/parser/string_literal.cpp @@ -952,7 +952,7 @@ return x_2; obj* l_lean_parser_parse__quoted__char___rarg___lambda__1(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4) { _start: { -obj* x_5; obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_21; uint32 x_23; obj* x_24; obj* x_25; +obj* x_5; obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_17; obj* x_19; obj* x_21; uint32 x_23; obj* x_25; obj* x_26; x_5 = lean::cnstr_get(x_0, 0); lean::inc(x_5); lean::dec(x_0); @@ -972,9 +972,10 @@ lean::dec(x_17); x_21 = lean::nat_add(x_19, x_4); lean::dec(x_19); x_23 = l_char_of__nat(x_21); -x_24 = lean::box_uint32(x_23); -x_25 = lean::apply_2(x_8, lean::box(0), x_24); -return x_25; +lean::dec(x_21); +x_25 = lean::box_uint32(x_23); +x_26 = lean::apply_2(x_8, lean::box(0), x_25); +return x_26; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__2(obj* x_0, obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) { @@ -1024,7 +1025,7 @@ return x_7; obj* l_lean_parser_parse__quoted__char___rarg___lambda__5(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_6; obj* x_9; obj* x_10; obj* x_11; uint32 x_13; obj* x_14; obj* x_15; +obj* x_3; obj* x_6; obj* x_9; obj* x_10; obj* x_11; uint32 x_13; obj* x_15; obj* x_16; x_3 = lean::cnstr_get(x_0, 0); lean::inc(x_3); lean::dec(x_0); @@ -1036,9 +1037,10 @@ x_10 = lean::nat_mul(x_9, x_1); x_11 = lean::nat_add(x_10, x_2); lean::dec(x_10); x_13 = l_char_of__nat(x_11); -x_14 = lean::box_uint32(x_13); -x_15 = lean::apply_2(x_6, lean::box(0), x_14); -return x_15; +lean::dec(x_11); +x_15 = lean::box_uint32(x_13); +x_16 = lean::apply_2(x_6, lean::box(0), x_15); +return x_16; } } obj* l_lean_parser_parse__quoted__char___rarg___lambda__6(obj* x_0, obj* x_1, obj* x_2, obj* x_3) { diff --git a/src/boot/init/lean/parser/syntax.cpp b/src/boot/init/lean/parser/syntax.cpp index 51a66835a9..78ff94f7d3 100644 --- a/src/boot/init/lean/parser/syntax.cpp +++ b/src/boot/init/lean/parser/syntax.cpp @@ -44,7 +44,6 @@ uint8 l_lean_parser_syntax_is__of__kind___main(obj*, obj*); obj* l_string_quote(obj*); obj* l_lean_parser_syntax_update__leading___closed__1; obj* l_lean_parser_macro__scopes_flip___boxed(obj*, obj*); -obj* l_lean_parser_syntax_reprint___main___closed__2; obj* l_lean_parser_macro__scopes; obj* l_lean_parser_syntax_mreplace__lst___boxed(obj*); obj* l_lean_parser_syntax_to__format___main___closed__7; @@ -98,6 +97,7 @@ obj* l_lean_parser_inhabited; obj* l_lean_parser_syntax_to__format___main(obj*); extern obj* l_string_join___closed__1; obj* l_lean_to__fmt___at_lean_parser_syntax_to__format___main___spec__2(obj*); +obj* l_list_foldl___main___at_string_join___spec__1(obj*, obj*); obj* l_lean_parser_syntax_mreplace___main___at_lean_parser_syntax_update__leading___spec__1(obj*, obj*, obj*); obj* l_lean_parser_syntax_update__leading(obj*, obj*); obj* l_lean_parser_syntax_to__format__lst___main(obj*); @@ -160,7 +160,6 @@ obj* nat_sub(obj*, obj*); obj* l_lean_parser_syntax_get__head__info___main___boxed(obj*); obj* l_list_append___rarg(obj*, obj*); obj* l___private_init_lean_parser_syntax_1__update__leading__aux___main(obj*, obj*); -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_syntax_mreplace___rarg(obj*, obj*, obj*); obj* l_lean_parser_syntax_to__format___main___closed__3; obj* l_lean_parser_substring_of__string(obj*); @@ -168,7 +167,6 @@ obj* l_lean_parser_syntax_get__head__info___main(obj*); obj* l_list_foldr___main___at_lean_parser_syntax_reprint___main___spec__1___boxed(obj*, obj*); obj* l_lean_parser_macro__scopes_flip___main___boxed(obj*, obj*); obj* l_lean_parser_syntax_reprint__atom___boxed(obj*); -obj* l_string_join___boxed(obj*); obj* _init_l_lean_parser_choice() { _start: { @@ -1731,14 +1729,6 @@ goto _start; obj* _init_l_lean_parser_syntax_reprint___main___closed__1() { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_string_join___boxed), 1, 0); -return x_0; -} -} -obj* _init_l_lean_parser_syntax_reprint___main___closed__2() { -_start: -{ obj* x_0; obj* x_1; x_0 = lean::mk_string(""); x_1 = lean::alloc_cnstr(1, 1, 0); @@ -1875,50 +1865,61 @@ x_69 = lean_name_dec_eq(x_66, x_68); lean::dec(x_66); if (x_69 == 0) { -obj* x_71; obj* x_74; obj* x_75; obj* x_76; +obj* x_71; obj* x_74; x_71 = lean::cnstr_get(x_63, 1); lean::inc(x_71); lean::dec(x_63); x_74 = l_lean_parser_syntax_reprint__lst___main(x_71); -x_75 = l_lean_parser_syntax_reprint___main___closed__1; -x_76 = l_option_map___rarg(x_75, x_74); -return x_76; +if (lean::obj_tag(x_74) == 0) +{ +obj* x_75; +x_75 = lean::box(0); +return x_75; } else { -obj* x_77; -x_77 = lean::cnstr_get(x_63, 1); -lean::inc(x_77); -lean::dec(x_63); -if (lean::obj_tag(x_77) == 0) -{ -obj* x_80; -x_80 = lean::box(0); -return x_80; +obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_82; +x_76 = lean::cnstr_get(x_74, 0); +if (lean::is_exclusive(x_74)) { + x_78 = x_74; +} else { + lean::inc(x_76); + lean::dec(x_74); + x_78 = lean::box(0); +} +x_79 = l_string_join___closed__1; +x_80 = l_list_foldl___main___at_string_join___spec__1(x_79, x_76); +lean::dec(x_76); +if (lean::is_scalar(x_78)) { + x_82 = lean::alloc_cnstr(1, 1, 0); +} else { + x_82 = x_78; +} +lean::cnstr_set(x_82, 0, x_80); +return x_82; +} } else { -obj* x_81; obj* x_83; obj* x_86; -x_81 = lean::cnstr_get(x_77, 0); -lean::inc(x_81); -x_83 = lean::cnstr_get(x_77, 1); +obj* x_83; +x_83 = lean::cnstr_get(x_63, 1); lean::inc(x_83); -lean::dec(x_77); -x_86 = l_lean_parser_syntax_reprint___main(x_81); -if (lean::obj_tag(x_86) == 0) +lean::dec(x_63); +if (lean::obj_tag(x_83) == 0) { -obj* x_88; -lean::dec(x_83); -x_88 = lean::box(0); -return x_88; +obj* x_86; +x_86 = lean::box(0); +return x_86; } else { -obj* x_89; obj* x_92; -x_89 = lean::cnstr_get(x_86, 0); +obj* x_87; obj* x_89; obj* x_92; +x_87 = lean::cnstr_get(x_83, 0); +lean::inc(x_87); +x_89 = lean::cnstr_get(x_83, 1); lean::inc(x_89); -lean::dec(x_86); -x_92 = l_lean_parser_syntax_reprint__lst___main(x_83); +lean::dec(x_83); +x_92 = l_lean_parser_syntax_reprint___main(x_87); if (lean::obj_tag(x_92) == 0) { obj* x_94; @@ -1928,37 +1929,51 @@ return x_94; } else { -obj* x_95; obj* x_97; obj* x_98; uint8 x_100; +obj* x_95; obj* x_98; x_95 = lean::cnstr_get(x_92, 0); -if (lean::is_exclusive(x_92)) { - lean::cnstr_set(x_92, 0, lean::box(0)); - x_97 = x_92; -} else { - lean::inc(x_95); - lean::dec(x_92); - x_97 = lean::box(0); -} -x_98 = l_list_foldr___main___at_lean_parser_syntax_reprint___main___spec__1(x_89, x_95); -lean::dec(x_95); -x_100 = lean::unbox(x_98); -if (x_100 == 0) +lean::inc(x_95); +lean::dec(x_92); +x_98 = l_lean_parser_syntax_reprint__lst___main(x_89); +if (lean::obj_tag(x_98) == 0) { -obj* x_103; -lean::dec(x_89); -lean::dec(x_97); -x_103 = lean::box(0); -return x_103; +obj* x_100; +lean::dec(x_95); +x_100 = lean::box(0); +return x_100; } else { -obj* x_104; -if (lean::is_scalar(x_97)) { - x_104 = lean::alloc_cnstr(1, 1, 0); +obj* x_101; obj* x_103; obj* x_104; uint8 x_106; +x_101 = lean::cnstr_get(x_98, 0); +if (lean::is_exclusive(x_98)) { + lean::cnstr_set(x_98, 0, lean::box(0)); + x_103 = x_98; } else { - x_104 = x_97; + lean::inc(x_101); + lean::dec(x_98); + x_103 = lean::box(0); } -lean::cnstr_set(x_104, 0, x_89); -return x_104; +x_104 = l_list_foldr___main___at_lean_parser_syntax_reprint___main___spec__1(x_95, x_101); +lean::dec(x_101); +x_106 = lean::unbox(x_104); +if (x_106 == 0) +{ +obj* x_109; +lean::dec(x_103); +lean::dec(x_95); +x_109 = lean::box(0); +return x_109; +} +else +{ +obj* x_110; +if (lean::is_scalar(x_103)) { + x_110 = lean::alloc_cnstr(1, 1, 0); +} else { + x_110 = x_103; +} +lean::cnstr_set(x_110, 0, x_95); +return x_110; } } } @@ -1967,9 +1982,9 @@ return x_104; } default: { -obj* x_105; -x_105 = l_lean_parser_syntax_reprint___main___closed__2; -return x_105; +obj* x_111; +x_111 = l_lean_parser_syntax_reprint___main___closed__1; +return x_111; } } } @@ -2805,8 +2820,6 @@ lean::mark_persistent(l_lean_parser_substring_has__to__string); lean::mark_persistent(l_lean_parser_syntax_update__leading___closed__1); l_lean_parser_syntax_reprint___main___closed__1 = _init_l_lean_parser_syntax_reprint___main___closed__1(); lean::mark_persistent(l_lean_parser_syntax_reprint___main___closed__1); - l_lean_parser_syntax_reprint___main___closed__2 = _init_l_lean_parser_syntax_reprint___main___closed__2(); -lean::mark_persistent(l_lean_parser_syntax_reprint___main___closed__2); l_lean_parser_syntax_reprint__lst___main___closed__1 = _init_l_lean_parser_syntax_reprint__lst___main___closed__1(); lean::mark_persistent(l_lean_parser_syntax_reprint__lst___main___closed__1); l_lean_parser_syntax_to__format___main___closed__1 = _init_l_lean_parser_syntax_to__format___main___closed__1(); diff --git a/src/boot/init/lean/parser/term.cpp b/src/boot/init/lean/parser/term.cpp index 69413cb5d3..50508ed9a6 100644 --- a/src/boot/init/lean/parser/term.cpp +++ b/src/boot/init/lean/parser/term.cpp @@ -15,6 +15,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64; #pragma GCC diagnostic ignored "-Wunused-but-set-variable" #endif obj* l_list_map___main___at_lean_parser_ident__univ__spec_has__view_x_27___spec__1(obj*); +obj* l_lean_parser_term_hole_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_struct__inst_has__view_x_27; obj* l_lean_parser_term_arrow_parser___closed__1; obj* l_lean_parser_rec__t_run__parsec___at_lean_parser_term__parser_run___spec__5___lambda__1(obj*, obj*, obj*, obj*, obj*); @@ -30,7 +31,6 @@ obj* l_lean_parser_term_binder__default; obj* l_lean_parser_ident__univ__spec_has__view_x_27; obj* l_lean_parser_term_binders_parser_lean_parser_has__tokens; obj* l_lean_parser_string__lit_parser___at_lean_parser_term_builtin__leading__parsers_lean_parser_has__tokens___spec__1___boxed(obj*); -extern obj* l_lean_parser_match__token___closed__2; obj* l_lean_parser_term_have__proof_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_term_let__lhs_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_term_type__spec_has__view_x_27; @@ -42,6 +42,7 @@ obj* l_lean_parser_term_implicit__binder_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_curr__lbp___at_lean_parser_term__parser_run___spec__4(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_combinators_any__of___at_lean_parser_command_notation__spec_fold__action_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_arrow_has__view; +obj* l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_term_app_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_binder__content; obj* l_lean_parser_term_let__lhs; @@ -66,7 +67,6 @@ obj* l_lean_parser_symbol__core___at_lean_parser_unicode__symbol_lean_parser_has obj* l_lean_parser_term_let_parser_lean_parser_has__tokens; extern obj* l_lean_parser_command_notation__like_has__view; obj* l_lean_parser_term_assume__binders_has__view_x_27___lambda__2(obj*); -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_term_show_parser___closed__1; obj* l_lean_parser_term_struct__inst; obj* l_lean_parser_monad__parsec_error___at_lean_parser_number_x_27___spec__12___rarg(obj*, obj*, obj*, obj*, obj*); @@ -150,6 +150,7 @@ obj* l_lean_parser_term_show_parser_lean_parser_has__view; obj* l_lean_parser_indexed___at___private_init_lean_parser_term_2__leading___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_with__trailing___rarg___lambda__1(obj*, obj*); obj* l_list_mfoldr___main___at_lean_parser_term_bracketed__binder_parser_lean_parser_has__tokens___spec__5(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_term_sorry_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_if_has__view; obj* l_lean_parser_term_bracketed__binders; obj* l_lean_parser_parsec__t_lookahead___at___private_init_lean_parser_term_2__leading___spec__9(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -218,8 +219,11 @@ obj* l_lean_parser_term_opt__type_parser_lean_parser_has__view; obj* l_lean_parser_term_inst__implicit__anonymous__binder; obj* l_list_enum__from___main___rarg(obj*, obj*); obj* l_lean_parser_term_explicit__modifier_has__view_x_27; +obj* l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__2; +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__6; obj* l_lean_parser_combinators_longest__choice___at_lean_parser_term_bracketed__binder_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_inaccessible_parser_lean_parser_has__tokens; +obj* l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_term_sort_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_term_binder__default__val_has__view_x_27; obj* l_lean_parser_term_assume__anonymous_has__view_x_27___lambda__1(obj*); @@ -242,6 +246,7 @@ 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*); @@ -360,6 +365,7 @@ extern obj* l_lean_parser_number_parser___at_lean_parser_command_notation__spec_ obj* l_lean_parser_try__view___at_lean_parser_number_parser___spec__1(obj*); obj* l_lean_parser_term_explicit_has__view_x_27___lambda__1___closed__3; obj* l_lean_parser_term_borrowed_parser_lean_parser_has__view; +obj* l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_term_paren_has__view_x_27; obj* l_lean_parser_term_inst__implicit__anonymous__binder_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_term_explicit__binder_has__view; @@ -383,11 +389,13 @@ extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___close obj* l_list_mfoldr___main___at___private_init_lean_parser_term_2__leading___spec__10(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_reader__t_lift___at_lean_parser_term_sort__app_parser_lean_parser_has__tokens___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); +obj* l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_number_parser___at_lean_parser_command_notation__spec_precedence__lit_parser_lean_parser_has__tokens___spec__1___boxed(obj*); extern obj* l_lean_parser_curr__lbp___rarg___lambda__1___closed__1; obj* l_lean_parser_term_explicit_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_term_have__proof_has__view; extern obj* l_lean_parser_string__lit; +extern obj* l_lean_parser_match__token___closed__1; obj* l_lean_parser_term_binders__ext_parser___closed__1; obj* l_lean_parser_term_binders__remainder_has__view_x_27; obj* l_lean_parser_term_struct__inst__field_has__view_x_27___lambda__1___closed__1; @@ -407,10 +415,10 @@ obj* l_lean_parser_term_sort__app_parser_lean_parser_has__view___lambda__1___box obj* l_lean_parser_term_binders__remainder_has__view; obj* l_lean_parser_term_opt__ident_parser_lean_parser_has__tokens; obj* l_lean_parser_term_explicit_parser_lean_parser_has__view; +extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; extern obj* l_lean_parser_number_has__view; obj* l_rbmap_find___main___at___private_init_lean_parser_term_1__trailing___spec__2___rarg(obj*, obj*); obj* l_lean_parser_term_pi_has__view_x_27___lambda__2(obj*); -extern obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_term_struct__inst__type_has__view; obj* l_lean_parser_ident__univ__spec; obj* l_lean_parser_combinators_node___at_lean_parser_term_sort__app_parser_lean_parser_has__tokens___spec__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); @@ -418,7 +426,6 @@ obj* l_lean_parser_term_have__proof_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_match__equation_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_level__parser_run(obj*, obj*, obj*, obj*); obj* l_lean_parser_term_have__from_has__view_x_27___lambda__1___closed__2; -extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_term_inst__implicit__binder; obj* l_lean_parser_term_let__lhs__id_has__view_x_27; obj* l_lean_parser_term_binder__content_has__view_x_27___lambda__1___closed__3; @@ -560,7 +567,6 @@ 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; @@ -593,6 +599,7 @@ obj* l_list_map___main___at_lean_parser_term_bracketed__binder_parser_lean_parse obj* l_lean_parser_token__map_of__list___main___rarg(obj*); obj* l_lean_parser_term_opt__ident_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__1(obj*); +extern obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_term_bracketed__binder_has__view; obj* l_lean_parser_term_arrow_parser_lean_parser_has__view___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_rbmap_find___main___at___private_init_lean_parser_term_2__leading___spec__3___rarg(obj*, obj*); @@ -685,6 +692,7 @@ extern obj* l_list_mfoldr___main___at_lean_parser_monad__parsec_longest__match__ obj* l_lean_parser_combinators_longest__match___at___private_init_lean_parser_term_2__leading___spec__7(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_inaccessible_has__view; obj* l_lean_parser_term_binder__default__tac_has__view; +obj* l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2; extern obj* l_lean_parser_curr__lbp___rarg___lambda__3___closed__2; obj* l_lean_parser_term_anonymous__inaccessible_parser_lean_parser_has__view; obj* l_lean_parser_term_hole_has__view; @@ -737,6 +745,7 @@ obj* l_lean_parser_term_binder__default_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_ident__univs_has__view_x_27; obj* l_lean_parser_term_have__from_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_match_has__view_x_27___lambda__1___closed__1; +obj* l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_ident_parser___at_lean_parser_term_projection_parser_lean_parser_has__view___spec__2___rarg(obj*, obj*, obj*, obj*); obj* l_lean_parser_symbol__core___at_lean_parser_command_notation__spec_precedence__term_parser_lean_parser_has__tokens___spec__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_borrowed_has__view; @@ -775,6 +784,7 @@ obj* l_lean_parser_term_app_has__view_x_27___lambda__1(obj*); extern obj* l_lean_parser_basic__parser__m_alternative; obj* l_lean_parser_term_subtype_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_struct__inst__source_has__view; +obj* l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_term_arrow_has__view_x_27; obj* l_lean_parser_indexed___at___private_init_lean_parser_term_1__trailing___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_binder__content_has__view_x_27___lambda__2(obj*); @@ -872,6 +882,7 @@ obj* l_lean_parser_term_inaccessible_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_anonymous__constructor_has__view; obj* l_lean_parser_ident__univ__spec_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_term_sort__app_parser___closed__1; +extern obj* l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; obj* l___private_init_lean_parser_combinators_2__sep__by__aux___main___at_lean_parser_term_paren_parser_lean_parser_has__tokens___spec__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_binder__default__val_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_term_paren__content_has__view_x_27___lambda__1___closed__2; @@ -913,7 +924,6 @@ obj* l_lean_parser_term_match_parser(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_binder__content_has__view_x_27; obj* l_lean_parser_term_struct__inst__type_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_term_simple__inst__implicit__binder_has__view_x_27___lambda__1(obj*); -extern obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; obj* l_lean_parser_term_binder__content_parser(obj*, obj*, obj*, obj*, obj*); extern obj* l_lean_parser_basic__parser__m_lean_parser_monad__parsec; obj* l_lean_parser_term_binders_has__view_x_27___lambda__1___closed__2; @@ -946,10 +956,10 @@ obj* l_lean_parser_term_opt__ident_has__view_x_27___lambda__2(obj*); obj* l___private_init_lean_parser_rec_1__run__aux___at_lean_parser_term__parser_run___spec__8___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_let__lhs_has__view_x_27___lambda__1(obj*); extern obj* l_lean_parser_number_has__view_x_27___lambda__1___closed__6; -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_ident__univ__spec_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_term_struct__inst_has__view_x_27___lambda__2(obj*); extern obj* l_lean_parser_combinators_any__of___rarg___closed__1; +extern obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; obj* l_lean_parser_term_sort__app_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_term_paren__special; extern obj* l_lean_parser_term__parser__m_monad__except; @@ -972,6 +982,7 @@ obj* l_lean_parser_term_arrow_parser_lean_parser_has__view; obj* l_lean_parser_term_struct__inst__with_has__view; obj* l___private_init_lean_parser_rec_1__run__aux___at_lean_parser_term__parser_run___spec__8(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_struct__inst__field_has__view_x_27___lambda__1(obj*); +extern obj* l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6; obj* l_rbmap_find___main___at___private_init_lean_parser_term_1__trailing___spec__5___boxed(obj*); obj* l_lean_parser_term_struct__inst__type_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_term_struct__inst_parser_lean_parser_has__view___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); @@ -979,6 +990,7 @@ obj* l_lean_parser_term_struct__inst_parser___closed__1; obj* l_lean_parser_term_hole_has__view_x_27; obj* l_lean_parser_term_app_parser_lean_parser_has__view___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_tuple_has__view_x_27___lambda__1___closed__1; +extern obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__4; obj* l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_term_projection_parser_lean_parser_has__view___spec__5___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_term_binders__types_has__view_x_27___lambda__1___closed__1; @@ -999,7 +1011,6 @@ extern obj* l_lean_parser_term__parser__m_alternative; obj* l_lean_parser_term_binders__ext_has__view_x_27; obj* l_lean_parser_term_subtype_has__view_x_27___lambda__2(obj*); obj* l_lean_parser_term_projection__spec_has__view; -extern obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; obj* _init_l_lean_parser_ident__univ__spec() { _start: { @@ -1551,7 +1562,7 @@ return x_80; obj* l_lean_parser_ident__univ__spec_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -1559,30 +1570,135 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_list_map___main___at_lean_parser_ident__univ__spec_has__view_x_27___spec__2(x_3); -x_14 = l_lean_parser_no__kind; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -x_16 = l_option_map___rarg(x_8, x_5); -x_17 = l_option_get__or__else___main___rarg(x_16, x_10); -lean::dec(x_16); -x_19 = lean::box(0); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_17); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_15); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_11); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_ident__univ__spec; -x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); -return x_24; +x_8 = l_list_map___main___at_lean_parser_ident__univ__spec_has__view_x_27___spec__2(x_3); +x_9 = l_lean_parser_no__kind; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +x_11 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; +x_12 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_10); +lean::cnstr_set(x_13, 1, x_12); +x_14 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_13); +x_16 = l_lean_parser_ident__univ__spec; +x_17 = l_lean_parser_syntax_mk__node(x_16, x_15); +return x_17; +} +else +{ +obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_18 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_20 = x_5; +} else { + lean::inc(x_18); + lean::dec(x_5); + x_20 = lean::box(0); +} +x_21 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_21, 0, x_18); +if (lean::is_scalar(x_20)) { + x_22 = lean::alloc_cnstr(1, 1, 0); +} else { + x_22 = x_20; +} +lean::cnstr_set(x_22, 0, x_21); +x_23 = lean::box(3); +x_24 = l_option_get__or__else___main___rarg(x_22, x_23); +lean::dec(x_22); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_24); +lean::cnstr_set(x_26, 1, x_11); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_10); +lean::cnstr_set(x_27, 1, x_26); +x_28 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_27); +x_30 = l_lean_parser_ident__univ__spec; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_32 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_34 = x_1; +} else { + lean::inc(x_32); + lean::dec(x_1); + x_34 = lean::box(0); +} +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(1, 1, 0); +} else { + x_36 = x_34; +} +lean::cnstr_set(x_36, 0, x_35); +x_37 = lean::box(3); +x_38 = l_option_get__or__else___main___rarg(x_36, x_37); +lean::dec(x_36); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; +x_40 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_10); +lean::cnstr_set(x_41, 1, x_40); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_38); +lean::cnstr_set(x_42, 1, x_41); +x_43 = l_lean_parser_ident__univ__spec; +x_44 = l_lean_parser_syntax_mk__node(x_43, x_42); +return x_44; +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; +x_45 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_47 = x_5; +} else { + lean::inc(x_45); + lean::dec(x_5); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = l_option_get__or__else___main___rarg(x_49, x_37); +lean::dec(x_49); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_50); +lean::cnstr_set(x_52, 1, x_11); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_10); +lean::cnstr_set(x_53, 1, x_52); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_38); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_ident__univ__spec; +x_56 = l_lean_parser_syntax_mk__node(x_55, x_54); +return x_56; +} +} } } obj* _init_l_lean_parser_ident__univ__spec_has__view_x_27() { @@ -3029,7 +3145,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), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); lean::inc(x_0); x_2 = lean::alloc_cnstr(0, 2, 0); lean::cnstr_set(x_2, 0, x_0); @@ -3221,30 +3337,64 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; x_16 = lean::cnstr_get(x_9, 0); lean::inc(x_16); lean::dec(x_9); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::box(0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; obj* x_20; obj* x_21; +x_19 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_25 = lean::alloc_cnstr(1, 2, 0); + x_20 = lean::alloc_cnstr(1, 2, 0); } else { - x_25 = x_6; + x_20 = x_6; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_12); +return x_21; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_24 = x_16; +} else { + lean::inc(x_22); + lean::dec(x_16); + x_24 = lean::box(0); +} +x_25 = lean::box(0); +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_22); +if (lean::is_scalar(x_24)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_24; } -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_12); -return x_27; +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +if (lean::is_scalar(x_6)) { + x_31 = lean::alloc_cnstr(1, 2, 0); +} else { + x_31 = x_6; +} +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_25); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_7); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_12); +return x_33; +} } } } @@ -3621,31 +3771,60 @@ return x_63; obj* l_lean_parser_term_tuple_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_list_map___main___at_lean_parser_term_tuple_has__view_x_27___spec__2(x_3); -x_12 = l_list_join___main___rarg(x_11); -x_13 = l_lean_parser_no__kind; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -x_15 = lean::box(0); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_14); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_9); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_term_tuple; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_6 = l_list_map___main___at_lean_parser_term_tuple_has__view_x_27___spec__2(x_3); +x_7 = l_list_join___main___rarg(x_6); +x_8 = l_lean_parser_no__kind; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +x_10 = lean::box(0); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_10); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_12 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_12); +lean::cnstr_set(x_13, 1, x_11); +x_14 = l_lean_parser_term_tuple; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +x_16 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_18 = x_1; +} else { + lean::inc(x_16); + lean::dec(x_1); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_11); +x_25 = l_lean_parser_term_tuple; +x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); +return x_26; +} } } obj* _init_l_lean_parser_term_tuple_has__view_x_27() { @@ -3847,27 +4026,56 @@ return x_51; obj* l_lean_parser_term_typed_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_typed; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_typed; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_typed; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_typed_has__view_x_27() { @@ -4193,7 +4401,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -5278,10 +5486,54 @@ goto lbl_29; } } } +obj* _init_l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = l_lean_parser_no__kind; +x_5 = l_lean_parser_syntax_mk__node(x_4, x_0); +lean::inc(x_3); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_0); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_5); +lean::cnstr_set(x_8, 1, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_3); +lean::cnstr_set(x_9, 1, x_8); +x_10 = l_lean_parser_term_paren; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; +x_0 = lean::box(0); +x_1 = l_lean_parser_no__kind; +x_2 = l_lean_parser_syntax_mk__node(x_1, x_0); +x_3 = lean::box(0); +x_4 = lean::box(3); +x_5 = l_option_get__or__else___main___rarg(x_3, x_4); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_2); +lean::cnstr_set(x_7, 1, x_6); +return x_7; +} +} obj* l_lean_parser_term_paren_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_17; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -5289,57 +5541,260 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_option_map___rarg(x_8, x_5); -x_14 = l_option_get__or__else___main___rarg(x_13, x_10); -lean::dec(x_13); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_14); -lean::cnstr_set(x_17, 1, x_16); +x_8 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_3) == 0) { -obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; -x_18 = l_lean_parser_combinators_many___rarg___closed__1; -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_18); -lean::cnstr_set(x_19, 1, x_17); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_11); -lean::cnstr_set(x_20, 1, x_19); -x_21 = l_lean_parser_term_paren; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -return x_22; +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; +x_9 = l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__1; +return x_9; } else { -obj* x_23; obj* x_26; obj* x_27; obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_23 = lean::cnstr_get(x_3, 0); -lean::inc(x_23); +obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_10 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_12 = x_5; +} else { + lean::inc(x_10); + lean::dec(x_5); + x_12 = lean::box(0); +} +x_13 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_13, 0, x_10); +if (lean::is_scalar(x_12)) { + x_14 = lean::alloc_cnstr(1, 1, 0); +} else { + x_14 = x_12; +} +lean::cnstr_set(x_14, 0, x_13); +x_15 = lean::box(3); +x_16 = l_option_get__or__else___main___rarg(x_14, x_15); +lean::dec(x_14); +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set(x_18, 1, x_8); +x_19 = l_lean_parser_combinators_many___rarg___closed__1; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_21); +lean::cnstr_set(x_22, 1, x_20); +x_23 = l_lean_parser_term_paren; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; +} +} +else +{ +obj* x_25; obj* x_28; obj* x_29; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_25 = lean::cnstr_get(x_3, 0); +lean::inc(x_25); lean::dec(x_3); -x_26 = l_lean_parser_term_paren__content_has__view; -x_27 = lean::cnstr_get(x_26, 1); -lean::inc(x_27); -lean::dec(x_26); -x_30 = lean::apply_1(x_27, x_23); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_16); -x_32 = l_lean_parser_no__kind; -x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_17); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_11); -lean::cnstr_set(x_35, 1, x_34); -x_36 = l_lean_parser_term_paren; -x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); -return x_37; +x_28 = l_lean_parser_term_paren__content_has__view; +x_29 = lean::cnstr_get(x_28, 1); +lean::inc(x_29); +lean::dec(x_28); +x_32 = lean::apply_1(x_29, x_25); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_8); +x_34 = l_lean_parser_no__kind; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_36 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_35); +lean::cnstr_set(x_37, 1, x_36); +x_38 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_38); +lean::cnstr_set(x_39, 1, x_37); +x_40 = l_lean_parser_term_paren; +x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); +return x_41; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_42 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_44 = x_5; +} else { + lean::inc(x_42); + lean::dec(x_5); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::box(3); +x_48 = l_option_get__or__else___main___rarg(x_46, x_47); +lean::dec(x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_48); +lean::cnstr_set(x_50, 1, x_8); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_35); +lean::cnstr_set(x_51, 1, x_50); +x_52 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_51); +x_54 = l_lean_parser_term_paren; +x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); +return x_55; +} +} +} +else +{ +obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_56 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_58 = x_1; +} else { + lean::inc(x_56); + lean::dec(x_1); + x_58 = lean::box(0); +} +x_59 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_59, 0, x_56); +if (lean::is_scalar(x_58)) { + x_60 = lean::alloc_cnstr(1, 1, 0); +} else { + x_60 = x_58; +} +lean::cnstr_set(x_60, 0, x_59); +x_61 = lean::box(3); +x_62 = l_option_get__or__else___main___rarg(x_60, x_61); +lean::dec(x_60); +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_64; obj* x_65; obj* x_66; obj* x_67; +x_64 = l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2; +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_62); +lean::cnstr_set(x_65, 1, x_64); +x_66 = l_lean_parser_term_paren; +x_67 = l_lean_parser_syntax_mk__node(x_66, x_65); +return x_67; +} +else +{ +obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; +x_68 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_70 = x_5; +} else { + lean::inc(x_68); + lean::dec(x_5); + x_70 = lean::box(0); +} +x_71 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_71, 0, x_68); +if (lean::is_scalar(x_70)) { + x_72 = lean::alloc_cnstr(1, 1, 0); +} else { + x_72 = x_70; +} +lean::cnstr_set(x_72, 0, x_71); +x_73 = l_option_get__or__else___main___rarg(x_72, x_61); +lean::dec(x_72); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_73); +lean::cnstr_set(x_75, 1, x_8); +x_76 = l_lean_parser_combinators_many___rarg___closed__1; +x_77 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_77, 0, x_76); +lean::cnstr_set(x_77, 1, x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_62); +lean::cnstr_set(x_78, 1, x_77); +x_79 = l_lean_parser_term_paren; +x_80 = l_lean_parser_syntax_mk__node(x_79, x_78); +return x_80; +} +} +else +{ +obj* x_81; obj* x_84; obj* x_85; obj* x_88; obj* x_89; obj* x_90; obj* x_91; +x_81 = lean::cnstr_get(x_3, 0); +lean::inc(x_81); +lean::dec(x_3); +x_84 = l_lean_parser_term_paren__content_has__view; +x_85 = lean::cnstr_get(x_84, 1); +lean::inc(x_85); +lean::dec(x_84); +x_88 = lean::apply_1(x_85, x_81); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_88); +lean::cnstr_set(x_89, 1, x_8); +x_90 = l_lean_parser_no__kind; +x_91 = l_lean_parser_syntax_mk__node(x_90, x_89); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; +x_92 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_91); +lean::cnstr_set(x_93, 1, x_92); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_62); +lean::cnstr_set(x_94, 1, x_93); +x_95 = l_lean_parser_term_paren; +x_96 = l_lean_parser_syntax_mk__node(x_95, x_94); +return x_96; +} +else +{ +obj* x_97; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; +x_97 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_99 = x_5; +} else { + lean::inc(x_97); + lean::dec(x_5); + x_99 = lean::box(0); +} +x_100 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_100, 0, x_97); +if (lean::is_scalar(x_99)) { + x_101 = lean::alloc_cnstr(1, 1, 0); +} else { + x_101 = x_99; +} +lean::cnstr_set(x_101, 0, x_100); +x_102 = l_option_get__or__else___main___rarg(x_101, x_61); +lean::dec(x_101); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_102); +lean::cnstr_set(x_104, 1, x_8); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_91); +lean::cnstr_set(x_105, 1, x_104); +x_106 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_106, 0, x_62); +lean::cnstr_set(x_106, 1, x_105); +x_107 = l_lean_parser_term_paren; +x_108 = l_lean_parser_syntax_mk__node(x_107, x_106); +return x_108; +} +} } } } @@ -6582,22 +7037,61 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } +obj* _init_l_lean_parser_term_hole_has__view_x_27___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_term_hole; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_term_hole_has__view_x_27___lambda__1(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_parser_term_hole; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_parser_term_hole_has__view_x_27___lambda__1___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_parser_term_hole; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_parser_term_hole_has__view_x_27() { @@ -7048,6 +7542,52 @@ return x_83; } } } +obj* _init_l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_term_sort; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_term_sort; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_term_sort_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -7055,49 +7595,97 @@ obj* x_1; x_1 = lean::box(0); if (lean::obj_tag(x_0) == 0) { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_term_sort; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__1; +return x_5; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_term_sort; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_term_sort; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_term_sort; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } } } @@ -7422,27 +8010,56 @@ return x_51; obj* l_lean_parser_term_type__spec_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_type__spec; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_type__spec; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_type__spec; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_type__spec_has__view_x_27() { @@ -7964,7 +8581,7 @@ x_19 = lean::apply_1(x_16, x_12); x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); lean::cnstr_set(x_20, 1, x_1); -x_21 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_21 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); @@ -8256,27 +8873,56 @@ return x_51; obj* l_lean_parser_term_binder__default__val_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_binder__default__val; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_binder__default__val; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_binder__default__val; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_binder__default__val_has__view_x_27() { @@ -8478,27 +9124,56 @@ return x_51; obj* l_lean_parser_term_binder__default__tac_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_binder__default__tac; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_binder__default__tac; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_binder__default__tac; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_binder__default__tac_has__view_x_27() { @@ -8824,7 +9499,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -10820,7 +11495,7 @@ return x_114; obj* l_lean_parser_term_simple__explicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -10832,38 +11507,258 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_1); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_17, 0, x_3); -x_18 = l_option_map___rarg(x_12, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_14); -lean::dec(x_18); -x_21 = l_option_map___rarg(x_12, x_9); -x_22 = l_option_get__or__else___main___rarg(x_21, x_14); -lean::dec(x_21); -x_24 = lean::box(0); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_19); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_17); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_15); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_lean_parser_term_simple__explicit__binder; -x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); -return x_31; +x_12 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_12, 0, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_17 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 1, x_17); +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_12); +lean::cnstr_set(x_21, 1, x_20); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_19); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_lean_parser_term_simple__explicit__binder; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_25 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_27 = x_9; +} else { + lean::inc(x_25); + lean::dec(x_9); + x_27 = lean::box(0); +} +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +if (lean::is_scalar(x_27)) { + x_29 = lean::alloc_cnstr(1, 1, 0); +} else { + x_29 = x_27; +} +lean::cnstr_set(x_29, 0, x_28); +x_30 = lean::box(3); +x_31 = l_option_get__or__else___main___rarg(x_29, x_30); +lean::dec(x_29); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_13); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_7); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_12); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_lean_parser_term_simple__explicit__binder; +x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); +return x_40; +} +} +else +{ +obj* x_41; obj* x_44; +x_41 = lean::cnstr_get(x_5, 0); +lean::inc(x_41); +lean::dec(x_5); +x_44 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = x_44; +x_15 = x_41; +goto lbl_16; +} +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_45 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_47 = x_1; +} else { + lean::inc(x_45); + lean::dec(x_1); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = lean::box(3); +x_51 = l_option_get__or__else___main___rarg(x_49, x_50); +lean::dec(x_49); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_53 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_7); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_54); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_12); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_51); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_term_simple__explicit__binder; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +return x_60; +} +else +{ +obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_61 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_63 = x_9; +} else { + lean::inc(x_61); + lean::dec(x_9); + x_63 = lean::box(0); +} +x_64 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_64, 0, x_61); +if (lean::is_scalar(x_63)) { + x_65 = lean::alloc_cnstr(1, 1, 0); +} else { + x_65 = x_63; +} +lean::cnstr_set(x_65, 0, x_64); +x_66 = l_option_get__or__else___main___rarg(x_65, x_50); +lean::dec(x_65); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_13); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_7); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_12); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_51); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_term_simple__explicit__binder; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; +} +} +else +{ +obj* x_76; +x_76 = lean::cnstr_get(x_5, 0); +lean::inc(x_76); +lean::dec(x_5); +x_14 = x_51; +x_15 = x_76; +goto lbl_16; +} +} +lbl_16: +{ +obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_15); +x_80 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_80, 0, x_79); +x_81 = lean::box(3); +x_82 = l_option_get__or__else___main___rarg(x_80, x_81); +lean::dec(x_80); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_84 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_7); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_lean_parser_term_simple__explicit__binder; +x_90 = l_lean_parser_syntax_mk__node(x_89, x_88); +return x_90; +} +else +{ +obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_91 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_93 = x_9; +} else { + lean::inc(x_91); + lean::dec(x_9); + x_93 = lean::box(0); +} +x_94 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_94, 0, x_91); +if (lean::is_scalar(x_93)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_93; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = l_option_get__or__else___main___rarg(x_95, x_81); +lean::dec(x_95); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set(x_98, 1, x_13); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_14); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_lean_parser_term_simple__explicit__binder; +x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); +return x_104; +} +} } } obj* _init_l_lean_parser_term_simple__explicit__binder_has__view_x_27() { @@ -11607,7 +12502,7 @@ return x_114; obj* l_lean_parser_term_simple__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -11619,38 +12514,258 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_1); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_17, 0, x_3); -x_18 = l_option_map___rarg(x_12, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_14); -lean::dec(x_18); -x_21 = l_option_map___rarg(x_12, x_9); -x_22 = l_option_get__or__else___main___rarg(x_21, x_14); -lean::dec(x_21); -x_24 = lean::box(0); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_19); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_17); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_15); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_lean_parser_term_simple__implicit__binder; -x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); -return x_31; +x_12 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_12, 0, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_17 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 1, x_17); +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_12); +lean::cnstr_set(x_21, 1, x_20); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_19); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_lean_parser_term_simple__implicit__binder; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_25 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_27 = x_9; +} else { + lean::inc(x_25); + lean::dec(x_9); + x_27 = lean::box(0); +} +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +if (lean::is_scalar(x_27)) { + x_29 = lean::alloc_cnstr(1, 1, 0); +} else { + x_29 = x_27; +} +lean::cnstr_set(x_29, 0, x_28); +x_30 = lean::box(3); +x_31 = l_option_get__or__else___main___rarg(x_29, x_30); +lean::dec(x_29); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_13); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_7); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_12); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_lean_parser_term_simple__implicit__binder; +x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); +return x_40; +} +} +else +{ +obj* x_41; obj* x_44; +x_41 = lean::cnstr_get(x_5, 0); +lean::inc(x_41); +lean::dec(x_5); +x_44 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = x_44; +x_15 = x_41; +goto lbl_16; +} +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_45 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_47 = x_1; +} else { + lean::inc(x_45); + lean::dec(x_1); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = lean::box(3); +x_51 = l_option_get__or__else___main___rarg(x_49, x_50); +lean::dec(x_49); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_53 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_7); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_54); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_12); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_51); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_term_simple__implicit__binder; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +return x_60; +} +else +{ +obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_61 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_63 = x_9; +} else { + lean::inc(x_61); + lean::dec(x_9); + x_63 = lean::box(0); +} +x_64 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_64, 0, x_61); +if (lean::is_scalar(x_63)) { + x_65 = lean::alloc_cnstr(1, 1, 0); +} else { + x_65 = x_63; +} +lean::cnstr_set(x_65, 0, x_64); +x_66 = l_option_get__or__else___main___rarg(x_65, x_50); +lean::dec(x_65); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_13); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_7); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_12); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_51); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_term_simple__implicit__binder; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; +} +} +else +{ +obj* x_76; +x_76 = lean::cnstr_get(x_5, 0); +lean::inc(x_76); +lean::dec(x_5); +x_14 = x_51; +x_15 = x_76; +goto lbl_16; +} +} +lbl_16: +{ +obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_15); +x_80 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_80, 0, x_79); +x_81 = lean::box(3); +x_82 = l_option_get__or__else___main___rarg(x_80, x_81); +lean::dec(x_80); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_84 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_7); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_lean_parser_term_simple__implicit__binder; +x_90 = l_lean_parser_syntax_mk__node(x_89, x_88); +return x_90; +} +else +{ +obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_91 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_93 = x_9; +} else { + lean::inc(x_91); + lean::dec(x_9); + x_93 = lean::box(0); +} +x_94 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_94, 0, x_91); +if (lean::is_scalar(x_93)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_93; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = l_option_get__or__else___main___rarg(x_95, x_81); +lean::dec(x_95); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set(x_98, 1, x_13); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_14); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_lean_parser_term_simple__implicit__binder; +x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); +return x_104; +} +} } } obj* _init_l_lean_parser_term_simple__implicit__binder_has__view_x_27() { @@ -12394,7 +13509,7 @@ return x_114; obj* l_lean_parser_term_simple__strict__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -12406,38 +13521,258 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_1); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_17, 0, x_3); -x_18 = l_option_map___rarg(x_12, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_14); -lean::dec(x_18); -x_21 = l_option_map___rarg(x_12, x_9); -x_22 = l_option_get__or__else___main___rarg(x_21, x_14); -lean::dec(x_21); -x_24 = lean::box(0); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_19); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_17); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_15); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_lean_parser_term_simple__strict__implicit__binder; -x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); -return x_31; +x_12 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_12, 0, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_17 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 1, x_17); +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_12); +lean::cnstr_set(x_21, 1, x_20); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_19); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_lean_parser_term_simple__strict__implicit__binder; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_25 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_27 = x_9; +} else { + lean::inc(x_25); + lean::dec(x_9); + x_27 = lean::box(0); +} +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +if (lean::is_scalar(x_27)) { + x_29 = lean::alloc_cnstr(1, 1, 0); +} else { + x_29 = x_27; +} +lean::cnstr_set(x_29, 0, x_28); +x_30 = lean::box(3); +x_31 = l_option_get__or__else___main___rarg(x_29, x_30); +lean::dec(x_29); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_13); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_7); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_12); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_lean_parser_term_simple__strict__implicit__binder; +x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); +return x_40; +} +} +else +{ +obj* x_41; obj* x_44; +x_41 = lean::cnstr_get(x_5, 0); +lean::inc(x_41); +lean::dec(x_5); +x_44 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = x_44; +x_15 = x_41; +goto lbl_16; +} +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_45 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_47 = x_1; +} else { + lean::inc(x_45); + lean::dec(x_1); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = lean::box(3); +x_51 = l_option_get__or__else___main___rarg(x_49, x_50); +lean::dec(x_49); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_53 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_7); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_54); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_12); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_51); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_term_simple__strict__implicit__binder; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +return x_60; +} +else +{ +obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_61 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_63 = x_9; +} else { + lean::inc(x_61); + lean::dec(x_9); + x_63 = lean::box(0); +} +x_64 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_64, 0, x_61); +if (lean::is_scalar(x_63)) { + x_65 = lean::alloc_cnstr(1, 1, 0); +} else { + x_65 = x_63; +} +lean::cnstr_set(x_65, 0, x_64); +x_66 = l_option_get__or__else___main___rarg(x_65, x_50); +lean::dec(x_65); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_13); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_7); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_12); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_51); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_term_simple__strict__implicit__binder; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; +} +} +else +{ +obj* x_76; +x_76 = lean::cnstr_get(x_5, 0); +lean::inc(x_76); +lean::dec(x_5); +x_14 = x_51; +x_15 = x_76; +goto lbl_16; +} +} +lbl_16: +{ +obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_15); +x_80 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_80, 0, x_79); +x_81 = lean::box(3); +x_82 = l_option_get__or__else___main___rarg(x_80, x_81); +lean::dec(x_80); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_84 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_7); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_lean_parser_term_simple__strict__implicit__binder; +x_90 = l_lean_parser_syntax_mk__node(x_89, x_88); +return x_90; +} +else +{ +obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_91 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_93 = x_9; +} else { + lean::inc(x_91); + lean::dec(x_9); + x_93 = lean::box(0); +} +x_94 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_94, 0, x_91); +if (lean::is_scalar(x_93)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_93; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = l_option_get__or__else___main___rarg(x_95, x_81); +lean::dec(x_95); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set(x_98, 1, x_13); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_14); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_lean_parser_term_simple__strict__implicit__binder; +x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); +return x_104; +} +} } } obj* _init_l_lean_parser_term_simple__strict__implicit__binder_has__view_x_27() { @@ -13181,7 +14516,7 @@ return x_114; obj* l_lean_parser_term_simple__inst__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -13193,38 +14528,258 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_1); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_17, 0, x_3); -x_18 = l_option_map___rarg(x_12, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_14); -lean::dec(x_18); -x_21 = l_option_map___rarg(x_12, x_9); -x_22 = l_option_get__or__else___main___rarg(x_21, x_14); -lean::dec(x_21); -x_24 = lean::box(0); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_19); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_17); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_15); -lean::cnstr_set(x_29, 1, x_28); -x_30 = l_lean_parser_term_simple__inst__implicit__binder; -x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); -return x_31; +x_12 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_12, 0, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +x_17 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_7); +lean::cnstr_set(x_18, 1, x_17); +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_12); +lean::cnstr_set(x_21, 1, x_20); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_19); +lean::cnstr_set(x_22, 1, x_21); +x_23 = l_lean_parser_term_simple__inst__implicit__binder; +x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); +return x_24; +} +else +{ +obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_25 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_27 = x_9; +} else { + lean::inc(x_25); + lean::dec(x_9); + x_27 = lean::box(0); +} +x_28 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_28, 0, x_25); +if (lean::is_scalar(x_27)) { + x_29 = lean::alloc_cnstr(1, 1, 0); +} else { + x_29 = x_27; +} +lean::cnstr_set(x_29, 0, x_28); +x_30 = lean::box(3); +x_31 = l_option_get__or__else___main___rarg(x_29, x_30); +lean::dec(x_29); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_31); +lean::cnstr_set(x_33, 1, x_13); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_7); +lean::cnstr_set(x_34, 1, x_33); +x_35 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_35); +lean::cnstr_set(x_36, 1, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_12); +lean::cnstr_set(x_37, 1, x_36); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_35); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_lean_parser_term_simple__inst__implicit__binder; +x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); +return x_40; +} +} +else +{ +obj* x_41; obj* x_44; +x_41 = lean::cnstr_get(x_5, 0); +lean::inc(x_41); +lean::dec(x_5); +x_44 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = x_44; +x_15 = x_41; +goto lbl_16; +} +} +else +{ +obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; +x_45 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_47 = x_1; +} else { + lean::inc(x_45); + lean::dec(x_1); + x_47 = lean::box(0); +} +x_48 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_48, 0, x_45); +if (lean::is_scalar(x_47)) { + x_49 = lean::alloc_cnstr(1, 1, 0); +} else { + x_49 = x_47; +} +lean::cnstr_set(x_49, 0, x_48); +x_50 = lean::box(3); +x_51 = l_option_get__or__else___main___rarg(x_49, x_50); +lean::dec(x_49); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_53 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_7); +lean::cnstr_set(x_54, 1, x_53); +x_55 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_55); +lean::cnstr_set(x_56, 1, x_54); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_12); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_51); +lean::cnstr_set(x_58, 1, x_57); +x_59 = l_lean_parser_term_simple__inst__implicit__binder; +x_60 = l_lean_parser_syntax_mk__node(x_59, x_58); +return x_60; +} +else +{ +obj* x_61; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_61 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_63 = x_9; +} else { + lean::inc(x_61); + lean::dec(x_9); + x_63 = lean::box(0); +} +x_64 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_64, 0, x_61); +if (lean::is_scalar(x_63)) { + x_65 = lean::alloc_cnstr(1, 1, 0); +} else { + x_65 = x_63; +} +lean::cnstr_set(x_65, 0, x_64); +x_66 = l_option_get__or__else___main___rarg(x_65, x_50); +lean::dec(x_65); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_13); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_7); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_12); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_51); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_term_simple__inst__implicit__binder; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; +} +} +else +{ +obj* x_76; +x_76 = lean::cnstr_get(x_5, 0); +lean::inc(x_76); +lean::dec(x_5); +x_14 = x_51; +x_15 = x_76; +goto lbl_16; +} +} +lbl_16: +{ +obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_15); +x_80 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_80, 0, x_79); +x_81 = lean::box(3); +x_82 = l_option_get__or__else___main___rarg(x_80, x_81); +lean::dec(x_80); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; +x_84 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_7); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_82); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_12); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_14); +lean::cnstr_set(x_88, 1, x_87); +x_89 = l_lean_parser_term_simple__inst__implicit__binder; +x_90 = l_lean_parser_syntax_mk__node(x_89, x_88); +return x_90; +} +else +{ +obj* x_91; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_91 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_93 = x_9; +} else { + lean::inc(x_91); + lean::dec(x_9); + x_93 = lean::box(0); +} +x_94 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_94, 0, x_91); +if (lean::is_scalar(x_93)) { + x_95 = lean::alloc_cnstr(1, 1, 0); +} else { + x_95 = x_93; +} +lean::cnstr_set(x_95, 0, x_94); +x_96 = l_option_get__or__else___main___rarg(x_95, x_81); +lean::dec(x_95); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set(x_98, 1, x_13); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_7); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_82); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_12); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_14); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_lean_parser_term_simple__inst__implicit__binder; +x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); +return x_104; +} +} } } obj* _init_l_lean_parser_term_simple__inst__implicit__binder_has__view_x_27() { @@ -13627,7 +15182,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -13650,7 +15205,7 @@ x_37 = lean::apply_1(x_34, x_30); x_38 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_38, 0, x_37); lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); @@ -13673,7 +15228,7 @@ x_51 = lean::apply_1(x_48, x_44); x_52 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_52, 0, x_51); lean::cnstr_set(x_52, 1, x_1); -x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; +x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); x_55 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_55, 0, x_54); @@ -14496,30 +16051,64 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; x_16 = lean::cnstr_get(x_9, 0); lean::inc(x_16); lean::dec(x_9); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::box(0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; obj* x_20; obj* x_21; +x_19 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_25 = lean::alloc_cnstr(1, 2, 0); + x_20 = lean::alloc_cnstr(1, 2, 0); } else { - x_25 = x_6; + x_20 = x_6; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_12); +return x_21; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_24 = x_16; +} else { + lean::inc(x_22); + lean::dec(x_16); + x_24 = lean::box(0); +} +x_25 = lean::box(0); +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_22); +if (lean::is_scalar(x_24)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_24; } -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_12); -return x_27; +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +if (lean::is_scalar(x_6)) { + x_31 = lean::alloc_cnstr(1, 2, 0); +} else { + x_31 = x_6; +} +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_25); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_7); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_12); +return x_33; +} } } } @@ -14979,7 +16568,7 @@ return x_78; obj* l_lean_parser_term_anonymous__constructor_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -14987,31 +16576,136 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_list_map___main___at_lean_parser_term_anonymous__constructor_has__view_x_27___spec__2(x_3); -x_14 = l_list_join___main___rarg(x_13); -x_15 = l_lean_parser_no__kind; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -x_17 = l_option_map___rarg(x_8, x_5); -x_18 = l_option_get__or__else___main___rarg(x_17, x_10); -lean::dec(x_17); -x_20 = lean::box(0); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_18); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_16); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_11); -lean::cnstr_set(x_23, 1, x_22); -x_24 = l_lean_parser_term_anonymous__constructor; -x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); -return x_25; +x_8 = l_list_map___main___at_lean_parser_term_anonymous__constructor_has__view_x_27___spec__2(x_3); +x_9 = l_list_join___main___rarg(x_8); +x_10 = l_lean_parser_no__kind; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +x_12 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +x_13 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_11); +lean::cnstr_set(x_14, 1, x_13); +x_15 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = l_lean_parser_term_anonymous__constructor; +x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); +return x_18; +} +else +{ +obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_19 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_21 = x_5; +} else { + lean::inc(x_19); + lean::dec(x_5); + x_21 = lean::box(0); +} +x_22 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_22, 0, x_19); +if (lean::is_scalar(x_21)) { + x_23 = lean::alloc_cnstr(1, 1, 0); +} else { + x_23 = x_21; +} +lean::cnstr_set(x_23, 0, x_22); +x_24 = lean::box(3); +x_25 = l_option_get__or__else___main___rarg(x_23, x_24); +lean::dec(x_23); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_25); +lean::cnstr_set(x_27, 1, x_12); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_11); +lean::cnstr_set(x_28, 1, x_27); +x_29 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_29); +lean::cnstr_set(x_30, 1, x_28); +x_31 = l_lean_parser_term_anonymous__constructor; +x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); +return x_32; +} +} +else +{ +obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; +x_33 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_35 = x_1; +} else { + lean::inc(x_33); + lean::dec(x_1); + x_35 = lean::box(0); +} +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); +if (lean::is_scalar(x_35)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_35; +} +lean::cnstr_set(x_37, 0, x_36); +x_38 = lean::box(3); +x_39 = l_option_get__or__else___main___rarg(x_37, x_38); +lean::dec(x_37); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; +x_41 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_11); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_39); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_lean_parser_term_anonymous__constructor; +x_45 = l_lean_parser_syntax_mk__node(x_44, x_43); +return x_45; +} +else +{ +obj* x_46; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_46 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_48 = x_5; +} else { + lean::inc(x_46); + lean::dec(x_5); + x_48 = lean::box(0); +} +x_49 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_49, 0, x_46); +if (lean::is_scalar(x_48)) { + x_50 = lean::alloc_cnstr(1, 1, 0); +} else { + x_50 = x_48; +} +lean::cnstr_set(x_50, 0, x_49); +x_51 = l_option_get__or__else___main___rarg(x_50, x_38); +lean::dec(x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_51); +lean::cnstr_set(x_53, 1, x_12); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_11); +lean::cnstr_set(x_54, 1, x_53); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_39); +lean::cnstr_set(x_55, 1, x_54); +x_56 = l_lean_parser_term_anonymous__constructor; +x_57 = l_lean_parser_syntax_mk__node(x_56, x_55); +return x_57; +} +} } } obj* _init_l_lean_parser_term_anonymous__constructor_has__view_x_27() { @@ -15492,7 +17186,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -16017,7 +17711,7 @@ return x_84; obj* l_lean_parser_term_explicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -16025,32 +17719,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_term_explicit__binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_term_explicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_term_explicit__binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_term_explicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_term_explicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_term_explicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_term_explicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_term_explicit__binder_has__view_x_27() { @@ -16567,7 +18366,7 @@ return x_84; obj* l_lean_parser_term_implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -16575,32 +18374,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_term_binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_term_implicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_term_binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_term_implicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_term_implicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_term_implicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_term_implicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_term_implicit__binder_has__view_x_27() { @@ -17104,7 +19008,7 @@ return x_84; obj* l_lean_parser_term_strict__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -17112,32 +19016,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_term_binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_term_strict__implicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_term_binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_term_strict__implicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_term_strict__implicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_term_strict__implicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_term_strict__implicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_term_strict__implicit__binder_has__view_x_27() { @@ -17840,7 +19849,7 @@ return x_121; obj* l_lean_parser_term_inst__implicit__named__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -17850,24 +19859,56 @@ lean::inc(x_5); lean::dec(x_0); x_8 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_8, 0, x_1); -x_9 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_10 = l_option_map___rarg(x_9, x_3); -x_11 = lean::box(3); -x_12 = l_option_get__or__else___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_5); -lean::cnstr_set(x_15, 1, x_14); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_12); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_8); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_term_inst__implicit__named__binder; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_5); +lean::cnstr_set(x_10, 1, x_9); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_8); +lean::cnstr_set(x_13, 1, x_12); +x_14 = l_lean_parser_term_inst__implicit__named__binder; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_16 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_18 = x_3; +} else { + lean::inc(x_16); + lean::dec(x_3); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_10); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_lean_parser_term_inst__implicit__named__binder; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_term_inst__implicit__named__binder_has__view_x_27() { @@ -18279,7 +20320,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -18804,7 +20845,7 @@ return x_84; obj* l_lean_parser_term_inst__implicit__binder_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -18812,32 +20853,137 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_term_inst__implicit__binder__content_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_3); -x_18 = l_option_map___rarg(x_8, x_5); -x_19 = l_option_get__or__else___main___rarg(x_18, x_10); -lean::dec(x_18); -x_21 = lean::box(0); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_19); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_17); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_11); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_term_inst__implicit__binder; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_8 = l_lean_parser_term_inst__implicit__binder__content_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_3); +x_13 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_14 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_12); +lean::cnstr_set(x_15, 1, x_14); +x_16 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_15); +x_18 = l_lean_parser_term_inst__implicit__binder; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_22 = x_5; +} else { + lean::inc(x_20); + lean::dec(x_5); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_13); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_12); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_29); +x_32 = l_lean_parser_term_inst__implicit__binder; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} +} +else +{ +obj* x_34; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_34 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_36 = x_1; +} else { + lean::inc(x_34); + lean::dec(x_1); + x_36 = lean::box(0); +} +x_37 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_37, 0, x_34); +if (lean::is_scalar(x_36)) { + x_38 = lean::alloc_cnstr(1, 1, 0); +} else { + x_38 = x_36; +} +lean::cnstr_set(x_38, 0, x_37); +x_39 = lean::box(3); +x_40 = l_option_get__or__else___main___rarg(x_38, x_39); +lean::dec(x_38); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; +x_42 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_12); +lean::cnstr_set(x_43, 1, x_42); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_40); +lean::cnstr_set(x_44, 1, x_43); +x_45 = l_lean_parser_term_inst__implicit__binder; +x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); +return x_46; +} +else +{ +obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_47 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_49 = x_5; +} else { + lean::inc(x_47); + lean::dec(x_5); + x_49 = lean::box(0); +} +x_50 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_50, 0, x_47); +if (lean::is_scalar(x_49)) { + x_51 = lean::alloc_cnstr(1, 1, 0); +} else { + x_51 = x_49; +} +lean::cnstr_set(x_51, 0, x_50); +x_52 = l_option_get__or__else___main___rarg(x_51, x_39); +lean::dec(x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_52); +lean::cnstr_set(x_54, 1, x_13); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_12); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_40); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_term_inst__implicit__binder; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; +} +} } } obj* _init_l_lean_parser_term_inst__implicit__binder_has__view_x_27() { @@ -19278,7 +21424,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -19301,7 +21447,7 @@ x_37 = lean::apply_1(x_34, x_30); x_38 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_38, 0, x_37); lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); x_41 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_41, 0, x_40); @@ -19324,7 +21470,7 @@ x_51 = lean::apply_1(x_48, x_44); x_52 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_52, 0, x_51); lean::cnstr_set(x_52, 1, x_1); -x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; +x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); x_55 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_55, 0, x_54); @@ -19347,7 +21493,7 @@ x_65 = lean::apply_1(x_62, x_58); x_66 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_66, 0, x_65); lean::cnstr_set(x_66, 1, x_1); -x_67 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__1; +x_67 = l_lean_parser_command_mixfix_kind_has__view_x_27___lambda__2___closed__6; x_68 = l_lean_parser_syntax_mk__node(x_67, x_66); x_69 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_69, 0, x_68); @@ -21157,7 +23303,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -21450,27 +23596,56 @@ return x_51; obj* l_lean_parser_term_binders__types_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_binders__types; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_binders__types; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_binders__types; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_binders__types_has__view_x_27() { @@ -21796,7 +23971,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -22198,7 +24373,7 @@ x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); lean::cnstr_set(x_23, 1, x_1); -x_24 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_24 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); x_26 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_26, 0, x_25); @@ -23566,7 +25741,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -24119,7 +26294,7 @@ x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); lean::cnstr_set(x_22, 1, x_1); -x_23 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_23 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); x_25 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_25, 0, x_24); @@ -24660,7 +26835,7 @@ return x_74; obj* l_lean_parser_term_lambda_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -24675,27 +26850,62 @@ x_11 = lean::cnstr_get(x_10, 1); lean::inc(x_11); lean::dec(x_10); x_14 = lean::apply_1(x_11, x_3); -x_15 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_16 = l_option_map___rarg(x_15, x_5); -x_17 = lean::box(3); -x_18 = l_option_get__or__else___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::box(0); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_7); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_18); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_14); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_1); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_term_lambda; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_15 = lean::box(0); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_7); +lean::cnstr_set(x_16, 1, x_15); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_14); +lean::cnstr_set(x_19, 1, x_18); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_1); +lean::cnstr_set(x_20, 1, x_19); +x_21 = l_lean_parser_term_lambda; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} +else +{ +obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_23 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_25 = x_5; +} else { + lean::inc(x_23); + lean::dec(x_5); + x_25 = lean::box(0); +} +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_23); +if (lean::is_scalar(x_25)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_25; +} +lean::cnstr_set(x_27, 0, x_26); +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_16); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_14); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_1); +lean::cnstr_set(x_33, 1, x_32); +x_34 = l_lean_parser_term_lambda; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +return x_35; +} } } obj* _init_l_lean_parser_term_lambda_has__view_x_27() { @@ -25065,27 +27275,56 @@ return x_51; obj* l_lean_parser_term_assume__anonymous_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_assume__anonymous; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_assume__anonymous; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_assume__anonymous; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_assume__anonymous_has__view_x_27() { @@ -25411,7 +27650,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -25921,7 +28160,7 @@ return x_83; obj* l_lean_parser_term_assume_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -25931,35 +28170,145 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_lean_parser_term_assume__binders_has__view; -x_16 = lean::cnstr_get(x_15, 1); -lean::inc(x_16); -lean::dec(x_15); -x_19 = lean::apply_1(x_16, x_3); -x_20 = l_option_map___rarg(x_10, x_5); -x_21 = l_option_get__or__else___main___rarg(x_20, x_12); -lean::dec(x_20); -x_23 = lean::box(0); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_7); -lean::cnstr_set(x_24, 1, x_23); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_21); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_19); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_13); -lean::cnstr_set(x_27, 1, x_26); -x_28 = l_lean_parser_term_assume; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +x_10 = l_lean_parser_term_assume__binders_has__view; +x_11 = lean::cnstr_get(x_10, 1); +lean::inc(x_11); +lean::dec(x_10); +x_14 = lean::apply_1(x_11, x_3); +x_15 = lean::box(0); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_7); +lean::cnstr_set(x_16, 1, x_15); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_14); +lean::cnstr_set(x_19, 1, x_18); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_17); +lean::cnstr_set(x_20, 1, x_19); +x_21 = l_lean_parser_term_assume; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} +else +{ +obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_23 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_25 = x_5; +} else { + lean::inc(x_23); + lean::dec(x_5); + x_25 = lean::box(0); +} +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_23); +if (lean::is_scalar(x_25)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_25; +} +lean::cnstr_set(x_27, 0, x_26); +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_16); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_14); +lean::cnstr_set(x_32, 1, x_31); +x_33 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_32); +x_35 = l_lean_parser_term_assume; +x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); +return x_36; +} +} +else +{ +obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_37 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_39 = x_1; +} else { + lean::inc(x_37); + lean::dec(x_1); + x_39 = lean::box(0); +} +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +if (lean::is_scalar(x_39)) { + x_41 = lean::alloc_cnstr(1, 1, 0); +} else { + x_41 = x_39; +} +lean::cnstr_set(x_41, 0, x_40); +x_42 = lean::box(3); +x_43 = l_option_get__or__else___main___rarg(x_41, x_42); +lean::dec(x_41); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_45 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_16); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_14); +lean::cnstr_set(x_47, 1, x_46); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_43); +lean::cnstr_set(x_48, 1, x_47); +x_49 = l_lean_parser_term_assume; +x_50 = l_lean_parser_syntax_mk__node(x_49, x_48); +return x_50; +} +else +{ +obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_51 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_53 = x_5; +} else { + lean::inc(x_51); + lean::dec(x_5); + x_53 = lean::box(0); +} +x_54 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_54, 0, x_51); +if (lean::is_scalar(x_53)) { + x_55 = lean::alloc_cnstr(1, 1, 0); +} else { + x_55 = x_53; +} +lean::cnstr_set(x_55, 0, x_54); +x_56 = l_option_get__or__else___main___rarg(x_55, x_42); +lean::dec(x_55); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_56); +lean::cnstr_set(x_58, 1, x_16); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_14); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_43); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_lean_parser_term_assume; +x_62 = l_lean_parser_syntax_mk__node(x_61, x_60); +return x_62; +} +} } } obj* _init_l_lean_parser_term_assume_has__view_x_27() { @@ -26611,7 +28960,7 @@ return x_74; obj* l_lean_parser_term_pi_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -26626,27 +28975,62 @@ x_11 = lean::cnstr_get(x_10, 1); lean::inc(x_11); lean::dec(x_10); x_14 = lean::apply_1(x_11, x_3); -x_15 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_16 = l_option_map___rarg(x_15, x_5); -x_17 = lean::box(3); -x_18 = l_option_get__or__else___main___rarg(x_16, x_17); -lean::dec(x_16); -x_20 = lean::box(0); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_7); -lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_18); -lean::cnstr_set(x_22, 1, x_21); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_14); -lean::cnstr_set(x_23, 1, x_22); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_1); -lean::cnstr_set(x_24, 1, x_23); -x_25 = l_lean_parser_term_pi; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -return x_26; +x_15 = lean::box(0); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_7); +lean::cnstr_set(x_16, 1, x_15); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_14); +lean::cnstr_set(x_19, 1, x_18); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_1); +lean::cnstr_set(x_20, 1, x_19); +x_21 = l_lean_parser_term_pi; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} +else +{ +obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_23 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_25 = x_5; +} else { + lean::inc(x_23); + lean::dec(x_5); + x_25 = lean::box(0); +} +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_23); +if (lean::is_scalar(x_25)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_25; +} +lean::cnstr_set(x_27, 0, x_26); +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_16); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_14); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_1); +lean::cnstr_set(x_33, 1, x_32); +x_34 = l_lean_parser_term_pi; +x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); +return x_35; +} } } obj* _init_l_lean_parser_term_pi_has__view_x_27() { @@ -27186,6 +29570,52 @@ return x_83; } } } +obj* _init_l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_term_explicit__modifier; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_term_explicit__modifier; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} obj* l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2(obj* x_0) { _start: { @@ -27193,49 +29623,97 @@ obj* x_1; x_1 = lean::box(0); if (lean::obj_tag(x_0) == 0) { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_term_explicit__modifier; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__1; +return x_5; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_term_explicit__modifier; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +} +else +{ +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_term_explicit__modifier; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_term_explicit__modifier; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } } } @@ -27791,27 +30269,56 @@ return x_51; obj* l_lean_parser_term_from_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_from; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_from; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_from; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_from_has__view_x_27() { @@ -29231,7 +31738,7 @@ lean::dec(x_0); x_19 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_19, 0, x_16); lean::cnstr_set(x_19, 1, x_1); -x_20 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_20 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); x_22 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_22, 0, x_21); @@ -29931,7 +32438,7 @@ return x_110; obj* l_lean_parser_term_let_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; 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; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -29945,44 +32452,271 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_0, 5); lean::inc(x_11); lean::dec(x_0); -x_14 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_15 = l_option_map___rarg(x_14, x_1); -x_16 = lean::box(3); -x_17 = l_option_get__or__else___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = l_lean_parser_term_let__lhs_has__view; -x_20 = lean::cnstr_get(x_19, 1); -lean::inc(x_20); -lean::dec(x_19); -x_23 = lean::apply_1(x_20, x_3); -x_24 = l_option_map___rarg(x_14, x_5); -x_25 = l_option_get__or__else___main___rarg(x_24, x_16); -lean::dec(x_24); -x_27 = l_option_map___rarg(x_14, x_9); -x_28 = l_option_get__or__else___main___rarg(x_27, x_16); -lean::dec(x_27); -x_30 = lean::box(0); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_11); -lean::cnstr_set(x_31, 1, x_30); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_28); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_7); -lean::cnstr_set(x_33, 1, x_32); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_25); -lean::cnstr_set(x_34, 1, x_33); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_23); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_17); -lean::cnstr_set(x_36, 1, x_35); -x_37 = l_lean_parser_term_let; -x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); -return x_38; +x_14 = l_lean_parser_term_let__lhs_has__view; +x_15 = lean::cnstr_get(x_14, 1); +lean::inc(x_15); +lean::dec(x_14); +x_18 = lean::apply_1(x_15, x_3); +x_19 = lean::box(0); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_11); +lean::cnstr_set(x_20, 1, x_19); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_24 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_20); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_7); +lean::cnstr_set(x_26, 1, x_25); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_24); +lean::cnstr_set(x_27, 1, x_26); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_18); +lean::cnstr_set(x_28, 1, x_27); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_24); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_term_let; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_32 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_34 = x_9; +} else { + lean::inc(x_32); + lean::dec(x_9); + x_34 = lean::box(0); +} +x_35 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_35, 0, x_32); +if (lean::is_scalar(x_34)) { + x_36 = lean::alloc_cnstr(1, 1, 0); +} else { + x_36 = x_34; +} +lean::cnstr_set(x_36, 0, x_35); +x_37 = lean::box(3); +x_38 = l_option_get__or__else___main___rarg(x_36, x_37); +lean::dec(x_36); +x_40 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_40, 0, x_38); +lean::cnstr_set(x_40, 1, x_20); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_7); +lean::cnstr_set(x_41, 1, x_40); +x_42 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_41); +x_44 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_44, 0, x_18); +lean::cnstr_set(x_44, 1, x_43); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_42); +lean::cnstr_set(x_45, 1, x_44); +x_46 = l_lean_parser_term_let; +x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); +return x_47; +} +} +else +{ +obj* x_48; obj* x_51; +x_48 = lean::cnstr_get(x_5, 0); +lean::inc(x_48); +lean::dec(x_5); +x_51 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_21 = x_51; +x_22 = x_48; +goto lbl_23; +} +} +else +{ +obj* x_52; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_52 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_54 = x_1; +} else { + lean::inc(x_52); + lean::dec(x_1); + x_54 = lean::box(0); +} +x_55 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_55, 0, x_52); +if (lean::is_scalar(x_54)) { + x_56 = lean::alloc_cnstr(1, 1, 0); +} else { + x_56 = x_54; +} +lean::cnstr_set(x_56, 0, x_55); +x_57 = lean::box(3); +x_58 = l_option_get__or__else___main___rarg(x_56, x_57); +lean::dec(x_56); +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; +x_60 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_61 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_61, 0, x_60); +lean::cnstr_set(x_61, 1, x_20); +x_62 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_62, 0, x_7); +lean::cnstr_set(x_62, 1, x_61); +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_60); +lean::cnstr_set(x_63, 1, x_62); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_18); +lean::cnstr_set(x_64, 1, x_63); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_58); +lean::cnstr_set(x_65, 1, x_64); +x_66 = l_lean_parser_term_let; +x_67 = l_lean_parser_syntax_mk__node(x_66, x_65); +return x_67; +} +else +{ +obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_68 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_70 = x_9; +} else { + lean::inc(x_68); + lean::dec(x_9); + x_70 = lean::box(0); +} +x_71 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_71, 0, x_68); +if (lean::is_scalar(x_70)) { + x_72 = lean::alloc_cnstr(1, 1, 0); +} else { + x_72 = x_70; +} +lean::cnstr_set(x_72, 0, x_71); +x_73 = l_option_get__or__else___main___rarg(x_72, x_57); +lean::dec(x_72); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_73); +lean::cnstr_set(x_75, 1, x_20); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_7); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_77); +lean::cnstr_set(x_78, 1, x_76); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_18); +lean::cnstr_set(x_79, 1, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_58); +lean::cnstr_set(x_80, 1, x_79); +x_81 = l_lean_parser_term_let; +x_82 = l_lean_parser_syntax_mk__node(x_81, x_80); +return x_82; +} +} +else +{ +obj* x_83; +x_83 = lean::cnstr_get(x_5, 0); +lean::inc(x_83); +lean::dec(x_5); +x_21 = x_58; +x_22 = x_83; +goto lbl_23; +} +} +lbl_23: +{ +obj* x_86; obj* x_87; obj* x_88; obj* x_89; +x_86 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_86, 0, x_22); +x_87 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_87, 0, x_86); +x_88 = lean::box(3); +x_89 = l_option_get__or__else___main___rarg(x_87, x_88); +lean::dec(x_87); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_91; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_97; obj* x_98; +x_91 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_92 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_92, 0, x_91); +lean::cnstr_set(x_92, 1, x_20); +x_93 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_93, 0, x_7); +lean::cnstr_set(x_93, 1, x_92); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_89); +lean::cnstr_set(x_94, 1, x_93); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_18); +lean::cnstr_set(x_95, 1, x_94); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_21); +lean::cnstr_set(x_96, 1, x_95); +x_97 = l_lean_parser_term_let; +x_98 = l_lean_parser_syntax_mk__node(x_97, x_96); +return x_98; +} +else +{ +obj* x_99; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_106; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_112; +x_99 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_101 = x_9; +} else { + lean::inc(x_99); + lean::dec(x_9); + x_101 = lean::box(0); +} +x_102 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_102, 0, x_99); +if (lean::is_scalar(x_101)) { + x_103 = lean::alloc_cnstr(1, 1, 0); +} else { + x_103 = x_101; +} +lean::cnstr_set(x_103, 0, x_102); +x_104 = l_option_get__or__else___main___rarg(x_103, x_88); +lean::dec(x_103); +x_106 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_106, 0, x_104); +lean::cnstr_set(x_106, 1, x_20); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_7); +lean::cnstr_set(x_107, 1, x_106); +x_108 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_108, 0, x_89); +lean::cnstr_set(x_108, 1, x_107); +x_109 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_109, 0, x_18); +lean::cnstr_set(x_109, 1, x_108); +x_110 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_110, 0, x_21); +lean::cnstr_set(x_110, 1, x_109); +x_111 = l_lean_parser_term_let; +x_112 = l_lean_parser_syntax_mk__node(x_111, x_110); +return x_112; +} +} } } obj* _init_l_lean_parser_term_let_has__view_x_27() { @@ -30613,7 +33347,7 @@ return x_63; obj* l_lean_parser_term_opt__ident_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -30621,21 +33355,50 @@ lean::inc(x_3); lean::dec(x_0); x_6 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_6, 0, x_1); -x_7 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_8 = l_option_map___rarg(x_7, x_3); -x_9 = lean::box(3); -x_10 = l_option_get__or__else___main___rarg(x_8, x_9); -lean::dec(x_8); -x_12 = lean::box(0); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_10); -lean::cnstr_set(x_13, 1, x_12); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_6); -lean::cnstr_set(x_14, 1, x_13); -x_15 = l_lean_parser_term_opt__ident; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -return x_16; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_7 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_7); +x_9 = l_lean_parser_term_opt__ident; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +return x_10; +} +else +{ +obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_11 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_13 = x_3; +} else { + lean::inc(x_11); + lean::dec(x_3); + x_13 = lean::box(0); +} +x_14 = lean::box(0); +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_11); +if (lean::is_scalar(x_13)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_13; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_14); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_6); +lean::cnstr_set(x_21, 1, x_20); +x_22 = l_lean_parser_term_opt__ident; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} } } obj* _init_l_lean_parser_term_opt__ident_has__view_x_27() { @@ -30965,27 +33728,56 @@ return x_51; obj* l_lean_parser_term_have__term_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_have__term; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_have__term; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_have__term; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_have__term_has__view_x_27() { @@ -31295,32 +34087,61 @@ return x_55; obj* l_lean_parser_term_have__from_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_10; obj* x_11; obj* x_12; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = l_lean_parser_term_from_has__view; -x_12 = lean::cnstr_get(x_11, 1); -lean::inc(x_12); -lean::dec(x_11); -x_15 = lean::apply_1(x_12, x_3); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_15); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_9); -lean::cnstr_set(x_18, 1, x_17); -x_19 = l_lean_parser_term_have__from; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -return x_20; +x_6 = l_lean_parser_term_from_has__view; +x_7 = lean::cnstr_get(x_6, 1); +lean::inc(x_7); +lean::dec(x_6); +x_10 = lean::apply_1(x_7, x_3); +x_11 = lean::box(0); +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_10); +lean::cnstr_set(x_12, 1, x_11); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_13; obj* x_14; obj* x_15; obj* x_16; +x_13 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_12); +x_15 = l_lean_parser_term_have__from; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +return x_16; +} +else +{ +obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_25; obj* x_26; obj* x_27; +x_17 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_19 = x_1; +} else { + lean::inc(x_17); + lean::dec(x_1); + x_19 = lean::box(0); +} +x_20 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_20, 0, x_17); +if (lean::is_scalar(x_19)) { + x_21 = lean::alloc_cnstr(1, 1, 0); +} else { + x_21 = x_19; +} +lean::cnstr_set(x_21, 0, x_20); +x_22 = lean::box(3); +x_23 = l_option_get__or__else___main___rarg(x_21, x_22); +lean::dec(x_21); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_23); +lean::cnstr_set(x_25, 1, x_12); +x_26 = l_lean_parser_term_have__from; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_term_have__from_has__view_x_27() { @@ -31646,7 +34467,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -32443,7 +35264,7 @@ return x_128; obj* l_lean_parser_term_have_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -32457,71 +35278,277 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_0, 5); lean::inc(x_11); lean::dec(x_0); -x_14 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_15 = l_option_map___rarg(x_14, x_1); -x_16 = lean::box(3); -x_17 = l_option_get__or__else___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = l_lean_parser_term_have__proof_has__view; -x_20 = lean::cnstr_get(x_19, 1); -lean::inc(x_20); -lean::dec(x_19); -x_23 = lean::apply_1(x_20, x_7); -x_24 = l_option_map___rarg(x_14, x_9); -x_25 = l_option_get__or__else___main___rarg(x_24, x_16); -lean::dec(x_24); -x_27 = lean::box(0); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_11); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_25); -lean::cnstr_set(x_29, 1, x_28); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_23); -lean::cnstr_set(x_30, 1, x_29); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_5); -lean::cnstr_set(x_31, 1, x_30); +x_14 = l_lean_parser_term_have__proof_has__view; +x_15 = lean::cnstr_get(x_14, 1); +lean::inc(x_15); +lean::dec(x_14); +x_18 = lean::apply_1(x_15, x_7); +x_19 = lean::box(0); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_11); +lean::cnstr_set(x_20, 1, x_19); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_3) == 0) { -obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; -x_32 = l_lean_parser_combinators_many___rarg___closed__1; -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_32); -lean::cnstr_set(x_33, 1, x_31); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_17); -lean::cnstr_set(x_34, 1, x_33); -x_35 = l_lean_parser_term_have; -x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); -return x_36; +if (lean::obj_tag(x_9) == 0) +{ +obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_24 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_24); +lean::cnstr_set(x_25, 1, x_20); +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_18); +lean::cnstr_set(x_26, 1, x_25); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_5); +lean::cnstr_set(x_27, 1, x_26); +x_28 = l_lean_parser_combinators_many___rarg___closed__1; +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_28); +lean::cnstr_set(x_29, 1, x_27); +x_30 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_30, 0, x_24); +lean::cnstr_set(x_30, 1, x_29); +x_31 = l_lean_parser_term_have; +x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); +return x_32; } else { -obj* x_37; obj* x_40; obj* x_41; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_37 = lean::cnstr_get(x_3, 0); -lean::inc(x_37); -lean::dec(x_3); -x_40 = l_lean_parser_term_opt__ident_has__view; -x_41 = lean::cnstr_get(x_40, 1); -lean::inc(x_41); -lean::dec(x_40); -x_44 = lean::apply_1(x_41, x_37); +obj* x_33; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_33 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_35 = x_9; +} else { + lean::inc(x_33); + lean::dec(x_9); + x_35 = lean::box(0); +} +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_33); +if (lean::is_scalar(x_35)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_35; +} +lean::cnstr_set(x_37, 0, x_36); +x_38 = lean::box(3); +x_39 = l_option_get__or__else___main___rarg(x_37, x_38); +lean::dec(x_37); +x_41 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_41, 0, x_39); +lean::cnstr_set(x_41, 1, x_20); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_18); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_5); +lean::cnstr_set(x_43, 1, x_42); +x_44 = l_lean_parser_combinators_many___rarg___closed__1; x_45 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_27); -x_46 = l_lean_parser_no__kind; -x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_47); -lean::cnstr_set(x_48, 1, x_31); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_17); -lean::cnstr_set(x_49, 1, x_48); -x_50 = l_lean_parser_term_have; -x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); -return x_51; +lean::cnstr_set(x_45, 1, x_43); +x_46 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_45); +x_48 = l_lean_parser_term_have; +x_49 = l_lean_parser_syntax_mk__node(x_48, x_47); +return x_49; +} +} +else +{ +obj* x_50; obj* x_53; +x_50 = lean::cnstr_get(x_3, 0); +lean::inc(x_50); +lean::dec(x_3); +x_53 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_21 = x_53; +x_22 = x_50; +goto lbl_23; +} +} +else +{ +obj* x_54; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; +x_54 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_56 = x_1; +} else { + lean::inc(x_54); + lean::dec(x_1); + x_56 = lean::box(0); +} +x_57 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_57, 0, x_54); +if (lean::is_scalar(x_56)) { + x_58 = lean::alloc_cnstr(1, 1, 0); +} else { + x_58 = x_56; +} +lean::cnstr_set(x_58, 0, x_57); +x_59 = lean::box(3); +x_60 = l_option_get__or__else___main___rarg(x_58, x_59); +lean::dec(x_58); +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_9) == 0) +{ +obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; +x_62 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_63 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_63, 0, x_62); +lean::cnstr_set(x_63, 1, x_20); +x_64 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_64, 0, x_18); +lean::cnstr_set(x_64, 1, x_63); +x_65 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_65, 0, x_5); +lean::cnstr_set(x_65, 1, x_64); +x_66 = l_lean_parser_combinators_many___rarg___closed__1; +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_66); +lean::cnstr_set(x_67, 1, x_65); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_60); +lean::cnstr_set(x_68, 1, x_67); +x_69 = l_lean_parser_term_have; +x_70 = l_lean_parser_syntax_mk__node(x_69, x_68); +return x_70; +} +else +{ +obj* x_71; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; +x_71 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_73 = x_9; +} else { + lean::inc(x_71); + lean::dec(x_9); + x_73 = lean::box(0); +} +x_74 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_74, 0, x_71); +if (lean::is_scalar(x_73)) { + x_75 = lean::alloc_cnstr(1, 1, 0); +} else { + x_75 = x_73; +} +lean::cnstr_set(x_75, 0, x_74); +x_76 = l_option_get__or__else___main___rarg(x_75, x_59); +lean::dec(x_75); +x_78 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_78, 0, x_76); +lean::cnstr_set(x_78, 1, x_20); +x_79 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_79, 0, x_18); +lean::cnstr_set(x_79, 1, x_78); +x_80 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_80, 0, x_5); +lean::cnstr_set(x_80, 1, x_79); +x_81 = l_lean_parser_combinators_many___rarg___closed__1; +x_82 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_82, 0, x_81); +lean::cnstr_set(x_82, 1, x_80); +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_60); +lean::cnstr_set(x_83, 1, x_82); +x_84 = l_lean_parser_term_have; +x_85 = l_lean_parser_syntax_mk__node(x_84, x_83); +return x_85; +} +} +else +{ +obj* x_86; +x_86 = lean::cnstr_get(x_3, 0); +lean::inc(x_86); +lean::dec(x_3); +x_21 = x_60; +x_22 = x_86; +goto lbl_23; +} +} +lbl_23: +{ +obj* x_89; obj* x_90; obj* x_93; obj* x_94; obj* x_95; obj* x_96; +x_89 = l_lean_parser_term_opt__ident_has__view; +x_90 = lean::cnstr_get(x_89, 1); +lean::inc(x_90); +lean::dec(x_89); +x_93 = lean::apply_1(x_90, x_22); +x_94 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_94, 0, x_93); +lean::cnstr_set(x_94, 1, x_19); +x_95 = l_lean_parser_no__kind; +x_96 = l_lean_parser_syntax_mk__node(x_95, x_94); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_97 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_97); +lean::cnstr_set(x_98, 1, x_20); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_18); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_5); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_96); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_21); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_lean_parser_term_have; +x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); +return x_104; +} +else +{ +obj* x_105; obj* x_107; obj* x_108; obj* x_109; obj* x_110; obj* x_111; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_117; obj* x_118; obj* x_119; +x_105 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_107 = x_9; +} else { + lean::inc(x_105); + lean::dec(x_9); + x_107 = lean::box(0); +} +x_108 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_108, 0, x_105); +if (lean::is_scalar(x_107)) { + x_109 = lean::alloc_cnstr(1, 1, 0); +} else { + x_109 = x_107; +} +lean::cnstr_set(x_109, 0, x_108); +x_110 = lean::box(3); +x_111 = l_option_get__or__else___main___rarg(x_109, x_110); +lean::dec(x_109); +x_113 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_113, 0, x_111); +lean::cnstr_set(x_113, 1, x_20); +x_114 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_114, 0, x_18); +lean::cnstr_set(x_114, 1, x_113); +x_115 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_115, 0, x_5); +lean::cnstr_set(x_115, 1, x_114); +x_116 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_116, 0, x_96); +lean::cnstr_set(x_116, 1, x_115); +x_117 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_117, 0, x_21); +lean::cnstr_set(x_117, 1, x_116); +x_118 = l_lean_parser_term_have; +x_119 = l_lean_parser_syntax_mk__node(x_118, x_117); +return x_119; +} } } } @@ -33262,7 +36289,7 @@ return x_84; obj* l_lean_parser_term_show_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_10; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -33272,35 +36299,145 @@ lean::inc(x_5); x_7 = lean::cnstr_get(x_0, 3); lean::inc(x_7); lean::dec(x_0); -x_10 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_11 = l_option_map___rarg(x_10, x_1); -x_12 = lean::box(3); -x_13 = l_option_get__or__else___main___rarg(x_11, x_12); -lean::dec(x_11); -x_15 = l_option_map___rarg(x_10, x_5); -x_16 = l_option_get__or__else___main___rarg(x_15, x_12); -lean::dec(x_15); -x_18 = l_lean_parser_term_from_has__view; -x_19 = lean::cnstr_get(x_18, 1); -lean::inc(x_19); -lean::dec(x_18); -x_22 = lean::apply_1(x_19, x_7); -x_23 = lean::box(0); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_23); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_16); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_3); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_13); -lean::cnstr_set(x_27, 1, x_26); -x_28 = l_lean_parser_term_show; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +x_10 = l_lean_parser_term_from_has__view; +x_11 = lean::cnstr_get(x_10, 1); +lean::inc(x_11); +lean::dec(x_10); +x_14 = lean::apply_1(x_11, x_7); +x_15 = lean::box(0); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_14); +lean::cnstr_set(x_16, 1, x_15); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +x_17 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_17); +lean::cnstr_set(x_18, 1, x_16); +x_19 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_19, 0, x_3); +lean::cnstr_set(x_19, 1, x_18); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_17); +lean::cnstr_set(x_20, 1, x_19); +x_21 = l_lean_parser_term_show; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} +else +{ +obj* x_23; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; +x_23 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_25 = x_5; +} else { + lean::inc(x_23); + lean::dec(x_5); + x_25 = lean::box(0); +} +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_23); +if (lean::is_scalar(x_25)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_25; +} +lean::cnstr_set(x_27, 0, x_26); +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_16); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_3); +lean::cnstr_set(x_32, 1, x_31); +x_33 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_32); +x_35 = l_lean_parser_term_show; +x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); +return x_36; +} +} +else +{ +obj* x_37; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; +x_37 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_39 = x_1; +} else { + lean::inc(x_37); + lean::dec(x_1); + x_39 = lean::box(0); +} +x_40 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_40, 0, x_37); +if (lean::is_scalar(x_39)) { + x_41 = lean::alloc_cnstr(1, 1, 0); +} else { + x_41 = x_39; +} +lean::cnstr_set(x_41, 0, x_40); +x_42 = lean::box(3); +x_43 = l_option_get__or__else___main___rarg(x_41, x_42); +lean::dec(x_41); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_45 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_45); +lean::cnstr_set(x_46, 1, x_16); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_3); +lean::cnstr_set(x_47, 1, x_46); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_43); +lean::cnstr_set(x_48, 1, x_47); +x_49 = l_lean_parser_term_show; +x_50 = l_lean_parser_syntax_mk__node(x_49, x_48); +return x_50; +} +else +{ +obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_58; obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_51 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_53 = x_5; +} else { + lean::inc(x_51); + lean::dec(x_5); + x_53 = lean::box(0); +} +x_54 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_54, 0, x_51); +if (lean::is_scalar(x_53)) { + x_55 = lean::alloc_cnstr(1, 1, 0); +} else { + x_55 = x_53; +} +lean::cnstr_set(x_55, 0, x_54); +x_56 = l_option_get__or__else___main___rarg(x_55, x_42); +lean::dec(x_55); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_56); +lean::cnstr_set(x_58, 1, x_16); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_3); +lean::cnstr_set(x_59, 1, x_58); +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_43); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_lean_parser_term_show; +x_62 = l_lean_parser_syntax_mk__node(x_61, x_60); +return x_62; +} +} } } obj* _init_l_lean_parser_term_show_has__view_x_27() { @@ -33515,30 +36652,64 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; x_16 = lean::cnstr_get(x_9, 0); lean::inc(x_16); lean::dec(x_9); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::box(0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; obj* x_20; obj* x_21; +x_19 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_25 = lean::alloc_cnstr(1, 2, 0); + x_20 = lean::alloc_cnstr(1, 2, 0); } else { - x_25 = x_6; + x_20 = x_6; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_12); +return x_21; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_24 = x_16; +} else { + lean::inc(x_22); + lean::dec(x_16); + x_24 = lean::box(0); +} +x_25 = lean::box(0); +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_22); +if (lean::is_scalar(x_24)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_24; } -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_12); -return x_27; +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +if (lean::is_scalar(x_6)) { + x_31 = lean::alloc_cnstr(1, 2, 0); +} else { + x_31 = x_6; +} +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_25); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_7); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_12); +return x_33; +} } } } @@ -34186,7 +37357,7 @@ return x_114; obj* l_lean_parser_term_match__equation_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -34198,24 +37369,56 @@ x_8 = l_list_map___main___at_lean_parser_term_match__equation_has__view_x_27___s x_9 = l_list_join___main___rarg(x_8); x_10 = l_lean_parser_no__kind; x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_3); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = lean::box(0); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_5); -lean::cnstr_set(x_18, 1, x_17); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_15); -lean::cnstr_set(x_19, 1, x_18); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_11); -lean::cnstr_set(x_20, 1, x_19); -x_21 = l_lean_parser_term_match__equation; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -return x_22; +x_12 = lean::box(0); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_5); +lean::cnstr_set(x_13, 1, x_12); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +x_14 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_15 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_15, 0, x_14); +lean::cnstr_set(x_15, 1, x_13); +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_11); +lean::cnstr_set(x_16, 1, x_15); +x_17 = l_lean_parser_term_match__equation; +x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); +return x_18; +} +else +{ +obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +x_19 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_21 = x_3; +} else { + lean::inc(x_19); + lean::dec(x_3); + x_21 = lean::box(0); +} +x_22 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_22, 0, x_19); +if (lean::is_scalar(x_21)) { + x_23 = lean::alloc_cnstr(1, 1, 0); +} else { + x_23 = x_21; +} +lean::cnstr_set(x_23, 0, x_22); +x_24 = lean::box(3); +x_25 = l_option_get__or__else___main___rarg(x_23, x_24); +lean::dec(x_23); +x_27 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_27, 0, x_25); +lean::cnstr_set(x_27, 1, x_13); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_11); +lean::cnstr_set(x_28, 1, x_27); +x_29 = l_lean_parser_term_match__equation; +x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); +return x_30; +} } } obj* _init_l_lean_parser_term_match__equation_has__view_x_27() { @@ -34466,30 +37669,64 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +obj* x_16; x_16 = lean::cnstr_get(x_9, 0); lean::inc(x_16); lean::dec(x_9); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::box(0); +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; obj* x_20; obj* x_21; +x_19 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_25 = lean::alloc_cnstr(1, 2, 0); + x_20 = lean::alloc_cnstr(1, 2, 0); } else { - x_25 = x_6; + x_20 = x_6; +} +lean::cnstr_set(x_20, 0, x_7); +lean::cnstr_set(x_20, 1, x_19); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_12); +return x_21; +} +else +{ +obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_31; obj* x_32; obj* x_33; +x_22 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_24 = x_16; +} else { + lean::inc(x_22); + lean::dec(x_16); + x_24 = lean::box(0); +} +x_25 = lean::box(0); +x_26 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_26, 0, x_22); +if (lean::is_scalar(x_24)) { + x_27 = lean::alloc_cnstr(1, 1, 0); +} else { + x_27 = x_24; } -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_7); -lean::cnstr_set(x_26, 1, x_25); -x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_12); -return x_27; +x_28 = lean::box(3); +x_29 = l_option_get__or__else___main___rarg(x_27, x_28); +lean::dec(x_27); +if (lean::is_scalar(x_6)) { + x_31 = lean::alloc_cnstr(1, 2, 0); +} else { + x_31 = x_6; +} +lean::cnstr_set(x_31, 0, x_29); +lean::cnstr_set(x_31, 1, x_25); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_7); +lean::cnstr_set(x_32, 1, x_31); +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_32); +lean::cnstr_set(x_33, 1, x_12); +return x_33; +} } } } @@ -34547,7 +37784,7 @@ return x_20; } else { -obj* x_21; obj* x_24; obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +obj* x_21; obj* x_24; obj* x_25; obj* x_28; x_21 = lean::cnstr_get(x_9, 0); lean::inc(x_21); lean::dec(x_9); @@ -34556,26 +37793,60 @@ x_25 = lean::cnstr_get(x_24, 1); lean::inc(x_25); lean::dec(x_24); x_28 = lean::apply_1(x_25, x_7); -x_29 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_30 = l_option_map___rarg(x_29, x_21); -x_31 = lean::box(3); -x_32 = l_option_get__or__else___main___rarg(x_30, x_31); -lean::dec(x_30); -x_34 = lean::box(0); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_35 = lean::alloc_cnstr(1, 2, 0); + x_30 = lean::alloc_cnstr(1, 2, 0); } else { - x_35 = x_6; + x_30 = x_6; +} +lean::cnstr_set(x_30, 0, x_28); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_12); +return x_31; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; +x_32 = lean::cnstr_get(x_21, 0); +if (lean::is_exclusive(x_21)) { + x_34 = x_21; +} else { + lean::inc(x_32); + lean::dec(x_21); + x_34 = lean::box(0); +} +x_35 = lean::box(0); +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_32); +if (lean::is_scalar(x_34)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_34; } -lean::cnstr_set(x_35, 0, x_32); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_28); -lean::cnstr_set(x_36, 1, x_35); -x_37 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_12); -return x_37; +x_38 = lean::box(3); +x_39 = l_option_get__or__else___main___rarg(x_37, x_38); +lean::dec(x_37); +if (lean::is_scalar(x_6)) { + x_41 = lean::alloc_cnstr(1, 2, 0); +} else { + x_41 = x_6; +} +lean::cnstr_set(x_41, 0, x_39); +lean::cnstr_set(x_41, 1, x_35); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_28); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_12); +return x_43; +} } } } @@ -35476,7 +38747,7 @@ return x_157; obj* l_lean_parser_term_match_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -35490,153 +38761,245 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_0, 5); lean::inc(x_11); lean::dec(x_0); -x_14 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_15 = l_option_map___rarg(x_14, x_1); -x_16 = lean::box(3); -x_17 = l_option_get__or__else___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = l_list_map___main___at_lean_parser_term_match_has__view_x_27___spec__3(x_3); -x_20 = l_list_join___main___rarg(x_19); -x_21 = l_lean_parser_no__kind; -x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); -x_23 = l_option_map___rarg(x_14, x_7); -x_24 = l_option_get__or__else___main___rarg(x_23, x_16); -lean::dec(x_23); -x_26 = l_list_map___main___at_lean_parser_term_match_has__view_x_27___spec__4(x_11); -x_27 = l_list_join___main___rarg(x_26); -x_28 = l_lean_parser_syntax_mk__node(x_21, x_27); -x_29 = lean::box(0); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_28); -lean::cnstr_set(x_30, 1, x_29); +x_14 = l_list_map___main___at_lean_parser_term_match_has__view_x_27___spec__3(x_3); +x_15 = l_list_join___main___rarg(x_14); +x_16 = l_lean_parser_no__kind; +x_17 = l_lean_parser_syntax_mk__node(x_16, x_15); +x_18 = l_list_map___main___at_lean_parser_term_match_has__view_x_27___spec__4(x_11); +x_19 = l_list_join___main___rarg(x_18); +x_20 = l_lean_parser_syntax_mk__node(x_16, x_19); +x_21 = lean::box(0); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_20); +lean::cnstr_set(x_22, 1, x_21); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_25; +x_25 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_23 = x_25; +goto lbl_24; +} +else +{ +obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +x_26 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_28 = x_1; +} else { + lean::inc(x_26); + lean::dec(x_1); + x_28 = lean::box(0); +} +x_29 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_29, 0, x_26); +if (lean::is_scalar(x_28)) { + x_30 = lean::alloc_cnstr(1, 1, 0); +} else { + x_30 = x_28; +} +lean::cnstr_set(x_30, 0, x_29); +x_31 = lean::box(3); +x_32 = l_option_get__or__else___main___rarg(x_30, x_31); +lean::dec(x_30); +x_23 = x_32; +goto lbl_24; +} +lbl_24: +{ +obj* x_34; if (lean::obj_tag(x_5) == 0) { -if (lean::obj_tag(x_9) == 0) -{ -obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; -x_31 = l_lean_parser_combinators_many___rarg___closed__1; -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_31); -lean::cnstr_set(x_32, 1, x_30); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_24); -lean::cnstr_set(x_33, 1, x_32); -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_31); -lean::cnstr_set(x_34, 1, x_33); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_22); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_17); -lean::cnstr_set(x_36, 1, x_35); -x_37 = l_lean_parser_term_match; -x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); -return x_38; +obj* x_36; +x_36 = l_lean_parser_combinators_many___rarg___closed__1; +x_34 = x_36; +goto lbl_35; } else { -obj* x_39; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; -x_39 = lean::cnstr_get(x_9, 0); -lean::inc(x_39); -lean::dec(x_9); -x_42 = l_option_map___rarg(x_14, x_39); -x_43 = l_option_get__or__else___main___rarg(x_42, x_16); -lean::dec(x_42); -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_43); -lean::cnstr_set(x_45, 1, x_29); -x_46 = l_lean_parser_syntax_mk__node(x_21, x_45); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_30); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_24); -lean::cnstr_set(x_48, 1, x_47); -x_49 = l_lean_parser_combinators_many___rarg___closed__1; -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_49); -lean::cnstr_set(x_50, 1, x_48); -x_51 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_51, 0, x_22); -lean::cnstr_set(x_51, 1, x_50); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_17); -lean::cnstr_set(x_52, 1, x_51); -x_53 = l_lean_parser_term_match; -x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); -return x_54; -} -} -else -{ -obj* x_55; obj* x_58; obj* x_59; obj* x_62; obj* x_63; obj* x_64; -x_55 = lean::cnstr_get(x_5, 0); -lean::inc(x_55); +obj* x_37; obj* x_40; obj* x_41; obj* x_44; obj* x_45; obj* x_46; +x_37 = lean::cnstr_get(x_5, 0); +lean::inc(x_37); lean::dec(x_5); -x_58 = l_lean_parser_term_type__spec_has__view; -x_59 = lean::cnstr_get(x_58, 1); -lean::inc(x_59); -lean::dec(x_58); -x_62 = lean::apply_1(x_59, x_55); -x_63 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_63, 0, x_62); -lean::cnstr_set(x_63, 1, x_29); -x_64 = l_lean_parser_syntax_mk__node(x_21, x_63); +x_40 = l_lean_parser_term_type__spec_has__view; +x_41 = lean::cnstr_get(x_40, 1); +lean::inc(x_41); +lean::dec(x_40); +x_44 = lean::apply_1(x_41, x_37); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_21); +x_46 = l_lean_parser_syntax_mk__node(x_16, x_45); +x_34 = x_46; +goto lbl_35; +} +lbl_35: +{ +obj* x_47; obj* x_48; +if (lean::obj_tag(x_7) == 0) +{ if (lean::obj_tag(x_9) == 0) { -obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; -x_65 = l_lean_parser_combinators_many___rarg___closed__1; -x_66 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_66, 0, x_65); -lean::cnstr_set(x_66, 1, x_30); -x_67 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_67, 0, x_24); -lean::cnstr_set(x_67, 1, x_66); -x_68 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_68, 0, x_64); -lean::cnstr_set(x_68, 1, x_67); -x_69 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_69, 0, x_22); -lean::cnstr_set(x_69, 1, x_68); -x_70 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_70, 0, x_17); -lean::cnstr_set(x_70, 1, x_69); -x_71 = l_lean_parser_term_match; -x_72 = l_lean_parser_syntax_mk__node(x_71, x_70); -return x_72; +obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; +x_50 = l_lean_parser_combinators_many___rarg___closed__1; +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_50); +lean::cnstr_set(x_51, 1, x_22); +x_52 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_51); +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_34); +lean::cnstr_set(x_54, 1, x_53); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_17); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_23); +lean::cnstr_set(x_56, 1, x_55); +x_57 = l_lean_parser_term_match; +x_58 = l_lean_parser_syntax_mk__node(x_57, x_56); +return x_58; } else { -obj* x_73; obj* x_76; obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; -x_73 = lean::cnstr_get(x_9, 0); -lean::inc(x_73); +obj* x_59; obj* x_62; +x_59 = lean::cnstr_get(x_9, 0); +lean::inc(x_59); lean::dec(x_9); -x_76 = l_option_map___rarg(x_14, x_73); -x_77 = l_option_get__or__else___main___rarg(x_76, x_16); -lean::dec(x_76); -x_79 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_79, 0, x_77); -lean::cnstr_set(x_79, 1, x_29); -x_80 = l_lean_parser_syntax_mk__node(x_21, x_79); -x_81 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_81, 0, x_80); -lean::cnstr_set(x_81, 1, x_30); -x_82 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_82, 0, x_24); -lean::cnstr_set(x_82, 1, x_81); +x_62 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_47 = x_62; +x_48 = x_59; +goto lbl_49; +} +} +else +{ +obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_69; +x_63 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_65 = x_7; +} else { + lean::inc(x_63); + lean::dec(x_7); + x_65 = lean::box(0); +} +x_66 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_66, 0, x_63); +if (lean::is_scalar(x_65)) { + x_67 = lean::alloc_cnstr(1, 1, 0); +} else { + x_67 = x_65; +} +lean::cnstr_set(x_67, 0, x_66); +x_68 = lean::box(3); +x_69 = l_option_get__or__else___main___rarg(x_67, x_68); +lean::dec(x_67); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_71 = l_lean_parser_combinators_many___rarg___closed__1; +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_22); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_69); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_34); +lean::cnstr_set(x_74, 1, x_73); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_17); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_23); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_lean_parser_term_match; +x_78 = l_lean_parser_syntax_mk__node(x_77, x_76); +return x_78; +} +else +{ +obj* x_79; +x_79 = lean::cnstr_get(x_9, 0); +lean::inc(x_79); +lean::dec(x_9); +x_47 = x_69; +x_48 = x_79; +goto lbl_49; +} +} +lbl_49: +{ +if (lean::obj_tag(x_48) == 0) +{ +obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +x_82 = l_lean_parser_command_notation_has__view_x_27___lambda__2___closed__1; x_83 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_83, 0, x_64); -lean::cnstr_set(x_83, 1, x_82); +lean::cnstr_set(x_83, 0, x_82); +lean::cnstr_set(x_83, 1, x_22); x_84 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_84, 0, x_22); +lean::cnstr_set(x_84, 0, x_47); lean::cnstr_set(x_84, 1, x_83); x_85 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_85, 0, x_17); +lean::cnstr_set(x_85, 0, x_34); lean::cnstr_set(x_85, 1, x_84); -x_86 = l_lean_parser_term_match; -x_87 = l_lean_parser_syntax_mk__node(x_86, x_85); -return x_87; +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_17); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_23); +lean::cnstr_set(x_87, 1, x_86); +x_88 = l_lean_parser_term_match; +x_89 = l_lean_parser_syntax_mk__node(x_88, x_87); +return x_89; +} +else +{ +obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_96; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; +x_90 = lean::cnstr_get(x_48, 0); +if (lean::is_exclusive(x_48)) { + x_92 = x_48; +} else { + lean::inc(x_90); + lean::dec(x_48); + x_92 = lean::box(0); +} +x_93 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_93, 0, x_90); +if (lean::is_scalar(x_92)) { + x_94 = lean::alloc_cnstr(1, 1, 0); +} else { + x_94 = x_92; +} +lean::cnstr_set(x_94, 0, x_93); +x_95 = lean::box(3); +x_96 = l_option_get__or__else___main___rarg(x_94, x_95); +lean::dec(x_94); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_96); +lean::cnstr_set(x_98, 1, x_21); +x_99 = l_lean_parser_syntax_mk__node(x_16, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_99); +lean::cnstr_set(x_100, 1, x_22); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_47); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_34); +lean::cnstr_set(x_102, 1, x_101); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_17); +lean::cnstr_set(x_103, 1, x_102); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_23); +lean::cnstr_set(x_104, 1, x_103); +x_105 = l_lean_parser_term_match; +x_106 = l_lean_parser_syntax_mk__node(x_105, x_104); +return x_106; +} +} } } } @@ -36816,7 +40179,7 @@ return x_141; obj* l_lean_parser_term_if_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_13; obj* x_16; obj* x_17; obj* x_18; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -36832,72 +40195,252 @@ lean::inc(x_11); x_13 = lean::cnstr_get(x_0, 6); lean::inc(x_13); lean::dec(x_0); -x_16 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_17 = l_option_map___rarg(x_16, x_1); -x_18 = lean::box(3); -x_19 = l_option_get__or__else___main___rarg(x_17, x_18); -lean::dec(x_17); -x_21 = l_option_map___rarg(x_16, x_7); -x_22 = l_option_get__or__else___main___rarg(x_21, x_18); -lean::dec(x_21); -x_24 = l_option_map___rarg(x_16, x_11); -x_25 = l_option_get__or__else___main___rarg(x_24, x_18); -lean::dec(x_24); -x_27 = lean::box(0); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_13); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_25); -lean::cnstr_set(x_29, 1, x_28); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_9); -lean::cnstr_set(x_30, 1, x_29); -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_22); -lean::cnstr_set(x_31, 1, x_30); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_5); -lean::cnstr_set(x_32, 1, x_31); -if (lean::obj_tag(x_3) == 0) +x_16 = lean::box(0); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_13); +lean::cnstr_set(x_17, 1, x_16); +if (lean::obj_tag(x_1) == 0) { -obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; -x_33 = l_lean_parser_combinators_many___rarg___closed__1; -x_34 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_34, 0, x_33); -lean::cnstr_set(x_34, 1, x_32); -x_35 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_35, 0, x_19); -lean::cnstr_set(x_35, 1, x_34); -x_36 = l_lean_parser_term_if; -x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); -return x_37; +obj* x_20; +x_20 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_18 = x_20; +goto lbl_19; } else { -obj* x_38; obj* x_41; obj* x_42; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; -x_38 = lean::cnstr_get(x_3, 0); -lean::inc(x_38); +obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_21 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_23 = x_1; +} else { + lean::inc(x_21); + lean::dec(x_1); + x_23 = lean::box(0); +} +x_24 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_24, 0, x_21); +if (lean::is_scalar(x_23)) { + x_25 = lean::alloc_cnstr(1, 1, 0); +} else { + x_25 = x_23; +} +lean::cnstr_set(x_25, 0, x_24); +x_26 = lean::box(3); +x_27 = l_option_get__or__else___main___rarg(x_25, x_26); +lean::dec(x_25); +x_18 = x_27; +goto lbl_19; +} +lbl_19: +{ +obj* x_29; obj* x_31; obj* x_32; +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_34; +x_34 = l_lean_parser_combinators_many___rarg___closed__1; +x_29 = x_34; +goto lbl_30; +} +else +{ +obj* x_35; obj* x_38; +x_35 = lean::cnstr_get(x_7, 0); +lean::inc(x_35); +lean::dec(x_7); +x_38 = l_lean_parser_combinators_many___rarg___closed__1; +x_31 = x_38; +x_32 = x_35; +goto lbl_33; +} +} +else +{ +obj* x_39; obj* x_42; obj* x_43; obj* x_46; obj* x_47; obj* x_48; obj* x_49; +x_39 = lean::cnstr_get(x_3, 0); +lean::inc(x_39); lean::dec(x_3); -x_41 = l_lean_parser_term_opt__ident_has__view; -x_42 = lean::cnstr_get(x_41, 1); -lean::inc(x_42); -lean::dec(x_41); -x_45 = lean::apply_1(x_42, x_38); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_45); -lean::cnstr_set(x_46, 1, x_27); -x_47 = l_lean_parser_no__kind; -x_48 = l_lean_parser_syntax_mk__node(x_47, x_46); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_48); -lean::cnstr_set(x_49, 1, x_32); -x_50 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_50, 0, x_19); -lean::cnstr_set(x_50, 1, x_49); -x_51 = l_lean_parser_term_if; -x_52 = l_lean_parser_syntax_mk__node(x_51, x_50); -return x_52; +x_42 = l_lean_parser_term_opt__ident_has__view; +x_43 = lean::cnstr_get(x_42, 1); +lean::inc(x_43); +lean::dec(x_42); +x_46 = lean::apply_1(x_43, x_39); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_46); +lean::cnstr_set(x_47, 1, x_16); +x_48 = l_lean_parser_no__kind; +x_49 = l_lean_parser_syntax_mk__node(x_48, x_47); +if (lean::obj_tag(x_7) == 0) +{ +x_29 = x_49; +goto lbl_30; +} +else +{ +obj* x_50; +x_50 = lean::cnstr_get(x_7, 0); +lean::inc(x_50); +lean::dec(x_7); +x_31 = x_49; +x_32 = x_50; +goto lbl_33; +} +} +lbl_30: +{ +if (lean::obj_tag(x_11) == 0) +{ +obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; obj* x_60; obj* x_61; +x_53 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_17); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_9); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_53); +lean::cnstr_set(x_56, 1, x_55); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_5); +lean::cnstr_set(x_57, 1, x_56); +x_58 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_58, 0, x_29); +lean::cnstr_set(x_58, 1, x_57); +x_59 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_59, 0, x_18); +lean::cnstr_set(x_59, 1, x_58); +x_60 = l_lean_parser_term_if; +x_61 = l_lean_parser_syntax_mk__node(x_60, x_59); +return x_61; +} +else +{ +obj* x_62; obj* x_64; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; +x_62 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_64 = x_11; +} else { + lean::inc(x_62); + lean::dec(x_11); + x_64 = lean::box(0); +} +x_65 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_65, 0, x_62); +if (lean::is_scalar(x_64)) { + x_66 = lean::alloc_cnstr(1, 1, 0); +} else { + x_66 = x_64; +} +lean::cnstr_set(x_66, 0, x_65); +x_67 = lean::box(3); +x_68 = l_option_get__or__else___main___rarg(x_66, x_67); +lean::dec(x_66); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_68); +lean::cnstr_set(x_70, 1, x_17); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_9); +lean::cnstr_set(x_71, 1, x_70); +x_72 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_72); +lean::cnstr_set(x_73, 1, x_71); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_5); +lean::cnstr_set(x_74, 1, x_73); +x_75 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_75, 0, x_29); +lean::cnstr_set(x_75, 1, x_74); +x_76 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_76, 0, x_18); +lean::cnstr_set(x_76, 1, x_75); +x_77 = l_lean_parser_term_if; +x_78 = l_lean_parser_syntax_mk__node(x_77, x_76); +return x_78; +} +} +lbl_33: +{ +obj* x_79; obj* x_80; obj* x_81; obj* x_82; +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_32); +x_80 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_80, 0, x_79); +x_81 = lean::box(3); +x_82 = l_option_get__or__else___main___rarg(x_80, x_81); +lean::dec(x_80); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_84 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_84); +lean::cnstr_set(x_85, 1, x_17); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_9); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_82); +lean::cnstr_set(x_87, 1, x_86); +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_5); +lean::cnstr_set(x_88, 1, x_87); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_31); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_18); +lean::cnstr_set(x_90, 1, x_89); +x_91 = l_lean_parser_term_if; +x_92 = l_lean_parser_syntax_mk__node(x_91, x_90); +return x_92; +} +else +{ +obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; +x_93 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_95 = x_11; +} else { + lean::inc(x_93); + lean::dec(x_11); + x_95 = lean::box(0); +} +x_96 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_96, 0, x_93); +if (lean::is_scalar(x_95)) { + x_97 = lean::alloc_cnstr(1, 1, 0); +} else { + x_97 = x_95; +} +lean::cnstr_set(x_97, 0, x_96); +x_98 = l_option_get__or__else___main___rarg(x_97, x_81); +lean::dec(x_97); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_98); +lean::cnstr_set(x_100, 1, x_17); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_9); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_82); +lean::cnstr_set(x_102, 1, x_101); +x_103 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_103, 0, x_5); +lean::cnstr_set(x_103, 1, x_102); +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_31); +lean::cnstr_set(x_104, 1, x_103); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_18); +lean::cnstr_set(x_105, 1, x_104); +x_106 = l_lean_parser_term_if; +x_107 = l_lean_parser_syntax_mk__node(x_106, x_105); +return x_107; +} +} } } } @@ -37458,7 +41001,7 @@ return x_63; obj* l_lean_parser_term_struct__inst__type_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -37466,21 +41009,50 @@ lean::inc(x_3); lean::dec(x_0); x_6 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_6, 0, x_1); -x_7 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_8 = l_option_map___rarg(x_7, x_3); -x_9 = lean::box(3); -x_10 = l_option_get__or__else___main___rarg(x_8, x_9); -lean::dec(x_8); -x_12 = lean::box(0); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_10); -lean::cnstr_set(x_13, 1, x_12); -x_14 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_14, 0, x_6); -lean::cnstr_set(x_14, 1, x_13); -x_15 = l_lean_parser_term_struct__inst__type; -x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); -return x_16; +if (lean::obj_tag(x_3) == 0) +{ +obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_7 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_6); +lean::cnstr_set(x_8, 1, x_7); +x_9 = l_lean_parser_term_struct__inst__type; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +return x_10; +} +else +{ +obj* x_11; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_11 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_13 = x_3; +} else { + lean::inc(x_11); + lean::dec(x_3); + x_13 = lean::box(0); +} +x_14 = lean::box(0); +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_11); +if (lean::is_scalar(x_13)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_13; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_14); +x_21 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_21, 0, x_6); +lean::cnstr_set(x_21, 1, x_20); +x_22 = l_lean_parser_term_struct__inst__type; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} } } obj* _init_l_lean_parser_term_struct__inst__type_has__view_x_27() { @@ -37690,27 +41262,59 @@ return x_56; obj* l_lean_parser_term_struct__inst__with_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; -x_1 = lean::cnstr_get(x_0, 0); +obj* x_1; +x_1 = lean::cnstr_get(x_0, 1); lean::inc(x_1); -x_3 = lean::cnstr_get(x_0, 1); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_3 = lean::cnstr_get(x_0, 0); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_3); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_9); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_1); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_struct__inst__with; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +x_8 = l_lean_parser_term_struct__inst__with; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +return x_9; +} +else +{ +obj* x_10; obj* x_13; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +x_10 = lean::cnstr_get(x_0, 0); +lean::inc(x_10); +lean::dec(x_0); +x_13 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_15 = x_1; +} else { + lean::inc(x_13); + lean::dec(x_1); + x_15 = lean::box(0); +} +x_16 = lean::box(0); +x_17 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_17, 0, x_13); +if (lean::is_scalar(x_15)) { + x_18 = lean::alloc_cnstr(1, 1, 0); +} else { + x_18 = x_15; +} +lean::cnstr_set(x_18, 0, x_17); +x_19 = lean::box(3); +x_20 = l_option_get__or__else___main___rarg(x_18, x_19); +lean::dec(x_18); +x_22 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_22, 0, x_20); +lean::cnstr_set(x_22, 1, x_16); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_10); +lean::cnstr_set(x_23, 1, x_22); +x_24 = l_lean_parser_term_struct__inst__with; +x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); +return x_25; +} } } obj* _init_l_lean_parser_term_struct__inst__with_has__view_x_27() { @@ -38413,7 +42017,7 @@ return x_121; obj* l_lean_parser_term_struct__inst__field_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -38423,24 +42027,56 @@ lean::inc(x_5); lean::dec(x_0); x_8 = lean::alloc_cnstr(1, 1, 0); lean::cnstr_set(x_8, 0, x_1); -x_9 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_10 = l_option_map___rarg(x_9, x_3); -x_11 = lean::box(3); -x_12 = l_option_get__or__else___main___rarg(x_10, x_11); -lean::dec(x_10); -x_14 = lean::box(0); -x_15 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_15, 0, x_5); -lean::cnstr_set(x_15, 1, x_14); -x_16 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_16, 0, x_12); -lean::cnstr_set(x_16, 1, x_15); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_8); -lean::cnstr_set(x_17, 1, x_16); -x_18 = l_lean_parser_term_struct__inst__field; -x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); -return x_19; +x_9 = lean::box(0); +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_5); +lean::cnstr_set(x_10, 1, x_9); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_13, 0, x_8); +lean::cnstr_set(x_13, 1, x_12); +x_14 = l_lean_parser_term_struct__inst__field; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +return x_15; +} +else +{ +obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; +x_16 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_18 = x_3; +} else { + lean::inc(x_16); + lean::dec(x_3); + x_18 = lean::box(0); +} +x_19 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_19, 0, x_16); +if (lean::is_scalar(x_18)) { + x_20 = lean::alloc_cnstr(1, 1, 0); +} else { + x_20 = x_18; +} +lean::cnstr_set(x_20, 0, x_19); +x_21 = lean::box(3); +x_22 = l_option_get__or__else___main___rarg(x_20, x_21); +lean::dec(x_20); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_22); +lean::cnstr_set(x_24, 1, x_10); +x_25 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_25, 0, x_8); +lean::cnstr_set(x_25, 1, x_24); +x_26 = l_lean_parser_term_struct__inst__field; +x_27 = l_lean_parser_syntax_mk__node(x_26, x_25); +return x_27; +} } } obj* _init_l_lean_parser_term_struct__inst__field_has__view_x_27() { @@ -38865,52 +42501,122 @@ return x_99; } } } +obj* _init_l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = l_lean_parser_no__kind; +x_5 = l_lean_parser_syntax_mk__node(x_4, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_5); +lean::cnstr_set(x_6, 1, x_0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +x_8 = l_lean_parser_term_struct__inst__source; +x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); +return x_9; +} +} obj* l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; +obj* x_1; obj* x_3; obj* x_6; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); +x_6 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ if (lean::obj_tag(x_3) == 0) { -obj* x_11; obj* x_12; obj* x_13; obj* x_14; -x_11 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_9); -lean::cnstr_set(x_12, 1, x_11); -x_13 = l_lean_parser_term_struct__inst__source; -x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); -return x_14; +obj* x_7; +x_7 = l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2___closed__1; +return x_7; } else { -obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; -x_15 = lean::cnstr_get(x_3, 0); -lean::inc(x_15); +obj* x_8; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; +x_8 = lean::cnstr_get(x_3, 0); +lean::inc(x_8); lean::dec(x_3); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_15); -lean::cnstr_set(x_19, 1, x_18); -x_20 = l_lean_parser_no__kind; -x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_21); -lean::cnstr_set(x_22, 1, x_18); -x_23 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_23, 0, x_9); -lean::cnstr_set(x_23, 1, x_22); -x_24 = l_lean_parser_term_struct__inst__source; -x_25 = l_lean_parser_syntax_mk__node(x_24, x_23); -return x_25; +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_8); +lean::cnstr_set(x_11, 1, x_6); +x_12 = l_lean_parser_no__kind; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_13); +lean::cnstr_set(x_14, 1, x_6); +x_15 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = l_lean_parser_term_struct__inst__source; +x_18 = l_lean_parser_syntax_mk__node(x_17, x_16); +return x_18; +} +} +else +{ +obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +x_19 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_21 = x_1; +} else { + lean::inc(x_19); + lean::dec(x_1); + x_21 = lean::box(0); +} +x_22 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_22, 0, x_19); +if (lean::is_scalar(x_21)) { + x_23 = lean::alloc_cnstr(1, 1, 0); +} else { + x_23 = x_21; +} +lean::cnstr_set(x_23, 0, x_22); +x_24 = lean::box(3); +x_25 = l_option_get__or__else___main___rarg(x_23, x_24); +lean::dec(x_23); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_27; obj* x_28; obj* x_29; obj* x_30; +x_27 = l_lean_parser_detail__ident_has__view_x_27___lambda__2___closed__1; +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_25); +lean::cnstr_set(x_28, 1, x_27); +x_29 = l_lean_parser_term_struct__inst__source; +x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); +return x_30; +} +else +{ +obj* x_31; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_40; +x_31 = lean::cnstr_get(x_3, 0); +lean::inc(x_31); +lean::dec(x_3); +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_31); +lean::cnstr_set(x_34, 1, x_6); +x_35 = l_lean_parser_no__kind; +x_36 = l_lean_parser_syntax_mk__node(x_35, x_34); +x_37 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_37, 0, x_36); +lean::cnstr_set(x_37, 1, x_6); +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_25); +lean::cnstr_set(x_38, 1, x_37); +x_39 = l_lean_parser_term_struct__inst__source; +x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); +return x_40; +} } } } @@ -39237,7 +42943,7 @@ x_23 = lean::apply_1(x_20, x_16); x_24 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_24, 0, x_23); lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); x_27 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_27, 0, x_26); @@ -39467,7 +43173,7 @@ return x_20; } else { -obj* x_21; obj* x_24; obj* x_25; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +obj* x_21; obj* x_24; obj* x_25; obj* x_28; x_21 = lean::cnstr_get(x_9, 0); lean::inc(x_21); lean::dec(x_9); @@ -39476,26 +43182,60 @@ x_25 = lean::cnstr_get(x_24, 1); lean::inc(x_25); lean::dec(x_24); x_28 = lean::apply_1(x_25, x_7); -x_29 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_30 = l_option_map___rarg(x_29, x_21); -x_31 = lean::box(3); -x_32 = l_option_get__or__else___main___rarg(x_30, x_31); -lean::dec(x_30); -x_34 = lean::box(0); +if (lean::obj_tag(x_21) == 0) +{ +obj* x_29; obj* x_30; obj* x_31; +x_29 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; if (lean::is_scalar(x_6)) { - x_35 = lean::alloc_cnstr(1, 2, 0); + x_30 = lean::alloc_cnstr(1, 2, 0); } else { - x_35 = x_6; + x_30 = x_6; +} +lean::cnstr_set(x_30, 0, x_28); +lean::cnstr_set(x_30, 1, x_29); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_12); +return x_31; +} +else +{ +obj* x_32; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; obj* x_39; obj* x_41; obj* x_42; obj* x_43; +x_32 = lean::cnstr_get(x_21, 0); +if (lean::is_exclusive(x_21)) { + x_34 = x_21; +} else { + lean::inc(x_32); + lean::dec(x_21); + x_34 = lean::box(0); +} +x_35 = lean::box(0); +x_36 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_36, 0, x_32); +if (lean::is_scalar(x_34)) { + x_37 = lean::alloc_cnstr(1, 1, 0); +} else { + x_37 = x_34; } -lean::cnstr_set(x_35, 0, x_32); -lean::cnstr_set(x_35, 1, x_34); -x_36 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_36, 0, x_28); -lean::cnstr_set(x_36, 1, x_35); -x_37 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_37, 0, x_36); -lean::cnstr_set(x_37, 1, x_12); -return x_37; +x_38 = lean::box(3); +x_39 = l_option_get__or__else___main___rarg(x_37, x_38); +lean::dec(x_37); +if (lean::is_scalar(x_6)) { + x_41 = lean::alloc_cnstr(1, 2, 0); +} else { + x_41 = x_6; +} +lean::cnstr_set(x_41, 0, x_39); +lean::cnstr_set(x_41, 1, x_35); +x_42 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_42, 0, x_28); +lean::cnstr_set(x_42, 1, x_41); +x_43 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_43, 0, x_42); +lean::cnstr_set(x_43, 1, x_12); +return x_43; +} } } } @@ -40422,7 +44162,7 @@ return x_150; obj* l_lean_parser_term_struct__inst_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -40434,133 +44174,291 @@ lean::inc(x_7); x_9 = lean::cnstr_get(x_0, 4); lean::inc(x_9); lean::dec(x_0); -x_12 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_13 = l_option_map___rarg(x_12, x_1); -x_14 = lean::box(3); -x_15 = l_option_get__or__else___main___rarg(x_13, x_14); -lean::dec(x_13); -x_17 = l_list_map___main___at_lean_parser_term_struct__inst_has__view_x_27___spec__2(x_7); -x_18 = l_list_join___main___rarg(x_17); -x_19 = l_lean_parser_no__kind; -x_20 = l_lean_parser_syntax_mk__node(x_19, x_18); -x_21 = l_option_map___rarg(x_12, x_9); -x_22 = l_option_get__or__else___main___rarg(x_21, x_14); -lean::dec(x_21); -x_24 = lean::box(0); -x_25 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_25, 0, x_22); -lean::cnstr_set(x_25, 1, x_24); -x_26 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_26, 0, x_20); -lean::cnstr_set(x_26, 1, x_25); +x_12 = l_list_map___main___at_lean_parser_term_struct__inst_has__view_x_27___spec__2(x_7); +x_13 = l_list_join___main___rarg(x_12); +x_14 = l_lean_parser_no__kind; +x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); +x_16 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_19; +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_17 = x_19; +goto lbl_18; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; +x_20 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_22 = x_1; +} else { + lean::inc(x_20); + lean::dec(x_1); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_17 = x_26; +goto lbl_18; +} +lbl_18: +{ +obj* x_28; obj* x_29; if (lean::obj_tag(x_3) == 0) { if (lean::obj_tag(x_5) == 0) { -obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; -x_27 = l_lean_parser_combinators_many___rarg___closed__1; -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_27); -lean::cnstr_set(x_28, 1, x_26); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_27); -lean::cnstr_set(x_29, 1, x_28); -x_30 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_30, 0, x_15); -lean::cnstr_set(x_30, 1, x_29); -x_31 = l_lean_parser_term_struct__inst; -x_32 = l_lean_parser_syntax_mk__node(x_31, x_30); -return x_32; +if (lean::obj_tag(x_9) == 0) +{ +obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; obj* x_38; +x_31 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_15); +lean::cnstr_set(x_32, 1, x_31); +x_33 = l_lean_parser_combinators_many___rarg___closed__1; +x_34 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_34, 0, x_33); +lean::cnstr_set(x_34, 1, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_33); +lean::cnstr_set(x_35, 1, x_34); +x_36 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_36, 0, x_17); +lean::cnstr_set(x_36, 1, x_35); +x_37 = l_lean_parser_term_struct__inst; +x_38 = l_lean_parser_syntax_mk__node(x_37, x_36); +return x_38; } else { -obj* x_33; obj* x_36; obj* x_37; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; -x_33 = lean::cnstr_get(x_5, 0); -lean::inc(x_33); -lean::dec(x_5); -x_36 = l_lean_parser_term_struct__inst__with_has__view; -x_37 = lean::cnstr_get(x_36, 1); -lean::inc(x_37); -lean::dec(x_36); -x_40 = lean::apply_1(x_37, x_33); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_24); -x_42 = l_lean_parser_syntax_mk__node(x_19, x_41); -x_43 = lean::alloc_cnstr(1, 2, 0); +obj* x_39; obj* x_41; obj* x_42; obj* x_43; obj* x_44; obj* x_45; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; +x_39 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_41 = x_9; +} else { + lean::inc(x_39); + lean::dec(x_9); + x_41 = lean::box(0); +} +x_42 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_42, 0, x_39); +if (lean::is_scalar(x_41)) { + x_43 = lean::alloc_cnstr(1, 1, 0); +} else { + x_43 = x_41; +} lean::cnstr_set(x_43, 0, x_42); -lean::cnstr_set(x_43, 1, x_26); -x_44 = l_lean_parser_combinators_many___rarg___closed__1; -x_45 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_45, 0, x_44); -lean::cnstr_set(x_45, 1, x_43); -x_46 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_46, 0, x_15); -lean::cnstr_set(x_46, 1, x_45); -x_47 = l_lean_parser_term_struct__inst; -x_48 = l_lean_parser_syntax_mk__node(x_47, x_46); -return x_48; +x_44 = lean::box(3); +x_45 = l_option_get__or__else___main___rarg(x_43, x_44); +lean::dec(x_43); +x_47 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_47, 0, x_45); +lean::cnstr_set(x_47, 1, x_16); +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_15); +lean::cnstr_set(x_48, 1, x_47); +x_49 = l_lean_parser_combinators_many___rarg___closed__1; +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_49); +lean::cnstr_set(x_50, 1, x_48); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_49); +lean::cnstr_set(x_51, 1, x_50); +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_17); +lean::cnstr_set(x_52, 1, x_51); +x_53 = l_lean_parser_term_struct__inst; +x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); +return x_54; } } else { -obj* x_49; obj* x_52; obj* x_53; obj* x_56; obj* x_57; obj* x_58; -x_49 = lean::cnstr_get(x_3, 0); -lean::inc(x_49); +obj* x_55; obj* x_58; +x_55 = lean::cnstr_get(x_5, 0); +lean::inc(x_55); +lean::dec(x_5); +x_58 = l_lean_parser_combinators_many___rarg___closed__1; +x_28 = x_58; +x_29 = x_55; +goto lbl_30; +} +} +else +{ +obj* x_59; obj* x_62; obj* x_63; obj* x_66; obj* x_67; obj* x_68; +x_59 = lean::cnstr_get(x_3, 0); +lean::inc(x_59); lean::dec(x_3); -x_52 = l_lean_parser_term_struct__inst__type_has__view; -x_53 = lean::cnstr_get(x_52, 1); -lean::inc(x_53); -lean::dec(x_52); -x_56 = lean::apply_1(x_53, x_49); -x_57 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_57, 0, x_56); -lean::cnstr_set(x_57, 1, x_24); -x_58 = l_lean_parser_syntax_mk__node(x_19, x_57); +x_62 = l_lean_parser_term_struct__inst__type_has__view; +x_63 = lean::cnstr_get(x_62, 1); +lean::inc(x_63); +lean::dec(x_62); +x_66 = lean::apply_1(x_63, x_59); +x_67 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_67, 0, x_66); +lean::cnstr_set(x_67, 1, x_16); +x_68 = l_lean_parser_syntax_mk__node(x_14, x_67); if (lean::obj_tag(x_5) == 0) { -obj* x_59; obj* x_60; obj* x_61; obj* x_62; obj* x_63; obj* x_64; -x_59 = l_lean_parser_combinators_many___rarg___closed__1; -x_60 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_60, 0, x_59); -lean::cnstr_set(x_60, 1, x_26); -x_61 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_61, 0, x_58); -lean::cnstr_set(x_61, 1, x_60); -x_62 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_62, 0, x_15); -lean::cnstr_set(x_62, 1, x_61); -x_63 = l_lean_parser_term_struct__inst; -x_64 = l_lean_parser_syntax_mk__node(x_63, x_62); -return x_64; +if (lean::obj_tag(x_9) == 0) +{ +obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_69 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_15); +lean::cnstr_set(x_70, 1, x_69); +x_71 = l_lean_parser_combinators_many___rarg___closed__1; +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_70); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_68); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_17); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_lean_parser_term_struct__inst; +x_76 = l_lean_parser_syntax_mk__node(x_75, x_74); +return x_76; } else { -obj* x_65; obj* x_68; obj* x_69; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; obj* x_77; obj* x_78; obj* x_79; -x_65 = lean::cnstr_get(x_5, 0); -lean::inc(x_65); +obj* x_77; obj* x_79; obj* x_80; obj* x_81; obj* x_82; obj* x_83; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; obj* x_90; obj* x_91; obj* x_92; +x_77 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_79 = x_9; +} else { + lean::inc(x_77); + lean::dec(x_9); + x_79 = lean::box(0); +} +x_80 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_80, 0, x_77); +if (lean::is_scalar(x_79)) { + x_81 = lean::alloc_cnstr(1, 1, 0); +} else { + x_81 = x_79; +} +lean::cnstr_set(x_81, 0, x_80); +x_82 = lean::box(3); +x_83 = l_option_get__or__else___main___rarg(x_81, x_82); +lean::dec(x_81); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_83); +lean::cnstr_set(x_85, 1, x_16); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_15); +lean::cnstr_set(x_86, 1, x_85); +x_87 = l_lean_parser_combinators_many___rarg___closed__1; +x_88 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_88, 0, x_87); +lean::cnstr_set(x_88, 1, x_86); +x_89 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_89, 0, x_68); +lean::cnstr_set(x_89, 1, x_88); +x_90 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_90, 0, x_17); +lean::cnstr_set(x_90, 1, x_89); +x_91 = l_lean_parser_term_struct__inst; +x_92 = l_lean_parser_syntax_mk__node(x_91, x_90); +return x_92; +} +} +else +{ +obj* x_93; +x_93 = lean::cnstr_get(x_5, 0); +lean::inc(x_93); lean::dec(x_5); -x_68 = l_lean_parser_term_struct__inst__with_has__view; -x_69 = lean::cnstr_get(x_68, 1); -lean::inc(x_69); -lean::dec(x_68); -x_72 = lean::apply_1(x_69, x_65); -x_73 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_73, 0, x_72); -lean::cnstr_set(x_73, 1, x_24); -x_74 = l_lean_parser_syntax_mk__node(x_19, x_73); -x_75 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_75, 0, x_74); -lean::cnstr_set(x_75, 1, x_26); -x_76 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_76, 0, x_58); -lean::cnstr_set(x_76, 1, x_75); -x_77 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_77, 0, x_15); -lean::cnstr_set(x_77, 1, x_76); -x_78 = l_lean_parser_term_struct__inst; -x_79 = l_lean_parser_syntax_mk__node(x_78, x_77); -return x_79; +x_28 = x_68; +x_29 = x_93; +goto lbl_30; +} +} +lbl_30: +{ +obj* x_96; obj* x_97; obj* x_100; obj* x_101; obj* x_102; +x_96 = l_lean_parser_term_struct__inst__with_has__view; +x_97 = lean::cnstr_get(x_96, 1); +lean::inc(x_97); +lean::dec(x_96); +x_100 = lean::apply_1(x_97, x_29); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_100); +lean::cnstr_set(x_101, 1, x_16); +x_102 = l_lean_parser_syntax_mk__node(x_14, x_101); +if (lean::obj_tag(x_9) == 0) +{ +obj* x_103; obj* x_104; obj* x_105; obj* x_106; obj* x_107; obj* x_108; obj* x_109; +x_103 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_104 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_104, 0, x_15); +lean::cnstr_set(x_104, 1, x_103); +x_105 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_105, 0, x_102); +lean::cnstr_set(x_105, 1, x_104); +x_106 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_106, 0, x_28); +lean::cnstr_set(x_106, 1, x_105); +x_107 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_107, 0, x_17); +lean::cnstr_set(x_107, 1, x_106); +x_108 = l_lean_parser_term_struct__inst; +x_109 = l_lean_parser_syntax_mk__node(x_108, x_107); +return x_109; +} +else +{ +obj* x_110; obj* x_112; obj* x_113; obj* x_114; obj* x_115; obj* x_116; obj* x_118; obj* x_119; obj* x_120; obj* x_121; obj* x_122; obj* x_123; obj* x_124; +x_110 = lean::cnstr_get(x_9, 0); +if (lean::is_exclusive(x_9)) { + x_112 = x_9; +} else { + lean::inc(x_110); + lean::dec(x_9); + x_112 = lean::box(0); +} +x_113 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_113, 0, x_110); +if (lean::is_scalar(x_112)) { + x_114 = lean::alloc_cnstr(1, 1, 0); +} else { + x_114 = x_112; +} +lean::cnstr_set(x_114, 0, x_113); +x_115 = lean::box(3); +x_116 = l_option_get__or__else___main___rarg(x_114, x_115); +lean::dec(x_114); +x_118 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_118, 0, x_116); +lean::cnstr_set(x_118, 1, x_16); +x_119 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_119, 0, x_15); +lean::cnstr_set(x_119, 1, x_118); +x_120 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_120, 0, x_102); +lean::cnstr_set(x_120, 1, x_119); +x_121 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_121, 0, x_28); +lean::cnstr_set(x_121, 1, x_120); +x_122 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_122, 0, x_17); +lean::cnstr_set(x_122, 1, x_121); +x_123 = l_lean_parser_term_struct__inst; +x_124 = l_lean_parser_syntax_mk__node(x_123, x_122); +return x_124; +} } } } @@ -41999,7 +45897,7 @@ return x_150; obj* l_lean_parser_term_subtype_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_1; obj* x_3; obj* x_5; obj* x_7; obj* x_9; obj* x_11; obj* x_14; obj* x_15; obj* x_16; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -42013,74 +45911,246 @@ lean::inc(x_9); x_11 = lean::cnstr_get(x_0, 5); lean::inc(x_11); lean::dec(x_0); -x_14 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_15 = l_option_map___rarg(x_14, x_1); -x_16 = lean::box(3); -x_17 = l_option_get__or__else___main___rarg(x_15, x_16); -lean::dec(x_15); -x_19 = lean::alloc_cnstr(1, 1, 0); -lean::cnstr_set(x_19, 0, x_3); -x_20 = l_option_map___rarg(x_14, x_7); -x_21 = l_option_get__or__else___main___rarg(x_20, x_16); -lean::dec(x_20); -x_23 = l_option_map___rarg(x_14, x_11); -x_24 = l_option_get__or__else___main___rarg(x_23, x_16); -lean::dec(x_23); -x_26 = lean::box(0); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_24); -lean::cnstr_set(x_27, 1, x_26); -x_28 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_28, 0, x_9); -lean::cnstr_set(x_28, 1, x_27); -x_29 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_29, 0, x_21); -lean::cnstr_set(x_29, 1, x_28); -if (lean::obj_tag(x_5) == 0) +x_14 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_14, 0, x_3); +x_15 = lean::box(0); +if (lean::obj_tag(x_1) == 0) { -obj* x_30; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; -x_30 = l_lean_parser_combinators_many___rarg___closed__1; -x_31 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_31, 0, x_30); -lean::cnstr_set(x_31, 1, x_29); -x_32 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_32, 0, x_19); -lean::cnstr_set(x_32, 1, x_31); -x_33 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_33, 0, x_17); -lean::cnstr_set(x_33, 1, x_32); -x_34 = l_lean_parser_term_subtype; -x_35 = l_lean_parser_syntax_mk__node(x_34, x_33); -return x_35; +obj* x_18; +x_18 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = x_18; +goto lbl_17; } else { -obj* x_36; obj* x_39; obj* x_40; obj* x_43; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_51; -x_36 = lean::cnstr_get(x_5, 0); -lean::inc(x_36); +obj* x_19; obj* x_21; obj* x_22; obj* x_23; obj* x_24; obj* x_25; +x_19 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_21 = x_1; +} else { + lean::inc(x_19); + lean::dec(x_1); + x_21 = lean::box(0); +} +x_22 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_22, 0, x_19); +if (lean::is_scalar(x_21)) { + x_23 = lean::alloc_cnstr(1, 1, 0); +} else { + x_23 = x_21; +} +lean::cnstr_set(x_23, 0, x_22); +x_24 = lean::box(3); +x_25 = l_option_get__or__else___main___rarg(x_23, x_24); +lean::dec(x_23); +x_16 = x_25; +goto lbl_17; +} +lbl_17: +{ +obj* x_27; obj* x_29; obj* x_30; +if (lean::obj_tag(x_5) == 0) +{ +if (lean::obj_tag(x_7) == 0) +{ +obj* x_32; +x_32 = l_lean_parser_combinators_many___rarg___closed__1; +x_27 = x_32; +goto lbl_28; +} +else +{ +obj* x_33; obj* x_36; +x_33 = lean::cnstr_get(x_7, 0); +lean::inc(x_33); +lean::dec(x_7); +x_36 = l_lean_parser_combinators_many___rarg___closed__1; +x_29 = x_36; +x_30 = x_33; +goto lbl_31; +} +} +else +{ +obj* x_37; obj* x_40; obj* x_41; obj* x_44; obj* x_45; obj* x_46; obj* x_47; +x_37 = lean::cnstr_get(x_5, 0); +lean::inc(x_37); lean::dec(x_5); -x_39 = l_lean_parser_term_type__spec_has__view; -x_40 = lean::cnstr_get(x_39, 1); -lean::inc(x_40); -lean::dec(x_39); -x_43 = lean::apply_1(x_40, x_36); -x_44 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_44, 0, x_43); -lean::cnstr_set(x_44, 1, x_26); -x_45 = l_lean_parser_no__kind; -x_46 = l_lean_parser_syntax_mk__node(x_45, x_44); -x_47 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_47, 0, x_46); -lean::cnstr_set(x_47, 1, x_29); -x_48 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_48, 0, x_19); -lean::cnstr_set(x_48, 1, x_47); -x_49 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_49, 0, x_17); -lean::cnstr_set(x_49, 1, x_48); -x_50 = l_lean_parser_term_subtype; -x_51 = l_lean_parser_syntax_mk__node(x_50, x_49); -return x_51; +x_40 = l_lean_parser_term_type__spec_has__view; +x_41 = lean::cnstr_get(x_40, 1); +lean::inc(x_41); +lean::dec(x_40); +x_44 = lean::apply_1(x_41, x_37); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_44); +lean::cnstr_set(x_45, 1, x_15); +x_46 = l_lean_parser_no__kind; +x_47 = l_lean_parser_syntax_mk__node(x_46, x_45); +if (lean::obj_tag(x_7) == 0) +{ +x_27 = x_47; +goto lbl_28; +} +else +{ +obj* x_48; +x_48 = lean::cnstr_get(x_7, 0); +lean::inc(x_48); +lean::dec(x_7); +x_29 = x_47; +x_30 = x_48; +goto lbl_31; +} +} +lbl_28: +{ +if (lean::obj_tag(x_11) == 0) +{ +obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; obj* x_58; obj* x_59; +x_51 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_52 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_52, 0, x_9); +lean::cnstr_set(x_52, 1, x_51); +x_53 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_54 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_54, 0, x_53); +lean::cnstr_set(x_54, 1, x_52); +x_55 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_55, 0, x_27); +lean::cnstr_set(x_55, 1, x_54); +x_56 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_56, 0, x_14); +lean::cnstr_set(x_56, 1, x_55); +x_57 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_57, 0, x_16); +lean::cnstr_set(x_57, 1, x_56); +x_58 = l_lean_parser_term_subtype; +x_59 = l_lean_parser_syntax_mk__node(x_58, x_57); +return x_59; +} +else +{ +obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; obj* x_76; +x_60 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_62 = x_11; +} else { + lean::inc(x_60); + lean::dec(x_11); + x_62 = lean::box(0); +} +x_63 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_63, 0, x_60); +if (lean::is_scalar(x_62)) { + x_64 = lean::alloc_cnstr(1, 1, 0); +} else { + x_64 = x_62; +} +lean::cnstr_set(x_64, 0, x_63); +x_65 = lean::box(3); +x_66 = l_option_get__or__else___main___rarg(x_64, x_65); +lean::dec(x_64); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_15); +x_69 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_69, 0, x_9); +lean::cnstr_set(x_69, 1, x_68); +x_70 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_69); +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_27); +lean::cnstr_set(x_72, 1, x_71); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_14); +lean::cnstr_set(x_73, 1, x_72); +x_74 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_74, 0, x_16); +lean::cnstr_set(x_74, 1, x_73); +x_75 = l_lean_parser_term_subtype; +x_76 = l_lean_parser_syntax_mk__node(x_75, x_74); +return x_76; +} +} +lbl_31: +{ +obj* x_77; obj* x_78; obj* x_79; obj* x_80; +x_77 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_77, 0, x_30); +x_78 = lean::alloc_cnstr(1, 1, 0); +lean::cnstr_set(x_78, 0, x_77); +x_79 = lean::box(3); +x_80 = l_option_get__or__else___main___rarg(x_78, x_79); +lean::dec(x_78); +if (lean::obj_tag(x_11) == 0) +{ +obj* x_82; obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; obj* x_88; obj* x_89; +x_82 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_83 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_83, 0, x_9); +lean::cnstr_set(x_83, 1, x_82); +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_80); +lean::cnstr_set(x_84, 1, x_83); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_29); +lean::cnstr_set(x_85, 1, x_84); +x_86 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_86, 0, x_14); +lean::cnstr_set(x_86, 1, x_85); +x_87 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_87, 0, x_16); +lean::cnstr_set(x_87, 1, x_86); +x_88 = l_lean_parser_term_subtype; +x_89 = l_lean_parser_syntax_mk__node(x_88, x_87); +return x_89; +} +else +{ +obj* x_90; obj* x_92; obj* x_93; obj* x_94; obj* x_95; obj* x_97; obj* x_98; obj* x_99; obj* x_100; obj* x_101; obj* x_102; obj* x_103; obj* x_104; +x_90 = lean::cnstr_get(x_11, 0); +if (lean::is_exclusive(x_11)) { + x_92 = x_11; +} else { + lean::inc(x_90); + lean::dec(x_11); + x_92 = lean::box(0); +} +x_93 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_93, 0, x_90); +if (lean::is_scalar(x_92)) { + x_94 = lean::alloc_cnstr(1, 1, 0); +} else { + x_94 = x_92; +} +lean::cnstr_set(x_94, 0, x_93); +x_95 = l_option_get__or__else___main___rarg(x_94, x_79); +lean::dec(x_94); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_95); +lean::cnstr_set(x_97, 1, x_15); +x_98 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_98, 0, x_9); +lean::cnstr_set(x_98, 1, x_97); +x_99 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_99, 0, x_80); +lean::cnstr_set(x_99, 1, x_98); +x_100 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_100, 0, x_29); +lean::cnstr_set(x_100, 1, x_99); +x_101 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_101, 0, x_14); +lean::cnstr_set(x_101, 1, x_100); +x_102 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_102, 0, x_16); +lean::cnstr_set(x_102, 1, x_101); +x_103 = l_lean_parser_term_subtype; +x_104 = l_lean_parser_syntax_mk__node(x_103, x_102); +return x_104; +} +} } } } @@ -42743,7 +46813,7 @@ return x_79; obj* l_lean_parser_term_inaccessible_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -42751,27 +46821,132 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_option_map___rarg(x_8, x_5); -x_14 = l_option_get__or__else___main___rarg(x_13, x_10); -lean::dec(x_13); -x_16 = lean::box(0); -x_17 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_17, 0, x_14); -lean::cnstr_set(x_17, 1, x_16); -x_18 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_18, 0, x_3); -lean::cnstr_set(x_18, 1, x_17); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_11); -lean::cnstr_set(x_19, 1, x_18); -x_20 = l_lean_parser_term_inaccessible; -x_21 = l_lean_parser_syntax_mk__node(x_20, x_19); -return x_21; +x_8 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; +x_9 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_10 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_10, 0, x_3); +lean::cnstr_set(x_10, 1, x_9); +x_11 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_12 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_12, 0, x_11); +lean::cnstr_set(x_12, 1, x_10); +x_13 = l_lean_parser_term_inaccessible; +x_14 = l_lean_parser_syntax_mk__node(x_13, x_12); +return x_14; +} +else +{ +obj* x_15; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; +x_15 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_17 = x_5; +} else { + lean::inc(x_15); + lean::dec(x_5); + x_17 = lean::box(0); +} +x_18 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_18, 0, x_15); +if (lean::is_scalar(x_17)) { + x_19 = lean::alloc_cnstr(1, 1, 0); +} else { + x_19 = x_17; +} +lean::cnstr_set(x_19, 0, x_18); +x_20 = lean::box(3); +x_21 = l_option_get__or__else___main___rarg(x_19, x_20); +lean::dec(x_19); +x_23 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_23, 0, x_21); +lean::cnstr_set(x_23, 1, x_8); +x_24 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_24, 0, x_3); +lean::cnstr_set(x_24, 1, x_23); +x_25 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_26 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_26, 0, x_25); +lean::cnstr_set(x_26, 1, x_24); +x_27 = l_lean_parser_term_inaccessible; +x_28 = l_lean_parser_syntax_mk__node(x_27, x_26); +return x_28; +} +} +else +{ +obj* x_29; obj* x_31; obj* x_32; obj* x_33; obj* x_34; obj* x_35; +x_29 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_31 = x_1; +} else { + lean::inc(x_29); + lean::dec(x_1); + x_31 = lean::box(0); +} +x_32 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_32, 0, x_29); +if (lean::is_scalar(x_31)) { + x_33 = lean::alloc_cnstr(1, 1, 0); +} else { + x_33 = x_31; +} +lean::cnstr_set(x_33, 0, x_32); +x_34 = lean::box(3); +x_35 = l_option_get__or__else___main___rarg(x_33, x_34); +lean::dec(x_33); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_37; obj* x_38; obj* x_39; obj* x_40; obj* x_41; +x_37 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_38 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_38, 0, x_3); +lean::cnstr_set(x_38, 1, x_37); +x_39 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_39, 0, x_35); +lean::cnstr_set(x_39, 1, x_38); +x_40 = l_lean_parser_term_inaccessible; +x_41 = l_lean_parser_syntax_mk__node(x_40, x_39); +return x_41; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_49; obj* x_50; obj* x_51; obj* x_52; obj* x_53; +x_42 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_44 = x_5; +} else { + lean::inc(x_42); + lean::dec(x_5); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = l_option_get__or__else___main___rarg(x_46, x_34); +lean::dec(x_46); +x_49 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_49, 0, x_47); +lean::cnstr_set(x_49, 1, x_8); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_3); +lean::cnstr_set(x_50, 1, x_49); +x_51 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_51, 0, x_35); +lean::cnstr_set(x_51, 1, x_50); +x_52 = l_lean_parser_term_inaccessible; +x_53 = l_lean_parser_syntax_mk__node(x_52, x_51); +return x_53; +} +} } } obj* _init_l_lean_parser_term_inaccessible_has__view_x_27() { @@ -42930,22 +47105,61 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } +obj* _init_l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_term_anonymous__inaccessible; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_parser_term_anonymous__inaccessible; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_parser_term_anonymous__inaccessible; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_parser_term_anonymous__inaccessible_has__view_x_27() { @@ -43059,22 +47273,61 @@ x_8 = lean_name_mk_string(x_6, x_7); return x_8; } } +obj* _init_l_lean_parser_term_sorry_has__view_x_27___lambda__1___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_term_sorry; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_term_sorry_has__view_x_27___lambda__1(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_parser_term_sorry; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_parser_term_sorry_has__view_x_27___lambda__1___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_parser_term_sorry; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_parser_term_sorry_has__view_x_27() { @@ -43351,27 +47604,56 @@ return x_51; obj* l_lean_parser_term_borrowed_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_term_borrowed; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_term_borrowed; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_term_borrowed; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_term_borrowed_has__view_x_27() { @@ -46164,7 +50446,7 @@ x_19 = lean::apply_1(x_16, x_12); x_20 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_20, 0, x_19); lean::cnstr_set(x_20, 1, x_1); -x_21 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +x_21 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); x_23 = lean::alloc_cnstr(1, 2, 0); lean::cnstr_set(x_23, 0, x_22); @@ -46541,7 +50823,7 @@ return x_66; obj* l_lean_parser_term_projection_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_17; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_12; obj* x_13; obj* x_14; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -46549,29 +50831,61 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_3); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_lean_parser_term_projection__spec_has__view; -x_14 = lean::cnstr_get(x_13, 1); -lean::inc(x_14); -lean::dec(x_13); -x_17 = lean::apply_1(x_14, x_5); -x_18 = lean::box(0); -x_19 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_19, 0, x_17); -lean::cnstr_set(x_19, 1, x_18); -x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_11); -lean::cnstr_set(x_20, 1, x_19); -x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_1); -lean::cnstr_set(x_21, 1, x_20); -x_22 = l_lean_parser_term_projection; -x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); -return x_23; +x_8 = l_lean_parser_term_projection__spec_has__view; +x_9 = lean::cnstr_get(x_8, 1); +lean::inc(x_9); +lean::dec(x_8); +x_12 = lean::apply_1(x_9, x_5); +x_13 = lean::box(0); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_13); +if (lean::obj_tag(x_3) == 0) +{ +obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_15 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_16 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_16, 0, x_15); +lean::cnstr_set(x_16, 1, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_1); +lean::cnstr_set(x_17, 1, x_16); +x_18 = l_lean_parser_term_projection; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; +x_20 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_22 = x_3; +} else { + lean::inc(x_20); + lean::dec(x_3); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_14); +x_29 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_29, 0, x_1); +lean::cnstr_set(x_29, 1, x_28); +x_30 = l_lean_parser_term_projection; +x_31 = l_lean_parser_syntax_mk__node(x_30, x_29); +return x_31; +} } } obj* _init_l_lean_parser_term_projection_has__view_x_27() { @@ -51214,7 +55528,7 @@ if (lean::is_exclusive(x_65)) { x_71 = lean::cnstr_get(x_68, 1); lean::inc(x_71); lean::dec(x_68); -x_74 = l_lean_parser_match__token___closed__2; +x_74 = l_lean_parser_match__token___closed__1; if (lean::is_scalar(x_39)) { x_75 = lean::alloc_cnstr(0, 3, 0); } else { @@ -52142,6 +56456,10 @@ lean::mark_persistent(l_lean_parser_term_paren); lean::mark_persistent(l_lean_parser_term_paren_has__view_x_27___lambda__1___closed__1); l_lean_parser_term_paren_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_term_paren_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_term_paren_has__view_x_27___lambda__1___closed__2); + l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__1); + l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_term_paren_has__view_x_27___lambda__2___closed__2); l_lean_parser_term_paren_has__view_x_27 = _init_l_lean_parser_term_paren_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_paren_has__view_x_27); l_lean_parser_term_paren_has__view = _init_l_lean_parser_term_paren_has__view(); @@ -52154,6 +56472,8 @@ lean::mark_persistent(l_lean_parser_term_paren_parser_lean_parser_has__view); lean::mark_persistent(l_lean_parser_term_paren_parser___closed__1); l_lean_parser_term_hole = _init_l_lean_parser_term_hole(); lean::mark_persistent(l_lean_parser_term_hole); + l_lean_parser_term_hole_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_term_hole_has__view_x_27___lambda__1___closed__1(); +lean::mark_persistent(l_lean_parser_term_hole_has__view_x_27___lambda__1___closed__1); l_lean_parser_term_hole_has__view_x_27 = _init_l_lean_parser_term_hole_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_hole_has__view_x_27); l_lean_parser_term_hole_has__view = _init_l_lean_parser_term_hole_has__view(); @@ -52174,6 +56494,10 @@ lean::mark_persistent(l_lean_parser_term_sort_has__view_x_27___lambda__1___close lean::mark_persistent(l_lean_parser_term_sort_has__view_x_27___lambda__1___closed__3); l_lean_parser_term_sort_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_term_sort_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_term_sort_has__view_x_27___lambda__1___closed__4); + l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__1); + l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_term_sort_has__view_x_27___lambda__2___closed__2); l_lean_parser_term_sort_has__view_x_27 = _init_l_lean_parser_term_sort_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_sort_has__view_x_27); l_lean_parser_term_sort_has__view = _init_l_lean_parser_term_sort_has__view(); @@ -52622,6 +56946,10 @@ lean::mark_persistent(l_lean_parser_term_explicit__modifier_has__view_x_27___lam lean::mark_persistent(l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__1___closed__3); l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__1___closed__4 = _init_l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__1___closed__4(); lean::mark_persistent(l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__1___closed__4); + l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__1); + l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_term_explicit__modifier_has__view_x_27___lambda__2___closed__2); l_lean_parser_term_explicit__modifier_has__view_x_27 = _init_l_lean_parser_term_explicit__modifier_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_explicit__modifier_has__view_x_27); l_lean_parser_term_explicit__modifier_has__view = _init_l_lean_parser_term_explicit__modifier_has__view(); @@ -52842,6 +57170,8 @@ lean::mark_persistent(l_lean_parser_term_struct__inst__source); lean::mark_persistent(l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__1___closed__1); l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__1___closed__2 = _init_l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__1___closed__2(); lean::mark_persistent(l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__1___closed__2); + l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_term_struct__inst__source_has__view_x_27___lambda__2___closed__1); l_lean_parser_term_struct__inst__source_has__view_x_27 = _init_l_lean_parser_term_struct__inst__source_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_struct__inst__source_has__view_x_27); l_lean_parser_term_struct__inst__source_has__view = _init_l_lean_parser_term_struct__inst__source_has__view(); @@ -52906,6 +57236,8 @@ lean::mark_persistent(l_lean_parser_term_inaccessible_parser_lean_parser_has__vi lean::mark_persistent(l_lean_parser_term_inaccessible_parser___closed__1); l_lean_parser_term_anonymous__inaccessible = _init_l_lean_parser_term_anonymous__inaccessible(); lean::mark_persistent(l_lean_parser_term_anonymous__inaccessible); + l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1___closed__1(); +lean::mark_persistent(l_lean_parser_term_anonymous__inaccessible_has__view_x_27___lambda__1___closed__1); l_lean_parser_term_anonymous__inaccessible_has__view_x_27 = _init_l_lean_parser_term_anonymous__inaccessible_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_anonymous__inaccessible_has__view_x_27); l_lean_parser_term_anonymous__inaccessible_has__view = _init_l_lean_parser_term_anonymous__inaccessible_has__view(); @@ -52918,6 +57250,8 @@ lean::mark_persistent(l_lean_parser_term_anonymous__inaccessible_parser_lean_par lean::mark_persistent(l_lean_parser_term_anonymous__inaccessible_parser___closed__1); l_lean_parser_term_sorry = _init_l_lean_parser_term_sorry(); lean::mark_persistent(l_lean_parser_term_sorry); + l_lean_parser_term_sorry_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_term_sorry_has__view_x_27___lambda__1___closed__1(); +lean::mark_persistent(l_lean_parser_term_sorry_has__view_x_27___lambda__1___closed__1); l_lean_parser_term_sorry_has__view_x_27 = _init_l_lean_parser_term_sorry_has__view_x_27(); lean::mark_persistent(l_lean_parser_term_sorry_has__view_x_27); l_lean_parser_term_sorry_has__view = _init_l_lean_parser_term_sorry_has__view(); diff --git a/src/boot/init/lean/parser/token.cpp b/src/boot/init/lean/parser/token.cpp index abf29ff09e..9e30ff33e2 100644 --- a/src/boot/init/lean/parser/token.cpp +++ b/src/boot/init/lean/parser/token.cpp @@ -27,7 +27,6 @@ obj* l_lean_parser_with__trailing___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_detail__ident__part_parser___spec__10(obj*); obj* l_lean_parser_ident_parser_view___rarg___lambda__1___boxed(obj*); obj* l_reader__t_orelse___at_lean_parser_parse__bin__lit___spec__1___boxed(obj*); -obj* l_lean_parser_match__token___closed__2; obj* l_lean_parser_monad__parsec_take__while__cont___at_lean_parser_detail__ident__part_parser_lean_parser_has__tokens___spec__4(obj*, obj*, obj*, obj*); obj* l_lean_parser_parsec__t_bind__mk__res___rarg(obj*, obj*); obj* l_lean_parser_monad__parsec_take__while1___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__1(obj*, obj*, obj*); @@ -47,7 +46,6 @@ obj* l_lean_parser_monad__parsec_foldl__aux___main___at___private_init_lean_pars obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__9(obj*, obj*, obj*); obj* l_lean_parser_trie_match__prefix___rarg(obj*, obj*); obj* l_lean_parser_string__lit_parser_view___boxed(obj*); -obj* l_lean_parser_match__token___lambda__1___boxed(obj*); obj* l_lean_parser_detail__ident__suffix_has__view; obj* l_lean_parser_match__token(obj*, obj*, obj*); obj* l_lean_parser_with__trailing___boxed(obj*); @@ -64,6 +62,7 @@ obj* l_lean_parser_detail__ident__part_has__view; extern obj* l_lean_parser_parse__hex__digit___rarg___lambda__3___closed__1; obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__1___closed__2; obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_monad__parsec_error___at_lean_parser_number_x_27___spec__12___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_raw___rarg___lambda__3(uint8, obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_finish__comment__block___closed__1; @@ -179,6 +178,7 @@ obj* l_lean_parser_monad__parsec_foldl___at___private_init_lean_parser_token_4__ obj* l_list_enum__from___main___rarg(obj*, obj*); obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__1___closed__1; obj* l_lean_parser_monad__parsec_take__while__cont___at_lean_parser_number_x_27___spec__4___boxed(obj*, obj*, obj*, obj*); +obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__6; obj* l_lean_parser_detail__ident_has__view_x_27; obj* l_lean_parser_raw__str___rarg(obj*, obj*, obj*, obj*, uint8); obj* l_lean_parser_number_parser_view___rarg___closed__1; @@ -198,6 +198,7 @@ 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*); @@ -328,6 +329,7 @@ obj* l_rbnode_find___main___at_lean_parser_token__map_insert___spec__2___rarg(ob obj* l_reader__t_bind___at_lean_parser_with__trailing___spec__2___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_number_has__view_x_27___lambda__1___closed__4; obj* l_option_to__monad___main___at_lean_parser_indexed___spec__2(obj*); +obj* l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_unicode__symbol_lean_parser_has__view___rarg___boxed(obj*, obj*, obj*, obj*); obj* l_rbmap_find___main___at_lean_parser_indexed___spec__4___boxed(obj*); obj* l_lean_parser_number_has__view; @@ -361,6 +363,7 @@ obj* l_lean_parser_parse__hex__digit___at_lean_parser_string__lit_x_27___spec__5 obj* l_lean_parser_monad__parsec_foldl__aux___main___at___private_init_lean_parser_token_4__ident_x_27___spec__21___lambda__1___boxed(obj*, obj*, obj*); obj* l_lean_parser_string__lit_parser(obj*); obj* l_lean_parser_with__trailing___rarg___lambda__3(obj*, obj*, obj*); +obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__8___boxed(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__13(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_detail__ident__part_parser_lean_parser_has__tokens___spec__23___boxed(obj*); @@ -383,6 +386,7 @@ obj* l_lean_parser_monad__parsec_take__while__cont___at_lean_parser_detail__iden namespace lean { uint8 string_iterator_has_next(obj*); } +obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__3; obj* l_lean_parser_raw_tokens___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_symbol_tokens___rarg(obj*, obj*); obj* l_lean_parser_parsec__t_lookahead___at___private_init_lean_parser_token_2__whitespace__aux___main___spec__4(obj*, obj*, obj*); @@ -436,7 +440,6 @@ 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*); @@ -467,8 +470,8 @@ obj* l_reader__t_lift___at_lean_parser_detail__ident_x_27___spec__1___rarg___box obj* l_lean_parser_monad__parsec_ch___at_lean_parser_detail__ident__suffix_parser_lean_parser_has__tokens___spec__1(uint32, obj*, obj*, obj*, obj*); obj* l_lean_parser_symbol_view__default___rarg___boxed(obj*, obj*, obj*); obj* l_lean_parser_detail__ident_has__view_x_27___lambda__1___closed__2; +obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; obj* l_rbmap_find___main___at_lean_parser_indexed___spec__1___boxed(obj*); -obj* l_lean_parser_match__token___lambda__1(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_detail__ident__suffix_parser_lean_parser_has__tokens___spec__3___boxed(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at_lean_parser_parse__oct__lit___spec__3(obj*, obj*, obj*); obj* l_lean_parser_detail__ident__part_parser(obj*, obj*, obj*); @@ -552,6 +555,7 @@ uint8 string_dec_eq(obj*, obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at_lean_parser_detail__ident__part_parser___spec__5(obj*, obj*, obj*); obj* l_option_to__monad___main___at_lean_parser_indexed___spec__2___boxed(obj*); obj* l_lean_parser_raw__str_view__default___boxed(obj*); +obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__5; obj* l_lean_parser_monad__parsec_take__while__cont___at___private_init_lean_parser_token_4__ident_x_27___spec__17___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_raw__str_lean_parser_has__view___boxed(obj*); obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__12___rarg(obj*, obj*); @@ -566,7 +570,6 @@ obj* l_lean_parser_raw__str_view__default___rarg(obj*, obj*, obj*, obj*, uint8); obj* l_lean_parser_combinators_any__of_view___rarg(obj*, obj*, obj*, obj*, obj*); extern obj* l_lean_parser_combinators_choice__aux___main___rarg___closed__1; obj* l___private_init_lean_parser_token_2__whitespace__aux(obj*, obj*, obj*, obj*); -obj* l_lean_parser_raw_view___rarg___lambda__3(obj*); obj* l_lean_parser_indexed___rarg(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_foldl__aux___main___at___private_init_lean_parser_token_4__ident_x_27___spec__21___lambda__2(uint32, uint32, obj*, obj*, obj*); obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__1(obj*); @@ -602,6 +605,7 @@ obj* l_reader__t_lift___at_lean_parser_detail__ident__suffix_parser_lean_parser_ obj* l_lean_parser_monad__parsec_take__while1___at_lean_parser_detail__ident__part_parser_lean_parser_has__tokens___spec__1(obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_any___at___private_init_lean_parser_token_1__finish__comment__block__aux___main___spec__2(obj*, obj*, obj*); obj* l_string_trim(obj*); +obj* l_lean_parser_string__lit_has__view_x_27___lambda__2___closed__1; obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_string__lit_x_27___spec__4___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_monad__parsec_take__while__cont___at_lean_parser_number_x_27___spec__4(uint32, obj*, obj*, obj*); obj* l_lean_parser_number__or__string__lit(obj*, obj*, obj*); @@ -725,7 +729,6 @@ obj* l___private_init_lean_parser_token_3__update__trailing__lst(obj*, obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at_lean_parser_detail__ident__part_parser___spec__13(obj*, obj*, obj*); obj* l___private_init_lean_parser_token_7__to__nat__core___main___boxed(obj*, obj*, obj*, obj*); obj* l_lean_parser_number_has__view_x_27___lambda__1___closed__6; -obj* l_option_map___rarg(obj*, obj*); obj* l_lean_parser_raw__str_lean_parser_has__view___rarg___boxed(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_string__lit_parser_view___rarg___boxed(obj*); obj* l_lean_parser_rec__t_run__parsec___at_lean_parser_detail__ident_parser___spec__1(obj*, obj*, obj*, obj*, obj*); @@ -733,6 +736,7 @@ obj* l_lean_parser_monad__parsec_unexpected__at___at_lean_parser_string__lit_x_2 obj* l_reader__t_bind___at_lean_parser_detail__ident__suffix_parser_lean_parser_has__tokens___spec__7___boxed(obj*, obj*); extern obj* l_lean_parser_combinators_any__of___rarg___closed__1; obj* l_lean_parser_monad__parsec_take__while___at_lean_parser_detail__ident__part_parser___spec__12___rarg(obj*, obj*); +obj* l_lean_parser_raw_view___rarg___lambda__2___closed__1; obj* l_lean_parser_number_parser_view___rarg(obj*); obj* l___private_init_lean_parser_parsec_4__take__while__aux___main___at_lean_parser_detail__ident__part_parser_lean_parser_has__view___spec__3(obj*, obj*, obj*); obj* l_lean_parser_symbol__core___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*); @@ -757,6 +761,7 @@ obj* l_lean_parser_number_x_27___lambda__4(obj*, obj*, obj*, obj*); obj* l_lean_parser_string__lit_parser_view___rarg(obj*); obj* l_lean_parser_monad__parsec_error___at_lean_parser_string__lit_view_value___spec__3___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_ident_parser___rarg(obj*); +obj* l_lean_parser_number_has__view_x_27___lambda__2___closed__4; obj* l_reader__t_lift___at_lean_parser_detail__ident_x_27___spec__1___rarg(obj*, obj*, obj*, obj*, obj*); obj* l_lean_parser_detail__ident__suffix_has__view_x_27___lambda__1(obj*); obj* l_lean_parser_parse__string__literal__aux___main___at_lean_parser_string__lit_x_27___spec__2___boxed(obj*, obj*, obj*, obj*, obj*); @@ -770,29 +775,11 @@ uint8 nat_dec_lt(obj*, obj*); obj* l_lean_parser_detail__ident__part_parser_lean_parser_has__view___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*); obj* l___private_init_lean_parser_rec_1__run__aux___main___rarg(obj*, obj*, obj*, obj*); obj* l_lean_parser_raw_tokens(obj*, obj*, obj*, obj*, obj*, obj*, uint8); -obj* l_lean_parser_raw_view___rarg___lambda__3___closed__1; -obj* l_lean_parser_match__token___lambda__1(obj* x_0) { -_start: -{ -obj* x_1; -x_1 = lean::cnstr_get(x_0, 1); -lean::inc(x_1); -return x_1; -} -} obj* _init_l_lean_parser_match__token___closed__1() { _start: { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_parser_match__token___lambda__1___boxed), 1, 0); -return x_0; -} -} -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), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 1, 0); lean::inc(x_0); lean::inc(x_0); x_3 = lean::alloc_closure(reinterpret_cast(l_function_comp___rarg), 3, 2); @@ -809,32 +796,56 @@ return x_5; obj* l_lean_parser_match__token(obj* x_0, obj* x_1, obj* x_2) { _start: { -obj* x_3; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; +obj* x_3; obj* x_7; x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); lean::inc(x_1); x_7 = l_lean_parser_trie_match__prefix___rarg(x_3, x_1); -x_8 = l_lean_parser_match__token___closed__1; -x_9 = l_option_map___rarg(x_8, x_7); -x_10 = l_lean_parser_match__token___closed__2; -x_11 = lean::alloc_cnstr(0, 3, 0); -lean::cnstr_set(x_11, 0, x_9); -lean::cnstr_set(x_11, 1, x_1); -lean::cnstr_set(x_11, 2, x_10); -x_12 = lean::alloc_cnstr(0, 2, 0); -lean::cnstr_set(x_12, 0, x_11); -lean::cnstr_set(x_12, 1, x_2); -return x_12; -} -} -obj* l_lean_parser_match__token___lambda__1___boxed(obj* x_0) { -_start: +if (lean::obj_tag(x_7) == 0) { -obj* x_1; -x_1 = l_lean_parser_match__token___lambda__1(x_0); -lean::dec(x_0); -return x_1; +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = lean::box(0); +x_9 = l_lean_parser_match__token___closed__1; +x_10 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_10, 0, x_8); +lean::cnstr_set(x_10, 1, x_1); +lean::cnstr_set(x_10, 2, x_9); +x_11 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_11, 0, x_10); +lean::cnstr_set(x_11, 1, x_2); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_18; obj* x_19; obj* x_20; obj* x_21; +x_12 = lean::cnstr_get(x_7, 0); +if (lean::is_exclusive(x_7)) { + x_14 = x_7; +} else { + lean::inc(x_12); + lean::dec(x_7); + x_14 = lean::box(0); +} +x_15 = lean::cnstr_get(x_12, 1); +lean::inc(x_15); +lean::dec(x_12); +if (lean::is_scalar(x_14)) { + x_18 = lean::alloc_cnstr(1, 1, 0); +} else { + x_18 = x_14; +} +lean::cnstr_set(x_18, 0, x_15); +x_19 = l_lean_parser_match__token___closed__1; +x_20 = lean::alloc_cnstr(0, 3, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_1); +lean::cnstr_set(x_20, 2, x_19); +x_21 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_21, 0, x_20); +lean::cnstr_set(x_21, 1, x_2); +return x_21; +} } } obj* l_lean_parser_monad__parsec_error___at___private_init_lean_parser_token_1__finish__comment__block__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) { @@ -1473,7 +1484,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), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_id___rarg___boxed), 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); @@ -3616,33 +3627,49 @@ return x_7; } } } +obj* _init_l_lean_parser_raw_view___rarg___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; +x_0 = lean::box(0); +x_1 = lean::box(3); +x_2 = l_option_get__or__else___main___rarg(x_0, x_1); +return x_2; +} +} obj* l_lean_parser_raw_view___rarg___lambda__2(obj* x_0) { _start: { +if (lean::obj_tag(x_0) == 0) +{ obj* x_1; -x_1 = lean::alloc_cnstr(0, 1, 0); -lean::cnstr_set(x_1, 0, x_0); +x_1 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; return x_1; } -} -obj* _init_l_lean_parser_raw_view___rarg___lambda__3___closed__1() { -_start: +else { -obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_parser_raw_view___rarg___lambda__2), 1, 0); -return x_0; +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); } +x_5 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_5, 0, x_2); +if (lean::is_scalar(x_4)) { + x_6 = lean::alloc_cnstr(1, 1, 0); +} else { + x_6 = x_4; +} +lean::cnstr_set(x_6, 0, x_5); +x_7 = lean::box(3); +x_8 = l_option_get__or__else___main___rarg(x_6, x_7); +lean::dec(x_6); +return x_8; } -obj* l_lean_parser_raw_view___rarg___lambda__3(obj* x_0) { -_start: -{ -obj* x_1; obj* x_2; obj* x_3; obj* x_4; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -return x_4; } } obj* _init_l_lean_parser_raw_view___rarg___closed__1() { @@ -3657,7 +3684,7 @@ obj* _init_l_lean_parser_raw_view___rarg___closed__2() { _start: { obj* x_0; -x_0 = lean::alloc_closure(reinterpret_cast(l_lean_parser_raw_view___rarg___lambda__3), 1, 0); +x_0 = lean::alloc_closure(reinterpret_cast(l_lean_parser_raw_view___rarg___lambda__2), 1, 0); return x_0; } } @@ -4293,10 +4320,66 @@ goto lbl_29; } } } +obj* _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_7; obj* x_8; obj* x_9; obj* x_10; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +lean::inc(x_3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_3); +lean::cnstr_set(x_5, 1, x_0); +lean::inc(x_3); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_5); +x_8 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_8, 0, x_3); +lean::cnstr_set(x_8, 1, x_7); +x_9 = l_lean_parser_detail__ident__part__escaped; +x_10 = l_lean_parser_syntax_mk__node(x_9, x_8); +return x_10; +} +} +obj* _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +return x_4; +} +} +obj* _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +lean::inc(x_3); +x_5 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_5, 0, x_3); +lean::cnstr_set(x_5, 1, x_0); +x_6 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_6, 0, x_3); +lean::cnstr_set(x_6, 1, x_5); +return x_6; +} +} obj* l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_5; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_13; obj* x_14; obj* x_16; obj* x_17; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; obj* x_24; +obj* x_1; obj* x_3; obj* x_5; obj* x_8; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); @@ -4304,30 +4387,270 @@ lean::inc(x_3); x_5 = lean::cnstr_get(x_0, 2); lean::inc(x_5); lean::dec(x_0); -x_8 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_9 = l_option_map___rarg(x_8, x_1); -x_10 = lean::box(3); -x_11 = l_option_get__or__else___main___rarg(x_9, x_10); -lean::dec(x_9); -x_13 = l_option_map___rarg(x_8, x_3); -x_14 = l_option_get__or__else___main___rarg(x_13, x_10); -lean::dec(x_13); -x_16 = l_option_map___rarg(x_8, x_5); -x_17 = l_option_get__or__else___main___rarg(x_16, x_10); -lean::dec(x_16); -x_19 = lean::box(0); +x_8 = lean::box(0); +if (lean::obj_tag(x_1) == 0) +{ +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_9; +x_9 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__1; +return x_9; +} +else +{ +obj* x_10; obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_23; +x_10 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_12 = x_5; +} else { + lean::inc(x_10); + lean::dec(x_5); + x_12 = lean::box(0); +} +x_13 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_13, 0, x_10); +if (lean::is_scalar(x_12)) { + x_14 = lean::alloc_cnstr(1, 1, 0); +} else { + x_14 = x_12; +} +lean::cnstr_set(x_14, 0, x_13); +x_15 = lean::box(3); +x_16 = l_option_get__or__else___main___rarg(x_14, x_15); +lean::dec(x_14); +x_18 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_18, 0, x_16); +lean::cnstr_set(x_18, 1, x_8); +x_19 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; x_20 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_20, 0, x_17); -lean::cnstr_set(x_20, 1, x_19); +lean::cnstr_set(x_20, 0, x_19); +lean::cnstr_set(x_20, 1, x_18); x_21 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_21, 0, x_14); +lean::cnstr_set(x_21, 0, x_19); lean::cnstr_set(x_21, 1, x_20); -x_22 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_22, 0, x_11); -lean::cnstr_set(x_22, 1, x_21); -x_23 = l_lean_parser_detail__ident__part__escaped; -x_24 = l_lean_parser_syntax_mk__node(x_23, x_22); -return x_24; +x_22 = l_lean_parser_detail__ident__part__escaped; +x_23 = l_lean_parser_syntax_mk__node(x_22, x_21); +return x_23; +} +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; +x_24 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_26 = x_3; +} else { + lean::inc(x_24); + lean::dec(x_3); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_32 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_33 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_33, 0, x_30); +lean::cnstr_set(x_33, 1, x_32); +x_34 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_33); +x_36 = l_lean_parser_detail__ident__part__escaped; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} +else +{ +obj* x_38; obj* x_40; obj* x_41; obj* x_42; obj* x_43; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_49; obj* x_50; +x_38 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_40 = x_5; +} else { + lean::inc(x_38); + lean::dec(x_5); + x_40 = lean::box(0); +} +x_41 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_41, 0, x_38); +if (lean::is_scalar(x_40)) { + x_42 = lean::alloc_cnstr(1, 1, 0); +} else { + x_42 = x_40; +} +lean::cnstr_set(x_42, 0, x_41); +x_43 = l_option_get__or__else___main___rarg(x_42, x_29); +lean::dec(x_42); +x_45 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_45, 0, x_43); +lean::cnstr_set(x_45, 1, x_8); +x_46 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_46, 0, x_30); +lean::cnstr_set(x_46, 1, x_45); +x_47 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_48 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_48, 0, x_47); +lean::cnstr_set(x_48, 1, x_46); +x_49 = l_lean_parser_detail__ident__part__escaped; +x_50 = l_lean_parser_syntax_mk__node(x_49, x_48); +return x_50; +} +} +} +else +{ +obj* x_51; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; +x_51 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_53 = x_1; +} else { + lean::inc(x_51); + lean::dec(x_1); + x_53 = lean::box(0); +} +x_54 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_54, 0, x_51); +if (lean::is_scalar(x_53)) { + x_55 = lean::alloc_cnstr(1, 1, 0); +} else { + x_55 = x_53; +} +lean::cnstr_set(x_55, 0, x_54); +x_56 = lean::box(3); +x_57 = l_option_get__or__else___main___rarg(x_55, x_56); +lean::dec(x_55); +if (lean::obj_tag(x_3) == 0) +{ +if (lean::obj_tag(x_5) == 0) +{ +obj* x_59; obj* x_60; obj* x_61; obj* x_62; +x_59 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3; +x_60 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_60, 0, x_57); +lean::cnstr_set(x_60, 1, x_59); +x_61 = l_lean_parser_detail__ident__part__escaped; +x_62 = l_lean_parser_syntax_mk__node(x_61, x_60); +return x_62; +} +else +{ +obj* x_63; obj* x_65; obj* x_66; obj* x_67; obj* x_68; obj* x_70; obj* x_71; obj* x_72; obj* x_73; obj* x_74; obj* x_75; +x_63 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_65 = x_5; +} else { + lean::inc(x_63); + lean::dec(x_5); + x_65 = lean::box(0); +} +x_66 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_66, 0, x_63); +if (lean::is_scalar(x_65)) { + x_67 = lean::alloc_cnstr(1, 1, 0); +} else { + x_67 = x_65; +} +lean::cnstr_set(x_67, 0, x_66); +x_68 = l_option_get__or__else___main___rarg(x_67, x_56); +lean::dec(x_67); +x_70 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_70, 0, x_68); +lean::cnstr_set(x_70, 1, x_8); +x_71 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_72 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_72, 0, x_71); +lean::cnstr_set(x_72, 1, x_70); +x_73 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_73, 0, x_57); +lean::cnstr_set(x_73, 1, x_72); +x_74 = l_lean_parser_detail__ident__part__escaped; +x_75 = l_lean_parser_syntax_mk__node(x_74, x_73); +return x_75; +} +} +else +{ +obj* x_76; obj* x_78; obj* x_79; obj* x_80; obj* x_81; +x_76 = lean::cnstr_get(x_3, 0); +if (lean::is_exclusive(x_3)) { + x_78 = x_3; +} else { + lean::inc(x_76); + lean::dec(x_3); + x_78 = lean::box(0); +} +x_79 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_79, 0, x_76); +if (lean::is_scalar(x_78)) { + x_80 = lean::alloc_cnstr(1, 1, 0); +} else { + x_80 = x_78; +} +lean::cnstr_set(x_80, 0, x_79); +x_81 = l_option_get__or__else___main___rarg(x_80, x_56); +lean::dec(x_80); +if (lean::obj_tag(x_5) == 0) +{ +obj* x_83; obj* x_84; obj* x_85; obj* x_86; obj* x_87; +x_83 = l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2; +x_84 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_84, 0, x_81); +lean::cnstr_set(x_84, 1, x_83); +x_85 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_85, 0, x_57); +lean::cnstr_set(x_85, 1, x_84); +x_86 = l_lean_parser_detail__ident__part__escaped; +x_87 = l_lean_parser_syntax_mk__node(x_86, x_85); +return x_87; +} +else +{ +obj* x_88; obj* x_90; obj* x_91; obj* x_92; obj* x_93; obj* x_95; obj* x_96; obj* x_97; obj* x_98; obj* x_99; +x_88 = lean::cnstr_get(x_5, 0); +if (lean::is_exclusive(x_5)) { + x_90 = x_5; +} else { + lean::inc(x_88); + lean::dec(x_5); + x_90 = lean::box(0); +} +x_91 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_91, 0, x_88); +if (lean::is_scalar(x_90)) { + x_92 = lean::alloc_cnstr(1, 1, 0); +} else { + x_92 = x_90; +} +lean::cnstr_set(x_92, 0, x_91); +x_93 = l_option_get__or__else___main___rarg(x_92, x_56); +lean::dec(x_92); +x_95 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_95, 0, x_93); +lean::cnstr_set(x_95, 1, x_8); +x_96 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_96, 0, x_81); +lean::cnstr_set(x_96, 1, x_95); +x_97 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_97, 0, x_57); +lean::cnstr_set(x_97, 1, x_96); +x_98 = l_lean_parser_detail__ident__part__escaped; +x_99 = l_lean_parser_syntax_mk__node(x_98, x_97); +return x_99; +} +} +} } } obj* _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27() { @@ -4666,6 +4989,29 @@ return x_2; obj* _init_l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_detail__ident__part; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3() { +_start: +{ obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); x_1 = lean::mk_nat_obj(1u); @@ -4703,26 +5049,50 @@ return x_15; } else { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; +obj* x_16; x_16 = lean::cnstr_get(x_0, 0); lean::inc(x_16); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_detail__ident__part; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_16) == 0) +{ +obj* x_19; +x_19 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; +return x_19; +} +else +{ +obj* x_20; obj* x_22; obj* x_23; obj* x_24; obj* x_25; obj* x_26; obj* x_28; obj* x_29; obj* x_30; obj* x_31; obj* x_32; obj* x_33; +x_20 = lean::cnstr_get(x_16, 0); +if (lean::is_exclusive(x_16)) { + x_22 = x_16; +} else { + lean::inc(x_20); + lean::dec(x_16); + x_22 = lean::box(0); +} +x_23 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_23, 0, x_20); +if (lean::is_scalar(x_22)) { + x_24 = lean::alloc_cnstr(1, 1, 0); +} else { + x_24 = x_22; +} +lean::cnstr_set(x_24, 0, x_23); +x_25 = lean::box(3); +x_26 = l_option_get__or__else___main___rarg(x_24, x_25); +lean::dec(x_24); +x_28 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_28, 0, x_26); +lean::cnstr_set(x_28, 1, x_1); +x_29 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_30 = l_lean_parser_syntax_mk__node(x_29, x_28); +x_31 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_31, 0, x_30); +lean::cnstr_set(x_31, 1, x_1); +x_32 = l_lean_parser_detail__ident__part; +x_33 = l_lean_parser_syntax_mk__node(x_32, x_31); +return x_33; +} } } } @@ -9297,27 +9667,56 @@ return x_51; obj* l_lean_parser_detail__ident__suffix_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_3; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_1; obj* x_3; obj* x_6; obj* x_7; x_1 = lean::cnstr_get(x_0, 0); lean::inc(x_1); x_3 = lean::cnstr_get(x_0, 1); lean::inc(x_3); lean::dec(x_0); -x_6 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_7 = l_option_map___rarg(x_6, x_1); -x_8 = lean::box(3); -x_9 = l_option_get__or__else___main___rarg(x_7, x_8); -lean::dec(x_7); -x_11 = lean::box(0); -x_12 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_12, 0, x_3); -lean::cnstr_set(x_12, 1, x_11); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_9); -lean::cnstr_set(x_13, 1, x_12); -x_14 = l_lean_parser_detail__ident__suffix; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +x_6 = lean::box(0); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_3); +lean::cnstr_set(x_7, 1, x_6); +if (lean::obj_tag(x_1) == 0) +{ +obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_8 = l_lean_parser_raw_view___rarg___lambda__2___closed__1; +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_7); +x_10 = l_lean_parser_detail__ident__suffix; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +else +{ +obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_20; obj* x_21; obj* x_22; +x_12 = lean::cnstr_get(x_1, 0); +if (lean::is_exclusive(x_1)) { + x_14 = x_1; +} else { + lean::inc(x_12); + lean::dec(x_1); + x_14 = lean::box(0); +} +x_15 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_15, 0, x_12); +if (lean::is_scalar(x_14)) { + x_16 = lean::alloc_cnstr(1, 1, 0); +} else { + x_16 = x_14; +} +lean::cnstr_set(x_16, 0, x_15); +x_17 = lean::box(3); +x_18 = l_option_get__or__else___main___rarg(x_16, x_17); +lean::dec(x_16); +x_20 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_20, 0, x_18); +lean::cnstr_set(x_20, 1, x_7); +x_21 = l_lean_parser_detail__ident__suffix; +x_22 = l_lean_parser_syntax_mk__node(x_21, x_20); +return x_22; +} } } obj* _init_l_lean_parser_detail__ident__suffix_has__view_x_27() { @@ -16459,6 +16858,75 @@ return x_105; obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__1() { _start: { +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(0u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_number; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__2() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(1u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_number; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__3() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(2u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_number; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__4() { +_start: +{ obj* x_0; obj* x_1; obj* x_2; x_0 = lean::box(0); x_1 = lean::mk_nat_obj(2u); @@ -16466,7 +16934,30 @@ x_2 = lean_name_mk_numeral(x_0, x_1); return x_2; } } -obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__2() { +obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__5() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::mk_nat_obj(3u); +x_3 = lean_name_mk_numeral(x_1, x_2); +x_4 = lean::box(0); +x_5 = lean::box(3); +x_6 = l_option_get__or__else___main___rarg(x_4, x_5); +x_7 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_7, 0, x_6); +lean::cnstr_set(x_7, 1, x_0); +x_8 = l_lean_parser_syntax_mk__node(x_3, x_7); +x_9 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_9, 0, x_8); +lean::cnstr_set(x_9, 1, x_0); +x_10 = l_lean_parser_number; +x_11 = l_lean_parser_syntax_mk__node(x_10, x_9); +return x_11; +} +} +obj* _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__6() { _start: { obj* x_0; obj* x_1; obj* x_2; @@ -16484,95 +16975,191 @@ x_1 = lean::box(0); switch (lean::obj_tag(x_0)) { case 0: { -obj* x_2; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; +obj* x_2; x_2 = lean::cnstr_get(x_0, 0); lean::inc(x_2); lean::dec(x_0); -x_5 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_6 = l_option_map___rarg(x_5, x_2); -x_7 = lean::box(3); -x_8 = l_option_get__or__else___main___rarg(x_6, x_7); -lean::dec(x_6); -x_10 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_10, 0, x_8); -lean::cnstr_set(x_10, 1, x_1); -x_11 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; -x_12 = l_lean_parser_syntax_mk__node(x_11, x_10); -x_13 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_13, 0, x_12); -lean::cnstr_set(x_13, 1, x_1); -x_14 = l_lean_parser_number; -x_15 = l_lean_parser_syntax_mk__node(x_14, x_13); -return x_15; +if (lean::obj_tag(x_2) == 0) +{ +obj* x_5; +x_5 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; +return x_5; +} +else +{ +obj* x_6; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_14; obj* x_15; obj* x_16; obj* x_17; obj* x_18; obj* x_19; +x_6 = lean::cnstr_get(x_2, 0); +if (lean::is_exclusive(x_2)) { + x_8 = x_2; +} else { + lean::inc(x_6); + lean::dec(x_2); + x_8 = lean::box(0); +} +x_9 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_9, 0, x_6); +if (lean::is_scalar(x_8)) { + x_10 = lean::alloc_cnstr(1, 1, 0); +} else { + x_10 = x_8; +} +lean::cnstr_set(x_10, 0, x_9); +x_11 = lean::box(3); +x_12 = l_option_get__or__else___main___rarg(x_10, x_11); +lean::dec(x_10); +x_14 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_14, 0, x_12); +lean::cnstr_set(x_14, 1, x_1); +x_15 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1; +x_16 = l_lean_parser_syntax_mk__node(x_15, x_14); +x_17 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_17, 0, x_16); +lean::cnstr_set(x_17, 1, x_1); +x_18 = l_lean_parser_number; +x_19 = l_lean_parser_syntax_mk__node(x_18, x_17); +return x_19; +} } case 1: { -obj* x_16; obj* x_19; obj* x_20; obj* x_21; obj* x_22; obj* x_24; obj* x_25; obj* x_26; obj* x_27; obj* x_28; obj* x_29; -x_16 = lean::cnstr_get(x_0, 0); -lean::inc(x_16); +obj* x_20; +x_20 = lean::cnstr_get(x_0, 0); +lean::inc(x_20); lean::dec(x_0); -x_19 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_20 = l_option_map___rarg(x_19, x_16); -x_21 = lean::box(3); -x_22 = l_option_get__or__else___main___rarg(x_20, x_21); -lean::dec(x_20); -x_24 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_24, 0, x_22); -lean::cnstr_set(x_24, 1, x_1); -x_25 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2; -x_26 = l_lean_parser_syntax_mk__node(x_25, x_24); -x_27 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_27, 0, x_26); -lean::cnstr_set(x_27, 1, x_1); -x_28 = l_lean_parser_number; -x_29 = l_lean_parser_syntax_mk__node(x_28, x_27); -return x_29; +if (lean::obj_tag(x_20) == 0) +{ +obj* x_23; +x_23 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; +return x_23; +} +else +{ +obj* x_24; obj* x_26; obj* x_27; obj* x_28; obj* x_29; obj* x_30; obj* x_32; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_37; +x_24 = lean::cnstr_get(x_20, 0); +if (lean::is_exclusive(x_20)) { + x_26 = x_20; +} else { + lean::inc(x_24); + lean::dec(x_20); + x_26 = lean::box(0); +} +x_27 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_27, 0, x_24); +if (lean::is_scalar(x_26)) { + x_28 = lean::alloc_cnstr(1, 1, 0); +} else { + x_28 = x_26; +} +lean::cnstr_set(x_28, 0, x_27); +x_29 = lean::box(3); +x_30 = l_option_get__or__else___main___rarg(x_28, x_29); +lean::dec(x_28); +x_32 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_32, 0, x_30); +lean::cnstr_set(x_32, 1, x_1); +x_33 = l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3; +x_34 = l_lean_parser_syntax_mk__node(x_33, x_32); +x_35 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_35, 0, x_34); +lean::cnstr_set(x_35, 1, x_1); +x_36 = l_lean_parser_number; +x_37 = l_lean_parser_syntax_mk__node(x_36, x_35); +return x_37; +} } case 2: { -obj* x_30; obj* x_33; obj* x_34; obj* x_35; obj* x_36; obj* x_38; obj* x_39; obj* x_40; obj* x_41; obj* x_42; obj* x_43; -x_30 = lean::cnstr_get(x_0, 0); -lean::inc(x_30); +obj* x_38; +x_38 = lean::cnstr_get(x_0, 0); +lean::inc(x_38); lean::dec(x_0); -x_33 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_34 = l_option_map___rarg(x_33, x_30); -x_35 = lean::box(3); -x_36 = l_option_get__or__else___main___rarg(x_34, x_35); -lean::dec(x_34); -x_38 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_38, 0, x_36); -lean::cnstr_set(x_38, 1, x_1); -x_39 = l_lean_parser_number_has__view_x_27___lambda__2___closed__1; -x_40 = l_lean_parser_syntax_mk__node(x_39, x_38); -x_41 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_41, 0, x_40); -lean::cnstr_set(x_41, 1, x_1); -x_42 = l_lean_parser_number; -x_43 = l_lean_parser_syntax_mk__node(x_42, x_41); -return x_43; +if (lean::obj_tag(x_38) == 0) +{ +obj* x_41; +x_41 = l_lean_parser_number_has__view_x_27___lambda__2___closed__3; +return x_41; +} +else +{ +obj* x_42; obj* x_44; obj* x_45; obj* x_46; obj* x_47; obj* x_48; obj* x_50; obj* x_51; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_42 = lean::cnstr_get(x_38, 0); +if (lean::is_exclusive(x_38)) { + x_44 = x_38; +} else { + lean::inc(x_42); + lean::dec(x_38); + x_44 = lean::box(0); +} +x_45 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_45, 0, x_42); +if (lean::is_scalar(x_44)) { + x_46 = lean::alloc_cnstr(1, 1, 0); +} else { + x_46 = x_44; +} +lean::cnstr_set(x_46, 0, x_45); +x_47 = lean::box(3); +x_48 = l_option_get__or__else___main___rarg(x_46, x_47); +lean::dec(x_46); +x_50 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_50, 0, x_48); +lean::cnstr_set(x_50, 1, x_1); +x_51 = l_lean_parser_number_has__view_x_27___lambda__2___closed__4; +x_52 = l_lean_parser_syntax_mk__node(x_51, x_50); +x_53 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_53, 0, x_52); +lean::cnstr_set(x_53, 1, x_1); +x_54 = l_lean_parser_number; +x_55 = l_lean_parser_syntax_mk__node(x_54, x_53); +return x_55; +} } default: { -obj* x_44; obj* x_47; obj* x_48; obj* x_49; obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; obj* x_56; obj* x_57; -x_44 = lean::cnstr_get(x_0, 0); -lean::inc(x_44); +obj* x_56; +x_56 = lean::cnstr_get(x_0, 0); +lean::inc(x_56); lean::dec(x_0); -x_47 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_48 = l_option_map___rarg(x_47, x_44); -x_49 = lean::box(3); -x_50 = l_option_get__or__else___main___rarg(x_48, x_49); -lean::dec(x_48); -x_52 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_52, 0, x_50); -lean::cnstr_set(x_52, 1, x_1); -x_53 = l_lean_parser_number_has__view_x_27___lambda__2___closed__2; -x_54 = l_lean_parser_syntax_mk__node(x_53, x_52); -x_55 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_55, 0, x_54); -lean::cnstr_set(x_55, 1, x_1); -x_56 = l_lean_parser_number; -x_57 = l_lean_parser_syntax_mk__node(x_56, x_55); -return x_57; +if (lean::obj_tag(x_56) == 0) +{ +obj* x_59; +x_59 = l_lean_parser_number_has__view_x_27___lambda__2___closed__5; +return x_59; +} +else +{ +obj* x_60; obj* x_62; obj* x_63; obj* x_64; obj* x_65; obj* x_66; obj* x_68; obj* x_69; obj* x_70; obj* x_71; obj* x_72; obj* x_73; +x_60 = lean::cnstr_get(x_56, 0); +if (lean::is_exclusive(x_56)) { + x_62 = x_56; +} else { + lean::inc(x_60); + lean::dec(x_56); + x_62 = lean::box(0); +} +x_63 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_63, 0, x_60); +if (lean::is_scalar(x_62)) { + x_64 = lean::alloc_cnstr(1, 1, 0); +} else { + x_64 = x_62; +} +lean::cnstr_set(x_64, 0, x_63); +x_65 = lean::box(3); +x_66 = l_option_get__or__else___main___rarg(x_64, x_65); +lean::dec(x_64); +x_68 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_68, 0, x_66); +lean::cnstr_set(x_68, 1, x_1); +x_69 = l_lean_parser_number_has__view_x_27___lambda__2___closed__6; +x_70 = l_lean_parser_syntax_mk__node(x_69, x_68); +x_71 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_71, 0, x_70); +lean::cnstr_set(x_71, 1, x_1); +x_72 = l_lean_parser_number; +x_73 = l_lean_parser_syntax_mk__node(x_72, x_71); +return x_73; +} } } } @@ -18524,22 +19111,61 @@ return x_22; } } } +obj* _init_l_lean_parser_string__lit_has__view_x_27___lambda__2___closed__1() { +_start: +{ +obj* x_0; obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; +x_0 = lean::box(0); +x_1 = lean::box(0); +x_2 = lean::box(3); +x_3 = l_option_get__or__else___main___rarg(x_1, x_2); +x_4 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_4, 0, x_3); +lean::cnstr_set(x_4, 1, x_0); +x_5 = l_lean_parser_string__lit; +x_6 = l_lean_parser_syntax_mk__node(x_5, x_4); +return x_6; +} +} obj* l_lean_parser_string__lit_has__view_x_27___lambda__2(obj* x_0) { _start: { -obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_6; obj* x_7; obj* x_8; obj* x_9; -x_1 = l_lean_parser_raw_view___rarg___lambda__3___closed__1; -x_2 = l_option_map___rarg(x_1, x_0); -x_3 = lean::box(3); -x_4 = l_option_get__or__else___main___rarg(x_2, x_3); -lean::dec(x_2); -x_6 = lean::box(0); -x_7 = lean::alloc_cnstr(1, 2, 0); -lean::cnstr_set(x_7, 0, x_4); -lean::cnstr_set(x_7, 1, x_6); -x_8 = l_lean_parser_string__lit; -x_9 = l_lean_parser_syntax_mk__node(x_8, x_7); -return x_9; +if (lean::obj_tag(x_0) == 0) +{ +obj* x_1; +x_1 = l_lean_parser_string__lit_has__view_x_27___lambda__2___closed__1; +return x_1; +} +else +{ +obj* x_2; obj* x_4; obj* x_5; obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_11; obj* x_12; obj* x_13; +x_2 = lean::cnstr_get(x_0, 0); +if (lean::is_exclusive(x_0)) { + x_4 = x_0; +} else { + lean::inc(x_2); + lean::dec(x_0); + x_4 = lean::box(0); +} +x_5 = lean::box(0); +x_6 = lean::alloc_cnstr(0, 1, 0); +lean::cnstr_set(x_6, 0, x_2); +if (lean::is_scalar(x_4)) { + x_7 = lean::alloc_cnstr(1, 1, 0); +} else { + x_7 = x_4; +} +lean::cnstr_set(x_7, 0, x_6); +x_8 = lean::box(3); +x_9 = l_option_get__or__else___main___rarg(x_7, x_8); +lean::dec(x_7); +x_11 = lean::alloc_cnstr(1, 2, 0); +lean::cnstr_set(x_11, 0, x_9); +lean::cnstr_set(x_11, 1, x_5); +x_12 = l_lean_parser_string__lit; +x_13 = l_lean_parser_syntax_mk__node(x_12, x_11); +return x_13; +} } } obj* _init_l_lean_parser_string__lit_has__view_x_27() { @@ -19379,7 +20005,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_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; +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; x_95 = lean::cnstr_get(x_92, 1); if (lean::is_exclusive(x_92)) { lean::cnstr_release(x_92, 0); @@ -19418,550 +20044,552 @@ 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); -x_122 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_123 = lean::box_uint32(x_121); +lean::dec(x_118); +x_123 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_124 = lean::box_uint32(x_121); if (lean::is_scalar(x_104)) { - x_124 = lean::alloc_cnstr(0, 3, 0); + x_125 = lean::alloc_cnstr(0, 3, 0); } else { - x_124 = x_104; + x_125 = x_104; } -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); +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); if (lean::is_scalar(x_97)) { - x_131 = lean::alloc_cnstr(0, 2, 0); + x_132 = lean::alloc_cnstr(0, 2, 0); } else { - x_131 = x_97; + x_132 = x_97; } -lean::cnstr_set(x_131, 0, x_130); -lean::cnstr_set(x_131, 1, x_95); -return x_131; +lean::cnstr_set(x_132, 0, x_131); +lean::cnstr_set(x_132, 1, x_95); +return x_132; } else { -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); +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); +lean::dec(x_59); lean::dec(x_85); -x_135 = lean::cnstr_get(x_92, 1); +x_136 = lean::cnstr_get(x_92, 1); if (lean::is_exclusive(x_92)) { lean::cnstr_release(x_92, 0); - x_137 = x_92; + x_138 = x_92; } else { - lean::inc(x_135); + lean::inc(x_136); lean::dec(x_92); - x_137 = lean::box(0); + x_138 = lean::box(0); } -x_138 = lean::cnstr_get(x_93, 0); -x_140 = lean::cnstr_get_scalar(x_93, sizeof(void*)*1); +x_139 = lean::cnstr_get(x_93, 0); +x_141 = lean::cnstr_get_scalar(x_93, sizeof(void*)*1); if (lean::is_exclusive(x_93)) { - x_141 = x_93; + x_142 = x_93; } else { - lean::inc(x_138); + lean::inc(x_139); lean::dec(x_93); - x_141 = lean::box(0); + x_142 = lean::box(0); } -if (lean::is_scalar(x_141)) { - x_142 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_142)) { + x_143 = lean::alloc_cnstr(1, 1, 1); } else { - x_142 = x_141; + x_143 = x_142; } -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); +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); } else { - x_150 = x_137; + x_151 = x_138; } -lean::cnstr_set(x_150, 0, x_149); -lean::cnstr_set(x_150, 1, x_135); -return x_150; +lean::cnstr_set(x_151, 0, x_150); +lean::cnstr_set(x_151, 1, x_136); +return x_151; } } else { -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); +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); -x_153 = lean::cnstr_get(x_79, 1); +lean::dec(x_59); +x_154 = lean::cnstr_get(x_79, 1); if (lean::is_exclusive(x_79)) { lean::cnstr_release(x_79, 0); - x_155 = x_79; + x_156 = x_79; } else { - lean::inc(x_153); + lean::inc(x_154); lean::dec(x_79); - x_155 = lean::box(0); + x_156 = lean::box(0); } -x_156 = lean::cnstr_get(x_80, 0); -x_158 = lean::cnstr_get_scalar(x_80, sizeof(void*)*1); +x_157 = lean::cnstr_get(x_80, 0); +x_159 = lean::cnstr_get_scalar(x_80, sizeof(void*)*1); if (lean::is_exclusive(x_80)) { - x_159 = x_80; + x_160 = x_80; } else { - lean::inc(x_156); + lean::inc(x_157); lean::dec(x_80); - x_159 = lean::box(0); + x_160 = lean::box(0); } -if (lean::is_scalar(x_159)) { - x_160 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_160)) { + x_161 = lean::alloc_cnstr(1, 1, 1); } else { - x_160 = x_159; + x_161 = x_160; } -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); +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); } else { - x_167 = x_155; + x_168 = x_156; } -lean::cnstr_set(x_167, 0, x_166); -lean::cnstr_set(x_167, 1, x_153); -return x_167; +lean::cnstr_set(x_168, 0, x_167); +lean::cnstr_set(x_168, 1, x_154); +return x_168; } } else { -obj* x_169; obj* x_171; obj* x_172; uint8 x_174; obj* x_175; obj* x_176; obj* x_177; obj* x_178; obj* x_179; obj* x_180; obj* x_181; obj* x_182; +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; lean::dec(x_59); -x_169 = lean::cnstr_get(x_66, 1); +x_170 = lean::cnstr_get(x_66, 1); if (lean::is_exclusive(x_66)) { lean::cnstr_release(x_66, 0); - x_171 = x_66; + x_172 = x_66; } else { - lean::inc(x_169); + lean::inc(x_170); lean::dec(x_66); - x_171 = lean::box(0); + x_172 = lean::box(0); } -x_172 = lean::cnstr_get(x_67, 0); -x_174 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); +x_173 = lean::cnstr_get(x_67, 0); +x_175 = lean::cnstr_get_scalar(x_67, sizeof(void*)*1); if (lean::is_exclusive(x_67)) { - x_175 = x_67; + x_176 = x_67; } else { - lean::inc(x_172); + lean::inc(x_173); lean::dec(x_67); - x_175 = lean::box(0); + x_176 = lean::box(0); } -if (lean::is_scalar(x_175)) { - x_176 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_176)) { + x_177 = lean::alloc_cnstr(1, 1, 1); } else { - x_176 = x_175; + x_177 = x_176; } -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); +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); } else { - x_182 = x_171; + x_183 = x_172; } -lean::cnstr_set(x_182, 0, x_181); -lean::cnstr_set(x_182, 1, x_169); -return x_182; +lean::cnstr_set(x_183, 0, x_182); +lean::cnstr_set(x_183, 1, x_170); +return x_183; } } else { -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); +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); if (lean::is_exclusive(x_53)) { lean::cnstr_release(x_53, 0); - x_185 = x_53; + x_186 = x_53; } else { - lean::inc(x_183); + lean::inc(x_184); lean::dec(x_53); - x_185 = lean::box(0); + x_186 = lean::box(0); } -x_186 = lean::cnstr_get(x_54, 0); -x_188 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); +x_187 = lean::cnstr_get(x_54, 0); +x_189 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); if (lean::is_exclusive(x_54)) { - x_189 = x_54; + x_190 = x_54; } else { - lean::inc(x_186); + lean::inc(x_187); lean::dec(x_54); - x_189 = lean::box(0); + x_190 = lean::box(0); } -if (lean::is_scalar(x_189)) { - x_190 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_190)) { + x_191 = lean::alloc_cnstr(1, 1, 1); } else { - x_190 = x_189; + x_191 = x_190; } -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); +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); } else { - x_195 = x_185; + x_196 = x_186; } -lean::cnstr_set(x_195, 0, x_194); -lean::cnstr_set(x_195, 1, x_183); -return x_195; +lean::cnstr_set(x_196, 0, x_195); +lean::cnstr_set(x_196, 1, x_184); +return x_196; } } } lbl_20: { -uint32 x_197; uint32 x_198; uint8 x_199; +uint32 x_198; uint32 x_199; uint8 x_200; lean::dec(x_19); -x_197 = 116; -x_198 = lean::unbox_uint32(x_10); -x_199 = x_198 == x_197; -if (x_199 == 0) +x_198 = 116; +x_199 = lean::unbox_uint32(x_10); +x_200 = x_199 == x_198; +if (x_200 == 0) { -uint32 x_202; uint8 x_203; +uint32 x_203; uint8 x_204; lean::dec(x_16); lean::dec(x_9); -x_202 = 120; -x_203 = x_198 == x_202; -if (x_203 == 0) +x_203 = 120; +x_204 = x_199 == x_203; +if (x_204 == 0) { -obj* x_204; -x_204 = lean::box(0); -x_17 = x_204; +obj* x_205; +x_205 = lean::box(0); +x_17 = x_205; goto lbl_18; } else { -obj* x_206; obj* x_207; +obj* x_207; obj* x_208; lean::dec(x_1); -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) +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) { -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); +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); lean::dec(x_207); -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) +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) { -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); +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); if (lean::is_exclusive(x_220)) { - x_231 = x_220; + lean::cnstr_release(x_220, 0); + x_225 = x_220; } else { - lean::inc(x_225); - lean::inc(x_227); - lean::inc(x_229); + lean::inc(x_223); lean::dec(x_220); - x_231 = lean::box(0); + x_225 = lean::box(0); } -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); +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; } else { - x_241 = x_231; + lean::inc(x_226); + lean::inc(x_228); + lean::inc(x_230); + lean::dec(x_221); + x_232 = lean::box(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); +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); } else { - x_246 = x_224; + x_243 = x_232; } -lean::cnstr_set(x_246, 0, x_245); -lean::cnstr_set(x_246, 1, x_222); -return x_246; +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; } else { -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); +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); if (lean::is_exclusive(x_220)) { - x_254 = x_220; + lean::cnstr_release(x_220, 0); + x_252 = x_220; } else { - lean::inc(x_251); + lean::inc(x_250); lean::dec(x_220); - x_254 = lean::box(0); + x_252 = lean::box(0); } -if (lean::is_scalar(x_254)) { - x_255 = lean::alloc_cnstr(1, 1, 1); +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; } else { - x_255 = x_254; + lean::inc(x_253); + lean::dec(x_221); + x_256 = lean::box(0); } -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); +if (lean::is_scalar(x_256)) { + x_257 = lean::alloc_cnstr(1, 1, 1); } else { - x_261 = x_250; + x_257 = x_256; } -lean::cnstr_set(x_261, 0, x_260); -lean::cnstr_set(x_261, 1, x_248); -return x_261; +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; } } else { -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); +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); if (lean::is_exclusive(x_207)) { - x_268 = x_207; + lean::cnstr_release(x_207, 0); + x_266 = x_207; } else { - lean::inc(x_265); + lean::inc(x_264); lean::dec(x_207); - x_268 = lean::box(0); + x_266 = lean::box(0); } -if (lean::is_scalar(x_268)) { - x_269 = lean::alloc_cnstr(1, 1, 1); +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; } else { - x_269 = x_268; + lean::inc(x_267); + lean::dec(x_208); + x_270 = lean::box(0); } -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); +if (lean::is_scalar(x_270)) { + x_271 = lean::alloc_cnstr(1, 1, 1); } else { - x_274 = x_264; + x_271 = x_270; } -lean::cnstr_set(x_274, 0, x_273); -lean::cnstr_set(x_274, 1, x_262); -return x_274; +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; } } } else { -uint32 x_276; obj* x_277; obj* x_278; obj* x_279; obj* x_280; obj* x_281; obj* x_282; +uint32 x_278; obj* x_279; obj* x_280; obj* x_281; obj* x_282; obj* x_283; obj* x_284; lean::dec(x_1); -x_276 = 9; -x_277 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_278 = lean::box_uint32(x_276); +x_278 = 9; +x_279 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_280 = lean::box_uint32(x_278); if (lean::is_scalar(x_16)) { - x_279 = lean::alloc_cnstr(0, 3, 0); + x_281 = lean::alloc_cnstr(0, 3, 0); } else { - x_279 = x_16; + x_281 = x_16; } -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); +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); if (lean::is_scalar(x_9)) { - x_282 = lean::alloc_cnstr(0, 2, 0); + x_284 = lean::alloc_cnstr(0, 2, 0); } else { - x_282 = x_9; + x_284 = x_9; } -lean::cnstr_set(x_282, 0, x_281); -lean::cnstr_set(x_282, 1, x_7); -return x_282; +lean::cnstr_set(x_284, 0, x_283); +lean::cnstr_set(x_284, 1, x_7); +return x_284; } } lbl_22: { -uint32 x_284; uint32 x_285; uint8 x_286; +uint32 x_286; uint32 x_287; uint8 x_288; lean::dec(x_21); -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; +x_286 = 34; +x_287 = lean::unbox_uint32(x_10); +x_288 = x_287 == x_286; if (x_288 == 0) { uint32 x_289; uint8 x_290; -x_289 = 110; -x_290 = x_285 == x_289; +x_289 = 39; +x_290 = x_287 == x_289; if (x_290 == 0) { -obj* x_291; -x_291 = lean::box(0); -x_19 = x_291; +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; goto lbl_20; } else { -uint32 x_295; obj* x_296; obj* x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_301; +uint32 x_297; obj* x_298; obj* x_299; obj* x_300; obj* x_301; obj* x_302; obj* x_303; lean::dec(x_16); lean::dec(x_9); lean::dec(x_1); -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; +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; } } else { -obj* x_305; obj* x_306; obj* x_307; obj* x_308; obj* x_309; obj* x_310; +obj* x_307; obj* x_308; obj* x_309; obj* x_310; obj* x_311; obj* x_312; lean::dec(x_16); lean::dec(x_9); lean::dec(x_1); -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; +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; } } else { -obj* x_314; obj* x_315; obj* x_316; obj* x_317; obj* x_318; obj* x_319; +obj* x_316; obj* x_317; obj* x_318; obj* x_319; obj* x_320; obj* x_321; lean::dec(x_16); lean::dec(x_9); lean::dec(x_1); -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; +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; } } } else { -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; +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; lean::dec(x_1); -x_321 = lean::cnstr_get(x_4, 1); +x_323 = lean::cnstr_get(x_4, 1); if (lean::is_exclusive(x_4)) { lean::cnstr_release(x_4, 0); - x_323 = x_4; + x_325 = x_4; } else { - lean::inc(x_321); + lean::inc(x_323); lean::dec(x_4); - x_323 = lean::box(0); + x_325 = lean::box(0); } -x_324 = lean::cnstr_get(x_5, 0); -x_326 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); +x_326 = lean::cnstr_get(x_5, 0); +x_328 = lean::cnstr_get_scalar(x_5, sizeof(void*)*1); if (lean::is_exclusive(x_5)) { - x_327 = x_5; + x_329 = x_5; } else { - lean::inc(x_324); + lean::inc(x_326); lean::dec(x_5); - x_327 = lean::box(0); + x_329 = lean::box(0); } -if (lean::is_scalar(x_327)) { - x_328 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_329)) { + x_330 = lean::alloc_cnstr(1, 1, 1); } else { - x_328 = x_327; + x_330 = x_329; } -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); +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); } else { - x_332 = x_323; + x_334 = x_325; } -lean::cnstr_set(x_332, 0, x_331); -lean::cnstr_set(x_332, 1, x_321); -return x_332; +lean::cnstr_set(x_334, 0, x_333); +lean::cnstr_set(x_334, 1, x_323); +return x_334; } } } @@ -21748,7 +22376,7 @@ x_215 = lean::alloc_cnstr(0, 3, 0); lean::cnstr_set(x_215, 0, x_206); lean::cnstr_set(x_215, 1, x_207); lean::cnstr_set(x_215, 2, x_213); -x_216 = l_lean_parser_match__token___closed__2; +x_216 = l_lean_parser_match__token___closed__1; if (lean::is_scalar(x_202)) { x_217 = lean::alloc_cnstr(0, 3, 0); } else { @@ -24334,7 +24962,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_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; +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; x_63 = lean::cnstr_get(x_62, 0); x_65 = lean::cnstr_get(x_62, 1); x_67 = lean::cnstr_get(x_62, 2); @@ -24364,388 +24992,390 @@ 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); -x_87 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_88 = lean::box_uint32(x_86); +lean::dec(x_83); +x_88 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_89 = lean::box_uint32(x_86); if (lean::is_scalar(x_69)) { - x_89 = lean::alloc_cnstr(0, 3, 0); + x_90 = lean::alloc_cnstr(0, 3, 0); } else { - x_89 = x_69; + x_90 = x_69; } -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; +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; } else { -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; +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; lean::dec(x_47); lean::dec(x_55); lean::dec(x_39); -x_99 = lean::cnstr_get(x_62, 0); -x_101 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); +x_100 = lean::cnstr_get(x_62, 0); +x_102 = lean::cnstr_get_scalar(x_62, sizeof(void*)*1); if (lean::is_exclusive(x_62)) { - x_102 = x_62; + x_103 = x_62; } else { - lean::inc(x_99); + lean::inc(x_100); lean::dec(x_62); - x_102 = lean::box(0); + x_103 = lean::box(0); } -if (lean::is_scalar(x_102)) { - x_103 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_103)) { + x_104 = lean::alloc_cnstr(1, 1, 1); } else { - x_103 = x_102; + x_104 = x_103; } -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; +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; } } else { -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; +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; lean::dec(x_47); lean::dec(x_39); -x_113 = lean::cnstr_get(x_54, 0); -x_115 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); +x_114 = lean::cnstr_get(x_54, 0); +x_116 = lean::cnstr_get_scalar(x_54, sizeof(void*)*1); if (lean::is_exclusive(x_54)) { - x_116 = x_54; + x_117 = x_54; } else { - lean::inc(x_113); + lean::inc(x_114); lean::dec(x_54); - x_116 = lean::box(0); + x_117 = lean::box(0); } -if (lean::is_scalar(x_116)) { - x_117 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_117)) { + x_118 = lean::alloc_cnstr(1, 1, 1); } else { - x_117 = x_116; + x_118 = x_117; } -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; +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; } } else { -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; +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; lean::dec(x_39); -x_125 = lean::cnstr_get(x_46, 0); -x_127 = lean::cnstr_get_scalar(x_46, sizeof(void*)*1); +x_126 = lean::cnstr_get(x_46, 0); +x_128 = lean::cnstr_get_scalar(x_46, sizeof(void*)*1); if (lean::is_exclusive(x_46)) { - x_128 = x_46; + x_129 = x_46; } else { - lean::inc(x_125); + lean::inc(x_126); lean::dec(x_46); - x_128 = lean::box(0); + x_129 = lean::box(0); } -if (lean::is_scalar(x_128)) { - x_129 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_129)) { + x_130 = lean::alloc_cnstr(1, 1, 1); } else { - x_129 = x_128; + x_130 = x_129; } -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; +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; } } else { -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); +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); if (lean::is_exclusive(x_38)) { - x_138 = x_38; + x_139 = x_38; } else { - lean::inc(x_135); + lean::inc(x_136); lean::dec(x_38); - x_138 = lean::box(0); + x_139 = lean::box(0); } -if (lean::is_scalar(x_138)) { - x_139 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_139)) { + x_140 = lean::alloc_cnstr(1, 1, 1); } else { - x_139 = x_138; + x_140 = x_139; } -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; +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; } } } lbl_13: { -uint32 x_145; uint32 x_146; uint8 x_147; +uint32 x_146; uint32 x_147; uint8 x_148; lean::dec(x_12); -x_145 = 116; -x_146 = lean::unbox_uint32(x_3); -x_147 = x_146 == x_145; -if (x_147 == 0) +x_146 = 116; +x_147 = lean::unbox_uint32(x_3); +x_148 = x_147 == x_146; +if (x_148 == 0) { -uint32 x_149; uint8 x_150; +uint32 x_150; uint8 x_151; lean::dec(x_9); -x_149 = 120; -x_150 = x_146 == x_149; -if (x_150 == 0) +x_150 = 120; +x_151 = x_147 == x_150; +if (x_151 == 0) { -obj* x_151; -x_151 = lean::box(0); -x_10 = x_151; +obj* x_152; +x_152 = lean::box(0); +x_10 = x_152; goto lbl_11; } else { -obj* x_153; +obj* x_154; lean::dec(x_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) +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) { -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); +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); lean::dec(x_154); -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); +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; } else { - x_178 = x_168; + lean::inc(x_163); + lean::inc(x_165); + lean::inc(x_167); + lean::dec(x_162); + x_169 = lean::box(0); } -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; +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; } else { -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; +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; } else { - lean::inc(x_184); - lean::dec(x_161); - x_187 = lean::box(0); + lean::inc(x_186); + lean::dec(x_162); + x_189 = lean::box(0); } -if (lean::is_scalar(x_187)) { - x_188 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_189)) { + x_190 = lean::alloc_cnstr(1, 1, 1); } else { - x_188 = x_187; + x_190 = x_189; } -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; +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; } } else { -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; +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; } else { - lean::inc(x_194); - lean::dec(x_153); - x_197 = lean::box(0); + lean::inc(x_196); + lean::dec(x_154); + x_199 = lean::box(0); } -if (lean::is_scalar(x_197)) { - x_198 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_199)) { + x_200 = lean::alloc_cnstr(1, 1, 1); } else { - x_198 = x_197; + x_200 = x_199; } -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; +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; } } } else { -uint32 x_204; obj* x_205; obj* x_206; obj* x_207; obj* x_208; obj* x_209; +uint32 x_206; obj* x_207; obj* x_208; obj* x_209; obj* x_210; obj* x_211; lean::dec(x_0); -x_204 = 9; -x_205 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; -x_206 = lean::box_uint32(x_204); +x_206 = 9; +x_207 = l_lean_parser_parsec_result_mk__eps___rarg___closed__1; +x_208 = lean::box_uint32(x_206); if (lean::is_scalar(x_9)) { - x_207 = lean::alloc_cnstr(0, 3, 0); + x_209 = lean::alloc_cnstr(0, 3, 0); } else { - x_207 = x_9; + x_209 = x_9; } -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; +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; } } lbl_15: { -uint32 x_211; uint32 x_212; uint8 x_213; +uint32 x_213; uint32 x_214; uint8 x_215; lean::dec(x_14); -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; +x_213 = 34; +x_214 = lean::unbox_uint32(x_3); +x_215 = x_214 == x_213; if (x_215 == 0) { uint32 x_216; uint8 x_217; -x_216 = 110; -x_217 = x_212 == x_216; +x_216 = 39; +x_217 = x_214 == x_216; if (x_217 == 0) { -obj* x_218; -x_218 = lean::box(0); -x_12 = x_218; +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; goto lbl_13; } else { -uint32 x_221; obj* x_222; obj* x_223; obj* x_224; obj* x_225; obj* x_226; +uint32 x_223; obj* x_224; obj* x_225; obj* x_226; obj* x_227; obj* x_228; lean::dec(x_9); lean::dec(x_0); -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; +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; } } else { -obj* x_229; obj* x_230; obj* x_231; obj* x_232; obj* x_233; +obj* x_231; obj* x_232; obj* x_233; obj* x_234; obj* x_235; lean::dec(x_9); lean::dec(x_0); -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; +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; } } else { -obj* x_236; obj* x_237; obj* x_238; obj* x_239; obj* x_240; +obj* x_238; obj* x_239; obj* x_240; obj* x_241; obj* x_242; lean::dec(x_9); lean::dec(x_0); -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; +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; } } } else { -obj* x_242; uint8 x_244; obj* x_245; obj* x_246; obj* x_247; obj* x_248; obj* x_249; +obj* x_244; uint8 x_246; obj* x_247; obj* x_248; obj* x_249; obj* x_250; obj* x_251; lean::dec(x_0); -x_242 = lean::cnstr_get(x_2, 0); -x_244 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); +x_244 = lean::cnstr_get(x_2, 0); +x_246 = lean::cnstr_get_scalar(x_2, sizeof(void*)*1); if (lean::is_exclusive(x_2)) { - x_245 = x_2; + x_247 = x_2; } else { - lean::inc(x_242); + lean::inc(x_244); lean::dec(x_2); - x_245 = lean::box(0); + x_247 = lean::box(0); } -if (lean::is_scalar(x_245)) { - x_246 = lean::alloc_cnstr(1, 1, 1); +if (lean::is_scalar(x_247)) { + x_248 = lean::alloc_cnstr(1, 1, 1); } else { - x_246 = x_245; + x_248 = x_247; } -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; +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; } } } @@ -26938,8 +27568,6 @@ void initialize_init_lean_parser_token() { initialize_init_lean_parser_string__literal(); l_lean_parser_match__token___closed__1 = _init_l_lean_parser_match__token___closed__1(); lean::mark_persistent(l_lean_parser_match__token___closed__1); - l_lean_parser_match__token___closed__2 = _init_l_lean_parser_match__token___closed__2(); -lean::mark_persistent(l_lean_parser_match__token___closed__2); l___private_init_lean_parser_token_1__finish__comment__block__aux___main___closed__1 = _init_l___private_init_lean_parser_token_1__finish__comment__block__aux___main___closed__1(); lean::mark_persistent(l___private_init_lean_parser_token_1__finish__comment__block__aux___main___closed__1); l___private_init_lean_parser_token_1__finish__comment__block__aux___main___closed__2 = _init_l___private_init_lean_parser_token_1__finish__comment__block__aux___main___closed__2(); @@ -26964,8 +27592,8 @@ lean::mark_persistent(l___private_init_lean_parser_token_2__whitespace__aux___ma lean::mark_persistent(l___private_init_lean_parser_token_2__whitespace__aux___main___closed__3); l_lean_parser_with__trailing___rarg___closed__1 = _init_l_lean_parser_with__trailing___rarg___closed__1(); lean::mark_persistent(l_lean_parser_with__trailing___rarg___closed__1); - l_lean_parser_raw_view___rarg___lambda__3___closed__1 = _init_l_lean_parser_raw_view___rarg___lambda__3___closed__1(); -lean::mark_persistent(l_lean_parser_raw_view___rarg___lambda__3___closed__1); + l_lean_parser_raw_view___rarg___lambda__2___closed__1 = _init_l_lean_parser_raw_view___rarg___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_raw_view___rarg___lambda__2___closed__1); l_lean_parser_raw_view___rarg___closed__1 = _init_l_lean_parser_raw_view___rarg___closed__1(); lean::mark_persistent(l_lean_parser_raw_view___rarg___closed__1); l_lean_parser_raw_view___rarg___closed__2 = _init_l_lean_parser_raw_view___rarg___closed__2(); @@ -26974,6 +27602,12 @@ lean::mark_persistent(l_lean_parser_raw_view___rarg___closed__2); lean::mark_persistent(l_lean_parser_detail__ident__part__escaped); l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__1___closed__1 = _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__1___closed__1(); lean::mark_persistent(l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__1___closed__1); + l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__1); + l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2(); +lean::mark_persistent(l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__2); + l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3 = _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3(); +lean::mark_persistent(l_lean_parser_detail__ident__part__escaped_has__view_x_27___lambda__2___closed__3); l_lean_parser_detail__ident__part__escaped_has__view_x_27 = _init_l_lean_parser_detail__ident__part__escaped_has__view_x_27(); lean::mark_persistent(l_lean_parser_detail__ident__part__escaped_has__view_x_27); l_lean_parser_detail__ident__part__escaped_has__view = _init_l_lean_parser_detail__ident__part__escaped_has__view(); @@ -26990,6 +27624,8 @@ lean::mark_persistent(l_lean_parser_detail__ident__part_has__view_x_27___lambda_ lean::mark_persistent(l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__1); l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2(); lean::mark_persistent(l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__2); + l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3 = _init_l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3(); +lean::mark_persistent(l_lean_parser_detail__ident__part_has__view_x_27___lambda__2___closed__3); l_lean_parser_detail__ident__part_has__view_x_27 = _init_l_lean_parser_detail__ident__part_has__view_x_27(); lean::mark_persistent(l_lean_parser_detail__ident__part_has__view_x_27); l_lean_parser_detail__ident__part_has__view = _init_l_lean_parser_detail__ident__part_has__view(); @@ -27060,6 +27696,14 @@ lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__1___closed__ lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__2___closed__1); l_lean_parser_number_has__view_x_27___lambda__2___closed__2 = _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__2(); lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__2___closed__2); + l_lean_parser_number_has__view_x_27___lambda__2___closed__3 = _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__3(); +lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__2___closed__3); + l_lean_parser_number_has__view_x_27___lambda__2___closed__4 = _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__4(); +lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__2___closed__4); + l_lean_parser_number_has__view_x_27___lambda__2___closed__5 = _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__5(); +lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__2___closed__5); + l_lean_parser_number_has__view_x_27___lambda__2___closed__6 = _init_l_lean_parser_number_has__view_x_27___lambda__2___closed__6(); +lean::mark_persistent(l_lean_parser_number_has__view_x_27___lambda__2___closed__6); l_lean_parser_number_has__view_x_27 = _init_l_lean_parser_number_has__view_x_27(); lean::mark_persistent(l_lean_parser_number_has__view_x_27); l_lean_parser_number_has__view = _init_l_lean_parser_number_has__view(); @@ -27068,6 +27712,8 @@ lean::mark_persistent(l_lean_parser_number_has__view); lean::mark_persistent(l_lean_parser_number_x_27___closed__1); l_lean_parser_string__lit = _init_l_lean_parser_string__lit(); lean::mark_persistent(l_lean_parser_string__lit); + l_lean_parser_string__lit_has__view_x_27___lambda__2___closed__1 = _init_l_lean_parser_string__lit_has__view_x_27___lambda__2___closed__1(); +lean::mark_persistent(l_lean_parser_string__lit_has__view_x_27___lambda__2___closed__1); l_lean_parser_string__lit_has__view_x_27 = _init_l_lean_parser_string__lit_has__view_x_27(); lean::mark_persistent(l_lean_parser_string__lit_has__view_x_27); l_lean_parser_string__lit_has__view = _init_l_lean_parser_string__lit_has__view(); diff --git a/src/boot/init/lean/parser/trie.cpp b/src/boot/init/lean/parser/trie.cpp index 9eb0dc20c7..7a4c0c6ce3 100644 --- a/src/boot/init/lean/parser/trie.cpp +++ b/src/boot/init/lean/parser/trie.cpp @@ -34,7 +34,6 @@ obj* l_rbnode_find___main___at___private_init_lean_parser_trie_1__insert__aux___ obj* l_lean_parser_trie_find___boxed(obj*); obj* l_lean_parser_trie_match__prefix(obj*); obj* l___private_init_lean_parser_trie_4__to__string__aux___main___rarg___boxed(obj*); -obj* l_list_zip___rarg___lambda__1(obj*, obj*); namespace lean { obj* string_iterator_next(obj*); } @@ -106,7 +105,6 @@ obj* l___private_init_lean_parser_trie_3__match__prefix__aux___main(obj*); uint8 l_rbnode_is__red___main___rarg(obj*); obj* l_rbnode_ins___main___at___private_init_lean_parser_trie_1__insert__aux___main___spec__3___rarg(obj*, uint32, obj*); obj* l_rbnode_fold___main___at___private_init_lean_parser_trie_4__to__string__aux___main___spec__3___rarg___boxed(obj*, obj*); -obj* l_option_map___rarg(obj*, obj*); obj* l_rbnode_ins___main___at___private_init_lean_parser_trie_1__insert__aux___main___spec__3(obj*); obj* l_rbnode_insert___at___private_init_lean_parser_trie_1__insert__aux___main___spec__2___boxed(obj*); obj* l_rbnode_fold___main___at___private_init_lean_parser_trie_4__to__string__aux___main___spec__3___rarg(obj*, obj*); @@ -1072,58 +1070,129 @@ x_4 = lean::mk_nat_obj(0u); x_5 = lean::nat_dec_eq(x_0, x_4); if (x_5 == 0) { -obj* x_6; obj* x_8; obj* x_12; obj* x_13; obj* x_14; uint32 x_17; obj* x_18; +obj* x_6; obj* x_8; obj* x_11; obj* x_12; uint32 x_14; obj* x_15; x_6 = lean::cnstr_get(x_1, 0); lean::inc(x_6); x_8 = lean::cnstr_get(x_1, 1); lean::inc(x_8); lean::dec(x_1); -lean::inc(x_2); -x_12 = lean::alloc_closure(reinterpret_cast(l_list_zip___rarg___lambda__1), 2, 1); -lean::closure_set(x_12, 0, x_2); -x_13 = l_option_map___rarg(x_12, x_6); -x_14 = l_option_orelse___main___rarg(x_13, x_3); -lean::dec(x_3); -lean::dec(x_13); -x_17 = lean::string_iterator_curr(x_2); -x_18 = l_rbnode_find___main___at___private_init_lean_parser_trie_1__insert__aux___main___spec__1___rarg(x_8, x_17); -if (lean::obj_tag(x_18) == 0) -{ +x_11 = lean::mk_nat_obj(1u); +x_12 = lean::nat_sub(x_0, x_11); lean::dec(x_0); +x_14 = lean::string_iterator_curr(x_2); +x_15 = l_rbnode_find___main___at___private_init_lean_parser_trie_1__insert__aux___main___spec__1___rarg(x_8, x_14); +if (lean::obj_tag(x_6) == 0) +{ +obj* x_16; obj* x_17; +x_16 = lean::box(0); +x_17 = l_option_orelse___main___rarg(x_16, x_3); +lean::dec(x_3); +if (lean::obj_tag(x_15) == 0) +{ +lean::dec(x_12); lean::dec(x_2); -return x_14; +return x_17; } else { -obj* x_21; obj* x_24; obj* x_25; obj* x_27; -x_21 = lean::cnstr_get(x_18, 0); +obj* x_21; obj* x_24; +x_21 = lean::cnstr_get(x_15, 0); lean::inc(x_21); -lean::dec(x_18); -x_24 = lean::mk_nat_obj(1u); -x_25 = lean::nat_sub(x_0, x_24); -lean::dec(x_0); -x_27 = lean::string_iterator_next(x_2); -x_0 = x_25; +lean::dec(x_15); +x_24 = lean::string_iterator_next(x_2); +x_0 = x_12; x_1 = x_21; -x_2 = x_27; -x_3 = x_14; +x_2 = x_24; +x_3 = x_17; goto _start; } } else { -obj* x_30; obj* x_33; obj* x_34; obj* x_35; -lean::dec(x_0); -x_30 = lean::cnstr_get(x_1, 0); -lean::inc(x_30); -lean::dec(x_1); -x_33 = lean::alloc_closure(reinterpret_cast(l_list_zip___rarg___lambda__1), 2, 1); -lean::closure_set(x_33, 0, x_2); -x_34 = l_option_map___rarg(x_33, x_30); -x_35 = l_option_orelse___main___rarg(x_34, x_3); +obj* x_26; obj* x_28; obj* x_30; obj* x_31; obj* x_32; +x_26 = lean::cnstr_get(x_6, 0); +if (lean::is_exclusive(x_6)) { + x_28 = x_6; +} else { + lean::inc(x_26); + lean::dec(x_6); + x_28 = lean::box(0); +} +lean::inc(x_2); +x_30 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_30, 0, x_2); +lean::cnstr_set(x_30, 1, x_26); +if (lean::is_scalar(x_28)) { + x_31 = lean::alloc_cnstr(1, 1, 0); +} else { + x_31 = x_28; +} +lean::cnstr_set(x_31, 0, x_30); +x_32 = l_option_orelse___main___rarg(x_31, x_3); lean::dec(x_3); -lean::dec(x_34); -return x_35; +lean::dec(x_31); +if (lean::obj_tag(x_15) == 0) +{ +lean::dec(x_12); +lean::dec(x_2); +return x_32; +} +else +{ +obj* x_37; obj* x_40; +x_37 = lean::cnstr_get(x_15, 0); +lean::inc(x_37); +lean::dec(x_15); +x_40 = lean::string_iterator_next(x_2); +x_0 = x_12; +x_1 = x_37; +x_2 = x_40; +x_3 = x_32; +goto _start; +} +} +} +else +{ +obj* x_43; +lean::dec(x_0); +x_43 = lean::cnstr_get(x_1, 0); +lean::inc(x_43); +lean::dec(x_1); +if (lean::obj_tag(x_43) == 0) +{ +obj* x_47; obj* x_48; +lean::dec(x_2); +x_47 = lean::box(0); +x_48 = l_option_orelse___main___rarg(x_47, x_3); +lean::dec(x_3); +return x_48; +} +else +{ +obj* x_50; obj* x_52; obj* x_53; obj* x_54; obj* x_55; +x_50 = lean::cnstr_get(x_43, 0); +if (lean::is_exclusive(x_43)) { + x_52 = x_43; +} else { + lean::inc(x_50); + lean::dec(x_43); + x_52 = lean::box(0); +} +x_53 = lean::alloc_cnstr(0, 2, 0); +lean::cnstr_set(x_53, 0, x_2); +lean::cnstr_set(x_53, 1, x_50); +if (lean::is_scalar(x_52)) { + x_54 = lean::alloc_cnstr(1, 1, 0); +} else { + x_54 = x_52; +} +lean::cnstr_set(x_54, 0, x_53); +x_55 = l_option_orelse___main___rarg(x_54, x_3); +lean::dec(x_3); +lean::dec(x_54); +return x_55; +} } } }