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

chore: update stage0

Browse source
This commit is contained in:
Leonardo de Moura 2019-10-04 14:20:22 -07:00
parent 63babfd478
commit b44e9c8d64
29 changed files with 28499 additions and 654 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/stage0/CMakeLists.txt
View file

@ -1 +1 @@
add_library (stage0 OBJECT ./init/coe.c ./init/control/alternative.c ./init/control/applicative.c ./init/control/combinators.c ./init/control/conditional.c ./init/control/default.c ./init/control/estate.c ./init/control/except.c ./init/control/functor.c ./init/control/id.c ./init/control/lift.c ./init/control/monad.c ./init/control/monadfail.c ./init/control/option.c ./init/control/reader.c ./init/control/state.c ./init/core.c ./init/data/array/basic.c ./init/data/array/binsearch.c ./init/data/array/default.c ./init/data/array/qsort.c ./init/data/assoclist.c ./init/data/basic.c ./init/data/binomialheap/basic.c ./init/data/binomialheap/default.c ./init/data/bytearray/basic.c ./init/data/bytearray/default.c ./init/data/char/basic.c ./init/data/char/default.c ./init/data/default.c ./init/data/dlist.c ./init/data/fin/basic.c ./init/data/fin/default.c ./init/data/hashable.c ./init/data/hashmap/basic.c ./init/data/hashmap/default.c ./init/data/int/basic.c ./init/data/int/default.c ./init/data/list/basic.c ./init/data/list/basicaux.c ./init/data/list/default.c ./init/data/list/instances.c ./init/data/nat/basic.c ./init/data/nat/bitwise.c ./init/data/nat/default.c ./init/data/nat/div.c ./init/data/option/basic.c ./init/data/option/instances.c ./init/data/persistentarray/basic.c ./init/data/persistentarray/default.c ./init/data/persistenthashmap/basic.c ./init/data/persistenthashmap/default.c ./init/data/random.c ./init/data/rbmap/basic.c ./init/data/rbmap/default.c ./init/data/rbtree/basic.c ./init/data/rbtree/default.c ./init/data/repr.c ./init/data/string/basic.c ./init/data/string/default.c ./init/data/tostring.c ./init/data/uint.c ./init/default.c ./init/fix.c ./init/lean/attributes.c ./init/lean/class.c ./init/lean/compiler/closedtermcache.c ./init/lean/compiler/constfolding.c ./init/lean/compiler/default.c ./init/lean/compiler/exportattr.c ./init/lean/compiler/externattr.c ./init/lean/compiler/implementedbyattr.c ./init/lean/compiler/initattr.c ./init/lean/compiler/inlineattrs.c ./init/lean/compiler/ir/basic.c ./init/lean/compiler/ir/borrow.c ./init/lean/compiler/ir/boxing.c ./init/lean/compiler/ir/checker.c ./init/lean/compiler/ir/compilerm.c ./init/lean/compiler/ir/default.c ./init/lean/compiler/ir/elimdead.c ./init/lean/compiler/ir/emitc.c ./init/lean/compiler/ir/emitutil.c ./init/lean/compiler/ir/expandresetreuse.c ./init/lean/compiler/ir/format.c ./init/lean/compiler/ir/freevars.c ./init/lean/compiler/ir/livevars.c ./init/lean/compiler/ir/normids.c ./init/lean/compiler/ir/pushproj.c ./init/lean/compiler/ir/rc.c ./init/lean/compiler/ir/resetreuse.c ./init/lean/compiler/ir/simpcase.c ./init/lean/compiler/ir/unboxresult.c ./init/lean/compiler/namemangling.c ./init/lean/compiler/neverextractattr.c ./init/lean/compiler/specialize.c ./init/lean/compiler/util.c ./init/lean/declaration.c ./init/lean/default.c ./init/lean/elaborator/alias.c ./init/lean/elaborator/basic.c ./init/lean/elaborator/command.c ./init/lean/elaborator/default.c ./init/lean/elaborator/elabstrategyattrs.c ./init/lean/elaborator/preterm.c ./init/lean/elaborator/resolvename.c ./init/lean/elaborator/term.c ./init/lean/environment.c ./init/lean/eqncompiler/default.c ./init/lean/eqncompiler/matchpattern.c ./init/lean/expr.c ./init/lean/format.c ./init/lean/kvmap.c ./init/lean/level.c ./init/lean/localcontext.c ./init/lean/message.c ./init/lean/metavarcontext.c ./init/lean/modifiers.c ./init/lean/name.c ./init/lean/namegenerator.c ./init/lean/options.c ./init/lean/parser/command.c ./init/lean/parser/default.c ./init/lean/parser/identifier.c ./init/lean/parser/level.c ./init/lean/parser/module.c ./init/lean/parser/parser.c ./init/lean/parser/term.c ./init/lean/parser/transform.c ./init/lean/parser/trie.c ./init/lean/path.c ./init/lean/position.c ./init/lean/projfns.c ./init/lean/reducibilityattrs.c ./init/lean/runtime.c ./init/lean/scopes.c ./init/lean/smap.c ./init/lean/syntax.c ./init/lean/toexpr.c ./init/lean/trace.c ./init/lean/typeclass/basic.c ./init/lean/typeclass/default.c ./init/lean/util.c ./init/system/default.c ./init/system/filepath.c ./init/system/io.c ./init/system/platform.c ./init/util.c ./init/wf.c)
add_library (stage0 OBJECT ./init/coe.c ./init/control/alternative.c ./init/control/applicative.c ./init/control/combinators.c ./init/control/conditional.c ./init/control/default.c ./init/control/estate.c ./init/control/except.c ./init/control/functor.c ./init/control/id.c ./init/control/lift.c ./init/control/monad.c ./init/control/monadfail.c ./init/control/option.c ./init/control/reader.c ./init/control/state.c ./init/core.c ./init/data/array/basic.c ./init/data/array/binsearch.c ./init/data/array/default.c ./init/data/array/qsort.c ./init/data/assoclist.c ./init/data/basic.c ./init/data/binomialheap/basic.c ./init/data/binomialheap/default.c ./init/data/bytearray/basic.c ./init/data/bytearray/default.c ./init/data/char/basic.c ./init/data/char/default.c ./init/data/default.c ./init/data/dlist.c ./init/data/fin/basic.c ./init/data/fin/default.c ./init/data/hashable.c ./init/data/hashmap/basic.c ./init/data/hashmap/default.c ./init/data/int/basic.c ./init/data/int/default.c ./init/data/list/basic.c ./init/data/list/basicaux.c ./init/data/list/default.c ./init/data/list/instances.c ./init/data/nat/basic.c ./init/data/nat/bitwise.c ./init/data/nat/default.c ./init/data/nat/div.c ./init/data/option/basic.c ./init/data/option/basicaux.c ./init/data/option/default.c ./init/data/option/instances.c ./init/data/persistentarray/basic.c ./init/data/persistentarray/default.c ./init/data/persistenthashmap/basic.c ./init/data/persistenthashmap/default.c ./init/data/queue/basic.c ./init/data/queue/default.c ./init/data/random.c ./init/data/rbmap/basic.c ./init/data/rbmap/basicaux.c ./init/data/rbmap/default.c ./init/data/rbtree/basic.c ./init/data/rbtree/default.c ./init/data/repr.c ./init/data/string/basic.c ./init/data/string/default.c ./init/data/tostring.c ./init/data/uint.c ./init/default.c ./init/fix.c ./init/lean/attributes.c ./init/lean/class.c ./init/lean/compiler/closedtermcache.c ./init/lean/compiler/constfolding.c ./init/lean/compiler/default.c ./init/lean/compiler/exportattr.c ./init/lean/compiler/externattr.c ./init/lean/compiler/implementedbyattr.c ./init/lean/compiler/initattr.c ./init/lean/compiler/inlineattrs.c ./init/lean/compiler/ir/basic.c ./init/lean/compiler/ir/borrow.c ./init/lean/compiler/ir/boxing.c ./init/lean/compiler/ir/checker.c ./init/lean/compiler/ir/compilerm.c ./init/lean/compiler/ir/default.c ./init/lean/compiler/ir/elimdead.c ./init/lean/compiler/ir/emitc.c ./init/lean/compiler/ir/emitutil.c ./init/lean/compiler/ir/expandresetreuse.c ./init/lean/compiler/ir/format.c ./init/lean/compiler/ir/freevars.c ./init/lean/compiler/ir/livevars.c ./init/lean/compiler/ir/normids.c ./init/lean/compiler/ir/pushproj.c ./init/lean/compiler/ir/rc.c ./init/lean/compiler/ir/resetreuse.c ./init/lean/compiler/ir/simpcase.c ./init/lean/compiler/ir/unboxresult.c ./init/lean/compiler/ir/unreachbranches.c ./init/lean/compiler/namemangling.c ./init/lean/compiler/neverextractattr.c ./init/lean/compiler/specialize.c ./init/lean/compiler/util.c ./init/lean/declaration.c ./init/lean/default.c ./init/lean/elaborator/alias.c ./init/lean/elaborator/basic.c ./init/lean/elaborator/command.c ./init/lean/elaborator/default.c ./init/lean/elaborator/elabstrategyattrs.c ./init/lean/elaborator/preterm.c ./init/lean/elaborator/resolvename.c ./init/lean/elaborator/term.c ./init/lean/environment.c ./init/lean/eqncompiler/default.c ./init/lean/eqncompiler/matchpattern.c ./init/lean/expr.c ./init/lean/format.c ./init/lean/kvmap.c ./init/lean/level.c ./init/lean/localcontext.c ./init/lean/message.c ./init/lean/metavarcontext.c ./init/lean/modifiers.c ./init/lean/name.c ./init/lean/namegenerator.c ./init/lean/options.c ./init/lean/parser/command.c ./init/lean/parser/default.c ./init/lean/parser/identifier.c ./init/lean/parser/level.c ./init/lean/parser/module.c ./init/lean/parser/parser.c ./init/lean/parser/term.c ./init/lean/parser/transform.c ./init/lean/parser/trie.c ./init/lean/path.c ./init/lean/position.c ./init/lean/projfns.c ./init/lean/reducibilityattrs.c ./init/lean/runtime.c ./init/lean/scopes.c ./init/lean/smap.c ./init/lean/syntax.c ./init/lean/toexpr.c ./init/lean/trace.c ./init/lean/typeclass/basic.c ./init/lean/typeclass/context.c ./init/lean/typeclass/default.c ./init/lean/typeclass/synth.c ./init/lean/util.c ./init/system/default.c ./init/system/filepath.c ./init/system/io.c ./init/system/platform.c ./init/util.c ./init/wf.c)

215
src/stage0/init/control/combinators.c
View file

@ -18,10 +18,12 @@ lean_object* l_Nat_mforRevAux___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_mforAux___main(lean_object*);
lean_object* l_List_mmap(lean_object*);
lean_object* l_Nat_mforAux___boxed(lean_object*);
lean_object* l_List_mfor_u2082___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mforall___main(lean_object*);
lean_object* l_mcond___boxed(lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_List_mexists___main(lean_object*);
lean_object* l_List_mmap_u2082___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_unless___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfilter___main___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfoldr___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -32,6 +34,7 @@ lean_object* l_mcond___rarg(lean_object*, lean_object*, lean_object*, lean_objec
lean_object* l_mjoin___rarg___closed__1;
lean_object* l_Nat_mforRev___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_mcond___rarg___lambda__1(lean_object*, lean_object*, uint8_t);
lean_object* l_List_mmap_u2082(lean_object*);
lean_object* l_Nat_mfold___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfilter___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_mjoin___boxed(lean_object*);
@ -43,6 +46,7 @@ lean_object* l_id___rarg___boxed(lean_object*);
lean_object* l_when___boxed(lean_object*);
lean_object* l_List_mmap___main___boxed(lean_object*);
lean_object* l_List_mmap___boxed(lean_object*);
lean_object* l_List_mfor_u2082___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfor___main___boxed(lean_object*);
lean_object* l_Nat_mforRev(lean_object*);
lean_object* l_Nat_mfoldRevAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -51,6 +55,7 @@ lean_object* l_Nat_mfoldAux___main(lean_object*, lean_object*);
lean_object* l_Nat_mfoldRevAux(lean_object*, lean_object*);
lean_object* l_List_mfirst___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfoldr(lean_object*);
lean_object* l_List_mfor_u2082___main___boxed(lean_object*);
lean_object* l_Nat_mfoldRevAux___main(lean_object*, lean_object*);
lean_object* l_Nat_mforRevAux___main(lean_object*);
lean_object* l_Nat_mfoldRevAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -66,9 +71,12 @@ lean_object* l_mwhen___rarg___lambda__1(lean_object*, lean_object*, uint8_t);
lean_object* l_List_mfoldr___main(lean_object*);
lean_object* l_Nat_mforRev___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfoldl___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfor_u2082(lean_object*);
lean_object* l_List_mfirst___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mforall___main___boxed(lean_object*);
lean_object* l_Nat_mfoldRevAux___main___boxed(lean_object*, lean_object*);
lean_object* l_List_mmap_u2082___boxed(lean_object*);
lean_object* l_List_mmap_u2082___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mforall___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_unless___rarg(lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_List_mfoldr___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -79,12 +87,14 @@ lean_object* l_Nat_mfoldRevAux___boxed(lean_object*, lean_object*);
lean_object* l_List_mmap___main(lean_object*);
lean_object* l_List_mexists___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_mfoldAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfor_u2082___main(lean_object*);
lean_object* l_List_mfilter___boxed(lean_object*);
lean_object* l_List_mmap___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_when___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfoldl___boxed(lean_object*);
lean_object* l_List_mfoldl___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_mjoin___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfor_u2082___boxed(lean_object*);
lean_object* l_Nat_mfoldRevAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mfilter___main___boxed(lean_object*);
lean_object* l_mjoin(lean_object*);
@ -106,11 +116,13 @@ lean_object* l_Nat_mforAux___rarg(lean_object*, lean_object*, lean_object*, lean
lean_object* l_List_mfilter(lean_object*);
lean_object* l_mwhen___boxed(lean_object*);
lean_object* l_List_mfor___boxed(lean_object*);
lean_object* l_List_mmap_u2082___main(lean_object*);
lean_object* l_List_mfoldl___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_mforAux(lean_object*);
lean_object* l_Nat_mfoldAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_unless___boxed(lean_object*);
lean_object* l_List_mfirst(lean_object*, lean_object*);
lean_object* l_List_mmap_u2082___main___boxed(lean_object*);
lean_object* l_List_mfoldr___main___boxed(lean_object*);
lean_object* l_Nat_mforRev___boxed(lean_object*);
lean_object* l_List_mfilter___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -1022,6 +1034,114 @@ lean_dec(x_1);
return x_2;
}
}
lean_object* l_List_mmap_u2082___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) {
_start:
{
lean_object* x_8;
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_13;
lean_dec(x_7);
lean_dec(x_5);
x_13 = lean_box(0);
x_8 = x_13;
goto block_12;
}
else
{
if (lean_obj_tag(x_7) == 0)
{
lean_object* x_14;
lean_dec(x_6);
lean_dec(x_5);
x_14 = lean_box(0);
x_8 = x_14;
goto block_12;
}
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26;
x_15 = lean_ctor_get(x_6, 0);
lean_inc(x_15);
x_16 = lean_ctor_get(x_6, 1);
lean_inc(x_16);
lean_dec(x_6);
x_17 = lean_ctor_get(x_7, 0);
lean_inc(x_17);
x_18 = lean_ctor_get(x_7, 1);
lean_inc(x_18);
lean_dec(x_7);
x_19 = lean_ctor_get(x_1, 2);
lean_inc(x_19);
x_20 = lean_ctor_get(x_1, 0);
lean_inc(x_20);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
lean_dec(x_20);
lean_inc(x_5);
x_22 = lean_apply_2(x_5, x_15, x_17);
x_23 = l_List_mmap___main___rarg___closed__1;
x_24 = lean_apply_4(x_21, lean_box(0), lean_box(0), x_23, x_22);
x_25 = l_List_mmap_u2082___main___rarg(x_1, lean_box(0), lean_box(0), lean_box(0), x_5, x_16, x_18);
x_26 = lean_apply_4(x_19, lean_box(0), lean_box(0), x_24, x_25);
return x_26;
}
}
block_12:
{
lean_object* x_9; lean_object* x_10; lean_object* x_11;
lean_dec(x_8);
x_9 = lean_ctor_get(x_1, 1);
lean_inc(x_9);
lean_dec(x_1);
x_10 = lean_box(0);
x_11 = lean_apply_2(x_9, lean_box(0), x_10);
return x_11;
}
}
}
lean_object* l_List_mmap_u2082___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_List_mmap_u2082___main___rarg), 7, 0);
return x_2;
}
}
lean_object* l_List_mmap_u2082___main___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_List_mmap_u2082___main(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_List_mmap_u2082___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) {
_start:
{
lean_object* x_8;
x_8 = l_List_mmap_u2082___main___rarg(x_1, lean_box(0), lean_box(0), lean_box(0), x_5, x_6, x_7);
return x_8;
}
}
lean_object* l_List_mmap_u2082(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_List_mmap_u2082___rarg), 7, 0);
return x_2;
}
}
lean_object* l_List_mmap_u2082___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_List_mmap_u2082(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_List_mfor___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
@ -1096,6 +1216,101 @@ lean_dec(x_1);
return x_2;
}
}
lean_object* l_List_mfor_u2082___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) {
_start:
{
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_8; lean_object* x_9; lean_object* x_10;
lean_dec(x_7);
lean_dec(x_5);
x_8 = lean_ctor_get(x_1, 1);
lean_inc(x_8);
lean_dec(x_1);
x_9 = lean_box(0);
x_10 = lean_apply_2(x_8, lean_box(0), x_9);
return x_10;
}
else
{
if (lean_obj_tag(x_7) == 0)
{
lean_object* x_11; lean_object* x_12; lean_object* x_13;
lean_dec(x_6);
lean_dec(x_5);
x_11 = lean_ctor_get(x_1, 1);
lean_inc(x_11);
lean_dec(x_1);
x_12 = lean_box(0);
x_13 = lean_apply_2(x_11, lean_box(0), x_12);
return x_13;
}
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_14 = lean_ctor_get(x_6, 0);
lean_inc(x_14);
x_15 = lean_ctor_get(x_6, 1);
lean_inc(x_15);
lean_dec(x_6);
x_16 = lean_ctor_get(x_7, 0);
lean_inc(x_16);
x_17 = lean_ctor_get(x_7, 1);
lean_inc(x_17);
lean_dec(x_7);
x_18 = lean_ctor_get(x_1, 4);
lean_inc(x_18);
lean_inc(x_5);
x_19 = lean_apply_2(x_5, x_14, x_16);
x_20 = l_List_mfor_u2082___main___rarg(x_1, lean_box(0), lean_box(0), lean_box(0), x_5, x_15, x_17);
x_21 = lean_apply_4(x_18, lean_box(0), lean_box(0), x_19, x_20);
return x_21;
}
}
}
}
lean_object* l_List_mfor_u2082___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_List_mfor_u2082___main___rarg), 7, 0);
return x_2;
}
}
lean_object* l_List_mfor_u2082___main___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_List_mfor_u2082___main(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_List_mfor_u2082___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) {
_start:
{
lean_object* x_8;
x_8 = l_List_mfor_u2082___main___rarg(x_1, lean_box(0), lean_box(0), lean_box(0), x_5, x_6, x_7);
return x_8;
}
}
lean_object* l_List_mfor_u2082(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_List_mfor_u2082___rarg), 7, 0);
return x_2;
}
}
lean_object* l_List_mfor_u2082___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_List_mfor_u2082(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_List_mfilter___main___rarg___lambda__1(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{

50
src/stage0/init/control/estate.c
View file

@ -35,6 +35,7 @@ lean_object* l_EState_adaptState___rarg(lean_object*, lean_object*, lean_object*
lean_object* l_EState_Monad___closed__5;
lean_object* l_EState_throw___rarg(lean_object*, lean_object*);
lean_object* l_EState_Result_toString(lean_object*, lean_object*, lean_object*);
lean_object* l_EState_fromState___rarg(lean_object*, lean_object*);
lean_object* l_EState_adaptExcept___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_EState_Result_toString___rarg___closed__1;
lean_object* l_EState_bind(lean_object*, lean_object*, lean_object*, lean_object*);
@ -47,6 +48,7 @@ lean_object* l_EState_HasOrelse___closed__1;
lean_object* l_EState_pure(lean_object*, lean_object*, lean_object*);
lean_object* l_EState_Monad___closed__4;
lean_object* l_EState_HasOrelse(lean_object*, lean_object*, lean_object*);
lean_object* l_EState_fromState(lean_object*, lean_object*, lean_object*);
lean_object* l_EState_Monad___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_EState_MonadExcept___closed__3;
lean_object* l_EState_Monad___closed__10;
@ -1747,6 +1749,54 @@ x_6 = lean_alloc_closure((void*)(l_EState_adaptState___rarg), 4, 0);
return x_6;
}
}
lean_object* l_EState_fromState___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_2);
if (x_3 == 0)
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_4 = lean_ctor_get(x_2, 1);
x_5 = lean_ctor_get(x_2, 0);
lean_dec(x_5);
x_6 = lean_apply_1(x_1, x_4);
x_7 = lean_ctor_get(x_6, 0);
lean_inc(x_7);
x_8 = lean_ctor_get(x_6, 1);
lean_inc(x_8);
lean_dec(x_6);
lean_ctor_set(x_2, 1, x_8);
lean_ctor_set(x_2, 0, x_7);
return x_2;
}
else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_9 = lean_ctor_get(x_2, 1);
lean_inc(x_9);
lean_dec(x_2);
x_10 = lean_apply_1(x_1, x_9);
x_11 = lean_ctor_get(x_10, 0);
lean_inc(x_11);
x_12 = lean_ctor_get(x_10, 1);
lean_inc(x_12);
lean_dec(x_10);
x_13 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_13, 0, x_11);
lean_ctor_set(x_13, 1, x_12);
return x_13;
}
}
}
lean_object* l_EState_fromState(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = lean_alloc_closure((void*)(l_EState_fromState___rarg), 2, 0);
return x_4;
}
}
lean_object* l_EState_run___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{

540
src/stage0/init/data/array/basic.c
View file

@ -29,22 +29,24 @@ lean_object* l___private_init_data_array_basic_3__miterateRevAux___rarg(lean_obj
lean_object* l_Array_iterateRev___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_iterateFrom___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_shrink___main___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mforAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterate_u2082Aux___main___at_Array_foldl_u2082___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_1__swapAtPanic_x21___at_Array_swapAt_x21___spec__1(lean_object*);
lean_object* l_Array_eraseIdxSzAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRev(lean_object*, lean_object*);
extern lean_object* l_Nat_Inhabited;
lean_object* l_Array_toList___rarg___boxed(lean_object*);
lean_object* l_Array_miterate_u2082Aux___main___at_Array_foldl_u2082___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_empty___closed__1;
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Array_toList___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Array_all___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_foldlFrom___spec__1(lean_object*, lean_object*);
lean_object* l_Array_get_x21(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_any(lean_object*);
lean_object* l_List_repr___rarg(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdxAux(lean_object*);
lean_object* l_Array_swap___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_get_x21___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfor___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -54,6 +56,8 @@ lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Arr
lean_object* l_Array_mkArray(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterate___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfoldl___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdxAux___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdx_x3f(lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_iterateFrom___spec__1(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_iterate___spec__1(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_foldlFrom___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -69,9 +73,11 @@ lean_object* l_Array_shrink___rarg(lean_object*, lean_object*);
lean_object* l_Array_swapAt_x21(lean_object*);
lean_object* l_Array_extractAux(lean_object*);
lean_object* l_Array_HasRepr(lean_object*);
lean_object* l_Array_findRev_x21___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_get_x3f___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_findIdx_x3f___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_allM___boxed(lean_object*, lean_object*);
lean_object* l_Array_eraseIdxAux___rarg(lean_object*, lean_object*);
lean_object* l_Array_iterate_u2082___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -86,10 +92,12 @@ lean_object* l_Array_HasBeq(lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapIdx(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Array_findIdx_x21___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfoldr(lean_object*, lean_object*);
lean_object* l_Array_size___boxed(lean_object*, lean_object*);
lean_object* l_Array_uset___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_iterateFrom___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdxAux___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at___private_init_data_array_basic_1__swapAtPanic_x21___spec__1(lean_object*);
@ -108,6 +116,7 @@ lean_object* l_Array_miterateAux___main___at_Array_mfoldlFrom___spec__1___rarg__
lean_object* l_List_redLength___main___rarg(lean_object*);
lean_object* l_Array_indexOfAux___main(lean_object*);
lean_object* l___private_init_data_array_basic_1__swapAtPanic_x21___at_Array_swapAt_x21___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_Array_findIdx_x21___rarg(lean_object*, lean_object*);
lean_object* l_panicWithPos___at___private_init_data_array_basic_1__swapAtPanic_x21___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
lean_object* l_Array_mfoldl___boxed(lean_object*, lean_object*);
@ -126,8 +135,10 @@ lean_object* l_Array_foldlFrom___rarg___boxed(lean_object*, lean_object*, lean_o
lean_object* l_Array_anyMAux___main___at_Array_all___spec__1(lean_object*);
lean_object* l_Array_mfindRevAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_eraseIdxSzAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdxAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_Array_isEqvAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_indexOfAux(lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_swapAt_x21___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mmapIdx___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_List_redLength(lean_object*);
@ -144,14 +155,17 @@ lean_object* l_Array_miterateRev___rarg(lean_object*, lean_object*, lean_object*
lean_object* l_Array_extract(lean_object*);
lean_object* l_Array_eraseIdx(lean_object*);
lean_object* l_Array_mfindAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRev_x21(lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_map___rarg(lean_object*, lean_object*);
lean_object* l_Array_feraseIdx___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_empty(lean_object*);
lean_object* l_Array_swap(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRev_x3f___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_HasEmptyc(lean_object*);
lean_object* l_Array_extractAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_redLength___main___rarg___boxed(lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mapIdx(lean_object*, lean_object*);
lean_object* l_Array_toList___rarg(lean_object*);
lean_object* l_Array_uget___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -172,10 +186,11 @@ lean_object* l_Array_mfindAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfor(lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__3;
lean_object* l_Array_mfoldr___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find___spec__1(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Array_mfoldr___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_findIdx_x3f___rarg(lean_object*, lean_object*);
lean_object* l_Array_findIdx_x21(lean_object*);
lean_object* l_Array_set_x21___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_eraseIdx_x27(lean_object*);
lean_object* l_Array_miterate_u2082Aux___main___at_Array_iterate_u2082___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -183,6 +198,7 @@ uint8_t l_Array_allM___rarg___lambda__1(uint8_t);
lean_object* l_Array_mfindAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_isEqv(lean_object*);
lean_object* l_Array_findRev_x3f___rarg(lean_object*, lean_object*);
lean_object* l_Array_mfind___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mmapIdx___spec__1(lean_object*, lean_object*);
@ -190,14 +206,18 @@ lean_object* lean_string_append(lean_object*, lean_object*);
lean_object* l_Array_miterateRev___boxed(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Array_find_x3f(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_1__swapAtPanic_x21(lean_object*);
lean_object* l_Array_getD___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_List_toString___rarg(lean_object*, lean_object*);
lean_object* l_Array_miterate_u2082Aux(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_foldlFrom___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_swapAt___rarg___boxed(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Array_mk(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_find_x21___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterate_u2082(lean_object*, lean_object*);
lean_object* l_Array_find_x3f___rarg(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main(lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -207,23 +227,26 @@ lean_object* l_Array_allM___rarg___lambda__1___boxed(lean_object*);
lean_object* l_Array_mfindRevAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Array_foldl(lean_object*, lean_object*);
lean_object* l_Array_miterate_u2082Aux___main___at_Array_mfoldl_u2082___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapAux(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_filterAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mmap___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateRev(lean_object*, lean_object*);
lean_object* l_Array_mforAux___main___boxed(lean_object*);
lean_object* l_Array_singleton___rarg(lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find_x21___spec__1(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_mmapIdx___boxed(lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Array_all___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_filter___rarg(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Array_mfoldr___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRev___rarg(lean_object*, lean_object*);
lean_object* l_Array_findIdxAux___main(lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Array_find_x21(lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
uint8_t l_Array_isEmpty___rarg(lean_object*);
lean_object* l_panicWithPos___at___private_init_data_array_basic_1__swapAtPanic_x21___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -236,6 +259,7 @@ lean_object* l_Array_anyMAux___main(lean_object*, lean_object*);
lean_object* l_Array_eraseIdxAux___main(lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__1;
lean_object* l_Array_mforAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_find_x21___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_indexOfAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_eraseIdx___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_push___boxed(lean_object*, lean_object*, lean_object*);
@ -263,6 +287,7 @@ lean_object* l_Array_data(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Array_allM___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_ummapAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapIdx___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdxAux___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_shrink___main(lean_object*);
lean_object* l_Array_anyMAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___boxed(lean_object*, lean_object*);
@ -271,8 +296,8 @@ lean_object* l_List_toArray(lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main(lean_object*, lean_object*);
lean_object* l_Array_reverseAux___main(lean_object*);
lean_object* l_Array_mfor___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapIdx___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1(lean_object*, lean_object*);
lean_object* l_Array_append___rarg(lean_object*, lean_object*);
lean_object* l_Array_indexOf(lean_object*);
lean_object* l_Array_sz___boxed(lean_object*, lean_object*);
@ -302,7 +327,6 @@ lean_object* l_Array_reverseAux___main___rarg(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* l_Array_eraseIdxSzAuxInstance___rarg(lean_object*);
lean_object* l_Array_pop(lean_object*, lean_object*);
lean_object* l_Array_findRev___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_sz(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux(lean_object*, lean_object*);
@ -310,7 +334,6 @@ lean_object* l_Array_extractAux___main(lean_object*);
lean_object* l_Array_miterate_u2082Aux___main___at_Array_iterate_u2082___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapAux___boxed(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Array_swapAt_x21___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_modify___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateRev___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_size(lean_object*, lean_object*);
@ -327,7 +350,9 @@ lean_object* l_Array_foldl_u2082___rarg(lean_object*, lean_object*, lean_object*
lean_object* l_Array_mfoldlFrom___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummap(lean_object*, lean_object*);
lean_object* l_Array_find_x21___rarg___closed__1;
lean_object* l_Array_anyMAux___main___at_Array_allM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Array_foldr___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfoldl(lean_object*, lean_object*);
lean_object* l_Array_mfind___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -335,17 +360,20 @@ lean_object* l_Array_miterate(lean_object*, lean_object*);
lean_object* l_Array_eraseIdxSzAux___main(lean_object*);
lean_object* l_Array_swap_x21___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_isEqvAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_getD___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_foldlFrom(lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Array_any___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___at_Array_ummap___spec__1(lean_object*, lean_object*);
lean_object* l_Array_isEqvAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_getD(lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Array_iterateRev___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_get_x3f(lean_object*);
lean_object* l_Array_anyM(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux(lean_object*, lean_object*);
lean_object* l_Array_findIdx_x21___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_HasRepr___rarg(lean_object*);
lean_object* l_Array_find___rarg(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Array_iterate_u2082___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfoldlFrom(lean_object*, lean_object*);
@ -369,12 +397,12 @@ lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Arr
lean_object* l_Array_HasToString___rarg(lean_object*);
lean_object* l_Array_mfoldr___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mfoldl___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRev_x21___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_reverse___rarg(lean_object*);
lean_object* l_Array_mfor___boxed(lean_object*);
lean_object* l_Array_eraseIdxAux___main___rarg(lean_object*, lean_object*);
lean_object* l_Array_mmap___boxed(lean_object*, lean_object*);
lean_object* l_Array_set(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_find(lean_object*, lean_object*);
lean_object* l_Array_swapAt___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_eraseIdxSzAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mmap___spec__1(lean_object*, lean_object*);
@ -389,14 +417,13 @@ lean_object* l_Array_foldl_u2082___rarg___boxed(lean_object*, lean_object*, lean
lean_object* l_Array_miterate_u2082Aux___main___at_Array_foldl_u2082___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyM___boxed(lean_object*, lean_object*);
lean_object* l_Array_mmap(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Array_findRev___spec__1(lean_object*, lean_object*);
lean_object* l_Array_find___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_toList(lean_object*);
lean_object* l_Array_set___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_data___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_indexOf___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_reverseAux(lean_object*);
lean_object* l_Array_find_x3f___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_foldl___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_1__swapAtPanic_x21___rarg(lean_object*, lean_object*);
lean_object* l_Array_miterate_u2082Aux___main___at_Array_mfoldl_u2082___spec__1(lean_object*, lean_object*);
@ -413,18 +440,23 @@ lean_object* l___private_init_data_array_basic_3__miterateRevAux___boxed(lean_ob
lean_object* l_Array_modify(lean_object*);
lean_object* l_Array_mfindAux(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_findRev_x3f(lean_object*, lean_object*);
lean_object* l_Array_mkEmpty___boxed(lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___at_Array_ummap___spec__1___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateFrom___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_all___rarg(lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main(lean_object*, lean_object*);
lean_object* l_panicWithPos___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_mmap___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_filterAux(lean_object*);
lean_object* l_Array_miterate_u2082Aux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_back___rarg(lean_object*, lean_object*);
lean_object* l_List_redLength___rarg(lean_object*);
lean_object* l_Array_mfindAux___main___at_Array_find_x3f___spec__1(lean_object*, lean_object*);
lean_object* l___private_init_data_array_basic_3__miterateRevAux___main___at_Array_mfoldr___spec__1(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Array_findIdx_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mforAux___main(lean_object*);
lean_object* l_Array_mk___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
@ -665,6 +697,45 @@ lean_dec(x_1);
return x_3;
}
}
lean_object* l_Array_getD___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_1);
x_5 = lean_nat_dec_lt(x_2, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
lean_inc(x_3);
return x_3;
}
else
{
lean_object* x_6;
x_6 = lean_array_fget(x_1, x_2);
return x_6;
}
}
}
lean_object* l_Array_getD(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_getD___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_Array_getD___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_getD___rarg(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Array_set___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -812,7 +883,7 @@ lean_dec(x_3);
x_6 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__2;
x_7 = lean_string_append(x_5, x_6);
x_8 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
x_9 = lean_unsigned_to_nat(133u);
x_9 = lean_unsigned_to_nat(140u);
x_10 = lean_unsigned_to_nat(0u);
x_11 = l_panicWithPos___at___private_init_data_array_basic_1__swapAtPanic_x21___spec__1___rarg(x_1, x_8, x_9, x_10, x_7);
lean_dec(x_7);
@ -883,7 +954,7 @@ lean_dec(x_3);
x_6 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__2;
x_7 = lean_string_append(x_5, x_6);
x_8 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
x_9 = lean_unsigned_to_nat(133u);
x_9 = lean_unsigned_to_nat(140u);
x_10 = lean_unsigned_to_nat(0u);
x_11 = l_panicWithPos___at_Array_swapAt_x21___spec__2___rarg(x_1, x_8, x_9, x_10, x_7);
lean_dec(x_7);
@ -2364,7 +2435,7 @@ lean_dec(x_3);
return x_5;
}
}
lean_object* l_Array_mfindAux___main___at_Array_find___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
@ -2403,50 +2474,158 @@ return x_8;
}
}
}
lean_object* l_Array_mfindAux___main___at_Array_find___spec__1(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_mfindAux___main___at_Array_find_x3f___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_mfindAux___main___at_Array_find___spec__1___rarg___boxed), 3, 0);
x_3 = lean_alloc_closure((void*)(l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg___boxed), 3, 0);
return x_3;
}
}
lean_object* l_Array_find___rarg(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_find_x3f___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_unsigned_to_nat(0u);
x_4 = l_Array_mfindAux___main___at_Array_find___spec__1___rarg(x_2, x_1, x_3);
x_4 = l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg(x_2, x_1, x_3);
return x_4;
}
}
lean_object* l_Array_find(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_find_x3f(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_find___rarg___boxed), 2, 0);
x_3 = lean_alloc_closure((void*)(l_Array_find_x3f___rarg___boxed), 2, 0);
return x_3;
}
}
lean_object* l_Array_mfindAux___main___at_Array_find___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_mfindAux___main___at_Array_find___spec__1___rarg(x_1, x_2, x_3);
x_4 = l_Array_mfindAux___main___at_Array_find_x3f___spec__1___rarg(x_1, x_2, x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Array_find___rarg___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_find_x3f___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Array_find___rarg(x_1, x_2);
x_3 = l_Array_find_x3f___rarg(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_2);
x_5 = lean_nat_dec_lt(x_3, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
lean_object* x_6;
lean_dec(x_3);
lean_dec(x_1);
x_6 = lean_box(0);
return x_6;
}
else
{
lean_object* x_7; lean_object* x_8;
x_7 = lean_array_fget(x_2, x_3);
lean_inc(x_1);
x_8 = lean_apply_1(x_1, x_7);
if (lean_obj_tag(x_8) == 0)
{
lean_object* x_9; lean_object* x_10;
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_3, x_9);
lean_dec(x_3);
x_3 = x_10;
goto _start;
}
else
{
lean_dec(x_3);
lean_dec(x_1);
return x_8;
}
}
}
}
lean_object* l_Array_mfindAux___main___at_Array_find_x21___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg___boxed), 3, 0);
return x_3;
}
}
lean_object* _init_l_Array_find_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("failed to find element");
return x_1;
}
}
lean_object* l_Array_find_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_unsigned_to_nat(0u);
x_5 = l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg(x_3, x_2, x_4);
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_6 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
x_7 = lean_unsigned_to_nat(254u);
x_8 = lean_unsigned_to_nat(12u);
x_9 = l_Array_find_x21___rarg___closed__1;
x_10 = l_panicWithPos___rarg(x_1, x_6, x_7, x_8, x_9);
return x_10;
}
else
{
lean_object* x_11;
lean_dec(x_1);
x_11 = lean_ctor_get(x_5, 0);
lean_inc(x_11);
lean_dec(x_5);
return x_11;
}
}
}
lean_object* l_Array_find_x21(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_find_x21___rarg___boxed), 3, 0);
return x_3;
}
}
lean_object* l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_mfindAux___main___at_Array_find_x21___spec__1___rarg(x_1, x_2, x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Array_find_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_find_x21___rarg(x_1, x_2, x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; uint8_t x_6;
@ -2484,45 +2663,332 @@ return x_11;
}
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev___spec__1(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg___boxed), 4, 0);
x_3 = lean_alloc_closure((void*)(l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg___boxed), 4, 0);
return x_3;
}
}
lean_object* l_Array_findRev___rarg(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_findRev_x3f___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_array_get_size(x_1);
x_4 = l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg(x_2, x_1, x_3, lean_box(0));
x_4 = l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg(x_2, x_1, x_3, lean_box(0));
return x_4;
}
}
lean_object* l_Array_findRev(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_findRev_x3f(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_findRev___rarg___boxed), 2, 0);
x_3 = lean_alloc_closure((void*)(l_Array_findRev_x3f___rarg___boxed), 2, 0);
return x_3;
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Array_mfindRevAux___main___at_Array_findRev___spec__1___rarg(x_1, x_2, x_3, x_4);
x_5 = l_Array_mfindRevAux___main___at_Array_findRev_x3f___spec__1___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Array_findRev___rarg___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_Array_findRev_x3f___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Array_findRev___rarg(x_1, x_2);
x_3 = l_Array_findRev_x3f___rarg(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; uint8_t x_6;
x_5 = lean_unsigned_to_nat(0u);
x_6 = lean_nat_dec_lt(x_5, x_3);
if (x_6 == 0)
{
lean_object* x_7;
lean_dec(x_3);
lean_dec(x_1);
x_7 = lean_box(0);
return x_7;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_8 = lean_unsigned_to_nat(1u);
x_9 = lean_nat_sub(x_3, x_8);
lean_dec(x_3);
x_10 = lean_array_fget(x_2, x_9);
lean_inc(x_1);
x_11 = lean_apply_1(x_1, x_10);
if (lean_obj_tag(x_11) == 0)
{
x_3 = x_9;
x_4 = lean_box(0);
goto _start;
}
else
{
lean_dec(x_9);
lean_dec(x_1);
return x_11;
}
}
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg___boxed), 4, 0);
return x_3;
}
}
lean_object* l_Array_findRev_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_array_get_size(x_2);
x_5 = l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg(x_3, x_2, x_4, lean_box(0));
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_6 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
x_7 = lean_unsigned_to_nat(262u);
x_8 = lean_unsigned_to_nat(12u);
x_9 = l_Array_find_x21___rarg___closed__1;
x_10 = l_panicWithPos___rarg(x_1, x_6, x_7, x_8, x_9);
return x_10;
}
else
{
lean_object* x_11;
lean_dec(x_1);
x_11 = lean_ctor_get(x_5, 0);
lean_inc(x_11);
lean_dec(x_5);
return x_11;
}
}
}
lean_object* l_Array_findRev_x21(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Array_findRev_x21___rarg___boxed), 3, 0);
return x_3;
}
}
lean_object* l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Array_mfindRevAux___main___at_Array_findRev_x21___spec__1___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Array_findRev_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_findRev_x21___rarg(x_1, x_2, x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Array_findIdxAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_1);
x_5 = lean_nat_dec_lt(x_3, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
lean_object* x_6;
lean_dec(x_3);
lean_dec(x_2);
x_6 = lean_box(0);
return x_6;
}
else
{
lean_object* x_7; lean_object* x_8; uint8_t x_9;
x_7 = lean_array_fget(x_1, x_3);
lean_inc(x_2);
x_8 = lean_apply_1(x_2, x_7);
x_9 = lean_unbox(x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_add(x_3, x_10);
lean_dec(x_3);
x_3 = x_11;
goto _start;
}
else
{
lean_object* x_13;
lean_dec(x_2);
x_13 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_13, 0, x_3);
return x_13;
}
}
}
}
lean_object* l_Array_findIdxAux___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_findIdxAux___main___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_Array_findIdxAux___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_findIdxAux___main___rarg(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Array_findIdxAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_findIdxAux___main___rarg(x_1, x_2, x_3);
return x_4;
}
}
lean_object* l_Array_findIdxAux(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_findIdxAux___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_Array_findIdxAux___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_findIdxAux___rarg(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Array_findIdx_x3f___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_unsigned_to_nat(0u);
x_4 = l_Array_findIdxAux___main___rarg(x_1, x_2, x_3);
return x_4;
}
}
lean_object* l_Array_findIdx_x3f(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_findIdx_x3f___rarg___boxed), 2, 0);
return x_2;
}
}
lean_object* l_Array_findIdx_x3f___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Array_findIdx_x3f___rarg(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_panicWithPos___at_Array_findIdx_x21___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_5 = l_panicWithPos___rarg___closed__1;
x_6 = lean_string_append(x_5, x_1);
x_7 = l_panicWithPos___rarg___closed__2;
x_8 = lean_string_append(x_6, x_7);
x_9 = l_Nat_repr(x_2);
x_10 = lean_string_append(x_8, x_9);
lean_dec(x_9);
x_11 = l_panicWithPos___rarg___closed__2;
x_12 = lean_string_append(x_10, x_11);
x_13 = l_Nat_repr(x_3);
x_14 = lean_string_append(x_12, x_13);
lean_dec(x_13);
x_15 = l_panicWithPos___rarg___closed__3;
x_16 = lean_string_append(x_14, x_15);
x_17 = lean_string_append(x_16, x_4);
x_18 = l_Nat_Inhabited;
x_19 = lean_panic_fn(x_17);
return x_19;
}
}
lean_object* l_Array_findIdx_x21___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_unsigned_to_nat(0u);
x_4 = l_Array_findIdxAux___main___rarg(x_1, x_2, x_3);
if (lean_obj_tag(x_4) == 0)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_5 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
x_6 = lean_unsigned_to_nat(278u);
x_7 = lean_unsigned_to_nat(12u);
x_8 = l_Array_find_x21___rarg___closed__1;
x_9 = l_panicWithPos___at_Array_findIdx_x21___spec__1(x_5, x_6, x_7, x_8);
return x_9;
}
else
{
lean_object* x_10;
x_10 = lean_ctor_get(x_4, 0);
lean_inc(x_10);
lean_dec(x_4);
return x_10;
}
}
}
lean_object* l_Array_findIdx_x21(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_findIdx_x21___rarg___boxed), 2, 0);
return x_2;
}
}
lean_object* l_panicWithPos___at_Array_findIdx_x21___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_panicWithPos___at_Array_findIdx_x21___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_4);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Array_findIdx_x21___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Array_findIdx_x21___rarg(x_1, x_2);
lean_dec(x_1);
return x_3;
}
@ -5363,6 +5829,8 @@ l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__2 = _init_
lean_mark_persistent(l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__2);
l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3 = _init_l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3();
lean_mark_persistent(l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3);
l_Array_find_x21___rarg___closed__1 = _init_l_Array_find_x21___rarg___closed__1();
lean_mark_persistent(l_Array_find_x21___rarg___closed__1);
l_Array_allM___rarg___closed__1 = _init_l_Array_allM___rarg___closed__1();
lean_mark_persistent(l_Array_allM___rarg___closed__1);
l_Array_HasRepr___rarg___closed__1 = _init_l_Array_HasRepr___rarg___closed__1();

12
src/stage0/init/data/default.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.data.default
// Imports: init.data.basic init.data.nat.default init.data.char.default init.data.string.default init.data.list.default init.data.int.default init.data.array.default init.data.bytearray.default init.data.fin.default init.data.uint init.data.rbtree.default init.data.rbmap.default init.data.option.basic init.data.option.instances init.data.hashmap.default init.data.random
// Imports: init.data.basic init.data.nat.default init.data.char.default init.data.string.default init.data.list.default init.data.int.default init.data.array.default init.data.bytearray.default init.data.fin.default init.data.uint init.data.rbtree.default init.data.rbmap.default init.data.option.default init.data.hashmap.default init.data.random init.data.queue.default
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -25,10 +25,10 @@ lean_object* initialize_init_data_fin_default(lean_object*);
lean_object* initialize_init_data_uint(lean_object*);
lean_object* initialize_init_data_rbtree_default(lean_object*);
lean_object* initialize_init_data_rbmap_default(lean_object*);
lean_object* initialize_init_data_option_basic(lean_object*);
lean_object* initialize_init_data_option_instances(lean_object*);
lean_object* initialize_init_data_option_default(lean_object*);
lean_object* initialize_init_data_hashmap_default(lean_object*);
lean_object* initialize_init_data_random(lean_object*);
lean_object* initialize_init_data_queue_default(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_default(lean_object* w) {
if (_G_initialized) return w;
@ -58,14 +58,14 @@ w = initialize_init_data_rbtree_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_rbmap_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_option_basic(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_option_instances(w);
w = initialize_init_data_option_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_hashmap_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_random(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_queue_default(w);
if (lean_io_result_is_error(w)) return w;
return w;
}
#ifdef __cplusplus

69
src/stage0/init/data/hashmap/basic.c
View file

@ -50,6 +50,7 @@ lean_object* l_HashMap_Inhabited___boxed(lean_object*, lean_object*, lean_object
lean_object* l_HashMap_HasEmptyc___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_uget(lean_object*, lean_object*, size_t, lean_object*);
lean_object* l_HashMapImp_mfoldBuckets___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_find_x21(lean_object*, lean_object*);
lean_object* l_HashMap_size___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_uset(lean_object*, lean_object*, size_t, lean_object*, lean_object*);
lean_object* l_HashMap_erase___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -63,6 +64,7 @@ lean_object* l_HashMap_empty___boxed(lean_object*, lean_object*, lean_object*, l
lean_object* l_HashMap_insert___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_AssocList_erase___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapImp_moveEntries___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_find_x21___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_empty___rarg___boxed(lean_object*);
lean_object* l_HashMap_contains(lean_object*, lean_object*);
lean_object* l_HashMapImp_moveEntries___main(lean_object*, lean_object*);
@ -84,6 +86,7 @@ lean_object* l_AssocList_mfoldl___main___at_HashMapImp_fold___spec__1(lean_objec
lean_object* l_HashMapBucket_update___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_HashMap_mfold___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapImp_erase___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_find_x21___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_HashMapImp_find___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_findD___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -97,6 +100,7 @@ lean_object* l_Array_miterateAux___main___at_HashMap_mfold___spec__1___boxed(lea
lean_object* l_AssocList_replace___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_mkHashMapImp___rarg___closed__1;
lean_object* l_Array_miterateAux___main___at_HashMapImp_mfold___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_find_x21___rarg___closed__1;
lean_object* l_HashMapImp_reinsertAux(lean_object*, lean_object*);
lean_object* l_HashMapImp_moveEntries___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_mfold(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -133,11 +137,13 @@ lean_object* l_HashMap_findD___rarg___boxed(lean_object*, lean_object*, lean_obj
lean_object* l_Array_set(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_find___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_fold___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_find_x21___rarg___closed__2;
lean_object* lean_nat_mul(lean_object*, lean_object*);
uint8_t l_HashMap_empty___rarg(lean_object*);
lean_object* l_HashMap_fold___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapImp_mfoldBuckets___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMap_HasEmptyc(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapImp_expand___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapBucket_update___rarg(lean_object* x_1, size_t x_2, lean_object* x_3, lean_object* x_4) {
_start:
@ -1273,6 +1279,65 @@ lean_dec(x_3);
return x_6;
}
}
lean_object* _init_l_HashMap_find_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("/Users/leonardodemoura/projects/lean4/library/init/data/hashmap/basic.lean");
return x_1;
}
}
lean_object* _init_l_HashMap_find_x21___rarg___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("key is not in the map");
return x_1;
}
}
lean_object* l_HashMap_find_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_HashMapImp_find___rarg(x_1, x_2, x_4, x_5);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_7 = l_HashMap_find_x21___rarg___closed__1;
x_8 = lean_unsigned_to_nat(155u);
x_9 = lean_unsigned_to_nat(12u);
x_10 = l_HashMap_find_x21___rarg___closed__2;
x_11 = l_panicWithPos___rarg(x_3, x_7, x_8, x_9, x_10);
return x_11;
}
else
{
lean_object* x_12;
lean_dec(x_3);
x_12 = lean_ctor_get(x_6, 0);
lean_inc(x_12);
lean_dec(x_6);
return x_12;
}
}
}
lean_object* l_HashMap_find_x21(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_HashMap_find_x21___rarg___boxed), 5, 0);
return x_3;
}
}
lean_object* l_HashMap_find_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_HashMap_find_x21___rarg(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_4);
return x_6;
}
}
uint8_t l_HashMap_contains___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -1649,6 +1714,10 @@ l_mkHashMapImp___rarg___closed__2 = _init_l_mkHashMapImp___rarg___closed__2();
lean_mark_persistent(l_mkHashMapImp___rarg___closed__2);
l_HashMap_Inhabited___closed__1 = _init_l_HashMap_Inhabited___closed__1();
lean_mark_persistent(l_HashMap_Inhabited___closed__1);
l_HashMap_find_x21___rarg___closed__1 = _init_l_HashMap_find_x21___rarg___closed__1();
lean_mark_persistent(l_HashMap_find_x21___rarg___closed__1);
l_HashMap_find_x21___rarg___closed__2 = _init_l_HashMap_find_x21___rarg___closed__2();
lean_mark_persistent(l_HashMap_find_x21___rarg___closed__2);
return w;
}
#ifdef __cplusplus

54
src/stage0/init/data/option/basic.c
View file

@ -18,13 +18,11 @@ lean_object* l_Option_Monad___lambda__4___boxed(lean_object*, lean_object*, lean
lean_object* l_Option_Monad___closed__3;
lean_object* l_Option_Alternative;
lean_object* l_Option_Monad___lambda__4(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Option_getOrElse___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Option_Monad___closed__6;
lean_object* l_Option_Monad___closed__9;
lean_object* l_Option_DecidableEq___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Option_Monad___closed__4;
lean_object* l_Option_Monad;
lean_object* l_Option_get___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Option_HasBeq(lean_object*);
lean_object* l_Option_HasLess___boxed(lean_object*, lean_object*);
lean_object* l_Option_Monad___lambda__5(lean_object*, lean_object*, lean_object*, lean_object*);
@ -37,11 +35,13 @@ lean_object* l_Option_Monad___closed__1;
lean_object* l_Option_toMonad___boxed(lean_object*, lean_object*);
lean_object* l_Option_map___rarg(lean_object*, lean_object*);
lean_object* l_Option_orelse___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Option_getD___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Option_map(lean_object*, lean_object*);
lean_object* l_Option_Monad___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Option_toBool___rarg(lean_object*);
lean_object* l_Option_HasBeq___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Option_toMonad___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Option_getD(lean_object*);
lean_object* l_Option_HasLess(lean_object*, lean_object*);
lean_object* l_Option_Monad___closed__2;
lean_object* l_Option_Alternative___lambda__1(lean_object*);
@ -49,14 +49,12 @@ uint8_t l_Option_DecidableEq___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Option_Inhabited(lean_object*);
lean_object* l_Option_toBool___rarg___boxed(lean_object*);
lean_object* l_Option_Monad___closed__10;
lean_object* l_Option_get(lean_object*);
lean_object* l_Option_Alternative___lambda__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Option_Monad___closed__5;
lean_object* l_Option_isSome___rarg___boxed(lean_object*);
lean_object* l_Option_orelse(lean_object*);
lean_object* l_Option_bind(lean_object*, lean_object*);
lean_object* l_Option_Alternative___closed__3;
lean_object* l_Option_getOrElse(lean_object*);
lean_object* l_Option_decidableRelLt___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Option_isNone(lean_object*);
lean_object* l_Option_orelse___rarg(lean_object*, lean_object*);
@ -67,11 +65,10 @@ lean_object* l_Option_Monad___closed__8;
lean_object* l_Option_toMonad(lean_object*, lean_object*);
lean_object* l_Option_DecidableEq(lean_object*);
lean_object* l_Option_decidableRelLt(lean_object*, lean_object*);
lean_object* l_Option_getOrElse___rarg(lean_object*, lean_object*);
lean_object* l_Option_get___rarg(lean_object*, lean_object*);
lean_object* l_Option_Alternative___closed__2;
uint8_t l_Option_isSome___rarg(lean_object*);
lean_object* l_Option_toBool(lean_object*);
lean_object* l_Option_getD___rarg(lean_object*, lean_object*);
lean_object* l_Option_Monad___closed__7;
uint8_t l_Option_isNone___rarg(lean_object*);
lean_object* l_Option_toMonad___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
@ -121,7 +118,7 @@ lean_dec(x_1);
return x_3;
}
}
lean_object* l_Option_getOrElse___rarg(lean_object* x_1, lean_object* x_2) {
lean_object* l_Option_getD___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_1) == 0)
@ -138,54 +135,19 @@ return x_3;
}
}
}
lean_object* l_Option_getOrElse(lean_object* x_1) {
lean_object* l_Option_getD(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Option_getOrElse___rarg___boxed), 2, 0);
x_2 = lean_alloc_closure((void*)(l_Option_getD___rarg___boxed), 2, 0);
return x_2;
}
}
lean_object* l_Option_getOrElse___rarg___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_Option_getD___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Option_getOrElse___rarg(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Option_get___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_2) == 0)
{
lean_inc(x_1);
return x_1;
}
else
{
lean_object* x_3;
x_3 = lean_ctor_get(x_2, 0);
lean_inc(x_3);
return x_3;
}
}
}
lean_object* l_Option_get(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Option_get___rarg___boxed), 2, 0);
return x_2;
}
}
lean_object* l_Option_get___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Option_get___rarg(x_1, x_2);
x_3 = l_Option_getD___rarg(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;

97
src/stage0/init/data/option/basicaux.c Normal file
View file

@ -0,0 +1,97 @@
// Lean compiler output
// Module: init.data.option.basicaux
// Imports: init.data.option.basic init.util
#include "runtime/lean.h"
#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
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Option_get_x21___rarg(lean_object*, lean_object*);
lean_object* l_Option_get_x21(lean_object*);
lean_object* l_Option_get_x21___rarg___closed__2;
lean_object* l_Option_get_x21___rarg___closed__1;
lean_object* l_Option_get_x21___rarg___boxed(lean_object*, lean_object*);
lean_object* l_panicWithPos___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* _init_l_Option_get_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("/Users/leonardodemoura/projects/lean4/library/init/data/option/basicaux.lean");
return x_1;
}
}
lean_object* _init_l_Option_get_x21___rarg___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("value is none");
return x_1;
}
}
lean_object* l_Option_get_x21___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_2) == 0)
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = l_Option_get_x21___rarg___closed__1;
x_4 = lean_unsigned_to_nat(16u);
x_5 = lean_unsigned_to_nat(12u);
x_6 = l_Option_get_x21___rarg___closed__2;
x_7 = l_panicWithPos___rarg(x_1, x_3, x_4, x_5, x_6);
return x_7;
}
else
{
lean_object* x_8;
lean_dec(x_1);
x_8 = lean_ctor_get(x_2, 0);
lean_inc(x_8);
return x_8;
}
}
}
lean_object* l_Option_get_x21(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Option_get_x21___rarg___boxed), 2, 0);
return x_2;
}
}
lean_object* l_Option_get_x21___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Option_get_x21___rarg(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* initialize_init_data_option_basic(lean_object*);
lean_object* initialize_init_util(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_option_basicaux(lean_object* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_option_basic(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_util(w);
if (lean_io_result_is_error(w)) return w;
l_Option_get_x21___rarg___closed__1 = _init_l_Option_get_x21___rarg___closed__1();
lean_mark_persistent(l_Option_get_x21___rarg___closed__1);
l_Option_get_x21___rarg___closed__2 = _init_l_Option_get_x21___rarg___closed__2();
lean_mark_persistent(l_Option_get_x21___rarg___closed__2);
return w;
}
#ifdef __cplusplus
}
#endif

34
src/stage0/init/data/option/default.c Normal file
View file

@ -0,0 +1,34 @@
// Lean compiler output
// Module: init.data.option.default
// Imports: init.data.option.basic init.data.option.basicaux init.data.option.instances
#include "runtime/lean.h"
#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
#ifdef __cplusplus
extern "C" {
#endif
lean_object* initialize_init_data_option_basic(lean_object*);
lean_object* initialize_init_data_option_basicaux(lean_object*);
lean_object* initialize_init_data_option_instances(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_option_default(lean_object* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_option_basic(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_option_basicaux(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_option_instances(w);
if (lean_io_result_is_error(w)) return w;
return w;
}
#ifdef __cplusplus
}
#endif

217
src/stage0/init/data/persistentarray/basic.c
View file

@ -16,6 +16,7 @@ extern "C" {
lean_object* l_PersistentArray_empty___closed__2;
lean_object* l_Array_ummapAux___main___at_PersistentArray_map___spec__4___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mmapAux___main___rarg___closed__1;
lean_object* l_mkPArray(lean_object*);
lean_object* l_PersistentArray_mforAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_mfoldlFromAux___main___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -63,8 +64,10 @@ lean_object* l_Array_miterateAux___main___at_PersistentArray_foldlFrom___spec__9
lean_object* l_Array_ummapAux___main___at_PersistentArray_map___spec__5(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_PersistentArray_findRev___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_getAux___main___rarg(lean_object*, lean_object*, size_t, size_t);
lean_object* l_Array_toPArray___rarg(lean_object*);
lean_object* l_Array_ummapAux___main___at_PersistentArray_map___spec__4(lean_object*, lean_object*);
size_t l_USize_shift__right(size_t, size_t);
lean_object* l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1(lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_toList___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mkNewPath___main(lean_object*);
lean_object* l_Array_ummapAux___main___at_PersistentArray_mmap___spec__1(lean_object*, lean_object*);
@ -74,7 +77,6 @@ lean_object* l_Array_miterateAux___main___at_PersistentArray_foldl___spec__3___r
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldlFrom___spec__4(lean_object*, lean_object*);
lean_object* l_PersistentArray_insertNewLeaf___rarg(lean_object*, size_t, size_t, lean_object*);
lean_object* l_PersistentArray_mfoldlFromAux___main___at_PersistentArray_foldlFrom___spec__2___rarg(lean_object*, lean_object*, size_t, size_t, lean_object*);
lean_object* l_PersistentArray_get___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_toList___rarg___boxed(lean_object*);
lean_object* l_PersistentArray_mfoldl___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_toPersistentArrayAux___main___rarg(lean_object*, lean_object*);
@ -84,6 +86,7 @@ lean_object* l_PersistentArray_mkNewPath___rarg___boxed(lean_object*, lean_objec
lean_object* l_PersistentArray_mfoldlAux___main(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFromAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*);
lean_object* l_PersistentArray_insertNewLeaf___main___rarg(lean_object*, size_t, size_t, lean_object*);
lean_object* l_Nat_foldAux___main___at_mkPersistentArray___spec__1(lean_object*);
lean_object* l_PersistentArray_mfoldlFrom(lean_object*, lean_object*);
lean_object* l_List_reverse___rarg(lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldlFrom___spec__6(lean_object*, lean_object*);
@ -118,11 +121,13 @@ lean_object* l_PersistentArray_findRev(lean_object*, lean_object*);
lean_object* l_PersistentArray_push(lean_object*);
lean_object* l_PersistentArray_mkNewTail___rarg(lean_object*);
lean_object* l_PersistentArray_modifyAux___main___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t);
lean_object* l_PersistentArray_get___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_PersistentArray_findRev___spec__4(lean_object*, lean_object*);
lean_object* l_Array_toPArray___rarg___boxed(lean_object*);
lean_object* l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFromAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_PersistentArray_find___spec__5(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_PersistentArray_findRev___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_get_x21___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFromAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_mfoldlAux___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_toList___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -138,12 +143,14 @@ lean_object* l_PersistentArray_collectStats___main___rarg(lean_object*, lean_obj
lean_object* l_PersistentArray_mkEmptyArray(lean_object*);
lean_object* l_PersistentArray_mfoldlAux___main___at_PersistentArray_toList___spec__2(lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldl___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_toPersistentArray___rarg(lean_object*);
lean_object* l_PersistentArray_mfindRev___at_PersistentArray_findRev___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_toList___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldl___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_pop___rarg(lean_object*);
size_t l_PersistentArray_initShift;
lean_object* l_PersistentArray_mfoldl___boxed(lean_object*, lean_object*);
lean_object* l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_toList___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_repr(lean_object*);
lean_object* l_Array_mfindAux___main___at_PersistentArray_find___spec__4(lean_object*, lean_object*);
@ -181,7 +188,9 @@ lean_object* l_PersistentArray_mfindRevAux___main___rarg(lean_object*, lean_obje
lean_object* l_Array_ummapAux___main___at_PersistentArray_mmapAux___main___spec__2___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_foldl(lean_object*, lean_object*);
size_t l_USize_add(size_t, size_t);
lean_object* l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_toList(lean_object*);
lean_object* l_Array_toPArray(lean_object*);
lean_object* l_PersistentArray_mforAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mkNewPath___main___rarg___boxed(lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
@ -235,6 +244,7 @@ size_t l_PersistentArray_mod2Shift(size_t, size_t);
lean_object* l_PersistentArray_mforAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldlFrom___spec__8(lean_object*, lean_object*);
lean_object* l_PersistentArray_mmapAux___main___rarg___lambda__2(lean_object*);
lean_object* l_Array_toPersistentArray___rarg___boxed(lean_object*);
lean_object* l_PersistentArray_mfindRev(lean_object*, lean_object*);
lean_object* l_Array_set_x21(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_mfoldl___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -256,7 +266,9 @@ lean_object* l_Array_mfindRevAux___main___at_PersistentArray_mfindRevAux___main_
lean_object* l_Array_ummapAux___main___at_PersistentArray_mmapAux___main___spec__1(lean_object*, lean_object*);
lean_object* l_PersistentArray_popLeaf___main(lean_object*);
lean_object* l_PersistentArray_Inhabited(lean_object*);
lean_object* l_Array_toPersistentArray(lean_object*);
lean_object* l_PersistentArray_mfoldlFromAux___main(lean_object*, lean_object*);
lean_object* l_PersistentArray_get_x21(lean_object*);
lean_object* l_PersistentArray_mfoldlAux___main___boxed(lean_object*, lean_object*);
lean_object* l_PersistentArrayNode_Inhabited___closed__1;
lean_object* l_PersistentArray_modify___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -283,11 +295,14 @@ lean_object* l_PersistentArray_find___rarg(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldl(lean_object*, lean_object*);
lean_object* l_Array_pop(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldl___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_get_x21___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldl___spec__4(lean_object*, lean_object*);
lean_object* l_PersistentArray_mmap___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mmapAux(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfindRevAux___main(lean_object*, lean_object*);
lean_object* l_PersistentArray_div2Shift___boxed(lean_object*, lean_object*);
lean_object* l_mkPersistentArray___rarg(lean_object*, lean_object*);
lean_object* l_mkPersistentArray(lean_object*);
lean_object* l_Array_ummapAux___main___at_PersistentArray_mmapAux___main___spec__2(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFrom___at_PersistentArray_foldlFrom___spec__1(lean_object*, lean_object*);
lean_object* l_PersistentArray_getAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -300,6 +315,7 @@ lean_object* l_PersistentArray_mfoldlFromAux___rarg___boxed(lean_object*, lean_o
lean_object* l___private_init_data_persistentarray_basic_1__emptyArray(lean_object*);
lean_object* l_PersistentArray_modifyAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_toList___spec__5(lean_object*);
lean_object* l_Array_toPersistentArray___rarg___closed__1;
lean_object* l_PersistentArray_mmap___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFromAux(lean_object*, lean_object*);
lean_object* l_Array_size(lean_object*, lean_object*);
@ -354,7 +370,6 @@ lean_object* l_Array_ummapAux___main___at_PersistentArray_mmapAux___main___spec_
lean_object* l_PersistentArray_mforAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___at_PersistentArray_map___spec__5___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_ummapAux___main___at_PersistentArray_mmapAux___main___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_get(lean_object*);
lean_object* l_Array_mforAux___main___at_PersistentArray_mforAux___main___spec__1(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldlFrom___spec__8___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentArray_foldl___spec__5(lean_object*, lean_object*);
@ -371,6 +386,7 @@ lean_object* l_PersistentArray_mfindAux___main___boxed(lean_object*, lean_object
lean_object* l_Array_miterateAux___main___at_PersistentArray_mfoldlFrom___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_max(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlAux___main___at_PersistentArray_foldlFrom___spec__3(lean_object*, lean_object*);
lean_object* l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfind___at_PersistentArray_find___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_PersistentArray_foldlFrom___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_usize_to_nat(size_t);
@ -387,6 +403,7 @@ lean_object* l_PersistentArray_mmap___boxed(lean_object*, lean_object*);
lean_object* l_PersistentArray_mkNewPath(lean_object*);
lean_object* l_PersistentArray_modifyAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfindRevAux___main___at_PersistentArray_findRev___spec__3(lean_object*, lean_object*);
lean_object* l_mkPArray___rarg(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFrom___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlAux___main___at_PersistentArray_foldlFrom___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_PersistentArray_isEmpty___rarg(lean_object*);
@ -712,7 +729,7 @@ x_7 = l_PersistentArray_getAux___rarg(x_1, x_2, x_5, x_6);
return x_7;
}
}
lean_object* l_PersistentArray_get___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_PersistentArray_get_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
@ -746,19 +763,19 @@ return x_12;
}
}
}
lean_object* l_PersistentArray_get(lean_object* x_1) {
lean_object* l_PersistentArray_get_x21(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_PersistentArray_get___rarg___boxed), 3, 0);
x_2 = lean_alloc_closure((void*)(l_PersistentArray_get_x21___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_PersistentArray_get___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_PersistentArray_get_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_PersistentArray_get___rarg(x_1, x_2, x_3);
x_4 = l_PersistentArray_get_x21___rarg(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
@ -6425,6 +6442,188 @@ x_2 = lean_alloc_closure((void*)(l_List_toPersistentArray___rarg), 1, 0);
return x_2;
}
}
lean_object* l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; uint8_t x_6;
x_5 = lean_array_get_size(x_2);
x_6 = lean_nat_dec_lt(x_3, x_5);
lean_dec(x_5);
if (x_6 == 0)
{
lean_dec(x_3);
return x_4;
}
else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = lean_array_fget(x_2, x_3);
x_8 = l_PersistentArray_push___rarg(x_4, x_7);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_3, x_9);
lean_dec(x_3);
x_3 = x_10;
x_4 = x_8;
goto _start;
}
}
}
lean_object* l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg___boxed), 4, 0);
return x_2;
}
}
lean_object* _init_l_Array_toPersistentArray___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = l_PersistentArray_empty(lean_box(0));
return x_1;
}
}
lean_object* l_Array_toPersistentArray___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_2 = lean_unsigned_to_nat(0u);
x_3 = l_Array_toPersistentArray___rarg___closed__1;
x_4 = l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg(x_1, x_1, x_2, x_3);
return x_4;
}
}
lean_object* l_Array_toPersistentArray(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_toPersistentArray___rarg___boxed), 1, 0);
return x_2;
}
}
lean_object* l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Array_miterateAux___main___at_Array_toPersistentArray___spec__1___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Array_toPersistentArray___rarg___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Array_toPersistentArray___rarg(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Array_toPArray___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Array_toPersistentArray___rarg(x_1);
return x_2;
}
}
lean_object* l_Array_toPArray(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_toPArray___rarg___boxed), 1, 0);
return x_2;
}
}
lean_object* l_Array_toPArray___rarg___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Array_toPArray___rarg(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; uint8_t x_6;
x_5 = lean_unsigned_to_nat(0u);
x_6 = lean_nat_dec_eq(x_3, x_5);
if (x_6 == 0)
{
lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_3, x_7);
lean_dec(x_3);
lean_inc(x_1);
x_9 = l_PersistentArray_push___rarg(x_4, x_1);
x_3 = x_8;
x_4 = x_9;
goto _start;
}
else
{
lean_dec(x_3);
lean_dec(x_1);
return x_4;
}
}
}
lean_object* l_Nat_foldAux___main___at_mkPersistentArray___spec__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg___boxed), 4, 0);
return x_2;
}
}
lean_object* l_mkPersistentArray___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = l_Array_toPersistentArray___rarg___closed__1;
lean_inc(x_1);
x_4 = l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg(x_2, x_1, x_1, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_mkPersistentArray(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_mkPersistentArray___rarg), 2, 0);
return x_2;
}
}
lean_object* l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Nat_foldAux___main___at_mkPersistentArray___spec__1___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_mkPArray___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_mkPersistentArray___rarg(x_1, x_2);
return x_3;
}
}
lean_object* l_mkPArray(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_mkPArray___rarg), 2, 0);
return x_2;
}
}
lean_object* initialize_init_data_array_default(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_persistentarray_basic(lean_object* w) {
@ -6467,6 +6666,8 @@ l_PersistentArray_HasToString___closed__1 = _init_l_PersistentArray_HasToString_
lean_mark_persistent(l_PersistentArray_HasToString___closed__1);
l_PersistentArray_HasToString = _init_l_PersistentArray_HasToString();
lean_mark_persistent(l_PersistentArray_HasToString);
l_Array_toPersistentArray___rarg___closed__1 = _init_l_Array_toPersistentArray___rarg___closed__1();
lean_mark_persistent(l_Array_toPersistentArray___rarg___closed__1);
return w;
}
#ifdef __cplusplus

69
src/stage0/init/data/persistenthashmap/basic.c
View file

@ -37,6 +37,7 @@ lean_object* l_PersistentHashMap_isUnaryEntries(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_HasEmptyc___closed__1;
size_t l_USize_shift__right(size_t, size_t);
lean_object* l_PersistentHashMap_contains(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find_x21___rarg___closed__2;
lean_object* l_PersistentHashMap_findAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insert___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentHashMap_foldl___spec__3(lean_object*, lean_object*, lean_object*);
@ -84,6 +85,7 @@ lean_object* l_Nat_repr(lean_object*);
lean_object* l_PersistentHashMap_mkCollisionNode___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_findAux___rarg(lean_object*, lean_object*, size_t, lean_object*);
lean_object* l_PersistentHashMap_find_x21___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_mfoldlAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_mod2Shift___boxed(lean_object*, lean_object*);
@ -133,7 +135,9 @@ lean_object* l_PersistentHashMap_HasToString;
size_t l_PersistentHashMap_shift;
lean_object* l_Array_set_x21(lean_object*, lean_object*, lean_object*, lean_object*);
size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
lean_object* l_PersistentHashMap_find_x21(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_mfoldlAux___main___at_PersistentHashMap_foldl___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find_x21___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentHashMap_mfoldlAux___main___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_stats(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_eraseAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -145,6 +149,7 @@ lean_object* l_PersistentHashMap_mfoldl(lean_object*, lean_object*, lean_object*
lean_object* l_PersistentHashMap_stats___rarg___boxed(lean_object*);
lean_object* l_PersistentHashMap_insertAux___rarg(lean_object*, lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_PersistentHashMap_toList___spec__4(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find_x21___rarg___closed__1;
lean_object* l_PersistentHashMap_mfoldl___at_PersistentHashMap_toList___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_HasToString___closed__1;
@ -202,6 +207,7 @@ lean_object* l_PersistentHashMap_mfoldl___boxed(lean_object*, lean_object*, lean
lean_object* l_PersistentHashMap_findD___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_collectStats___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_containsAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_erase(lean_object*, lean_object*);
size_t l_PersistentHashMap_branching;
lean_object* l_PersistentHashMap_eraseAux(lean_object*, lean_object*);
@ -1460,6 +1466,65 @@ lean_dec(x_3);
return x_6;
}
}
lean_object* _init_l_PersistentHashMap_find_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("/Users/leonardodemoura/projects/lean4/library/init/data/persistenthashmap/basic.lean");
return x_1;
}
}
lean_object* _init_l_PersistentHashMap_find_x21___rarg___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("key is not in the map");
return x_1;
}
}
lean_object* l_PersistentHashMap_find_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_PersistentHashMap_find___rarg(x_1, x_2, x_4, x_5);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_7 = l_PersistentHashMap_find_x21___rarg___closed__1;
x_8 = lean_unsigned_to_nat(164u);
x_9 = lean_unsigned_to_nat(12u);
x_10 = l_PersistentHashMap_find_x21___rarg___closed__2;
x_11 = l_panicWithPos___rarg(x_3, x_7, x_8, x_9, x_10);
return x_11;
}
else
{
lean_object* x_12;
lean_dec(x_3);
x_12 = lean_ctor_get(x_6, 0);
lean_inc(x_12);
lean_dec(x_6);
return x_12;
}
}
}
lean_object* l_PersistentHashMap_find_x21(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_PersistentHashMap_find_x21___rarg___boxed), 5, 0);
return x_3;
}
}
lean_object* l_PersistentHashMap_find_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_PersistentHashMap_find_x21___rarg(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_4);
return x_6;
}
}
uint8_t l_PersistentHashMap_containsAtAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -3682,6 +3747,10 @@ l_PersistentHashMap_insertAux___main___rarg___closed__1 = _init_l_PersistentHash
l_PersistentHashMap_insertAux___main___rarg___closed__2 = _init_l_PersistentHashMap_insertAux___main___rarg___closed__2();
l_PersistentHashMap_insertAux___main___rarg___closed__3 = _init_l_PersistentHashMap_insertAux___main___rarg___closed__3();
lean_mark_persistent(l_PersistentHashMap_insertAux___main___rarg___closed__3);
l_PersistentHashMap_find_x21___rarg___closed__1 = _init_l_PersistentHashMap_find_x21___rarg___closed__1();
lean_mark_persistent(l_PersistentHashMap_find_x21___rarg___closed__1);
l_PersistentHashMap_find_x21___rarg___closed__2 = _init_l_PersistentHashMap_find_x21___rarg___closed__2();
lean_mark_persistent(l_PersistentHashMap_find_x21___rarg___closed__2);
l_PersistentHashMap_stats___rarg___closed__1 = _init_l_PersistentHashMap_stats___rarg___closed__1();
lean_mark_persistent(l_PersistentHashMap_stats___rarg___closed__1);
l_PersistentHashMap_Stats_toString___closed__1 = _init_l_PersistentHashMap_Stats_toString___closed__1();

289
src/stage0/init/data/queue/basic.c Normal file
View file

@ -0,0 +1,289 @@
// Lean compiler output
// Module: init.data.queue.basic
// Imports: init.data.array.default init.data.int.default
#include "runtime/lean.h"
#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
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Queue_enqueueAll___rarg(lean_object*, lean_object*);
lean_object* l_Queue_enqueue(lean_object*);
lean_object* l_Queue_enqueue___rarg(lean_object*, lean_object*);
lean_object* l_List_reverse___rarg(lean_object*);
lean_object* l_Queue_dequeue_x3f(lean_object*);
lean_object* l_Queue_isEmpty___rarg___boxed(lean_object*);
lean_object* l_List_append___rarg(lean_object*, lean_object*);
uint8_t l_List_isEmpty___rarg(lean_object*);
uint8_t l_Queue_isEmpty___rarg(lean_object*);
lean_object* l_Queue_dequeue_x3f___rarg(lean_object*);
lean_object* l_Queue_isEmpty(lean_object*);
lean_object* l_Queue_enqueueAll(lean_object*);
lean_object* l_Queue_enqueue___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_2);
if (x_3 == 0)
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_ctor_get(x_2, 0);
x_5 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_4);
lean_ctor_set(x_2, 0, x_5);
return x_2;
}
else
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = lean_ctor_get(x_2, 0);
x_7 = lean_ctor_get(x_2, 1);
lean_inc(x_7);
lean_inc(x_6);
lean_dec(x_2);
x_8 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_8, 0, x_1);
lean_ctor_set(x_8, 1, x_6);
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_8);
lean_ctor_set(x_9, 1, x_7);
return x_9;
}
}
}
lean_object* l_Queue_enqueue(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Queue_enqueue___rarg), 2, 0);
return x_2;
}
}
lean_object* l_Queue_enqueueAll___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_2);
if (x_3 == 0)
{
lean_object* x_4; lean_object* x_5;
x_4 = lean_ctor_get(x_2, 0);
x_5 = l_List_append___rarg(x_1, x_4);
lean_ctor_set(x_2, 0, x_5);
return x_2;
}
else
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = lean_ctor_get(x_2, 0);
x_7 = lean_ctor_get(x_2, 1);
lean_inc(x_7);
lean_inc(x_6);
lean_dec(x_2);
x_8 = l_List_append___rarg(x_1, x_6);
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_8);
lean_ctor_set(x_9, 1, x_7);
return x_9;
}
}
}
lean_object* l_Queue_enqueueAll(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Queue_enqueueAll___rarg), 2, 0);
return x_2;
}
}
uint8_t l_Queue_isEmpty___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; uint8_t x_3;
x_2 = lean_ctor_get(x_1, 1);
x_3 = l_List_isEmpty___rarg(x_2);
if (x_3 == 0)
{
uint8_t x_4;
x_4 = 0;
return x_4;
}
else
{
lean_object* x_5; uint8_t x_6;
x_5 = lean_ctor_get(x_1, 0);
x_6 = l_List_isEmpty___rarg(x_5);
return x_6;
}
}
}
lean_object* l_Queue_isEmpty(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Queue_isEmpty___rarg___boxed), 1, 0);
return x_2;
}
}
lean_object* l_Queue_isEmpty___rarg___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = l_Queue_isEmpty___rarg(x_1);
lean_dec(x_1);
x_3 = lean_box(x_2);
return x_3;
}
}
lean_object* l_Queue_dequeue_x3f___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 1);
lean_inc(x_2);
if (lean_obj_tag(x_2) == 0)
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_1);
if (x_3 == 0)
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_4 = lean_ctor_get(x_1, 0);
x_5 = lean_ctor_get(x_1, 1);
lean_dec(x_5);
x_6 = l_List_reverse___rarg(x_4);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7;
lean_free_object(x_1);
x_7 = lean_box(0);
return x_7;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_8);
x_9 = lean_ctor_get(x_6, 1);
lean_inc(x_9);
lean_dec(x_6);
lean_ctor_set(x_1, 1, x_9);
lean_ctor_set(x_1, 0, x_2);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_8);
lean_ctor_set(x_10, 1, x_1);
x_11 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_11, 0, x_10);
return x_11;
}
}
else
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_ctor_get(x_1, 0);
lean_inc(x_12);
lean_dec(x_1);
x_13 = l_List_reverse___rarg(x_12);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14;
x_14 = lean_box(0);
return x_14;
}
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_15 = lean_ctor_get(x_13, 0);
lean_inc(x_15);
x_16 = lean_ctor_get(x_13, 1);
lean_inc(x_16);
lean_dec(x_13);
x_17 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_17, 0, x_2);
lean_ctor_set(x_17, 1, x_16);
x_18 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_18, 0, x_15);
lean_ctor_set(x_18, 1, x_17);
x_19 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_19, 0, x_18);
return x_19;
}
}
}
else
{
uint8_t x_20;
x_20 = !lean_is_exclusive(x_1);
if (x_20 == 0)
{
lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
x_21 = lean_ctor_get(x_1, 1);
lean_dec(x_21);
x_22 = lean_ctor_get(x_2, 0);
lean_inc(x_22);
x_23 = lean_ctor_get(x_2, 1);
lean_inc(x_23);
lean_dec(x_2);
lean_ctor_set(x_1, 1, x_23);
x_24 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_24, 0, x_22);
lean_ctor_set(x_24, 1, x_1);
x_25 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_25, 0, x_24);
return x_25;
}
else
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
x_26 = lean_ctor_get(x_1, 0);
lean_inc(x_26);
lean_dec(x_1);
x_27 = lean_ctor_get(x_2, 0);
lean_inc(x_27);
x_28 = lean_ctor_get(x_2, 1);
lean_inc(x_28);
lean_dec(x_2);
x_29 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_29, 0, x_26);
lean_ctor_set(x_29, 1, x_28);
x_30 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_30, 0, x_27);
lean_ctor_set(x_30, 1, x_29);
x_31 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_31, 0, x_30);
return x_31;
}
}
}
}
lean_object* l_Queue_dequeue_x3f(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Queue_dequeue_x3f___rarg), 1, 0);
return x_2;
}
}
lean_object* initialize_init_data_array_default(lean_object*);
lean_object* initialize_init_data_int_default(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_queue_basic(lean_object* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_array_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_int_default(w);
if (lean_io_result_is_error(w)) return w;
return w;
}
#ifdef __cplusplus
}
#endif

28
src/stage0/init/data/queue/default.c Normal file
View file

@ -0,0 +1,28 @@
// Lean compiler output
// Module: init.data.queue.default
// Imports: init.data.queue.basic
#include "runtime/lean.h"
#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
#ifdef __cplusplus
extern "C" {
#endif
lean_object* initialize_init_data_queue_basic(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_queue_default(lean_object* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_queue_basic(w);
if (lean_io_result_is_error(w)) return w;
return w;
}
#ifdef __cplusplus
}
#endif

418
src/stage0/init/data/rbmap/basicaux.c Normal file
View file

@ -0,0 +1,418 @@
// Lean compiler output
// Module: init.data.rbmap.basicaux
// Imports: init.data.rbmap.basic init.util
#include "runtime/lean.h"
#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
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_RBMap_max_x21(lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_RBMap_min_x21___spec__1(lean_object*, lean_object*);
lean_object* l_RBNode_min___main___rarg(lean_object*);
lean_object* l_RBNode_max___main___rarg(lean_object*);
lean_object* l_RBMap_find_x21(lean_object*, lean_object*);
lean_object* l_RBMap_max_x21___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_RBMap_max_x21___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_RBMap_max_x21___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_repr(lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__3;
lean_object* l_panicWithPos___at_RBMap_min_x21___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_string_append(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_RBMap_max_x21___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_RBMap_max_x21___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_RBMap_min_x21___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_RBMap_min_x21(lean_object*, lean_object*, lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__1;
lean_object* l_RBMap_min_x21___rarg___closed__2;
lean_object* l_RBNode_find___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_RBMap_max_x21___spec__1(lean_object*, lean_object*);
lean_object* l_panic(lean_object*, lean_object*, lean_object*);
lean_object* l_RBMap_min_x21___rarg___closed__1;
lean_object* l_RBMap_find_x21___rarg___closed__1;
lean_object* l_RBMap_min_x21___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__2;
lean_object* l_RBMap_find_x21___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_RBMap_min_x21___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_RBMap_min_x21___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_RBMap_min_x21___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_7 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_7, 0, x_1);
lean_ctor_set(x_7, 1, x_2);
x_8 = l_panicWithPos___rarg___closed__1;
x_9 = lean_string_append(x_8, x_3);
x_10 = l_panicWithPos___rarg___closed__2;
x_11 = lean_string_append(x_9, x_10);
x_12 = l_Nat_repr(x_4);
x_13 = lean_string_append(x_11, x_12);
lean_dec(x_12);
x_14 = l_panicWithPos___rarg___closed__2;
x_15 = lean_string_append(x_13, x_14);
x_16 = l_Nat_repr(x_5);
x_17 = lean_string_append(x_15, x_16);
lean_dec(x_16);
x_18 = l_panicWithPos___rarg___closed__3;
x_19 = lean_string_append(x_17, x_18);
x_20 = lean_string_append(x_19, x_6);
x_21 = lean_panic_fn(x_20);
return x_21;
}
}
lean_object* l_panicWithPos___at_RBMap_min_x21___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_panicWithPos___at_RBMap_min_x21___spec__1___rarg___boxed), 6, 0);
return x_3;
}
}
lean_object* _init_l_RBMap_min_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("/Users/leonardodemoura/projects/lean4/library/init/data/rbmap/basicaux.lean");
return x_1;
}
}
lean_object* _init_l_RBMap_min_x21___rarg___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("map is empty");
return x_1;
}
}
lean_object* l_RBMap_min_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_12;
x_12 = l_RBNode_min___main___rarg(x_3);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13;
x_13 = lean_box(0);
x_4 = x_13;
goto block_11;
}
else
{
uint8_t x_14;
x_14 = !lean_is_exclusive(x_12);
if (x_14 == 0)
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_15 = lean_ctor_get(x_12, 0);
x_16 = lean_ctor_get(x_15, 0);
lean_inc(x_16);
x_17 = lean_ctor_get(x_15, 1);
lean_inc(x_17);
lean_dec(x_15);
x_18 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_18, 0, x_16);
lean_ctor_set(x_18, 1, x_17);
lean_ctor_set(x_12, 0, x_18);
x_4 = x_12;
goto block_11;
}
else
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_19 = lean_ctor_get(x_12, 0);
lean_inc(x_19);
lean_dec(x_12);
x_20 = lean_ctor_get(x_19, 0);
lean_inc(x_20);
x_21 = lean_ctor_get(x_19, 1);
lean_inc(x_21);
lean_dec(x_19);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_20);
lean_ctor_set(x_22, 1, x_21);
x_23 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_23, 0, x_22);
x_4 = x_23;
goto block_11;
}
}
block_11:
{
if (lean_obj_tag(x_4) == 0)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_5 = l_RBMap_min_x21___rarg___closed__1;
x_6 = lean_unsigned_to_nat(18u);
x_7 = lean_unsigned_to_nat(12u);
x_8 = l_RBMap_min_x21___rarg___closed__2;
x_9 = l_panicWithPos___at_RBMap_min_x21___spec__1___rarg(x_1, x_2, x_5, x_6, x_7, x_8);
return x_9;
}
else
{
lean_object* x_10;
lean_dec(x_2);
lean_dec(x_1);
x_10 = lean_ctor_get(x_4, 0);
lean_inc(x_10);
lean_dec(x_4);
return x_10;
}
}
}
}
lean_object* l_RBMap_min_x21(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = lean_alloc_closure((void*)(l_RBMap_min_x21___rarg___boxed), 3, 0);
return x_4;
}
}
lean_object* l_panicWithPos___at_RBMap_min_x21___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7;
x_7 = l_panicWithPos___at_RBMap_min_x21___spec__1___rarg(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec(x_6);
lean_dec(x_3);
return x_7;
}
}
lean_object* l_RBMap_min_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_RBMap_min_x21___rarg(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* l_RBMap_min_x21___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_RBMap_min_x21(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* l_panicWithPos___at_RBMap_max_x21___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_7 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_7, 0, x_1);
lean_ctor_set(x_7, 1, x_2);
x_8 = l_panicWithPos___rarg___closed__1;
x_9 = lean_string_append(x_8, x_3);
x_10 = l_panicWithPos___rarg___closed__2;
x_11 = lean_string_append(x_9, x_10);
x_12 = l_Nat_repr(x_4);
x_13 = lean_string_append(x_11, x_12);
lean_dec(x_12);
x_14 = l_panicWithPos___rarg___closed__2;
x_15 = lean_string_append(x_13, x_14);
x_16 = l_Nat_repr(x_5);
x_17 = lean_string_append(x_15, x_16);
lean_dec(x_16);
x_18 = l_panicWithPos___rarg___closed__3;
x_19 = lean_string_append(x_17, x_18);
x_20 = lean_string_append(x_19, x_6);
x_21 = lean_panic_fn(x_20);
return x_21;
}
}
lean_object* l_panicWithPos___at_RBMap_max_x21___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_panicWithPos___at_RBMap_max_x21___spec__1___rarg___boxed), 6, 0);
return x_3;
}
}
lean_object* l_RBMap_max_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; lean_object* x_12;
x_12 = l_RBNode_max___main___rarg(x_3);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13;
x_13 = lean_box(0);
x_4 = x_13;
goto block_11;
}
else
{
uint8_t x_14;
x_14 = !lean_is_exclusive(x_12);
if (x_14 == 0)
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_15 = lean_ctor_get(x_12, 0);
x_16 = lean_ctor_get(x_15, 0);
lean_inc(x_16);
x_17 = lean_ctor_get(x_15, 1);
lean_inc(x_17);
lean_dec(x_15);
x_18 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_18, 0, x_16);
lean_ctor_set(x_18, 1, x_17);
lean_ctor_set(x_12, 0, x_18);
x_4 = x_12;
goto block_11;
}
else
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_19 = lean_ctor_get(x_12, 0);
lean_inc(x_19);
lean_dec(x_12);
x_20 = lean_ctor_get(x_19, 0);
lean_inc(x_20);
x_21 = lean_ctor_get(x_19, 1);
lean_inc(x_21);
lean_dec(x_19);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_20);
lean_ctor_set(x_22, 1, x_21);
x_23 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_23, 0, x_22);
x_4 = x_23;
goto block_11;
}
}
block_11:
{
if (lean_obj_tag(x_4) == 0)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_5 = l_RBMap_min_x21___rarg___closed__1;
x_6 = lean_unsigned_to_nat(23u);
x_7 = lean_unsigned_to_nat(12u);
x_8 = l_RBMap_min_x21___rarg___closed__2;
x_9 = l_panicWithPos___at_RBMap_max_x21___spec__1___rarg(x_1, x_2, x_5, x_6, x_7, x_8);
return x_9;
}
else
{
lean_object* x_10;
lean_dec(x_2);
lean_dec(x_1);
x_10 = lean_ctor_get(x_4, 0);
lean_inc(x_10);
lean_dec(x_4);
return x_10;
}
}
}
}
lean_object* l_RBMap_max_x21(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = lean_alloc_closure((void*)(l_RBMap_max_x21___rarg___boxed), 3, 0);
return x_4;
}
}
lean_object* l_panicWithPos___at_RBMap_max_x21___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7;
x_7 = l_panicWithPos___at_RBMap_max_x21___spec__1___rarg(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec(x_6);
lean_dec(x_3);
return x_7;
}
}
lean_object* l_RBMap_max_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_RBMap_max_x21___rarg(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* l_RBMap_max_x21___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_RBMap_max_x21(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* _init_l_RBMap_find_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("key is not in the map");
return x_1;
}
}
lean_object* l_RBMap_find_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_RBNode_find___main___rarg(x_1, lean_box(0), x_3, x_4);
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_6 = l_RBMap_min_x21___rarg___closed__1;
x_7 = lean_unsigned_to_nat(28u);
x_8 = lean_unsigned_to_nat(12u);
x_9 = l_RBMap_find_x21___rarg___closed__1;
x_10 = l_panicWithPos___rarg(x_2, x_6, x_7, x_8, x_9);
return x_10;
}
else
{
lean_object* x_11;
lean_dec(x_2);
x_11 = lean_ctor_get(x_5, 0);
lean_inc(x_11);
lean_dec(x_5);
return x_11;
}
}
}
lean_object* l_RBMap_find_x21(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_RBMap_find_x21___rarg), 4, 0);
return x_3;
}
}
lean_object* initialize_init_data_rbmap_basic(lean_object*);
lean_object* initialize_init_util(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_rbmap_basicaux(lean_object* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_rbmap_basic(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_util(w);
if (lean_io_result_is_error(w)) return w;
l_RBMap_min_x21___rarg___closed__1 = _init_l_RBMap_min_x21___rarg___closed__1();
lean_mark_persistent(l_RBMap_min_x21___rarg___closed__1);
l_RBMap_min_x21___rarg___closed__2 = _init_l_RBMap_min_x21___rarg___closed__2();
lean_mark_persistent(l_RBMap_min_x21___rarg___closed__2);
l_RBMap_find_x21___rarg___closed__1 = _init_l_RBMap_find_x21___rarg___closed__1();
lean_mark_persistent(l_RBMap_find_x21___rarg___closed__1);
return w;
}
#ifdef __cplusplus
}
#endif

8
src/stage0/init/data/rbmap/default.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.data.rbmap.default
// Imports: init.data.rbtree.default init.data.rbmap.basic
// Imports: init.data.rbmap.basic init.data.rbmap.basicaux
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -13,17 +13,17 @@
#ifdef __cplusplus
extern "C" {
#endif
lean_object* initialize_init_data_rbtree_default(lean_object*);
lean_object* initialize_init_data_rbmap_basic(lean_object*);
lean_object* initialize_init_data_rbmap_basicaux(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_data_rbmap_default(lean_object* w) {
if (_G_initialized) return w;
_G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_rbtree_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_rbmap_basic(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_rbmap_basicaux(w);
if (lean_io_result_is_error(w)) return w;
return w;
}
#ifdef __cplusplus

40
src/stage0/init/lean/class.c
View file

@ -87,7 +87,6 @@ lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
lean_object* l_HashMapImp_find___at_Lean_hasOutParams___spec__5___boxed(lean_object*, lean_object*);
lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* l_Lean_SMap_insert___at_Lean_ClassState_addEntry___spec__1(lean_object*, lean_object*, uint8_t);
lean_object* l___private_init_lean_class_2__consumeNLambdas(lean_object*, lean_object*);
lean_object* l_Array_uset(lean_object*, lean_object*, size_t, lean_object*, lean_object*);
lean_object* l_Lean_registerClassAttr___closed__4;
lean_object* l_Lean_registerClassAttr___closed__7;
@ -104,7 +103,6 @@ lean_object* l_PersistentHashMap_getCollisionNodeSize___rarg(lean_object*);
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__3(lean_object*, lean_object*);
uint8_t l_Lean_SMap_contains___at_Lean_isClass___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_SMap_empty___at_Lean_ClassState_Inhabited___spec__1___closed__2;
lean_object* l___private_init_lean_class_1__isOutParam___closed__2;
lean_object* lean_io_initializing(lean_object*);
lean_object* l_Lean_SMap_switch___at_Lean_ClassState_switch___spec__2(lean_object*);
lean_object* l_AssocList_contains___main___at_Lean_ClassState_addEntry___spec__7___boxed(lean_object*, lean_object*);
@ -121,7 +119,6 @@ lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_
lean_object* l_PersistentHashMap_find___at_Lean_hasOutParams___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_ClassEntry_getName(lean_object*);
lean_object* l_PersistentHashMap_mkCollisionNode___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_lean_class_2__consumeNLambdas___main(lean_object*, lean_object*);
lean_object* l_HashMapImp_contains___at_Lean_isInstance___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_getClassName(lean_object*, lean_object*);
lean_object* l_Lean_hasOutParams___boxed(lean_object*, lean_object*);
@ -146,7 +143,6 @@ lean_object* l_Lean_classExtension___closed__1;
lean_object* l_Lean_mkClassExtension___closed__3;
lean_object* l_AssocList_contains___main___at_Lean_ClassState_addEntry___spec__35___boxed(lean_object*, lean_object*);
size_t l_USize_add(size_t, size_t);
lean_object* l___private_init_lean_class_1__isOutParam___closed__1;
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_ClassState_addEntry___spec__15___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_ClassState_addEntry___spec__21(lean_object*, lean_object*, lean_object*, lean_object*);
@ -168,11 +164,13 @@ lean_object* l_mkHashMap___at_Lean_ClassState_Inhabited___spec__4(lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
uint8_t lean_has_out_params(lean_object*, lean_object*);
lean_object* l_HashMapImp_expand___at_Lean_ClassState_addEntry___spec__8(lean_object*, lean_object*);
lean_object* l_Lean_isOutParam___closed__1;
lean_object* l_Array_push(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___closed__1;
lean_object* l_Lean_SMap_empty___at_Lean_ClassState_Inhabited___spec__5;
lean_object* l_Lean_registerInstanceAttr___lambda__1___closed__2;
extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
lean_object* l_Lean_isOutParam___closed__2;
lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkClassExtension___spec__4(lean_object*, lean_object*);
lean_object* l_AssocList_find___main___at_Lean_ClassState_addEntry___spec__17___boxed(lean_object*, lean_object*);
uint8_t l_HashMapImp_contains___at_Lean_isClass___spec__2(lean_object*, lean_object*);
@ -183,6 +181,7 @@ lean_object* l_Lean_classExtension___elambda__4(lean_object*);
lean_object* l_AssocList_find___main___at_Lean_ClassState_addEntry___spec__17(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_ClassState_addEntry___spec__22___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_isOutParam___boxed(lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_mkClassExtension___spec__6(lean_object*, lean_object*, lean_object*);
lean_object* l_mkHashMap___at_Lean_ClassState_Inhabited___spec__2(lean_object*);
lean_object* l_Lean_mkStateFromImportedEntries___at_Lean_mkClassExtension___spec__1___boxed(lean_object*, lean_object*);
@ -214,11 +213,11 @@ lean_object* l_HashMapImp_expand___at_Lean_ClassState_addEntry___spec__36(lean_o
lean_object* lean_get_class_instances(lean_object*, lean_object*);
extern lean_object* l_PersistentHashMap_insertAux___main___rarg___closed__3;
lean_object* l_Array_size(lean_object*, lean_object*);
uint8_t lean_is_out_param(lean_object*);
lean_object* l_HashMapImp_find___at_Lean_ClassState_addEntry___spec__16(lean_object*, lean_object*);
lean_object* l_Lean_addClass___closed__1;
lean_object* l_Lean_classExtension___elambda__2___boxed(lean_object*);
lean_object* l_HashMapImp_insert___at_Lean_ClassState_addEntry___spec__23(lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_lean_class_1__isOutParam___boxed(lean_object*);
lean_object* l_PersistentHashMap_find___at_Lean_ClassState_addEntry___spec__13___boxed(lean_object*, lean_object*);
lean_object* l_Lean_SMap_empty___at_Lean_ClassState_Inhabited___spec__5___closed__2;
lean_object* l_Array_get(lean_object*, lean_object*, lean_object*);
@ -239,7 +238,6 @@ extern lean_object* l_Lean_Name_toString___closed__1;
lean_object* l_mkHashMap___at_Lean_ClassState_Inhabited___spec__6(lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Lean_classExtension;
uint8_t lean_is_out_param(lean_object*);
uint8_t lean_is_instance(lean_object*, lean_object*);
lean_object* l_Lean_mkClassExtension(lean_object*);
lean_object* l_PersistentHashMap_findAux___main___at_Lean_hasOutParams___spec__3___boxed(lean_object*, lean_object*, lean_object*);
@ -252,6 +250,7 @@ lean_object* l_Lean_registerInstanceAttr___closed__2;
lean_object* l_Lean_classExtension___elambda__1(lean_object*);
lean_object* l_Lean_registerClassAttr___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find___at_Lean_hasOutParams___spec__2___boxed(lean_object*, lean_object*);
lean_object* l___private_init_lean_class_1__consumeNLambdas(lean_object*, lean_object*);
lean_object* l_Array_set(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_IO_ofExcept___at_Lean_registerClassAttr___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_SMap_find___at_Lean_hasOutParams___spec__1(lean_object*, lean_object*);
@ -280,6 +279,7 @@ extern lean_object* l___private_init_lean_environment_5__envExtensionsRef;
lean_object* l_Lean_classExtension___closed__5;
lean_object* l_Lean_registerInstanceAttr(lean_object*);
lean_object* l_Lean_registerInstanceAttr___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_init_lean_class_1__consumeNLambdas___main(lean_object*, lean_object*);
lean_object* l_HashMapImp_moveEntries___main___at_Lean_ClassState_addEntry___spec__9(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
@ -6549,7 +6549,7 @@ x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* _init_l___private_init_lean_class_1__isOutParam___closed__1() {
lean_object* _init_l_Lean_isOutParam___closed__1() {
_start:
{
lean_object* x_1;
@ -6557,12 +6557,12 @@ x_1 = lean_mk_string("outParam");
return x_1;
}
}
lean_object* _init_l___private_init_lean_class_1__isOutParam___closed__2() {
lean_object* _init_l_Lean_isOutParam___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_init_lean_class_1__isOutParam___closed__1;
x_2 = l_Lean_isOutParam___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
@ -6571,14 +6571,14 @@ uint8_t lean_is_out_param(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4;
x_2 = l___private_init_lean_class_1__isOutParam___closed__2;
x_2 = l_Lean_isOutParam___closed__2;
x_3 = lean_unsigned_to_nat(1u);
x_4 = l_Lean_Expr_isAppOfArity___main(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l___private_init_lean_class_1__isOutParam___boxed(lean_object* x_1) {
lean_object* l_Lean_isOutParam___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
@ -6727,7 +6727,7 @@ return x_25;
}
}
}
lean_object* l___private_init_lean_class_2__consumeNLambdas___main(lean_object* x_1, lean_object* x_2) {
lean_object* l___private_init_lean_class_1__consumeNLambdas___main(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; uint8_t x_4;
@ -6767,11 +6767,11 @@ return x_10;
}
}
}
lean_object* l___private_init_lean_class_2__consumeNLambdas(lean_object* x_1, lean_object* x_2) {
lean_object* l___private_init_lean_class_1__consumeNLambdas(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l___private_init_lean_class_2__consumeNLambdas___main(x_1, x_2);
x_3 = l___private_init_lean_class_1__consumeNLambdas___main(x_1, x_2);
return x_3;
}
}
@ -6845,7 +6845,7 @@ lean_inc(x_14);
lean_dec(x_11);
x_15 = lean_unsigned_to_nat(0u);
x_16 = l_Lean_Expr_getAppNumArgsAux___main(x_2, x_15);
x_17 = l___private_init_lean_class_2__consumeNLambdas___main(x_16, x_14);
x_17 = l___private_init_lean_class_1__consumeNLambdas___main(x_16, x_14);
if (lean_obj_tag(x_17) == 0)
{
lean_object* x_18;
@ -6902,7 +6902,7 @@ lean_inc(x_26);
lean_dec(x_22);
x_27 = lean_unsigned_to_nat(0u);
x_28 = l_Lean_Expr_getAppNumArgsAux___main(x_2, x_27);
x_29 = l___private_init_lean_class_2__consumeNLambdas___main(x_28, x_26);
x_29 = l___private_init_lean_class_1__consumeNLambdas___main(x_28, x_26);
if (lean_obj_tag(x_29) == 0)
{
lean_object* x_30;
@ -7604,10 +7604,10 @@ w = l_Lean_mkClassExtension(w);
if (lean_io_result_is_error(w)) return w;
l_Lean_classExtension = lean_io_result_get_value(w);
lean_mark_persistent(l_Lean_classExtension);
l___private_init_lean_class_1__isOutParam___closed__1 = _init_l___private_init_lean_class_1__isOutParam___closed__1();
lean_mark_persistent(l___private_init_lean_class_1__isOutParam___closed__1);
l___private_init_lean_class_1__isOutParam___closed__2 = _init_l___private_init_lean_class_1__isOutParam___closed__2();
lean_mark_persistent(l___private_init_lean_class_1__isOutParam___closed__2);
l_Lean_isOutParam___closed__1 = _init_l_Lean_isOutParam___closed__1();
lean_mark_persistent(l_Lean_isOutParam___closed__1);
l_Lean_isOutParam___closed__2 = _init_l_Lean_isOutParam___closed__2();
lean_mark_persistent(l_Lean_isOutParam___closed__2);
l_Lean_addClass___closed__1 = _init_l_Lean_addClass___closed__1();
lean_mark_persistent(l_Lean_addClass___closed__1);
l_Lean_addClass___closed__2 = _init_l_Lean_addClass___closed__2();

2
src/stage0/init/lean/compiler/ir/basic.c
View file

@ -2152,7 +2152,7 @@ lean_dec(x_2);
x_5 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__2;
x_6 = lean_string_append(x_4, x_5);
x_7 = l___private_init_data_array_basic_1__swapAtPanic_x21___rarg___closed__3;
x_8 = lean_unsigned_to_nat(133u);
x_8 = lean_unsigned_to_nat(140u);
x_9 = lean_unsigned_to_nat(0u);
x_10 = l_panicWithPos___at_Lean_IR_reshapeAux___main___spec__2(x_7, x_8, x_9, x_6);
lean_dec(x_6);

718
src/stage0/init/lean/compiler/ir/format.c
View file

File diff suppressed because it is too large Load diff

7528
src/stage0/init/lean/compiler/ir/unreachbranches.c Normal file
View file

File diff suppressed because it is too large Load diff

4
src/stage0/init/lean/elaborator/basic.c
View file

@ -395,7 +395,6 @@ extern lean_object* l_Lean_nameToExprAux___main___closed__4;
lean_object* l_Lean_Elab_logMessage___boxed(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_HashMapImp_expand___at_Lean_addBuiltinCommandElab___spec__12(lean_object*, lean_object*);
extern lean_object* l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2;
lean_object* l_AssocList_mfoldl___main___at_Lean_addBuiltinTermElab___spec__15(lean_object*, lean_object*);
lean_object* l_Lean_ElabAttribute_Inhabited___rarg(lean_object*);
lean_object* l_Lean_Elab_getScope___boxed(lean_object*);
@ -461,6 +460,7 @@ lean_object* l_Lean_Elab_rootNamespace___closed__1;
lean_object* l_Lean_Elab_mkFreshName___rarg(lean_object*);
lean_object* l_Lean_LocalContext_mkForall(lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_init_lean_environment_5__envExtensionsRef;
extern lean_object* l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3;
lean_object* l_Lean_Elab_processHeaderAux___closed__1;
lean_object* l_Lean_Elab_runElab___at_Lean_Elab_processCommand___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insert___at_Lean_addBuiltinTermElab___spec__8(lean_object*, lean_object*, lean_object*);
@ -13499,7 +13499,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_mkInitAttr___closed__2;
x_2 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2;
x_2 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}

354
src/stage0/init/lean/expr.c
View file

@ -23,24 +23,30 @@ uint8_t lean_name_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn(lean_object*);
lean_object* l_Lean_mkBinApp(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MData_empty;
lean_object* l_Lean_Expr_constName(lean_object*);
lean_object* lean_expr_mk_sort(lean_object*);
lean_object* l_Lean_Expr_pi___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_isLambda___boxed(lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isSort(lean_object*);
uint8_t l_Lean_Expr_isConst(lean_object*);
lean_object* l_Lean_Expr_bvarIdx(lean_object*);
lean_object* l_Lean_Expr_HasBeq___closed__1;
lean_object* l_Lean_Expr_isAppOfArity___main___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_exprIsInhabited;
size_t lean_expr_hash(lean_object*);
lean_object* lean_expr_dbg_to_string(lean_object*);
lean_object* l_Lean_Expr_constName___boxed(lean_object*);
lean_object* l_Lean_mkApp(lean_object*, lean_object*);
lean_object* l_Lean_Expr_instantiate1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_eqv___boxed(lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsTrue___closed__4;
lean_object* lean_expr_mk_pi(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Expr_isBVar___boxed(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_constName___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_instantiate(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_fvarName___closed__1;
lean_object* lean_expr_local(lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* lean_expr_mk_app(lean_object*, lean_object*);
lean_object* l_Lean_Expr_quickLt___boxed(lean_object*, lean_object*);
@ -50,8 +56,10 @@ lean_object* lean_expr_mk_let(lean_object*, lean_object*, lean_object*, lean_obj
lean_object* l_Lean_BinderInfo_isInstImplicit___boxed(lean_object*);
lean_object* lean_expr_instantiate1(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn___main(lean_object*);
extern lean_object* l_Lean_Inhabited;
lean_object* l_Lean_mkDecIsFalse___closed__1;
lean_object* l_Lean_Expr_isAppOfArity___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_constLevels___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsTrue___closed__3;
lean_object* l_Lean_mkConst(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*);
@ -62,18 +70,27 @@ lean_object* lean_expr_mk_fvar(lean_object*);
lean_object* l_List_foldl___main___at_Lean_mkApp___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_BinderInfo_beq___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isLet(lean_object*);
lean_object* l_Lean_Expr_bvarIdx___boxed(lean_object*);
lean_object* l_Nat_repr(lean_object*);
lean_object* l_Lean_Expr_getAppArgsAux(lean_object*, lean_object*);
lean_object* lean_expr_mk_proj(lean_object*, lean_object*, lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__3;
lean_object* lean_expr_mk_const(lean_object*, lean_object*);
lean_object* l_Lean_Expr_constName___closed__1;
lean_object* l_Lean_Expr_bvar___boxed(lean_object*);
lean_object* l_Lean_Expr_Hashable___closed__1;
uint8_t lean_expr_eqv(lean_object*, lean_object*);
lean_object* l_Lean_MData_HasEmptyc;
lean_object* l_Lean_Expr_constLevels___boxed(lean_object*);
lean_object* l_Lean_Expr_isApp___boxed(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_constLevels___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_bindingDomain(lean_object*);
lean_object* l_Lean_BinderInfo_HasBeq;
lean_object* l_Lean_Expr_dbgToString___boxed(lean_object*);
lean_object* l_Lean_Expr_instantiateRev___boxed(lean_object*, lean_object*);
lean_object* lean_string_append(lean_object*, lean_object*);
lean_object* l_Lean_Expr_constLevels___closed__1;
lean_object* l_Lean_Expr_constName___closed__2;
lean_object* l_Lean_Expr_getAppArgsAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_instantiate___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isForall(lean_object*);
@ -90,8 +107,11 @@ uint8_t l_Lean_BinderInfo_beq(uint8_t, uint8_t);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_Expr_app___boxed(lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsTrue___closed__2;
extern lean_object* l_panicWithPos___rarg___closed__1;
lean_object* l_Lean_Expr_getAppArgs(lean_object*);
lean_object* l_Lean_Expr_getAppFn___main___boxed(lean_object*);
uint8_t l_Lean_Expr_isFVar(lean_object*);
lean_object* l_Lean_Expr_fvarName___boxed(lean_object*);
uint8_t l_Lean_BinderInfo_isInstImplicit(uint8_t);
lean_object* l_Lean_Expr_getAppArgsAux___main(lean_object*, lean_object*);
lean_object* lean_expr_instantiate_rev(lean_object*, lean_object*);
@ -102,9 +122,11 @@ lean_object* l_Lean_Expr_HasToString;
uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_isBinding(lean_object*);
lean_object* lean_expr_mk_mvar(lean_object*);
uint8_t l_Lean_Expr_isMVar(lean_object*);
lean_object* lean_expr_mk_bvar(lean_object*);
lean_object* l_Lean_Expr_bindingDomain___boxed(lean_object*);
lean_object* lean_expr_abstract_range(lean_object*, lean_object*, lean_object*);
lean_object* l_panic(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_proj___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_BinderInfo_HasBeq___closed__1;
uint8_t lean_expr_lt(lean_object*, lean_object*);
@ -114,18 +136,24 @@ lean_object* l_Lean_mkDecIsTrue(lean_object*, lean_object*);
lean_object* l_Lean_Expr_abstract___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isAppOf(lean_object*, lean_object*);
lean_object* l_Lean_Expr_const___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_constLevels(lean_object*);
uint8_t lean_expr_has_mvar(lean_object*);
lean_object* l_Lean_Expr_isFVar___boxed(lean_object*);
lean_object* l_Lean_Expr_abstractRange___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_fvar___boxed(lean_object*);
lean_object* lean_expr_mk_lambda(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Expr_mdata___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_bvarIdx___closed__1;
extern lean_object* l_panicWithPos___rarg___closed__2;
lean_object* l_Lean_Expr_HasBeq;
uint8_t l_Lean_Expr_isBVar(lean_object*);
lean_object* l_Lean_Expr_isBinding___boxed(lean_object*);
lean_object* l_Lean_Expr_Hashable;
lean_object* l_Lean_Expr_getAppNumArgs___boxed(lean_object*);
lean_object* l_Lean_Expr_bindingBody___boxed(lean_object*);
lean_object* l_Lean_Expr_mvar___boxed(lean_object*);
lean_object* lean_expr_abstract(lean_object*, lean_object*);
lean_object* l_Lean_Expr_fvarName(lean_object*);
lean_object* l_Lean_Expr_isSort___boxed(lean_object*);
lean_object* l_Lean_Expr_local___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_isLet___boxed(lean_object*);
@ -133,6 +161,8 @@ lean_object* l_Lean_Expr_getAppFn___boxed(lean_object*);
uint8_t l_Lean_Expr_isAppOfArity(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_isForall___boxed(lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux(lean_object*, lean_object*);
lean_object* l_Lean_Expr_isMVar___boxed(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_constName___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsFalse___closed__3;
lean_object* l_Lean_exprIsInhabited___closed__1;
lean_object* lean_expr_mk_lit(lean_object*);
@ -141,6 +171,7 @@ lean_object* l_Lean_Expr_getAppArgs___boxed(lean_object*);
lean_object* l_Lean_Expr_isConst___boxed(lean_object*);
lean_object* l_Lean_Expr_lt___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isLambda(lean_object*);
lean_object* l_panicWithPos___at_Array_findIdx_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_BinderInfo_isInstImplicit(uint8_t x_1) {
_start:
{
@ -613,6 +644,87 @@ x_3 = lean_box(x_2);
return x_3;
}
}
uint8_t l_Lean_Expr_isBVar(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
uint8_t x_2;
x_2 = 1;
return x_2;
}
else
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
}
}
lean_object* l_Lean_Expr_isBVar___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = l_Lean_Expr_isBVar(x_1);
lean_dec(x_1);
x_3 = lean_box(x_2);
return x_3;
}
}
uint8_t l_Lean_Expr_isMVar(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 2)
{
uint8_t x_2;
x_2 = 1;
return x_2;
}
else
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
}
}
lean_object* l_Lean_Expr_isMVar___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = l_Lean_Expr_isMVar(x_1);
lean_dec(x_1);
x_3 = lean_box(x_2);
return x_3;
}
}
uint8_t l_Lean_Expr_isFVar(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 1)
{
uint8_t x_2;
x_2 = 1;
return x_2;
}
else
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
}
}
lean_object* l_Lean_Expr_isFVar___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = l_Lean_Expr_isFVar(x_1);
lean_dec(x_1);
x_3 = lean_box(x_2);
return x_3;
}
}
uint8_t l_Lean_Expr_isApp(lean_object* x_1) {
_start:
{
@ -1079,6 +1191,238 @@ x_5 = lean_box(x_4);
return x_5;
}
}
lean_object* l_panicWithPos___at_Lean_Expr_constName___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_5 = l_panicWithPos___rarg___closed__1;
x_6 = lean_string_append(x_5, x_1);
x_7 = l_panicWithPos___rarg___closed__2;
x_8 = lean_string_append(x_6, x_7);
x_9 = l_Nat_repr(x_2);
x_10 = lean_string_append(x_8, x_9);
lean_dec(x_9);
x_11 = l_panicWithPos___rarg___closed__2;
x_12 = lean_string_append(x_10, x_11);
x_13 = l_Nat_repr(x_3);
x_14 = lean_string_append(x_12, x_13);
lean_dec(x_13);
x_15 = l_panicWithPos___rarg___closed__3;
x_16 = lean_string_append(x_14, x_15);
x_17 = lean_string_append(x_16, x_4);
x_18 = l_Lean_Inhabited;
x_19 = lean_panic_fn(x_17);
return x_19;
}
}
lean_object* _init_l_Lean_Expr_constName___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("/Users/leonardodemoura/projects/lean4/library/init/lean/expr.lean");
return x_1;
}
}
lean_object* _init_l_Lean_Expr_constName___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("constName called on non-const");
return x_1;
}
}
lean_object* l_Lean_Expr_constName(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 4)
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
return x_2;
}
else
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = l_Lean_Expr_constName___closed__1;
x_4 = lean_unsigned_to_nat(181u);
x_5 = lean_unsigned_to_nat(15u);
x_6 = l_Lean_Expr_constName___closed__2;
x_7 = l_panicWithPos___at_Lean_Expr_constName___spec__1(x_3, x_4, x_5, x_6);
return x_7;
}
}
}
lean_object* l_panicWithPos___at_Lean_Expr_constName___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_panicWithPos___at_Lean_Expr_constName___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_4);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_Expr_constName___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Expr_constName(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_panicWithPos___at_Lean_Expr_constLevels___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_5 = lean_box(0);
x_6 = l_panicWithPos___rarg___closed__1;
x_7 = lean_string_append(x_6, x_1);
x_8 = l_panicWithPos___rarg___closed__2;
x_9 = lean_string_append(x_7, x_8);
x_10 = l_Nat_repr(x_2);
x_11 = lean_string_append(x_9, x_10);
lean_dec(x_10);
x_12 = l_panicWithPos___rarg___closed__2;
x_13 = lean_string_append(x_11, x_12);
x_14 = l_Nat_repr(x_3);
x_15 = lean_string_append(x_13, x_14);
lean_dec(x_14);
x_16 = l_panicWithPos___rarg___closed__3;
x_17 = lean_string_append(x_15, x_16);
x_18 = lean_string_append(x_17, x_4);
x_19 = lean_panic_fn(x_18);
return x_19;
}
}
lean_object* _init_l_Lean_Expr_constLevels___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("constLevels called on non-const");
return x_1;
}
}
lean_object* l_Lean_Expr_constLevels(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 4)
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 1);
lean_inc(x_2);
return x_2;
}
else
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = l_Lean_Expr_constName___closed__1;
x_4 = lean_unsigned_to_nat(185u);
x_5 = lean_unsigned_to_nat(16u);
x_6 = l_Lean_Expr_constLevels___closed__1;
x_7 = l_panicWithPos___at_Lean_Expr_constLevels___spec__1(x_3, x_4, x_5, x_6);
return x_7;
}
}
}
lean_object* l_panicWithPos___at_Lean_Expr_constLevels___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_panicWithPos___at_Lean_Expr_constLevels___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_4);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_Expr_constLevels___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Expr_constLevels(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Expr_bvarIdx___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("bvarIdx called on non-bvar");
return x_1;
}
}
lean_object* l_Lean_Expr_bvarIdx(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
return x_2;
}
else
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = l_Lean_Expr_constName___closed__1;
x_4 = lean_unsigned_to_nat(189u);
x_5 = lean_unsigned_to_nat(7u);
x_6 = l_Lean_Expr_bvarIdx___closed__1;
x_7 = l_panicWithPos___at_Array_findIdx_x21___spec__1(x_3, x_4, x_5, x_6);
return x_7;
}
}
}
lean_object* l_Lean_Expr_bvarIdx___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Expr_bvarIdx(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* _init_l_Lean_Expr_fvarName___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("fvarName called on non-fvar");
return x_1;
}
}
lean_object* l_Lean_Expr_fvarName(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 1)
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
return x_2;
}
else
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = l_Lean_Expr_constName___closed__1;
x_4 = lean_unsigned_to_nat(193u);
x_5 = lean_unsigned_to_nat(7u);
x_6 = l_Lean_Expr_fvarName___closed__1;
x_7 = l_panicWithPos___at_Lean_Expr_constName___spec__1(x_3, x_4, x_5, x_6);
return x_7;
}
}
}
lean_object* l_Lean_Expr_fvarName___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Expr_fvarName(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_Expr_bindingDomain(lean_object* x_1) {
_start:
{
@ -1365,6 +1709,16 @@ l_Lean_Expr_HasBeq___closed__1 = _init_l_Lean_Expr_HasBeq___closed__1();
lean_mark_persistent(l_Lean_Expr_HasBeq___closed__1);
l_Lean_Expr_HasBeq = _init_l_Lean_Expr_HasBeq();
lean_mark_persistent(l_Lean_Expr_HasBeq);
l_Lean_Expr_constName___closed__1 = _init_l_Lean_Expr_constName___closed__1();
lean_mark_persistent(l_Lean_Expr_constName___closed__1);
l_Lean_Expr_constName___closed__2 = _init_l_Lean_Expr_constName___closed__2();
lean_mark_persistent(l_Lean_Expr_constName___closed__2);
l_Lean_Expr_constLevels___closed__1 = _init_l_Lean_Expr_constLevels___closed__1();
lean_mark_persistent(l_Lean_Expr_constLevels___closed__1);
l_Lean_Expr_bvarIdx___closed__1 = _init_l_Lean_Expr_bvarIdx___closed__1();
lean_mark_persistent(l_Lean_Expr_bvarIdx___closed__1);
l_Lean_Expr_fvarName___closed__1 = _init_l_Lean_Expr_fvarName___closed__1();
lean_mark_persistent(l_Lean_Expr_fvarName___closed__1);
l_Lean_Expr_HasToString___closed__1 = _init_l_Lean_Expr_HasToString___closed__1();
lean_mark_persistent(l_Lean_Expr_HasToString___closed__1);
l_Lean_Expr_HasToString = _init_l_Lean_Expr_HasToString();

50
src/stage0/init/lean/level.c
View file

@ -21,12 +21,15 @@ extern lean_object* l_Lean_Format_paren___closed__2;
lean_object* l_Lean_Level_instantiate(lean_object*, lean_object*);
lean_object* l_Lean_LevelToFormat_Result_format___main___closed__4;
lean_object* l_Lean_LevelToFormat_parenIfFalse(lean_object*, uint8_t);
uint8_t l_Lean_Level_hasMVar(lean_object*);
lean_object* l_Lean_Level_eqv___boxed(lean_object*, lean_object*);
lean_object* l___private_init_lean_level_1__formatLst___main___at_Lean_LevelToFormat_Result_format___main___spec__2(lean_object*);
lean_object* l_Lean_Level_hasMVar___boxed(lean_object*);
lean_object* l_Lean_LevelToFormat_Result_format___main___closed__3;
lean_object* l_Lean_LevelToFormat_Result_max(lean_object*, lean_object*);
lean_object* l_Lean_LevelToFormat_Result_format___main___closed__2;
lean_object* l_Lean_LevelToFormat_Level_toResult(lean_object*);
uint8_t l_Lean_Level_hasMVar___main(lean_object*);
lean_object* level_mk_mvar(lean_object*);
lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_HasBeq___closed__1;
@ -87,16 +90,15 @@ lean_object* l_Lean_Level_toNat___main___closed__1;
lean_object* l_Lean_LevelToFormat_Result_imax(lean_object*, lean_object*);
lean_object* l_Lean_Level_addOffsetAux___main(lean_object*, lean_object*);
lean_object* l_Lean_Level_addOffset(lean_object*, lean_object*);
lean_object* l_Lean_Level_hasMVar___main___boxed(lean_object*);
lean_object* l_Lean_Level_succ___boxed(lean_object*);
lean_object* l_Lean_LevelToFormat_levelHasFormat;
lean_object* l_Lean_LevelToFormat_Result_format(lean_object*, uint8_t);
lean_object* l_Lean_Level_hasMvar___boxed(lean_object*);
lean_object* l_Lean_LevelToFormat_Result_format___main___closed__6;
lean_object* l_Nat_max(lean_object*, lean_object*);
lean_object* l_Lean_Level_hash___boxed(lean_object*);
lean_object* level_mk_max(lean_object*, lean_object*);
lean_object* l_Lean_levelIsInhabited;
uint8_t l_Lean_Level_hasMvar(lean_object*);
lean_object* l_Lean_Level_succ___boxed(lean_object* x_1) {
_start:
{
@ -252,28 +254,27 @@ x_3 = lean_box(x_2);
return x_3;
}
}
uint8_t l_Lean_Level_hasMvar(lean_object* x_1) {
uint8_t l_Lean_Level_hasMVar___main(lean_object* x_1) {
_start:
{
switch (lean_obj_tag(x_1)) {
case 1:
{
lean_object* x_2; uint8_t x_3;
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 0);
x_3 = l_Lean_Level_hasParam___main(x_2);
return x_3;
x_1 = x_2;
goto _start;
}
case 2:
{
lean_object* x_4; lean_object* x_5; uint8_t x_6;
x_4 = lean_ctor_get(x_1, 0);
x_5 = lean_ctor_get(x_1, 1);
x_6 = l_Lean_Level_hasParam___main(x_4);
x_6 = l_Lean_Level_hasMVar___main(x_4);
if (x_6 == 0)
{
uint8_t x_7;
x_7 = l_Lean_Level_hasParam___main(x_5);
return x_7;
x_1 = x_5;
goto _start;
}
else
{
@ -287,12 +288,11 @@ case 3:
lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_9 = lean_ctor_get(x_1, 0);
x_10 = lean_ctor_get(x_1, 1);
x_11 = l_Lean_Level_hasParam___main(x_9);
x_11 = l_Lean_Level_hasMVar___main(x_9);
if (x_11 == 0)
{
uint8_t x_12;
x_12 = l_Lean_Level_hasParam___main(x_10);
return x_12;
x_1 = x_10;
goto _start;
}
else
{
@ -316,11 +316,29 @@ return x_15;
}
}
}
lean_object* l_Lean_Level_hasMvar___boxed(lean_object* x_1) {
lean_object* l_Lean_Level_hasMVar___main___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = l_Lean_Level_hasMvar(x_1);
x_2 = l_Lean_Level_hasMVar___main(x_1);
lean_dec(x_1);
x_3 = lean_box(x_2);
return x_3;
}
}
uint8_t l_Lean_Level_hasMVar(lean_object* x_1) {
_start:
{
uint8_t x_2;
x_2 = l_Lean_Level_hasMVar___main(x_1);
return x_2;
}
}
lean_object* l_Lean_Level_hasMVar___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = l_Lean_Level_hasMVar(x_1);
lean_dec(x_1);
x_3 = lean_box(x_2);
return x_3;

24
src/stage0/init/lean/localcontext.c
View file

@ -110,7 +110,6 @@ lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_foldlFrom___spec_
lean_object* l_PersistentHashMap_getCollisionNodeSize___rarg(lean_object*);
lean_object* l_Lean_LocalContext_mfindDeclRev___at_Lean_LocalContext_findDeclRev___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mfoldl___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_local_ctx_get(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_erase___at_Lean_LocalContext_erase___spec__1(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldlFrom___at_Lean_LocalContext_mfoldlFrom___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -159,6 +158,7 @@ lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_foldl___spec__4__
size_t l_USize_add(size_t, size_t);
lean_object* l_PersistentArray_mfoldl___at_Lean_LocalContext_foldl___spec__2___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Lean_LocalContext_mfindDecl___spec__5___boxed(lean_object*);
lean_object* l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfindRevAux___main___at_Lean_LocalContext_findDeclRev___spec__4(lean_object*);
lean_object* l_Lean_LocalContext_mfindDeclRev___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -184,6 +184,7 @@ uint8_t l_Lean_LocalDecl_binderInfo(lean_object*);
lean_object* l_Array_mforAux___main___at_Lean_LocalContext_mfor___spec__4(lean_object*);
lean_object* l_PersistentArray_mfoldlFrom___at_Lean_LocalContext_mfoldlFrom___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* lean_local_ctx_get(lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mkBinding___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Lean_LocalContext_mfindDeclRev___spec__2(lean_object*);
lean_object* l_PersistentHashMap_findAux___main___at_Lean_LocalContext_find___spec__2(lean_object*, size_t, lean_object*);
@ -263,7 +264,6 @@ lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_mfoldl___spec__5(
lean_object* l_Array_mfindRevAux___main___at_Lean_LocalContext_mfindDeclRev___spec__2___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_LocalContext_isSubPrefixOf(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_isUnaryNode___rarg(lean_object*);
lean_object* l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_foldlFrom___spec__8___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_foldl___spec__4(lean_object*);
@ -289,7 +289,6 @@ lean_object* l_Lean_LocalContext_foldl___rarg___boxed(lean_object*, lean_object*
lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_foldl___spec__6___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfindRev___at_Lean_LocalContext_findFromUserName___spec__1(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfindAux___main___at_Lean_LocalContext_findDecl___spec__3(lean_object*);
lean_object* l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Lean_LocalContext_findDeclRev___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Lean_LocalContext_findDecl___spec__6(lean_object*);
@ -350,6 +349,7 @@ lean_object* l_Lean_LocalContext_mkForall(lean_object*, lean_object*, lean_objec
extern lean_object* l_Lean_exprIsInhabited___closed__1;
lean_object* l_PersistentHashMap_find___at_Lean_LocalContext_find___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_PersistentArray_mfindRevAux___main___at_Lean_LocalContext_findFromUserName___spec__3(lean_object*, lean_object*);
lean_object* l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Lean_LocalContext_findFromUserName___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_foldlFrom___spec__10___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Lean_LocalContext_findDeclRev___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -1570,7 +1570,7 @@ return x_19;
}
}
}
lean_object* l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(lean_object* x_1, lean_object* x_2) {
lean_object* l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; uint8_t x_5;
@ -1620,7 +1620,7 @@ x_5 = lean_unsigned_to_nat(1u);
x_6 = lean_nat_sub(x_2, x_5);
lean_dec(x_2);
lean_inc(x_1);
x_7 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_1, x_6);
x_7 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_1, x_6);
lean_dec(x_6);
if (lean_obj_tag(x_7) == 0)
{
@ -1654,11 +1654,11 @@ x_6 = l_PersistentArray_getAux___main___at___private_init_lean_localcontext_1__p
return x_6;
}
}
lean_object* l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_1, x_2);
x_3 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_1, x_2);
lean_dec(x_2);
return x_3;
}
@ -2451,7 +2451,7 @@ x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
lean_inc(x_3);
x_9 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_3, x_8);
x_9 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_3, x_8);
lean_dec(x_8);
if (lean_obj_tag(x_9) == 0)
{
@ -2862,7 +2862,7 @@ lean_inc(x_3);
x_4 = lean_unsigned_to_nat(1u);
x_5 = lean_nat_sub(x_3, x_4);
lean_dec(x_3);
x_6 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_2, x_5);
x_6 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_2, x_5);
lean_dec(x_5);
return x_6;
}
@ -2986,7 +2986,7 @@ lean_object* x_3; lean_object* x_4;
x_3 = lean_ctor_get(x_1, 1);
lean_inc(x_3);
lean_dec(x_1);
x_4 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_3, x_2);
x_4 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_3, x_2);
lean_dec(x_2);
return x_4;
}
@ -6461,7 +6461,7 @@ else
{
lean_object* x_11;
lean_inc(x_1);
x_11 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_1, x_3);
x_11 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_1, x_3);
if (lean_obj_tag(x_11) == 0)
{
lean_object* x_12; lean_object* x_13;
@ -6478,7 +6478,7 @@ x_15 = lean_ctor_get(x_11, 0);
lean_inc(x_15);
lean_dec(x_11);
lean_inc(x_2);
x_16 = l_PersistentArray_get___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_2, x_4);
x_16 = l_PersistentArray_get_x21___at___private_init_lean_localcontext_1__popTailNoneAux___main___spec__1(x_2, x_4);
if (lean_obj_tag(x_16) == 0)
{
lean_object* x_17; lean_object* x_18;

276
src/stage0/init/lean/path.c
View file

@ -121,6 +121,7 @@ lean_object* l_String_quote(lean_object*);
lean_object* l_Lean_mkSearchPathRef(lean_object*);
lean_object* l_Lean_getBuiltinSearchPath___closed__3;
extern lean_object* l_List_repr___rarg___closed__1;
lean_object* l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3;
lean_object* l_Lean_getBuiltinSearchPath(lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
lean_object* l_Array_mfindAux___main___at_Lean_findAtSearchPath___spec__1___boxed(lean_object*, lean_object*, lean_object*);
@ -1961,6 +1962,14 @@ lean_object* _init_l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("Default");
return x_1;
}
}
lean_object* _init_l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("default");
return x_1;
}
@ -2001,143 +2010,224 @@ return x_22;
}
else
{
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52;
lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72;
x_23 = lean_array_fget(x_3, x_4);
x_24 = l___private_init_lean_path_1__pathSep;
x_25 = lean_string_append(x_23, x_24);
x_26 = lean_string_append(x_25, x_2);
x_49 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1;
x_69 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1;
lean_inc(x_26);
x_50 = lean_string_append(x_26, x_49);
x_51 = lean_string_append(x_50, x_1);
x_52 = lean_io_file_exists(x_51, x_5);
if (lean_obj_tag(x_52) == 0)
x_70 = lean_string_append(x_26, x_69);
x_71 = lean_string_append(x_70, x_1);
x_72 = lean_io_file_exists(x_71, x_5);
if (lean_obj_tag(x_72) == 0)
{
lean_object* x_53; uint8_t x_54;
x_53 = lean_ctor_get(x_52, 0);
lean_inc(x_53);
x_54 = lean_unbox(x_53);
lean_dec(x_53);
if (x_54 == 0)
lean_object* x_73; uint8_t x_74;
x_73 = lean_ctor_get(x_72, 0);
lean_inc(x_73);
x_74 = lean_unbox(x_73);
lean_dec(x_73);
if (x_74 == 0)
{
lean_object* x_55; lean_object* x_56;
lean_dec(x_51);
x_55 = lean_ctor_get(x_52, 1);
lean_inc(x_55);
lean_dec(x_52);
x_56 = lean_box(0);
x_27 = x_56;
x_28 = x_55;
goto block_48;
lean_object* x_75; lean_object* x_76;
lean_dec(x_71);
x_75 = lean_ctor_get(x_72, 1);
lean_inc(x_75);
lean_dec(x_72);
x_76 = lean_box(0);
x_27 = x_76;
x_28 = x_75;
goto block_68;
}
else
{
lean_object* x_57; lean_object* x_58;
x_57 = lean_ctor_get(x_52, 1);
lean_inc(x_57);
lean_dec(x_52);
x_58 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_58, 0, x_51);
x_27 = x_58;
x_28 = x_57;
goto block_48;
lean_object* x_77; lean_object* x_78;
x_77 = lean_ctor_get(x_72, 1);
lean_inc(x_77);
lean_dec(x_72);
x_78 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_78, 0, x_71);
x_27 = x_78;
x_28 = x_77;
goto block_68;
}
}
else
{
uint8_t x_59;
lean_dec(x_51);
uint8_t x_79;
lean_dec(x_71);
lean_dec(x_26);
lean_dec(x_4);
x_59 = !lean_is_exclusive(x_52);
if (x_59 == 0)
x_79 = !lean_is_exclusive(x_72);
if (x_79 == 0)
{
return x_52;
return x_72;
}
else
{
lean_object* x_60; lean_object* x_61; lean_object* x_62;
x_60 = lean_ctor_get(x_52, 0);
x_61 = lean_ctor_get(x_52, 1);
lean_inc(x_61);
lean_inc(x_60);
lean_dec(x_52);
x_62 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_62, 0, x_60);
lean_ctor_set(x_62, 1, x_61);
return x_62;
lean_object* x_80; lean_object* x_81; lean_object* x_82;
x_80 = lean_ctor_get(x_72, 0);
x_81 = lean_ctor_get(x_72, 1);
lean_inc(x_81);
lean_inc(x_80);
lean_dec(x_72);
x_82 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_82, 0, x_80);
lean_ctor_set(x_82, 1, x_81);
return x_82;
}
}
block_48:
block_68:
{
if (lean_obj_tag(x_27) == 0)
{
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37;
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57;
x_29 = lean_box(0);
x_30 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_30, 0, x_29);
lean_ctor_set(x_30, 1, x_28);
x_31 = lean_string_append(x_26, x_24);
x_32 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2;
x_33 = lean_string_append(x_31, x_32);
x_34 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1;
x_35 = lean_string_append(x_33, x_34);
x_36 = lean_string_append(x_35, x_1);
x_37 = lean_io_file_exists(x_36, x_30);
if (lean_obj_tag(x_37) == 0)
x_52 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3;
lean_inc(x_31);
x_53 = lean_string_append(x_31, x_52);
x_54 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1;
x_55 = lean_string_append(x_53, x_54);
x_56 = lean_string_append(x_55, x_1);
x_57 = lean_io_file_exists(x_56, x_30);
if (lean_obj_tag(x_57) == 0)
{
lean_object* x_38; uint8_t x_39;
x_38 = lean_ctor_get(x_37, 0);
lean_inc(x_38);
x_39 = lean_unbox(x_38);
lean_dec(x_38);
if (x_39 == 0)
lean_object* x_58; uint8_t x_59;
x_58 = lean_ctor_get(x_57, 0);
lean_inc(x_58);
x_59 = lean_unbox(x_58);
lean_dec(x_58);
if (x_59 == 0)
{
lean_object* x_40; lean_object* x_41;
lean_dec(x_36);
x_40 = lean_ctor_get(x_37, 1);
lean_inc(x_40);
lean_dec(x_37);
x_41 = lean_box(0);
x_6 = x_41;
x_7 = x_40;
goto block_14;
lean_object* x_60; lean_object* x_61;
lean_dec(x_56);
x_60 = lean_ctor_get(x_57, 1);
lean_inc(x_60);
lean_dec(x_57);
x_61 = lean_box(0);
x_32 = x_61;
x_33 = x_60;
goto block_51;
}
else
{
lean_object* x_42; lean_object* x_43;
x_42 = lean_ctor_get(x_37, 1);
lean_inc(x_42);
lean_dec(x_37);
x_43 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_43, 0, x_36);
x_6 = x_43;
x_7 = x_42;
goto block_14;
lean_object* x_62; lean_object* x_63;
x_62 = lean_ctor_get(x_57, 1);
lean_inc(x_62);
lean_dec(x_57);
x_63 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_63, 0, x_56);
x_32 = x_63;
x_33 = x_62;
goto block_51;
}
}
else
{
uint8_t x_44;
lean_dec(x_36);
uint8_t x_64;
lean_dec(x_56);
lean_dec(x_31);
lean_dec(x_4);
x_44 = !lean_is_exclusive(x_37);
if (x_44 == 0)
x_64 = !lean_is_exclusive(x_57);
if (x_64 == 0)
{
return x_37;
return x_57;
}
else
{
lean_object* x_45; lean_object* x_46; lean_object* x_47;
x_45 = lean_ctor_get(x_37, 0);
x_46 = lean_ctor_get(x_37, 1);
lean_inc(x_46);
lean_object* x_65; lean_object* x_66; lean_object* x_67;
x_65 = lean_ctor_get(x_57, 0);
x_66 = lean_ctor_get(x_57, 1);
lean_inc(x_66);
lean_inc(x_65);
lean_dec(x_57);
x_67 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_67, 0, x_65);
lean_ctor_set(x_67, 1, x_66);
return x_67;
}
}
block_51:
{
if (lean_obj_tag(x_32) == 0)
{
lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40;
x_34 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_34, 0, x_29);
lean_ctor_set(x_34, 1, x_33);
x_35 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2;
x_36 = lean_string_append(x_31, x_35);
x_37 = l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1;
x_38 = lean_string_append(x_36, x_37);
x_39 = lean_string_append(x_38, x_1);
x_40 = lean_io_file_exists(x_39, x_34);
if (lean_obj_tag(x_40) == 0)
{
lean_object* x_41; uint8_t x_42;
x_41 = lean_ctor_get(x_40, 0);
lean_inc(x_41);
x_42 = lean_unbox(x_41);
lean_dec(x_41);
if (x_42 == 0)
{
lean_object* x_43; lean_object* x_44;
lean_dec(x_39);
x_43 = lean_ctor_get(x_40, 1);
lean_inc(x_43);
lean_dec(x_40);
x_44 = lean_box(0);
x_6 = x_44;
x_7 = x_43;
goto block_14;
}
else
{
lean_object* x_45; lean_object* x_46;
x_45 = lean_ctor_get(x_40, 1);
lean_inc(x_45);
lean_dec(x_37);
x_47 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_47, 0, x_45);
lean_ctor_set(x_47, 1, x_46);
return x_47;
lean_dec(x_40);
x_46 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_46, 0, x_39);
x_6 = x_46;
x_7 = x_45;
goto block_14;
}
}
else
{
uint8_t x_47;
lean_dec(x_39);
lean_dec(x_4);
x_47 = !lean_is_exclusive(x_40);
if (x_47 == 0)
{
return x_40;
}
else
{
lean_object* x_48; lean_object* x_49; lean_object* x_50;
x_48 = lean_ctor_get(x_40, 0);
x_49 = lean_ctor_get(x_40, 1);
lean_inc(x_49);
lean_inc(x_48);
lean_dec(x_40);
x_50 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_50, 0, x_48);
lean_ctor_set(x_50, 1, x_49);
return x_50;
}
}
}
else
{
lean_dec(x_31);
x_6 = x_32;
x_7 = x_33;
goto block_14;
}
}
}
@ -3604,6 +3694,8 @@ l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1 = _init_l_Array
lean_mark_persistent(l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__1);
l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2 = _init_l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2();
lean_mark_persistent(l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__2);
l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3 = _init_l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3();
lean_mark_persistent(l_Array_mfindAux___main___at_Lean_findFile___spec__2___closed__3);
l_Lean_findLeanFile___closed__1 = _init_l_Lean_findLeanFile___closed__1();
lean_mark_persistent(l_Lean_findLeanFile___closed__1);
l_Lean_findLeanFile___closed__2 = _init_l_Lean_findLeanFile___closed__2();

59
src/stage0/init/lean/smap.c
View file

@ -14,12 +14,15 @@
extern "C" {
#endif
lean_object* l_PersistentHashMap_mfoldl___at_Lean_SMap_foldStage2___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_find_x21___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_numBuckets___rarg(lean_object*);
lean_object* l_Lean_SMap_find(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_SMap_foldStage2___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_SMap_foldStage2___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_PersistentHashMap_HasEmptyc___closed__1;
lean_object* l_Lean_SMap_find_x21___rarg___closed__1;
lean_object* l_Lean_SMap_foldStage2___rarg___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_PersistentHashMap_find_x21___rarg___closed__2;
lean_object* l_PersistentHashMap_insert___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_empty___rarg(lean_object*, lean_object*);
lean_object* l_Lean_SMap_insert___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -48,6 +51,7 @@ lean_object* l_Lean_SMap_find_x27(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_mfoldlAux___main___at_Lean_SMap_foldStage2___spec__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_SMap_foldStage2___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_contains___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_find_x21___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_findD___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_size___rarg(lean_object*);
lean_object* l_Lean_SMap_numBuckets___rarg___boxed(lean_object*);
@ -70,6 +74,7 @@ lean_object* l_Lean_SMap_foldStage2(lean_object*, lean_object*, lean_object*, le
lean_object* l_Lean_SMap_switch___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_SMap_foldStage2___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_find___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_find_x21(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_contains___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_findD(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_mfoldlAux___main___at_Lean_SMap_foldStage2___spec__2___rarg(lean_object*, lean_object*, lean_object*);
@ -79,6 +84,7 @@ lean_object* l_Lean_SMap_numBuckets(lean_object*, lean_object*, lean_object*, le
lean_object* l_Lean_SMap_empty___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_SMap_size___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_mfoldlAux___main___at_Lean_SMap_foldStage2___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_SMap_foldStage2___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SMap_Inhabited___rarg(lean_object* x_1, lean_object* x_2) {
_start:
@ -333,6 +339,57 @@ lean_dec(x_3);
return x_6;
}
}
lean_object* _init_l_Lean_SMap_find_x21___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("/Users/leonardodemoura/projects/lean4/library/init/lean/smap.lean");
return x_1;
}
}
lean_object* l_Lean_SMap_find_x21___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_Lean_SMap_find___rarg(x_1, x_2, x_4, x_5);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_7 = l_Lean_SMap_find_x21___rarg___closed__1;
x_8 = lean_unsigned_to_nat(56u);
x_9 = lean_unsigned_to_nat(12u);
x_10 = l_PersistentHashMap_find_x21___rarg___closed__2;
x_11 = l_panicWithPos___rarg(x_3, x_7, x_8, x_9, x_10);
return x_11;
}
else
{
lean_object* x_12;
lean_dec(x_3);
x_12 = lean_ctor_get(x_6, 0);
lean_inc(x_12);
lean_dec(x_6);
return x_12;
}
}
}
lean_object* l_Lean_SMap_find_x21(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_SMap_find_x21___rarg___boxed), 5, 0);
return x_3;
}
}
lean_object* l_Lean_SMap_find_x21___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_Lean_SMap_find_x21___rarg(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_4);
return x_6;
}
}
lean_object* l_Lean_SMap_contains___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -854,6 +911,8 @@ w = initialize_init_data_hashmap_default(w);
if (lean_io_result_is_error(w)) return w;
w = initialize_init_data_persistenthashmap_default(w);
if (lean_io_result_is_error(w)) return w;
l_Lean_SMap_find_x21___rarg___closed__1 = _init_l_Lean_SMap_find_x21___rarg___closed__1();
lean_mark_persistent(l_Lean_SMap_find_x21___rarg___closed__1);
return w;
}
#ifdef __cplusplus

78
src/stage0/init/lean/typeclass/basic.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: init.lean.typeclass.basic
// Imports: init.lean.environment
// Imports: init.lean.environment init.lean.typeclass.synth
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -13,38 +13,70 @@
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_TypeClass_synth__command___closed__1;
lean_object* l_Lean_TypeClass_synth__command___closed__2;
extern lean_object* l_Array_empty___closed__1;
extern lean_object* l_PersistentHashMap_HasEmptyc___closed__1;
lean_object* l_Lean_TypeClass_synthCommand___closed__1;
lean_object* l_Lean_TypeClass_synth(lean_object*, lean_object*, lean_object*);
lean_object* lean_typeclass_synth_command(lean_object*, lean_object*);
lean_object* _init_l_Lean_TypeClass_synth__command___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("not implemented yet");
return x_1;
}
}
lean_object* _init_l_Lean_TypeClass_synth__command___closed__2() {
extern lean_object* l_Lean_exprIsInhabited___closed__1;
lean_object* _init_l_Lean_TypeClass_synthCommand___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_TypeClass_synth__command___closed__1;
x_2 = lean_alloc_ctor(0, 1, 0);
x_1 = lean_box(0);
x_2 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_2, 0, x_1);
lean_ctor_set(x_2, 1, x_1);
return x_2;
}
}
lean_object* lean_typeclass_synth_command(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
lean_dec(x_2);
lean_dec(x_1);
x_3 = l_Lean_TypeClass_synth__command___closed__2;
return x_3;
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_3 = lean_box(0);
x_4 = l_Lean_exprIsInhabited___closed__1;
x_5 = l_Array_empty___closed__1;
x_6 = l_Lean_TypeClass_synthCommand___closed__1;
x_7 = l_PersistentHashMap_HasEmptyc___closed__1;
x_8 = lean_alloc_ctor(0, 7, 0);
lean_ctor_set(x_8, 0, x_1);
lean_ctor_set(x_8, 1, x_3);
lean_ctor_set(x_8, 2, x_4);
lean_ctor_set(x_8, 3, x_5);
lean_ctor_set(x_8, 4, x_5);
lean_ctor_set(x_8, 5, x_6);
lean_ctor_set(x_8, 6, x_7);
x_9 = lean_box(0);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_9);
lean_ctor_set(x_10, 1, x_8);
x_11 = lean_unsigned_to_nat(100000u);
x_12 = l_Lean_TypeClass_synth(x_2, x_11, x_10);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_ctor_get(x_12, 0);
lean_inc(x_13);
lean_dec(x_12);
x_14 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_14, 0, x_13);
return x_14;
}
else
{
lean_object* x_15; lean_object* x_16;
x_15 = lean_ctor_get(x_12, 0);
lean_inc(x_15);
lean_dec(x_12);
x_16 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_16, 0, x_15);
return x_16;
}
}
}
lean_object* initialize_init_lean_environment(lean_object*);
lean_object* initialize_init_lean_typeclass_synth(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_init_lean_typeclass_basic(lean_object* w) {
if (_G_initialized) return w;
@ -52,10 +84,10 @@ _G_initialized = true;
if (lean_io_result_is_error(w)) return w;
w = initialize_init_lean_environment(w);
if (lean_io_result_is_error(w)) return w;
l_Lean_TypeClass_synth__command___closed__1 = _init_l_Lean_TypeClass_synth__command___closed__1();
lean_mark_persistent(l_Lean_TypeClass_synth__command___closed__1);
l_Lean_TypeClass_synth__command___closed__2 = _init_l_Lean_TypeClass_synth__command___closed__2();
lean_mark_persistent(l_Lean_TypeClass_synth__command___closed__2);
w = initialize_init_lean_typeclass_synth(w);
if (lean_io_result_is_error(w)) return w;
l_Lean_TypeClass_synthCommand___closed__1 = _init_l_Lean_TypeClass_synthCommand___closed__1();
lean_mark_persistent(l_Lean_TypeClass_synthCommand___closed__1);
return w;
}
#ifdef __cplusplus

9691
src/stage0/init/lean/typeclass/context.c Normal file
View file

File diff suppressed because it is too large Load diff

8188
src/stage0/init/lean/typeclass/synth.c Normal file
View file

File diff suppressed because it is too large Load diff

39
src/stage0/init/system/filepath.c
View file

@ -41,7 +41,6 @@ uint32_t l_System_FilePath_pathSeparator;
lean_object* lean_string_utf8_next(lean_object*, lean_object*);
lean_object* lean_string_utf8_extract(lean_object*, lean_object*, lean_object*);
lean_object* l_System_FilePath_pathSeparators___closed__1___boxed__const__1;
uint32_t l_Char_toLower(uint32_t);
uint8_t l_System_FilePath_normalizePath___closed__2;
lean_object* l_System_FilePath_normalizePath___closed__1;
uint8_t l_List_foldr___main___at_System_FilePath_normalizePath___spec__1(uint32_t, uint8_t, lean_object*);
@ -250,39 +249,23 @@ x_6 = l_System_FilePath_pathSeparators;
x_7 = l_List_foldr___main___at_System_FilePath_normalizePath___spec__1(x_4, x_5, x_6);
if (x_7 == 0)
{
uint8_t x_8;
x_8 = l_System_FilePath_isCaseInsensitive;
if (x_8 == 0)
{
lean_object* x_9; lean_object* x_10;
x_9 = lean_string_utf8_set(x_2, x_1, x_4);
x_10 = lean_string_utf8_next(x_9, x_1);
lean_object* x_8; lean_object* x_9;
x_8 = lean_string_utf8_set(x_2, x_1, x_4);
x_9 = lean_string_utf8_next(x_8, x_1);
lean_dec(x_1);
x_1 = x_10;
x_2 = x_9;
x_1 = x_9;
x_2 = x_8;
goto _start;
}
else
{
uint32_t x_12; lean_object* x_13; lean_object* x_14;
x_12 = l_Char_toLower(x_4);
x_13 = lean_string_utf8_set(x_2, x_1, x_12);
x_14 = lean_string_utf8_next(x_13, x_1);
uint32_t x_11; lean_object* x_12; lean_object* x_13;
x_11 = l_System_FilePath_pathSeparator;
x_12 = lean_string_utf8_set(x_2, x_1, x_11);
x_13 = lean_string_utf8_next(x_12, x_1);
lean_dec(x_1);
x_1 = x_14;
x_2 = x_13;
goto _start;
}
}
else
{
uint32_t x_16; lean_object* x_17; lean_object* x_18;
x_16 = l_System_FilePath_pathSeparator;
x_17 = lean_string_utf8_set(x_2, x_1, x_16);
x_18 = lean_string_utf8_next(x_17, x_1);
lean_dec(x_1);
x_1 = x_18;
x_2 = x_17;
x_1 = x_13;
x_2 = x_12;
goto _start;
}
}