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

chore: update stage0 and fix local_ctx.cpp

Browse source
This commit is contained in:
Leonardo de Moura 2019-10-26 09:55:31 -07:00
parent dec24f3410
commit 7c99d58b83
11 changed files with 21379 additions and 5754 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/kernel/local_ctx.cpp
View file

@ -44,6 +44,7 @@ expr local_decl::mk_ref() const {
}
extern "C" object * lean_mk_empty_local_ctx(object*);
extern "C" object * lean_local_ctx_num_indices(object*);
extern "C" uint8 lean_local_ctx_is_empty(object*);
extern "C" object * lean_local_ctx_mk_local_decl(object * lctx, object * name, object * user_name, object * expr, uint8 bi);
extern "C" object * lean_local_ctx_mk_let_decl(object * lctx, object * name, object * user_name, object * type, object * value);
@ -58,19 +59,15 @@ bool local_ctx::empty() const {
}
local_decl local_ctx::mk_local_decl(name const & n, name const & un, expr const & type, expr const & value) {
object * p = lean_local_ctx_mk_let_decl(raw(), n.to_obj_arg(), un.to_obj_arg(), type.to_obj_arg(), value.to_obj_arg());
local_decl decl(cnstr_get(p, 0));
m_obj = cnstr_get(p, 1);
lean_free_object(p);
return decl;
unsigned idx = unbox(lean_local_ctx_num_indices(to_obj_arg()));
m_obj = lean_local_ctx_mk_let_decl(raw(), n.to_obj_arg(), un.to_obj_arg(), type.to_obj_arg(), value.to_obj_arg());
return local_decl(idx, n, un, type, value);
}
local_decl local_ctx::mk_local_decl(name const & n, name const & un, expr const & type, binder_info bi) {
object * p = lean_local_ctx_mk_local_decl(raw(), n.to_obj_arg(), un.to_obj_arg(), type.to_obj_arg(), static_cast<uint8>(bi));
local_decl decl(cnstr_get(p, 0));
m_obj = cnstr_get(p, 1);
lean_free_object(p);
return decl;
unsigned idx = unbox(lean_local_ctx_num_indices(to_obj_arg()));
m_obj = lean_local_ctx_mk_local_decl(raw(), n.to_obj_arg(), un.to_obj_arg(), type.to_obj_arg(), static_cast<uint8>(bi));
return local_decl(idx, n, un, type, bi);
}
optional<local_decl> local_ctx::find_local_decl(name const & n) const {

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/DList.c ./Init/Data/Default.c ./Init/Data/Fin/Basic.c ./Init/Data/Fin/Default.c ./Init/Data/HashMap/Basic.c ./Init/Data/HashMap/Default.c ./Init/Data/Hashable.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/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/Random.c ./Init/Data/Repr.c ./Init/Data/Stack/Basic.c ./Init/Data/Stack/Default.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/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/CtorLayout.c ./Init/Lean/Compiler/IR/Default.c ./Init/Lean/Compiler/IR/ElimDeadBranches.c ./Init/Lean/Compiler/IR/ElimDeadVars.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/ImplementedByAttr.c ./Init/Lean/Compiler/InitAttr.c ./Init/Lean/Compiler/InlineAttrs.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/SMap.c ./Init/Lean/Scopes.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/TypeContext.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/DList.c ./Init/Data/Default.c ./Init/Data/Fin/Basic.c ./Init/Data/Fin/Default.c ./Init/Data/HashMap/Basic.c ./Init/Data/HashMap/Default.c ./Init/Data/Hashable.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/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/Random.c ./Init/Data/Repr.c ./Init/Data/Stack/Basic.c ./Init/Data/Stack/Default.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/AbstractMetavarContext.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/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/CtorLayout.c ./Init/Lean/Compiler/IR/Default.c ./Init/Lean/Compiler/IR/ElimDeadBranches.c ./Init/Lean/Compiler/IR/ElimDeadVars.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/ImplementedByAttr.c ./Init/Lean/Compiler/InitAttr.c ./Init/Lean/Compiler/InlineAttrs.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/SMap.c ./Init/Lean/Scopes.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/TypeContext.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)

11308
src/stage0/Init/Lean/AbstractMetavarContext.c Normal file
View file

File diff suppressed because it is too large Load diff

516
src/stage0/Init/Lean/Elaborator/Basic.c
View file

@ -86,6 +86,7 @@ extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3;
lean_object* l_List_toString___at_Lean_Environment_displayStats___spec__1(lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_addBuiltinCommandElab___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_addBuiltinTermElab___closed__2;
lean_object* l_Lean_Elab_modifyScope___at_Lean_Elab_mkLocalDecl___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerBuiltinTermElabAttr___lambda__1___closed__1;
lean_object* l_Lean_Elab_mkLocalDecl(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_registerBuiltinTermElabAttr___closed__7;
@ -157,6 +158,7 @@ lean_object* l_Lean_Elab_getEnv___boxed(lean_object*);
lean_object* l_Lean_Elab_getScope(lean_object*);
lean_object* l_PersistentHashMap_containsAtAux___main___at_Lean_addBuiltinTermElab___spec__6___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_contains___at_Lean_addBuiltinCommandElab___spec__4___boxed(lean_object*, lean_object*);
lean_object* lean_expr_mk_fvar(lean_object*);
lean_object* lean_local_ctx_mk_local_decl(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t);
extern lean_object* l_List_get_x21___main___rarg___closed__1;
lean_object* lean_mk_empty_environment(uint32_t, lean_object*);
@ -295,7 +297,6 @@ lean_object* l_panicWithPos___at_Lean_Elab_getScope___spec__2(lean_object*, lean
extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
extern lean_object* l_Lean_Parser_mkCommandParserAttribute___closed__4;
lean_object* l_Lean_Elab_elabCommand___closed__2;
lean_object* l_Lean_Elab_modifyGetScope___at_Lean_Elab_mkLocalDecl___spec__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getOpenDecls___boxed(lean_object*);
lean_object* lean_io_mk_ref(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Elab_getScope___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -303,7 +304,6 @@ lean_object* l_Lean_Elab_logUnknownDecl___rarg(lean_object*, lean_object*, lean_
uint8_t l_Lean_isNamespace(lean_object*, lean_object*);
lean_object* l_Lean_mkCApp(lean_object*, lean_object*);
lean_object* l_Lean_Elab_logElabException___closed__1;
extern lean_object* l_Lean_LocalDecl_Inhabited___closed__1;
lean_object* l_Lean_Elab_testFrontend___closed__1;
lean_object* l_Lean_Parser_parseCommand___main(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_mkCommandElabAttribute___spec__2(lean_object*, lean_object*);
@ -359,7 +359,6 @@ lean_object* l_Lean_registerBuiltinCommandElabAttr___lambda__1___closed__3;
uint8_t l_List_hasDecEq___main___at_Lean_OpenDecl_HasToString___spec__1(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_Elab_processHeaderAux___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_HashMapImp_moveEntries___main___at_Lean_addBuiltinTermElab___spec__14(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_modifyGetScope___at_Lean_Elab_mkLocalDecl___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getEnv___rarg(lean_object*);
extern lean_object* l_PersistentHashMap_insertAux___main___rarg___closed__3;
lean_object* lean_array_get_size(lean_object*);
@ -453,6 +452,7 @@ lean_object* l_Lean_mkTermElabAttribute(lean_object*);
lean_object* l_Lean_Elab_inPattern___rarg(lean_object*);
lean_object* l_Lean_Elab_withNewScope___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
lean_object* l_Lean_Elab_modifyScope___at_Lean_Elab_mkLocalDecl___spec__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Elab_elabCommand___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getEnv(lean_object*);
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
@ -10760,7 +10760,7 @@ lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_Elab_modifyGetScope___at_Lean_Elab_mkLocalDecl___spec__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
lean_object* l_Lean_Elab_modifyScope___at_Lean_Elab_mkLocalDecl___spec__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7;
@ -10768,254 +10768,272 @@ x_7 = lean_ctor_get(x_6, 5);
lean_inc(x_7);
if (lean_obj_tag(x_7) == 0)
{
lean_object* x_8; lean_object* x_9;
uint8_t x_8;
lean_dec(x_4);
lean_dec(x_2);
lean_dec(x_1);
x_8 = l_Lean_LocalDecl_Inhabited___closed__1;
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_8);
lean_ctor_set(x_9, 1, x_6);
return x_9;
x_8 = !lean_is_exclusive(x_6);
if (x_8 == 0)
{
lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_9 = lean_ctor_get(x_6, 5);
lean_dec(x_9);
x_10 = lean_box(0);
x_11 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_11, 0, x_10);
lean_ctor_set(x_11, 1, x_6);
return x_11;
}
else
{
lean_object* x_10; uint8_t x_11;
x_10 = lean_ctor_get(x_7, 0);
lean_inc(x_10);
x_11 = !lean_is_exclusive(x_6);
if (x_11 == 0)
{
lean_object* x_12; uint8_t x_13;
x_12 = lean_ctor_get(x_6, 5);
lean_dec(x_12);
x_13 = !lean_is_exclusive(x_7);
if (x_13 == 0)
{
lean_object* x_14; uint8_t x_15;
x_14 = lean_ctor_get(x_7, 0);
lean_dec(x_14);
x_15 = !lean_is_exclusive(x_10);
if (x_15 == 0)
{
lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20;
x_16 = lean_ctor_get(x_10, 6);
x_17 = lean_local_ctx_mk_local_decl(x_16, x_4, x_1, x_2, x_3);
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
x_19 = lean_ctor_get(x_17, 1);
lean_inc(x_19);
lean_dec(x_17);
lean_ctor_set(x_10, 6, x_19);
x_20 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_20, 0, x_18);
lean_ctor_set(x_20, 1, x_6);
return x_20;
}
else
{
lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; uint8_t x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34;
x_21 = lean_ctor_get(x_10, 0);
x_22 = lean_ctor_get(x_10, 1);
x_23 = lean_ctor_get(x_10, 2);
x_24 = lean_ctor_get(x_10, 3);
x_25 = lean_ctor_get(x_10, 4);
x_26 = lean_ctor_get(x_10, 5);
x_27 = lean_ctor_get(x_10, 6);
x_28 = lean_ctor_get(x_10, 7);
x_29 = lean_ctor_get_uint8(x_10, sizeof(void*)*8);
lean_inc(x_28);
lean_inc(x_27);
lean_inc(x_26);
lean_inc(x_25);
lean_inc(x_24);
lean_inc(x_23);
lean_inc(x_22);
lean_inc(x_21);
lean_dec(x_10);
x_30 = lean_local_ctx_mk_local_decl(x_27, x_4, x_1, x_2, x_3);
x_31 = lean_ctor_get(x_30, 0);
lean_inc(x_31);
x_32 = lean_ctor_get(x_30, 1);
lean_inc(x_32);
lean_dec(x_30);
x_33 = lean_alloc_ctor(0, 8, 1);
lean_ctor_set(x_33, 0, x_21);
lean_ctor_set(x_33, 1, x_22);
lean_ctor_set(x_33, 2, x_23);
lean_ctor_set(x_33, 3, x_24);
lean_ctor_set(x_33, 4, x_25);
lean_ctor_set(x_33, 5, x_26);
lean_ctor_set(x_33, 6, x_32);
lean_ctor_set(x_33, 7, x_28);
lean_ctor_set_uint8(x_33, sizeof(void*)*8, x_29);
lean_ctor_set(x_7, 0, x_33);
x_34 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_34, 0, x_31);
lean_ctor_set(x_34, 1, x_6);
return x_34;
}
}
else
{
lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; uint8_t x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51;
x_35 = lean_ctor_get(x_7, 1);
lean_inc(x_35);
lean_dec(x_7);
x_36 = lean_ctor_get(x_10, 0);
lean_inc(x_36);
x_37 = lean_ctor_get(x_10, 1);
lean_inc(x_37);
x_38 = lean_ctor_get(x_10, 2);
lean_inc(x_38);
x_39 = lean_ctor_get(x_10, 3);
lean_inc(x_39);
x_40 = lean_ctor_get(x_10, 4);
lean_inc(x_40);
x_41 = lean_ctor_get(x_10, 5);
lean_inc(x_41);
x_42 = lean_ctor_get(x_10, 6);
lean_inc(x_42);
x_43 = lean_ctor_get(x_10, 7);
lean_inc(x_43);
x_44 = lean_ctor_get_uint8(x_10, sizeof(void*)*8);
if (lean_is_exclusive(x_10)) {
lean_ctor_release(x_10, 0);
lean_ctor_release(x_10, 1);
lean_ctor_release(x_10, 2);
lean_ctor_release(x_10, 3);
lean_ctor_release(x_10, 4);
lean_ctor_release(x_10, 5);
lean_ctor_release(x_10, 6);
lean_ctor_release(x_10, 7);
x_45 = x_10;
} else {
lean_dec_ref(x_10);
x_45 = lean_box(0);
}
x_46 = lean_local_ctx_mk_local_decl(x_42, x_4, x_1, x_2, x_3);
x_47 = lean_ctor_get(x_46, 0);
lean_inc(x_47);
x_48 = lean_ctor_get(x_46, 1);
lean_inc(x_48);
lean_dec(x_46);
if (lean_is_scalar(x_45)) {
x_49 = lean_alloc_ctor(0, 8, 1);
} else {
x_49 = x_45;
}
lean_ctor_set(x_49, 0, x_36);
lean_ctor_set(x_49, 1, x_37);
lean_ctor_set(x_49, 2, x_38);
lean_ctor_set(x_49, 3, x_39);
lean_ctor_set(x_49, 4, x_40);
lean_ctor_set(x_49, 5, x_41);
lean_ctor_set(x_49, 6, x_48);
lean_ctor_set(x_49, 7, x_43);
lean_ctor_set_uint8(x_49, sizeof(void*)*8, x_44);
x_50 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_50, 0, x_49);
lean_ctor_set(x_50, 1, x_35);
lean_ctor_set(x_6, 5, x_50);
x_51 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_51, 0, x_47);
lean_ctor_set(x_51, 1, x_6);
return x_51;
}
}
else
{
lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75;
x_52 = lean_ctor_get(x_6, 0);
x_53 = lean_ctor_get(x_6, 1);
x_54 = lean_ctor_get(x_6, 2);
x_55 = lean_ctor_get(x_6, 3);
x_56 = lean_ctor_get(x_6, 4);
lean_inc(x_56);
lean_inc(x_55);
lean_inc(x_54);
lean_inc(x_53);
lean_inc(x_52);
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_12 = lean_ctor_get(x_6, 0);
x_13 = lean_ctor_get(x_6, 1);
x_14 = lean_ctor_get(x_6, 2);
x_15 = lean_ctor_get(x_6, 3);
x_16 = lean_ctor_get(x_6, 4);
lean_inc(x_16);
lean_inc(x_15);
lean_inc(x_14);
lean_inc(x_13);
lean_inc(x_12);
lean_dec(x_6);
x_57 = lean_ctor_get(x_7, 1);
lean_inc(x_57);
x_17 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_17, 0, x_12);
lean_ctor_set(x_17, 1, x_13);
lean_ctor_set(x_17, 2, x_14);
lean_ctor_set(x_17, 3, x_15);
lean_ctor_set(x_17, 4, x_16);
lean_ctor_set(x_17, 5, x_7);
x_18 = lean_box(0);
x_19 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_19, 0, x_18);
lean_ctor_set(x_19, 1, x_17);
return x_19;
}
}
else
{
lean_object* x_20; uint8_t x_21;
x_20 = lean_ctor_get(x_7, 0);
lean_inc(x_20);
x_21 = !lean_is_exclusive(x_6);
if (x_21 == 0)
{
lean_object* x_22; uint8_t x_23;
x_22 = lean_ctor_get(x_6, 5);
lean_dec(x_22);
x_23 = !lean_is_exclusive(x_7);
if (x_23 == 0)
{
lean_object* x_24; uint8_t x_25;
x_24 = lean_ctor_get(x_7, 0);
lean_dec(x_24);
x_25 = !lean_is_exclusive(x_20);
if (x_25 == 0)
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_26 = lean_ctor_get(x_20, 6);
x_27 = lean_local_ctx_mk_local_decl(x_26, x_4, x_1, x_2, x_3);
lean_ctor_set(x_20, 6, x_27);
x_28 = lean_box(0);
x_29 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_29, 0, x_28);
lean_ctor_set(x_29, 1, x_6);
return x_29;
}
else
{
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; uint8_t x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42;
x_30 = lean_ctor_get(x_20, 0);
x_31 = lean_ctor_get(x_20, 1);
x_32 = lean_ctor_get(x_20, 2);
x_33 = lean_ctor_get(x_20, 3);
x_34 = lean_ctor_get(x_20, 4);
x_35 = lean_ctor_get(x_20, 5);
x_36 = lean_ctor_get(x_20, 6);
x_37 = lean_ctor_get(x_20, 7);
x_38 = lean_ctor_get_uint8(x_20, sizeof(void*)*8);
lean_inc(x_37);
lean_inc(x_36);
lean_inc(x_35);
lean_inc(x_34);
lean_inc(x_33);
lean_inc(x_32);
lean_inc(x_31);
lean_inc(x_30);
lean_dec(x_20);
x_39 = lean_local_ctx_mk_local_decl(x_36, x_4, x_1, x_2, x_3);
x_40 = lean_alloc_ctor(0, 8, 1);
lean_ctor_set(x_40, 0, x_30);
lean_ctor_set(x_40, 1, x_31);
lean_ctor_set(x_40, 2, x_32);
lean_ctor_set(x_40, 3, x_33);
lean_ctor_set(x_40, 4, x_34);
lean_ctor_set(x_40, 5, x_35);
lean_ctor_set(x_40, 6, x_39);
lean_ctor_set(x_40, 7, x_37);
lean_ctor_set_uint8(x_40, sizeof(void*)*8, x_38);
lean_ctor_set(x_7, 0, x_40);
x_41 = lean_box(0);
x_42 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_42, 0, x_41);
lean_ctor_set(x_42, 1, x_6);
return x_42;
}
}
else
{
lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58;
x_43 = lean_ctor_get(x_7, 1);
lean_inc(x_43);
lean_dec(x_7);
x_44 = lean_ctor_get(x_20, 0);
lean_inc(x_44);
x_45 = lean_ctor_get(x_20, 1);
lean_inc(x_45);
x_46 = lean_ctor_get(x_20, 2);
lean_inc(x_46);
x_47 = lean_ctor_get(x_20, 3);
lean_inc(x_47);
x_48 = lean_ctor_get(x_20, 4);
lean_inc(x_48);
x_49 = lean_ctor_get(x_20, 5);
lean_inc(x_49);
x_50 = lean_ctor_get(x_20, 6);
lean_inc(x_50);
x_51 = lean_ctor_get(x_20, 7);
lean_inc(x_51);
x_52 = lean_ctor_get_uint8(x_20, sizeof(void*)*8);
if (lean_is_exclusive(x_20)) {
lean_ctor_release(x_20, 0);
lean_ctor_release(x_20, 1);
lean_ctor_release(x_20, 2);
lean_ctor_release(x_20, 3);
lean_ctor_release(x_20, 4);
lean_ctor_release(x_20, 5);
lean_ctor_release(x_20, 6);
lean_ctor_release(x_20, 7);
x_53 = x_20;
} else {
lean_dec_ref(x_20);
x_53 = lean_box(0);
}
x_54 = lean_local_ctx_mk_local_decl(x_50, x_4, x_1, x_2, x_3);
if (lean_is_scalar(x_53)) {
x_55 = lean_alloc_ctor(0, 8, 1);
} else {
x_55 = x_53;
}
lean_ctor_set(x_55, 0, x_44);
lean_ctor_set(x_55, 1, x_45);
lean_ctor_set(x_55, 2, x_46);
lean_ctor_set(x_55, 3, x_47);
lean_ctor_set(x_55, 4, x_48);
lean_ctor_set(x_55, 5, x_49);
lean_ctor_set(x_55, 6, x_54);
lean_ctor_set(x_55, 7, x_51);
lean_ctor_set_uint8(x_55, sizeof(void*)*8, x_52);
x_56 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_56, 0, x_55);
lean_ctor_set(x_56, 1, x_43);
lean_ctor_set(x_6, 5, x_56);
x_57 = lean_box(0);
x_58 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_58, 0, x_57);
lean_ctor_set(x_58, 1, x_6);
return x_58;
}
}
else
{
lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; uint8_t x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81;
x_59 = lean_ctor_get(x_6, 0);
x_60 = lean_ctor_get(x_6, 1);
x_61 = lean_ctor_get(x_6, 2);
x_62 = lean_ctor_get(x_6, 3);
x_63 = lean_ctor_get(x_6, 4);
lean_inc(x_63);
lean_inc(x_62);
lean_inc(x_61);
lean_inc(x_60);
lean_inc(x_59);
lean_dec(x_6);
x_64 = lean_ctor_get(x_7, 1);
lean_inc(x_64);
if (lean_is_exclusive(x_7)) {
lean_ctor_release(x_7, 0);
lean_ctor_release(x_7, 1);
x_58 = x_7;
x_65 = x_7;
} else {
lean_dec_ref(x_7);
x_58 = lean_box(0);
x_65 = lean_box(0);
}
x_59 = lean_ctor_get(x_10, 0);
lean_inc(x_59);
x_60 = lean_ctor_get(x_10, 1);
lean_inc(x_60);
x_61 = lean_ctor_get(x_10, 2);
lean_inc(x_61);
x_62 = lean_ctor_get(x_10, 3);
lean_inc(x_62);
x_63 = lean_ctor_get(x_10, 4);
lean_inc(x_63);
x_64 = lean_ctor_get(x_10, 5);
lean_inc(x_64);
x_65 = lean_ctor_get(x_10, 6);
lean_inc(x_65);
x_66 = lean_ctor_get(x_10, 7);
x_66 = lean_ctor_get(x_20, 0);
lean_inc(x_66);
x_67 = lean_ctor_get_uint8(x_10, sizeof(void*)*8);
if (lean_is_exclusive(x_10)) {
lean_ctor_release(x_10, 0);
lean_ctor_release(x_10, 1);
lean_ctor_release(x_10, 2);
lean_ctor_release(x_10, 3);
lean_ctor_release(x_10, 4);
lean_ctor_release(x_10, 5);
lean_ctor_release(x_10, 6);
lean_ctor_release(x_10, 7);
x_68 = x_10;
} else {
lean_dec_ref(x_10);
x_68 = lean_box(0);
}
x_69 = lean_local_ctx_mk_local_decl(x_65, x_4, x_1, x_2, x_3);
x_70 = lean_ctor_get(x_69, 0);
x_67 = lean_ctor_get(x_20, 1);
lean_inc(x_67);
x_68 = lean_ctor_get(x_20, 2);
lean_inc(x_68);
x_69 = lean_ctor_get(x_20, 3);
lean_inc(x_69);
x_70 = lean_ctor_get(x_20, 4);
lean_inc(x_70);
x_71 = lean_ctor_get(x_69, 1);
x_71 = lean_ctor_get(x_20, 5);
lean_inc(x_71);
lean_dec(x_69);
if (lean_is_scalar(x_68)) {
x_72 = lean_alloc_ctor(0, 8, 1);
x_72 = lean_ctor_get(x_20, 6);
lean_inc(x_72);
x_73 = lean_ctor_get(x_20, 7);
lean_inc(x_73);
x_74 = lean_ctor_get_uint8(x_20, sizeof(void*)*8);
if (lean_is_exclusive(x_20)) {
lean_ctor_release(x_20, 0);
lean_ctor_release(x_20, 1);
lean_ctor_release(x_20, 2);
lean_ctor_release(x_20, 3);
lean_ctor_release(x_20, 4);
lean_ctor_release(x_20, 5);
lean_ctor_release(x_20, 6);
lean_ctor_release(x_20, 7);
x_75 = x_20;
} else {
x_72 = x_68;
lean_dec_ref(x_20);
x_75 = lean_box(0);
}
lean_ctor_set(x_72, 0, x_59);
lean_ctor_set(x_72, 1, x_60);
lean_ctor_set(x_72, 2, x_61);
lean_ctor_set(x_72, 3, x_62);
lean_ctor_set(x_72, 4, x_63);
lean_ctor_set(x_72, 5, x_64);
lean_ctor_set(x_72, 6, x_71);
lean_ctor_set(x_72, 7, x_66);
lean_ctor_set_uint8(x_72, sizeof(void*)*8, x_67);
if (lean_is_scalar(x_58)) {
x_73 = lean_alloc_ctor(1, 2, 0);
x_76 = lean_local_ctx_mk_local_decl(x_72, x_4, x_1, x_2, x_3);
if (lean_is_scalar(x_75)) {
x_77 = lean_alloc_ctor(0, 8, 1);
} else {
x_73 = x_58;
x_77 = x_75;
}
lean_ctor_set(x_73, 0, x_72);
lean_ctor_set(x_73, 1, x_57);
x_74 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_74, 0, x_52);
lean_ctor_set(x_74, 1, x_53);
lean_ctor_set(x_74, 2, x_54);
lean_ctor_set(x_74, 3, x_55);
lean_ctor_set(x_74, 4, x_56);
lean_ctor_set(x_74, 5, x_73);
x_75 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_75, 0, x_70);
lean_ctor_set(x_75, 1, x_74);
return x_75;
lean_ctor_set(x_77, 0, x_66);
lean_ctor_set(x_77, 1, x_67);
lean_ctor_set(x_77, 2, x_68);
lean_ctor_set(x_77, 3, x_69);
lean_ctor_set(x_77, 4, x_70);
lean_ctor_set(x_77, 5, x_71);
lean_ctor_set(x_77, 6, x_76);
lean_ctor_set(x_77, 7, x_73);
lean_ctor_set_uint8(x_77, sizeof(void*)*8, x_74);
if (lean_is_scalar(x_65)) {
x_78 = lean_alloc_ctor(1, 2, 0);
} else {
x_78 = x_65;
}
lean_ctor_set(x_78, 0, x_77);
lean_ctor_set(x_78, 1, x_64);
x_79 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_79, 0, x_59);
lean_ctor_set(x_79, 1, x_60);
lean_ctor_set(x_79, 2, x_61);
lean_ctor_set(x_79, 3, x_62);
lean_ctor_set(x_79, 4, x_63);
lean_ctor_set(x_79, 5, x_78);
x_80 = lean_box(0);
x_81 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_81, 0, x_80);
lean_ctor_set(x_81, 1, x_79);
return x_81;
}
}
}
@ -11023,24 +11041,46 @@ return x_75;
lean_object* l_Lean_Elab_mkLocalDecl(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10;
x_6 = l_Lean_Elab_mkFreshName___rarg(x_5);
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);
x_9 = l_Lean_Elab_modifyGetScope___at_Lean_Elab_mkLocalDecl___spec__1(x_1, x_2, x_3, x_7, x_4, x_8);
lean_inc(x_7);
x_9 = l_Lean_Elab_modifyScope___at_Lean_Elab_mkLocalDecl___spec__1(x_1, x_2, x_3, x_7, x_4, x_8);
x_10 = !lean_is_exclusive(x_9);
if (x_10 == 0)
{
lean_object* x_11; lean_object* x_12;
x_11 = lean_ctor_get(x_9, 0);
lean_dec(x_11);
x_12 = lean_expr_mk_fvar(x_7);
lean_ctor_set(x_9, 0, x_12);
return x_9;
}
else
{
lean_object* x_13; lean_object* x_14; lean_object* x_15;
x_13 = lean_ctor_get(x_9, 1);
lean_inc(x_13);
lean_dec(x_9);
x_14 = lean_expr_mk_fvar(x_7);
x_15 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_15, 0, x_14);
lean_ctor_set(x_15, 1, x_13);
return x_15;
}
lean_object* l_Lean_Elab_modifyGetScope___at_Lean_Elab_mkLocalDecl___spec__1___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) {
}
}
lean_object* l_Lean_Elab_modifyScope___at_Lean_Elab_mkLocalDecl___spec__1___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:
{
uint8_t x_7; lean_object* x_8;
x_7 = lean_unbox(x_3);
lean_dec(x_3);
x_8 = l_Lean_Elab_modifyGetScope___at_Lean_Elab_mkLocalDecl___spec__1(x_1, x_2, x_7, x_4, x_5, x_6);
x_8 = l_Lean_Elab_modifyScope___at_Lean_Elab_mkLocalDecl___spec__1(x_1, x_2, x_7, x_4, x_5, x_6);
lean_dec(x_5);
return x_8;
}
@ -11092,6 +11132,8 @@ _start:
lean_object* x_5;
x_5 = l_Lean_Elab_mkLambda(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
@ -11131,6 +11173,8 @@ _start:
lean_object* x_5;
x_5 = l_Lean_Elab_mkForall(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}

158
src/stage0/Init/Lean/Elaborator/PreTerm.c
View file

@ -2812,77 +2812,77 @@ return x_12;
}
else
{
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_25; lean_object* x_26; lean_object* x_27; lean_object* x_70; lean_object* x_71; uint8_t x_72;
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_25; lean_object* x_26; lean_object* x_27; lean_object* x_68; lean_object* x_69; uint8_t x_70;
x_13 = lean_array_fget(x_5, x_4);
x_14 = lean_box(0);
lean_inc(x_13);
x_15 = x_14;
x_16 = lean_array_fset(x_5, x_4, x_15);
x_25 = l_Lean_Syntax_getId___rarg(x_13);
x_70 = l_Lean_Syntax_getNumArgs___rarg(x_2);
x_71 = lean_unsigned_to_nat(0u);
x_72 = lean_nat_dec_eq(x_70, x_71);
lean_dec(x_70);
if (x_72 == 0)
x_68 = l_Lean_Syntax_getNumArgs___rarg(x_2);
x_69 = lean_unsigned_to_nat(0u);
x_70 = lean_nat_dec_eq(x_68, x_69);
lean_dec(x_68);
if (x_70 == 0)
{
lean_object* x_73; lean_object* x_74; lean_object* x_75;
x_73 = lean_unsigned_to_nat(1u);
x_74 = l_Lean_Syntax_getArg___rarg(x_2, x_73);
lean_object* x_71; lean_object* x_72; lean_object* x_73;
x_71 = lean_unsigned_to_nat(1u);
x_72 = l_Lean_Syntax_getArg___rarg(x_2, x_71);
lean_inc(x_6);
x_75 = l_Lean_Elab_toPreTerm(x_74, x_6, x_7);
if (lean_obj_tag(x_75) == 0)
x_73 = l_Lean_Elab_toPreTerm(x_72, x_6, x_7);
if (lean_obj_tag(x_73) == 0)
{
lean_object* x_76; lean_object* x_77;
x_76 = lean_ctor_get(x_75, 0);
lean_inc(x_76);
x_77 = lean_ctor_get(x_75, 1);
lean_inc(x_77);
lean_dec(x_75);
x_26 = x_76;
x_27 = x_77;
goto block_69;
lean_object* x_74; lean_object* x_75;
x_74 = lean_ctor_get(x_73, 0);
lean_inc(x_74);
x_75 = lean_ctor_get(x_73, 1);
lean_inc(x_75);
lean_dec(x_73);
x_26 = x_74;
x_27 = x_75;
goto block_67;
}
else
{
uint8_t x_78;
uint8_t x_76;
lean_dec(x_25);
lean_dec(x_16);
lean_dec(x_13);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_1);
x_78 = !lean_is_exclusive(x_75);
if (x_78 == 0)
x_76 = !lean_is_exclusive(x_73);
if (x_76 == 0)
{
return x_75;
return x_73;
}
else
{
lean_object* x_79; lean_object* x_80; lean_object* x_81;
x_79 = lean_ctor_get(x_75, 0);
x_80 = lean_ctor_get(x_75, 1);
lean_inc(x_80);
lean_inc(x_79);
lean_dec(x_75);
x_81 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_81, 0, x_79);
lean_ctor_set(x_81, 1, x_80);
return x_81;
lean_object* x_77; lean_object* x_78; lean_object* x_79;
x_77 = lean_ctor_get(x_73, 0);
x_78 = lean_ctor_get(x_73, 1);
lean_inc(x_78);
lean_inc(x_77);
lean_dec(x_73);
x_79 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_79, 0, x_77);
lean_ctor_set(x_79, 1, x_78);
return x_79;
}
}
}
else
{
lean_object* x_82; lean_object* x_83; lean_object* x_84;
x_82 = l___private_Init_Lean_Elaborator_PreTerm_3__mkHoleFor(x_13, x_6, x_7);
x_83 = lean_ctor_get(x_82, 0);
lean_inc(x_83);
x_84 = lean_ctor_get(x_82, 1);
lean_inc(x_84);
lean_dec(x_82);
x_26 = x_83;
x_27 = x_84;
goto block_69;
lean_object* x_80; lean_object* x_81; lean_object* x_82;
x_80 = l___private_Init_Lean_Elaborator_PreTerm_3__mkHoleFor(x_13, x_6, x_7);
x_81 = lean_ctor_get(x_80, 0);
lean_inc(x_81);
x_82 = lean_ctor_get(x_80, 1);
lean_inc(x_82);
lean_dec(x_80);
x_26 = x_81;
x_27 = x_82;
goto block_67;
}
block_24:
{
@ -2897,7 +2897,7 @@ x_5 = x_22;
x_7 = x_18;
goto _start;
}
block_69:
block_67:
{
lean_object* x_28; lean_object* x_29; uint8_t x_30;
x_28 = l_Lean_Syntax_getNumArgs___rarg(x_3);
@ -2975,7 +2975,7 @@ lean_inc(x_6);
x_49 = l_Lean_Elab_toPreTerm(x_48, x_6, x_27);
if (lean_obj_tag(x_49) == 0)
{
lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59;
lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58;
x_50 = lean_ctor_get(x_49, 0);
lean_inc(x_50);
x_51 = lean_ctor_get(x_49, 1);
@ -2991,15 +2991,13 @@ lean_inc(x_57);
x_58 = lean_ctor_get(x_56, 1);
lean_inc(x_58);
lean_dec(x_56);
x_59 = l___private_Init_Lean_Elaborator_PreTerm_4__mkLocal(x_57);
lean_dec(x_57);
x_17 = x_59;
x_17 = x_57;
x_18 = x_58;
goto block_24;
}
else
{
uint8_t x_60;
uint8_t x_59;
lean_dec(x_26);
lean_dec(x_25);
lean_dec(x_16);
@ -3007,41 +3005,39 @@ lean_dec(x_13);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_1);
x_60 = !lean_is_exclusive(x_49);
if (x_60 == 0)
x_59 = !lean_is_exclusive(x_49);
if (x_59 == 0)
{
return x_49;
}
else
{
lean_object* x_61; lean_object* x_62; lean_object* x_63;
x_61 = lean_ctor_get(x_49, 0);
x_62 = lean_ctor_get(x_49, 1);
lean_inc(x_62);
lean_object* x_60; lean_object* x_61; lean_object* x_62;
x_60 = lean_ctor_get(x_49, 0);
x_61 = lean_ctor_get(x_49, 1);
lean_inc(x_61);
lean_inc(x_60);
lean_dec(x_49);
x_63 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_63, 0, x_61);
lean_ctor_set(x_63, 1, x_62);
return x_63;
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;
}
}
}
}
else
{
uint8_t x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68;
x_64 = 0;
x_65 = l_Lean_Elab_mkLocalDecl(x_25, x_26, x_64, x_6, x_27);
x_66 = lean_ctor_get(x_65, 0);
uint8_t x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66;
x_63 = 0;
x_64 = l_Lean_Elab_mkLocalDecl(x_25, x_26, x_63, x_6, x_27);
x_65 = lean_ctor_get(x_64, 0);
lean_inc(x_65);
x_66 = lean_ctor_get(x_64, 1);
lean_inc(x_66);
x_67 = lean_ctor_get(x_65, 1);
lean_inc(x_67);
lean_dec(x_65);
x_68 = l___private_Init_Lean_Elaborator_PreTerm_4__mkLocal(x_66);
lean_dec(x_66);
x_17 = x_68;
x_18 = x_67;
lean_dec(x_64);
x_17 = x_65;
x_18 = x_66;
goto block_24;
}
}
@ -3068,7 +3064,7 @@ return x_9;
}
else
{
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; uint8_t 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;
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; uint8_t 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;
x_10 = lean_array_fget(x_2, x_1);
x_11 = lean_box(0);
lean_inc(x_10);
@ -3088,15 +3084,13 @@ lean_inc(x_20);
x_21 = lean_ctor_get(x_19, 1);
lean_inc(x_21);
lean_dec(x_19);
x_22 = l___private_Init_Lean_Elaborator_PreTerm_4__mkLocal(x_20);
lean_dec(x_20);
x_23 = lean_unsigned_to_nat(1u);
x_24 = lean_nat_add(x_1, x_23);
x_25 = x_22;
x_26 = lean_array_fset(x_13, x_1, x_25);
x_22 = lean_unsigned_to_nat(1u);
x_23 = lean_nat_add(x_1, x_22);
x_24 = x_20;
x_25 = lean_array_fset(x_13, x_1, x_24);
lean_dec(x_1);
x_1 = x_24;
x_2 = x_26;
x_1 = x_23;
x_2 = x_25;
x_4 = x_21;
goto _start;
}
@ -3496,6 +3490,8 @@ lean_inc(x_20);
lean_dec(x_18);
x_21 = l_Lean_Elab_mkForall(x_14, x_19, x_2, x_20);
lean_dec(x_2);
lean_dec(x_19);
lean_dec(x_14);
x_22 = !lean_is_exclusive(x_21);
if (x_22 == 0)
{
@ -3698,6 +3694,8 @@ lean_inc(x_76);
lean_dec(x_74);
x_77 = l_Lean_Elab_mkForall(x_70, x_75, x_2, x_76);
lean_dec(x_2);
lean_dec(x_75);
lean_dec(x_70);
x_78 = lean_ctor_get(x_77, 1);
lean_inc(x_78);
x_79 = lean_ctor_get(x_77, 0);

472
src/stage0/Init/Lean/Expr.c
View file

@ -14,6 +14,7 @@
extern "C" {
#endif
lean_object* lean_expr_mk_mdata(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main(lean_object*);
uint8_t lean_expr_has_fvar(lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_lam___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -22,26 +23,32 @@ lean_object* l_Lean_Expr_hash___boxed(lean_object*);
lean_object* l_Lean_Expr_updateProj___boxed(lean_object*, lean_object*, lean_object*);
uint8_t lean_name_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn(lean_object*);
lean_object* l_Lean_Expr_betaRev(lean_object*, lean_object*);
lean_object* l_Lean_ExprStructEq_HasRepr(lean_object*);
lean_object* l_Lean_mkBinApp(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MData_empty;
lean_object* lean_expr_mk_forall(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Expr_constName(lean_object*);
lean_object* lean_expr_mk_sort(lean_object*);
lean_object* l___private_Init_Lean_Expr_5__betaRevAux(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_app(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateSort___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppRevArgs(lean_object*);
lean_object* l_Lean_Expr_updateConst___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_isLambda___boxed(lean_object*);
lean_object* l_Lean_Expr_withApp(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_forallE___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_bvarIdx(lean_object*);
lean_object* l_Lean_Expr_letName___closed__1;
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_Expr_updateLambda_x21(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_5__betaRevAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_mk_array(lean_object*, lean_object*);
lean_object* l_Lean_exprIsInhabited;
lean_object* l_Lean_Expr_updateLambdaE_x21(lean_object*, lean_object*, lean_object*);
@ -56,6 +63,7 @@ lean_object* lean_expr_mk_let(lean_object*, lean_object*, lean_object*, lean_obj
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* l_Lean_Expr_withAppRev(lean_object*);
lean_object* l_Lean_ExprStructEq_HasBeq___closed__1;
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*);
@ -73,10 +81,12 @@ lean_object* l_Lean_Expr_bindingName___boxed(lean_object*);
lean_object* l_Lean_BinderInfo_isInstImplicit___boxed(lean_object*);
lean_object* lean_expr_instantiate1(lean_object*, lean_object*);
lean_object* l_Lean_exprToExprStructEq___boxed(lean_object*);
lean_object* l___private_Init_Lean_Expr_5__betaRevAux___main___boxed(lean_object*, lean_object*, 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___private_Init_Lean_Expr_5__betaRevAux___main(lean_object*, 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_Array_miterateAux___main___at_Lean_mkApp___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsTrue___closed__3;
@ -84,15 +94,20 @@ lean_object* l_Lean_Expr_isProj___boxed(lean_object*);
lean_object* l_Lean_mkConst(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*);
lean_object* l_Lean_Expr_equal___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_Basic_3__miterateRevAux___main___at_Lean_mkAppRev___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_hasMVar___boxed(lean_object*);
lean_object* l_Lean_Expr_sort___boxed(lean_object*);
lean_object* l_Lean_Expr_HasToString___closed__1;
lean_object* l_Lean_ExprStructEq_HasToString(lean_object*);
lean_object* l_Lean_mkAppRev(lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateMData_x21(lean_object*, lean_object*);
lean_object* lean_expr_mk_fvar(lean_object*);
lean_object* lean_mk_empty_array_with_capacity(lean_object*);
lean_object* l_Lean_Expr_withAppAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_mkApp___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_forall(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___rarg(lean_object*, 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*);
@ -109,6 +124,7 @@ lean_object* l_Lean_Expr_updateForall_x21___boxed(lean_object*, lean_object*, le
lean_object* l_Lean_Expr_Hashable___closed__1;
uint8_t lean_expr_eqv(lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateMData___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppRev___rarg(lean_object*, lean_object*);
lean_object* l_Lean_MData_HasEmptyc;
lean_object* l_Lean_Expr_updateForall_x21(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_ExprStructEq_HasBeq;
@ -125,12 +141,15 @@ 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_constName___closed__2;
lean_object* l_Lean_Expr_updateForallE_x21(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withApp___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Expr_instantiate___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isForall(lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* lean_expr_update_const(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgs(lean_object*);
lean_object* l_Lean_mkDecIsTrue___closed__1;
lean_object* lean_expr_instantiate_range(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_withAppAux(lean_object*);
lean_object* l_Lean_mkBinCApp(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsFalse(lean_object*, lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
@ -150,6 +169,7 @@ extern lean_object* l_panicWithPos___rarg___closed__1;
lean_object* l_Lean_Expr_getAppArgs(lean_object*);
lean_object* l_Lean_mkCApp___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_letName(lean_object*);
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_mdata(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn___main___boxed(lean_object*);
uint8_t l_Lean_Expr_isFVar(lean_object*);
@ -165,7 +185,9 @@ uint8_t l_Lean_ExprStructEq_beq(lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateLambda___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkCApp(lean_object*, lean_object*);
lean_object* l_Lean_mkDecIsTrue___closed__5;
lean_object* l___private_Init_Data_Array_Basic_3__miterateRevAux___main___at_Lean_mkAppRev___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_hasFVar___boxed(lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux(lean_object*);
lean_object* l___private_Init_Lean_Expr_1__getAppArgsAux(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_HasToString;
uint8_t l_Lean_Expr_isAppOfArity___main(lean_object*, lean_object*, lean_object*);
@ -176,6 +198,7 @@ uint8_t l_Lean_Expr_isMVar(lean_object*);
lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* lean_expr_mk_bvar(lean_object*);
lean_object* l_Lean_Expr_bindingDomain___boxed(lean_object*);
lean_object* l_Lean_Expr_withAppAux___main(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___private_Init_Lean_Expr_1__getAppArgsAux___main(lean_object*, lean_object*, lean_object*);
@ -185,6 +208,7 @@ lean_object* l_Lean_Expr_updateLambda_x21___closed__1;
lean_object* l_Lean_BinderInfo_HasBeq___closed__1;
uint8_t lean_expr_lt(lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateApp___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_betaRev___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isApp(lean_object*);
lean_object* l_Lean_Expr_hasLevelMVar___boxed(lean_object*);
lean_object* lean_array_get_size(lean_object*);
@ -198,11 +222,13 @@ size_t l_Lean_ExprStructEq_hash(lean_object*);
lean_object* l_Lean_Expr_updateProj_x21(lean_object*, lean_object*);
lean_object* l_Lean_Expr_const___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_constLevels(lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_updateApp_x21(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_hasMVar(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* l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ExprStructEq_HasToString___boxed(lean_object*);
lean_object* lean_expr_mk_lambda(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Expr_letE___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -211,6 +237,7 @@ lean_object* l_Lean_Expr_bvarIdx___closed__1;
extern lean_object* l_panicWithPos___rarg___closed__2;
lean_object* l_Lean_Expr_HasBeq;
lean_object* l_Lean_mkApp___boxed(lean_object*, lean_object*);
lean_object* l_Lean_mkAppRev___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_bindingName___closed__1;
uint8_t l_Lean_Expr_isBVar(lean_object*);
lean_object* l_Lean_Expr_updateSort_x21___closed__1;
@ -220,18 +247,22 @@ lean_object* l_Lean_Expr_Hashable;
lean_object* l_Lean_Expr_updateMData_x21___closed__1;
lean_object* l_Lean_Expr_getAppNumArgs___boxed(lean_object*);
lean_object* l_Lean_Expr_bindingBody___boxed(lean_object*);
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_mvar___boxed(lean_object*);
lean_object* lean_expr_abstract(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(lean_object*, lean_object*, 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_instantiateRange___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_sort(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isProj(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*);
lean_object* l_Lean_Expr_getAppFn___boxed(lean_object*);
lean_object* l_Lean_Expr_mkAppRevRange(lean_object*, lean_object*, lean_object*, 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_mkAppRevRange___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux(lean_object*, lean_object*);
lean_object* l_Lean_Expr_isMVar___boxed(lean_object*);
lean_object* l_Lean_ExprStructEq_Inhabited;
@ -623,6 +654,60 @@ lean_dec(x_2);
return x_3;
}
}
lean_object* l___private_Init_Data_Array_Basic_3__miterateRevAux___main___at_Lean_mkAppRev___spec__1(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; uint8_t x_7;
x_6 = lean_unsigned_to_nat(0u);
x_7 = lean_nat_dec_eq(x_3, x_6);
if (x_7 == 0)
{
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);
x_11 = lean_expr_mk_app(x_5, x_10);
x_3 = x_9;
x_4 = lean_box(0);
x_5 = x_11;
goto _start;
}
else
{
lean_dec(x_3);
return x_5;
}
}
}
lean_object* l_Lean_mkAppRev(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = lean_array_get_size(x_2);
x_4 = l___private_Init_Data_Array_Basic_3__miterateRevAux___main___at_Lean_mkAppRev___spec__1(x_2, x_2, x_3, lean_box(0), x_1);
return x_4;
}
}
lean_object* l___private_Init_Data_Array_Basic_3__miterateRevAux___main___at_Lean_mkAppRev___spec__1___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___private_Init_Data_Array_Basic_3__miterateRevAux___main___at_Lean_mkAppRev___spec__1(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
lean_dec(x_1);
return x_6;
}
}
lean_object* l_Lean_mkAppRev___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_mkAppRev(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* l_Lean_Expr_hash___boxed(lean_object* x_1) {
_start:
{
@ -1311,6 +1396,151 @@ x_5 = l___private_Init_Lean_Expr_2__getAppRevArgsAux___main(x_1, x_4);
return x_5;
}
}
lean_object* l_Lean_Expr_withAppAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
if (lean_obj_tag(x_2) == 5)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_5 = lean_ctor_get(x_2, 0);
lean_inc(x_5);
x_6 = lean_ctor_get(x_2, 1);
lean_inc(x_6);
lean_dec(x_2);
x_7 = lean_array_set(x_3, x_4, x_6);
x_8 = lean_unsigned_to_nat(1u);
x_9 = lean_nat_sub(x_4, x_8);
lean_dec(x_4);
x_2 = x_5;
x_3 = x_7;
x_4 = x_9;
goto _start;
}
else
{
lean_object* x_11;
lean_dec(x_4);
x_11 = lean_apply_2(x_1, x_2, x_3);
return x_11;
}
}
}
lean_object* l_Lean_Expr_withAppAux___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___main___rarg), 4, 0);
return x_2;
}
}
lean_object* l_Lean_Expr_withAppAux___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_Lean_Expr_withAppAux___main___rarg(x_1, x_2, x_3, x_4);
return x_5;
}
}
lean_object* l_Lean_Expr_withAppAux(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_withAppAux___rarg), 4, 0);
return x_2;
}
}
lean_object* l_Lean_Expr_withApp___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
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;
x_3 = lean_unsigned_to_nat(0u);
x_4 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_3);
x_5 = l_Lean_exprIsInhabited___closed__1;
lean_inc(x_4);
x_6 = lean_mk_array(x_4, x_5);
x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
x_9 = l_Lean_Expr_withAppAux___main___rarg(x_2, x_1, x_6, x_8);
return x_9;
}
}
lean_object* l_Lean_Expr_withApp(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_withApp___rarg), 2, 0);
return x_2;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_2) == 5)
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_4 = lean_ctor_get(x_2, 0);
lean_inc(x_4);
x_5 = lean_ctor_get(x_2, 1);
lean_inc(x_5);
lean_dec(x_2);
x_6 = lean_array_push(x_3, x_5);
x_2 = x_4;
x_3 = x_6;
goto _start;
}
else
{
lean_object* x_8;
x_8 = lean_apply_2(x_1, x_2, x_3);
return x_8;
}
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Expr_3__withAppRevAux___main___rarg), 3, 0);
return x_2;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l___private_Init_Lean_Expr_3__withAppRevAux___main___rarg(x_1, x_2, x_3);
return x_4;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Expr_3__withAppRevAux___rarg), 3, 0);
return x_2;
}
}
lean_object* l_Lean_Expr_withAppRev___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_3 = lean_unsigned_to_nat(0u);
x_4 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_3);
x_5 = lean_mk_empty_array_with_capacity(x_4);
lean_dec(x_4);
x_6 = l___private_Init_Lean_Expr_3__withAppRevAux___main___rarg(x_2, x_1, x_5);
return x_6;
}
}
lean_object* l_Lean_Expr_withAppRev(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Expr_withAppRev___rarg), 2, 0);
return x_2;
}
}
uint8_t l_Lean_Expr_isAppOf(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -1488,7 +1718,7 @@ 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(215u);
x_4 = lean_unsigned_to_nat(234u);
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);
@ -1553,7 +1783,7 @@ 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(219u);
x_4 = lean_unsigned_to_nat(238u);
x_5 = lean_unsigned_to_nat(16u);
x_6 = l_Lean_Expr_constName___closed__2;
x_7 = l_panicWithPos___at_Lean_Expr_constLevels___spec__1(x_3, x_4, x_5, x_6);
@ -1602,7 +1832,7 @@ 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(223u);
x_4 = lean_unsigned_to_nat(242u);
x_5 = lean_unsigned_to_nat(14u);
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);
@ -1641,7 +1871,7 @@ 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(227u);
x_4 = lean_unsigned_to_nat(246u);
x_5 = lean_unsigned_to_nat(12u);
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);
@ -1688,7 +1918,7 @@ default:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(232u);
x_5 = lean_unsigned_to_nat(251u);
x_6 = lean_unsigned_to_nat(21u);
x_7 = l_Lean_Expr_bindingName___closed__1;
x_8 = l_panicWithPos___at_Lean_Expr_constName___spec__1(x_4, x_5, x_6, x_7);
@ -1752,7 +1982,7 @@ default:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(237u);
x_5 = lean_unsigned_to_nat(256u);
x_6 = lean_unsigned_to_nat(21u);
x_7 = l_Lean_Expr_bindingName___closed__1;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_4, x_5, x_6, x_7);
@ -1802,7 +2032,7 @@ default:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(242u);
x_5 = lean_unsigned_to_nat(261u);
x_6 = lean_unsigned_to_nat(21u);
x_7 = l_Lean_Expr_bindingName___closed__1;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_4, x_5, x_6, x_7);
@ -1842,7 +2072,7 @@ 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(246u);
x_4 = lean_unsigned_to_nat(265u);
x_5 = lean_unsigned_to_nat(18u);
x_6 = l_Lean_Expr_letName___closed__1;
x_7 = l_panicWithPos___at_Lean_Expr_constName___spec__1(x_3, x_4, x_5, x_6);
@ -1864,6 +2094,8 @@ _start:
{
lean_object* x_3;
x_3 = lean_expr_instantiate(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
@ -1872,6 +2104,8 @@ _start:
{
lean_object* x_3;
x_3 = lean_expr_instantiate1(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
@ -1880,14 +2114,29 @@ _start:
{
lean_object* x_3;
x_3 = lean_expr_instantiate_rev(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Lean_Expr_instantiateRange___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = lean_expr_instantiate_range(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_Expr_abstract___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_expr_abstract(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
@ -1896,6 +2145,9 @@ _start:
{
lean_object* x_4;
x_4 = lean_expr_abstract_range(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
}
@ -2169,6 +2421,190 @@ lean_dec(x_1);
return x_2;
}
}
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
uint8_t x_5;
x_5 = lean_nat_dec_eq(x_4, x_2);
if (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 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_4, x_6);
lean_dec(x_4);
x_8 = l_Lean_exprIsInhabited;
x_9 = lean_array_get(x_8, x_1, x_7);
x_10 = lean_expr_mk_app(x_3, x_9);
x_3 = x_10;
x_4 = x_7;
goto _start;
}
else
{
lean_dec(x_4);
return x_3;
}
}
}
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main___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___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(x_1, x_2, x_3, x_4);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(x_1, x_2, x_3, x_4);
return x_5;
}
}
lean_object* l___private_Init_Lean_Expr_4__mkAppRevRangeAux___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___private_Init_Lean_Expr_4__mkAppRevRangeAux(x_1, x_2, x_3, x_4);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_Expr_mkAppRevRange(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(x_4, x_2, x_1, x_3);
return x_5;
}
}
lean_object* l_Lean_Expr_mkAppRevRange___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_Lean_Expr_mkAppRevRange(x_1, x_2, x_3, x_4);
lean_dec(x_4);
lean_dec(x_2);
return x_5;
}
}
lean_object* l___private_Init_Lean_Expr_5__betaRevAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
if (lean_obj_tag(x_3) == 6)
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_14;
x_11 = lean_ctor_get(x_3, 2);
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_4, x_12);
lean_dec(x_4);
x_14 = lean_nat_dec_lt(x_13, x_2);
if (x_14 == 0)
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_15 = lean_nat_sub(x_2, x_13);
lean_dec(x_13);
lean_inc(x_1);
x_16 = lean_expr_instantiate_range(x_11, x_15, x_2, x_1);
x_17 = lean_unsigned_to_nat(0u);
x_18 = l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(x_1, x_17, x_16, x_15);
lean_dec(x_1);
return x_18;
}
else
{
x_3 = x_11;
x_4 = x_13;
goto _start;
}
}
else
{
lean_object* x_20;
x_20 = lean_box(0);
x_5 = x_20;
goto block_10;
}
block_10:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
lean_dec(x_5);
x_6 = lean_nat_sub(x_2, x_4);
lean_dec(x_4);
lean_inc(x_1);
x_7 = lean_expr_instantiate_range(x_3, x_6, x_2, x_1);
x_8 = lean_unsigned_to_nat(0u);
x_9 = l___private_Init_Lean_Expr_4__mkAppRevRangeAux___main(x_1, x_8, x_7, x_6);
lean_dec(x_1);
return x_9;
}
}
}
lean_object* l___private_Init_Lean_Expr_5__betaRevAux___main___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___private_Init_Lean_Expr_5__betaRevAux___main(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
}
lean_object* l___private_Init_Lean_Expr_5__betaRevAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l___private_Init_Lean_Expr_5__betaRevAux___main(x_1, x_2, x_3, x_4);
return x_5;
}
}
lean_object* l___private_Init_Lean_Expr_5__betaRevAux___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___private_Init_Lean_Expr_5__betaRevAux(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_Expr_betaRev(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; uint8_t x_5;
x_3 = lean_array_get_size(x_2);
x_4 = lean_unsigned_to_nat(0u);
x_5 = lean_nat_dec_eq(x_3, x_4);
if (x_5 == 0)
{
lean_object* x_6;
x_6 = l___private_Init_Lean_Expr_5__betaRevAux___main(x_2, x_3, x_1, x_4);
lean_dec(x_3);
return x_6;
}
else
{
lean_dec(x_3);
lean_dec(x_2);
lean_inc(x_1);
return x_1;
}
}
}
lean_object* l_Lean_Expr_betaRev___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_Expr_betaRev(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Lean_Expr_updateApp___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -2201,7 +2637,7 @@ lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_5 = l_Lean_Expr_constName___closed__1;
x_6 = lean_unsigned_to_nat(337u);
x_6 = lean_unsigned_to_nat(398u);
x_7 = lean_unsigned_to_nat(16u);
x_8 = l_Lean_Expr_updateApp_x21___closed__1;
x_9 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_5, x_6, x_7, x_8);
@ -2232,7 +2668,7 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_obj
lean_dec(x_2);
lean_dec(x_1);
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(346u);
x_5 = lean_unsigned_to_nat(407u);
x_6 = lean_unsigned_to_nat(16u);
x_7 = l_Lean_Expr_constName___closed__2;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_4, x_5, x_6, x_7);
@ -2271,7 +2707,7 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_obj
lean_dec(x_2);
lean_dec(x_1);
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(355u);
x_5 = lean_unsigned_to_nat(416u);
x_6 = lean_unsigned_to_nat(12u);
x_7 = l_Lean_Expr_updateSort_x21___closed__1;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_4, x_5, x_6, x_7);
@ -2318,7 +2754,7 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_obj
lean_dec(x_2);
lean_dec(x_1);
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(372u);
x_5 = lean_unsigned_to_nat(433u);
x_6 = lean_unsigned_to_nat(15u);
x_7 = l_Lean_Expr_updateMData_x21___closed__1;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_4, x_5, x_6, x_7);
@ -2349,7 +2785,7 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_obj
lean_dec(x_2);
lean_dec(x_1);
x_4 = l_Lean_Expr_constName___closed__1;
x_5 = lean_unsigned_to_nat(377u);
x_5 = lean_unsigned_to_nat(438u);
x_6 = lean_unsigned_to_nat(16u);
x_7 = l_Lean_Expr_updateProj_x21___closed__1;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_4, x_5, x_6, x_7);
@ -2391,7 +2827,7 @@ lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_6 = l_Lean_Expr_constName___closed__1;
x_7 = lean_unsigned_to_nat(386u);
x_7 = lean_unsigned_to_nat(447u);
x_8 = lean_unsigned_to_nat(22u);
x_9 = l_Lean_Expr_updateForall_x21___closed__1;
x_10 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_6, x_7, x_8, x_9);
@ -2426,7 +2862,7 @@ lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_6 = l_Lean_Expr_constName___closed__1;
x_7 = lean_unsigned_to_nat(391u);
x_7 = lean_unsigned_to_nat(452u);
x_8 = lean_unsigned_to_nat(22u);
x_9 = l_Lean_Expr_updateForall_x21___closed__1;
x_10 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_6, x_7, x_8, x_9);
@ -2468,7 +2904,7 @@ lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_6 = l_Lean_Expr_constName___closed__1;
x_7 = lean_unsigned_to_nat(400u);
x_7 = lean_unsigned_to_nat(461u);
x_8 = lean_unsigned_to_nat(18u);
x_9 = l_Lean_Expr_updateLambda_x21___closed__1;
x_10 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_6, x_7, x_8, x_9);
@ -2503,7 +2939,7 @@ lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_6 = l_Lean_Expr_constName___closed__1;
x_7 = lean_unsigned_to_nat(405u);
x_7 = lean_unsigned_to_nat(466u);
x_8 = lean_unsigned_to_nat(18u);
x_9 = l_Lean_Expr_updateLambda_x21___closed__1;
x_10 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_6, x_7, x_8, x_9);
@ -2536,7 +2972,7 @@ lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_6 = l_Lean_Expr_constName___closed__1;
x_7 = lean_unsigned_to_nat(414u);
x_7 = lean_unsigned_to_nat(475u);
x_8 = lean_unsigned_to_nat(18u);
x_9 = l_Lean_Expr_letName___closed__1;
x_10 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_6, x_7, x_8, x_9);

186
src/stage0/Init/Lean/LocalContext.c
View file

@ -33,6 +33,7 @@ size_t l_USize_mul(size_t, size_t);
lean_object* l_PersistentArray_mfindRev___at_Lean_LocalContext_findDeclRev___spec__2___rarg(lean_object*, lean_object*);
uint8_t l_Lean_LocalContext_isSubPrefixOfAux(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_local_ctx_find_from_user_name(lean_object*, lean_object*);
lean_object* l_Nat_foldRevAux___main___at_Lean_LocalContext_mkLambda___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_mfoldl___at_Lean_LocalContext_mfoldl___spec__1___boxed(lean_object*);
lean_object* lean_expr_mk_forall(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_mfoldlFrom___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -92,6 +93,7 @@ lean_object* l_Array_mfindAux___main___at_Lean_LocalContext_findDecl___spec__5(l
lean_object* l_PersistentArray_mforAux___main___at_Lean_LocalContext_mfor___spec__2___boxed(lean_object*);
lean_object* l_Lean_LocalContext_mfindDeclRev___at_Lean_LocalContext_findDeclRev___spec__1(lean_object*);
lean_object* l_Array_mfindRevAux___main___at_Lean_LocalContext_mfindDeclRev___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mkLambda___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mfindDecl___boxed(lean_object*);
lean_object* l_Lean_LocalContext_mfoldlFrom___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_findDeclRev___rarg(lean_object*, lean_object*);
@ -100,6 +102,7 @@ lean_object* l_PersistentArray_mfoldlAux___main___at_Lean_LocalContext_foldl___s
lean_object* l_Lean_LocalContext_findDeclRev(lean_object*);
lean_object* l_PersistentArray_mfindRev___at_Lean_LocalContext_findDeclRev___spec__2___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_miterateAux___main___at_Lean_LocalContext_mfoldlFrom___spec__3___boxed(lean_object*);
lean_object* l_Lean_LocalContext_mkForall___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mfindAux___main___at_Lean_LocalContext_findDecl___spec__5___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mkBinding(uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mfor___boxed(lean_object*);
@ -241,6 +244,7 @@ lean_object* l_PersistentArray_mfoldlFrom___at_Lean_LocalContext_mfoldlFrom___sp
lean_object* l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mforAux___main___at_Lean_LocalContext_mfor___spec__4___boxed(lean_object*);
lean_object* lean_expr_abstract_range(lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_foldRevAux___main___at_Lean_LocalContext_mkForall___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_mfoldl___boxed(lean_object*);
lean_object* l_Array_mfindAux___main___at_Lean_LocalContext_mfindDecl___spec__4___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_mforAux___main___at_Lean_LocalContext_mfor___spec__5___boxed(lean_object*);
@ -1181,7 +1185,7 @@ uint8_t x_6;
x_6 = !lean_is_exclusive(x_1);
if (x_6 == 0)
{
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_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;
x_7 = lean_ctor_get(x_1, 0);
x_8 = lean_ctor_get(x_1, 1);
x_9 = lean_ctor_get(x_8, 2);
@ -1195,47 +1199,39 @@ lean_ctor_set(x_10, 3, x_4);
lean_ctor_set_uint8(x_10, sizeof(void*)*4, x_5);
lean_inc(x_10);
x_11 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_7, x_2, x_10);
lean_inc(x_10);
x_12 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_12, 0, x_10);
x_13 = l_PersistentArray_push___rarg(x_8, x_12);
lean_ctor_set(x_1, 1, x_13);
lean_ctor_set(x_1, 0, x_11);
x_14 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_14, 0, x_10);
lean_ctor_set(x_14, 1, x_1);
return x_14;
return x_1;
}
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;
x_15 = lean_ctor_get(x_1, 0);
x_16 = lean_ctor_get(x_1, 1);
lean_inc(x_16);
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_1, 0);
x_15 = lean_ctor_get(x_1, 1);
lean_inc(x_15);
lean_inc(x_14);
lean_dec(x_1);
x_17 = lean_ctor_get(x_16, 2);
lean_inc(x_17);
x_16 = lean_ctor_get(x_15, 2);
lean_inc(x_16);
lean_inc(x_2);
x_18 = lean_alloc_ctor(0, 4, 1);
lean_ctor_set(x_18, 0, x_17);
lean_ctor_set(x_18, 1, x_2);
lean_ctor_set(x_18, 2, x_3);
lean_ctor_set(x_18, 3, x_4);
lean_ctor_set_uint8(x_18, sizeof(void*)*4, x_5);
lean_inc(x_18);
x_19 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_15, x_2, x_18);
lean_inc(x_18);
x_20 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_20, 0, x_18);
x_21 = l_PersistentArray_push___rarg(x_16, x_20);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_19);
lean_ctor_set(x_22, 1, x_21);
x_23 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_23, 0, x_18);
lean_ctor_set(x_23, 1, x_22);
return x_23;
x_17 = lean_alloc_ctor(0, 4, 1);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_2);
lean_ctor_set(x_17, 2, x_3);
lean_ctor_set(x_17, 3, x_4);
lean_ctor_set_uint8(x_17, sizeof(void*)*4, x_5);
lean_inc(x_17);
x_18 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_14, x_2, x_17);
x_19 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_19, 0, x_17);
x_20 = l_PersistentArray_push___rarg(x_15, x_19);
x_21 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_21, 0, x_18);
lean_ctor_set(x_21, 1, x_20);
return x_21;
}
}
}
@ -1281,7 +1277,7 @@ uint8_t x_6;
x_6 = !lean_is_exclusive(x_1);
if (x_6 == 0)
{
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_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;
x_7 = lean_ctor_get(x_1, 0);
x_8 = lean_ctor_get(x_1, 1);
x_9 = lean_ctor_get(x_8, 2);
@ -1295,47 +1291,39 @@ lean_ctor_set(x_10, 3, x_4);
lean_ctor_set(x_10, 4, x_5);
lean_inc(x_10);
x_11 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_7, x_2, x_10);
lean_inc(x_10);
x_12 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_12, 0, x_10);
x_13 = l_PersistentArray_push___rarg(x_8, x_12);
lean_ctor_set(x_1, 1, x_13);
lean_ctor_set(x_1, 0, x_11);
x_14 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_14, 0, x_10);
lean_ctor_set(x_14, 1, x_1);
return x_14;
return x_1;
}
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;
x_15 = lean_ctor_get(x_1, 0);
x_16 = lean_ctor_get(x_1, 1);
lean_inc(x_16);
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_1, 0);
x_15 = lean_ctor_get(x_1, 1);
lean_inc(x_15);
lean_inc(x_14);
lean_dec(x_1);
x_17 = lean_ctor_get(x_16, 2);
lean_inc(x_17);
x_16 = lean_ctor_get(x_15, 2);
lean_inc(x_16);
lean_inc(x_2);
x_18 = lean_alloc_ctor(1, 5, 0);
lean_ctor_set(x_18, 0, x_17);
lean_ctor_set(x_18, 1, x_2);
lean_ctor_set(x_18, 2, x_3);
lean_ctor_set(x_18, 3, x_4);
lean_ctor_set(x_18, 4, x_5);
lean_inc(x_18);
x_19 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_15, x_2, x_18);
lean_inc(x_18);
x_20 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_20, 0, x_18);
x_21 = l_PersistentArray_push___rarg(x_16, x_20);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_19);
lean_ctor_set(x_22, 1, x_21);
x_23 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_23, 0, x_18);
lean_ctor_set(x_23, 1, x_22);
return x_23;
x_17 = lean_alloc_ctor(1, 5, 0);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_2);
lean_ctor_set(x_17, 2, x_3);
lean_ctor_set(x_17, 3, x_4);
lean_ctor_set(x_17, 4, x_5);
lean_inc(x_17);
x_18 = l_PersistentHashMap_insert___at_Lean_LocalContext_mkLocalDecl___spec__1(x_14, x_2, x_17);
x_19 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_19, 0, x_17);
x_20 = l_PersistentArray_push___rarg(x_15, x_19);
x_21 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_21, 0, x_18);
lean_ctor_set(x_21, 1, x_20);
return x_21;
}
}
}
@ -6615,9 +6603,8 @@ x_16 = lean_ctor_get(x_14, 3);
lean_inc(x_16);
x_17 = lean_ctor_get_uint8(x_14, sizeof(void*)*4);
lean_dec(x_14);
lean_inc(x_3);
lean_inc(x_9);
x_18 = lean_expr_abstract_range(x_16, x_9, x_3);
lean_dec(x_16);
if (x_1 == 0)
{
lean_object* x_19;
@ -6645,12 +6632,10 @@ lean_inc(x_24);
x_25 = lean_ctor_get(x_14, 4);
lean_inc(x_25);
lean_dec(x_14);
lean_inc(x_3);
lean_inc(x_9);
x_26 = lean_expr_abstract_range(x_24, x_9, x_3);
lean_inc(x_3);
lean_inc(x_9);
lean_dec(x_24);
x_27 = lean_expr_abstract_range(x_25, x_9, x_3);
lean_dec(x_25);
x_28 = lean_expr_mk_let(x_23, x_26, x_27, x_5);
x_4 = x_9;
x_5 = x_28;
@ -6661,7 +6646,6 @@ goto _start;
else
{
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
@ -6671,7 +6655,6 @@ lean_object* l_Lean_LocalContext_mkBinding(uint8_t x_1, lean_object* x_2, lean_o
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7;
lean_inc(x_3);
x_5 = lean_expr_abstract(x_4, x_3);
x_6 = lean_array_get_size(x_3);
x_7 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1(x_1, x_2, x_3, x_6, x_5);
@ -6685,6 +6668,7 @@ uint8_t x_6; lean_object* x_7;
x_6 = lean_unbox(x_1);
lean_dec(x_1);
x_7 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1(x_6, x_2, x_3, x_4, x_5);
lean_dec(x_3);
return x_7;
}
}
@ -6695,6 +6679,8 @@ uint8_t x_5; lean_object* x_6;
x_5 = lean_unbox(x_1);
lean_dec(x_1);
x_6 = l_Lean_LocalContext_mkBinding(x_5, x_2, x_3, x_4);
lean_dec(x_4);
lean_dec(x_3);
return x_6;
}
}
@ -6734,9 +6720,8 @@ x_15 = lean_ctor_get(x_13, 3);
lean_inc(x_15);
x_16 = lean_ctor_get_uint8(x_13, sizeof(void*)*4);
lean_dec(x_13);
lean_inc(x_2);
lean_inc(x_8);
x_17 = lean_expr_abstract_range(x_15, x_8, x_2);
lean_dec(x_15);
x_18 = lean_expr_mk_lambda(x_14, x_16, x_17, x_4);
x_3 = x_8;
x_4 = x_18;
@ -6752,12 +6737,10 @@ lean_inc(x_21);
x_22 = lean_ctor_get(x_13, 4);
lean_inc(x_22);
lean_dec(x_13);
lean_inc(x_2);
lean_inc(x_8);
x_23 = lean_expr_abstract_range(x_21, x_8, x_2);
lean_inc(x_2);
lean_inc(x_8);
lean_dec(x_21);
x_24 = lean_expr_abstract_range(x_22, x_8, x_2);
lean_dec(x_22);
x_25 = lean_expr_mk_let(x_20, x_23, x_24, x_4);
x_3 = x_8;
x_4 = x_25;
@ -6768,7 +6751,6 @@ goto _start;
else
{
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
@ -6778,13 +6760,31 @@ lean_object* l_Lean_LocalContext_mkLambda(lean_object* x_1, lean_object* x_2, le
_start:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
lean_inc(x_2);
x_4 = lean_expr_abstract(x_3, x_2);
x_5 = lean_array_get_size(x_2);
x_6 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkLambda___spec__1(x_1, x_2, x_5, x_4);
return x_6;
}
}
lean_object* l_Nat_foldRevAux___main___at_Lean_LocalContext_mkLambda___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_Nat_foldRevAux___main___at_Lean_LocalContext_mkLambda___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_LocalContext_mkLambda___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Lean_LocalContext_mkLambda(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Nat_foldRevAux___main___at_Lean_LocalContext_mkForall___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -6821,9 +6821,8 @@ x_15 = lean_ctor_get(x_13, 3);
lean_inc(x_15);
x_16 = lean_ctor_get_uint8(x_13, sizeof(void*)*4);
lean_dec(x_13);
lean_inc(x_2);
lean_inc(x_8);
x_17 = lean_expr_abstract_range(x_15, x_8, x_2);
lean_dec(x_15);
x_18 = lean_expr_mk_forall(x_14, x_16, x_17, x_4);
x_3 = x_8;
x_4 = x_18;
@ -6839,12 +6838,10 @@ lean_inc(x_21);
x_22 = lean_ctor_get(x_13, 4);
lean_inc(x_22);
lean_dec(x_13);
lean_inc(x_2);
lean_inc(x_8);
x_23 = lean_expr_abstract_range(x_21, x_8, x_2);
lean_inc(x_2);
lean_inc(x_8);
lean_dec(x_21);
x_24 = lean_expr_abstract_range(x_22, x_8, x_2);
lean_dec(x_22);
x_25 = lean_expr_mk_let(x_20, x_23, x_24, x_4);
x_3 = x_8;
x_4 = x_25;
@ -6855,7 +6852,6 @@ goto _start;
else
{
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
@ -6865,13 +6861,31 @@ lean_object* l_Lean_LocalContext_mkForall(lean_object* x_1, lean_object* x_2, le
_start:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
lean_inc(x_2);
x_4 = lean_expr_abstract(x_3, x_2);
x_5 = lean_array_get_size(x_2);
x_6 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkForall___spec__1(x_1, x_2, x_5, x_4);
return x_6;
}
}
lean_object* l_Nat_foldRevAux___main___at_Lean_LocalContext_mkForall___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_Nat_foldRevAux___main___at_Lean_LocalContext_mkForall___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_LocalContext_mkForall___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Lean_LocalContext_mkForall(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* initialize_Init_Data_PersistentArray_Basic(lean_object*);
lean_object* initialize_Init_Data_PersistentHashMap_Basic(lean_object*);
lean_object* initialize_Init_Lean_Expr(lean_object*);

8988
src/stage0/Init/Lean/MetavarContext.c
View file

File diff suppressed because it is too large Load diff

21
src/stage0/Init/Lean/TypeClass/Context.c
View file

@ -44,7 +44,6 @@ lean_object* lean_expr_dbg_to_string(lean_object*);
lean_object* l_Lean_TypeClass_Context_alphaMetaPrefix___closed__1;
lean_object* l_Lean_TypeClass_Context_slowWhnfApp(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_uLookupIdx(lean_object*, lean_object*);
lean_object* l_StateT_Monad___rarg(lean_object*);
lean_object* l_Lean_TypeClass_Context_uUnify___main___closed__4;
uint8_t l_Lean_TypeClass_Context_eFind(lean_object*, lean_object*);
lean_object* l_PersistentArray_get_x21___at_Lean_TypeClass_Context_uLookupIdx___spec__1___boxed(lean_object*, lean_object*);
@ -75,7 +74,6 @@ lean_object* l_Lean_TypeClass_Context_Inhabited___closed__1;
lean_object* l_Lean_TypeClass_Context_eAssign___closed__1;
lean_object* l_Lean_Level_format(lean_object*);
lean_object* l_PersistentArray_set___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Id_Monad;
lean_object* l_Lean_TypeClass_Context_uLookupIdx___boxed(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_eUnify___main___closed__1;
lean_object* l_Lean_TypeClass_Context_uFind___main___boxed(lean_object*, lean_object*);
@ -186,8 +184,8 @@ lean_object* lean_expr_mk_lambda(lean_object*, uint8_t, lean_object*, lean_objec
lean_object* l_Lean_TypeClass_Context_eNewMeta(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_uHasTmpMVar___boxed(lean_object*);
lean_object* l_panicWithPos___at_Lean_TypeClass_Context_eUnify___main___spec__1___closed__1;
lean_object* l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__2;
extern lean_object* l_panicWithPos___rarg___closed__2;
extern lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___spec__1___rarg___closed__1;
lean_object* l_PersistentArray_getAux___main___at_Lean_TypeClass_Context_uLookupIdx___spec__2(lean_object*, size_t, size_t);
lean_object* l_Lean_TypeClass_Context_uAssign(lean_object*, lean_object*, lean_object*);
size_t l_USize_shift__left(size_t, size_t);
@ -823,17 +821,8 @@ return x_4;
lean_object* _init_l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Id_Monad;
x_2 = l_StateT_Monad___rarg(x_1);
return x_2;
}
}
lean_object* _init_l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__1;
x_1 = l_panicWithPos___at_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___spec__1___rarg___closed__1;
x_2 = l_PUnit_Inhabited;
x_3 = l_monadInhabited___rarg(x_1, x_2);
return x_3;
@ -858,7 +847,7 @@ 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 = l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__2;
x_19 = l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__1;
x_20 = lean_panic_fn(x_18);
x_21 = lean_apply_1(x_20, x_5);
return x_21;
@ -2517,6 +2506,8 @@ lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
lean_dec(x_2);
x_16 = lean_array_fget(x_1, x_3);
x_17 = lean_expr_instantiate1(x_13, x_16);
lean_dec(x_16);
lean_dec(x_13);
x_18 = lean_unsigned_to_nat(1u);
x_19 = lean_nat_add(x_3, x_18);
lean_dec(x_3);
@ -6861,8 +6852,6 @@ l_Lean_TypeClass_Context_eInfer___closed__2 = _init_l_Lean_TypeClass_Context_eIn
lean_mark_persistent(l_Lean_TypeClass_Context_eInfer___closed__2);
l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__1 = _init_l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__1();
lean_mark_persistent(l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__1);
l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__2 = _init_l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__2();
lean_mark_persistent(l_panicWithPos___at_Lean_TypeClass_Context_eAssign___spec__1___closed__2);
l_Lean_TypeClass_Context_eAssign___closed__1 = _init_l_Lean_TypeClass_Context_eAssign___closed__1();
lean_mark_persistent(l_Lean_TypeClass_Context_eAssign___closed__1);
l_Lean_TypeClass_Context_eHasETmpMVar___closed__1 = _init_l_Lean_TypeClass_Context_eHasETmpMVar___closed__1();

135
src/stage0/Init/Lean/TypeClass/Synth.c
View file

@ -24,6 +24,7 @@ lean_object* lean_nat_sub(lean_object*, lean_object*);
uint8_t l_Lean_Expr_isConst(lean_object*);
lean_object* l_panicWithPos___at_Lean_TypeClass_collectEReplacements___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_eInfer(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_collectEReplacements___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_synthCore___rarg(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_findAux___main___at_Lean_TypeClass_newAnswer___spec__2___boxed(lean_object*, lean_object*, lean_object*);
@ -120,7 +121,9 @@ lean_object* lean_instantiate_type_lparams(lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__1;
lean_object* l_Stack_peek_x21___at_Lean_TypeClass_generate___spec__1___boxed(lean_object*);
lean_object* l_Lean_TypeClass_collectEReplacements___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_GeneratorNode_Inhabited;
lean_object* l_Lean_TypeClass_introduceMVars___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2;
lean_object* l_Array_mforAux___main___at_Lean_TypeClass_newAnswer___spec__5(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_introduceMVars(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -138,6 +141,7 @@ lean_object* l___private_Init_Lean_Expr_1__getAppArgsAux___main(lean_object*, le
lean_object* l_Lean_TypeClass_newConsumerNode(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_eInstantiate___main(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_generate___closed__1;
lean_object* l_Lean_TypeClass_introduceMVars___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_pop(lean_object*);
lean_object* l_Lean_TypeClass_newSubgoal___closed__3;
lean_object* l_Lean_TypeClass_preprocessForOutParams(lean_object*, lean_object*);
@ -1238,9 +1242,9 @@ lean_inc(x_13);
x_14 = lean_ctor_get(x_5, 2);
lean_inc(x_14);
lean_dec(x_5);
lean_inc(x_2);
lean_inc(x_1);
x_15 = l_Lean_LocalContext_mkForall(x_1, x_2, x_13);
lean_dec(x_13);
x_16 = l_Lean_TypeClass_Context_eNewMeta(x_15, x_3);
x_17 = lean_ctor_get(x_16, 0);
lean_inc(x_17);
@ -1253,6 +1257,8 @@ x_20 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_2, x_2, x_19, x_17
lean_inc(x_20);
x_21 = lean_expr_mk_app(x_4, x_20);
x_22 = lean_expr_instantiate1(x_14, x_20);
lean_dec(x_20);
lean_dec(x_14);
x_23 = l_Lean_BinderInfo_isInstImplicit(x_12);
if (x_23 == 0)
{
@ -1276,7 +1282,6 @@ goto _start;
else
{
lean_object* x_27;
lean_dec(x_2);
lean_dec(x_1);
x_27 = lean_box(0);
x_7 = x_27;
@ -1299,6 +1304,15 @@ return x_10;
}
}
}
lean_object* l_Lean_TypeClass_introduceMVars___main___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_Lean_TypeClass_introduceMVars___main(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec(x_2);
return x_7;
}
}
lean_object* l_Lean_TypeClass_introduceMVars(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:
{
@ -1307,6 +1321,15 @@ x_7 = l_Lean_TypeClass_introduceMVars___main(x_1, x_2, x_3, x_4, x_5, x_6);
return x_7;
}
}
lean_object* l_Lean_TypeClass_introduceMVars___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_Lean_TypeClass_introduceMVars(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec(x_2);
return x_7;
}
}
lean_object* _init_l_Lean_TypeClass_introduceLocals___main___closed__1() {
_start:
{
@ -1330,7 +1353,7 @@ _start:
{
if (lean_obj_tag(x_4) == 7)
{
lean_object* x_5; uint8_t 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_5; uint8_t 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;
x_5 = lean_ctor_get(x_4, 0);
lean_inc(x_5);
x_6 = lean_ctor_get_uint8(x_4, sizeof(void*)*3);
@ -1344,33 +1367,32 @@ lean_inc(x_1);
x_10 = lean_name_mk_numeral(x_9, x_1);
lean_inc(x_10);
x_11 = lean_local_ctx_mk_local_decl(x_2, x_10, x_5, x_7, x_6);
x_12 = lean_ctor_get(x_11, 1);
lean_inc(x_12);
lean_dec(x_11);
x_13 = lean_expr_mk_fvar(x_10);
x_14 = lean_unsigned_to_nat(1u);
x_15 = lean_nat_add(x_1, x_14);
x_12 = lean_expr_mk_fvar(x_10);
x_13 = lean_unsigned_to_nat(1u);
x_14 = lean_nat_add(x_1, x_13);
lean_dec(x_1);
lean_inc(x_13);
x_16 = lean_array_push(x_3, x_13);
x_17 = lean_expr_instantiate1(x_8, x_13);
x_1 = x_15;
x_2 = x_12;
x_3 = x_16;
x_4 = x_17;
lean_inc(x_12);
x_15 = lean_array_push(x_3, x_12);
x_16 = lean_expr_instantiate1(x_8, x_12);
lean_dec(x_12);
lean_dec(x_8);
x_1 = x_14;
x_2 = x_11;
x_3 = x_15;
x_4 = x_16;
goto _start;
}
else
{
lean_object* x_19; lean_object* x_20;
lean_object* x_18; lean_object* x_19;
lean_dec(x_1);
x_18 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_18, 0, x_4);
lean_ctor_set(x_18, 1, x_3);
x_19 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_19, 0, x_4);
lean_ctor_set(x_19, 1, x_3);
x_20 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_20, 0, x_2);
lean_ctor_set(x_20, 1, x_19);
return x_20;
lean_ctor_set(x_19, 0, x_2);
lean_ctor_set(x_19, 1, x_18);
return x_19;
}
}
}
@ -1410,7 +1432,6 @@ lean_inc(x_15);
x_16 = lean_ctor_get(x_13, 1);
lean_inc(x_16);
lean_dec(x_13);
lean_inc(x_16);
lean_inc(x_14);
x_17 = l_Lean_TypeClass_introduceMVars___main(x_14, x_16, x_1, x_7, x_8, x_11);
x_18 = lean_ctor_get(x_17, 1);
@ -1430,6 +1451,8 @@ lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26;
x_23 = lean_ctor_get(x_19, 0);
x_24 = lean_ctor_get(x_19, 1);
x_25 = l_Lean_LocalContext_mkLambda(x_14, x_16, x_21);
lean_dec(x_21);
lean_dec(x_16);
x_26 = l_Lean_TypeClass_Context_eUnify___main(x_15, x_23, x_20);
if (lean_obj_tag(x_26) == 0)
{
@ -1549,6 +1572,8 @@ lean_inc(x_51);
lean_inc(x_50);
lean_dec(x_19);
x_52 = l_Lean_LocalContext_mkLambda(x_14, x_16, x_21);
lean_dec(x_21);
lean_dec(x_16);
x_53 = l_Lean_TypeClass_Context_eUnify___main(x_15, x_50, x_20);
if (lean_obj_tag(x_53) == 0)
{
@ -4155,7 +4180,6 @@ if (lean_obj_tag(x_4) == 0)
{
lean_object* x_8; lean_object* x_9;
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_8 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_8, 0, x_6);
@ -4184,8 +4208,8 @@ if (x_14 == 0)
{
lean_object* x_15; lean_object* x_16;
lean_dec(x_10);
lean_inc(x_12);
x_15 = lean_expr_instantiate1(x_11, x_12);
lean_dec(x_11);
x_16 = lean_array_push(x_7, x_12);
x_3 = x_15;
x_4 = x_13;
@ -4195,9 +4219,9 @@ goto _start;
else
{
lean_object* x_18; lean_object* x_19; uint8_t x_20;
lean_inc(x_2);
lean_inc(x_1);
x_18 = l_Lean_LocalContext_mkForall(x_1, x_2, x_10);
lean_dec(x_10);
x_19 = l_Lean_TypeClass_Context_eNewMeta(x_18, x_5);
x_20 = !lean_is_exclusive(x_19);
if (x_20 == 0)
@ -4208,8 +4232,8 @@ x_22 = lean_ctor_get(x_19, 1);
x_23 = lean_unsigned_to_nat(0u);
lean_inc(x_21);
x_24 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_2, x_2, x_23, x_21);
lean_inc(x_24);
x_25 = lean_expr_instantiate1(x_11, x_24);
lean_dec(x_11);
lean_ctor_set(x_19, 1, x_12);
x_26 = lean_array_push(x_6, x_19);
x_27 = lean_array_push(x_7, x_24);
@ -4231,8 +4255,8 @@ lean_dec(x_19);
x_31 = lean_unsigned_to_nat(0u);
lean_inc(x_29);
x_32 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_2, x_2, x_31, x_29);
lean_inc(x_32);
x_33 = lean_expr_instantiate1(x_11, x_32);
lean_dec(x_11);
x_34 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_34, 0, x_29);
lean_ctor_set(x_34, 1, x_12);
@ -4251,7 +4275,6 @@ goto _start;
else
{
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
if (lean_obj_tag(x_4) == 0)
{
@ -4291,6 +4314,15 @@ lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_TypeClass_collectEReplacements___main___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, lean_object* x_7) {
_start:
{
lean_object* x_8;
x_8 = l_Lean_TypeClass_collectEReplacements___main(x_1, x_2, x_3, x_4, x_5, x_6, x_7);
lean_dec(x_2);
return x_8;
}
}
lean_object* l_Lean_TypeClass_collectEReplacements___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:
{
@ -4303,10 +4335,19 @@ lean_object* l_Lean_TypeClass_collectEReplacements(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_TypeClass_collectEReplacements___rarg), 7, 0);
x_2 = lean_alloc_closure((void*)(l_Lean_TypeClass_collectEReplacements___rarg___boxed), 7, 0);
return x_2;
}
}
lean_object* l_Lean_TypeClass_collectEReplacements___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, lean_object* x_7) {
_start:
{
lean_object* x_8;
x_8 = l_Lean_TypeClass_collectEReplacements___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7);
lean_dec(x_2);
return x_8;
}
}
lean_object* l_Lean_TypeClass_collectEReplacements___boxed(lean_object* x_1) {
_start:
{
@ -4510,7 +4551,6 @@ x_71 = lean_unsigned_to_nat(284u);
x_72 = lean_unsigned_to_nat(16u);
x_73 = l_Lean_TypeClass_preprocessForOutParams___closed__1;
x_74 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_70, x_71, x_72, x_73);
lean_inc(x_12);
lean_inc(x_11);
x_75 = l_Lean_TypeClass_collectEReplacements___main(x_11, x_12, x_74, x_37, x_32, x_6, x_6);
x_42 = x_75;
@ -4523,7 +4563,6 @@ x_76 = lean_ctor_get(x_41, 0);
lean_inc(x_76);
lean_dec(x_41);
x_77 = lean_instantiate_type_lparams(x_76, x_38);
lean_inc(x_12);
lean_inc(x_11);
x_78 = l_Lean_TypeClass_collectEReplacements___main(x_11, x_12, x_77, x_37, x_32, x_6, x_6);
x_42 = x_78;
@ -4547,6 +4586,8 @@ x_48 = lean_ctor_get(x_44, 1);
x_49 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_48, x_48, x_4, x_39);
lean_dec(x_48);
x_50 = l_Lean_LocalContext_mkForall(x_11, x_12, x_49);
lean_dec(x_49);
lean_dec(x_12);
lean_ctor_set(x_44, 1, x_47);
lean_ctor_set(x_44, 0, x_33);
lean_ctor_set(x_42, 0, x_50);
@ -4571,6 +4612,8 @@ lean_dec(x_44);
x_55 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_54, x_54, x_4, x_39);
lean_dec(x_54);
x_56 = l_Lean_LocalContext_mkForall(x_11, x_12, x_55);
lean_dec(x_55);
lean_dec(x_12);
x_57 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_57, 0, x_33);
lean_ctor_set(x_57, 1, x_53);
@ -4609,6 +4652,8 @@ if (lean_is_exclusive(x_59)) {
x_64 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_62, x_62, x_4, x_39);
lean_dec(x_62);
x_65 = l_Lean_LocalContext_mkForall(x_11, x_12, x_64);
lean_dec(x_64);
lean_dec(x_12);
if (lean_is_scalar(x_63)) {
x_66 = lean_alloc_ctor(0, 2, 0);
} else {
@ -4643,7 +4688,6 @@ x_109 = lean_unsigned_to_nat(284u);
x_110 = lean_unsigned_to_nat(16u);
x_111 = l_Lean_TypeClass_preprocessForOutParams___closed__1;
x_112 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_108, x_109, x_110, x_111);
lean_inc(x_12);
lean_inc(x_11);
x_113 = l_Lean_TypeClass_collectEReplacements___main(x_11, x_12, x_112, x_37, x_32, x_6, x_6);
x_80 = x_113;
@ -4658,7 +4702,6 @@ lean_dec(x_79);
x_115 = l_Array_toList___rarg(x_34);
lean_dec(x_34);
x_116 = lean_instantiate_type_lparams(x_114, x_115);
lean_inc(x_12);
lean_inc(x_11);
x_117 = l_Lean_TypeClass_collectEReplacements___main(x_11, x_12, x_116, x_37, x_32, x_6, x_6);
x_80 = x_117;
@ -4682,6 +4725,8 @@ x_86 = lean_ctor_get(x_82, 1);
x_87 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_86, x_86, x_4, x_14);
lean_dec(x_86);
x_88 = l_Lean_LocalContext_mkForall(x_11, x_12, x_87);
lean_dec(x_87);
lean_dec(x_12);
lean_ctor_set(x_82, 1, x_85);
lean_ctor_set(x_82, 0, x_33);
lean_ctor_set(x_80, 0, x_88);
@ -4706,6 +4751,8 @@ lean_dec(x_82);
x_93 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_92, x_92, x_4, x_14);
lean_dec(x_92);
x_94 = l_Lean_LocalContext_mkForall(x_11, x_12, x_93);
lean_dec(x_93);
lean_dec(x_12);
x_95 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_95, 0, x_33);
lean_ctor_set(x_95, 1, x_91);
@ -4744,6 +4791,8 @@ if (lean_is_exclusive(x_97)) {
x_102 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_100, x_100, x_4, x_14);
lean_dec(x_100);
x_103 = l_Lean_LocalContext_mkForall(x_11, x_12, x_102);
lean_dec(x_102);
lean_dec(x_12);
if (lean_is_scalar(x_101)) {
x_104 = lean_alloc_ctor(0, 2, 0);
} else {
@ -4875,7 +4924,6 @@ x_164 = lean_unsigned_to_nat(284u);
x_165 = lean_unsigned_to_nat(16u);
x_166 = l_Lean_TypeClass_preprocessForOutParams___closed__1;
x_167 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_163, x_164, x_165, x_166);
lean_inc(x_119);
lean_inc(x_118);
x_168 = l_Lean_TypeClass_collectEReplacements___main(x_118, x_119, x_167, x_145, x_140, x_6, x_6);
x_150 = x_168;
@ -4888,7 +4936,6 @@ x_169 = lean_ctor_get(x_149, 0);
lean_inc(x_169);
lean_dec(x_149);
x_170 = lean_instantiate_type_lparams(x_169, x_146);
lean_inc(x_119);
lean_inc(x_118);
x_171 = l_Lean_TypeClass_collectEReplacements___main(x_118, x_119, x_170, x_145, x_140, x_6, x_6);
x_150 = x_171;
@ -4924,6 +4971,8 @@ if (lean_is_exclusive(x_151)) {
x_157 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_155, x_155, x_4, x_147);
lean_dec(x_155);
x_158 = l_Lean_LocalContext_mkForall(x_118, x_119, x_157);
lean_dec(x_157);
lean_dec(x_119);
if (lean_is_scalar(x_156)) {
x_159 = lean_alloc_ctor(0, 2, 0);
} else {
@ -4961,7 +5010,6 @@ x_187 = lean_unsigned_to_nat(284u);
x_188 = lean_unsigned_to_nat(16u);
x_189 = l_Lean_TypeClass_preprocessForOutParams___closed__1;
x_190 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_186, x_187, x_188, x_189);
lean_inc(x_119);
lean_inc(x_118);
x_191 = l_Lean_TypeClass_collectEReplacements___main(x_118, x_119, x_190, x_145, x_140, x_6, x_6);
x_173 = x_191;
@ -4976,7 +5024,6 @@ lean_dec(x_172);
x_193 = l_Array_toList___rarg(x_142);
lean_dec(x_142);
x_194 = lean_instantiate_type_lparams(x_192, x_193);
lean_inc(x_119);
lean_inc(x_118);
x_195 = l_Lean_TypeClass_collectEReplacements___main(x_118, x_119, x_194, x_145, x_140, x_6, x_6);
x_173 = x_195;
@ -5012,6 +5059,8 @@ if (lean_is_exclusive(x_174)) {
x_180 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_178, x_178, x_4, x_120);
lean_dec(x_178);
x_181 = l_Lean_LocalContext_mkForall(x_118, x_119, x_180);
lean_dec(x_180);
lean_dec(x_119);
if (lean_is_scalar(x_179)) {
x_182 = lean_alloc_ctor(0, 2, 0);
} else {
@ -5168,7 +5217,6 @@ x_246 = lean_unsigned_to_nat(284u);
x_247 = lean_unsigned_to_nat(16u);
x_248 = l_Lean_TypeClass_preprocessForOutParams___closed__1;
x_249 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_245, x_246, x_247, x_248);
lean_inc(x_198);
lean_inc(x_197);
x_250 = l_Lean_TypeClass_collectEReplacements___main(x_197, x_198, x_249, x_227, x_222, x_6, x_6);
x_232 = x_250;
@ -5181,7 +5229,6 @@ x_251 = lean_ctor_get(x_231, 0);
lean_inc(x_251);
lean_dec(x_231);
x_252 = lean_instantiate_type_lparams(x_251, x_228);
lean_inc(x_198);
lean_inc(x_197);
x_253 = l_Lean_TypeClass_collectEReplacements___main(x_197, x_198, x_252, x_227, x_222, x_6, x_6);
x_232 = x_253;
@ -5217,6 +5264,8 @@ if (lean_is_exclusive(x_233)) {
x_239 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_237, x_237, x_4, x_229);
lean_dec(x_237);
x_240 = l_Lean_LocalContext_mkForall(x_197, x_198, x_239);
lean_dec(x_239);
lean_dec(x_198);
if (lean_is_scalar(x_238)) {
x_241 = lean_alloc_ctor(0, 2, 0);
} else {
@ -5254,7 +5303,6 @@ x_269 = lean_unsigned_to_nat(284u);
x_270 = lean_unsigned_to_nat(16u);
x_271 = l_Lean_TypeClass_preprocessForOutParams___closed__1;
x_272 = l_panicWithPos___at_Lean_Expr_bindingDomain___spec__1(x_268, x_269, x_270, x_271);
lean_inc(x_198);
lean_inc(x_197);
x_273 = l_Lean_TypeClass_collectEReplacements___main(x_197, x_198, x_272, x_227, x_222, x_6, x_6);
x_255 = x_273;
@ -5269,7 +5317,6 @@ lean_dec(x_254);
x_275 = l_Array_toList___rarg(x_224);
lean_dec(x_224);
x_276 = lean_instantiate_type_lparams(x_274, x_275);
lean_inc(x_198);
lean_inc(x_197);
x_277 = l_Lean_TypeClass_collectEReplacements___main(x_197, x_198, x_276, x_227, x_222, x_6, x_6);
x_255 = x_277;
@ -5305,6 +5352,8 @@ if (lean_is_exclusive(x_256)) {
x_262 = l_Array_miterateAux___main___at_Lean_mkApp___spec__1(x_260, x_260, x_4, x_200);
lean_dec(x_260);
x_263 = l_Lean_LocalContext_mkForall(x_197, x_198, x_262);
lean_dec(x_262);
lean_dec(x_198);
if (lean_is_scalar(x_261)) {
x_264 = lean_alloc_ctor(0, 2, 0);
} else {

5330
src/stage0/Init/Lean/TypeContext.c
View file

File diff suppressed because it is too large Load diff