chore(stage0): update

src/stage0/CMakeLists.txt

@@ -1 +1 @@
-add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/conditional.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/binsearch.cpp ./init/data/array/default.cpp ./init/data/array/qsort.cpp ./init/data/assoclist.cpp ./init/data/basic.cpp ./init/data/bytearray/basic.cpp ./init/data/bytearray/default.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/hashmap/default.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/persistentarray/basic.cpp ./init/data/persistentarray/default.cpp ./init/data/random.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/attributes.cpp ./init/lean/compiler/closedtermcache.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/export.cpp ./init/lean/compiler/initattr.cpp ./init/lean/compiler/ir/basic.cpp ./init/lean/compiler/ir/borrow.cpp ./init/lean/compiler/ir/boxing.cpp ./init/lean/compiler/ir/checker.cpp ./init/lean/compiler/ir/compilerm.cpp ./init/lean/compiler/ir/default.cpp ./init/lean/compiler/ir/elimdead.cpp ./init/lean/compiler/ir/emitcpp.cpp ./init/lean/compiler/ir/emitutil.cpp ./init/lean/compiler/ir/expandresetreuse.cpp ./init/lean/compiler/ir/format.cpp ./init/lean/compiler/ir/freevars.cpp ./init/lean/compiler/ir/livevars.cpp ./init/lean/compiler/ir/normids.cpp ./init/lean/compiler/ir/pushproj.cpp ./init/lean/compiler/ir/rc.cpp ./init/lean/compiler/ir/resetreuse.cpp ./init/lean/compiler/ir/simpcase.cpp ./init/lean/compiler/util.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/elaborator.cpp ./init/lean/environment.cpp ./init/lean/expander.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/frontend.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/modifiers.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/parser/basic.cpp ./init/lean/parser/combinators.cpp ./init/lean/parser/command.cpp ./init/lean/parser/declaration.cpp ./init/lean/parser/identifier.cpp ./init/lean/parser/level.cpp ./init/lean/parser/module.cpp ./init/lean/parser/notation.cpp ./init/lean/parser/parsec.cpp ./init/lean/parser/pratt.cpp ./init/lean/parser/rec.cpp ./init/lean/parser/stringliteral.cpp ./init/lean/parser/syntax.cpp ./init/lean/parser/term.cpp ./init/lean/parser/token.cpp ./init/lean/parser/trie.cpp ./init/lean/position.cpp ./init/lean/runtime.cpp ./init/lean/smap.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)
+add_library (stage0 OBJECT ./init/coe.cpp ./init/control/alternative.cpp ./init/control/applicative.cpp ./init/control/combinators.cpp ./init/control/conditional.cpp ./init/control/default.cpp ./init/control/estate.cpp ./init/control/except.cpp ./init/control/functor.cpp ./init/control/id.cpp ./init/control/lift.cpp ./init/control/monad.cpp ./init/control/monadfail.cpp ./init/control/option.cpp ./init/control/reader.cpp ./init/control/state.cpp ./init/core.cpp ./init/data/array/basic.cpp ./init/data/array/binsearch.cpp ./init/data/array/default.cpp ./init/data/array/qsort.cpp ./init/data/assoclist.cpp ./init/data/basic.cpp ./init/data/bytearray/basic.cpp ./init/data/bytearray/default.cpp ./init/data/char/basic.cpp ./init/data/char/default.cpp ./init/data/default.cpp ./init/data/dlist.cpp ./init/data/fin/basic.cpp ./init/data/fin/default.cpp ./init/data/hashable.cpp ./init/data/hashmap/basic.cpp ./init/data/hashmap/default.cpp ./init/data/int/basic.cpp ./init/data/int/default.cpp ./init/data/list/basic.cpp ./init/data/list/default.cpp ./init/data/list/instances.cpp ./init/data/nat/basic.cpp ./init/data/nat/bitwise.cpp ./init/data/nat/default.cpp ./init/data/nat/div.cpp ./init/data/option/basic.cpp ./init/data/option/instances.cpp ./init/data/ordering/basic.cpp ./init/data/ordering/default.cpp ./init/data/persistentarray/basic.cpp ./init/data/persistentarray/default.cpp ./init/data/random.cpp ./init/data/rbmap/basic.cpp ./init/data/rbmap/default.cpp ./init/data/rbtree/basic.cpp ./init/data/rbtree/default.cpp ./init/data/repr.cpp ./init/data/string/basic.cpp ./init/data/string/default.cpp ./init/data/tostring.cpp ./init/data/uint.cpp ./init/default.cpp ./init/env_ext.cpp ./init/fix.cpp ./init/io.cpp ./init/lean/attributes.cpp ./init/lean/compiler/closedtermcache.cpp ./init/lean/compiler/constfolding.cpp ./init/lean/compiler/default.cpp ./init/lean/compiler/export.cpp ./init/lean/compiler/initattr.cpp ./init/lean/compiler/ir/basic.cpp ./init/lean/compiler/ir/borrow.cpp ./init/lean/compiler/ir/boxing.cpp ./init/lean/compiler/ir/checker.cpp ./init/lean/compiler/ir/compilerm.cpp ./init/lean/compiler/ir/default.cpp ./init/lean/compiler/ir/elimdead.cpp ./init/lean/compiler/ir/emitcpp.cpp ./init/lean/compiler/ir/emitutil.cpp ./init/lean/compiler/ir/expandresetreuse.cpp ./init/lean/compiler/ir/format.cpp ./init/lean/compiler/ir/freevars.cpp ./init/lean/compiler/ir/livevars.cpp ./init/lean/compiler/ir/normids.cpp ./init/lean/compiler/ir/pushproj.cpp ./init/lean/compiler/ir/rc.cpp ./init/lean/compiler/ir/resetreuse.cpp ./init/lean/compiler/ir/simpcase.cpp ./init/lean/compiler/util.cpp ./init/lean/declaration.cpp ./init/lean/default.cpp ./init/lean/disjoint_set.cpp ./init/lean/environment.cpp ./init/lean/expr.cpp ./init/lean/extern.cpp ./init/lean/format.cpp ./init/lean/kvmap.cpp ./init/lean/level.cpp ./init/lean/message.cpp ./init/lean/modifiers.cpp ./init/lean/name.cpp ./init/lean/name_mangling.cpp ./init/lean/options.cpp ./init/lean/position.cpp ./init/lean/runtime.cpp ./init/lean/smap.cpp ./init/lean/trace.cpp ./init/lean/util.cpp ./init/platform.cpp ./init/util.cpp ./init/wf.cpp)

src/stage0/init/lean/attributes.cpp

@@ -1,6 +1,6 @@
 // Lean compiler output
 // Module: init.lean.attributes
-// Imports: init.lean.environment init.lean.parser.syntax
+// Imports: init.lean.environment
 #include "runtime/object.h"
 #include "runtime/apply.h"
 typedef lean::object obj;    typedef lean::usize  usize;
@@ -166,6 +166,7 @@ obj* l_Lean_Environment_pushScopeCore(obj*, obj*, uint8);
 obj* l_AssocList_replace___main___at_Lean_registerAttribute___spec__7(obj*, obj*, obj*);
 obj* l_Lean_Environment_isNamespace___boxed(obj*, obj*);
 obj* l_Array_miterateAux___main___at_Lean_Environment_getAttributeNames___spec__2___boxed(obj*, obj*, obj*, obj*);
+obj* l_Lean_Syntax_missing;
 obj* l_Lean_attributeMapRef;
 obj* l_Lean_Environment_hasOpenScopes___boxed(obj*);
 namespace lean {
@@ -186,6 +187,14 @@ obj* l_Lean_Environment_eraseAttribute___boxed(obj*, obj*, obj*, obj*, obj*);
 obj* l_Lean_Environment_isAttribute(obj*);
 obj* l_Lean_regScopeManagerExtension___lambda__3(obj*);
 obj* l_Array_miterateAux___main___at_Lean_Environment_getAttributeNames___spec__2(obj*, obj*, obj*, obj*);
+obj* _init_l_Lean_Syntax_missing() {
+_start:
+{
+obj* x_1; 
+x_1 = lean::box(0);
+return x_1;
+}
+}
 obj* _init_l_Lean_ScopeManagerState_Inhabited() {
 _start:
 {
@@ -4408,7 +4417,6 @@ return x_6;
 }
 }
 obj* initialize_init_lean_environment(obj*);
-obj* initialize_init_lean_parser_syntax(obj*);
 static bool _G_initialized = false;
 obj* initialize_init_lean_attributes(obj* w) {
 if (_G_initialized) return w;
@@ -4416,8 +4424,8 @@ _G_initialized = true;
 if (io_result_is_error(w)) return w;
 w = initialize_init_lean_environment(w);
 if (io_result_is_error(w)) return w;
-w = initialize_init_lean_parser_syntax(w);
-if (io_result_is_error(w)) return w;
+l_Lean_Syntax_missing = _init_l_Lean_Syntax_missing();
+lean::mark_persistent(l_Lean_Syntax_missing);
 l_Lean_ScopeManagerState_Inhabited = _init_l_Lean_ScopeManagerState_Inhabited();
 lean::mark_persistent(l_Lean_ScopeManagerState_Inhabited);
 l_Lean_regScopeManagerExtension___lambda__2___closed__1 = _init_l_Lean_regScopeManagerExtension___lambda__2___closed__1();

src/stage0/init/lean/default.cpp

@@ -1,6 +1,6 @@
 // Lean compiler output
 // Module: init.lean.default
-// Imports: init.lean.compiler.default init.lean.frontend init.lean.extern init.lean.environment init.lean.modifiers init.lean.runtime init.lean.attributes
+// Imports: init.lean.compiler.default init.lean.extern init.lean.environment init.lean.modifiers init.lean.runtime init.lean.attributes
 #include "runtime/object.h"
 #include "runtime/apply.h"
 typedef lean::object obj;    typedef lean::usize  usize;
@@ -15,7 +15,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
 #pragma GCC diagnostic ignored "-Wunused-but-set-variable"
 #endif
 obj* initialize_init_lean_compiler_default(obj*);
-obj* initialize_init_lean_frontend(obj*);
 obj* initialize_init_lean_extern(obj*);
 obj* initialize_init_lean_environment(obj*);
 obj* initialize_init_lean_modifiers(obj*);
@@ -28,8 +27,6 @@ _G_initialized = true;
 if (io_result_is_error(w)) return w;
 w = initialize_init_lean_compiler_default(w);
 if (io_result_is_error(w)) return w;
-w = initialize_init_lean_frontend(w);
-if (io_result_is_error(w)) return w;
 w = initialize_init_lean_extern(w);
 if (io_result_is_error(w)) return w;
 w = initialize_init_lean_environment(w);

src/stage0/init/lean/message.cpp

@@ -14,7 +14,6 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
 #pragma GCC diagnostic ignored "-Wunused-label"
 #pragma GCC diagnostic ignored "-Wunused-but-set-variable"
 #endif
-extern obj* l_Lean_Parser_Parsec_Message_toString___rarg___closed__3;
 obj* l_Lean_MessageLog_empty;
 obj* l_Lean_Message_toString___closed__2;
 obj* l_Lean_Message_toString___closed__1;
@@ -28,6 +27,7 @@ obj* l_Nat_repr(obj*);
 obj* l_List_foldr___main___at_Lean_MessageLog_hasErrors___spec__1___boxed(obj*, obj*);
 extern obj* l_EState_Result_toString___main___rarg___closed__2;
 uint8 l_Lean_MessageLog_hasErrors(obj*);
+obj* l_Lean_Message_toString___closed__4;
 namespace lean {
 obj* string_append(obj*, obj*);
 }
@@ -61,6 +61,14 @@ obj* _init_l_Lean_Message_toString___closed__3() {
 _start:
 {
 obj* x_1; 
+x_1 = lean::mk_string(":\n");
+return x_1;
+}
+}
+obj* _init_l_Lean_Message_toString___closed__4() {
+_start:
+{
+obj* x_1; 
 x_1 = lean::mk_string("warning: ");
 return x_1;
 }
@@ -105,7 +113,7 @@ x_20 = lean::string_append(x_14, x_17);
 if (x_18 == 0)
 {
 obj* x_21; obj* x_22; obj* x_23; obj* x_24; 
-x_21 = l_Lean_Parser_Parsec_Message_toString___rarg___closed__3;
+x_21 = l_Lean_Message_toString___closed__3;
 x_22 = lean::string_append(x_16, x_21);
 x_23 = lean::string_append(x_20, x_22);
 lean::dec(x_22);
@@ -129,12 +137,12 @@ obj* x_27; obj* x_28; obj* x_29;
 x_27 = lean::cnstr_get(x_1, 4);
 lean::inc(x_27);
 lean::dec(x_1);
-x_28 = l_Lean_Message_toString___closed__3;
+x_28 = l_Lean_Message_toString___closed__4;
 x_29 = lean::string_append(x_14, x_28);
 if (x_18 == 0)
 {
 obj* x_30; obj* x_31; obj* x_32; obj* x_33; 
-x_30 = l_Lean_Parser_Parsec_Message_toString___rarg___closed__3;
+x_30 = l_Lean_Message_toString___closed__3;
 x_31 = lean::string_append(x_16, x_30);
 x_32 = lean::string_append(x_29, x_31);
 lean::dec(x_31);
@@ -163,7 +171,7 @@ x_38 = lean::string_append(x_14, x_37);
 if (x_18 == 0)
 {
 obj* x_39; obj* x_40; obj* x_41; obj* x_42; 
-x_39 = l_Lean_Parser_Parsec_Message_toString___rarg___closed__3;
+x_39 = l_Lean_Message_toString___closed__3;
 x_40 = lean::string_append(x_16, x_39);
 x_41 = lean::string_append(x_38, x_40);
 lean::dec(x_40);
@@ -338,6 +346,8 @@ l_Lean_Message_toString___closed__2 = _init_l_Lean_Message_toString___closed__2(
 lean::mark_persistent(l_Lean_Message_toString___closed__2);
 l_Lean_Message_toString___closed__3 = _init_l_Lean_Message_toString___closed__3();
 lean::mark_persistent(l_Lean_Message_toString___closed__3);
+l_Lean_Message_toString___closed__4 = _init_l_Lean_Message_toString___closed__4();
+lean::mark_persistent(l_Lean_Message_toString___closed__4);
 l_Lean_Message_Inhabited = _init_l_Lean_Message_Inhabited();
 lean::mark_persistent(l_Lean_Message_Inhabited);
 l_Lean_Message_HasToString = _init_l_Lean_Message_HasToString();

src/stage0/init/lean/name_mangling.cpp

@@ -1,6 +1,6 @@
 // Lean compiler output
 // Module: init.lean.name_mangling
-// Imports: init.lean.name init.lean.parser.stringliteral
+// Imports: init.lean.name
 #include "runtime/object.h"
 #include "runtime/apply.h"
 typedef lean::object obj;    typedef lean::usize  usize;
@@ -318,7 +318,6 @@ return x_4;
 }
 }
 obj* initialize_init_lean_name(obj*);
-obj* initialize_init_lean_parser_stringliteral(obj*);
 static bool _G_initialized = false;
 obj* initialize_init_lean_name__mangling(obj* w) {
 if (_G_initialized) return w;
@@ -326,8 +325,6 @@ _G_initialized = true;
 if (io_result_is_error(w)) return w;
 w = initialize_init_lean_name(w);
 if (io_result_is_error(w)) return w;
-w = initialize_init_lean_parser_stringliteral(w);
-if (io_result_is_error(w)) return w;
 l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__1 = _init_l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__1();
 lean::mark_persistent(l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__1);
 l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__2 = _init_l___private_init_lean_name__mangling_1__String_mangleAux___main___closed__2();

src/stage0/init/lean/parser/pratt.cpp

@@ -1,947 +0,0 @@
-// Lean compiler output
-// Module: init.lean.parser.pratt
-// Imports: init.lean.parser.token
-#include "runtime/object.h"
-#include "runtime/apply.h"
-typedef lean::object obj;    typedef lean::usize  usize;
-typedef lean::uint8  uint8;  typedef lean::uint16 uint16;
-typedef lean::uint32 uint32; typedef lean::uint64 uint64;
-#if defined(__clang__)
-#pragma clang diagnostic ignored "-Wunused-parameter"
-#pragma clang diagnostic ignored "-Wunused-label"
-#elif defined(__GNUC__) && !defined(__CLANG__)
-#pragma GCC diagnostic ignored "-Wunused-parameter"
-#pragma GCC diagnostic ignored "-Wunused-label"
-#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
-#endif
-obj* l_Lean_Parser_prattParser_View___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-extern obj* l_Lean_Parser_indexed___rarg___closed__1;
-obj* l_fixCore___rarg___boxed(obj*, obj*, obj*);
-extern "C" uint8 lean_name_dec_eq(obj*, obj*);
-obj* l_Lean_Parser_Trie_oldMatchPrefix___rarg(obj*, obj*);
-obj* l_Lean_Parser_prattParser_tokens___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-namespace lean {
-obj* nat_sub(obj*, obj*);
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3(obj*, obj*);
-obj* l_Lean_Parser_prattParser_View___boxed(obj*);
-extern obj* l_mjoin___rarg___closed__1;
-obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__2;
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___boxed(obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___boxed(obj*, obj*);
-obj* l_Lean_Parser_currLbp(obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main(obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_currLbp___rarg___lambda__1___closed__1;
-obj* l_Lean_Parser_prattParser_View___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_currLbp___boxed(obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop(obj*);
-extern obj* l_Lean_Parser_MonadParsec_remaining___rarg___closed__1;
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___boxed(obj*, obj*);
-obj* l_Lean_Parser_currLbp___rarg___lambda__3___closed__1;
-namespace lean {
-uint8 nat_dec_lt(obj*, obj*);
-}
-extern obj* l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1;
-obj* l_List_append___rarg(obj*, obj*);
-obj* l_Lean_Parser_currLbp___rarg(obj*, obj*, obj*, obj*, obj*);
-extern "C" obj* lean_name_mk_string(obj*, obj*);
-obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-namespace lean {
-obj* nat_add(obj*, obj*);
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___boxed(obj*);
-obj* l_Lean_Parser_currLbp___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*);
-namespace lean {
-uint8 nat_dec_eq(obj*, obj*);
-}
-obj* l_Lean_Parser_prattParser___boxed(obj*);
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1(obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_currLbp___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_prattParser___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-extern obj* l_Lean_Parser_maxPrec;
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2(obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed(obj*, obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1(obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-extern obj* l_Lean_Parser_MonadParsec_leftOver___rarg___closed__1;
-obj* l_Lean_Parser_prattParser_tokens___rarg(obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_currLbp___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_prattParser(obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___boxed(obj*, obj*);
-obj* l_Lean_Parser_prattParser___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-extern obj* l_Lean_Parser_number_HasView_x27___lambda__1___closed__6;
-obj* l_Lean_Parser_currLbp___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_prattParser___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_prattParser___rarg(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___boxed(obj*, obj*);
-obj* l_Lean_Parser_prattParser_View(obj*);
-obj* l_Lean_Parser_prattParser_tokens(obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; obj* x_9; obj* x_10; 
-x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4);
-lean::closure_set(x_8, 0, x_5);
-lean::closure_set(x_8, 1, x_3);
-lean::closure_set(x_8, 2, x_4);
-lean::closure_set(x_8, 3, x_6);
-x_9 = lean::cnstr_get(x_1, 0);
-lean::inc(x_9);
-lean::dec(x_1);
-x_10 = lean::apply_2(x_9, lean::box(0), x_8);
-return x_10;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg___boxed), 7, 0);
-return x_3;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; obj* x_9; obj* x_10; 
-x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4);
-lean::closure_set(x_8, 0, x_5);
-lean::closure_set(x_8, 1, x_3);
-lean::closure_set(x_8, 2, x_4);
-lean::closure_set(x_8, 3, x_6);
-x_9 = lean::cnstr_get(x_1, 0);
-lean::inc(x_9);
-lean::dec(x_1);
-x_10 = lean::apply_2(x_9, lean::box(0), x_8);
-return x_10;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg___boxed), 7, 0);
-return x_3;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; obj* x_9; obj* x_10; 
-x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4);
-lean::closure_set(x_8, 0, x_5);
-lean::closure_set(x_8, 1, x_3);
-lean::closure_set(x_8, 2, x_4);
-lean::closure_set(x_8, 3, x_6);
-x_9 = lean::cnstr_get(x_1, 0);
-lean::inc(x_9);
-lean::dec(x_1);
-x_10 = lean::apply_2(x_9, lean::box(0), x_8);
-return x_10;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg___boxed), 7, 0);
-return x_3;
-}
-}
-obj* _init_l_Lean_Parser_currLbp___rarg___lambda__1___closed__1() {
-_start:
-{
-obj* x_1; 
-x_1 = lean::mk_string("currLbp: unreachable");
-return x_1;
-}
-}
-obj* l_Lean_Parser_currLbp___rarg___lambda__1(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-if (lean::obj_tag(x_5) == 0)
-{
-obj* x_6; obj* x_7; obj* x_8; obj* x_9; 
-lean::dec(x_4);
-x_6 = lean::box(0);
-x_7 = l_Lean_Parser_currLbp___rarg___lambda__1___closed__1;
-x_8 = l_mjoin___rarg___closed__1;
-x_9 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg(x_2, lean::box(0), x_7, x_8, x_6, x_6, x_3);
-return x_9;
-}
-else
-{
-obj* x_10; obj* x_11; obj* x_12; obj* x_13; 
-lean::dec(x_2);
-x_10 = lean::cnstr_get(x_5, 0);
-lean::inc(x_10);
-lean::dec(x_5);
-x_11 = lean::cnstr_get(x_10, 1);
-lean::inc(x_11);
-lean::dec(x_10);
-x_12 = lean::cnstr_get(x_11, 1);
-lean::inc(x_12);
-lean::dec(x_11);
-x_13 = lean::apply_2(x_4, lean::box(0), x_12);
-return x_13;
-}
-}
-}
-obj* l_Lean_Parser_currLbp___rarg___lambda__2(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
-_start:
-{
-obj* x_7; obj* x_8; obj* x_9; obj* x_10; obj* x_11; obj* x_12; obj* x_13; obj* x_14; obj* x_15; 
-x_7 = lean::cnstr_get(x_6, 1);
-lean::inc(x_7);
-lean::dec(x_6);
-x_8 = lean::mk_nat_obj(0u);
-x_9 = lean::alloc_cnstr(0, 3, 0);
-lean::cnstr_set(x_9, 0, x_1);
-lean::cnstr_set(x_9, 1, x_8);
-lean::cnstr_set(x_9, 2, x_8);
-x_10 = l_Lean_Parser_Trie_oldMatchPrefix___rarg(x_7, x_9);
-x_11 = lean::cnstr_get(x_2, 0);
-lean::inc(x_11);
-x_12 = lean::cnstr_get(x_11, 1);
-lean::inc(x_12);
-lean::dec(x_11);
-lean::inc(x_12);
-x_13 = lean::apply_2(x_12, lean::box(0), x_10);
-x_14 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_currLbp___rarg___lambda__1___boxed), 5, 4);
-lean::closure_set(x_14, 0, x_2);
-lean::closure_set(x_14, 1, x_3);
-lean::closure_set(x_14, 2, x_4);
-lean::closure_set(x_14, 3, x_12);
-x_15 = lean::apply_4(x_5, lean::box(0), lean::box(0), x_13, x_14);
-return x_15;
-}
-}
-obj* _init_l_Lean_Parser_currLbp___rarg___lambda__3___closed__1() {
-_start:
-{
-obj* x_1; obj* x_2; obj* x_3; obj* x_4; obj* x_5; obj* x_6; obj* x_7; 
-x_1 = lean::box(0);
-x_2 = lean::mk_string("Lean");
-x_3 = lean_name_mk_string(x_1, x_2);
-x_4 = lean::mk_string("Parser");
-x_5 = lean_name_mk_string(x_3, x_4);
-x_6 = lean::mk_string("stringLit");
-x_7 = lean_name_mk_string(x_5, x_6);
-return x_7;
-}
-}
-obj* _init_l_Lean_Parser_currLbp___rarg___lambda__3___closed__2() {
-_start:
-{
-obj* x_1; 
-x_1 = lean::mk_string("currLbp: unknown token kind");
-return x_1;
-}
-}
-obj* l_Lean_Parser_currLbp___rarg___lambda__3(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
-_start:
-{
-if (lean::obj_tag(x_6) == 0)
-{
-obj* x_7; obj* x_8; obj* x_9; obj* x_10; 
-lean::dec(x_6);
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_3);
-lean::dec(x_2);
-x_7 = lean::cnstr_get(x_1, 0);
-lean::inc(x_7);
-lean::dec(x_1);
-x_8 = lean::cnstr_get(x_7, 1);
-lean::inc(x_8);
-lean::dec(x_7);
-x_9 = lean::mk_nat_obj(0u);
-x_10 = lean::apply_2(x_8, lean::box(0), x_9);
-return x_10;
-}
-else
-{
-obj* x_11; 
-x_11 = lean::cnstr_get(x_6, 0);
-lean::inc(x_11);
-lean::dec(x_6);
-switch (lean::obj_tag(x_11)) {
-case 0:
-{
-obj* x_12; obj* x_13; obj* x_14; obj* x_15; 
-x_12 = lean::cnstr_get(x_11, 0);
-lean::inc(x_12);
-lean::dec(x_11);
-x_13 = lean::cnstr_get(x_12, 1);
-lean::inc(x_13);
-lean::dec(x_12);
-lean::inc(x_4);
-x_14 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_currLbp___rarg___lambda__2), 6, 5);
-lean::closure_set(x_14, 0, x_13);
-lean::closure_set(x_14, 1, x_1);
-lean::closure_set(x_14, 2, x_2);
-lean::closure_set(x_14, 3, x_3);
-lean::closure_set(x_14, 4, x_4);
-x_15 = lean::apply_4(x_4, lean::box(0), lean::box(0), x_5, x_14);
-return x_15;
-}
-case 1:
-{
-obj* x_16; obj* x_17; obj* x_18; obj* x_19; 
-lean::dec(x_11);
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_3);
-lean::dec(x_2);
-x_16 = lean::cnstr_get(x_1, 0);
-lean::inc(x_16);
-lean::dec(x_1);
-x_17 = lean::cnstr_get(x_16, 1);
-lean::inc(x_17);
-lean::dec(x_16);
-x_18 = l_Lean_Parser_maxPrec;
-x_19 = lean::apply_2(x_17, lean::box(0), x_18);
-return x_19;
-}
-case 2:
-{
-obj* x_20; obj* x_21; obj* x_22; uint8 x_23; 
-lean::dec(x_5);
-lean::dec(x_4);
-x_20 = lean::cnstr_get(x_11, 0);
-lean::inc(x_20);
-lean::dec(x_11);
-x_21 = lean::cnstr_get(x_20, 0);
-lean::inc(x_21);
-lean::dec(x_20);
-x_22 = l_Lean_Parser_number_HasView_x27___lambda__1___closed__6;
-x_23 = lean_name_dec_eq(x_21, x_22);
-if (x_23 == 0)
-{
-obj* x_24; uint8 x_25; 
-x_24 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__1;
-x_25 = lean_name_dec_eq(x_21, x_24);
-lean::dec(x_21);
-if (x_25 == 0)
-{
-obj* x_26; obj* x_27; obj* x_28; obj* x_29; 
-lean::dec(x_1);
-x_26 = lean::box(0);
-x_27 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2;
-x_28 = l_mjoin___rarg___closed__1;
-x_29 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg(x_2, lean::box(0), x_27, x_28, x_26, x_26, x_3);
-lean::dec(x_3);
-return x_29;
-}
-else
-{
-obj* x_30; obj* x_31; obj* x_32; obj* x_33; 
-lean::dec(x_3);
-lean::dec(x_2);
-x_30 = lean::cnstr_get(x_1, 0);
-lean::inc(x_30);
-lean::dec(x_1);
-x_31 = lean::cnstr_get(x_30, 1);
-lean::inc(x_31);
-lean::dec(x_30);
-x_32 = l_Lean_Parser_maxPrec;
-x_33 = lean::apply_2(x_31, lean::box(0), x_32);
-return x_33;
-}
-}
-else
-{
-obj* x_34; obj* x_35; obj* x_36; obj* x_37; 
-lean::dec(x_21);
-lean::dec(x_3);
-lean::dec(x_2);
-x_34 = lean::cnstr_get(x_1, 0);
-lean::inc(x_34);
-lean::dec(x_1);
-x_35 = lean::cnstr_get(x_34, 1);
-lean::inc(x_35);
-lean::dec(x_34);
-x_36 = l_Lean_Parser_maxPrec;
-x_37 = lean::apply_2(x_35, lean::box(0), x_36);
-return x_37;
-}
-}
-default: 
-{
-obj* x_38; obj* x_39; obj* x_40; obj* x_41; 
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_1);
-x_38 = lean::box(0);
-x_39 = l_Lean_Parser_currLbp___rarg___lambda__3___closed__2;
-x_40 = l_mjoin___rarg___closed__1;
-x_41 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg(x_2, lean::box(0), x_39, x_40, x_38, x_38, x_3);
-lean::dec(x_3);
-return x_41;
-}
-}
-}
-}
-}
-obj* l_Lean_Parser_currLbp___rarg(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-obj* x_6; obj* x_7; obj* x_8; obj* x_9; obj* x_10; 
-x_6 = l_Lean_Parser_indexed___rarg___closed__1;
-x_7 = lean::apply_2(x_2, lean::box(0), x_6);
-x_8 = lean::cnstr_get(x_1, 1);
-lean::inc(x_8);
-lean::inc(x_8);
-x_9 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_currLbp___rarg___lambda__3), 6, 5);
-lean::closure_set(x_9, 0, x_1);
-lean::closure_set(x_9, 1, x_3);
-lean::closure_set(x_9, 2, x_5);
-lean::closure_set(x_9, 3, x_8);
-lean::closure_set(x_9, 4, x_4);
-x_10 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_7, x_9);
-return x_10;
-}
-}
-obj* l_Lean_Parser_currLbp(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_currLbp___rarg), 5, 0);
-return x_2;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; 
-x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7);
-lean::dec(x_7);
-return x_8;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1___boxed(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__1(x_1, x_2);
-lean::dec(x_2);
-lean::dec(x_1);
-return x_3;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; 
-x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7);
-lean::dec(x_7);
-return x_8;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2___boxed(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__2(x_1, x_2);
-lean::dec(x_2);
-lean::dec(x_1);
-return x_3;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; 
-x_8 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7);
-lean::dec(x_7);
-return x_8;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3___boxed(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_Lean_Parser_MonadParsec_error___at_Lean_Parser_currLbp___spec__3(x_1, x_2);
-lean::dec(x_2);
-lean::dec(x_1);
-return x_3;
-}
-}
-obj* l_Lean_Parser_currLbp___rarg___lambda__1___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-obj* x_6; 
-x_6 = l_Lean_Parser_currLbp___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5);
-lean::dec(x_3);
-lean::dec(x_1);
-return x_6;
-}
-}
-obj* l_Lean_Parser_currLbp___boxed(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l_Lean_Parser_currLbp(x_1);
-lean::dec(x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; obj* x_9; obj* x_10; 
-x_8 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___rarg___lambda__1___boxed), 5, 4);
-lean::closure_set(x_8, 0, x_5);
-lean::closure_set(x_8, 1, x_3);
-lean::closure_set(x_8, 2, x_4);
-lean::closure_set(x_8, 3, x_6);
-x_9 = lean::cnstr_get(x_1, 0);
-lean::inc(x_9);
-lean::dec(x_1);
-x_10 = lean::apply_2(x_9, lean::box(0), x_8);
-return x_10;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg___boxed), 7, 0);
-return x_3;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_9, x_8);
-return x_10;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2(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) {
-_start:
-{
-uint8 x_12; 
-x_12 = lean::nat_dec_lt(x_1, x_11);
-if (x_12 == 0)
-{
-obj* x_13; obj* x_14; obj* x_15; 
-lean::dec(x_10);
-lean::dec(x_9);
-lean::dec(x_8);
-lean::dec(x_7);
-lean::dec(x_6);
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_1);
-x_13 = lean::cnstr_get(x_2, 0);
-lean::inc(x_13);
-lean::dec(x_2);
-x_14 = lean::cnstr_get(x_13, 1);
-lean::inc(x_14);
-lean::dec(x_13);
-x_15 = lean::apply_2(x_14, lean::box(0), x_3);
-return x_15;
-}
-else
-{
-obj* x_16; obj* x_17; obj* x_18; 
-lean::inc(x_4);
-lean::inc(x_5);
-x_16 = lean::apply_2(x_4, x_3, x_5);
-x_17 = lean::alloc_closure(reinterpret_cast<void*>(l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1___boxed), 9, 8);
-lean::closure_set(x_17, 0, x_2);
-lean::closure_set(x_17, 1, x_6);
-lean::closure_set(x_17, 2, x_7);
-lean::closure_set(x_17, 3, x_8);
-lean::closure_set(x_17, 4, x_4);
-lean::closure_set(x_17, 5, x_1);
-lean::closure_set(x_17, 6, x_9);
-lean::closure_set(x_17, 7, x_5);
-x_18 = lean::apply_4(x_10, lean::box(0), lean::box(0), x_16, x_17);
-return x_18;
-}
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(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) {
-_start:
-{
-obj* x_10; uint8 x_11; 
-x_10 = lean::mk_nat_obj(0u);
-x_11 = lean::nat_dec_eq(x_7, x_10);
-if (x_11 == 0)
-{
-obj* x_12; obj* x_13; obj* x_14; obj* x_15; obj* x_16; obj* x_17; 
-x_12 = lean::mk_nat_obj(1u);
-x_13 = lean::nat_sub(x_7, x_12);
-x_14 = lean::cnstr_get(x_1, 1);
-lean::inc(x_14);
-lean::inc(x_9);
-lean::inc(x_4);
-lean::inc(x_3);
-lean::inc(x_2);
-lean::inc(x_1);
-x_15 = l_Lean_Parser_currLbp___rarg(x_1, x_2, x_3, x_4, x_9);
-lean::inc(x_14);
-x_16 = lean::alloc_closure(reinterpret_cast<void*>(l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2___boxed), 11, 10);
-lean::closure_set(x_16, 0, x_6);
-lean::closure_set(x_16, 1, x_1);
-lean::closure_set(x_16, 2, x_8);
-lean::closure_set(x_16, 3, x_5);
-lean::closure_set(x_16, 4, x_9);
-lean::closure_set(x_16, 5, x_2);
-lean::closure_set(x_16, 6, x_3);
-lean::closure_set(x_16, 7, x_4);
-lean::closure_set(x_16, 8, x_13);
-lean::closure_set(x_16, 9, x_14);
-x_17 = lean::apply_4(x_14, lean::box(0), lean::box(0), x_15, x_16);
-return x_17;
-}
-else
-{
-obj* x_18; obj* x_19; obj* x_20; obj* x_21; 
-lean::dec(x_8);
-lean::dec(x_6);
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_2);
-lean::dec(x_1);
-x_18 = lean::box(0);
-x_19 = l___private_init_lean_parser_combinators_1__many1Aux___main___rarg___closed__1;
-x_20 = l_mjoin___rarg___closed__1;
-x_21 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg(x_3, lean::box(0), x_19, x_20, x_18, x_18, x_9);
-lean::dec(x_9);
-return x_21;
-}
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___boxed), 9, 0);
-return x_2;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7) {
-_start:
-{
-obj* x_8; 
-x_8 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7);
-lean::dec(x_7);
-return x_8;
-}
-}
-obj* l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1___boxed(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_Lean_Parser_MonadParsec_error___at___private_init_lean_parser_pratt_1__trailingLoop___main___spec__1(x_1, x_2);
-lean::dec(x_2);
-lean::dec(x_1);
-return x_3;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1___boxed(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-lean::dec(x_7);
-return x_10;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2___boxed(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) {
-_start:
-{
-obj* x_12; 
-x_12 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___lambda__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11);
-lean::dec(x_11);
-return x_12;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg___boxed(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-lean::dec(x_7);
-return x_10;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___main___boxed(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l___private_init_lean_parser_pratt_1__trailingLoop___main(x_1);
-lean::dec(x_1);
-return x_2;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___rarg(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-return x_10;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l___private_init_lean_parser_pratt_1__trailingLoop___rarg___boxed), 9, 0);
-return x_2;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___rarg___boxed(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l___private_init_lean_parser_pratt_1__trailingLoop___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-lean::dec(x_7);
-return x_10;
-}
-}
-obj* l___private_init_lean_parser_pratt_1__trailingLoop___boxed(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l___private_init_lean_parser_pratt_1__trailingLoop(x_1);
-lean::dec(x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_prattParser___rarg___lambda__1(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) {
-_start:
-{
-obj* x_10; obj* x_11; obj* x_12; 
-x_10 = lean::mk_nat_obj(1u);
-x_11 = lean::nat_add(x_9, x_10);
-x_12 = l___private_init_lean_parser_pratt_1__trailingLoop___main___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_11, x_7, x_8);
-lean::dec(x_11);
-return x_12;
-}
-}
-obj* l_Lean_Parser_prattParser___rarg___lambda__2(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) {
-_start:
-{
-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; 
-x_10 = lean::cnstr_get(x_1, 0);
-lean::inc(x_10);
-x_11 = l_Lean_Parser_MonadParsec_leftOver___rarg___closed__1;
-x_12 = lean::apply_2(x_10, lean::box(0), x_11);
-x_13 = lean::cnstr_get(x_2, 0);
-lean::inc(x_13);
-x_14 = lean::cnstr_get(x_13, 0);
-lean::inc(x_14);
-lean::dec(x_13);
-x_15 = lean::cnstr_get(x_14, 0);
-lean::inc(x_15);
-lean::dec(x_14);
-x_16 = l_Lean_Parser_MonadParsec_remaining___rarg___closed__1;
-x_17 = lean::apply_4(x_15, lean::box(0), lean::box(0), x_16, x_12);
-x_18 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__1___boxed), 9, 8);
-lean::closure_set(x_18, 0, x_2);
-lean::closure_set(x_18, 1, x_3);
-lean::closure_set(x_18, 2, x_1);
-lean::closure_set(x_18, 3, x_4);
-lean::closure_set(x_18, 4, x_5);
-lean::closure_set(x_18, 5, x_6);
-lean::closure_set(x_18, 6, x_9);
-lean::closure_set(x_18, 7, x_7);
-x_19 = lean::apply_4(x_8, lean::box(0), lean::box(0), x_17, x_18);
-return x_19;
-}
-}
-obj* l_Lean_Parser_prattParser___rarg___lambda__3(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6, obj* x_7, obj* x_8) {
-_start:
-{
-obj* x_9; obj* x_10; obj* x_11; obj* x_12; 
-x_9 = lean::cnstr_get(x_1, 1);
-lean::inc(x_9);
-lean::inc(x_7);
-x_10 = lean::apply_1(x_2, x_7);
-lean::inc(x_9);
-x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__2), 9, 8);
-lean::closure_set(x_11, 0, x_3);
-lean::closure_set(x_11, 1, x_1);
-lean::closure_set(x_11, 2, x_4);
-lean::closure_set(x_11, 3, x_5);
-lean::closure_set(x_11, 4, x_6);
-lean::closure_set(x_11, 5, x_8);
-lean::closure_set(x_11, 6, x_7);
-lean::closure_set(x_11, 7, x_9);
-x_12 = lean::apply_4(x_9, lean::box(0), lean::box(0), x_10, x_11);
-return x_12;
-}
-}
-obj* l_Lean_Parser_prattParser___rarg(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) {
-_start:
-{
-obj* x_10; obj* x_11; obj* x_12; obj* x_13; 
-lean::inc(x_3);
-x_10 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed), 2, 1);
-lean::closure_set(x_10, 0, x_3);
-x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___lambda__3), 8, 6);
-lean::closure_set(x_11, 0, x_1);
-lean::closure_set(x_11, 1, x_7);
-lean::closure_set(x_11, 2, x_3);
-lean::closure_set(x_11, 3, x_2);
-lean::closure_set(x_11, 4, x_4);
-lean::closure_set(x_11, 5, x_8);
-x_12 = lean::alloc_closure(reinterpret_cast<void*>(l_fixCore___rarg___boxed), 3, 2);
-lean::closure_set(x_12, 0, x_10);
-lean::closure_set(x_12, 1, x_11);
-x_13 = lean::apply_1(x_9, x_12);
-return x_13;
-}
-}
-obj* l_Lean_Parser_prattParser(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser___rarg___boxed), 9, 0);
-return x_2;
-}
-}
-obj* l_Lean_Parser_prattParser___rarg___lambda__1___boxed(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l_Lean_Parser_prattParser___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-lean::dec(x_9);
-return x_10;
-}
-}
-obj* l_Lean_Parser_prattParser___rarg___boxed(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l_Lean_Parser_prattParser___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-lean::dec(x_6);
-lean::dec(x_5);
-return x_10;
-}
-}
-obj* l_Lean_Parser_prattParser___boxed(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l_Lean_Parser_prattParser(x_1);
-lean::dec(x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_prattParser_tokens___rarg(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_List_append___rarg(x_1, x_2);
-return x_3;
-}
-}
-obj* l_Lean_Parser_prattParser_tokens(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) {
-_start:
-{
-obj* x_11; 
-x_11 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser_tokens___rarg), 2, 0);
-return x_11;
-}
-}
-obj* l_Lean_Parser_prattParser_tokens___boxed(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) {
-_start:
-{
-obj* x_11; 
-x_11 = l_Lean_Parser_prattParser_tokens(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10);
-lean::dec(x_10);
-lean::dec(x_9);
-lean::dec(x_8);
-lean::dec(x_7);
-lean::dec(x_6);
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_3);
-lean::dec(x_2);
-lean::dec(x_1);
-return x_11;
-}
-}
-obj* l_Lean_Parser_prattParser_View___rarg(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) {
-_start:
-{
-obj* x_10; obj* x_11; 
-x_10 = l_mjoin___rarg___closed__1;
-x_11 = lean::alloc_cnstr(0, 2, 0);
-lean::cnstr_set(x_11, 0, x_10);
-lean::cnstr_set(x_11, 1, x_10);
-return x_11;
-}
-}
-obj* l_Lean_Parser_prattParser_View(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_prattParser_View___rarg___boxed), 9, 0);
-return x_2;
-}
-}
-obj* l_Lean_Parser_prattParser_View___rarg___boxed(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) {
-_start:
-{
-obj* x_10; 
-x_10 = l_Lean_Parser_prattParser_View___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9);
-lean::dec(x_9);
-lean::dec(x_8);
-lean::dec(x_7);
-lean::dec(x_6);
-lean::dec(x_5);
-lean::dec(x_4);
-lean::dec(x_3);
-lean::dec(x_2);
-lean::dec(x_1);
-return x_10;
-}
-}
-obj* l_Lean_Parser_prattParser_View___boxed(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l_Lean_Parser_prattParser_View(x_1);
-lean::dec(x_1);
-return x_2;
-}
-}
-obj* initialize_init_lean_parser_token(obj*);
-static bool _G_initialized = false;
-obj* initialize_init_lean_parser_pratt(obj* w) {
-if (_G_initialized) return w;
-_G_initialized = true;
-if (io_result_is_error(w)) return w;
-w = initialize_init_lean_parser_token(w);
-if (io_result_is_error(w)) return w;
-l_Lean_Parser_currLbp___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_currLbp___rarg___lambda__1___closed__1();
-lean::mark_persistent(l_Lean_Parser_currLbp___rarg___lambda__1___closed__1);
-l_Lean_Parser_currLbp___rarg___lambda__3___closed__1 = _init_l_Lean_Parser_currLbp___rarg___lambda__3___closed__1();
-lean::mark_persistent(l_Lean_Parser_currLbp___rarg___lambda__3___closed__1);
-l_Lean_Parser_currLbp___rarg___lambda__3___closed__2 = _init_l_Lean_Parser_currLbp___rarg___lambda__3___closed__2();
-lean::mark_persistent(l_Lean_Parser_currLbp___rarg___lambda__3___closed__2);
-return w;
-}

src/stage0/init/lean/parser/rec.cpp

@@ -1,436 +0,0 @@
-// Lean compiler output
-// Module: init.lean.parser.rec
-// Imports: init.control.reader init.lean.parser.parsec init.fix
-#include "runtime/object.h"
-#include "runtime/apply.h"
-typedef lean::object obj;    typedef lean::usize  usize;
-typedef lean::uint8  uint8;  typedef lean::uint16 uint16;
-typedef lean::uint32 uint32; typedef lean::uint64 uint64;
-#if defined(__clang__)
-#pragma clang diagnostic ignored "-Wunused-parameter"
-#pragma clang diagnostic ignored "-Wunused-label"
-#elif defined(__GNUC__) && !defined(__CLANG__)
-#pragma GCC diagnostic ignored "-Wunused-parameter"
-#pragma GCC diagnostic ignored "-Wunused-label"
-#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
-#endif
-obj* l_Lean_Parser_RecT_Alternative(obj*, obj*, obj*);
-obj* l_fixCore___rarg___boxed(obj*, obj*, obj*);
-obj* l_Lean_Parser_monadParsecTrans___rarg(obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadRec_base(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___boxed(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1(obj*, obj*);
-obj* l_Lean_Parser_MonadRec_trans___rarg(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadRec_trans___rarg___boxed(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_MonadExcept___boxed(obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_HasMonadLift___boxed(obj*, obj*, obj*);
-extern obj* l_mjoin___rarg___closed__1;
-obj* l_Lean_Parser_RecT_MonadFunctor(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_HasMonadLift___rarg(obj*);
-obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec(obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadRec_base___closed__1;
-obj* l_Lean_Parser_RecT_run(obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadParsec_error___rarg(obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadRec_base___boxed(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_Monad___boxed(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1;
-obj* l_Lean_Parser_RecT_MonadExcept___rarg(obj*);
-obj* l_ReaderT_Monad___rarg(obj*);
-obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg(obj*, obj*, obj*);
-obj* l_Lean_Parser_MonadRec_trans(obj*, obj*, obj*, obj*);
-obj* l_StateT_MonadExcept___rarg___lambda__2(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_Alternative___boxed(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_run___boxed(obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_HasMonadLift(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec(obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed(obj*, obj*);
-obj* l_Lean_Parser_MonadRec_trans___boxed(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_Alternative___rarg(obj*, obj*);
-obj* l_ReaderT_MonadFunctor___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_runParsec___rarg(obj*, obj*, obj*);
-obj* l_ReaderT_MonadExcept___rarg(obj*);
-obj* l_Lean_Parser_RecT_recurse___boxed(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_run___rarg(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_MonadFunctor___rarg(obj*);
-obj* l_Lean_Parser_RecT_recurse___rarg(obj*, obj*);
-obj* l_Lean_Parser_RecT_Monad(obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_recurse(obj*, obj*, obj*, obj*);
-obj* l_ReaderT_Alternative___rarg(obj*, obj*);
-obj* l_Lean_Parser_RecT_MonadExcept(obj*, obj*, obj*, obj*, obj*);
-obj* l_ReaderT_lift___boxed(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_Monad___rarg(obj*);
-obj* l_Lean_Parser_RecT_MonadFunctor___boxed(obj*, obj*, obj*, obj*);
-obj* l_Lean_Parser_RecT_recurse___rarg(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = lean::apply_1(x_2, x_1);
-return x_3;
-}
-}
-obj* l_Lean_Parser_RecT_recurse(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_recurse___rarg), 2, 0);
-return x_5;
-}
-}
-obj* l_Lean_Parser_RecT_recurse___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = l_Lean_Parser_RecT_recurse(x_1, x_2, x_3, x_4);
-lean::dec(x_4);
-lean::dec(x_1);
-return x_5;
-}
-}
-obj* l_Lean_Parser_RecT_run___rarg(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; obj* x_5; obj* x_6; 
-x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_MonadExcept___rarg___lambda__2), 3, 1);
-lean::closure_set(x_4, 0, x_3);
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_fixCore___rarg___boxed), 3, 2);
-lean::closure_set(x_5, 0, x_2);
-lean::closure_set(x_5, 1, x_4);
-x_6 = lean::apply_1(x_1, x_5);
-return x_6;
-}
-}
-obj* l_Lean_Parser_RecT_run(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-obj* x_6; 
-x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_run___rarg), 3, 0);
-return x_6;
-}
-}
-obj* l_Lean_Parser_RecT_run___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-obj* x_6; 
-x_6 = l_Lean_Parser_RecT_run(x_1, x_2, x_3, x_4, x_5);
-lean::dec(x_5);
-lean::dec(x_1);
-return x_6;
-}
-}
-obj* _init_l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1() {
-_start:
-{
-obj* x_1; 
-x_1 = lean::mk_string("RecT.runParsec: no progress");
-return x_1;
-}
-}
-obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; obj* x_4; obj* x_5; obj* x_6; 
-x_3 = lean::box(0);
-x_4 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1;
-x_5 = l_mjoin___rarg___closed__1;
-x_6 = l_Lean_Parser_MonadParsec_error___rarg(x_1, lean::box(0), x_4, x_5, x_3, x_3);
-return x_6;
-}
-}
-obj* l_Lean_Parser_RecT_runParsec___rarg(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<void*>(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed), 2, 1);
-lean::closure_set(x_4, 0, x_1);
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_StateT_MonadExcept___rarg___lambda__2), 3, 1);
-lean::closure_set(x_5, 0, x_3);
-x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_fixCore___rarg___boxed), 3, 2);
-lean::closure_set(x_6, 0, x_4);
-lean::closure_set(x_6, 1, x_5);
-x_7 = lean::apply_1(x_2, x_6);
-return x_7;
-}
-}
-obj* l_Lean_Parser_RecT_runParsec(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
-_start:
-{
-obj* x_7; 
-x_7 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_runParsec___rarg), 3, 0);
-return x_7;
-}
-}
-obj* l_Lean_Parser_RecT_runParsec___rarg___lambda__1___boxed(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_Lean_Parser_RecT_runParsec___rarg___lambda__1(x_1, x_2);
-lean::dec(x_2);
-return x_3;
-}
-}
-obj* l_Lean_Parser_RecT_runParsec___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5, obj* x_6) {
-_start:
-{
-obj* x_7; 
-x_7 = l_Lean_Parser_RecT_runParsec(x_1, x_2, x_3, x_4, x_5, x_6);
-lean::dec(x_5);
-lean::dec(x_1);
-return x_7;
-}
-}
-obj* l_Lean_Parser_RecT_Monad___rarg(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l_ReaderT_Monad___rarg(x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_RecT_Monad(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_Monad___rarg), 1, 0);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_Monad___boxed(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = l_Lean_Parser_RecT_Monad(x_1, x_2, x_3);
-lean::dec(x_1);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_Alternative___rarg(obj* x_1, obj* x_2) {
-_start:
-{
-obj* x_3; 
-x_3 = l_ReaderT_Alternative___rarg(x_1, x_2);
-return x_3;
-}
-}
-obj* l_Lean_Parser_RecT_Alternative(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_Alternative___rarg), 2, 0);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_Alternative___boxed(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = l_Lean_Parser_RecT_Alternative(x_1, x_2, x_3);
-lean::dec(x_1);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_HasMonadLift___rarg(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_lift___boxed), 4, 3);
-lean::closure_set(x_2, 0, lean::box(0));
-lean::closure_set(x_2, 1, lean::box(0));
-lean::closure_set(x_2, 2, x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_RecT_HasMonadLift(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_HasMonadLift___rarg), 1, 0);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_HasMonadLift___boxed(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = l_Lean_Parser_RecT_HasMonadLift(x_1, x_2, x_3);
-lean::dec(x_1);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_MonadExcept___rarg(obj* x_1) {
-_start:
-{
-obj* x_2; 
-x_2 = l_ReaderT_MonadExcept___rarg(x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_RecT_MonadExcept(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-obj* x_6; 
-x_6 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_MonadExcept___rarg), 1, 0);
-return x_6;
-}
-}
-obj* l_Lean_Parser_RecT_MonadExcept___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4, obj* x_5) {
-_start:
-{
-obj* x_6; 
-x_6 = l_Lean_Parser_RecT_MonadExcept(x_1, x_2, x_3, x_4, x_5);
-lean::dec(x_4);
-lean::dec(x_1);
-return x_6;
-}
-}
-obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; obj* x_5; obj* x_6; 
-lean::inc(x_1);
-x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_lift___boxed), 4, 3);
-lean::closure_set(x_4, 0, lean::box(0));
-lean::closure_set(x_4, 1, lean::box(0));
-lean::closure_set(x_4, 2, x_1);
-lean::inc(x_1);
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_MonadFunctor___boxed), 6, 5);
-lean::closure_set(x_5, 0, lean::box(0));
-lean::closure_set(x_5, 1, lean::box(0));
-lean::closure_set(x_5, 2, lean::box(0));
-lean::closure_set(x_5, 3, x_1);
-lean::closure_set(x_5, 4, x_1);
-x_6 = l_Lean_Parser_monadParsecTrans___rarg(x_4, x_5, x_3);
-return x_6;
-}
-}
-obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_Lean_Parser_MonadParsec___rarg), 3, 0);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_Lean_Parser_MonadParsec___boxed(obj* x_1, obj* x_2, obj* x_3) {
-_start:
-{
-obj* x_4; 
-x_4 = l_Lean_Parser_RecT_Lean_Parser_MonadParsec(x_1, x_2, x_3);
-lean::dec(x_1);
-return x_4;
-}
-}
-obj* l_Lean_Parser_RecT_MonadFunctor___rarg(obj* x_1) {
-_start:
-{
-obj* x_2; 
-lean::inc(x_1);
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_ReaderT_MonadFunctor___boxed), 6, 5);
-lean::closure_set(x_2, 0, lean::box(0));
-lean::closure_set(x_2, 1, lean::box(0));
-lean::closure_set(x_2, 2, lean::box(0));
-lean::closure_set(x_2, 3, x_1);
-lean::closure_set(x_2, 4, x_1);
-return x_2;
-}
-}
-obj* l_Lean_Parser_RecT_MonadFunctor(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_MonadFunctor___rarg), 1, 0);
-return x_5;
-}
-}
-obj* l_Lean_Parser_RecT_MonadFunctor___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = l_Lean_Parser_RecT_MonadFunctor(x_1, x_2, x_3, x_4);
-lean::dec(x_4);
-lean::dec(x_1);
-return x_5;
-}
-}
-obj* l_Lean_Parser_MonadRec_trans___rarg(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; obj* x_6; 
-x_5 = lean::apply_1(x_2, x_4);
-x_6 = lean::apply_2(x_1, lean::box(0), x_5);
-return x_6;
-}
-}
-obj* l_Lean_Parser_MonadRec_trans(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_MonadRec_trans___rarg___boxed), 4, 0);
-return x_5;
-}
-}
-obj* l_Lean_Parser_MonadRec_trans___rarg___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = l_Lean_Parser_MonadRec_trans___rarg(x_1, x_2, x_3, x_4);
-lean::dec(x_3);
-return x_5;
-}
-}
-obj* l_Lean_Parser_MonadRec_trans___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = l_Lean_Parser_MonadRec_trans(x_1, x_2, x_3, x_4);
-lean::dec(x_4);
-lean::dec(x_3);
-return x_5;
-}
-}
-obj* _init_l_Lean_Parser_MonadRec_base___closed__1() {
-_start:
-{
-obj* x_1; 
-x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_RecT_recurse___rarg), 2, 0);
-return x_1;
-}
-}
-obj* l_Lean_Parser_MonadRec_base(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = l_Lean_Parser_MonadRec_base___closed__1;
-return x_5;
-}
-}
-obj* l_Lean_Parser_MonadRec_base___boxed(obj* x_1, obj* x_2, obj* x_3, obj* x_4) {
-_start:
-{
-obj* x_5; 
-x_5 = l_Lean_Parser_MonadRec_base(x_1, x_2, x_3, x_4);
-lean::dec(x_4);
-lean::dec(x_3);
-return x_5;
-}
-}
-obj* initialize_init_control_reader(obj*);
-obj* initialize_init_lean_parser_parsec(obj*);
-obj* initialize_init_fix(obj*);
-static bool _G_initialized = false;
-obj* initialize_init_lean_parser_rec(obj* w) {
-if (_G_initialized) return w;
-_G_initialized = true;
-if (io_result_is_error(w)) return w;
-w = initialize_init_control_reader(w);
-if (io_result_is_error(w)) return w;
-w = initialize_init_lean_parser_parsec(w);
-if (io_result_is_error(w)) return w;
-w = initialize_init_fix(w);
-if (io_result_is_error(w)) return w;
-l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1 = _init_l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1();
-lean::mark_persistent(l_Lean_Parser_RecT_runParsec___rarg___lambda__1___closed__1);
-l_Lean_Parser_MonadRec_base___closed__1 = _init_l_Lean_Parser_MonadRec_base___closed__1();
-lean::mark_persistent(l_Lean_Parser_MonadRec_base___closed__1);
-return w;
-}