max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore(stage0): update

Browse source
This commit is contained in:
Leonardo de Moura 2019-03-22 15:10:04 -07:00
parent 98163e53ac
commit 81f847a2d1
14 changed files with 1697 additions and 1372 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

138
src/stage0/init/core.cpp generated
View file

@ -14,19 +14,17 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
uint8 l_xor(uint8, uint8);
obj* l_cast___rarg(obj*);
obj* l_Or_Decidable___rarg___boxed(obj*, obj*);
obj* l_Sum_DecidableEq___boxed(obj*, obj*);
obj* l_Eq_ndrecOn___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Iff_Decidable(obj*, obj*);
obj* l_Prod_DecidableEq(obj*, obj*);
uint8 l_bor___main(uint8, uint8);
obj* l_Quot_recOnSubsingleton___boxed(obj*, obj*, obj*, obj*);
obj* l_bor___boxed(obj*, obj*);
obj* l_Quotient_liftOn___rarg(obj*, obj*, obj*);
obj* l_Sigma_sizeof___main___rarg(obj*, obj*, obj*);
obj* l_Prod_sizeof___main(obj*, obj*);
uint8 l_band___main(uint8, uint8);
obj* l_Function_onFun(obj*, obj*, obj*);
obj* l_PSigma_sizeof___main___at_PSigma_HasSizeof___spec__2(obj*, obj*);
obj* l_idDelta___rarg___boxed(obj*);
@ -40,8 +38,8 @@ obj* l_Fun_Inhabited___rarg___boxed(obj*, obj*);
obj* l_Quot_rec___rarg___boxed(obj*, obj*, obj*);
obj* l_Not_Decidable(obj*);
obj* l_Decidable_recOnTrue___rarg___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_bxor___boxed(obj*, obj*);
obj* l_cond___boxed(obj*);
uint8 l_or(uint8, uint8);
obj* l_prodHasDecidableLt(obj*, obj*, obj*, obj*);
obj* l_ite_Decidable___boxed(obj*, obj*, obj*);
obj* l_Xor_Decidable___boxed(obj*, obj*);
@ -58,6 +56,7 @@ uint8 l_Bool_DecidableEq(uint8, uint8);
obj* l_Function_onFun___boxed(obj*, obj*, obj*);
obj* l_inline(obj*);
obj* l_Nat_HasSizeof;
obj* l_beqOfEq(obj*);
obj* l_List_sizeof___main___boxed(obj*);
obj* l_PSum_HasSizeof___rarg(obj*, obj*);
obj* l_Sigma_sizeof___boxed(obj*, obj*);
@ -84,14 +83,12 @@ obj* l_arbitrary___rarg___boxed(obj*);
obj* l_Sigma_sizeof___rarg(obj*, obj*, obj*);
obj* l_Sigma_sizeof___main(obj*, obj*);
obj* l_cast___rarg___boxed(obj*);
obj* l_bxor___main___boxed(obj*, obj*);
obj* l_Function_onFun___rarg(obj*, obj*, obj*, obj*);
obj* l_Prod_map___main___boxed(obj*, obj*, obj*, obj*);
obj* l_Thunk_map___boxed(obj*, obj*, obj*, obj*);
obj* l_Quotient_hrecOn___rarg(obj*, obj*, obj*);
obj* l_Prod_HasLt___boxed(obj*, obj*, obj*, obj*);
obj* l_Function_comp___rarg(obj*, obj*, obj*);
obj* l_bor___main___boxed(obj*, obj*);
obj* l_List_sizeof___main(obj*);
obj* l_inferInstanceAs___boxed(obj*);
obj* l_Sum_inhabitedRight___rarg(obj*);
@ -108,13 +105,14 @@ obj* l_singleton___rarg(obj*, obj*, obj*);
obj* l_decidableOfDecidableOfIff___rarg___boxed(obj*, obj*);
obj* l_True_Decidable___boxed;
obj* l_decidableOfDecidableEq___boxed(obj*);
uint8 l_and(uint8, uint8);
obj* l_ite___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_or___main___boxed(obj*, obj*);
obj* l___private_init_core_22__extfunApp(obj*, obj*);
obj* l_Option_HasSizeof___rarg(obj*);
obj* l_Subtype_sizeof___main___rarg(obj*, obj*, obj*);
obj* l_Not_Decidable___rarg___boxed(obj*);
obj* l_id___rarg___boxed(obj*);
uint8 l_bxor___main(uint8, uint8);
obj* l_PSum_sizeof___main___boxed(obj*, obj*);
obj* l_setoidHasEquiv(obj*, obj*);
obj* l_Nat_sizeof___main___boxed(obj*);
@ -128,6 +126,7 @@ obj* l_default_sizeof___boxed(obj*, obj*);
obj* l_decidableOfDecidableOfEq___rarg___boxed(obj*, obj*);
obj* l_dite_Decidable___rarg(uint8, obj*, obj*);
obj* l_PUnit_sizeof___main___boxed(obj*);
obj* l_beqOfEq___boxed(obj*);
obj* l_typedExpr(obj*);
obj* l_dite_Decidable___boxed(obj*, obj*, obj*);
obj* l_Eq_mpr(obj*, obj*, obj*);
@ -147,14 +146,12 @@ obj* l_Sigma_HasSizeof___boxed(obj*, obj*);
obj* l___private_init_core_22__extfunApp___boxed(obj*, obj*);
obj* l_std_priority_default;
obj* l_Quotient_DecidableEq___rarg(obj*, obj*, obj*, obj*);
obj* l_Unit_star;
obj* l_arbitrary___rarg(obj*);
obj* l_Prod_HasSizeof(obj*, obj*);
obj* l_Prod_DecidableEq___boxed(obj*, obj*);
obj* l_Subtype_sizeof___main(obj*);
obj* l_Quot_recOnSubsingleton(obj*, obj*, obj*, obj*);
obj* l_Prod_HasSizeof___boxed(obj*, obj*);
obj* l_band___boxed(obj*, obj*);
obj* l_Quotient_liftOn___boxed(obj*, obj*, obj*);
obj* l_PSum_sizeof(obj*, obj*);
obj* l_Task_map___boxed(obj*, obj*, obj*, obj*);
@ -174,6 +171,7 @@ obj* l_Fun_Inhabited___boxed(obj*, obj*);
obj* l_dite___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_List_sizeof___boxed(obj*);
obj* l_Quotient_lift_u_2082___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_Unit_unit;
obj* l_idDelta(obj*);
obj* l_PUnit_Inhabited;
obj* l_Xor_Decidable___rarg___boxed(obj*, obj*);
@ -185,12 +183,13 @@ obj* l_Pi_Inhabited(obj*, obj*);
obj* l_Quotient_recOn(obj*, obj*, obj*);
obj* l_Subtype_Inhabited___rarg___boxed(obj*, obj*);
obj* l_Quot_indep___rarg(obj*, obj*);
obj* l_not___boxed(obj*);
obj* l_Nat_sizeof___main(obj*);
obj* l_xor___boxed(obj*, obj*);
obj* l_Prod_Inhabited(obj*, obj*);
obj* l_PSigma_HasSizeof(obj*, obj*);
obj* l_dite_Decidable___rarg___boxed(obj*, obj*, obj*);
obj* l_And_Decidable___boxed(obj*, obj*);
uint8 l_bnot___main(uint8);
obj* l_Function_comp___boxed(obj*, obj*, obj*);
obj* l_Quot_indep(obj*, obj*, obj*);
obj* l_Not_Decidable___boxed(obj*);
@ -199,6 +198,7 @@ obj* l_List_HasSizeof___rarg(obj*);
obj* l_ite_Decidable___rarg___boxed(obj*, obj*, obj*);
obj* l_decidableOfDecidableEq___rarg(obj*, obj*, obj*);
obj* l_Subtype_sizeof___main___rarg___boxed(obj*, obj*, obj*);
uint8 l_beqOfEq___rarg(obj*, obj*, obj*);
obj* l_default_sizeof___main___boxed(obj*, obj*);
obj* l_default___rarg(obj*);
obj* l_implies_Decidable___boxed(obj*, obj*);
@ -214,7 +214,6 @@ obj* l_Prod_sizeof___main___rarg(obj*, obj*, obj*);
obj* l_Quot_recOn___rarg___boxed(obj*, obj*, obj*);
obj* l_Quotient_liftOn___rarg___boxed(obj*, obj*, obj*);
obj* l_Prod_Inhabited___boxed(obj*, obj*);
obj* l_band___main___boxed(obj*, obj*);
obj* l_Quotient_hrecOn(obj*, obj*, obj*);
obj* l_Option_sizeof___main___rarg(obj*, obj*);
obj* l_cond___main___boxed(obj*);
@ -256,7 +255,7 @@ obj* nat_add(obj*, obj*);
}
obj* l_Subtype_sizeof___boxed(obj*);
obj* l_PSigma_sizeof___boxed(obj*, obj*);
obj* l_bnot___boxed(obj*);
uint8 l_not___main(uint8);
obj* l_Quot_liftOn___rarg___boxed(obj*, obj*, obj*);
obj* l_PUnit_sizeof___main(obj*);
uint8 l_Or_Decidable___rarg(uint8, uint8);
@ -292,6 +291,7 @@ obj* l_Eq_mpr___rarg___boxed(obj*);
obj* l_List_sizeof(obj*);
obj* l_Option_sizeof___boxed(obj*);
obj* l_decidableOfDecidableEq(obj*);
uint8 l_and___main(uint8, uint8);
obj* l_Decidable_byCases___rarg(uint8, obj*, obj*);
uint8 l_Iff_Decidable___rarg(uint8, uint8);
obj* l_Sum_HasSizeof___boxed(obj*, obj*);
@ -348,8 +348,8 @@ obj* l_Prod_sizeof___main___boxed(obj*, obj*);
obj* l_Option_sizeof___rarg(obj*, obj*);
obj* l_Sum_DecidableEq___rarg___boxed(obj*, obj*, obj*, obj*);
uint8 l_And_Decidable___rarg(uint8, uint8);
uint8 l_band(uint8, uint8);
obj* l_flip(obj*, obj*, obj*);
obj* l_not___main___boxed(obj*);
obj* l_PSigma_sizeof___at_PSigma_HasSizeof___spec__1___boxed(obj*, obj*);
obj* l_std_prec_max;
obj* l_True_Inhabited;
@ -357,6 +357,7 @@ obj* l_Bool_sizeof___main___boxed(obj*);
obj* l_cond___main(obj*);
obj* l_Function_swap___boxed(obj*, obj*, obj*);
obj* l_Function_combine___rarg(obj*, obj*, obj*, obj*, obj*);
uint8 l_not(uint8);
uint8 l_decidableOfDecidableOfEq___rarg(uint8, obj*);
uint8 l_False_Decidable;
obj* l_Quotient_rec___rarg(obj*, obj*, obj*);
@ -369,13 +370,14 @@ obj* l_Sum_HasSizeof(obj*, obj*);
obj* l_Function_const___rarg(obj*, obj*);
obj* l_Eq_ndrec(obj*, obj*, obj*);
obj* l_Subtype_HasSizeof___boxed(obj*);
uint8 l_xor___main(uint8, uint8);
obj* l_idRhs___rarg___boxed(obj*);
obj* l_Quotient_recOnSubsingleton_u_2082___at_Quotient_DecidableEq___spec__1(obj*, obj*);
obj* l_Subtype_sizeof___rarg___boxed(obj*, obj*, obj*);
uint8 l_bxor(uint8, uint8);
obj* l_default(obj*);
obj* l_Quotient_recOn___boxed(obj*, obj*, obj*);
obj* l_Ne_Decidable___rarg___boxed(obj*, obj*, obj*);
obj* l_and___boxed(obj*, obj*);
obj* l_Subtype_sizeof(obj*);
obj* l_inferInstance___boxed(obj*);
uint8 l_Subtype_DecidableEq___rarg(obj*, obj*, obj*);
@ -387,6 +389,7 @@ obj* l_Quotient_lift___boxed(obj*, obj*, obj*);
obj* l_idRhs(obj*);
obj* l_Eq_mp___boxed(obj*, obj*, obj*);
obj* l_Quot_hrecOn(obj*, obj*, obj*);
obj* l_and___main___boxed(obj*, obj*);
obj* l_List_sizeof___main___rarg(obj*, obj*);
obj* l_Quotient_mk___rarg___boxed(obj*);
obj* l_Quot_rec___rarg(obj*, obj*, obj*);
@ -406,7 +409,6 @@ obj* l_Decidable_recOnTrue(obj*);
obj* l_PSigma_sizeof___main___at_PSigma_HasSizeof___spec__2___rarg(obj*, obj*, obj*);
obj* l_Prod_HasLt(obj*, obj*, obj*, obj*);
obj* l_Nat_HasAdd;
uint8 l_bor(uint8, uint8);
obj* l_Subtype_Inhabited___rarg(obj*, obj*);
obj* l_Quot_hrecOn___rarg___boxed(obj*, obj*, obj*);
obj* l_PUnit_DecidableEq___boxed(obj*, obj*);
@ -427,14 +429,14 @@ obj* l_Decidable_recOnTrue___rarg(uint8, obj*, obj*, obj*, obj*);
obj* l_Eq_mp___rarg___boxed(obj*);
obj* l_PSigma_sizeof___main(obj*, obj*);
obj* l_inferInstance(obj*);
uint8 l_bnot(uint8);
obj* l_absurd(obj*, obj*, obj*, obj*);
obj* l_xor___main___boxed(obj*, obj*);
uint8 l_decidableOfDecidableOfIff___rarg(uint8, obj*);
obj* l_Decidable_toBool___boxed(obj*);
obj* l_beqOfEq___rarg___boxed(obj*, obj*, obj*);
obj* l_PSigma_sizeof___rarg(obj*, obj*, obj*);
obj* l_Decidable_byCases(obj*, obj*);
obj* l_Ne_Decidable___boxed(obj*);
obj* l_bnot___main___boxed(obj*);
obj* l_arbitrary(obj*);
obj* l_Sum_sizeof___rarg(obj*, obj*, obj*);
obj* l_Quotient_liftOn_u_2082___boxed(obj*, obj*, obj*, obj*, obj*);
@ -450,6 +452,7 @@ obj* l_Sum_inhabitedLeft(obj*, obj*);
obj* l_Function_swap___rarg(obj*, obj*, obj*);
obj* l_cond(obj*);
obj* l_Option_HasSizeof___boxed(obj*);
obj* l_or___boxed(obj*, obj*);
obj* l_PSigma_sizeof(obj*, obj*);
obj* l_Subtype_Inhabited___boxed(obj*, obj*);
obj* l_Decidable_recOnTrue___boxed(obj*);
@ -460,6 +463,7 @@ obj* l_Quot_recOn(obj*, obj*, obj*);
obj* l_implies_Decidable(obj*, obj*);
obj* l_setoidHasEquiv___boxed(obj*, obj*);
obj* l_Sigma_sizeof___at_Sigma_HasSizeof___spec__1___boxed(obj*, obj*);
uint8 l_or___main(uint8, uint8);
obj* l___private_init_core_21__funSetoid___boxed(obj*, obj*);
obj* l_Or_Decidable___boxed(obj*, obj*);
obj* l_Decidable_recOnFalse___boxed(obj*);
@ -657,7 +661,7 @@ lean::dec(x_0);
return x_1;
}
}
obj* _init_l_Unit_star() {
obj* _init_l_Unit_unit() {
_start:
{
obj* x_0;
@ -2243,7 +2247,7 @@ lean::dec(x_0);
return x_1;
}
}
uint8 l_bor___main(uint8 x_0, uint8 x_1) {
uint8 l_or___main(uint8 x_0, uint8 x_1) {
_start:
{
if (x_0 == 0)
@ -2256,18 +2260,18 @@ return x_0;
}
}
}
obj* l_bor___main___boxed(obj* x_0, obj* x_1) {
obj* l_or___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_bor___main(x_2, x_3);
x_4 = l_or___main(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
uint8 l_bor(uint8 x_0, uint8 x_1) {
uint8 l_or(uint8 x_0, uint8 x_1) {
_start:
{
if (x_0 == 0)
@ -2280,18 +2284,18 @@ return x_0;
}
}
}
obj* l_bor___boxed(obj* x_0, obj* x_1) {
obj* l_or___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_bor(x_2, x_3);
x_4 = l_or(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
uint8 l_band___main(uint8 x_0, uint8 x_1) {
uint8 l_and___main(uint8 x_0, uint8 x_1) {
_start:
{
if (x_0 == 0)
@ -2304,18 +2308,18 @@ return x_1;
}
}
}
obj* l_band___main___boxed(obj* x_0, obj* x_1) {
obj* l_and___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_band___main(x_2, x_3);
x_4 = l_and___main(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
uint8 l_band(uint8 x_0, uint8 x_1) {
uint8 l_and(uint8 x_0, uint8 x_1) {
_start:
{
if (x_0 == 0)
@ -2328,18 +2332,18 @@ return x_1;
}
}
}
obj* l_band___boxed(obj* x_0, obj* x_1) {
obj* l_and___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_band(x_2, x_3);
x_4 = l_and(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
uint8 l_bnot___main(uint8 x_0) {
uint8 l_not___main(uint8 x_0) {
_start:
{
if (x_0 == 0)
@ -2356,17 +2360,17 @@ return x_2;
}
}
}
obj* l_bnot___main___boxed(obj* x_0) {
obj* l_not___main___boxed(obj* x_0) {
_start:
{
uint8 x_1; uint8 x_2; obj* x_3;
x_1 = lean::unbox(x_0);
x_2 = l_bnot___main(x_1);
x_2 = l_not___main(x_1);
x_3 = lean::box(x_2);
return x_3;
}
}
uint8 l_bnot(uint8 x_0) {
uint8 l_not(uint8 x_0) {
_start:
{
if (x_0 == 0)
@ -2383,17 +2387,17 @@ return x_2;
}
}
}
obj* l_bnot___boxed(obj* x_0) {
obj* l_not___boxed(obj* x_0) {
_start:
{
uint8 x_1; uint8 x_2; obj* x_3;
x_1 = lean::unbox(x_0);
x_2 = l_bnot(x_1);
x_2 = l_not(x_1);
x_3 = lean::box(x_2);
return x_3;
}
}
uint8 l_bxor___main(uint8 x_0, uint8 x_1) {
uint8 l_xor___main(uint8 x_0, uint8 x_1) {
_start:
{
if (x_0 == 0)
@ -2415,18 +2419,18 @@ return x_2;
}
}
}
obj* l_bxor___main___boxed(obj* x_0, obj* x_1) {
obj* l_xor___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_bxor___main(x_2, x_3);
x_4 = l_xor___main(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
}
uint8 l_bxor(uint8 x_0, uint8 x_1) {
uint8 l_xor(uint8 x_0, uint8 x_1) {
_start:
{
if (x_0 == 0)
@ -2448,13 +2452,13 @@ return x_2;
}
}
}
obj* l_bxor___boxed(obj* x_0, obj* x_1) {
obj* l_xor___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; uint8 x_4; obj* x_5;
x_2 = lean::unbox(x_0);
x_3 = lean::unbox(x_1);
x_4 = l_bxor(x_2, x_3);
x_4 = l_xor(x_2, x_3);
x_5 = lean::box(x_4);
return x_5;
}
@ -2642,6 +2646,52 @@ lean::dec(x_0);
return x_1;
}
}
uint8 l_beqOfEq___rarg(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; uint8 x_4;
x_3 = lean::apply_2(x_0, x_1, x_2);
x_4 = lean::unbox(x_3);
if (x_4 == 0)
{
uint8 x_5;
x_5 = 0;
return x_5;
}
else
{
uint8 x_6;
x_6 = 1;
return x_6;
}
}
}
obj* l_beqOfEq(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::alloc_closure(reinterpret_cast<void*>(l_beqOfEq___rarg___boxed), 3, 0);
return x_1;
}
}
obj* l_beqOfEq___rarg___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = l_beqOfEq___rarg(x_0, x_1, x_2);
x_4 = lean::box(x_3);
return x_4;
}
}
obj* l_beqOfEq___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_beqOfEq(x_0);
lean::dec(x_0);
return x_1;
}
}
uint8 _init_l_True_Decidable() {
_start:
{
@ -5110,8 +5160,8 @@ static bool _G_initialized = false;
obj* initialize_init_core(obj* w) {
if (_G_initialized) return w;
_G_initialized = true;
l_Unit_star = _init_l_Unit_star();
lean::mark_persistent(l_Unit_star);
l_Unit_unit = _init_l_Unit_unit();
lean::mark_persistent(l_Unit_unit);
l_Nat_HasZero = _init_l_Nat_HasZero();
lean::mark_persistent(l_Nat_HasZero);
l_Nat_HasOne = _init_l_Nat_HasOne();

44
src/stage0/init/data/list/basic.cpp generated
View file

@ -41,7 +41,6 @@ namespace lean {
obj* nat_sub(obj*, obj*);
}
obj* l_List_length___rarg(obj*);
obj* l_List_bor___boxed(obj*);
obj* l_List_updateNth___boxed(obj*);
obj* l_List_map_u_2082___main___boxed(obj*, obj*, obj*);
uint8 l_List_removeAll___rarg___lambda__1(obj*, obj*, obj*);
@ -59,6 +58,7 @@ uint8 l_List_hasDecEq___main___rarg(obj*, obj*, obj*);
obj* l_List_tail___rarg(obj*);
obj* l_List_foldr___main___rarg___boxed(obj*, obj*, obj*);
obj* l_List_updateNth___main___rarg(obj*, obj*, obj*);
obj* l_List_or___boxed(obj*);
obj* l_List_hasDecidableLe(obj*);
obj* l_List_ilast___main___boxed(obj*);
obj* l_List_head___main(obj*);
@ -68,12 +68,14 @@ obj* l_List_intersperse___main___rarg(obj*, obj*);
obj* l_List_drop___main___boxed(obj*);
obj* l_List_intersperse___main(obj*);
obj* l_List_lengthAux___main(obj*);
obj* l_List_and___boxed(obj*);
obj* l_List_ilast___main___rarg(obj*, obj*);
obj* l_List_isSuffixOf___boxed(obj*);
obj* l_List_insert(obj*);
obj* l_List_lengthAux___main___rarg(obj*, obj*);
obj* l_List_head___main___rarg___boxed(obj*, obj*);
obj* l_List_removeAll___rarg(obj*, obj*, obj*);
uint8 l_List_foldr___main___at_List_or___spec__1(uint8, obj*);
obj* l_List_foldr___main___at_List_union___spec__1___boxed(obj*);
obj* l_List_decidableMem___boxed(obj*);
obj* l_List_last___main___boxed(obj*);
@ -180,15 +182,12 @@ obj* l_List_foldr1Opt___main(obj*);
obj* l_List_enumFrom___main___rarg(obj*, obj*);
obj* l_List_take___rarg(obj*, obj*);
obj* l_List_HasAppend___boxed(obj*);
uint8 l_List_foldr___main___at_List_band___spec__1(uint8, obj*);
uint8 l_List_isSuffixOf___rarg(obj*, obj*, obj*);
obj* l_List_foldr1Opt___boxed(obj*);
obj* l_List_span___rarg(obj*, obj*);
obj* l_List_empty(obj*);
uint8 l_List_foldr___main___at_List_bor___spec__1(uint8, obj*);
obj* l_List_erase___main___boxed(obj*);
obj* l_List_diff___main(obj*);
uint8 l_List_bor(obj*);
obj* l_List_tail___main(obj*);
obj* l_List_join___main___rarg(obj*);
obj* l_List_last___main(obj*);
@ -203,7 +202,6 @@ obj* l_List_map_u_2082___rarg(obj*, obj*, obj*);
obj* l_List_enumFrom___main(obj*);
uint8 l_List_empty___main___rarg(obj*);
obj* l_List_foldl___rarg(obj*, obj*, obj*);
obj* l_List_band___boxed(obj*);
obj* l_List_hasDecidableLt___main(obj*);
obj* l_List_updateNth(obj*);
obj* l_List_assoc___rarg(obj*, obj*, obj*);
@ -254,7 +252,6 @@ obj* l_List_indexOf___rarg___lambda__1___boxed(obj*, obj*, obj*);
obj* l_List_take___rarg___boxed(obj*, obj*);
obj* l_List_map___rarg(obj*, obj*);
obj* l_List_removeNth___rarg___boxed(obj*, obj*);
obj* l_List_foldr___main___at_List_bor___spec__1___boxed(obj*, obj*);
obj* l_List_hasDecidableLt___boxed(obj*);
obj* l_List_HasMem___boxed(obj*);
obj* l_List_take___main___boxed(obj*);
@ -269,7 +266,6 @@ obj* l_List_isPrefixOf___main___rarg___boxed(obj*, obj*, obj*);
obj* l_List_last___rarg___boxed(obj*, obj*);
obj* l_List_foldr1___main(obj*);
obj* l_Nat_repeatCore___main___at_List_repeat___spec__1(obj*);
obj* l_List_foldr___main___at_List_band___spec__1___boxed(obj*, obj*);
obj* l_List_lengthAux___rarg___boxed(obj*, obj*);
obj* l_List_HasAppend(obj*);
obj* l_List_HasEmptyc___boxed(obj*);
@ -285,6 +281,7 @@ obj* l_List_foldr___main___at_List_all___spec__1___rarg___boxed(obj*, obj*, obj*
obj* l_List_enumFrom___boxed(obj*);
obj* l_List_partition___main___rarg(obj*, obj*);
obj* l_List_bagInter___main(obj*);
uint8 l_List_and(obj*);
obj* l_List_HasLt___boxed(obj*, obj*);
obj* l_List_head(obj*);
obj* l_List_map___main(obj*, obj*);
@ -314,12 +311,15 @@ uint8 l_List_all___rarg(obj*, obj*);
obj* l_List_ilast___rarg___boxed(obj*, obj*);
obj* l_List_intercalate(obj*);
obj* l_List_zip(obj*, obj*);
uint8 l_List_or(obj*);
obj* l_List_filter___main___rarg(obj*, obj*);
obj* l_List_filter(obj*);
obj* l_List_nth___main(obj*);
obj* l_List_foldr___main___at_List_and___spec__1___boxed(obj*, obj*);
obj* l_List_union___rarg___boxed(obj*, obj*, obj*);
obj* l_List_all___rarg___boxed(obj*, obj*);
obj* l_List_assoc(obj*, obj*);
uint8 l_List_foldr___main___at_List_and___spec__1(uint8, obj*);
obj* l_List_isSuffixOf(obj*);
obj* l_List_HasInter(obj*);
obj* l_List_decidableMem___rarg___boxed(obj*, obj*, obj*);
@ -360,7 +360,6 @@ obj* l_List_filter___rarg(obj*, obj*);
uint8 l_List_hasDecEq___rarg(obj*, obj*, obj*);
obj* l_List_foldr1___rarg___boxed(obj*, obj*, obj*);
uint8 l_List_hasDecidableLt___rarg(obj*, obj*, obj*, obj*);
uint8 l_List_band(obj*);
obj* l_List_any(obj*);
obj* l_List_foldr1___main___boxed(obj*);
obj* l_List_bind___boxed(obj*, obj*);
@ -402,6 +401,7 @@ obj* l_List_foldl(obj*, obj*);
obj* l_List_hasDecidableLt___main___boxed(obj*);
obj* l_List_enum(obj*);
obj* l_List_unzip___main(obj*, obj*);
obj* l_List_foldr___main___at_List_or___spec__1___boxed(obj*, obj*);
obj* l_List_filterMap___main(obj*, obj*);
obj* l_List_partition___boxed(obj*);
obj* l_List_hasDecidableLt___main___rarg___boxed(obj*, obj*, obj*, obj*);
@ -3556,7 +3556,7 @@ lean::dec(x_0);
return x_1;
}
}
uint8 l_List_foldr___main___at_List_bor___spec__1(uint8 x_0, obj* x_1) {
uint8 l_List_foldr___main___at_List_or___spec__1(uint8 x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_1) == 0)
@ -3582,37 +3582,37 @@ return x_3;
}
}
}
uint8 l_List_bor(obj* x_0) {
uint8 l_List_or(obj* x_0) {
_start:
{
uint8 x_1; uint8 x_2;
x_1 = 0;
x_2 = l_List_foldr___main___at_List_bor___spec__1(x_1, x_0);
x_2 = l_List_foldr___main___at_List_or___spec__1(x_1, x_0);
return x_2;
}
}
obj* l_List_foldr___main___at_List_bor___spec__1___boxed(obj* x_0, obj* x_1) {
obj* l_List_foldr___main___at_List_or___spec__1___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; obj* x_4;
x_2 = lean::unbox(x_0);
x_3 = l_List_foldr___main___at_List_bor___spec__1(x_2, x_1);
x_3 = l_List_foldr___main___at_List_or___spec__1(x_2, x_1);
x_4 = lean::box(x_3);
lean::dec(x_1);
return x_4;
}
}
obj* l_List_bor___boxed(obj* x_0) {
obj* l_List_or___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_List_bor(x_0);
x_1 = l_List_or(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
uint8 l_List_foldr___main___at_List_band___spec__1(uint8 x_0, obj* x_1) {
uint8 l_List_foldr___main___at_List_and___spec__1(uint8 x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_1) == 0)
@ -3638,31 +3638,31 @@ goto _start;
}
}
}
uint8 l_List_band(obj* x_0) {
uint8 l_List_and(obj* x_0) {
_start:
{
uint8 x_1; uint8 x_2;
x_1 = 1;
x_2 = l_List_foldr___main___at_List_band___spec__1(x_1, x_0);
x_2 = l_List_foldr___main___at_List_and___spec__1(x_1, x_0);
return x_2;
}
}
obj* l_List_foldr___main___at_List_band___spec__1___boxed(obj* x_0, obj* x_1) {
obj* l_List_foldr___main___at_List_and___spec__1___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; uint8 x_3; obj* x_4;
x_2 = lean::unbox(x_0);
x_3 = l_List_foldr___main___at_List_band___spec__1(x_2, x_1);
x_3 = l_List_foldr___main___at_List_and___spec__1(x_2, x_1);
x_4 = lean::box(x_3);
lean::dec(x_1);
return x_4;
}
}
obj* l_List_band___boxed(obj* x_0) {
obj* l_List_and___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_List_band(x_0);
x_1 = l_List_and(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;

65
src/stage0/init/data/rbmap/basic.cpp generated
View file

@ -60,7 +60,6 @@ obj* l_RBMap_toList___main___boxed(obj*, obj*, obj*);
obj* l_RBMap_min(obj*, obj*, obj*);
obj* l_RBMap_toList___rarg(obj*);
obj* l_RBMap_depth___rarg___boxed(obj*, obj*);
obj* l_RBMap_empty___main___boxed(obj*, obj*, obj*);
obj* l_RBNode_isRed___rarg___boxed(obj*);
obj* l_RBNode_ins___main___at_rbmapOf___spec__4___rarg(obj*, obj*, obj*, obj*);
uint8 l_RBNode_all___rarg(obj*, obj*);
@ -102,7 +101,6 @@ obj* l_RBMap_depth(obj*, obj*, obj*);
obj* l_RBNode_max(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1(obj*, obj*, obj*, obj*);
obj* l_RBNode_findCore___main___at_RBMap_findCore___main___spec__1___boxed(obj*, obj*, obj*);
obj* l_RBMap_empty___boxed(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_isRed(obj*, obj*);
obj* l_RBMap_toList___main(obj*, obj*, obj*);
@ -124,14 +122,14 @@ obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg(obj*, obj*, obj*, ob
obj* l_List_reprAux___main___at_RBMap_HasRepr___spec__2___boxed(obj*, obj*);
obj* l_RBMap_lowerBound(obj*, obj*, obj*);
obj* l_RBNode_lowerBound___main___boxed(obj*, obj*, obj*);
obj* l_RBMap_empty___main(obj*, obj*, obj*);
obj* l_List_foldl___main___at_rbmapOf___spec__6(obj*, obj*, obj*);
obj* l_RBMap_isEmpty(obj*, obj*, obj*);
obj* l_RBNode_setBlack___boxed(obj*, obj*);
obj* l_RBNode_balance2___main___rarg(obj*, obj*);
uint8 l_RBMap_empty___main___rarg(obj*);
obj* l_RBNode_ins___main___at_RBNode_insert___spec__2___boxed(obj*, obj*, obj*);
obj* l_RBMap_mfor___rarg(obj*, obj*, obj*);
obj* l_mkRBMap___boxed(obj*, obj*, obj*);
obj* l_RBMap_isEmpty___main___boxed(obj*, obj*, obj*);
obj* l_RBNode_insert___at_RBMap_insert___main___spec__1(obj*, obj*, obj*);
obj* l_RBMap_toList___main___rarg(obj*);
obj* l_RBMap_ofList___main___rarg(obj*, obj*);
@ -190,6 +188,7 @@ obj* l_RBNode_max___boxed(obj*, obj*);
namespace lean {
obj* nat_add(obj*, obj*);
}
obj* l_RBMap_HasEmptyc___boxed(obj*, obj*, obj*);
obj* l_RBNode_isRed___main___boxed(obj*, obj*);
obj* l_RBMap_HasRepr___rarg(obj*, obj*, obj*);
obj* l_RBNode_setBlack___main___boxed(obj*, obj*);
@ -221,8 +220,8 @@ obj* l_RBMap_any___main___boxed(obj*, obj*, obj*);
obj* l_RBNode_any___main___rarg___boxed(obj*, obj*);
obj* l_RBMap_max___main(obj*, obj*, obj*);
obj* l_RBNode_all___main(obj*, obj*);
obj* l_RBMap_empty(obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_rbmapOf___spec__5___rarg(obj*, obj*, obj*, obj*);
uint8 l_RBMap_isEmpty___main___rarg(obj*);
obj* l_RBNode_max___rarg(obj*);
obj* l_RBMap_all___main___boxed(obj*, obj*, obj*);
obj* l_List_repr___main___at_RBMap_HasRepr___spec__1(obj*, obj*);
@ -233,6 +232,7 @@ obj* l_RBNode_all___rarg___boxed(obj*, obj*);
obj* l_rbmapOf___boxed(obj*, obj*);
obj* l_RBNode_depth___main(obj*, obj*);
obj* l_RBNode_mfold___main___boxed(obj*, obj*, obj*, obj*);
obj* l_RBMap_isEmpty___main(obj*, obj*, obj*);
obj* l_RBNode_find___main___rarg(obj*, obj*, obj*, obj*);
obj* l_RBMap_insert___main(obj*, obj*, obj*);
obj* l_RBMap_lowerBound___main___boxed(obj*, obj*, obj*);
@ -244,7 +244,6 @@ obj* l_RBMap_mfold___main___boxed(obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_any___main___boxed(obj*, obj*);
obj* l_RBMap_fold(obj*, obj*, obj*, obj*);
obj* l_List_reprAux___main___at_RBMap_HasRepr___spec__2___rarg___boxed(obj*, obj*, obj*, obj*);
obj* l_RBMap_empty___rarg___boxed(obj*);
obj* l_RBNode_ins___main___at_RBMap_insert___main___spec__3___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_balance1___main(obj*, obj*);
obj* l_RBNode_any___boxed(obj*, obj*);
@ -264,6 +263,7 @@ obj* l_RBMap_insert___main___at_RBMap_fromList___spec__1___boxed(obj*, obj*, obj
obj* l_RBNode_revFold___main(obj*, obj*, obj*);
obj* l_RBNode_revFold___main___at_RBMap_toList___main___spec__1(obj*, obj*);
obj* l_RBMap_lowerBound___main___rarg(obj*, obj*, obj*);
obj* l_RBMap_isEmpty___boxed(obj*, obj*, obj*);
uint8 l_RBMap_all___main___rarg(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBMap_mfor___spec__1___rarg___lambda__1___boxed(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_RBNode_balance1___boxed(obj*, obj*);
@ -281,13 +281,14 @@ obj* l_RBNode_max___main(obj*, obj*);
obj* l_RBNode_setBlack___rarg(obj*);
obj* l_RBMap_lowerBound___rarg(obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_RBMap_ofList___main___spec__4___boxed(obj*, obj*, obj*);
obj* l_RBMap_HasEmptyc(obj*, obj*, obj*);
obj* l_RBMap_insert___main___at_RBMap_ofList___main___spec__1___boxed(obj*, obj*, obj*);
obj* l_RBNode_min___main___boxed(obj*, obj*);
obj* l_RBMap_insert___main___at_rbmapOf___spec__2(obj*, obj*, obj*);
obj* l_RBNode_depth___boxed(obj*, obj*);
uint8 l_RBMap_empty___rarg(obj*);
obj* l_RBMap_find___main___rarg(obj*, obj*, obj*);
obj* l_RBNode_balance1___main___rarg(obj*, obj*);
obj* l_RBMap_isEmpty___rarg___boxed(obj*);
obj* l_rbmapOf___rarg___boxed(obj*, obj*, obj*);
obj* l_RBNode_revFold___main___rarg(obj*, obj*, obj*);
obj* l_mkRBMap(obj*, obj*, obj*);
@ -315,6 +316,7 @@ obj* l_RBNode_all___main___boxed(obj*, obj*);
obj* l_RBNode_mfold(obj*, obj*, obj*, obj*);
obj* l_RBNode_insert___at_rbmapOf___spec__3___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_RBMap_fromList___spec__4(obj*, obj*, obj*);
obj* l_RBMap_isEmpty___main___rarg___boxed(obj*);
obj* l_RBNode_balance1___rarg(obj*, obj*);
obj* l_RBMap_find___main(obj*, obj*, obj*);
extern obj* l_List_repr___main___rarg___closed__2;
@ -333,8 +335,8 @@ obj* l_RBNode_insert___at_rbmapOf___spec__3(obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_RBMap_insert___main___spec__2(obj*, obj*, obj*);
obj* l_RBMap_max___rarg(obj*);
obj* l_RBMap_max___main___rarg(obj*);
uint8 l_RBMap_isEmpty___rarg(obj*);
extern obj* l_String_Iterator_extract___main___closed__1;
obj* l_RBMap_empty___main___rarg___boxed(obj*);
obj* l_List_repr___main___at_RBMap_HasRepr___spec__1___rarg(obj*, obj*, obj*);
obj* l_List_foldl___main___at_rbmapOf___spec__6___rarg(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___rarg___lambda__1(obj*, obj*, obj*, obj*, obj*, obj*, obj*);
@ -3676,6 +3678,25 @@ lean::dec(x_2);
return x_3;
}
}
obj* l_RBMap_HasEmptyc(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = lean::box(0);
return x_3;
}
}
obj* l_RBMap_HasEmptyc___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_RBMap_HasEmptyc(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
return x_3;
}
}
obj* l_RBMap_depth___rarg(obj* x_0, obj* x_1) {
_start:
{
@ -4011,7 +4032,7 @@ lean::dec(x_4);
return x_5;
}
}
uint8 l_RBMap_empty___main___rarg(obj* x_0) {
uint8 l_RBMap_isEmpty___main___rarg(obj* x_0) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -4028,36 +4049,36 @@ return x_2;
}
}
}
obj* l_RBMap_empty___main(obj* x_0, obj* x_1, obj* x_2) {
obj* l_RBMap_isEmpty___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_RBMap_empty___main___rarg___boxed), 1, 0);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_RBMap_isEmpty___main___rarg___boxed), 1, 0);
return x_3;
}
}
obj* l_RBMap_empty___main___rarg___boxed(obj* x_0) {
obj* l_RBMap_isEmpty___main___rarg___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_RBMap_empty___main___rarg(x_0);
x_1 = l_RBMap_isEmpty___main___rarg(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
obj* l_RBMap_empty___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_RBMap_isEmpty___main___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_RBMap_empty___main(x_0, x_1, x_2);
x_3 = l_RBMap_isEmpty___main(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);
return x_3;
}
}
uint8 l_RBMap_empty___rarg(obj* x_0) {
uint8 l_RBMap_isEmpty___rarg(obj* x_0) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -4074,29 +4095,29 @@ return x_2;
}
}
}
obj* l_RBMap_empty(obj* x_0, obj* x_1, obj* x_2) {
obj* l_RBMap_isEmpty(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_RBMap_empty___rarg___boxed), 1, 0);
x_3 = lean::alloc_closure(reinterpret_cast<void*>(l_RBMap_isEmpty___rarg___boxed), 1, 0);
return x_3;
}
}
obj* l_RBMap_empty___rarg___boxed(obj* x_0) {
obj* l_RBMap_isEmpty___rarg___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_RBMap_empty___rarg(x_0);
x_1 = l_RBMap_isEmpty___rarg(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
obj* l_RBMap_empty___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_RBMap_isEmpty___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_RBMap_empty(x_0, x_1, x_2);
x_3 = l_RBMap_isEmpty(x_0, x_1, x_2);
lean::dec(x_0);
lean::dec(x_1);
lean::dec(x_2);

42
src/stage0/init/data/rbtree/basic.cpp generated
View file

@ -18,6 +18,7 @@ obj* l_RBNode_all___main___at_RBTree_subset___spec__4___boxed(obj*, obj*);
obj* l_RBTree_min___boxed(obj*, obj*);
obj* l_RBNode_ins___main___at_RBTree_insert___spec__4___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_setBlack___main___rarg(obj*);
obj* l_RBTree_HasEmptyc___boxed(obj*, obj*);
uint8 l_RBNode_all___main___at_RBTree_seteq___spec__10___rarg(obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_RBTree_fromList___spec__5___boxed(obj*, obj*);
obj* l_RBNode_any___main___at_RBTree_any___spec__1(obj*);
@ -57,6 +58,7 @@ obj* l_RBNode_findCore___main___at_RBTree_seteq___spec__9___boxed(obj*, obj*);
obj* l_RBMap_findCore___main___at_RBTree_subset___spec__2(obj*, obj*);
obj* l_RBNode_findCore___main___at_RBTree_seteq___spec__9___rarg(obj*, obj*, obj*);
obj* l_RBTree_any___rarg___boxed(obj*, obj*);
obj* l_RBTree_isEmpty___rarg___boxed(obj*);
obj* l_RBNode_ins___main___at_rbtreeOf___spec__6___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_RBTree_fromList___spec__4(obj*, obj*);
uint8 l_RBTree_all___rarg(obj*, obj*);
@ -79,7 +81,6 @@ obj* l_RBNode_findCore___main___at_RBTree_seteq___spec__4___boxed(obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfold___spec__1___rarg(obj*, obj*, obj*, obj*);
obj* l_RBMap_findCore___main___at_RBTree_seteq___spec__3___rarg(obj*, obj*, obj*);
obj* l_RBTree_contains___boxed(obj*, obj*);
obj* l_RBTree_empty(obj*, obj*);
obj* l_RBTree_toList___rarg(obj*);
obj* l_RBNode_ins___main___at_rbtreeOf___spec__5___boxed(obj*, obj*);
obj* l_RBTree_HasRepr___boxed(obj*, obj*);
@ -100,7 +101,6 @@ obj* l_RBTree_find___at_RBTree_contains___spec__1___rarg(obj*, obj*, obj*);
uint8 l_RBTree_any___rarg(obj*, obj*);
obj* l_RBNode_balance2___main___rarg(obj*, obj*);
obj* l_RBMap_insert___main___at_RBTree_ofList___main___spec__1___boxed(obj*, obj*);
obj* l_RBTree_empty___boxed(obj*, obj*);
obj* l_RBTree_fromList___rarg___boxed(obj*, obj*, obj*);
obj* l_RBMap_findCore___main___at_RBTree_contains___spec__2___rarg(obj*, obj*, obj*);
obj* l_RBMap_insert___main___at_RBTree_fromList___spec__2___rarg(obj*, obj*, obj*, obj*);
@ -138,13 +138,14 @@ obj* l_RBMap_findCore___main___at_RBTree_contains___spec__2___boxed(obj*, obj*);
obj* l_RBTree_fromList___boxed(obj*);
obj* l_RBTree_subset___at_RBTree_seteq___spec__1___boxed(obj*, obj*);
obj* l_RBTree_seteq(obj*, obj*);
obj* l_RBTree_HasEmptyc(obj*, obj*);
obj* l_RBTree_insert___at_RBTree_fromList___spec__1___boxed(obj*, obj*);
obj* l_RBNode_all___main___at_RBTree_seteq___spec__10___rarg___boxed(obj*, obj*, obj*);
obj* l_RBTree_revFold___boxed(obj*, obj*, obj*);
obj* l_RBTree_find___at_RBTree_seteq___spec__7___boxed(obj*, obj*);
obj* l_RBTree_empty___rarg___boxed(obj*);
obj* l_RBNode_all___main___at_RBTree_seteq___spec__10___boxed(obj*, obj*);
uint8 l_Option_toBool___main___rarg(obj*);
obj* l_RBTree_isEmpty(obj*, obj*);
obj* l_List_foldl___main___at_rbtreeOf___spec__7(obj*, obj*);
obj* l_RBTree_mfold___boxed(obj*, obj*, obj*, obj*);
obj* l_RBNode_revFold___main___at_RBTree_revFold___spec__1(obj*, obj*);
@ -192,7 +193,6 @@ obj* l_RBTree_insert___at_rbtreeOf___spec__2___rarg(obj*, obj*, obj*);
obj* l_RBMap_insert___main___at_RBTree_fromList___spec__2(obj*, obj*);
obj* l_RBTree_fold(obj*, obj*, obj*);
obj* l_RBNode_mfold___main___at_RBTree_mfor___spec__1___rarg(obj*, obj*, obj*, obj*);
uint8 l_RBTree_empty___rarg(obj*);
obj* l_RBNode_ins___main___at_RBTree_insert___spec__3___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_all___main___at_RBTree_all___spec__1___rarg___boxed(obj*, obj*);
obj* l_RBTree_contains(obj*, obj*);
@ -213,6 +213,7 @@ obj* l_RBNode_any___main___at_RBTree_any___spec__1___boxed(obj*);
obj* l_RBTree_find___at_RBTree_subset___spec__1___rarg(obj*, obj*, obj*);
obj* l_RBTree_ofList___main___rarg(obj*, obj*);
obj* l_RBMap_findCore___main___at_RBTree_subset___spec__2___boxed(obj*, obj*);
obj* l_RBTree_isEmpty___boxed(obj*, obj*);
uint8 l_RBNode_all___main___at_RBTree_seteq___spec__5___rarg(obj*, obj*, obj*);
obj* l_RBTree_max___rarg(obj*);
obj* l_RBTree_mfold___rarg(obj*, obj*, obj*, obj*);
@ -220,6 +221,7 @@ obj* l_RBTree_insert(obj*, obj*);
obj* l_RBNode_revFold___main___at_RBTree_toList___spec__1___boxed(obj*);
uint8 l_RBTree_subset___at_RBTree_seteq___spec__6___rarg(obj*, obj*, obj*);
obj* l_RBNode_insert___at_rbtreeOf___spec__4(obj*, obj*);
uint8 l_RBTree_isEmpty___rarg(obj*);
obj* l_RBTree_ofList(obj*, obj*);
obj* l_RBNode_balance1___main___rarg(obj*, obj*);
obj* l_RBTree_ofList___main___boxed(obj*, obj*);
@ -271,6 +273,24 @@ lean::dec(x_1);
return x_2;
}
}
obj* l_RBTree_HasEmptyc(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::box(0);
return x_2;
}
}
obj* l_RBTree_HasEmptyc___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBTree_HasEmptyc(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;
}
}
obj* l_RBTree_depth___rarg(obj* x_0, obj* x_1) {
_start:
{
@ -680,7 +700,7 @@ lean::dec(x_3);
return x_4;
}
}
uint8 l_RBTree_empty___rarg(obj* x_0) {
uint8 l_RBTree_isEmpty___rarg(obj* x_0) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -697,29 +717,29 @@ return x_2;
}
}
}
obj* l_RBTree_empty(obj* x_0, obj* x_1) {
obj* l_RBTree_isEmpty(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_RBTree_empty___rarg___boxed), 1, 0);
x_2 = lean::alloc_closure(reinterpret_cast<void*>(l_RBTree_isEmpty___rarg___boxed), 1, 0);
return x_2;
}
}
obj* l_RBTree_empty___rarg___boxed(obj* x_0) {
obj* l_RBTree_isEmpty___rarg___boxed(obj* x_0) {
_start:
{
uint8 x_1; obj* x_2;
x_1 = l_RBTree_empty___rarg(x_0);
x_1 = l_RBTree_isEmpty___rarg(x_0);
x_2 = lean::box(x_1);
lean::dec(x_0);
return x_2;
}
}
obj* l_RBTree_empty___boxed(obj* x_0, obj* x_1) {
obj* l_RBTree_isEmpty___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_RBTree_empty(x_0, x_1);
x_2 = l_RBTree_isEmpty(x_0, x_1);
lean::dec(x_0);
lean::dec(x_1);
return x_2;

69
src/stage0/init/data/string/basic.cpp generated
View file

@ -17,7 +17,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
obj* l_String_utf8ByteSize___boxed(obj*);
uint32 l_String_Iterator_curr___main(obj*);
obj* l_String_Iterator_extract(obj*, obj*);
obj* l_String_utf8AtEnd___boxed(obj*, obj*);
obj* l_String_prev___boxed(obj*, obj*);
obj* l_String_mkIterator(obj*);
obj* l___private_init_data_string_basic_2__utf8ByteSizeAux___main___boxed(obj*, obj*);
obj* l___private_init_data_string_basic_4__utf8SetAux(uint32, obj*, usize, usize);
@ -40,19 +40,14 @@ obj* nat_sub(obj*, obj*);
}
obj* l_String_toNat(obj*);
namespace lean {
uint32 string_utf8_get(obj*, usize);
usize string_utf8_prev(obj*, usize);
}
obj* l_String_utf8Set___boxed(obj*, obj*, obj*);
obj* l_String_trimRightAux___main___boxed(obj*, obj*, obj*);
uint8 l_String_isEmpty(obj*);
obj* l_String_trim___boxed(obj*);
namespace lean {
usize string_utf8_prev(obj*, usize);
}
obj* l_String_intercalate(obj*, obj*);
obj* l_String_lineColumn(obj*, obj*);
obj* l_String_Iterator_hasPrev___boxed(obj*);
usize l_String_utf8Begin;
obj* l_String_Iterator_extract___main(obj*, obj*);
obj* l_String_trimRightAux___boxed(obj*, obj*, obj*);
obj* l___private_init_data_string_basic_9__toNatCore___main(obj*, obj*, obj*);
@ -60,7 +55,6 @@ obj* l_String_Iterator_toString___main___boxed(obj*);
uint8 l_String_Iterator_hasPrev___main(obj*);
obj* l_Char_toString___boxed(obj*);
obj* l_String_push___boxed(obj*, obj*);
obj* l_String_utf8Get___boxed(obj*, obj*);
obj* l_String_Iterator_remaining___main___boxed(obj*);
obj* l___private_init_data_string_basic_4__utf8SetAux___main(uint32, obj*, usize, usize);
obj* l___private_init_data_string_basic_7__utf8ExtractAux_u_2081(obj*, usize, usize, usize);
@ -69,6 +63,7 @@ obj* l_String_Iterator_isPrefixOfRemaining___boxed(obj*, obj*);
usize l_String_Iterator_remainingBytes___main(obj*);
obj* l_String_trimLeftAux___boxed(obj*, obj*, obj*);
obj* l_String_pushn___boxed(obj*, obj*, obj*);
obj* l_String_get___boxed(obj*, obj*);
obj* l___private_init_data_string_basic_2__utf8ByteSizeAux___boxed(obj*, obj*);
uint8 l_String_Iterator_hasNext(obj*);
obj* l_String_HasAppend;
@ -104,6 +99,9 @@ namespace lean {
uint8 string_dec_lt(obj*, obj*);
}
obj* l_String_Iterator_setCurr___boxed(obj*, obj*);
namespace lean {
uint8 string_utf8_at_end(obj*, usize);
}
obj* l_String_decEq___boxed(obj*, obj*);
obj* l_String_Iterator_prev(obj*);
obj* l_String_str(obj*, uint32);
@ -113,6 +111,7 @@ obj* l_String_Iterator_nextn(obj*, obj*);
obj* l_String_Iterator_curr___main___boxed(obj*);
obj* l_String_Iterator_toString___boxed(obj*);
obj* l_String_trimLeftAux___main___boxed(obj*, obj*, obj*);
obj* l_String_set___boxed(obj*, obj*, obj*);
obj* l_String_Iterator_remainingToString___main___boxed(obj*);
namespace lean {
obj* nat_add(obj*, obj*);
@ -124,16 +123,16 @@ namespace lean {
uint8 nat_dec_eq(obj*, obj*);
}
obj* l_String_append___boxed(obj*, obj*);
namespace lean {
uint8 string_utf8_at_end(obj*, usize);
}
obj* l___private_init_data_string_basic_5__utf8PrevAux___boxed(obj*, obj*, obj*);
obj* l_String_Iterator_nextn___main(obj*, obj*);
obj* l_String_isEmpty___boxed(obj*);
obj* l_Nat_repeatCore___main___at_String_pushn___spec__1(uint32, obj*, obj*, obj*);
obj* l_List_map___main___at_String_intercalate___spec__1(obj*);
obj* l_String_toList(obj*);
obj* l_String_utf8Begin___boxed;
obj* l_String_atEnd___boxed(obj*, obj*);
namespace lean {
uint32 string_utf8_get(obj*, usize);
}
obj* l_String_trimRight___boxed(obj*);
obj* l_String_singleton(uint32);
namespace lean {
@ -147,7 +146,6 @@ obj* l_String_decLt___boxed(obj*, obj*);
obj* l_String_DecidableEq;
obj* l_String_trim(obj*);
obj* l___private_init_data_string_basic_6__utf8ExtractAux_u_2082___boxed(obj*, obj*, obj*);
obj* l_String_utf8Next___boxed(obj*, obj*);
obj* l___private_init_data_string_basic_1__csize___boxed(obj*);
namespace lean {
obj* string_data(obj*);
@ -156,7 +154,6 @@ obj* l_String_extract___boxed(obj*, obj*, obj*);
uint32 l_String_Iterator_curr(obj*);
obj* l___private_init_data_string_basic_5__utf8PrevAux___main___closed__1___boxed;
obj* l_String_pushn(obj*, uint32, obj*);
obj* l_String_utf8Prev___boxed(obj*, obj*);
obj* l___private_init_data_string_basic_3__utf8GetAux___boxed(obj*, obj*, obj*);
uint8 l_Char_isWhitespace(uint32);
obj* l_String_Iterator_remainingBytes___boxed(obj*);
@ -170,6 +167,9 @@ obj* l___private_init_data_string_basic_6__utf8ExtractAux_u_2082___main___boxed(
uint32 l_Char_utf8Size(uint32);
obj* l_String_Iterator_toEnd___main(obj*);
obj* l_String_Iterator_remaining(obj*);
namespace lean {
usize string_utf8_next(obj*, usize);
}
obj* l___private_init_data_string_basic_3__utf8GetAux___main___boxed(obj*, obj*, obj*);
obj* l_String_Iterator_extract___boxed(obj*, obj*);
obj* l___private_init_data_string_basic_7__utf8ExtractAux_u_2081___main___boxed(obj*, obj*, obj*, obj*);
@ -197,13 +197,7 @@ obj* uint32_to_nat(uint32);
}
obj* l___private_init_data_string_basic_5__utf8PrevAux___main___boxed(obj*, obj*, obj*);
obj* l_String_trimLeft___boxed(obj*);
namespace lean {
usize string_utf8_next(obj*, usize);
}
uint8 l_String_Iterator_hasPrev(obj*);
namespace lean {
obj* string_utf8_set(obj*, usize, uint32);
}
obj* l_List_foldl___main___at_String_join___spec__1(obj*, obj*);
usize l_String_trimLeftAux___main(obj*, obj*, usize);
obj* l_String_Iterator_setCurr(obj*, uint32);
@ -220,6 +214,7 @@ uint8 l_String_Iterator_isPrefixOfRemaining___main(obj*, obj*);
obj* l_String_Iterator_setCurr___main(obj*, uint32);
obj* l___private_init_data_string_basic_7__utf8ExtractAux_u_2081___boxed(obj*, obj*, obj*, obj*);
obj* l_String_str___boxed(obj*, obj*);
obj* l_String_next___boxed(obj*, obj*);
obj* l_String_trimLeft(obj*);
usize l___private_init_data_string_basic_2__utf8ByteSizeAux(obj*, usize);
obj* l_String_Iterator_extract___main___closed__1;
@ -230,6 +225,9 @@ uint32 l_String_back(obj*);
usize l_String_Iterator_remainingBytes(obj*);
obj* l_String_Iterator_remainingToString(obj*);
namespace lean {
obj* string_utf8_set(obj*, usize, uint32);
}
namespace lean {
obj* string_length(obj*);
}
obj* l_String_decEq___boxed(obj* x_0, obj* x_1) {
@ -411,24 +409,6 @@ lean::dec(x_0);
return x_2;
}
}
usize _init_l_String_utf8Begin() {
_start:
{
obj* x_0; usize x_1;
x_0 = lean::mk_nat_obj(0u);
x_1 = lean::usize_of_nat(x_0);
return x_1;
}
}
obj* _init_l_String_utf8Begin___boxed() {
_start:
{
usize x_0; obj* x_1;
x_0 = l_String_utf8Begin;
x_1 = lean::box_size_t(x_0);
return x_1;
}
}
uint32 l___private_init_data_string_basic_3__utf8GetAux___main(obj* x_0, usize x_1, usize x_2) {
_start:
{
@ -495,7 +475,7 @@ lean::dec(x_0);
return x_6;
}
}
obj* l_String_utf8Get___boxed(obj* x_0, obj* x_1) {
obj* l_String_get___boxed(obj* x_0, obj* x_1) {
_start:
{
usize x_2; uint32 x_3; obj* x_4;
@ -592,7 +572,7 @@ x_7 = l___private_init_data_string_basic_4__utf8SetAux(x_4, x_1, x_5, x_6);
return x_7;
}
}
obj* l_String_utf8Set___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_String_set___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
usize x_3; uint32 x_4; obj* x_5;
@ -602,7 +582,7 @@ x_5 = lean::string_utf8_set(x_0, x_3, x_4);
return x_5;
}
}
obj* l_String_utf8Next___boxed(obj* x_0, obj* x_1) {
obj* l_String_next___boxed(obj* x_0, obj* x_1) {
_start:
{
usize x_2; usize x_3; obj* x_4;
@ -694,7 +674,7 @@ lean::dec(x_0);
return x_6;
}
}
obj* l_String_utf8Prev___boxed(obj* x_0, obj* x_1) {
obj* l_String_prev___boxed(obj* x_0, obj* x_1) {
_start:
{
usize x_2; usize x_3; obj* x_4;
@ -744,7 +724,7 @@ lean::dec(x_0);
return x_2;
}
}
obj* l_String_utf8AtEnd___boxed(obj* x_0, obj* x_1) {
obj* l_String_atEnd___boxed(obj* x_0, obj* x_1) {
_start:
{
usize x_2; uint8 x_3; obj* x_4;
@ -2329,9 +2309,6 @@ w = initialize_init_data_option_basic(w);
lean::mark_persistent(l_String_DecidableEq);
l_String_HasLt = _init_l_String_HasLt();
lean::mark_persistent(l_String_HasLt);
l_String_utf8Begin = _init_l_String_utf8Begin();
l_String_utf8Begin___boxed = _init_l_String_utf8Begin___boxed();
lean::mark_persistent(l_String_utf8Begin___boxed);
l___private_init_data_string_basic_5__utf8PrevAux___main___closed__1 = _init_l___private_init_data_string_basic_5__utf8PrevAux___main___closed__1();
l___private_init_data_string_basic_5__utf8PrevAux___main___closed__1___boxed = _init_l___private_init_data_string_basic_5__utf8PrevAux___main___closed__1___boxed();
lean::mark_persistent(l___private_init_data_string_basic_5__utf8PrevAux___main___closed__1___boxed);

1684
src/stage0/init/lean/compiler/ir.cpp generated
View file

File diff suppressed because it is too large Load diff

501
src/stage0/init/lean/elaborator.cpp generated
View file

File diff suppressed because it is too large Load diff

2
src/stage0/init/lean/expander.cpp generated
View file

@ -8105,7 +8105,7 @@ 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::mk_string("Unit");
x_2 = lean_name_mk_string(x_0, x_1);
x_3 = lean::mk_string("star");
x_3 = lean::mk_string("unit");
x_4 = lean_name_mk_string(x_2, x_3);
x_5 = l_Lean_Expander_globId(x_4);
x_6 = lean::alloc_cnstr(1, 1, 0);

22
src/stage0/init/lean/expr.cpp generated
View file

@ -17,6 +17,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
obj* l_Lean_getAppFn___main(obj*);
obj* l_Lean_Expr_hash___boxed(obj*);
obj* l_Lean_mkBinApp(obj*, obj*, obj*);
obj* l_Lean_MData_empty;
obj* l_Lean_getAppFn(obj*);
obj* l_Lean_exprIsInhabited;
extern "C" usize lean_expr_hash(obj*);
@ -27,6 +28,7 @@ obj* l_Lean_Expr_mkCapp(obj*, obj*);
obj* l_Lean_mkDecIsFalse___closed__1;
extern "C" obj* lean_expr_mk_const(obj*, obj*);
obj* l_List_foldl___main___at_Lean_Expr_mkApp___spec__1(obj*, obj*);
obj* l_Lean_MData_HasEmptyc;
obj* l_Lean_Expr_dbgToString___boxed(obj*);
obj* l_Lean_mkDecIsTrue___closed__1;
obj* l_Lean_mkDecIsFalse(obj*, obj*);
@ -34,6 +36,22 @@ extern "C" obj* lean_name_mk_string(obj*, obj*);
obj* l_Lean_getAppFn___boxed(obj*);
obj* l_Lean_mkDecIsTrue(obj*, obj*);
obj* l_Lean_Expr_mkApp(obj*, obj*);
obj* _init_l_Lean_MData_empty() {
_start:
{
obj* x_0;
x_0 = lean::box(0);
return x_0;
}
}
obj* _init_l_Lean_MData_HasEmptyc() {
_start:
{
obj* x_0;
x_0 = lean::box(0);
return x_0;
}
}
obj* _init_l_Lean_exprIsInhabited() {
_start:
{
@ -213,6 +231,10 @@ if (io_result_is_error(w)) return w;
w = initialize_init_lean_level(w);
if (io_result_is_error(w)) return w;
w = initialize_init_lean_kvmap(w);
l_Lean_MData_empty = _init_l_Lean_MData_empty();
lean::mark_persistent(l_Lean_MData_empty);
l_Lean_MData_HasEmptyc = _init_l_Lean_MData_HasEmptyc();
lean::mark_persistent(l_Lean_MData_HasEmptyc);
l_Lean_exprIsInhabited = _init_l_Lean_exprIsInhabited();
lean::mark_persistent(l_Lean_exprIsInhabited);
l_Lean_mkDecIsTrue___closed__1 = _init_l_Lean_mkDecIsTrue___closed__1();

8
src/stage0/init/lean/frontend.cpp generated
View file

@ -17,6 +17,7 @@ typedef lean::uint32 uint32; typedef lean::uint64 uint64;
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6___lambda__1(obj*, obj*, obj*);
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6___lambda__3___boxed(obj*, obj*, obj*, obj*);
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6___lambda__1___boxed(obj*, obj*, obj*);
obj* l_Lean_KVMap_setBool(obj*, obj*, uint8);
extern obj* l_Lean_Parser_Term_builtinTrailingParsers_Lean_Parser_HasTokens;
extern obj* l_Lean_Parser_Term_builtinLeadingParsers;
obj* l_Lean_Elaborator_processCommand(obj*, obj*, obj*);
@ -24,7 +25,6 @@ obj* l_Lean_mkConfig(obj*, obj*);
obj* l_Lean_processFile___lambda__1___closed__7;
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6___lambda__4___closed__2;
obj* l_Lean_processFile___lambda__1___closed__1;
extern obj* l_Lean_Options_mk;
obj* l_Lean_runFrontend___closed__1;
extern obj* l_Lean_Parser_command_builtinCommandParsers;
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6___lambda__4(obj*, obj*, uint8, obj*, obj*, obj*, obj*);
@ -34,6 +34,7 @@ obj* l_Lean_processFile___lambda__1___closed__4;
obj* l_ioOfExcept___at_Lean_runFrontend___spec__1(obj*, obj*);
obj* l_Lean_Parser_mkTokenTrie(obj*);
obj* l_List_mmap_x_27___main___at_Lean_runFrontend___spec__4(obj*, obj*, obj*);
extern obj* l_Lean_Options_empty;
extern obj* l_Lean_Parser_Module_header_Parser_Lean_Parser_HasTokens;
extern obj* l_Lean_Elaborator_notation_elaborate___closed__1;
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6___lambda__4___closed__1;
@ -44,7 +45,6 @@ obj* l_Lean_processFile___closed__1;
namespace lean {
obj* string_append(obj*, obj*);
}
obj* l_Lean_Kvmap_setBool(obj*, obj*, uint8);
obj* l_IO_Prim_iterate___at_Lean_runFrontend___spec__6(obj*, uint8, obj*, obj*, obj*, obj*, obj*);
extern obj* l_Lean_Expander_builtinTransformers;
obj* l_Lean_Elaborator_mkState(obj*, obj*, obj*);
@ -1565,9 +1565,9 @@ x_1 = lean::mk_string("Trace");
x_2 = lean_name_mk_string(x_0, x_1);
x_3 = lean::mk_string("asMessages");
x_4 = lean_name_mk_string(x_2, x_3);
x_5 = l_Lean_Options_mk;
x_5 = l_Lean_Options_empty;
x_6 = 1;
x_7 = l_Lean_Kvmap_setBool(x_5, x_4, x_6);
x_7 = l_Lean_KVMap_setBool(x_5, x_4, x_6);
return x_7;
}
}

285
src/stage0/init/lean/kvmap.cpp generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.lean.kvmap
// Imports: init.lean.name init.data.option.basic
// Imports: init.lean.name init.data.option.basic init.data.int.default
#include "runtime/object.h"
#include "runtime/apply.h"
typedef lean::object obj; typedef lean::usize usize;
@ -14,53 +14,56 @@ 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_Kvmap_findCore___main___boxed(obj*, obj*);
obj* l_Lean_KVMap_subset___main___boxed(obj*, obj*);
extern "C" uint8 lean_name_dec_eq(obj*, obj*);
obj* l_Lean_KVMap_getNat(obj*, obj*);
obj* l_Lean_KVMap_getName(obj*, obj*);
obj* l_Lean_KVMap_setBool(obj*, obj*, uint8);
uint8 l_Lean_DataValue_beq(obj*, obj*);
obj* l_Lean_Kvmap_find___main___boxed(obj*, obj*);
obj* l_Lean_KVMap_subset___boxed(obj*, obj*);
obj* l_Lean_KVMap_getInt(obj*, obj*);
uint8 l_Option_isSome___main___rarg(obj*);
obj* l_Lean_Kvmap_subset___main___boxed(obj*, obj*);
uint8 l_Lean_Kvmap_subset(obj*, obj*);
uint8 l_Lean_Kvmap_contains(obj*, obj*);
obj* l_Lean_KVMap_getString(obj*, obj*);
obj* l_Lean_DataValue_beq___main___boxed(obj*, obj*);
obj* l_Lean_Kvmap_findCore___boxed(obj*, obj*);
uint8 l_Lean_Kvmap_subset___main(obj*, obj*);
uint8 l_Lean_Kvmap_eqv(obj*, obj*);
obj* l_Lean_Kvmap_find___boxed(obj*, obj*);
obj* l_Lean_Kvmap_getBool(obj*, obj*);
obj* l_Lean_Kvmap_setString(obj*, obj*, obj*);
obj* l_Lean_Kvmap_HasBeq;
obj* l_Lean_Kvmap_find(obj*, obj*);
obj* l_Lean_Kvmap_subset___boxed(obj*, obj*);
obj* l_Lean_KVMap_findCore___main(obj*, obj*);
obj* l_Lean_KVMap_findCore(obj*, obj*);
uint8 l_Lean_KVMap_subset___main(obj*, obj*);
obj* l_Lean_KVMap_findCore___boxed(obj*, obj*);
obj* l_Lean_KVMap_setNat(obj*, obj*, obj*);
obj* l_Lean_KVMap_find(obj*, obj*);
obj* l_Lean_KVMap_contains___boxed(obj*, obj*);
obj* l_Lean_KVMap_HasBeq;
obj* l_Lean_KVMap_getBool(obj*, obj*);
uint8 l_Lean_KVMap_contains(obj*, obj*);
uint8 l_Lean_KVMap_subset(obj*, obj*);
obj* l_Lean_KVMap_setInt(obj*, obj*, obj*);
obj* l_Lean_KVMap_insert(obj*, obj*, obj*);
obj* l_Lean_DataValue_HasBeq;
obj* l_Lean_Kvmap_setBool(obj*, obj*, uint8);
obj* l_Lean_KVMap_insert___main(obj*, obj*, obj*);
obj* l_Lean_DataValue_beq___boxed(obj*, obj*);
obj* l_Lean_Kvmap_getName___boxed(obj*, obj*);
obj* l_Lean_Kvmap_getName(obj*, obj*);
obj* l_Lean_KVMap_setName(obj*, obj*, obj*);
obj* l_Lean_KVMap_setBool___boxed(obj*, obj*, obj*);
namespace lean {
uint8 nat_dec_eq(obj*, obj*);
}
obj* l_Lean_Kvmap_setNat(obj*, obj*, obj*);
obj* l_Lean_Kvmap_setName(obj*, obj*, obj*);
obj* l_Lean_Kvmap_getNat(obj*, obj*);
obj* l_Lean_KVMap_getInt___boxed(obj*, obj*);
uint8 l_Lean_KVMap_eqv(obj*, obj*);
obj* l_Lean_KVMap_find___boxed(obj*, obj*);
namespace lean {
uint8 string_dec_eq(obj*, obj*);
}
obj* l_Lean_Kvmap_findCore(obj*, obj*);
obj* l_Lean_Kvmap_getString___boxed(obj*, obj*);
obj* l_Lean_Kvmap_getString(obj*, obj*);
obj* l_Lean_Kvmap_insertCore___main(obj*, obj*, obj*);
obj* l_Lean_Kvmap_find___main(obj*, obj*);
obj* l_Lean_Kvmap_setBool___boxed(obj*, obj*, obj*);
obj* l_Lean_Kvmap_insertCore(obj*, obj*, obj*);
obj* l_Lean_Kvmap_contains___boxed(obj*, obj*);
obj* l_Lean_Kvmap_findCore___main(obj*, obj*);
obj* l_Lean_Kvmap_getNat___boxed(obj*, obj*);
obj* l_Lean_Kvmap_eqv___boxed(obj*, obj*);
obj* l_Lean_Kvmap_insert___main(obj*, obj*, obj*);
obj* l_Lean_KVMap_find___main(obj*, obj*);
obj* l_Lean_KVMap_eqv___boxed(obj*, obj*);
obj* l_Lean_KVMap_find___main___boxed(obj*, obj*);
obj* l_Lean_KVMap_findCore___main___boxed(obj*, obj*);
obj* l_Lean_KVMap_setString(obj*, obj*, obj*);
obj* l_Lean_KVMap_insertCore___main(obj*, obj*, obj*);
obj* l_Lean_KVMap_getName___boxed(obj*, obj*);
obj* l_Lean_KVMap_getBool___boxed(obj*, obj*);
obj* l_Lean_KVMap_getString___boxed(obj*, obj*);
obj* l_Lean_KVMap_insertCore(obj*, obj*, obj*);
obj* l_Lean_KVMap_getNat___boxed(obj*, obj*);
uint8 l_Lean_DataValue_beq___main(obj*, obj*);
obj* l_Lean_Kvmap_getBool___boxed(obj*, obj*);
obj* l_Lean_Kvmap_insert(obj*, obj*, obj*);
uint8 l_Lean_DataValue_beq___main(obj* x_0, obj* x_1) {
_start:
{
@ -219,7 +222,7 @@ x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_DataValue_beq___boxed),
return x_0;
}
}
obj* l_Lean_Kvmap_findCore___main(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_findCore___main(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -260,67 +263,67 @@ return x_18;
}
}
}
obj* l_Lean_Kvmap_findCore___main___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_findCore___main___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_findCore(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_findCore(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_findCore___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_findCore___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore(x_0, x_1);
x_2 = l_Lean_KVMap_findCore(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_find___main(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_find___main(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_find___main___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_find___main___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_find___main(x_0, x_1);
x_2 = l_Lean_KVMap_find___main(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_find(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_find(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_find___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_find___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_find(x_0, x_1);
x_2 = l_Lean_KVMap_find(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_insertCore___main(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_insertCore___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -356,7 +359,7 @@ if (x_12 == 0)
{
obj* x_14; obj* x_15;
lean::dec(x_10);
x_14 = l_Lean_Kvmap_insertCore___main(x_7, x_1, x_2);
x_14 = l_Lean_KVMap_insertCore___main(x_7, x_1, x_2);
if (lean::is_scalar(x_9)) {
x_15 = lean::alloc_cnstr(1, 2, 0);
} else {
@ -397,55 +400,55 @@ return x_19;
}
}
}
obj* l_Lean_Kvmap_insertCore(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_insertCore(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_2);
x_3 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_Lean_Kvmap_insert___main(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_insert___main(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_2);
x_3 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_2);
return x_3;
}
}
obj* l_Lean_Kvmap_insert(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_insert(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3;
x_3 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_2);
x_3 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_2);
return x_3;
}
}
uint8 l_Lean_Kvmap_contains(obj* x_0, obj* x_1) {
uint8 l_Lean_KVMap_contains(obj* x_0, obj* x_1) {
_start:
{
obj* x_2; uint8 x_3;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
x_3 = l_Option_isSome___main___rarg(x_2);
lean::dec(x_2);
return x_3;
}
}
obj* l_Lean_Kvmap_contains___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_contains___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_Lean_Kvmap_contains(x_0, x_1);
x_2 = l_Lean_KVMap_contains(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_1);
return x_3;
}
}
obj* l_Lean_Kvmap_getString(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getString(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
if (lean::obj_tag(x_2) == 0)
{
obj* x_3;
@ -491,20 +494,20 @@ return x_13;
}
}
}
obj* l_Lean_Kvmap_getString___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getString___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_getString(x_0, x_1);
x_2 = l_Lean_KVMap_getString(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_getNat(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getNat(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
if (lean::obj_tag(x_2) == 0)
{
obj* x_3;
@ -550,20 +553,79 @@ return x_13;
}
}
}
obj* l_Lean_Kvmap_getNat___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getNat___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_getNat(x_0, x_1);
x_2 = l_Lean_KVMap_getNat(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_getBool(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getInt(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
if (lean::obj_tag(x_2) == 0)
{
obj* x_3;
x_3 = lean::box(0);
return x_3;
}
else
{
obj* x_4; obj* x_6;
x_4 = lean::cnstr_get(x_2, 0);
if (lean::is_exclusive(x_2)) {
lean::cnstr_set(x_2, 0, lean::box(0));
x_6 = x_2;
} else {
lean::inc(x_4);
lean::dec(x_2);
x_6 = lean::box(0);
}
switch (lean::obj_tag(x_4)) {
case 4:
{
obj* x_7; obj* x_10;
x_7 = lean::cnstr_get(x_4, 0);
lean::inc(x_7);
lean::dec(x_4);
if (lean::is_scalar(x_6)) {
x_10 = lean::alloc_cnstr(1, 1, 0);
} else {
x_10 = x_6;
}
lean::cnstr_set(x_10, 0, x_7);
return x_10;
}
default:
{
obj* x_13;
lean::dec(x_6);
lean::dec(x_4);
x_13 = lean::box(0);
return x_13;
}
}
}
}
}
obj* l_Lean_KVMap_getInt___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_KVMap_getInt(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_KVMap_getBool(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
if (lean::obj_tag(x_2) == 0)
{
obj* x_3;
@ -609,20 +671,20 @@ return x_13;
}
}
}
obj* l_Lean_Kvmap_getBool___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getBool___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_getBool(x_0, x_1);
x_2 = l_Lean_KVMap_getBool(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_getName(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getName(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_findCore___main(x_0, x_1);
x_2 = l_Lean_KVMap_findCore___main(x_0, x_1);
if (lean::obj_tag(x_2) == 0)
{
obj* x_3;
@ -668,66 +730,76 @@ return x_13;
}
}
}
obj* l_Lean_Kvmap_getName___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_getName___boxed(obj* x_0, obj* x_1) {
_start:
{
obj* x_2;
x_2 = l_Lean_Kvmap_getName(x_0, x_1);
x_2 = l_Lean_KVMap_getName(x_0, x_1);
lean::dec(x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_setString(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_setString(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = lean::alloc_cnstr(0, 1, 0);
lean::cnstr_set(x_3, 0, x_2);
x_4 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_3);
x_4 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_3);
return x_4;
}
}
obj* l_Lean_Kvmap_setNat(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_setNat(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = lean::alloc_cnstr(1, 1, 0);
lean::cnstr_set(x_3, 0, x_2);
x_4 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_3);
x_4 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_3);
return x_4;
}
}
obj* l_Lean_Kvmap_setBool(obj* x_0, obj* x_1, uint8 x_2) {
obj* l_Lean_KVMap_setInt(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = lean::alloc_cnstr(4, 1, 0);
lean::cnstr_set(x_3, 0, x_2);
x_4 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_3);
return x_4;
}
}
obj* l_Lean_KVMap_setBool(obj* x_0, obj* x_1, uint8 x_2) {
_start:
{
obj* x_3; obj* x_4; obj* x_5;
x_3 = lean::alloc_cnstr(2, 0, 1);
lean::cnstr_set_scalar(x_3, 0, x_2);
x_4 = x_3;
x_5 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_4);
x_5 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_4);
return x_5;
}
}
obj* l_Lean_Kvmap_setBool___boxed(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_setBool___boxed(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
uint8 x_3; obj* x_4;
x_3 = lean::unbox(x_2);
x_4 = l_Lean_Kvmap_setBool(x_0, x_1, x_3);
x_4 = l_Lean_KVMap_setBool(x_0, x_1, x_3);
return x_4;
}
}
obj* l_Lean_Kvmap_setName(obj* x_0, obj* x_1, obj* x_2) {
obj* l_Lean_KVMap_setName(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = lean::alloc_cnstr(3, 1, 0);
lean::cnstr_set(x_3, 0, x_2);
x_4 = l_Lean_Kvmap_insertCore___main(x_0, x_1, x_3);
x_4 = l_Lean_KVMap_insertCore___main(x_0, x_1, x_3);
return x_4;
}
}
uint8 l_Lean_Kvmap_subset___main(obj* x_0, obj* x_1) {
uint8 l_Lean_KVMap_subset___main(obj* x_0, obj* x_1) {
_start:
{
if (lean::obj_tag(x_0) == 0)
@ -745,7 +817,7 @@ x_5 = lean::cnstr_get(x_0, 1);
x_6 = lean::cnstr_get(x_4, 0);
x_7 = lean::cnstr_get(x_4, 1);
lean::inc(x_1);
x_9 = l_Lean_Kvmap_findCore___main(x_1, x_6);
x_9 = l_Lean_KVMap_findCore___main(x_1, x_6);
if (lean::obj_tag(x_9) == 0)
{
uint8 x_11;
@ -775,40 +847,40 @@ goto _start;
}
}
}
obj* l_Lean_Kvmap_subset___main___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_subset___main___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_Lean_Kvmap_subset___main(x_0, x_1);
x_2 = l_Lean_KVMap_subset___main(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
return x_3;
}
}
uint8 l_Lean_Kvmap_subset(obj* x_0, obj* x_1) {
uint8 l_Lean_KVMap_subset(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2;
x_2 = l_Lean_Kvmap_subset___main(x_0, x_1);
x_2 = l_Lean_KVMap_subset___main(x_0, x_1);
return x_2;
}
}
obj* l_Lean_Kvmap_subset___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_subset___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_Lean_Kvmap_subset(x_0, x_1);
x_2 = l_Lean_KVMap_subset(x_0, x_1);
x_3 = lean::box(x_2);
lean::dec(x_0);
return x_3;
}
}
uint8 l_Lean_Kvmap_eqv(obj* x_0, obj* x_1) {
uint8 l_Lean_KVMap_eqv(obj* x_0, obj* x_1) {
_start:
{
uint8 x_3;
lean::inc(x_1);
x_3 = l_Lean_Kvmap_subset___main(x_0, x_1);
x_3 = l_Lean_KVMap_subset___main(x_0, x_1);
if (x_3 == 0)
{
lean::dec(x_1);
@ -818,31 +890,32 @@ return x_3;
else
{
uint8 x_6;
x_6 = l_Lean_Kvmap_subset___main(x_1, x_0);
x_6 = l_Lean_KVMap_subset___main(x_1, x_0);
lean::dec(x_1);
return x_6;
}
}
}
obj* l_Lean_Kvmap_eqv___boxed(obj* x_0, obj* x_1) {
obj* l_Lean_KVMap_eqv___boxed(obj* x_0, obj* x_1) {
_start:
{
uint8 x_2; obj* x_3;
x_2 = l_Lean_Kvmap_eqv(x_0, x_1);
x_2 = l_Lean_KVMap_eqv(x_0, x_1);
x_3 = lean::box(x_2);
return x_3;
}
}
obj* _init_l_Lean_Kvmap_HasBeq() {
obj* _init_l_Lean_KVMap_HasBeq() {
_start:
{
obj* x_0;
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_Kvmap_eqv___boxed), 2, 0);
x_0 = lean::alloc_closure(reinterpret_cast<void*>(l_Lean_KVMap_eqv___boxed), 2, 0);
return x_0;
}
}
obj* initialize_init_lean_name(obj*);
obj* initialize_init_data_option_basic(obj*);
obj* initialize_init_data_int_default(obj*);
static bool _G_initialized = false;
obj* initialize_init_lean_kvmap(obj* w) {
if (_G_initialized) return w;
@ -851,9 +924,11 @@ 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_data_option_basic(w);
if (io_result_is_error(w)) return w;
w = initialize_init_data_int_default(w);
l_Lean_DataValue_HasBeq = _init_l_Lean_DataValue_HasBeq();
lean::mark_persistent(l_Lean_DataValue_HasBeq);
l_Lean_Kvmap_HasBeq = _init_l_Lean_Kvmap_HasBeq();
lean::mark_persistent(l_Lean_Kvmap_HasBeq);
l_Lean_KVMap_HasBeq = _init_l_Lean_KVMap_HasBeq();
lean::mark_persistent(l_Lean_KVMap_HasBeq);
return w;
}

30
src/stage0/init/lean/name.cpp generated
View file

@ -40,6 +40,7 @@ obj* l_Lean_Name_replacePrefix___boxed(obj*, obj*, obj*);
obj* l_RBMap_insert___main___at_Lean_NameMap_insert___spec__1___boxed(obj*);
obj* l_Lean_NameMap_contains___boxed(obj*);
obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___boxed(obj*);
obj* l_Lean_NameMap_HasEmptyc(obj*);
obj* l_Lean_Name_components(obj*);
obj* l_List_reverse___rarg(obj*);
obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg___boxed(obj*, obj*, obj*, obj*);
@ -125,6 +126,7 @@ obj* l_RBMap_find___main___at_Lean_NameMap_find___spec__1___rarg___boxed(obj*, o
obj* l_Lean_Name_replacePrefix___main___boxed(obj*, obj*, obj*);
obj* l_Lean_Name_HasAppend;
obj* l_Lean_NameSet_insert(obj*, obj*);
obj* l_Lean_NameMap_HasEmptyc___boxed(obj*);
obj* l_RBMap_insert___main___at_Lean_NameSet_insert___spec__1(obj*, obj*, obj*);
obj* l_RBMap_find___main___at_Lean_NameMap_contains___spec__1___rarg(obj*, obj*);
obj* l_Lean_NameMap_contains___rarg___boxed(obj*, obj*);
@ -135,6 +137,7 @@ obj* l_Lean_mkNumName(obj*, obj*);
obj* l_Lean_Name_toString(obj*);
obj* l_RBNode_insert___at_Lean_NameSet_insert___spec__2(obj*, obj*, obj*, obj*);
obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(obj*, obj*, obj*, obj*);
obj* l_Lean_NameSet_HasEmptyc;
obj* l_Lean_NameMap_find___rarg___boxed(obj*, obj*);
obj* _init_l_Lean_Inhabited() {
_start:
@ -905,6 +908,23 @@ lean::dec(x_0);
return x_1;
}
}
obj* l_Lean_NameMap_HasEmptyc(obj* x_0) {
_start:
{
obj* x_1;
x_1 = lean::box(0);
return x_1;
}
}
obj* l_Lean_NameMap_HasEmptyc___boxed(obj* x_0) {
_start:
{
obj* x_1;
x_1 = l_Lean_NameMap_HasEmptyc(x_0);
lean::dec(x_0);
return x_1;
}
}
obj* l_RBNode_ins___main___at_Lean_NameMap_insert___spec__3___rarg(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
@ -1732,6 +1752,14 @@ x_0 = lean::box(0);
return x_0;
}
}
obj* _init_l_Lean_NameSet_HasEmptyc() {
_start:
{
obj* x_0;
x_0 = lean::box(0);
return x_0;
}
}
obj* l_RBNode_ins___main___at_Lean_NameSet_insert___spec__3(obj* x_0, obj* x_1, obj* x_2, obj* x_3) {
_start:
{
@ -2345,5 +2373,7 @@ lean::mark_persistent(l_Lean_Name_toString___closed__1);
lean::mark_persistent(l_Lean_Name_HasToString);
l_Lean_mkNameSet = _init_l_Lean_mkNameSet();
lean::mark_persistent(l_Lean_mkNameSet);
l_Lean_NameSet_HasEmptyc = _init_l_Lean_NameSet_HasEmptyc();
lean::mark_persistent(l_Lean_NameSet_HasEmptyc);
return w;
}

173
src/stage0/init/lean/options.cpp generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.lean.options
// Imports: init.lean.kvmap
// Imports: init.lean.kvmap init.io init.control.combinators init.data.tostring
#include "runtime/object.h"
#include "runtime/apply.h"
typedef lean::object obj; typedef lean::usize usize;
@ -14,8 +14,23 @@ 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_Options_mk;
obj* _init_l_Lean_Options_mk() {
obj* l___private_init_lean_options_1__initOptionDeclsRef(obj*);
obj* l_RBMap_insert___main___at_Lean_NameMap_insert___spec__1___rarg(obj*, obj*, obj*);
obj* l_Lean_Options_HasEmptyc;
obj* l_Lean_Name_toStringWithSep___main(obj*, obj*);
obj* l_Lean_Options_empty;
obj* l_Lean_registerOption___closed__1;
namespace lean {
obj* string_append(obj*, obj*);
}
obj* l_Lean_registerOption(obj*, obj*, obj*);
uint8 l_Lean_NameMap_contains___rarg(obj*, obj*);
obj* l___private_init_lean_options_2__optionDeclsRef;
obj* l_Lean_getOptionDecls(obj*);
extern obj* l_Lean_Name_toString___closed__1;
obj* l_Lean_registerOption___closed__2;
extern obj* l_IO_RefPointed;
obj* _init_l_Lean_Options_empty() {
_start:
{
obj* x_0;
@ -23,14 +38,162 @@ x_0 = lean::box(0);
return x_0;
}
}
obj* _init_l_Lean_Options_HasEmptyc() {
_start:
{
obj* x_0;
x_0 = l_Lean_Options_empty;
return x_0;
}
}
obj* l___private_init_lean_options_1__initOptionDeclsRef(obj* x_0) {
_start:
{
obj* x_1; obj* x_2;
x_1 = lean::box(0);
x_2 = lean::io_mk_ref(x_1, x_0);
return x_2;
}
}
obj* _init_l_Lean_registerOption___closed__1() {
_start:
{
obj* x_0;
x_0 = lean::mk_string("invalid option declaration '");
return x_0;
}
}
obj* _init_l_Lean_registerOption___closed__2() {
_start:
{
obj* x_0;
x_0 = lean::mk_string("', option already exists");
return x_0;
}
}
obj* l_Lean_registerOption(obj* x_0, obj* x_1, obj* x_2) {
_start:
{
obj* x_3; obj* x_4;
x_3 = l___private_init_lean_options_2__optionDeclsRef;
x_4 = lean::io_ref_get(x_3, x_2);
if (lean::obj_tag(x_4) == 0)
{
obj* x_5; obj* x_7; obj* x_9; uint8 x_11;
x_5 = lean::cnstr_get(x_4, 0);
x_7 = lean::cnstr_get(x_4, 1);
if (lean::is_exclusive(x_4)) {
lean::cnstr_set(x_4, 0, lean::box(0));
lean::cnstr_set(x_4, 1, lean::box(0));
x_9 = x_4;
} else {
lean::inc(x_5);
lean::inc(x_7);
lean::dec(x_4);
x_9 = lean::box(0);
}
lean::inc(x_5);
x_11 = l_Lean_NameMap_contains___rarg(x_5, x_0);
if (x_11 == 0)
{
obj* x_12; obj* x_13; obj* x_14; obj* x_15;
x_12 = lean::box(0);
if (lean::is_scalar(x_9)) {
x_13 = lean::alloc_cnstr(0, 2, 0);
} else {
x_13 = x_9;
}
lean::cnstr_set(x_13, 0, x_12);
lean::cnstr_set(x_13, 1, x_7);
x_14 = l_RBMap_insert___main___at_Lean_NameMap_insert___spec__1___rarg(x_5, x_0, x_1);
x_15 = lean::io_ref_set(x_3, x_14, x_13);
return x_15;
}
else
{
obj* x_18; obj* x_19; obj* x_20; obj* x_21; obj* x_23; obj* x_24; obj* x_25;
lean::dec(x_5);
lean::dec(x_1);
x_18 = l_Lean_Name_toString___closed__1;
x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_0);
x_20 = l_Lean_registerOption___closed__1;
x_21 = lean::string_append(x_20, x_19);
lean::dec(x_19);
x_23 = l_Lean_registerOption___closed__2;
x_24 = lean::string_append(x_21, x_23);
if (lean::is_scalar(x_9)) {
x_25 = lean::alloc_cnstr(1, 2, 0);
} else {
x_25 = x_9;
lean::cnstr_set_tag(x_9, 1);
}
lean::cnstr_set(x_25, 0, x_24);
lean::cnstr_set(x_25, 1, x_7);
return x_25;
}
}
else
{
obj* x_28; obj* x_30; obj* x_32; obj* x_33;
lean::dec(x_1);
lean::dec(x_0);
x_28 = lean::cnstr_get(x_4, 0);
x_30 = lean::cnstr_get(x_4, 1);
if (lean::is_exclusive(x_4)) {
x_32 = x_4;
} else {
lean::inc(x_28);
lean::inc(x_30);
lean::dec(x_4);
x_32 = lean::box(0);
}
if (lean::is_scalar(x_32)) {
x_33 = lean::alloc_cnstr(1, 2, 0);
} else {
x_33 = x_32;
}
lean::cnstr_set(x_33, 0, x_28);
lean::cnstr_set(x_33, 1, x_30);
return x_33;
}
}
}
obj* l_Lean_getOptionDecls(obj* x_0) {
_start:
{
obj* x_1; obj* x_2;
x_1 = l___private_init_lean_options_2__optionDeclsRef;
x_2 = lean::io_ref_get(x_1, x_0);
return x_2;
}
}
obj* initialize_init_lean_kvmap(obj*);
obj* initialize_init_io(obj*);
obj* initialize_init_control_combinators(obj*);
obj* initialize_init_data_tostring(obj*);
static bool _G_initialized = false;
obj* initialize_init_lean_options(obj* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (io_result_is_error(w)) return w;
w = initialize_init_lean_kvmap(w);
l_Lean_Options_mk = _init_l_Lean_Options_mk();
lean::mark_persistent(l_Lean_Options_mk);
if (io_result_is_error(w)) return w;
w = initialize_init_io(w);
if (io_result_is_error(w)) return w;
w = initialize_init_control_combinators(w);
if (io_result_is_error(w)) return w;
w = initialize_init_data_tostring(w);
l_Lean_Options_empty = _init_l_Lean_Options_empty();
lean::mark_persistent(l_Lean_Options_empty);
l_Lean_Options_HasEmptyc = _init_l_Lean_Options_HasEmptyc();
lean::mark_persistent(l_Lean_Options_HasEmptyc);
w = l___private_init_lean_options_1__initOptionDeclsRef(w);
if (io_result_is_error(w)) return w;
l___private_init_lean_options_2__optionDeclsRef = io_result_get_value(w);
lean::mark_persistent(l___private_init_lean_options_2__optionDeclsRef);
l_Lean_registerOption___closed__1 = _init_l_Lean_registerOption___closed__1();
lean::mark_persistent(l_Lean_registerOption___closed__1);
l_Lean_registerOption___closed__2 = _init_l_Lean_registerOption___closed__2();
lean::mark_persistent(l_Lean_registerOption___closed__2);
return w;
}

6
src/stage0/init/lean/trace.cpp generated
View file

@ -28,7 +28,6 @@ obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__8(obj*, obj*, obj*, ob
obj* l_Lean_Trace_Trace___rarg(obj*, obj*, obj*, obj*);
obj* l_RBNode_insert___at_Lean_Trace_Lean_Trace_MonadTracer___spec__2(obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__12___boxed(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Kvmap_getBool(obj*, obj*);
obj* l_Lean_Trace_TraceT_run___rarg___lambda__1(obj*, obj*);
obj* l_Lean_Trace_pp(obj*);
obj* l_Lean_Trace_Monad___boxed(obj*);
@ -37,6 +36,7 @@ obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__10(obj*, obj*, obj*, o
obj* l_Lean_Trace_Lean_Trace_MonadTracer(obj*);
obj* l_RBNode_balance2___main___rarg(obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__6___boxed(obj*, obj*, obj*);
obj* l_Lean_KVMap_getBool(obj*, obj*);
obj* l_MonadStateAdapter_adaptState_x_27___at_Lean_Trace_Lean_Trace_MonadTracer___spec__4___boxed(obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___rarg___lambda__3(obj*, obj*, obj*, obj*, obj*, obj*);
obj* l_Lean_Trace_Lean_Trace_MonadTracer___boxed(obj*);
@ -676,7 +676,7 @@ if (lean::is_exclusive(x_6)) {
x_12 = lean::cnstr_get(x_7, 0);
lean::inc(x_12);
lean::dec(x_7);
x_15 = l_Lean_Kvmap_getBool(x_12, x_0);
x_15 = l_Lean_KVMap_getBool(x_12, x_0);
if (lean::obj_tag(x_15) == 0)
{
obj* x_21; obj* x_23;
@ -943,7 +943,7 @@ if (lean::is_exclusive(x_8)) {
x_27 = lean::cnstr_get(x_1, 0);
lean::inc(x_27);
lean::inc(x_27);
x_32 = l_Lean_Kvmap_getBool(x_27, x_4);
x_32 = l_Lean_KVMap_getBool(x_27, x_4);
if (lean::obj_tag(x_32) == 0)
{
obj* x_37;