chore(stage0): update

src/stage0/init/control/lift.cpp

@@ -14,6 +14,8 @@ 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_hasMonadLiftToHasCoe___elambda__1___rarg(obj*, obj*);
+obj* l_hasMonadLiftToHasCoe___elambda__1___boxed(obj*, obj*, obj*);
 obj* l_monadFunctorTTrans(obj*, obj*, obj*, obj*, obj*, obj*);
 obj* l_hasMonadLiftTRefl___rarg(obj*);
 obj* l_hasMonadLiftToHasCoe___boxed(obj*, obj*);
@@ -23,6 +25,7 @@ obj* l_monadFunctorTRefl___boxed(obj*, obj*, obj*);
 obj* l_hasMonadLiftTTrans___rarg(obj*, obj*, obj*, obj*);
 obj* l_hasMonadLiftTRefl___boxed(obj*, obj*);
 obj* l_monadFunctorTRefl___rarg(obj*, obj*);
+obj* l_hasMonadLiftToHasCoe___elambda__1(obj*, obj*, obj*);
 obj* l_monadFunctorTRefl(obj*, obj*, obj*);
 obj* l_hasMonadLiftTRefl(obj*, obj*);
 obj* l_hasMonadLiftTTrans(obj*, obj*, obj*);
@@ -31,11 +34,28 @@ obj* l_hasMonadLiftTTrans___boxed(obj*, obj*, obj*);
 obj* l_monadFunctorTTrans___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
 obj* l_hasMonadLiftToHasCoe___rarg(obj*, obj*);
 obj* l_monadFunctorTTrans___rarg___lambda__1(obj*, obj*, obj*, obj*);
+obj* l_hasMonadLiftToHasCoe___elambda__1___rarg(obj* x_1, obj* x_2) {
+_start:
+{
+obj* x_3; 
+x_3 = lean::apply_2(x_1, lean::box(0), x_2);
+return x_3;
+}
+}
+obj* l_hasMonadLiftToHasCoe___elambda__1(obj* x_1, obj* x_2, obj* x_3) {
+_start:
+{
+obj* x_4; 
+x_4 = lean::alloc_closure(reinterpret_cast<void*>(l_hasMonadLiftToHasCoe___elambda__1___rarg), 2, 0);
+return x_4;
+}
+}
 obj* l_hasMonadLiftToHasCoe___rarg(obj* x_1, obj* x_2) {
 _start:
 {
 obj* x_3; 
-x_3 = lean::apply_1(x_1, lean::box(0));
+x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_hasMonadLiftToHasCoe___elambda__1___rarg), 2, 1);
+lean::closure_set(x_3, 0, x_1);
 return x_3;
 }
 }
@@ -47,6 +67,16 @@ x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_hasMonadLiftToHasCoe___rarg)
 return x_3;
 }
 }
+obj* l_hasMonadLiftToHasCoe___elambda__1___boxed(obj* x_1, obj* x_2, obj* x_3) {
+_start:
+{
+obj* x_4; 
+x_4 = l_hasMonadLiftToHasCoe___elambda__1(x_1, x_2, x_3);
+lean::dec(x_2);
+lean::dec(x_1);
+return x_4;
+}
+}
 obj* l_hasMonadLiftToHasCoe___boxed(obj* x_1, obj* x_2) {
 _start:
 {

src/stage0/init/data/dlist.cpp

@@ -20,18 +20,20 @@ obj* l_DList_cons___main(obj*);
 obj* l_DList_singleton___elambda__1___rarg(obj*, obj*);
 obj* l_DList_push(obj*);
 obj* l_DList_toList___rarg(obj*);
+obj* l_DList_append___main___elambda__1___rarg(obj*, obj*, obj*);
 obj* l_DList_HasAppend___closed__1;
-obj* l_Function_comp___rarg(obj*, obj*, obj*);
 obj* l_DList_HasEmptyc(obj*);
 obj* l_DList_cons___rarg(obj*, obj*);
-obj* l_id___rarg___boxed(obj*);
 obj* l_DList_singleton(obj*);
 obj* l_DList_toList(obj*);
 obj* l_DList_append___rarg(obj*, obj*);
 obj* l_DList_toList___main(obj*);
 obj* l_DList_cons___main___elambda__1___rarg(obj*, obj*, obj*);
+obj* l_DList_HasEmptyc___closed__1;
+obj* l_DList_empty___elambda__1___rarg___boxed(obj*);
 obj* l_DList_cons___main___rarg(obj*, obj*);
 obj* l_DList_HasAppend(obj*);
+obj* l_DList_empty___elambda__1(obj*);
 obj* l_List_append___rarg(obj*, obj*);
 obj* l_DList_cons(obj*);
 obj* l_DList_toList___main___rarg(obj*);
@@ -39,20 +41,40 @@ obj* l_DList_append___main___rarg(obj*, obj*);
 obj* l_DList_empty(obj*);
 obj* l_DList_push___rarg(obj*, obj*);
 obj* l_DList_push___main___elambda__1___rarg(obj*, obj*, obj*);
+obj* l_DList_append___main___elambda__1(obj*);
 obj* l_DList_singleton___rarg(obj*);
 obj* l_DList_empty___closed__1;
+obj* l_DList_empty___elambda__1___rarg(obj*);
 obj* l_DList_push___main___elambda__1(obj*);
 obj* l_DList_push___main___rarg(obj*, obj*);
+obj* l_DList_ofList___elambda__1___rarg(obj*, obj*);
 obj* l_DList_cons___main___elambda__1(obj*);
 obj* l_DList_push___main(obj*);
 obj* l_DList_ofList(obj*);
 obj* l_DList_singleton___elambda__1(obj*);
+obj* l_DList_ofList___elambda__1(obj*);
 obj* l_DList_ofList___rarg(obj*);
+obj* l_DList_ofList___elambda__1___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_DList_ofList___elambda__1(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_ofList___elambda__1___rarg), 2, 0);
+return x_2;
+}
+}
 obj* l_DList_ofList___rarg(obj* x_1) {
 _start:
 {
 obj* x_2; 
-x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_List_append___rarg), 2, 1);
+x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_ofList___elambda__1___rarg), 2, 1);
 lean::closure_set(x_2, 0, x_1);
 return x_2;
 }
@@ -65,11 +87,26 @@ x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_ofList___rarg), 1, 0);
 return x_2;
 }
 }
+obj* l_DList_empty___elambda__1___rarg(obj* x_1) {
+_start:
+{
+lean::inc(x_1);
+return x_1;
+}
+}
+obj* l_DList_empty___elambda__1(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_empty___elambda__1___rarg___boxed), 1, 0);
+return x_2;
+}
+}
 obj* _init_l_DList_empty___closed__1() {
 _start:
 {
 obj* x_1; 
-x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_id___rarg___boxed), 1, 0);
+x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_empty___elambda__1___rarg___boxed), 1, 0);
 return x_1;
 }
 }
@@ -81,11 +118,28 @@ x_2 = l_DList_empty___closed__1;
 return x_2;
 }
 }
+obj* l_DList_empty___elambda__1___rarg___boxed(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = l_DList_empty___elambda__1___rarg(x_1);
+lean::dec(x_1);
+return x_2;
+}
+}
+obj* _init_l_DList_HasEmptyc___closed__1() {
+_start:
+{
+obj* x_1; 
+x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_empty___elambda__1___rarg___boxed), 1, 0);
+return x_1;
+}
+}
 obj* l_DList_HasEmptyc(obj* x_1) {
 _start:
 {
 obj* x_2; 
-x_2 = l_DList_empty___closed__1;
+x_2 = l_DList_HasEmptyc___closed__1;
 return x_2;
 }
 }
@@ -212,11 +266,28 @@ x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_cons___rarg), 2, 0);
 return x_2;
 }
 }
+obj* l_DList_append___main___elambda__1___rarg(obj* x_1, obj* x_2, obj* x_3) {
+_start:
+{
+obj* x_4; obj* x_5; 
+x_4 = lean::apply_1(x_2, x_3);
+x_5 = lean::apply_1(x_1, x_4);
+return x_5;
+}
+}
+obj* l_DList_append___main___elambda__1(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_append___main___elambda__1___rarg), 3, 0);
+return x_2;
+}
+}
 obj* l_DList_append___main___rarg(obj* x_1, obj* x_2) {
 _start:
 {
 obj* x_3; 
-x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_comp___rarg), 3, 2);
+x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_append___main___elambda__1___rarg), 3, 2);
 lean::closure_set(x_3, 0, x_1);
 lean::closure_set(x_3, 1, x_2);
 return x_3;
@@ -234,7 +305,7 @@ obj* l_DList_append___rarg(obj* x_1, obj* x_2) {
 _start:
 {
 obj* x_3; 
-x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Function_comp___rarg), 3, 2);
+x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_DList_append___main___elambda__1___rarg), 3, 2);
 lean::closure_set(x_3, 0, x_1);
 lean::closure_set(x_3, 1, x_2);
 return x_3;
@@ -331,6 +402,8 @@ REGISTER_LEAN_FUNCTION(lean::mk_const_name(lean::mk_const_name("DList"), "ofList
 l_DList_empty___closed__1 = _init_l_DList_empty___closed__1();
 lean::mark_persistent(l_DList_empty___closed__1);
 REGISTER_LEAN_FUNCTION(lean::mk_const_name(lean::mk_const_name("DList"), "empty"), 1, l_DList_empty);
+l_DList_HasEmptyc___closed__1 = _init_l_DList_HasEmptyc___closed__1();
+lean::mark_persistent(l_DList_HasEmptyc___closed__1);
 REGISTER_LEAN_FUNCTION(lean::mk_const_name(lean::mk_const_name("DList"), "HasEmptyc"), 1, l_DList_HasEmptyc);
 REGISTER_LEAN_FUNCTION(lean::mk_const_name(lean::mk_const_name("DList"), "toList"), 1, l_DList_toList);
 REGISTER_LEAN_FUNCTION(lean::mk_const_name(lean::mk_const_name("DList"), "singleton"), 1, l_DList_singleton);

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

@@ -23,6 +23,7 @@ obj* l_Lean_Parser_symbolInfo(obj*, obj*);
 obj* l_Lean_Parser_Level_max___elambda__1___closed__2;
 obj* l_Lean_Parser_andthenInfo(obj*, obj*);
 obj* l_Lean_Parser_Level_max;
+obj* l_Lean_Parser_Level_ident___elambda__1___rarg(obj*, obj*);
 obj* l_Lean_Parser_Level_max___elambda__1___closed__1;
 obj* l_Lean_Parser_Level_addLit___elambda__1___closed__1;
 obj* l_Lean_Parser_Level_paren___elambda__1___rarg___closed__1;
@@ -42,6 +43,7 @@ obj* l_Lean_Parser_levelParser(uint8, obj*);
 obj* l_Lean_Parser_Level_num;
 obj* l___regBuiltinParser_Lean_Parser_Level_addLit(obj*);
 obj* l_Lean_Parser_Level_max___elambda__1___closed__3;
+obj* l_Lean_Parser_Level_num___elambda__1___boxed(obj*);
 obj* l___regBuiltinParser_Lean_Parser_Level_hole(obj*);
 obj* l_Lean_Parser_Level_addLit___elambda__1___closed__3;
 obj* l_Lean_Parser_Level_paren___elambda__1(obj*);
@@ -58,6 +60,7 @@ obj* l_Lean_Parser_Level_addLit___elambda__1___closed__2;
 obj* l_Lean_Parser_levelParser___boxed(obj*, obj*);
 extern "C" obj* lean_name_mk_string(obj*, obj*);
 obj* l_Lean_Parser_Level_imax___elambda__1___closed__2;
+obj* l_Lean_Parser_Level_num___elambda__1(obj*);
 obj* l___regBuiltinParser_Lean_Parser_Level_imax(obj*);
 extern obj* l_Lean_nullKind;
 obj* l_Lean_Parser_Level_hole___elambda__1___rarg(obj*, obj*);
@@ -66,17 +69,19 @@ obj* l_Lean_Parser_levelParserFn___rarg___closed__1;
 namespace lean {
 uint8 nat_dec_eq(obj*, obj*);
 }
+obj* l_Lean_Parser_Level_ident___elambda__1___boxed(obj*);
 obj* l_Lean_Parser_Level_hole___elambda__1___rarg___closed__3;
 obj* l_Lean_Parser_Level_paren___elambda__1___rarg___closed__3;
 obj* l_Lean_Parser_Level_hole___elambda__1___rarg___closed__1;
+obj* l_Lean_Parser_Level_ident___elambda__1(obj*);
 obj* l_Lean_Parser_Level_paren___elambda__1___rarg___closed__4;
 obj* l_Lean_Parser_numLitFn___rarg(obj*, obj*);
 obj* l_Lean_Parser_ParserState_pushSyntax(obj*, obj*);
 obj* l_Lean_Parser_Level_imax;
 obj* l_Lean_Parser_regBuiltinLevelParserAttr(obj*);
 obj* l_Lean_Parser_Level_hole___elambda__1___boxed(obj*);
+obj* l_Lean_Parser_identFn___rarg(obj*, obj*);
 obj* l_String_trim(obj*);
-obj* l_Lean_Parser_numLitFn___boxed(obj*, obj*);
 obj* l_Lean_Parser_levelParserFn___boxed(obj*);
 obj* l_Lean_Parser_Level_addLit___elambda__1(obj*, obj*, obj*);
 obj* l_Lean_Parser_Level_hole___elambda__1(obj*);
@@ -85,7 +90,7 @@ obj* l_Lean_Parser_ParserState_mkError(obj*, obj*);
 obj* l_Lean_Parser_nodeInfo(obj*);
 obj* l_Array_size(obj*, obj*);
 obj* l_Lean_Parser_Level_paren___elambda__1___rarg___closed__5;
-obj* l_Lean_Parser_identFn___boxed(obj*, obj*);
+obj* l_Lean_Parser_Level_num___elambda__1___rarg(obj*, obj*);
 obj* l___regBuiltinParser_Lean_Parser_Level_ident___closed__1;
 obj* l_Lean_Parser_levelParserFn___rarg(obj*, obj*, obj*, obj*);
 obj* l_Lean_Parser_regBuiltinLevelParserAttr___closed__1;
@@ -846,20 +851,42 @@ x_5 = l_Lean_Parser_addBuiltinLeadingParser(x_2, x_3, x_4, x_1);
 return x_5;
 }
 }
+obj* l_Lean_Parser_Level_num___elambda__1___rarg(obj* x_1, obj* x_2) {
+_start:
+{
+obj* x_3; 
+x_3 = l_Lean_Parser_numLitFn___rarg(x_1, x_2);
+return x_3;
+}
+}
+obj* l_Lean_Parser_Level_num___elambda__1(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Level_num___elambda__1___rarg), 2, 0);
+return x_2;
+}
+}
 obj* _init_l_Lean_Parser_Level_num() {
 _start:
 {
-obj* x_1; obj* x_2; uint8 x_3; obj* x_4; obj* x_5; obj* x_6; 
+obj* x_1; obj* x_2; obj* x_3; obj* x_4; 
 x_1 = lean::mk_string("numLit");
 x_2 = l_Lean_Parser_mkAtomicInfo(x_1);
-x_3 = 0;
-x_4 = lean::box(x_3);
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_numLitFn___boxed), 2, 1);
-lean::closure_set(x_5, 0, x_4);
-x_6 = lean::alloc_cnstr(0, 2, 0);
-lean::cnstr_set(x_6, 0, x_2);
-lean::cnstr_set(x_6, 1, x_5);
-return x_6;
+x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Level_num___elambda__1___boxed), 1, 0);
+x_4 = lean::alloc_cnstr(0, 2, 0);
+lean::cnstr_set(x_4, 0, x_2);
+lean::cnstr_set(x_4, 1, x_3);
+return x_4;
+}
+}
+obj* l_Lean_Parser_Level_num___elambda__1___boxed(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = l_Lean_Parser_Level_num___elambda__1(x_1);
+lean::dec(x_1);
+return x_2;
 }
 }
 obj* _init_l___regBuiltinParser_Lean_Parser_Level_num___closed__1() {
@@ -889,20 +916,42 @@ x_5 = l_Lean_Parser_addBuiltinLeadingParser(x_2, x_3, x_4, x_1);
 return x_5;
 }
 }
+obj* l_Lean_Parser_Level_ident___elambda__1___rarg(obj* x_1, obj* x_2) {
+_start:
+{
+obj* x_3; 
+x_3 = l_Lean_Parser_identFn___rarg(x_1, x_2);
+return x_3;
+}
+}
+obj* l_Lean_Parser_Level_ident___elambda__1(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Level_ident___elambda__1___rarg), 2, 0);
+return x_2;
+}
+}
 obj* _init_l_Lean_Parser_Level_ident() {
 _start:
 {
-obj* x_1; obj* x_2; uint8 x_3; obj* x_4; obj* x_5; obj* x_6; 
+obj* x_1; obj* x_2; obj* x_3; obj* x_4; 
 x_1 = lean::mk_string("ident");
 x_2 = l_Lean_Parser_mkAtomicInfo(x_1);
-x_3 = 0;
-x_4 = lean::box(x_3);
-x_5 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_identFn___boxed), 2, 1);
-lean::closure_set(x_5, 0, x_4);
-x_6 = lean::alloc_cnstr(0, 2, 0);
-lean::cnstr_set(x_6, 0, x_2);
-lean::cnstr_set(x_6, 1, x_5);
-return x_6;
+x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Parser_Level_ident___elambda__1___boxed), 1, 0);
+x_4 = lean::alloc_cnstr(0, 2, 0);
+lean::cnstr_set(x_4, 0, x_2);
+lean::cnstr_set(x_4, 1, x_3);
+return x_4;
+}
+}
+obj* l_Lean_Parser_Level_ident___elambda__1___boxed(obj* x_1) {
+_start:
+{
+obj* x_2; 
+x_2 = l_Lean_Parser_Level_ident___elambda__1(x_1);
+lean::dec(x_1);
+return x_2;
 }
 }
 obj* _init_l___regBuiltinParser_Lean_Parser_Level_ident___closed__1() {