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

chore: update stage0

Browse source
This commit is contained in:
Leonardo de Moura 2019-11-02 11:27:50 -07:00
parent 359a78b902
commit 1702579a76
36 changed files with 17694 additions and 2454 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/stage0/CMakeLists.txt
View file

@ -1 +1 @@
add_library (stage0 OBJECT ./Init/Coe.c ./Init/Control/Alternative.c ./Init/Control/Applicative.c ./Init/Control/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/HashSet.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/Control.c ./Init/Data/List/Default.c ./Init/Data/List/Instances.c ./Init/Data/Nat/Basic.c ./Init/Data/Nat/Bitwise.c ./Init/Data/Nat/Control.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/PersistentHashSet.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/MonadCache.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/TmpMetavarContext.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/TypeInference.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/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/HashSet.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/Control.c ./Init/Data/List/Default.c ./Init/Data/List/Instances.c ./Init/Data/Nat/Basic.c ./Init/Data/Nat/Bitwise.c ./Init/Data/Nat/Control.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/PersistentHashSet.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/AuxRecursor.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/InductiveUtil.c ./Init/Lean/KVMap.c ./Init/Lean/LBool.c ./Init/Lean/Level.c ./Init/Lean/LocalContext.c ./Init/Lean/Message.c ./Init/Lean/MetavarContext.c ./Init/Lean/Modifiers.c ./Init/Lean/MonadCache.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/QuotUtil.c ./Init/Lean/ReducibilityAttrs.c ./Init/Lean/Runtime.c ./Init/Lean/SMap.c ./Init/Lean/Scopes.c ./Init/Lean/Syntax.c ./Init/Lean/TmpMetavarContext.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/TypeUtil.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)

91
src/stage0/Init/Data/Array/Basic.c
View file

@ -104,6 +104,7 @@ lean_object* l_Array_uset___boxed(lean_object*, lean_object*, lean_object*, lean
lean_object* l_Array_findRevM___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findIdxAux___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Array_swapAt_x21___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_isEqv___rarg___boxed(lean_object*, lean_object*, lean_object*);
@ -172,6 +173,7 @@ lean_object* l_Array_findRevMAux___rarg___boxed(lean_object*, lean_object*, lean
lean_object* l_Array_HasEmptyc(lean_object*);
lean_object* l_Array_extractAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_redLength___main___rarg___boxed(lean_object*);
lean_object* l_Array_anyFrom(lean_object*);
lean_object* l_Array_mapIdx(lean_object*, lean_object*);
lean_object* l_Array_toList___rarg(lean_object*);
lean_object* l_Array_uget___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -256,6 +258,7 @@ lean_object* l_Array_iterateFrom(lean_object*, lean_object*);
lean_object* l_Array_HasRepr___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_foldr(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main(lean_object*, lean_object*);
uint8_t l_Array_anyFrom___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRevMAux___main___at_Array_findRev_x21___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_eraseIdxAux___main(lean_object*);
extern lean_object* l_panicWithPos___rarg___closed__1;
@ -272,6 +275,7 @@ lean_object* l_Array_anyMAux___main___at_Array_allM___spec__1___rarg(lean_object
lean_object* l_Array_foldlM___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_isEqv___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_map(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Array_anyFrom___spec__1(lean_object*);
lean_object* l_Array_foldlM___boxed(lean_object*, lean_object*);
lean_object* l_Array_findRevMAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Array_any___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*);
@ -293,6 +297,7 @@ lean_object* l_List_toArray(lean_object*);
lean_object* l_Array_findRevMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_reverseAux___main(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___boxed(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Array_foldlM___spec__1___boxed(lean_object*, lean_object*);
@ -337,6 +342,7 @@ lean_object* l_Array_findMAux___main___boxed(lean_object*, lean_object*);
lean_object* lean_array_sz(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Array_iterateFrom___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Array_foldrM___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyFrom___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_extractAux___main(lean_object*);
lean_object* l_Array_foldlM_u2082___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateM_u2082Aux___main(lean_object*, lean_object*);
@ -3409,6 +3415,91 @@ x_4 = lean_box(x_3);
return x_4;
}
}
uint8_t l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_2);
x_5 = lean_nat_dec_lt(x_3, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
uint8_t x_6;
lean_dec(x_3);
lean_dec(x_1);
x_6 = 0;
return x_6;
}
else
{
lean_object* x_7; lean_object* x_8; uint8_t x_9;
x_7 = lean_array_fget(x_2, x_3);
lean_inc(x_1);
x_8 = lean_apply_1(x_1, x_7);
x_9 = lean_unbox(x_8);
lean_dec(x_8);
if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
x_10 = lean_unsigned_to_nat(1u);
x_11 = lean_nat_add(x_3, x_10);
lean_dec(x_3);
x_3 = x_11;
goto _start;
}
else
{
lean_dec(x_3);
lean_dec(x_1);
return x_9;
}
}
}
}
lean_object* l_Array_anyMAux___main___at_Array_anyFrom___spec__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg___boxed), 3, 0);
return x_2;
}
}
uint8_t l_Array_anyFrom___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4;
x_4 = l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg(x_2, x_1, x_3);
return x_4;
}
}
lean_object* l_Array_anyFrom(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Array_anyFrom___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4; lean_object* x_5;
x_4 = l_Array_anyMAux___main___at_Array_anyFrom___spec__1___rarg(x_1, x_2, x_3);
lean_dec(x_2);
x_5 = lean_box(x_4);
return x_5;
}
}
lean_object* l_Array_anyFrom___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4; lean_object* x_5;
x_4 = l_Array_anyFrom___rarg(x_1, x_2, x_3);
lean_dec(x_1);
x_5 = lean_box(x_4);
return x_5;
}
}
uint8_t l_Array_anyMAux___main___at_Array_all___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{

360
src/stage0/Init/Lean/AbstractMetavarContext.c
View file

@ -32,11 +32,13 @@ lean_object* l_panicWithPos___at_Lean_Level_normalize___main___spec__1(lean_obje
lean_object* l_Lean_AbstractMetavarContext_hasAssignedLevelMVar___main___rarg___boxed(lean_object*, lean_object*, lean_object*);
uint8_t lean_name_dec_eq(lean_object*, lean_object*);
uint8_t l_PersistentArray_anyM___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__34(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_foldlFromM___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__57(lean_object*);
lean_object* l_PersistentArray_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__53___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_betaRev(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_AbstractMetavarContext_MkBinding_mkMVarApp___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_localDeclDependsOn___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_getMCtx___boxed(lean_object*, lean_object*);
lean_object* lean_expr_mk_forall(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_mkHashMap___at_Lean_AbstractMetavarContext_exprDependsOn___spec__2(lean_object*);
@ -45,7 +47,6 @@ lean_object* l_Lean_MetavarDecl_Inhabited___closed__1;
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_modifyCtx(lean_object*, lean_object*);
lean_object* l_PersistentArray_foldlFromM___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__58___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__11___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5(lean_object*);
extern lean_object* l_Lean_LocalDecl_Inhabited;
lean_object* l_Lean_AbstractMetavarContext_mkForall___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__63(lean_object*);
@ -72,7 +73,6 @@ extern lean_object* l_Lean_exprIsInhabited;
extern lean_object* l_List_repr___rarg___closed__3;
lean_object* l_HashMapImp_contains___at_Lean_AbstractMetavarContext_DependsOn_visit___spec__1___boxed(lean_object*, lean_object*);
size_t lean_expr_hash(lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_getLocalDeclWithSmallestIdx(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_exprDependsOn(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_collectDeps(lean_object*);
@ -132,7 +132,6 @@ lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_InstantiateExprMVar
lean_object* l_Lean_AbstractMetavarContext_MkBinding_mkFreshId___rarg(lean_object*);
lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_mkForallAux___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__33(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_withFreshCache___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_AssocList_contains___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_visit___spec__4(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_hasAssignedLevelMVar(lean_object*);
@ -226,6 +225,7 @@ lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_c
uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__26(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBindingException_toStr___closed__2;
uint8_t lean_expr_eqv(lean_object*, lean_object*);
extern lean_object* l_Lean_Expr_getRevArg_x21___main___closed__1;
uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__48(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_mkLambda___boxed(lean_object*, lean_object*);
uint8_t l_PersistentArray_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__29(lean_object*, lean_object*);
@ -243,6 +243,7 @@ uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_DependsOn_dep___
lean_object* l_Lean_LocalContext_findFVar(lean_object*, lean_object*);
uint8_t l_Lean_LocalDecl_isLet(lean_object*);
lean_object* lean_string_append(lean_object*, lean_object*);
extern lean_object* l_Lean_Level_mvarId_x21___closed__1;
lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_mkBinding___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__51(lean_object*);
extern lean_object* l_List_reprAux___main___rarg___closed__1;
@ -253,8 +254,8 @@ uint8_t l_Lean_AbstractMetavarContext_hasAssignedMVar___main___rarg(lean_object*
lean_object* l_AssocList_contains___main___at_Lean_AbstractMetavarContext_DependsOn_visit___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_Lean_MonadHashMapCacheAdapter___lambda__1(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_mkForallAux___spec__2(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar(lean_object*);
lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__2(lean_object*);
extern lean_object* l_Lean_Expr_constName_x21___closed__1;
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux(lean_object*);
uint8_t l_Lean_AbstractMetavarContext_hasAssignedMVar___rarg(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
@ -268,6 +269,7 @@ lean_object* l_Nat_foldRevMAux___main___at_Lean_AbstractMetavarContext_MkBinding
lean_object* l_Lean_AbstractMetavarContext_MkBindingException_toStr___closed__5;
lean_object* l_Nat_foldRevMAux___main___at_Lean_AbstractMetavarContext_MkBinding_mkForallAux___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__32___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__65(lean_object*);
lean_object* l_PersistentArray_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__23___boxed(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_Lean_MonadHashMapCacheAdapter___closed__4;
@ -294,6 +296,7 @@ lean_object* l_mkHashSet___at_Lean_AbstractMetavarContext_exprDependsOn___spec__
lean_object* l_Nat_foldRevMAux___main___at_Lean_AbstractMetavarContext_mkBinding___spec__3(lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__8(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__2___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__31(lean_object*, lean_object*, lean_object*);
uint8_t l_PersistentArray_anyM___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__40(lean_object*, lean_object*);
@ -310,7 +313,9 @@ lean_object* l_Lean_AbstractMetavarContext_MkBinding_visit___rarg(lean_object*,
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__39(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_withFreshCache(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_isExprAssigned(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__37___boxed(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_mkMVarApp(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_instantiateMVars___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
@ -318,6 +323,7 @@ lean_object* l_PersistentArray_foldlFromMAux___main___at_Lean_AbstractMetavarCon
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__56___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_mdata(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_getLocalDeclWithSmallestIdx___boxed(lean_object*, lean_object*);
uint8_t l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__55(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_visit___boxed(lean_object*, lean_object*);
@ -337,7 +343,6 @@ lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelay
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__36___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_abstractRange(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_main(lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_getMCtx___boxed(lean_object*, lean_object*);
extern lean_object* l_EState_MonadState___closed__2;
lean_object* l_Lean_AbstractMetavarContext_MkBindingException_toStr___closed__3;
@ -350,7 +355,6 @@ lean_object* lean_expr_update_lambda(lean_object*, uint8_t, lean_object*, lean_o
lean_object* l_Lean_AbstractMetavarContext_instantiateLevelMVars___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_HasRepr___rarg___closed__1;
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__9___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Level_updateSucc_x21___closed__1;
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__44___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_abstractRange___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -378,6 +382,7 @@ lean_object* l_Lean_LocalContext_foldlFromM___at_Lean_AbstractMetavarContext_MkB
extern lean_object* l_Lean_Expr_updateLambda_x21___closed__1;
uint8_t l_Lean_AbstractMetavarContext_hasAssignedLevelMVar___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5(lean_object*);
size_t lean_usize_modn(size_t, lean_object*);
lean_object* lean_name_mk_numeral(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__63___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -399,6 +404,7 @@ extern lean_object* l_Option_get_x21___rarg___closed__2;
lean_object* l_Lean_AbstractMetavarContext_hasAssignedMVar___main___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_foldRevMAux___main___at_Lean_AbstractMetavarContext_MkBinding_mkBinding___spec__2___rarg(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main(lean_object*);
extern lean_object* l_EIO_Monad___closed__1;
lean_object* l_Lean_AbstractMetavarContext_MkBindingException_toStr___closed__7;
lean_object* l_Lean_AbstractMetavarContext_MkBinding_mkBinding___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -426,7 +432,6 @@ lean_object* l_PersistentArray_anyM___at_Lean_AbstractMetavarContext_MkBinding_c
uint8_t l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__13(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_Lean_MonadHashMapCacheAdapter___closed__3;
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_DependsOn_dep___main___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__21(lean_object*);
@ -479,7 +484,6 @@ lean_object* l_panicWithPos___at_Lean_AbstractMetavarContext_InstantiateExprMVar
size_t l_USize_land(size_t, size_t);
lean_object* l_Array_iterateMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__65___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_MkBinding_mkMVarApp___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_AbstractMetavarContext_MkBinding_getLocalDeclWithSmallestIdx___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main(lean_object*);
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -512,6 +516,7 @@ lean_object* l_Array_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_c
lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_AbstractMetavarContext_MkBinding_reduceLocalContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_mapM___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__3(lean_object*);
lean_object* l_PersistentArray_anyM___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__10___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Nat_foldRevMAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_foldlFromM___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__57___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__1(lean_object*);
@ -526,6 +531,7 @@ uint8_t l_Lean_Expr_isLambda(lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
uint8_t l_PersistentArray_anyMAux___main___at_Lean_AbstractMetavarContext_MkBinding_collectDeps___spec__23(lean_object*, lean_object*);
lean_object* l_Lean_LocalDecl_name(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* _init_l_Lean_MetavarDecl_Inhabited___closed__1() {
_start:
{
@ -630,6 +636,244 @@ x_5 = lean_box(x_4);
return x_5;
}
}
uint8_t l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
switch (lean_obj_tag(x_3)) {
case 1:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_ctor_get(x_3, 0);
lean_inc(x_4);
lean_dec(x_3);
lean_inc(x_4);
x_5 = lean_level_has_mvar(x_4);
if (x_5 == 0)
{
uint8_t x_6;
lean_dec(x_4);
lean_dec(x_2);
lean_dec(x_1);
x_6 = 0;
return x_6;
}
else
{
x_3 = x_4;
goto _start;
}
}
case 2:
{
lean_object* x_8; lean_object* x_9; uint8_t x_10;
x_8 = lean_ctor_get(x_3, 0);
lean_inc(x_8);
x_9 = lean_ctor_get(x_3, 1);
lean_inc(x_9);
lean_dec(x_3);
lean_inc(x_8);
x_10 = lean_level_has_mvar(x_8);
if (x_10 == 0)
{
uint8_t x_11;
lean_dec(x_8);
lean_inc(x_9);
x_11 = lean_level_has_mvar(x_9);
if (x_11 == 0)
{
uint8_t x_12;
lean_dec(x_9);
lean_dec(x_2);
lean_dec(x_1);
x_12 = 0;
return x_12;
}
else
{
x_3 = x_9;
goto _start;
}
}
else
{
uint8_t x_14;
lean_inc(x_2);
lean_inc(x_1);
x_14 = l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg(x_1, x_2, x_8);
if (x_14 == 0)
{
uint8_t x_15;
lean_inc(x_9);
x_15 = lean_level_has_mvar(x_9);
if (x_15 == 0)
{
lean_dec(x_9);
lean_dec(x_2);
lean_dec(x_1);
return x_14;
}
else
{
x_3 = x_9;
goto _start;
}
}
else
{
uint8_t x_17;
lean_dec(x_9);
lean_dec(x_2);
lean_dec(x_1);
x_17 = 1;
return x_17;
}
}
}
case 3:
{
lean_object* x_18; lean_object* x_19; uint8_t x_20;
x_18 = lean_ctor_get(x_3, 0);
lean_inc(x_18);
x_19 = lean_ctor_get(x_3, 1);
lean_inc(x_19);
lean_dec(x_3);
lean_inc(x_18);
x_20 = lean_level_has_mvar(x_18);
if (x_20 == 0)
{
uint8_t x_21;
lean_dec(x_18);
lean_inc(x_19);
x_21 = lean_level_has_mvar(x_19);
if (x_21 == 0)
{
uint8_t x_22;
lean_dec(x_19);
lean_dec(x_2);
lean_dec(x_1);
x_22 = 0;
return x_22;
}
else
{
x_3 = x_19;
goto _start;
}
}
else
{
uint8_t x_24;
lean_inc(x_2);
lean_inc(x_1);
x_24 = l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg(x_1, x_2, x_18);
if (x_24 == 0)
{
uint8_t x_25;
lean_inc(x_19);
x_25 = lean_level_has_mvar(x_19);
if (x_25 == 0)
{
lean_dec(x_19);
lean_dec(x_2);
lean_dec(x_1);
return x_24;
}
else
{
x_3 = x_19;
goto _start;
}
}
else
{
uint8_t x_27;
lean_dec(x_19);
lean_dec(x_2);
lean_dec(x_1);
x_27 = 1;
return x_27;
}
}
}
case 5:
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
x_28 = lean_ctor_get(x_3, 0);
lean_inc(x_28);
lean_dec(x_3);
x_29 = lean_ctor_get(x_1, 1);
lean_inc(x_29);
lean_dec(x_1);
x_30 = lean_apply_2(x_29, x_2, x_28);
x_31 = lean_unbox(x_30);
lean_dec(x_30);
if (x_31 == 0)
{
uint8_t x_32;
x_32 = 1;
return x_32;
}
else
{
uint8_t x_33;
x_33 = 0;
return x_33;
}
}
default:
{
uint8_t x_34;
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_34 = 0;
return x_34;
}
}
}
}
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4; lean_object* x_5;
x_4 = l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg(x_1, x_2, x_3);
x_5 = lean_box(x_4);
return x_5;
}
}
uint8_t l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4;
x_4 = l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___main___rarg(x_1, x_2, x_3);
return x_4;
}
}
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___rarg___boxed), 3, 0);
return x_2;
}
}
lean_object* l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4; lean_object* x_5;
x_4 = l_Lean_AbstractMetavarContext_hasAssignableLevelMVar___rarg(x_1, x_2, x_3);
x_5 = lean_box(x_4);
return x_5;
}
}
uint8_t l_Lean_AbstractMetavarContext_hasAssignedLevelMVar___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
@ -1776,8 +2020,8 @@ if (x_31 == 0)
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37;
x_32 = lean_ctor_get(x_30, 0);
lean_dec(x_32);
x_33 = l_Lean_Level_updateSucc_x21___closed__1;
x_34 = lean_unsigned_to_nat(357u);
x_33 = l_Lean_Level_mvarId_x21___closed__1;
x_34 = lean_unsigned_to_nat(372u);
x_35 = lean_unsigned_to_nat(17u);
x_36 = l_Lean_Level_updateIMax_x21___closed__1;
x_37 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_33, x_34, x_35, x_36);
@ -1790,8 +2034,8 @@ lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean
x_38 = lean_ctor_get(x_30, 1);
lean_inc(x_38);
lean_dec(x_30);
x_39 = l_Lean_Level_updateSucc_x21___closed__1;
x_40 = lean_unsigned_to_nat(357u);
x_39 = l_Lean_Level_mvarId_x21___closed__1;
x_40 = lean_unsigned_to_nat(372u);
x_41 = lean_unsigned_to_nat(17u);
x_42 = l_Lean_Level_updateIMax_x21___closed__1;
x_43 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_39, x_40, x_41, x_42);
@ -2777,7 +3021,7 @@ lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
x_15 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_16 = lean_unsigned_to_nat(199u);
x_16 = lean_unsigned_to_nat(209u);
x_17 = lean_unsigned_to_nat(12u);
x_18 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_19 = l_panicWithPos___at_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___spec__1___rarg(x_15, x_16, x_17, x_18, x_7);
@ -3920,7 +4164,7 @@ lean_dec(x_5);
lean_dec(x_2);
lean_dec(x_1);
x_14 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_15 = lean_unsigned_to_nat(199u);
x_15 = lean_unsigned_to_nat(209u);
x_16 = lean_unsigned_to_nat(12u);
x_17 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_18 = l_panicWithPos___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__2___rarg(x_14, x_15, x_16, x_17, x_6);
@ -4916,7 +5160,7 @@ x_2 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_AbstractMetav
return x_2;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
switch (lean_obj_tag(x_2)) {
@ -9369,11 +9613,11 @@ return x_1001;
}
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5(lean_object* x_1) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg), 4, 0);
x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg), 4, 0);
return x_2;
}
}
@ -10062,7 +10306,7 @@ x_199 = lean_unsigned_to_nat(0u);
x_200 = l_Lean_Expr_getAppNumArgsAux___main(x_2, x_199);
x_201 = lean_mk_empty_array_with_capacity(x_200);
lean_dec(x_200);
x_202 = l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg(x_1, x_2, x_201, x_3);
x_202 = l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_InstantiateExprMVars_main___main___spec__5___rarg(x_1, x_2, x_201, x_3);
return x_202;
}
case 6:
@ -10358,11 +10602,11 @@ lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215;
lean_dec(x_207);
lean_dec(x_205);
lean_dec(x_2);
x_212 = l_Lean_Expr_constName_x21___closed__1;
x_213 = lean_unsigned_to_nat(475u);
x_212 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_213 = lean_unsigned_to_nat(513u);
x_214 = lean_unsigned_to_nat(18u);
x_215 = l_Lean_Expr_updateLambda_x21___closed__1;
x_216 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_212, x_213, x_214, x_215);
x_216 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_212, x_213, x_214, x_215);
x_217 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_217, 0, x_216);
lean_ctor_set(x_217, 1, x_208);
@ -10664,11 +10908,11 @@ lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288;
lean_dec(x_280);
lean_dec(x_278);
lean_dec(x_2);
x_285 = l_Lean_Expr_constName_x21___closed__1;
x_286 = lean_unsigned_to_nat(461u);
x_285 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_286 = lean_unsigned_to_nat(499u);
x_287 = lean_unsigned_to_nat(22u);
x_288 = l_Lean_Expr_updateForall_x21___closed__1;
x_289 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_285, x_286, x_287, x_288);
x_289 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_285, x_286, x_287, x_288);
x_290 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_290, 0, x_289);
lean_ctor_set(x_290, 1, x_281);
@ -11107,11 +11351,11 @@ lean_dec(x_356);
lean_dec(x_354);
lean_dec(x_352);
lean_dec(x_2);
x_360 = l_Lean_Expr_constName_x21___closed__1;
x_361 = lean_unsigned_to_nat(484u);
x_360 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_361 = lean_unsigned_to_nat(522u);
x_362 = lean_unsigned_to_nat(18u);
x_363 = l_Lean_Expr_letName_x21___closed__1;
x_364 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_360, x_361, x_362, x_363);
x_364 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_360, x_361, x_362, x_363);
x_365 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_365, 0, x_364);
lean_ctor_set(x_365, 1, x_357);
@ -11460,11 +11704,11 @@ else
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_dec(x_16);
lean_dec(x_2);
x_20 = l_Lean_Expr_constName_x21___closed__1;
x_21 = lean_unsigned_to_nat(442u);
x_20 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_21 = lean_unsigned_to_nat(480u);
x_22 = lean_unsigned_to_nat(15u);
x_23 = l_Lean_Expr_updateMData_x21___closed__1;
x_24 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_20, x_21, x_22, x_23);
x_24 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_20, x_21, x_22, x_23);
x_25 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_25, 0, x_24);
lean_ctor_set(x_25, 1, x_17);
@ -11487,11 +11731,11 @@ else
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_dec(x_27);
lean_dec(x_2);
x_31 = l_Lean_Expr_constName_x21___closed__1;
x_32 = lean_unsigned_to_nat(447u);
x_31 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_32 = lean_unsigned_to_nat(485u);
x_33 = lean_unsigned_to_nat(16u);
x_34 = l_Lean_Expr_updateProj_x21___closed__1;
x_35 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_31, x_32, x_33, x_34);
x_35 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_31, x_32, x_33, x_34);
x_36 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_36, 0, x_35);
lean_ctor_set(x_36, 1, x_28);
@ -14470,7 +14714,7 @@ lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_1);
x_11 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_12 = lean_unsigned_to_nat(394u);
x_12 = lean_unsigned_to_nat(404u);
x_13 = lean_unsigned_to_nat(16u);
x_14 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_15 = l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_mkBinding___spec__1___rarg(x_11, x_12, x_13, x_14, x_7);
@ -29629,7 +29873,7 @@ lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_1);
x_11 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_12 = lean_unsigned_to_nat(394u);
x_12 = lean_unsigned_to_nat(404u);
x_13 = lean_unsigned_to_nat(16u);
x_14 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_15 = l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_mkForallAux___spec__2___rarg(x_11, x_12, x_13, x_14, x_7);
@ -31467,7 +31711,7 @@ lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean
lean_dec(x_6);
lean_dec(x_5);
x_11 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_12 = lean_unsigned_to_nat(394u);
x_12 = lean_unsigned_to_nat(404u);
x_13 = lean_unsigned_to_nat(16u);
x_14 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_15 = l_panicWithPos___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__2___rarg(x_11, x_12, x_13, x_14, x_7);
@ -33294,7 +33538,7 @@ x_2 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at_Lean_AbstractMetav
return x_2;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
switch (lean_obj_tag(x_3)) {
@ -36152,11 +36396,11 @@ return x_564;
}
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5(lean_object* x_1) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg___boxed), 5, 0);
x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg___boxed), 5, 0);
return x_2;
}
}
@ -36933,7 +37177,7 @@ x_209 = lean_unsigned_to_nat(0u);
x_210 = l_Lean_Expr_getAppNumArgsAux___main(x_3, x_209);
x_211 = lean_mk_empty_array_with_capacity(x_210);
lean_dec(x_210);
x_212 = l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(x_1, x_2, x_3, x_211, x_4);
x_212 = l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(x_1, x_2, x_3, x_211, x_4);
return x_212;
}
case 6:
@ -37359,11 +37603,11 @@ lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225;
lean_dec(x_217);
lean_dec(x_215);
lean_dec(x_3);
x_222 = l_Lean_Expr_constName_x21___closed__1;
x_223 = lean_unsigned_to_nat(475u);
x_222 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_223 = lean_unsigned_to_nat(513u);
x_224 = lean_unsigned_to_nat(18u);
x_225 = l_Lean_Expr_updateLambda_x21___closed__1;
x_226 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_222, x_223, x_224, x_225);
x_226 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_222, x_223, x_224, x_225);
x_227 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_227, 0, x_226);
lean_ctor_set(x_227, 1, x_218);
@ -37795,11 +38039,11 @@ lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318;
lean_dec(x_310);
lean_dec(x_308);
lean_dec(x_3);
x_315 = l_Lean_Expr_constName_x21___closed__1;
x_316 = lean_unsigned_to_nat(461u);
x_315 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_316 = lean_unsigned_to_nat(499u);
x_317 = lean_unsigned_to_nat(22u);
x_318 = l_Lean_Expr_updateForall_x21___closed__1;
x_319 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_315, x_316, x_317, x_318);
x_319 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_315, x_316, x_317, x_318);
x_320 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_320, 0, x_319);
lean_ctor_set(x_320, 1, x_311);
@ -38440,11 +38684,11 @@ lean_dec(x_406);
lean_dec(x_404);
lean_dec(x_402);
lean_dec(x_3);
x_410 = l_Lean_Expr_constName_x21___closed__1;
x_411 = lean_unsigned_to_nat(484u);
x_410 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_411 = lean_unsigned_to_nat(522u);
x_412 = lean_unsigned_to_nat(18u);
x_413 = l_Lean_Expr_letName_x21___closed__1;
x_414 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_410, x_411, x_412, x_413);
x_414 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_410, x_411, x_412, x_413);
x_415 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_415, 0, x_414);
lean_ctor_set(x_415, 1, x_407);
@ -38882,11 +39126,11 @@ else
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_dec(x_5);
lean_dec(x_3);
x_9 = l_Lean_Expr_constName_x21___closed__1;
x_10 = lean_unsigned_to_nat(442u);
x_9 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_10 = lean_unsigned_to_nat(480u);
x_11 = lean_unsigned_to_nat(15u);
x_12 = l_Lean_Expr_updateMData_x21___closed__1;
x_13 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_9, x_10, x_11, x_12);
x_13 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_9, x_10, x_11, x_12);
x_14 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_14, 0, x_13);
lean_ctor_set(x_14, 1, x_6);
@ -38909,11 +39153,11 @@ else
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_dec(x_16);
lean_dec(x_3);
x_20 = l_Lean_Expr_constName_x21___closed__1;
x_21 = lean_unsigned_to_nat(447u);
x_20 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_21 = lean_unsigned_to_nat(485u);
x_22 = lean_unsigned_to_nat(16u);
x_23 = l_Lean_Expr_updateProj_x21___closed__1;
x_24 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_20, x_21, x_22, x_23);
x_24 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_20, x_21, x_22, x_23);
x_25 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_25, 0, x_24);
lean_ctor_set(x_25, 1, x_17);
@ -38982,11 +39226,11 @@ lean_dec(x_2);
return x_6;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(x_1, x_2, x_3, x_4, x_5);
x_6 = l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_AbstractMetavarContext_MkBinding_elimMVarDepsAux___main___spec__5___rarg(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
return x_6;
}
@ -39492,7 +39736,7 @@ lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean
lean_dec(x_6);
lean_dec(x_4);
x_11 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_12 = lean_unsigned_to_nat(394u);
x_12 = lean_unsigned_to_nat(404u);
x_13 = lean_unsigned_to_nat(16u);
x_14 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_15 = l_panicWithPos___at_Lean_AbstractMetavarContext_mkBinding___spec__2___rarg(x_11, x_12, x_13, x_14, x_7);

350
src/stage0/Init/Lean/Attributes.c
View file

@ -33,12 +33,12 @@ lean_object* l_Lean_AttributeImpl_inhabited___lambda__2___closed__1;
lean_object* l_Array_qsortAux___main___at_Lean_registerParametricAttribute___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__6(lean_object*);
lean_object* l_Lean_EnumAttributes_getValue___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AttributeImpl_inhabited___lambda__3___closed__1;
extern lean_object* l_Array_empty___closed__1;
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_mkAttributeArrayRef(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__4___closed__2;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9(lean_object*);
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
@ -52,7 +52,6 @@ lean_object* l_HashMapImp_expand___at_Lean_registerAttribute___spec__4(lean_obje
lean_object* l_Lean_TagAttribute_Inhabited___closed__3;
lean_object* l_Lean_registerParametricAttribute___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnumAttributes___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(lean_object*, lean_object*);
extern lean_object* l_Lean_EnvExtension_Inhabited___rarg___closed__1;
lean_object* l_Lean_AttributeImpl_inhabited___lambda__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_activate_scoped_attributes(lean_object*, lean_object*, lean_object*);
@ -113,8 +112,6 @@ lean_object* lean_push_scope(lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_Lean_registerEnumAttributes___rarg___lambda__2___closed__4;
lean_object* l_Array_binSearchAux___main___at_Lean_ParametricAttribute_getParam___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnumAttributes___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__3;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
lean_object* l_Lean_registerEnumAttributes___rarg___lambda__2___closed__1;
lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__1(lean_object*, lean_object*);
@ -138,7 +135,6 @@ lean_object* l_Lean_registerTagAttribute___lambda__3___closed__2;
lean_object* l_Lean_AttributeImpl_inhabited___lambda__2___closed__4;
lean_object* l_Lean_Environment_getModuleIdxFor(lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_ParametricAttribute_setParam___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerParametricAttribute___spec__9___rarg(lean_object*, lean_object*);
lean_object* l_List_map___main___at_Lean_registerEnumAttributes___spec__10(lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__3(lean_object*);
@ -161,7 +157,6 @@ extern lean_object* l_Char_HasRepr___closed__1;
lean_object* l_Lean_ParametricAttribute_Inhabited___closed__1;
lean_object* l_Lean_AttributeImpl_inhabited___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6(lean_object*, lean_object*);
lean_object* l_Lean_AttributeImpl_inhabited___closed__2;
lean_object* l_Lean_EnumAttributes_getValue(lean_object*);
lean_object* l_Lean_mkAttributeMapRef(lean_object*);
@ -189,8 +184,8 @@ lean_object* l_Lean_TagAttribute_Inhabited;
lean_object* l_AssocList_find___main___at_Lean_getAttributeImpl___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_EnumAttributes_getValue___spec__1(lean_object*);
lean_object* l_RBNode_find___main___at_Lean_ParametricAttribute_getParam___spec__1(lean_object*);
uint8_t l_Array_binSearchAux___main___at_Lean_TagDeclarationExtension_isTagged___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerAttribute___closed__1;
lean_object* l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnumAttributes___rarg___lambda__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___closed__2;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__5(lean_object*);
@ -202,20 +197,21 @@ lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_
lean_object* l_Array_iterateMAux___main___at_Lean_Environment_activateScopedAttributes___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_TagAttribute_hasTag(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_registerEnumAttributes___spec__8(lean_object*);
uint8_t l_Array_binSearchAux___main___at_Lean_TagAttribute_hasTag___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnumAttributes___rarg___lambda__2___closed__2;
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_AssocList_foldlM___main___at_Lean_getAttributeNames___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_AssocList_find___main___at_Lean_getAttributeImpl___spec__2(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__6___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_EnumAttributes_getValue___spec__1___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_registerParametricAttribute___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TagAttribute_Inhabited___closed__1;
lean_object* l_RBNode_fold___main___at_Lean_registerEnumAttributes___spec__1___rarg(lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* l_Lean_getAttributeNames(lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2(lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_EnumAttributes_setValue(lean_object*);
lean_object* l_HashMapImp_moveEntries___main___at_Lean_registerAttribute___spec__5(lean_object*, lean_object*, lean_object*);
@ -229,7 +225,6 @@ lean_object* lean_io_ref_get(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerParametricAttribute___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
size_t lean_usize_modn(size_t, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParametricAttribute_setParam___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_EnumAttributes_getValue___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_Environment_popScope___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -269,11 +264,12 @@ lean_object* l_Lean_ParametricAttribute_setParam___rarg___closed__3;
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__2___boxed(lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__1___boxed(lean_object*, lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_TagAttribute_hasTag___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_getAttributeNames___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_mkTagDeclarationExtension___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__3___closed__4;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__6(lean_object*);
lean_object* l_List_map___main___at_Lean_registerEnumAttributes___spec__10___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_mkTagDeclarationExtension___closed__1;
uint8_t l_Lean_Syntax_isMissing___rarg(lean_object*);
lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_AttributeImpl_inhabited___closed__3;
@ -290,6 +286,7 @@ lean_object* l_Array_binSearchAux___main___at_Lean_EnumAttributes_getValue___spe
lean_object* l_Lean_attributeMapRef;
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerEnumAttributes___spec__7(lean_object*);
lean_object* l_Lean_EnumAttributes_setValue___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_AttributeImpl_inhabited___lambda__3(lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_HashMapImp_find___at_Lean_getAttributeImpl___spec__1(lean_object*, lean_object*);
lean_object* lean_pop_scope(lean_object*, lean_object*);
@ -300,7 +297,6 @@ lean_object* l_Lean_registerTagAttribute___closed__1;
uint8_t l_Array_anyMAux___main___at_Lean_registerEnumAttributes___spec__8___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerEnumAttributes___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_getAttributeImpl(lean_object*, lean_object*);
lean_object* l_Lean_TagAttribute_hasTag___boxed(lean_object*, lean_object*, lean_object*);
@ -2631,192 +2627,7 @@ goto _start;
}
}
}
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
uint8_t x_6;
x_6 = lean_nat_dec_lt(x_5, x_1);
if (x_6 == 0)
{
lean_object* x_7; lean_object* x_8;
lean_dec(x_5);
x_7 = lean_array_swap(x_3, x_4, x_1);
x_8 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_8, 0, x_4);
lean_ctor_set(x_8, 1, x_7);
return x_8;
}
else
{
lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_9 = l_Lean_Inhabited;
x_10 = lean_array_get(x_9, x_3, x_5);
x_11 = l_Lean_Name_quickLt(x_10, x_2);
lean_dec(x_10);
if (x_11 == 0)
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_5, x_12);
lean_dec(x_5);
x_5 = x_13;
goto _start;
}
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_15 = lean_array_swap(x_3, x_4, x_5);
x_16 = lean_unsigned_to_nat(1u);
x_17 = lean_nat_add(x_4, x_16);
lean_dec(x_4);
x_18 = lean_nat_add(x_5, x_16);
lean_dec(x_5);
x_3 = x_15;
x_4 = x_17;
x_5 = x_18;
goto _start;
}
}
}
}
lean_object* l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_13;
x_13 = lean_nat_dec_lt(x_2, x_3);
if (x_13 == 0)
{
lean_dec(x_2);
return x_1;
}
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t x_40;
x_14 = lean_nat_add(x_2, x_3);
x_15 = lean_unsigned_to_nat(2u);
x_16 = lean_nat_div(x_14, x_15);
lean_dec(x_14);
x_37 = l_Lean_Inhabited;
x_38 = lean_array_get(x_37, x_1, x_16);
x_39 = lean_array_get(x_37, x_1, x_2);
x_40 = l_Lean_Name_quickLt(x_38, x_39);
lean_dec(x_39);
lean_dec(x_38);
if (x_40 == 0)
{
x_17 = x_1;
goto block_36;
}
else
{
lean_object* x_41;
x_41 = lean_array_swap(x_1, x_2, x_16);
x_17 = x_41;
goto block_36;
}
block_36:
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21;
x_18 = l_Lean_Inhabited;
x_19 = lean_array_get(x_18, x_17, x_3);
x_20 = lean_array_get(x_18, x_17, x_2);
x_21 = l_Lean_Name_quickLt(x_19, x_20);
lean_dec(x_20);
if (x_21 == 0)
{
lean_object* x_22; uint8_t x_23;
x_22 = lean_array_get(x_18, x_17, x_16);
x_23 = l_Lean_Name_quickLt(x_22, x_19);
lean_dec(x_22);
if (x_23 == 0)
{
lean_object* x_24;
lean_dec(x_16);
lean_inc_n(x_2, 2);
x_24 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(x_3, x_19, x_17, x_2, x_2);
lean_dec(x_19);
x_4 = x_24;
goto block_12;
}
else
{
lean_object* x_25; lean_object* x_26; lean_object* x_27;
lean_dec(x_19);
x_25 = lean_array_swap(x_17, x_16, x_3);
lean_dec(x_16);
x_26 = lean_array_get(x_18, x_25, x_3);
lean_inc_n(x_2, 2);
x_27 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(x_3, x_26, x_25, x_2, x_2);
lean_dec(x_26);
x_4 = x_27;
goto block_12;
}
}
else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
lean_dec(x_19);
x_28 = lean_array_swap(x_17, x_2, x_3);
x_29 = lean_array_get(x_18, x_28, x_16);
x_30 = lean_array_get(x_18, x_28, x_3);
x_31 = l_Lean_Name_quickLt(x_29, x_30);
lean_dec(x_29);
if (x_31 == 0)
{
lean_object* x_32;
lean_dec(x_16);
lean_inc_n(x_2, 2);
x_32 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(x_3, x_30, x_28, x_2, x_2);
lean_dec(x_30);
x_4 = x_32;
goto block_12;
}
else
{
lean_object* x_33; lean_object* x_34; lean_object* x_35;
lean_dec(x_30);
x_33 = lean_array_swap(x_28, x_16, x_3);
lean_dec(x_16);
x_34 = lean_array_get(x_18, x_33, x_3);
lean_inc_n(x_2, 2);
x_35 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(x_3, x_34, x_33, x_2, x_2);
lean_dec(x_34);
x_4 = x_35;
goto block_12;
}
}
}
}
block_12:
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_ctor_get(x_4, 0);
lean_inc(x_5);
x_6 = lean_ctor_get(x_4, 1);
lean_inc(x_6);
lean_dec(x_4);
x_7 = lean_nat_dec_le(x_3, x_5);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_8 = l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2(x_6, x_2, x_5);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_5, x_9);
lean_dec(x_5);
x_1 = x_8;
x_2 = x_10;
goto _start;
}
else
{
lean_dec(x_5);
lean_dec(x_2);
return x_6;
}
}
}
}
uint8_t l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
uint8_t l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
@ -2857,7 +2668,7 @@ return x_10;
}
}
}
lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1() {
lean_object* _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
@ -2869,7 +2680,7 @@ lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
@ -2927,7 +2738,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -3100,7 +2911,7 @@ return x_52;
}
}
}
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__2(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
@ -3116,7 +2927,7 @@ lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9;
x_6 = lean_ctor_get(x_4, 0);
x_7 = lean_ctor_get(x_4, 1);
x_8 = lean_unsigned_to_nat(0u);
x_9 = l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5(x_1, x_6, x_8);
x_9 = l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3(x_1, x_6, x_8);
lean_dec(x_6);
if (x_9 == 0)
{
@ -3131,7 +2942,7 @@ x_13 = l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1;
x_14 = lean_alloc_closure((void*)(l_EState_bind___rarg), 3, 2);
lean_closure_set(x_14, 0, x_12);
lean_closure_set(x_14, 1, x_13);
x_15 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6(x_14, x_7);
x_15 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(x_14, x_7);
if (lean_obj_tag(x_15) == 0)
{
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;
@ -3326,7 +3137,7 @@ lean_inc(x_60);
lean_inc(x_59);
lean_dec(x_4);
x_61 = lean_unsigned_to_nat(0u);
x_62 = l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5(x_1, x_59, x_61);
x_62 = l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3(x_1, x_59, x_61);
lean_dec(x_59);
if (x_62 == 0)
{
@ -3340,7 +3151,7 @@ x_66 = l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1;
x_67 = lean_alloc_closure((void*)(l_EState_bind___rarg), 3, 2);
lean_closure_set(x_67, 0, x_65);
lean_closure_set(x_67, 1, x_66);
x_68 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6(x_67, x_60);
x_68 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(x_67, x_60);
if (lean_obj_tag(x_68) == 0)
{
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; lean_object* x_76;
@ -3581,7 +3392,7 @@ x_5 = lean_unsigned_to_nat(1u);
x_6 = lean_nat_sub(x_4, x_5);
lean_dec(x_4);
x_7 = lean_unsigned_to_nat(0u);
x_8 = l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2(x_3, x_7, x_6);
x_8 = l_Array_qsortAux___main___at_Lean_mkTagDeclarationExtension___spec__1(x_3, x_7, x_6);
lean_dec(x_6);
return x_8;
}
@ -3867,7 +3678,7 @@ _start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_5 = l_Lean_registerTagAttribute___closed__1;
x_6 = l_Lean_regNamespacesExtension___closed__3;
x_6 = l_Lean_mkTagDeclarationExtension___closed__1;
x_7 = l_Lean_registerTagAttribute___closed__2;
x_8 = l_Lean_registerTagAttribute___closed__3;
lean_inc(x_1);
@ -3877,7 +3688,7 @@ lean_ctor_set(x_9, 1, x_5);
lean_ctor_set(x_9, 2, x_6);
lean_ctor_set(x_9, 3, x_7);
lean_ctor_set(x_9, 4, x_8);
x_10 = l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4(x_9, x_4);
x_10 = l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__2(x_9, x_4);
if (lean_obj_tag(x_10) == 0)
{
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;
@ -3995,30 +3806,11 @@ return x_34;
}
}
}
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3___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_QSort_1__partitionAux___main___at_Lean_registerTagAttribute___spec__3(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
lean_dec(x_1);
return x_6;
}
}
lean_object* l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_qsortAux___main___at_Lean_registerTagAttribute___spec__2(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4; lean_object* x_5;
x_4 = l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__5(x_1, x_2, x_3);
x_4 = l_Array_anyMAux___main___at_Lean_registerTagAttribute___spec__3(x_1, x_2, x_3);
lean_dec(x_2);
lean_dec(x_1);
x_5 = lean_box(x_4);
@ -4083,7 +3875,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = lean_unsigned_to_nat(0u);
x_2 = l_Lean_EnvExtension_Inhabited___rarg___closed__1;
x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_3 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
@ -4131,81 +3923,6 @@ x_1 = l_Lean_TagAttribute_Inhabited___closed__3;
return x_1;
}
}
uint8_t l_Array_binSearchAux___main___at_Lean_TagAttribute_hasTag___spec__1(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_le(x_3, x_4);
if (x_5 == 0)
{
uint8_t x_6;
lean_dec(x_4);
lean_dec(x_3);
x_6 = 0;
return x_6;
}
else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12;
x_7 = lean_nat_add(x_3, x_4);
x_8 = lean_unsigned_to_nat(2u);
x_9 = lean_nat_div(x_7, x_8);
lean_dec(x_7);
x_10 = l_Lean_Inhabited;
x_11 = lean_array_get(x_10, x_1, x_9);
x_12 = l_Lean_Name_quickLt(x_11, x_2);
if (x_12 == 0)
{
uint8_t x_13;
lean_dec(x_4);
x_13 = l_Lean_Name_quickLt(x_2, x_11);
lean_dec(x_11);
if (x_13 == 0)
{
uint8_t x_14;
lean_dec(x_9);
lean_dec(x_3);
x_14 = 1;
return x_14;
}
else
{
lean_object* x_15; uint8_t x_16;
x_15 = lean_unsigned_to_nat(0u);
x_16 = lean_nat_dec_eq(x_9, x_15);
if (x_16 == 0)
{
lean_object* x_17; lean_object* x_18;
x_17 = lean_unsigned_to_nat(1u);
x_18 = lean_nat_sub(x_9, x_17);
lean_dec(x_9);
x_4 = x_18;
goto _start;
}
else
{
uint8_t x_20;
lean_dec(x_9);
lean_dec(x_3);
x_20 = 0;
return x_20;
}
}
}
else
{
lean_object* x_21; lean_object* x_22;
lean_dec(x_11);
lean_dec(x_3);
x_21 = lean_unsigned_to_nat(1u);
x_22 = lean_nat_add(x_9, x_21);
lean_dec(x_9);
x_3 = x_22;
goto _start;
}
}
}
}
uint8_t l_Lean_TagAttribute_hasTag(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
@ -4238,23 +3955,12 @@ x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_sub(x_11, x_12);
lean_dec(x_11);
x_14 = lean_unsigned_to_nat(0u);
x_15 = l_Array_binSearchAux___main___at_Lean_TagAttribute_hasTag___spec__1(x_10, x_3, x_14, x_13);
x_15 = l_Array_binSearchAux___main___at_Lean_TagDeclarationExtension_isTagged___spec__1(x_10, x_3, x_14, x_13);
lean_dec(x_10);
return x_15;
}
}
}
lean_object* l_Array_binSearchAux___main___at_Lean_TagAttribute_hasTag___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
uint8_t x_5; lean_object* x_6;
x_5 = l_Array_binSearchAux___main___at_Lean_TagAttribute_hasTag___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_2);
lean_dec(x_1);
x_6 = lean_box(x_5);
return x_6;
}
}
lean_object* l_Lean_TagAttribute_hasTag___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
@ -4859,7 +4565,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -7034,7 +6740,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -8836,8 +8542,8 @@ l_Lean_registerAttribute___closed__2 = _init_l_Lean_registerAttribute___closed__
lean_mark_persistent(l_Lean_registerAttribute___closed__2);
l_Lean_getAttributeImpl___closed__1 = _init_l_Lean_getAttributeImpl___closed__1();
lean_mark_persistent(l_Lean_getAttributeImpl___closed__1);
l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1);
l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1 = _init_l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1();
lean_mark_persistent(l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1);
l_Lean_registerTagAttribute___lambda__3___closed__1 = _init_l_Lean_registerTagAttribute___lambda__3___closed__1();
lean_mark_persistent(l_Lean_registerTagAttribute___lambda__3___closed__1);
l_Lean_registerTagAttribute___lambda__3___closed__2 = _init_l_Lean_registerTagAttribute___lambda__3___closed__2();

490
src/stage0/Init/Lean/AuxRecursor.c Normal file
View file

@ -0,0 +1,490 @@
// Lean compiler output
// Module: Init.Lean.AuxRecursor
// Imports: Init.Lean.Environment
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
extern lean_object* l_Lean_namespacesExt___closed__1;
uint8_t lean_is_no_confusion(lean_object*, lean_object*);
lean_object* l_Lean_noConfusionExt___closed__5;
extern lean_object* l_Array_empty___closed__1;
lean_object* l_Lean_auxRecExt___closed__1;
lean_object* l_Lean_noConfusionExt___elambda__1___boxed(lean_object*);
lean_object* l_Lean_noConfusionExt___elambda__3___boxed(lean_object*, lean_object*);
lean_object* l_Lean_auxRecExt___elambda__1___boxed(lean_object*);
lean_object* l_Lean_noConfusionExt___closed__1;
lean_object* lean_mark_aux_recursor(lean_object*, lean_object*);
uint8_t l_Lean_TagDeclarationExtension_isTagged(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkAuxRecursorExtension___closed__2;
lean_object* l_Lean_auxRecExt___elambda__3___boxed(lean_object*, lean_object*);
lean_object* l_Lean_auxRecExt___elambda__4___boxed(lean_object*);
lean_object* l_Lean_noConfusionExt;
lean_object* l_Lean_noConfusionExt___closed__4;
lean_object* l_Lean_noConfusionExt___elambda__4___boxed(lean_object*);
lean_object* l_Lean_noConfusionExt___elambda__4___rarg(lean_object*);
lean_object* l_Lean_noConfusionExt___elambda__2(lean_object*);
lean_object* l_Lean_auxRecExt___elambda__1(lean_object*);
lean_object* l_Lean_auxRecExt___elambda__3(lean_object*, lean_object*);
lean_object* l_Lean_auxRecExt___elambda__2(lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_noConfusionExt___elambda__1(lean_object*);
lean_object* l_Lean_mkAuxRecursorExtension___closed__1;
lean_object* l_Lean_mkAuxRecursorExtension(lean_object*);
lean_object* l_Lean_auxRecExt___elambda__2___boxed(lean_object*);
lean_object* l_Lean_auxRecExt___closed__4;
lean_object* lean_mark_no_confusion(lean_object*, lean_object*);
lean_object* l_Lean_auxRecExt___elambda__4(lean_object*);
lean_object* l_Lean_noConfusionExt___elambda__3(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_isAuxRecursor___boxed(lean_object*, lean_object*);
lean_object* l_Lean_auxRecExt___elambda__4___rarg(lean_object*);
lean_object* l_Lean_auxRecExt___closed__3;
lean_object* l_Lean_noConfusionExt___closed__2;
lean_object* l_Lean_mkTagDeclarationExtension(lean_object*, lean_object*);
lean_object* l_Lean_mkNoConfusionExtension___closed__1;
lean_object* l_Lean_auxRecExt;
uint8_t lean_is_aux_recursor(lean_object*, lean_object*);
lean_object* l_Lean_isNoConfusion___boxed(lean_object*, lean_object*);
lean_object* l_Lean_noConfusionExt___closed__3;
lean_object* l_Lean_auxRecExt___closed__5;
lean_object* l_Lean_noConfusionExt___elambda__2___boxed(lean_object*);
lean_object* l_Lean_mkNoConfusionExtension___closed__2;
lean_object* l_Lean_mkNoConfusionExtension(lean_object*);
lean_object* l_Lean_noConfusionExt___elambda__4(lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
lean_object* l_Lean_auxRecExt___closed__2;
lean_object* _init_l_Lean_mkAuxRecursorExtension___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("auxRec");
return x_1;
}
}
lean_object* _init_l_Lean_mkAuxRecursorExtension___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_mkAuxRecursorExtension___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_mkAuxRecursorExtension(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_mkAuxRecursorExtension___closed__2;
x_3 = l_Lean_mkTagDeclarationExtension(x_2, x_1);
return x_3;
}
}
lean_object* l_Lean_auxRecExt___elambda__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_box(0);
return x_2;
}
}
lean_object* l_Lean_auxRecExt___elambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Array_empty___closed__1;
return x_2;
}
}
lean_object* l_Lean_auxRecExt___elambda__3(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_inc(x_1);
return x_1;
}
}
lean_object* l_Lean_auxRecExt___elambda__4___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_String_splitAux___main___closed__1;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* l_Lean_auxRecExt___elambda__4(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_auxRecExt___elambda__4___rarg), 1, 0);
return x_2;
}
}
lean_object* _init_l_Lean_auxRecExt___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_auxRecExt___elambda__4___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_auxRecExt___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_auxRecExt___elambda__3___boxed), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_auxRecExt___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_auxRecExt___elambda__2___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_auxRecExt___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_auxRecExt___elambda__1___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_auxRecExt___closed__5() {
_start:
{
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;
x_1 = l_Lean_namespacesExt___closed__1;
x_2 = lean_box(0);
x_3 = l_Lean_auxRecExt___closed__1;
x_4 = l_Lean_auxRecExt___closed__2;
x_5 = l_Lean_auxRecExt___closed__3;
x_6 = l_Lean_auxRecExt___closed__4;
x_7 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_7, 0, x_1);
lean_ctor_set(x_7, 1, x_2);
lean_ctor_set(x_7, 2, x_3);
lean_ctor_set(x_7, 3, x_4);
lean_ctor_set(x_7, 4, x_5);
lean_ctor_set(x_7, 5, x_6);
return x_7;
}
}
lean_object* l_Lean_auxRecExt___elambda__1___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_auxRecExt___elambda__1(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_auxRecExt___elambda__2___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_auxRecExt___elambda__2(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_auxRecExt___elambda__3___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_auxRecExt___elambda__3(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Lean_auxRecExt___elambda__4___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_auxRecExt___elambda__4(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* lean_mark_aux_recursor(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = l_Lean_auxRecExt;
x_4 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_3, x_1, x_2);
return x_4;
}
}
uint8_t lean_is_aux_recursor(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; uint8_t x_4;
x_3 = l_Lean_auxRecExt;
x_4 = l_Lean_TagDeclarationExtension_isTagged(x_3, x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Lean_isAuxRecursor___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = lean_is_aux_recursor(x_1, x_2);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* _init_l_Lean_mkNoConfusionExtension___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("noConf");
return x_1;
}
}
lean_object* _init_l_Lean_mkNoConfusionExtension___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_mkNoConfusionExtension___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_mkNoConfusionExtension(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_mkNoConfusionExtension___closed__2;
x_3 = l_Lean_mkTagDeclarationExtension(x_2, x_1);
return x_3;
}
}
lean_object* l_Lean_noConfusionExt___elambda__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_box(0);
return x_2;
}
}
lean_object* l_Lean_noConfusionExt___elambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Array_empty___closed__1;
return x_2;
}
}
lean_object* l_Lean_noConfusionExt___elambda__3(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_inc(x_1);
return x_1;
}
}
lean_object* l_Lean_noConfusionExt___elambda__4___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_String_splitAux___main___closed__1;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* l_Lean_noConfusionExt___elambda__4(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_noConfusionExt___elambda__4___rarg), 1, 0);
return x_2;
}
}
lean_object* _init_l_Lean_noConfusionExt___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_noConfusionExt___elambda__4___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_noConfusionExt___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_noConfusionExt___elambda__3___boxed), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_noConfusionExt___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_noConfusionExt___elambda__2___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_noConfusionExt___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_noConfusionExt___elambda__1___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_noConfusionExt___closed__5() {
_start:
{
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;
x_1 = l_Lean_namespacesExt___closed__1;
x_2 = lean_box(0);
x_3 = l_Lean_noConfusionExt___closed__1;
x_4 = l_Lean_noConfusionExt___closed__2;
x_5 = l_Lean_noConfusionExt___closed__3;
x_6 = l_Lean_noConfusionExt___closed__4;
x_7 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_7, 0, x_1);
lean_ctor_set(x_7, 1, x_2);
lean_ctor_set(x_7, 2, x_3);
lean_ctor_set(x_7, 3, x_4);
lean_ctor_set(x_7, 4, x_5);
lean_ctor_set(x_7, 5, x_6);
return x_7;
}
}
lean_object* l_Lean_noConfusionExt___elambda__1___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_noConfusionExt___elambda__1(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_noConfusionExt___elambda__2___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_noConfusionExt___elambda__2(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_noConfusionExt___elambda__3___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_noConfusionExt___elambda__3(x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_Lean_noConfusionExt___elambda__4___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_noConfusionExt___elambda__4(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* lean_mark_no_confusion(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4;
x_3 = l_Lean_noConfusionExt;
x_4 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_3, x_1, x_2);
return x_4;
}
}
uint8_t lean_is_no_confusion(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; uint8_t x_4;
x_3 = l_Lean_noConfusionExt;
x_4 = l_Lean_TagDeclarationExtension_isTagged(x_3, x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Lean_isNoConfusion___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = lean_is_no_confusion(x_1, x_2);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* initialize_Init_Lean_Environment(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_AuxRecursor(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(lean_box(0));
_G_initialized = true;
res = initialize_Init_Lean_Environment(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_mkAuxRecursorExtension___closed__1 = _init_l_Lean_mkAuxRecursorExtension___closed__1();
lean_mark_persistent(l_Lean_mkAuxRecursorExtension___closed__1);
l_Lean_mkAuxRecursorExtension___closed__2 = _init_l_Lean_mkAuxRecursorExtension___closed__2();
lean_mark_persistent(l_Lean_mkAuxRecursorExtension___closed__2);
l_Lean_auxRecExt___closed__1 = _init_l_Lean_auxRecExt___closed__1();
lean_mark_persistent(l_Lean_auxRecExt___closed__1);
l_Lean_auxRecExt___closed__2 = _init_l_Lean_auxRecExt___closed__2();
lean_mark_persistent(l_Lean_auxRecExt___closed__2);
l_Lean_auxRecExt___closed__3 = _init_l_Lean_auxRecExt___closed__3();
lean_mark_persistent(l_Lean_auxRecExt___closed__3);
l_Lean_auxRecExt___closed__4 = _init_l_Lean_auxRecExt___closed__4();
lean_mark_persistent(l_Lean_auxRecExt___closed__4);
l_Lean_auxRecExt___closed__5 = _init_l_Lean_auxRecExt___closed__5();
lean_mark_persistent(l_Lean_auxRecExt___closed__5);
res = l_Lean_mkAuxRecursorExtension(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
l_Lean_auxRecExt = lean_io_result_get_value(res);
lean_mark_persistent(l_Lean_auxRecExt);
lean_dec_ref(res);
l_Lean_mkNoConfusionExtension___closed__1 = _init_l_Lean_mkNoConfusionExtension___closed__1();
lean_mark_persistent(l_Lean_mkNoConfusionExtension___closed__1);
l_Lean_mkNoConfusionExtension___closed__2 = _init_l_Lean_mkNoConfusionExtension___closed__2();
lean_mark_persistent(l_Lean_mkNoConfusionExtension___closed__2);
l_Lean_noConfusionExt___closed__1 = _init_l_Lean_noConfusionExt___closed__1();
lean_mark_persistent(l_Lean_noConfusionExt___closed__1);
l_Lean_noConfusionExt___closed__2 = _init_l_Lean_noConfusionExt___closed__2();
lean_mark_persistent(l_Lean_noConfusionExt___closed__2);
l_Lean_noConfusionExt___closed__3 = _init_l_Lean_noConfusionExt___closed__3();
lean_mark_persistent(l_Lean_noConfusionExt___closed__3);
l_Lean_noConfusionExt___closed__4 = _init_l_Lean_noConfusionExt___closed__4();
lean_mark_persistent(l_Lean_noConfusionExt___closed__4);
l_Lean_noConfusionExt___closed__5 = _init_l_Lean_noConfusionExt___closed__5();
lean_mark_persistent(l_Lean_noConfusionExt___closed__5);
res = l_Lean_mkNoConfusionExtension(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
l_Lean_noConfusionExt = lean_io_result_get_value(res);
lean_mark_persistent(l_Lean_noConfusionExt);
lean_dec_ref(res);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif

4
src/stage0/Init/Lean/Class.c
View file

@ -170,6 +170,7 @@ uint8_t lean_has_out_params(lean_object*, lean_object*);
lean_object* l_HashMapImp_expand___at_Lean_ClassState_addEntry___spec__8(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_mkClassExtension___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_isOutParam___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__4;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_ClassState_addEntry___spec__22(size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___closed__1;
@ -275,7 +276,6 @@ lean_object* lean_nat_mul(lean_object*, lean_object*);
lean_object* l_Lean_registerInstanceAttr___lambda__1___closed__1;
lean_object* l_Lean_registerInstanceAttr___closed__3;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__5;
uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_LocalContext_contains___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_ClassState_addEntry___spec__15(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
@ -4640,7 +4640,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_mkClassExtension___closed__2;
x_2 = l_Lean_mkClassExtension___closed__3;
x_3 = l_Lean_mkClassExtension___closed__4;
x_4 = l_Lean_regNamespacesExtension___closed__5;
x_4 = l_Lean_regNamespacesExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);

4
src/stage0/Init/Lean/Compiler/ClosedTermCache.c
View file

@ -89,6 +89,7 @@ lean_object* l_AssocList_find___main___at_Lean_getClosedTermName___spec__6___box
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef;
lean_object* l_mkHashMap___at_Lean_mkClosedTermCacheExtension___spec__13(lean_object*);
extern lean_object* l_Lean_regNamespacesExtension___closed__4;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_mkClosedTermCacheExtension___lambda__2(lean_object*);
extern lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___closed__1;
@ -140,7 +141,6 @@ lean_object* lean_nat_mul(lean_object*, lean_object*);
lean_object* l_Lean_closedTermCacheExt___closed__5;
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkClosedTermCacheExtension___spec__21___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__5;
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_mkClosedTermCacheExtension___spec__20___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_closedTermCacheExt___elambda__1___boxed(lean_object*);
@ -1987,7 +1987,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_mkClosedTermCacheExtension___closed__2;
x_2 = l_Lean_mkClosedTermCacheExtension___closed__3;
x_3 = l_Lean_mkClosedTermCacheExtension___closed__4;
x_4 = l_Lean_regNamespacesExtension___closed__5;
x_4 = l_Lean_regNamespacesExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);

4
src/stage0/Init/Lean/Compiler/ExportAttr.c
View file

@ -47,7 +47,6 @@ extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* lean_io_initializing(lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_mkExportAttr___spec__6(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkExportAttr(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_String_anyAux___main___at___private_Init_Lean_Compiler_ExportAttr_1__isValidCppId___spec__2(uint8_t, lean_object*, lean_object*, lean_object*);
@ -80,6 +79,7 @@ lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_
uint8_t l_Char_isDigit(uint32_t);
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkExportAttr___spec__1___closed__1;
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkExportAttr___lambda__1___closed__1;
lean_object* l_Lean_mkExportAttr___lambda__2(lean_object*, lean_object*, lean_object*);
@ -823,7 +823,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

4
src/stage0/Init/Lean/Compiler/ExternAttr.c
View file

@ -66,7 +66,6 @@ lean_object* lean_string_push(lean_object*, uint32_t);
lean_object* l_Lean_mkExternAttr___closed__1;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_1__syntaxToExternEntries___main___closed__4;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_1__syntaxToExternEntries___main(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_String_Iterator_next(lean_object*);
@ -122,6 +121,7 @@ lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__8;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* l___private_Init_Lean_Compiler_ExternAttr_2__syntaxToExternAttrData(lean_object*);
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_getExternEntryFor___boxed(lean_object*, lean_object*);
@ -1113,7 +1113,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

4
src/stage0/Init/Lean/Compiler/IR/ElimDeadBranches.c
View file

@ -185,6 +185,7 @@ lean_object* l_Array_iterateMAux___main___at_Lean_IR_UnreachableBranches_Value_f
extern lean_object* l_Lean_IR_paramInh;
uint8_t l_Array_isEmpty___rarg(lean_object*);
lean_object* l_HashMapImp_expand___at_Lean_IR_UnreachableBranches_updateVarAssignment___spec__4(lean_object*, lean_object*);
extern lean_object* l_Lean_regNamespacesExtension___closed__4;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find___at_Lean_IR_UnreachableBranches_getFunctionSummary___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_Array_umapMAux___main___at_Lean_IR_UnreachableBranches_interpExpr___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -318,7 +319,6 @@ lean_object* l_PersistentHashMap_findAux___main___at_Lean_IR_UnreachableBranches
lean_object* l_Lean_IR_UnreachableBranches_elimDead(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_IR_UnreachableBranches_mkFunctionSummariesExtension___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__5;
lean_object* l_Lean_IR_UnreachableBranches_updateVarAssignment___closed__1;
lean_object* l_Lean_IR_UnreachableBranches_Value_format___main___closed__7;
lean_object* l_List_foldl___main___at_Lean_IR_UnreachableBranches_Value_merge___main___spec__2(lean_object*, lean_object*);
@ -3764,7 +3764,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_IR_UnreachableBranches_mkFunctionSummariesExtension___closed__2;
x_2 = l_Lean_IR_UnreachableBranches_mkFunctionSummariesExtension___closed__4;
x_3 = l_Lean_IR_UnreachableBranches_mkFunctionSummariesExtension___closed__3;
x_4 = l_Lean_regNamespacesExtension___closed__5;
x_4 = l_Lean_regNamespacesExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);

4
src/stage0/Init/Lean/Compiler/ImplementedByAttr.c
View file

@ -36,7 +36,6 @@ extern lean_object* l_Lean_Inhabited;
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* lean_io_initializing(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Array_qsortAux___main___at_Lean_Compiler_mkImplementedByAttr___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_Compiler_mkImplementedByAttr___spec__5(lean_object*, lean_object*);
@ -74,6 +73,7 @@ lean_object* l_Lean_Compiler_implementedByAttr;
lean_object* l_Lean_Compiler_mkImplementedByAttr___lambda__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Compiler_mkImplementedByAttr___closed__2;
lean_object* lean_io_ref_get(lean_object*, lean_object*);
@ -453,7 +453,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

4
src/stage0/Init/Lean/Compiler/InitAttr.c
View file

@ -51,7 +51,6 @@ extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__1;
lean_object* l_Lean_mkInitAttr___lambda__1___closed__10;
lean_object* lean_io_initializing(lean_object*);
lean_object* l___private_Init_Lean_Compiler_InitAttr_1__getIOTypeArg___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_ParametricAttribute_getParam___at_Lean_isIOUnitInitFn___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -92,6 +91,7 @@ lean_object* l_Lean_registerParametricAttribute___rarg___lambda__4___boxed(lean_
lean_object* l_Lean_registerParametricAttribute___at_Lean_mkInitAttr___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
uint8_t l___private_Init_Lean_Compiler_InitAttr_2__isUnitType(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* l_Lean_mkInitAttr___lambda__1___closed__6;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkInitAttr___closed__4;
@ -635,7 +635,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

4
src/stage0/Init/Lean/Compiler/InlineAttrs.c
View file

@ -56,7 +56,6 @@ uint8_t l_Lean_Compiler_InlineAttributeKind_beq(uint8_t, uint8_t);
lean_object* lean_io_initializing(lean_object*);
lean_object* l_List_map___main___at_Lean_Compiler_mkInlineAttrs___spec__8___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
extern lean_object* l_Lean_registerEnumAttributes___rarg___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_EnumAttributes_Inhabited___closed__1;
@ -102,6 +101,7 @@ lean_object* l_Lean_Compiler_mkInlineAttrs___closed__22;
lean_object* l_Lean_registerEnumAttributes___at_Lean_Compiler_mkInlineAttrs___spec__1___closed__1;
lean_object* l_RBNode_find___main___at___private_Init_Lean_Compiler_InlineAttrs_1__hasInlineAttrAux___main___spec__2___boxed(lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Compiler_InlineAttrs_1__hasInlineAttrAux___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
@ -608,7 +608,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

8
src/stage0/Init/Lean/Compiler/Specialize.c
View file

@ -90,7 +90,6 @@ lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__12;
uint8_t l_AssocList_contains___main___at_Lean_Compiler_SpecState_addEntry___spec__7(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnumAttributes___rarg___closed__1;
lean_object* l_mkHashMap___at_Lean_Compiler_SpecState_Inhabited___spec__2(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_Compiler_specExtension___elambda__4___rarg(lean_object*);
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -149,6 +148,7 @@ lean_object* l_Lean_Compiler_SpecState_switch(lean_object*);
lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__7;
extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__3;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
extern lean_object* l_Lean_regNamespacesExtension___closed__4;
lean_object* l_Lean_Compiler_specExtension___closed__6;
lean_object* lean_array_push(lean_object*, lean_object*);
uint8_t l_Lean_Compiler_SpecializeAttributeKind_beq(uint8_t, uint8_t);
@ -175,6 +175,7 @@ lean_object* l_Lean_Compiler_mkSpecializeAttrs___closed__5;
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Compiler_getCachedSpecialization___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_Compiler_mkSpecializeAttrs___spec__6(lean_object*, lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find___at_Lean_Compiler_getCachedSpecialization___spec__2___boxed(lean_object*, lean_object*);
lean_object* lean_get_specialization_info(lean_object*, lean_object*);
@ -248,7 +249,6 @@ lean_object* l_PersistentHashMap_find___at_Lean_Compiler_getCachedSpecialization
lean_object* l_HashMapImp_expand___at_Lean_Compiler_SpecState_addEntry___spec__8(lean_object*, lean_object*);
extern lean_object* l_Lean_registerTagAttribute___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__5;
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
lean_object* l_Lean_Compiler_specExtension___elambda__1___boxed(lean_object*);
lean_object* l_Lean_Compiler_mkSpecExtension___closed__1;
@ -684,7 +684,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -5217,7 +5217,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_Compiler_mkSpecializeAttrs___closed__4;
x_2 = l_Lean_Compiler_mkSpecExtension___closed__1;
x_3 = l_Lean_Compiler_mkSpecExtension___closed__2;
x_4 = l_Lean_regNamespacesExtension___closed__5;
x_4 = l_Lean_regNamespacesExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);

62
src/stage0/Init/Lean/Declaration.c
View file

@ -18,20 +18,70 @@ lean_object* lean_task_get(lean_object*);
lean_object* l_Lean_ConstantInfo_name___boxed(lean_object*);
lean_object* l_Lean_ConstantInfo_toConstantVal(lean_object*);
lean_object* l_Lean_ConstantInfo_value___boxed(lean_object*);
lean_object* l_Lean_ConstantInfo_instantiateValueLevelParams___boxed(lean_object*, lean_object*);
lean_object* l_Lean_RecursorVal_getInduct___boxed(lean_object*);
lean_object* l_Lean_ConstantInfo_value(lean_object*);
lean_object* l_Lean_ConstantInfo_lparams(lean_object*);
lean_object* l_Lean_ConstantInfo_instantiateTypeUnivParams___boxed(lean_object*, lean_object*);
uint8_t l_Lean_ConstantInfo_hasValue(lean_object*);
lean_object* l_Lean_ConstantInfo_hints___boxed(lean_object*);
lean_object* lean_instantiate_type_lparams(lean_object*, lean_object*);
lean_object* l_Lean_ConstantInfo_instantiateValueUnivParams___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Name_getPrefix(lean_object*);
lean_object* lean_instantiate_value_lparams(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_ConstantInfo_hints___boxed(lean_object*);
lean_object* l_Lean_RecursorVal_getMajorIdx___boxed(lean_object*);
lean_object* l_Lean_RecursorVal_getInduct(lean_object*);
lean_object* l_Lean_ConstantInfo_instantiateTypeLevelParams___boxed(lean_object*, lean_object*);
lean_object* l_Lean_RecursorVal_getMajorIdx(lean_object*);
lean_object* l_Lean_ConstantInfo_hints(lean_object*);
lean_object* l_Lean_ConstantInfo_toConstantVal___boxed(lean_object*);
lean_object* lean_instantiate_type_lparams(lean_object*, lean_object*);
lean_object* l_Lean_ConstantInfo_type(lean_object*);
lean_object* l_Lean_ConstantInfo_type___boxed(lean_object*);
lean_object* l_Lean_ConstantInfo_lparams___boxed(lean_object*);
lean_object* l_Lean_ConstantInfo_hasValue___boxed(lean_object*);
lean_object* l_Lean_RecursorVal_getMajorIdx(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_2 = lean_ctor_get(x_1, 2);
x_3 = lean_ctor_get(x_1, 4);
x_4 = lean_nat_add(x_2, x_3);
x_5 = lean_ctor_get(x_1, 5);
x_6 = lean_nat_add(x_4, x_5);
lean_dec(x_4);
x_7 = lean_ctor_get(x_1, 3);
x_8 = lean_nat_add(x_6, x_7);
lean_dec(x_6);
return x_8;
}
}
lean_object* l_Lean_RecursorVal_getMajorIdx___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_RecursorVal_getMajorIdx(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_RecursorVal_getInduct(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_2 = lean_ctor_get(x_1, 0);
x_3 = lean_ctor_get(x_2, 0);
x_4 = l_Lean_Name_getPrefix(x_3);
return x_4;
}
}
lean_object* l_Lean_RecursorVal_getInduct___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_RecursorVal_getInduct(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_ConstantInfo_toConstantVal(lean_object* x_1) {
_start:
{
@ -216,7 +266,7 @@ lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_ConstantInfo_instantiateTypeUnivParams___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_ConstantInfo_instantiateTypeLevelParams___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
@ -224,7 +274,7 @@ x_3 = lean_instantiate_type_lparams(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_ConstantInfo_instantiateValueUnivParams___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_Lean_ConstantInfo_instantiateValueLevelParams___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;

6
src/stage0/Init/Lean/Default.c
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Init.Lean.Default
// Imports: Init.Lean.Path Init.Lean.Compiler.Default Init.Lean.Environment Init.Lean.Modifiers Init.Lean.ProjFns Init.Lean.Runtime Init.Lean.Attributes Init.Lean.Parser.Default Init.Lean.ReducibilityAttrs Init.Lean.Elaborator.Default Init.Lean.EqnCompiler.Default Init.Lean.Class Init.Lean.LocalContext Init.Lean.MetavarContext Init.Lean.TypeClass.Default Init.Lean.Trace
// Imports: Init.Lean.Path Init.Lean.Compiler.Default Init.Lean.Environment Init.Lean.Modifiers Init.Lean.ProjFns Init.Lean.Runtime Init.Lean.Attributes Init.Lean.Parser.Default Init.Lean.ReducibilityAttrs Init.Lean.Elaborator.Default Init.Lean.EqnCompiler.Default Init.Lean.Class Init.Lean.LocalContext Init.Lean.MetavarContext Init.Lean.TypeClass.Default Init.Lean.Trace Init.Lean.AuxRecursor
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -29,6 +29,7 @@ lean_object* initialize_Init_Lean_LocalContext(lean_object*);
lean_object* initialize_Init_Lean_MetavarContext(lean_object*);
lean_object* initialize_Init_Lean_TypeClass_Default(lean_object*);
lean_object* initialize_Init_Lean_Trace(lean_object*);
lean_object* initialize_Init_Lean_AuxRecursor(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_Default(lean_object* w) {
lean_object * res;
@ -82,6 +83,9 @@ lean_dec_ref(res);
res = initialize_Init_Lean_Trace(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_AuxRecursor(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus

4
src/stage0/Init/Lean/Elaborator/Alias.c
View file

@ -94,6 +94,7 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_HashMapImp_moveEntries___main___at_Lean_addAliasEntry___spec__15(lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef;
extern lean_object* l_Lean_regNamespacesExtension___closed__4;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_mkAliasExtension___spec__5(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_aliasExtension___elambda__2(lean_object*);
@ -141,7 +142,6 @@ lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkAliasExtension___spec
lean_object* lean_nat_mul(lean_object*, lean_object*);
lean_object* l_Lean_mkAliasExtension___lambda__1___boxed(lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__5;
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find___at_Lean_addAliasEntry___spec__2___boxed(lean_object*, lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
@ -2359,7 +2359,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_mkAliasExtension___closed__2;
x_2 = l_Lean_mkAliasExtension___closed__3;
x_3 = l_Lean_mkAliasExtension___closed__4;
x_4 = l_Lean_regNamespacesExtension___closed__5;
x_4 = l_Lean_regNamespacesExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);

4
src/stage0/Init/Lean/Elaborator/ElabStrategyAttrs.c
View file

@ -51,7 +51,6 @@ lean_object* lean_io_initializing(lean_object*);
lean_object* l_RBNode_fold___main___at_Lean_mkElaboratorStrategyAttrs___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__3;
extern lean_object* l_Lean_registerEnumAttributes___rarg___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_EnumAttributes_Inhabited___closed__1;
@ -86,6 +85,7 @@ lean_object* l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs__
lean_object* l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs___spec__1___lambda__2___boxed(lean_object*);
lean_object* l_Lean_registerEnumAttributes___at_Lean_mkElaboratorStrategyAttrs___spec__1___lambda__1(lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__5;
lean_object* l_Lean_mkElaboratorStrategyAttrs___closed__20;
@ -476,7 +476,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

70
src/stage0/Init/Lean/Elaborator/ResolveName.c
View file

@ -24,6 +24,8 @@ lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elaborator_Resolve
lean_object* l_Lean_Elab_preresolveNames___rarg___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_2__resolveUsingNamespace___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_TagDeclarationExtension_isTagged(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_1__resolveQualifiedName(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -38,8 +40,10 @@ lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elaborator_Resolve
lean_object* l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getNamespace___rarg(lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_1__resolveQualifiedName___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_List_append___rarg(lean_object*, lean_object*);
extern lean_object* l_Lean_protectedExt;
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_Elab_resolveName___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -50,7 +54,6 @@ lean_object* l_List_eraseDups___at_Lean_Parser_addBuiltinLeadingParser___spec__2
lean_object* l_Lean_Name_replacePrefix___main(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elaborator_ResolveName_2__resolveUsingNamespace(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_getOpenDecls___rarg(lean_object*);
uint8_t lean_is_protected(lean_object*, lean_object*);
lean_object* l_Lean_Elab_getEnv___rarg(lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
@ -76,7 +79,6 @@ if (x_6 == 0)
{
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
return x_5;
}
else
@ -87,7 +89,6 @@ lean_dec(x_3);
if (x_7 == 0)
{
lean_object* x_8;
lean_dec(x_1);
x_8 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_8, 0, x_4);
lean_ctor_set(x_8, 1, x_5);
@ -95,16 +96,16 @@ return x_8;
}
else
{
uint8_t x_9;
lean_inc(x_4);
x_9 = lean_is_protected(x_1, x_4);
if (x_9 == 0)
lean_object* x_9; uint8_t x_10;
x_9 = l_Lean_protectedExt;
x_10 = l_Lean_TagDeclarationExtension_isTagged(x_9, x_1, x_4);
if (x_10 == 0)
{
lean_object* x_10;
x_10 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_10, 0, x_4);
lean_ctor_set(x_10, 1, x_5);
return x_10;
lean_object* x_11;
x_11 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_11, 0, x_4);
lean_ctor_set(x_11, 1, x_5);
return x_11;
}
else
{
@ -121,6 +122,7 @@ _start:
lean_object* x_4;
x_4 = l___private_Init_Lean_Elaborator_ResolveName_1__resolveQualifiedName(x_1, x_2, x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
}
@ -132,7 +134,6 @@ if (lean_obj_tag(x_3) == 1)
lean_object* x_4; lean_object* x_5;
x_4 = lean_ctor_get(x_3, 0);
lean_inc(x_2);
lean_inc(x_1);
x_5 = l___private_Init_Lean_Elaborator_ResolveName_1__resolveQualifiedName(x_1, x_3, x_2);
if (lean_obj_tag(x_5) == 0)
{
@ -142,7 +143,6 @@ goto _start;
else
{
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
@ -150,7 +150,6 @@ else
{
lean_object* x_7;
lean_dec(x_2);
lean_dec(x_1);
x_7 = lean_box(0);
return x_7;
}
@ -162,6 +161,7 @@ _start:
lean_object* x_4;
x_4 = l___private_Init_Lean_Elaborator_ResolveName_2__resolveUsingNamespace___main(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_1);
return x_4;
}
}
@ -179,6 +179,7 @@ _start:
lean_object* x_4;
x_4 = l___private_Init_Lean_Elaborator_ResolveName_2__resolveUsingNamespace(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_1);
return x_4;
}
}
@ -233,7 +234,6 @@ _start:
if (lean_obj_tag(x_3) == 0)
{
lean_dec(x_2);
lean_dec(x_1);
return x_4;
}
else
@ -258,7 +258,6 @@ if (x_9 == 0)
{
lean_object* x_10; lean_object* x_11;
lean_inc(x_2);
lean_inc(x_1);
x_10 = l___private_Init_Lean_Elaborator_ResolveName_1__resolveQualifiedName(x_1, x_7, x_2);
lean_dec(x_7);
x_11 = l_List_append___rarg(x_10, x_4);
@ -344,6 +343,15 @@ goto _start;
}
}
}
lean_object* l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___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_Elaborator_ResolveName_4__resolveOpenDecls___main(x_1, x_2, x_3, x_4);
lean_dec(x_1);
return x_5;
}
}
lean_object* l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -352,6 +360,15 @@ x_5 = l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___main(x_
return x_5;
}
}
lean_object* l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___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_Elaborator_ResolveName_4__resolveOpenDecls(x_1, x_2, x_3, x_4);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_List_map___main___at___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
@ -459,7 +476,6 @@ lean_object* x_6; lean_object* x_7;
x_6 = lean_ctor_get(x_4, 0);
lean_inc(x_6);
lean_inc(x_4);
lean_inc(x_1);
x_7 = l___private_Init_Lean_Elaborator_ResolveName_2__resolveUsingNamespace___main(x_1, x_4, x_2);
if (lean_obj_tag(x_7) == 0)
{
@ -475,7 +491,6 @@ if (x_9 == 0)
{
lean_object* x_18; lean_object* x_19;
lean_inc(x_3);
lean_inc(x_1);
x_18 = l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___main(x_1, x_4, x_3, x_7);
x_19 = l_List_append___rarg(x_10, x_18);
x_11 = x_19;
@ -489,7 +504,6 @@ x_20 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_20, 0, x_4);
lean_ctor_set(x_20, 1, x_7);
lean_inc(x_3);
lean_inc(x_1);
x_21 = l___private_Init_Lean_Elaborator_ResolveName_4__resolveOpenDecls___main(x_1, x_4, x_3, x_20);
x_22 = l_List_append___rarg(x_10, x_21);
x_11 = x_22;
@ -512,7 +526,6 @@ else
lean_object* x_15; lean_object* x_16;
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_1);
x_15 = l_List_eraseDups___at_Lean_Parser_addBuiltinLeadingParser___spec__2(x_11);
x_16 = l_List_map___main___at___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main___spec__1(x_5, x_15);
return x_16;
@ -525,7 +538,6 @@ lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26;
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_23 = lean_ctor_get(x_8, 0);
lean_inc(x_23);
lean_dec(x_8);
@ -545,7 +557,6 @@ lean_object* x_27; lean_object* x_28;
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_27 = l_List_eraseDups___at_Lean_Parser_addBuiltinLeadingParser___spec__2(x_7);
x_28 = l_List_map___main___at___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main___spec__2(x_5, x_27);
return x_28;
@ -557,7 +568,6 @@ lean_object* x_29;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_29 = lean_box(0);
return x_29;
}
@ -569,6 +579,7 @@ _start:
lean_object* x_6;
x_6 = l___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
lean_dec(x_1);
return x_6;
}
}
@ -586,6 +597,7 @@ _start:
lean_object* x_6;
x_6 = l___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
lean_dec(x_1);
return x_6;
}
}
@ -614,6 +626,7 @@ x_12 = lean_ctor_get(x_10, 0);
x_13 = lean_unsigned_to_nat(0u);
x_14 = l___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main(x_5, x_8, x_12, x_1, x_13);
lean_dec(x_8);
lean_dec(x_5);
lean_ctor_set(x_10, 0, x_14);
return x_10;
}
@ -628,6 +641,7 @@ lean_dec(x_10);
x_17 = lean_unsigned_to_nat(0u);
x_18 = l___private_Init_Lean_Elaborator_ResolveName_5__resolveNameAux___main(x_5, x_8, x_15, x_1, x_17);
lean_dec(x_8);
lean_dec(x_5);
x_19 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_19, 0, x_18);
lean_ctor_set(x_19, 1, x_16);
@ -656,7 +670,6 @@ if (x_7 == 0)
lean_object* x_8; lean_object* x_9;
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
x_8 = l_Array_empty___closed__1;
x_9 = x_5;
return x_9;
@ -671,7 +684,6 @@ x_12 = x_11;
x_13 = lean_array_fset(x_5, x_4, x_12);
lean_inc(x_10);
lean_inc(x_3);
lean_inc(x_1);
x_14 = l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___rarg(x_1, x_2, x_3, x_10);
x_15 = lean_unsigned_to_nat(1u);
x_16 = lean_nat_add(x_4, x_15);
@ -765,7 +777,6 @@ return x_24;
default:
{
lean_dec(x_3);
lean_dec(x_1);
return x_4;
}
}
@ -785,6 +796,7 @@ _start:
lean_object* x_6;
x_6 = l_Array_umapMAux___main___at___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___spec__1___rarg(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
lean_dec(x_1);
return x_6;
}
}
@ -794,6 +806,7 @@ _start:
lean_object* x_5;
x_5 = l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
@ -819,6 +832,7 @@ _start:
lean_object* x_5;
x_5 = l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
@ -846,6 +860,7 @@ lean_object* x_12; lean_object* x_13;
x_12 = lean_ctor_get(x_10, 0);
x_13 = l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___rarg(x_5, x_8, x_12, x_1);
lean_dec(x_8);
lean_dec(x_5);
lean_ctor_set(x_10, 0, x_13);
return x_10;
}
@ -859,6 +874,7 @@ lean_inc(x_14);
lean_dec(x_10);
x_16 = l___private_Init_Lean_Elaborator_ResolveName_6__preresolveNamesAux___main___rarg(x_5, x_8, x_14, x_1);
lean_dec(x_8);
lean_dec(x_5);
x_17 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_17, 0, x_16);
lean_ctor_set(x_17, 1, x_15);

2193
src/stage0/Init/Lean/Environment.c
View file

File diff suppressed because it is too large Load diff

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

File diff suppressed because it is too large Load diff

1451
src/stage0/Init/Lean/InductiveUtil.c Normal file
View file

File diff suppressed because it is too large Load diff

177
src/stage0/Init/Lean/LBool.c Normal file
View file

@ -0,0 +1,177 @@
// Lean compiler output
// Module: Init.Lean.LBool
// Imports: Init.Data.ToString
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_LBool_toString___closed__1;
uint8_t l_Lean_LBool_Inhabited;
lean_object* l_Lean_LBool_HasToString;
extern lean_object* l_Bool_HasRepr___closed__2;
uint8_t l_Bool_toLBool(uint8_t);
lean_object* l_Lean_LBool_toString___boxed(lean_object*);
uint8_t l_Lean_LBool_neg(uint8_t);
lean_object* l_Lean_LBool_HasToString___closed__1;
lean_object* l_Lean_LBool_toString(uint8_t);
lean_object* l_Lean_LBool_neg___boxed(lean_object*);
lean_object* l_Bool_toLBool___boxed(lean_object*);
extern lean_object* l_Bool_HasRepr___closed__1;
uint8_t _init_l_Lean_LBool_Inhabited() {
_start:
{
uint8_t x_1;
x_1 = 0;
return x_1;
}
}
uint8_t l_Lean_LBool_neg(uint8_t x_1) {
_start:
{
switch (x_1) {
case 0:
{
uint8_t x_2;
x_2 = 1;
return x_2;
}
case 1:
{
uint8_t x_3;
x_3 = 0;
return x_3;
}
default:
{
return x_1;
}
}
}
}
lean_object* l_Lean_LBool_neg___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; uint8_t x_3; lean_object* x_4;
x_2 = lean_unbox(x_1);
lean_dec(x_1);
x_3 = l_Lean_LBool_neg(x_2);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* _init_l_Lean_LBool_toString___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("undef");
return x_1;
}
}
lean_object* l_Lean_LBool_toString(uint8_t x_1) {
_start:
{
switch (x_1) {
case 0:
{
lean_object* x_2;
x_2 = l_Bool_HasRepr___closed__1;
return x_2;
}
case 1:
{
lean_object* x_3;
x_3 = l_Bool_HasRepr___closed__2;
return x_3;
}
default:
{
lean_object* x_4;
x_4 = l_Lean_LBool_toString___closed__1;
return x_4;
}
}
}
}
lean_object* l_Lean_LBool_toString___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; lean_object* x_3;
x_2 = lean_unbox(x_1);
lean_dec(x_1);
x_3 = l_Lean_LBool_toString(x_2);
return x_3;
}
}
lean_object* _init_l_Lean_LBool_HasToString___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_LBool_toString___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_LBool_HasToString() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_LBool_HasToString___closed__1;
return x_1;
}
}
uint8_t l_Bool_toLBool(uint8_t x_1) {
_start:
{
if (x_1 == 0)
{
uint8_t x_2;
x_2 = 0;
return x_2;
}
else
{
uint8_t x_3;
x_3 = 1;
return x_3;
}
}
}
lean_object* l_Bool_toLBool___boxed(lean_object* x_1) {
_start:
{
uint8_t x_2; uint8_t x_3; lean_object* x_4;
x_2 = lean_unbox(x_1);
lean_dec(x_1);
x_3 = l_Bool_toLBool(x_2);
x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* initialize_Init_Data_ToString(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_LBool(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(lean_box(0));
_G_initialized = true;
res = initialize_Init_Data_ToString(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_LBool_Inhabited = _init_l_Lean_LBool_Inhabited();
l_Lean_LBool_toString___closed__1 = _init_l_Lean_LBool_toString___closed__1();
lean_mark_persistent(l_Lean_LBool_toString___closed__1);
l_Lean_LBool_HasToString___closed__1 = _init_l_Lean_LBool_HasToString___closed__1();
lean_mark_persistent(l_Lean_LBool_HasToString___closed__1);
l_Lean_LBool_HasToString = _init_l_Lean_LBool_HasToString();
lean_mark_persistent(l_Lean_LBool_HasToString);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif

273
src/stage0/Init/Lean/Level.c
View file

@ -45,12 +45,14 @@ lean_object* lean_level_mk_mvar(lean_object*);
lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Level_getOffset(lean_object*);
lean_object* l_Lean_Level_getLevelOffset___boxed(lean_object*);
lean_object* l_Lean_Level_mvarId_x21___closed__2;
lean_object* l_Lean_fmt___at_Lean_Level_LevelToFormat_Result_format___main___spec__1(lean_object*);
lean_object* l_Lean_Level_getLevelOffset___main___boxed(lean_object*);
lean_object* l_Lean_Level_LevelToFormat_Result_format___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Level_4__accMax(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
uint8_t l_Lean_Level_normLt(lean_object*, lean_object*);
extern lean_object* l_Lean_Inhabited;
lean_object* l_Lean_Level_beq___boxed(lean_object*, lean_object*);
uint8_t l_Lean_Level_isMax(lean_object*);
lean_object* l_Lean_Level_HasToString;
@ -87,6 +89,7 @@ lean_object* l_Lean_Level_updateSucc_x21(lean_object*, lean_object*);
lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__6;
extern lean_object* l_unreachable_x21___rarg___closed__1;
lean_object* lean_string_append(lean_object*, lean_object*);
lean_object* l_Lean_Level_mvarId_x21___closed__1;
lean_object* l_Lean_Level_updateIMax_x21(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Level_getOffsetAux___main(lean_object*, lean_object*);
extern lean_object* l_Lean_Format_paren___closed__1;
@ -96,7 +99,9 @@ lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__5;
lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__2;
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
uint8_t l_Lean_Level_isEquiv(lean_object*, lean_object*);
lean_object* l_Lean_Level_dec___main___boxed(lean_object*);
uint8_t l_Lean_Level_isSucc(lean_object*);
lean_object* l_Lean_Level_dec___main(lean_object*);
lean_object* l_Lean_Level_getDepth___boxed(lean_object*);
lean_object* l_Lean_Level_ofNat___boxed(lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
@ -116,6 +121,7 @@ lean_object* l_Lean_Level_max___boxed(lean_object*, lean_object*);
lean_object* lean_level_mk_imax(lean_object*, lean_object*);
lean_object* l_Lean_Level_LevelToFormat_toResult___main(lean_object*);
lean_object* l_Lean_Level_imax___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Level_mvarId_x21(lean_object*);
lean_object* l_Lean_Level_Lean_HasFormat___closed__1;
uint8_t l_Lean_Level_occurs___main(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Level_3__getMaxArgsAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
@ -127,10 +133,10 @@ lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__1;
lean_object* l_Lean_Level_Inhabited;
lean_object* l_Array_qsortAux___main___at_Lean_Level_normalize___main___spec__3___boxed(lean_object*, lean_object*, lean_object*);
size_t lean_level_hash(lean_object*);
lean_object* l_Lean_Level_dec___boxed(lean_object*);
lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__3;
lean_object* lean_level_mk_param(lean_object*);
lean_object* l_Lean_Level_updateSucc_x21___closed__1;
lean_object* l_Lean_Level_updateSucc_x21___closed__2;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Level_param___boxed(lean_object*);
lean_object* l_Lean_Level_isEquiv___boxed(lean_object*, lean_object*);
@ -141,6 +147,7 @@ uint8_t l_Lean_Level_isNeverZero(lean_object*);
extern lean_object* l_Lean_HasRepr___closed__1;
lean_object* l_Lean_Level_updateIMax_x21___closed__1;
lean_object* l___private_Init_Lean_Level_3__getMaxArgsAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Level_mvarId_x21___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Level_2__mkIMaxAux(lean_object*, lean_object*);
lean_object* lean_level_update_imax(lean_object*, lean_object*, lean_object*);
@ -158,6 +165,7 @@ lean_object* l_Lean_Level_hashable___closed__1;
lean_object* l_Lean_Level_hashable;
lean_object* l_Lean_Level_getOffsetAux___main___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Level_HasBeq___closed__1;
lean_object* l_Lean_Level_mvarId_x21___boxed(lean_object*);
lean_object* l_Lean_Level_addOffset(lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l_Lean_Level_LevelToFormat_Result_format(lean_object*, uint8_t);
@ -170,10 +178,12 @@ lean_object* l_Lean_Level_succ___boxed(lean_object*);
uint8_t l_Lean_Level_isExplicit(lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
uint8_t l___private_Init_Lean_Level_1__isAlreadyNormalizedCheap___main(lean_object*);
lean_object* l_panicWithPos___at_Lean_Level_mvarId_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Level_LevelToFormat_parenIfFalse___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Level_getOffsetAux___boxed(lean_object*, lean_object*);
uint8_t lean_level_eq(lean_object*, lean_object*);
lean_object* l_Lean_Level_getLevelOffset___main(lean_object*);
lean_object* l_Lean_Level_dec(lean_object*);
lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_Level_HasBeq;
lean_object* l_Lean_Level_isZero___boxed(lean_object*);
@ -475,6 +485,87 @@ x_3 = lean_box(x_2);
return x_3;
}
}
lean_object* l_panicWithPos___at_Lean_Level_mvarId_x21___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_5 = l_panicWithPos___rarg___closed__1;
x_6 = lean_string_append(x_5, x_1);
x_7 = l_panicWithPos___rarg___closed__2;
x_8 = lean_string_append(x_6, x_7);
x_9 = l_Nat_repr(x_2);
x_10 = lean_string_append(x_8, x_9);
lean_dec(x_9);
x_11 = l_panicWithPos___rarg___closed__2;
x_12 = lean_string_append(x_10, x_11);
x_13 = l_Nat_repr(x_3);
x_14 = lean_string_append(x_12, x_13);
lean_dec(x_13);
x_15 = l_panicWithPos___rarg___closed__3;
x_16 = lean_string_append(x_14, x_15);
x_17 = lean_string_append(x_16, x_4);
x_18 = l_Lean_Inhabited;
x_19 = lean_panic_fn(x_17);
return x_19;
}
}
lean_object* _init_l_Lean_Level_mvarId_x21___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("Init.Lean.Level");
return x_1;
}
}
lean_object* _init_l_Lean_Level_mvarId_x21___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("metavariable expected");
return x_1;
}
}
lean_object* l_Lean_Level_mvarId_x21(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 5)
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
return x_2;
}
else
{
lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_3 = l_Lean_Level_mvarId_x21___closed__1;
x_4 = lean_unsigned_to_nat(67u);
x_5 = lean_unsigned_to_nat(17u);
x_6 = l_Lean_Level_mvarId_x21___closed__2;
x_7 = l_panicWithPos___at_Lean_Level_mvarId_x21___spec__1(x_3, x_4, x_5, x_6);
return x_7;
}
}
}
lean_object* l_panicWithPos___at_Lean_Level_mvarId_x21___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_panicWithPos___at_Lean_Level_mvarId_x21___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_4);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_Level_mvarId_x21___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Level_mvarId_x21(x_1);
lean_dec(x_1);
return x_2;
}
}
uint8_t l_Lean_Level_isNeverZero___main(lean_object* x_1) {
_start:
{
@ -2325,6 +2416,158 @@ x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_Lean_Level_dec___main(lean_object* x_1) {
_start:
{
switch (lean_obj_tag(x_1)) {
case 1:
{
lean_object* x_2; lean_object* x_3;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_3, 0, x_2);
return x_3;
}
case 2:
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_4 = lean_ctor_get(x_1, 0);
x_5 = lean_ctor_get(x_1, 1);
x_6 = l_Lean_Level_dec___main(x_4);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7;
x_7 = lean_box(0);
return x_7;
}
else
{
lean_object* x_8; lean_object* x_9;
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_8);
lean_dec(x_6);
x_9 = l_Lean_Level_dec___main(x_5);
if (lean_obj_tag(x_9) == 0)
{
lean_object* x_10;
lean_dec(x_8);
x_10 = lean_box(0);
return x_10;
}
else
{
uint8_t x_11;
x_11 = !lean_is_exclusive(x_9);
if (x_11 == 0)
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_ctor_get(x_9, 0);
x_13 = lean_level_mk_max(x_8, x_12);
lean_ctor_set(x_9, 0, x_13);
return x_9;
}
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_14 = lean_ctor_get(x_9, 0);
lean_inc(x_14);
lean_dec(x_9);
x_15 = lean_level_mk_max(x_8, x_14);
x_16 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_16, 0, x_15);
return x_16;
}
}
}
}
case 3:
{
lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_17 = lean_ctor_get(x_1, 0);
x_18 = lean_ctor_get(x_1, 1);
x_19 = l_Lean_Level_dec___main(x_17);
if (lean_obj_tag(x_19) == 0)
{
lean_object* x_20;
x_20 = lean_box(0);
return x_20;
}
else
{
lean_object* x_21; lean_object* x_22;
x_21 = lean_ctor_get(x_19, 0);
lean_inc(x_21);
lean_dec(x_19);
x_22 = l_Lean_Level_dec___main(x_18);
if (lean_obj_tag(x_22) == 0)
{
lean_object* x_23;
lean_dec(x_21);
x_23 = lean_box(0);
return x_23;
}
else
{
uint8_t x_24;
x_24 = !lean_is_exclusive(x_22);
if (x_24 == 0)
{
lean_object* x_25; lean_object* x_26;
x_25 = lean_ctor_get(x_22, 0);
x_26 = lean_level_mk_max(x_21, x_25);
lean_ctor_set(x_22, 0, x_26);
return x_22;
}
else
{
lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_27 = lean_ctor_get(x_22, 0);
lean_inc(x_27);
lean_dec(x_22);
x_28 = lean_level_mk_max(x_21, x_27);
x_29 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_29, 0, x_28);
return x_29;
}
}
}
}
default:
{
lean_object* x_30;
x_30 = lean_box(0);
return x_30;
}
}
}
}
lean_object* l_Lean_Level_dec___main___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Level_dec___main(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_Level_dec(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Level_dec___main(x_1);
return x_2;
}
}
lean_object* l_Lean_Level_dec___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_Level_dec(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_Level_LevelToFormat_Result_succ(lean_object* x_1) {
_start:
{
@ -2967,14 +3210,6 @@ lean_object* _init_l_Lean_Level_updateSucc_x21___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("Init.Lean.Level");
return x_1;
}
}
lean_object* _init_l_Lean_Level_updateSucc_x21___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("succ level expected");
return x_1;
}
@ -2993,10 +3228,10 @@ else
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
lean_dec(x_2);
lean_dec(x_1);
x_4 = l_Lean_Level_updateSucc_x21___closed__1;
x_5 = lean_unsigned_to_nat(339u);
x_4 = l_Lean_Level_mvarId_x21___closed__1;
x_5 = lean_unsigned_to_nat(354u);
x_6 = lean_unsigned_to_nat(14u);
x_7 = l_Lean_Level_updateSucc_x21___closed__2;
x_7 = l_Lean_Level_updateSucc_x21___closed__1;
x_8 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_4, x_5, x_6, x_7);
return x_8;
}
@ -3033,8 +3268,8 @@ lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_obj
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_5 = l_Lean_Level_updateSucc_x21___closed__1;
x_6 = lean_unsigned_to_nat(348u);
x_5 = l_Lean_Level_mvarId_x21___closed__1;
x_6 = lean_unsigned_to_nat(363u);
x_7 = lean_unsigned_to_nat(17u);
x_8 = l_Lean_Level_updateMax_x21___closed__1;
x_9 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_5, x_6, x_7, x_8);
@ -3079,8 +3314,8 @@ lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_o
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_8 = l_Lean_Level_updateSucc_x21___closed__1;
x_9 = lean_unsigned_to_nat(357u);
x_8 = l_Lean_Level_mvarId_x21___closed__1;
x_9 = lean_unsigned_to_nat(372u);
x_10 = lean_unsigned_to_nat(17u);
x_11 = l_Lean_Level_updateIMax_x21___closed__1;
x_12 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_8, x_9, x_10, x_11);
@ -3115,6 +3350,10 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Level_Inhabited = _init_l_Lean_Level_Inhabited();
lean_mark_persistent(l_Lean_Level_Inhabited);
l_Lean_Level_mvarId_x21___closed__1 = _init_l_Lean_Level_mvarId_x21___closed__1();
lean_mark_persistent(l_Lean_Level_mvarId_x21___closed__1);
l_Lean_Level_mvarId_x21___closed__2 = _init_l_Lean_Level_mvarId_x21___closed__2();
lean_mark_persistent(l_Lean_Level_mvarId_x21___closed__2);
l_Lean_Level_one___closed__1 = _init_l_Lean_Level_one___closed__1();
lean_mark_persistent(l_Lean_Level_one___closed__1);
l_Lean_Level_one = _init_l_Lean_Level_one();
@ -3151,8 +3390,6 @@ l_Lean_Level_HasToString = _init_l_Lean_Level_HasToString();
lean_mark_persistent(l_Lean_Level_HasToString);
l_Lean_Level_updateSucc_x21___closed__1 = _init_l_Lean_Level_updateSucc_x21___closed__1();
lean_mark_persistent(l_Lean_Level_updateSucc_x21___closed__1);
l_Lean_Level_updateSucc_x21___closed__2 = _init_l_Lean_Level_updateSucc_x21___closed__2();
lean_mark_persistent(l_Lean_Level_updateSucc_x21___closed__2);
l_Lean_Level_updateMax_x21___closed__1 = _init_l_Lean_Level_updateMax_x21___closed__1();
lean_mark_persistent(l_Lean_Level_updateMax_x21___closed__1);
l_Lean_Level_updateIMax_x21___closed__1 = _init_l_Lean_Level_updateIMax_x21___closed__1();

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

@ -108,7 +108,6 @@ size_t l_USize_sub(size_t, size_t);
lean_object* l_Array_iterateMAux___main___at_Lean_LocalContext_foldlFrom___spec__6___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_findDeclM___at_Lean_LocalContext_findDecl___spec__1(lean_object*);
lean_object* l_PersistentArray_anyM___at_Lean_LocalContext_anyM___spec__1___boxed(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_findRevMAux___main___at_Lean_LocalContext_findDeclRevM___spec__4___boxed(lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_LocalContext_foldlFrom___spec__10(lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_LocalContext_allM___spec__3___boxed(lean_object*);
@ -460,6 +459,7 @@ lean_object* l_Array_anyMAux___main___at_Lean_LocalContext_anyM___spec__4___rarg
lean_object* l_Lean_LocalContext_foldlFromM___at_Lean_LocalContext_foldlFrom___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_findDeclRevM___at_Lean_LocalContext_findDeclRev___spec__1(lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_LocalContext_anyM___spec__3(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* _init_l_Lean_LocalDecl_Inhabited___closed__1() {
_start:
{
@ -665,7 +665,7 @@ x_2 = l_Lean_LocalDecl_value___closed__1;
x_3 = lean_unsigned_to_nat(49u);
x_4 = lean_unsigned_to_nat(21u);
x_5 = l_Lean_LocalDecl_value___closed__2;
x_6 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_2, x_3, x_4, x_5);
x_6 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_2, x_3, x_4, x_5);
return x_6;
}
else
@ -6887,7 +6887,7 @@ x_13 = l_Lean_LocalDecl_value___closed__1;
x_14 = lean_unsigned_to_nat(256u);
x_15 = lean_unsigned_to_nat(12u);
x_16 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_17 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_13, x_14, x_15, x_16);
x_17 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_13, x_14, x_15, x_16);
x_4 = x_9;
x_5 = x_17;
goto _start;
@ -7013,7 +7013,7 @@ x_12 = l_Lean_LocalDecl_value___closed__1;
x_13 = lean_unsigned_to_nat(256u);
x_14 = lean_unsigned_to_nat(12u);
x_15 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_16 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_12, x_13, x_14, x_15);
x_16 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_12, x_13, x_14, x_15);
x_3 = x_8;
x_4 = x_16;
goto _start;
@ -7123,7 +7123,7 @@ x_12 = l_Lean_LocalDecl_value___closed__1;
x_13 = lean_unsigned_to_nat(256u);
x_14 = lean_unsigned_to_nat(12u);
x_15 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_16 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_12, x_13, x_14, x_15);
x_16 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_12, x_13, x_14, x_15);
x_3 = x_8;
x_4 = x_16;
goto _start;

20
src/stage0/Init/Lean/Message.c
View file

@ -14,6 +14,7 @@
extern "C" {
#endif
lean_object* l_Lean_mkErrorStringWithPos(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MessageData_coeOfLevel(lean_object*);
lean_object* l_Lean_MessageLog_empty;
lean_object* l_Array_iterateMAux___main___at_Lean_MessageData_formatAux___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_iterateMAux___main___at_Lean_MessageData_formatAux___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -58,6 +59,7 @@ uint8_t lean_string_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_MessageData_coeOfFormat(lean_object*);
lean_object* l_Lean_mkErrorStringWithPos___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MessageLog_HasAppend___closed__1;
lean_object* l_Lean_MessageData_coeOfExpr(lean_object*);
extern lean_object* l_Lean_Format_sbracket___closed__3;
lean_object* l_Lean_MessageLog_add(lean_object*, lean_object*);
lean_object* lean_format_group(lean_object*);
@ -401,6 +403,24 @@ lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* l_Lean_MessageData_coeOfLevel(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_ctor(3, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* l_Lean_MessageData_coeOfExpr(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* l_Lean_fmt___at_Lean_Message_toString___spec__1(lean_object* x_1) {
_start:
{

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

@ -51,7 +51,6 @@ lean_object* l_Nat_foldRevMAux___main___at_Lean_MetavarContext_mkLambda___spec__
lean_object* l_HashMapImp_insert___at_Lean_AbstractMetavarContext_DependsOn_visit___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_metavarContextIsAbstractMetavarContext___closed__11;
uint8_t l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__8(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_PersistentArray_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__9(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_MetavarContext_assignExpr___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_exprIsInhabited;
@ -84,8 +83,8 @@ uint8_t l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__36(lean
size_t l_USize_sub(size_t, size_t);
lean_object* l_PersistentArray_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__9___boxed(lean_object*, lean_object*);
lean_object* l_Lean_LocalContext_foldlFromM___at_Lean_MetavarContext_mkLambda___spec__61___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_PersistentHashMap_contains___at_Lean_MetavarContext_isDelayedAssigned___spec__1(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_instantiateLevelMVars(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_MetavarContext_mkDecl___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__50(lean_object*, lean_object*);
@ -144,6 +143,7 @@ lean_object* l_Lean_MetavarContext_metavarContextIsAbstractMetavarContext;
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_MetavarContext_getLevelAssignment___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
size_t lean_name_hash_usize(lean_object*);
lean_object* l_PersistentHashMap_findAux___main___at_Lean_MetavarContext_getLevelAssignment___spec__2___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Expr_getRevArg_x21___main___closed__1;
lean_object* l_PersistentArray_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__15___boxed(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_MetavarContext_mkLambda___spec__19___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Expr_updateProj_x21___closed__1;
@ -152,6 +152,7 @@ lean_object* l_Lean_LocalContext_findFVar(lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_metavarContextIsAbstractMetavarContext___closed__7;
uint8_t l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__20(lean_object*, lean_object*);
lean_object* lean_string_append(lean_object*, lean_object*);
extern lean_object* l_Lean_Level_mvarId_x21___closed__1;
lean_object* l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__41___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_metavarContextIsAbstractMetavarContext___closed__9;
size_t l_USize_add(size_t, size_t);
@ -163,7 +164,6 @@ lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at_Lean_Metav
uint8_t l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__44(lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__42(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_MetavarContext_mkLambda___spec__43(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Expr_constName_x21___closed__1;
lean_object* l_panicWithPos___at_Lean_MetavarContext_mkLambda___spec__63(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_find___at_Lean_MetavarContext_getExprAssignment___spec__1(lean_object*, lean_object*);
@ -234,6 +234,7 @@ lean_object* l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__8_
uint8_t l_PersistentHashMap_containsAux___main___at_Lean_MetavarContext_isDelayedAssigned___spec__2(lean_object*, size_t, lean_object*);
lean_object* l_panicWithPos___at_Lean_MetavarContext_instantiateMVars___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_mk_mvar(lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_isMVar(lean_object*);
lean_object* l_PersistentHashMap_containsAux___main___at_Lean_MetavarContext_isExprAssigned___spec__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_metavar_ctx_get_level_assignment(lean_object*, lean_object*);
@ -245,9 +246,9 @@ lean_object* l_Lean_AbstractMetavarContext_DependsOn_dep___main___at_Lean_Metava
uint8_t l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__34(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_AbstractMetavarContext_hasAssignedMVar___main___at_Lean_MetavarContext_hasAssignedMVar___spec__1(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__54___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Level_updateSucc_x21___closed__1;
uint8_t l_PersistentArray_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__57(lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__41(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_instantiateMVars___spec__8(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insertAux___main___at_Lean_MetavarContext_assignDelayed___spec__2(lean_object*, size_t, size_t, lean_object*, lean_object*);
uint8_t l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__38(lean_object*, lean_object*);
extern lean_object* l_Lean_Expr_letName_x21___closed__1;
@ -313,7 +314,6 @@ lean_object* l_PersistentHashMap_insertAux___main___at_Lean_MetavarContext_mkDec
uint8_t l_PersistentArray_anyM___at_Lean_MetavarContext_mkLambda___spec__56(lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__35___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_mk_lambda(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__35(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insert___at_Lean_MetavarContext_assignDelayed___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_LocalDecl_index(lean_object*);
@ -341,7 +341,6 @@ lean_object* l_Lean_AbstractMetavarContext_mkBinding___at_Lean_MetavarContext_mk
lean_object* l_Lean_MetavarContext_metavarContextIsAbstractMetavarContext___closed__4;
lean_object* l_Nat_foldRevMAux___main___at_Lean_MetavarContext_mkLambda___spec__64(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_abstract(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_instantiateMVars___spec__8(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_MetavarContext_mkLambda___spec__46___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_update_sort(lean_object*, lean_object*);
size_t l_USize_land(size_t, size_t);
@ -380,6 +379,7 @@ lean_object* l_PersistentHashMap_insertAux___main___at_Lean_MetavarContext_assig
lean_object* l_Lean_LocalDecl_name(lean_object*);
lean_object* l_PersistentHashMap_contains___at_Lean_MetavarContext_isExprAssigned___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_Lean_AbstractMetavarContext_hasAssignedLevelMVar___main___at_Lean_MetavarContext_hasAssignedLevelMVar___spec__1___boxed(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* _init_l_Lean_MetavarContext_Inhabited___closed__1() {
_start:
{
@ -5575,8 +5575,8 @@ if (x_30 == 0)
lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36;
x_31 = lean_ctor_get(x_29, 0);
lean_dec(x_31);
x_32 = l_Lean_Level_updateSucc_x21___closed__1;
x_33 = lean_unsigned_to_nat(357u);
x_32 = l_Lean_Level_mvarId_x21___closed__1;
x_33 = lean_unsigned_to_nat(372u);
x_34 = lean_unsigned_to_nat(17u);
x_35 = l_Lean_Level_updateIMax_x21___closed__1;
x_36 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_32, x_33, x_34, x_35);
@ -5589,8 +5589,8 @@ lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean
x_37 = lean_ctor_get(x_29, 1);
lean_inc(x_37);
lean_dec(x_29);
x_38 = l_Lean_Level_updateSucc_x21___closed__1;
x_39 = lean_unsigned_to_nat(357u);
x_38 = l_Lean_Level_mvarId_x21___closed__1;
x_39 = lean_unsigned_to_nat(372u);
x_40 = lean_unsigned_to_nat(17u);
x_41 = l_Lean_Level_updateIMax_x21___closed__1;
x_42 = l_panicWithPos___at_Lean_Level_normalize___main___spec__1(x_38, x_39, x_40, x_41);
@ -5736,7 +5736,7 @@ lean_dec(x_9);
lean_dec(x_4);
lean_dec(x_1);
x_13 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_14 = lean_unsigned_to_nat(199u);
x_14 = lean_unsigned_to_nat(209u);
x_15 = lean_unsigned_to_nat(12u);
x_16 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_17 = l_panicWithPos___at_Lean_MetavarContext_instantiateMVars___spec__4(x_13, x_14, x_15, x_16, x_5);
@ -6688,7 +6688,7 @@ goto _start;
}
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_instantiateMVars___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_instantiateMVars___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
switch (lean_obj_tag(x_1)) {
@ -11726,7 +11726,7 @@ x_184 = lean_unsigned_to_nat(0u);
x_185 = l_Lean_Expr_getAppNumArgsAux___main(x_1, x_184);
x_186 = lean_mk_empty_array_with_capacity(x_185);
lean_dec(x_185);
x_187 = l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_instantiateMVars___spec__8(x_1, x_186, x_2);
x_187 = l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_instantiateMVars___spec__8(x_1, x_186, x_2);
return x_187;
}
case 6:
@ -12017,11 +12017,11 @@ lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200;
lean_dec(x_192);
lean_dec(x_190);
lean_dec(x_1);
x_197 = l_Lean_Expr_constName_x21___closed__1;
x_198 = lean_unsigned_to_nat(475u);
x_197 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_198 = lean_unsigned_to_nat(513u);
x_199 = lean_unsigned_to_nat(18u);
x_200 = l_Lean_Expr_updateLambda_x21___closed__1;
x_201 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_197, x_198, x_199, x_200);
x_201 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_197, x_198, x_199, x_200);
x_202 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_202, 0, x_201);
lean_ctor_set(x_202, 1, x_193);
@ -12318,11 +12318,11 @@ lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273;
lean_dec(x_265);
lean_dec(x_263);
lean_dec(x_1);
x_270 = l_Lean_Expr_constName_x21___closed__1;
x_271 = lean_unsigned_to_nat(461u);
x_270 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_271 = lean_unsigned_to_nat(499u);
x_272 = lean_unsigned_to_nat(22u);
x_273 = l_Lean_Expr_updateForall_x21___closed__1;
x_274 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_270, x_271, x_272, x_273);
x_274 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_270, x_271, x_272, x_273);
x_275 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_275, 0, x_274);
lean_ctor_set(x_275, 1, x_266);
@ -12754,11 +12754,11 @@ lean_dec(x_341);
lean_dec(x_339);
lean_dec(x_337);
lean_dec(x_1);
x_345 = l_Lean_Expr_constName_x21___closed__1;
x_346 = lean_unsigned_to_nat(484u);
x_345 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_346 = lean_unsigned_to_nat(522u);
x_347 = lean_unsigned_to_nat(18u);
x_348 = l_Lean_Expr_letName_x21___closed__1;
x_349 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_345, x_346, x_347, x_348);
x_349 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_345, x_346, x_347, x_348);
x_350 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_350, 0, x_349);
lean_ctor_set(x_350, 1, x_342);
@ -13100,11 +13100,11 @@ else
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_dec(x_15);
lean_dec(x_1);
x_19 = l_Lean_Expr_constName_x21___closed__1;
x_20 = lean_unsigned_to_nat(442u);
x_19 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_20 = lean_unsigned_to_nat(480u);
x_21 = lean_unsigned_to_nat(15u);
x_22 = l_Lean_Expr_updateMData_x21___closed__1;
x_23 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_19, x_20, x_21, x_22);
x_23 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_19, x_20, x_21, x_22);
x_24 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_24, 0, x_23);
lean_ctor_set(x_24, 1, x_16);
@ -13127,11 +13127,11 @@ 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_dec(x_26);
lean_dec(x_1);
x_30 = l_Lean_Expr_constName_x21___closed__1;
x_31 = lean_unsigned_to_nat(447u);
x_30 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_31 = lean_unsigned_to_nat(485u);
x_32 = lean_unsigned_to_nat(16u);
x_33 = l_Lean_Expr_updateProj_x21___closed__1;
x_34 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_30, x_31, x_32, x_33);
x_34 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_30, x_31, x_32, x_33);
x_35 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_35, 0, x_34);
lean_ctor_set(x_35, 1, x_27);
@ -25352,7 +25352,7 @@ if (lean_obj_tag(x_9) == 0)
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
lean_dec(x_5);
x_10 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_11 = lean_unsigned_to_nat(394u);
x_11 = lean_unsigned_to_nat(404u);
x_12 = lean_unsigned_to_nat(16u);
x_13 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_14 = l_panicWithPos___at_Lean_MetavarContext_mkLambda___spec__63(x_10, x_11, x_12, x_13, x_6);
@ -27128,7 +27128,7 @@ goto _start;
}
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
switch (lean_obj_tag(x_2)) {
@ -30621,7 +30621,7 @@ x_186 = lean_unsigned_to_nat(0u);
x_187 = l_Lean_Expr_getAppNumArgsAux___main(x_2, x_186);
x_188 = lean_mk_empty_array_with_capacity(x_187);
lean_dec(x_187);
x_189 = l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(x_1, x_2, x_188, x_3);
x_189 = l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(x_1, x_2, x_188, x_3);
return x_189;
}
case 6:
@ -31040,11 +31040,11 @@ lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202;
lean_dec(x_194);
lean_dec(x_192);
lean_dec(x_2);
x_199 = l_Lean_Expr_constName_x21___closed__1;
x_200 = lean_unsigned_to_nat(475u);
x_199 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_200 = lean_unsigned_to_nat(513u);
x_201 = lean_unsigned_to_nat(18u);
x_202 = l_Lean_Expr_updateLambda_x21___closed__1;
x_203 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_199, x_200, x_201, x_202);
x_203 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_199, x_200, x_201, x_202);
x_204 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_204, 0, x_203);
lean_ctor_set(x_204, 1, x_195);
@ -31469,11 +31469,11 @@ lean_object* x_292; lean_object* x_293; lean_object* x_294; lean_object* x_295;
lean_dec(x_287);
lean_dec(x_285);
lean_dec(x_2);
x_292 = l_Lean_Expr_constName_x21___closed__1;
x_293 = lean_unsigned_to_nat(461u);
x_292 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_293 = lean_unsigned_to_nat(499u);
x_294 = lean_unsigned_to_nat(22u);
x_295 = l_Lean_Expr_updateForall_x21___closed__1;
x_296 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_292, x_293, x_294, x_295);
x_296 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_292, x_293, x_294, x_295);
x_297 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_297, 0, x_296);
lean_ctor_set(x_297, 1, x_288);
@ -32103,11 +32103,11 @@ lean_dec(x_383);
lean_dec(x_381);
lean_dec(x_379);
lean_dec(x_2);
x_387 = l_Lean_Expr_constName_x21___closed__1;
x_388 = lean_unsigned_to_nat(484u);
x_387 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_388 = lean_unsigned_to_nat(522u);
x_389 = lean_unsigned_to_nat(18u);
x_390 = l_Lean_Expr_letName_x21___closed__1;
x_391 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_387, x_388, x_389, x_390);
x_391 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_387, x_388, x_389, x_390);
x_392 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_392, 0, x_391);
lean_ctor_set(x_392, 1, x_384);
@ -32538,11 +32538,11 @@ else
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_dec(x_4);
lean_dec(x_2);
x_8 = l_Lean_Expr_constName_x21___closed__1;
x_9 = lean_unsigned_to_nat(442u);
x_8 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_9 = lean_unsigned_to_nat(480u);
x_10 = lean_unsigned_to_nat(15u);
x_11 = l_Lean_Expr_updateMData_x21___closed__1;
x_12 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_8, x_9, x_10, x_11);
x_12 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_8, x_9, x_10, x_11);
x_13 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_13, 0, x_12);
lean_ctor_set(x_13, 1, x_5);
@ -32565,11 +32565,11 @@ else
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_dec(x_15);
lean_dec(x_2);
x_19 = l_Lean_Expr_constName_x21___closed__1;
x_20 = lean_unsigned_to_nat(447u);
x_19 = l_Lean_Expr_getRevArg_x21___main___closed__1;
x_20 = lean_unsigned_to_nat(485u);
x_21 = lean_unsigned_to_nat(16u);
x_22 = l_Lean_Expr_updateProj_x21___closed__1;
x_23 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_19, x_20, x_21, x_22);
x_23 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_19, x_20, x_21, x_22);
x_24 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_24, 0, x_23);
lean_ctor_set(x_24, 1, x_16);
@ -32993,7 +32993,7 @@ if (lean_obj_tag(x_9) == 0)
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14;
lean_dec(x_5);
x_10 = l_Lean_AbstractMetavarContext_InstantiateExprMVars_instantiateDelayedAux___main___rarg___closed__1;
x_11 = lean_unsigned_to_nat(394u);
x_11 = lean_unsigned_to_nat(404u);
x_12 = lean_unsigned_to_nat(16u);
x_13 = l_Nat_foldRevAux___main___at_Lean_LocalContext_mkBinding___spec__1___closed__1;
x_14 = l_panicWithPos___at_Lean_MetavarContext_mkLambda___spec__63(x_10, x_11, x_12, x_13, x_6);
@ -34014,11 +34014,11 @@ lean_dec(x_1);
return x_5;
}
}
lean_object* l___private_Init_Lean_Expr_3__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66___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_3__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(x_1, x_2, x_3, x_4);
x_5 = l___private_Init_Lean_Expr_4__withAppRevAux___main___at_Lean_MetavarContext_mkLambda___spec__66(x_1, x_2, x_3, x_4);
lean_dec(x_1);
return x_5;
}

434
src/stage0/Init/Lean/Modifiers.c
View file

@ -18,26 +18,18 @@ extern lean_object* l_Lean_namespacesExt___closed__1;
uint8_t lean_name_dec_eq(lean_object*, lean_object*);
lean_object* lean_environment_main_module(lean_object*);
extern lean_object* l_Array_empty___closed__1;
lean_object* lean_nat_sub(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
lean_object* lean_private_prefix(lean_object*);
lean_object* l_Lean_protectedExt___elambda__1___boxed(lean_object*);
lean_object* l_Lean_protectedExt___closed__1;
lean_object* l_Lean_mkProtectedExtension___lambda__2(lean_object*);
lean_object* l___private_Init_Lean_Modifiers_1__privateToUserNameAux(lean_object*);
lean_object* l_Lean_mkProtectedExtension___closed__4;
lean_object* l_Lean_EnvExtension_getStateUnsafe___rarg(lean_object*, lean_object*);
uint8_t l_Lean_isPrivateName(lean_object*);
lean_object* l_Lean_protectedExt___elambda__3___boxed(lean_object*, lean_object*);
uint8_t l_Lean_TagDeclarationExtension_isTagged(lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l___private_Init_Lean_Modifiers_2__privatePrefixAux___main___boxed(lean_object*);
lean_object* lean_add_protected(lean_object*, lean_object*);
lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*);
lean_object* l_Lean_mkProtectedExtension___lambda__1(lean_object*);
lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
extern lean_object* l_Lean_Inhabited;
lean_object* l_List_redLength___main___rarg(lean_object*);
lean_object* l_Lean_isPrivateNameExport___boxed(lean_object*);
lean_object* l_Lean_isProtected___boxed(lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
@ -45,46 +37,29 @@ lean_object* l_Lean_isPrivateName___main___boxed(lean_object*);
lean_object* l_Lean_privateHeader___closed__1;
lean_object* l_Lean_mkProtectedExtension___closed__2;
lean_object* lean_io_initializing(lean_object*);
lean_object* lean_mk_empty_array_with_capacity(lean_object*);
lean_object* l_Lean_protectedExt___elambda__1(lean_object*);
extern lean_object* l_Lean_regNamespacesExtension___closed__3;
lean_object* l_Lean_mkPrivateExtension___closed__1;
lean_object* l_Lean_protectedExt___closed__3;
lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_regNamespacesExtension___spec__4(lean_object*, lean_object*);
uint8_t l_Lean_NameSet_contains(lean_object*, lean_object*);
lean_object* l_Lean_mkProtectedExtension___closed__5;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_protectedExt___closed__5;
lean_object* l_Lean_Environment_getModuleIdxFor(lean_object*, lean_object*);
lean_object* l_Lean_mkProtectedExtension___closed__1;
lean_object* l_Lean_protectedExt___closed__2;
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Lean_privateExt___closed__1;
lean_object* l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Modifiers_2__privatePrefixAux(lean_object*);
uint8_t l_Lean_isPrivateName___main(lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_protectedExt;
lean_object* l_Lean_privateHeader;
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Modifiers_2__privatePrefixAux___boxed(lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_EnvExtension_setStateUnsafe___rarg(lean_object*, lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_mkProtectedExtension___lambda__1___boxed(lean_object*);
uint8_t l_Array_binSearchAux___main___at_Lean_isProtected___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Modifiers_1__privateToUserNameAux___main(lean_object*);
lean_object* l_Lean_protectedExt___elambda__2(lean_object*);
lean_object* l_Lean_protectedExt___closed__4;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_protectedExt___elambda__3(lean_object*, lean_object*);
lean_object* lean_mk_private_name(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
lean_object* lean_io_ref_get(lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
lean_object* lean_name_mk_numeral(lean_object*, lean_object*);
lean_object* l_Lean_privateExt___elambda__1(lean_object*);
uint8_t lean_is_protected(lean_object*, lean_object*);
@ -93,11 +68,9 @@ lean_object* l_Lean_isPrivateName___boxed(lean_object*);
lean_object* l_EState_pure___rarg(lean_object*, lean_object*);
lean_object* lean_mk_private_prefix(lean_object*);
lean_object* l_Lean_privateHeader___closed__2;
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l_Lean_mkPrivateExtension(lean_object*);
lean_object* lean_nat_div(lean_object*, lean_object*);
lean_object* l_Lean_mkTagDeclarationExtension(lean_object*, lean_object*);
lean_object* l_Lean_mkProtectedExtension(lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_isProtected___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkPrivateExtension___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_protectedExt___elambda__4(lean_object*);
uint8_t lean_is_private_name(lean_object*);
@ -110,220 +83,8 @@ lean_object* lean_io_ref_reset(lean_object*, lean_object*);
lean_object* l_Lean_protectedExt___elambda__4___boxed(lean_object*);
lean_object* l_Lean_protectedExt___elambda__2___boxed(lean_object*);
lean_object* lean_private_to_user_name(lean_object*);
lean_object* l_Lean_mkProtectedExtension___closed__3;
lean_object* l_Lean_protectedExt___elambda__4___rarg(lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
uint8_t x_6;
x_6 = lean_nat_dec_lt(x_5, x_1);
if (x_6 == 0)
{
lean_object* x_7; lean_object* x_8;
lean_dec(x_5);
x_7 = lean_array_swap(x_3, x_4, x_1);
x_8 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_8, 0, x_4);
lean_ctor_set(x_8, 1, x_7);
return x_8;
}
else
{
lean_object* x_9; lean_object* x_10; uint8_t x_11;
x_9 = l_Lean_Inhabited;
x_10 = lean_array_get(x_9, x_3, x_5);
x_11 = l_Lean_Name_quickLt(x_10, x_2);
lean_dec(x_10);
if (x_11 == 0)
{
lean_object* x_12; lean_object* x_13;
x_12 = lean_unsigned_to_nat(1u);
x_13 = lean_nat_add(x_5, x_12);
lean_dec(x_5);
x_5 = x_13;
goto _start;
}
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_15 = lean_array_swap(x_3, x_4, x_5);
x_16 = lean_unsigned_to_nat(1u);
x_17 = lean_nat_add(x_4, x_16);
lean_dec(x_4);
x_18 = lean_nat_add(x_5, x_16);
lean_dec(x_5);
x_3 = x_15;
x_4 = x_17;
x_5 = x_18;
goto _start;
}
}
}
}
lean_object* l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_13;
x_13 = lean_nat_dec_lt(x_2, x_3);
if (x_13 == 0)
{
lean_dec(x_2);
return x_1;
}
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_37; lean_object* x_38; lean_object* x_39; uint8_t x_40;
x_14 = lean_nat_add(x_2, x_3);
x_15 = lean_unsigned_to_nat(2u);
x_16 = lean_nat_div(x_14, x_15);
lean_dec(x_14);
x_37 = l_Lean_Inhabited;
x_38 = lean_array_get(x_37, x_1, x_16);
x_39 = lean_array_get(x_37, x_1, x_2);
x_40 = l_Lean_Name_quickLt(x_38, x_39);
lean_dec(x_39);
lean_dec(x_38);
if (x_40 == 0)
{
x_17 = x_1;
goto block_36;
}
else
{
lean_object* x_41;
x_41 = lean_array_swap(x_1, x_2, x_16);
x_17 = x_41;
goto block_36;
}
block_36:
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21;
x_18 = l_Lean_Inhabited;
x_19 = lean_array_get(x_18, x_17, x_3);
x_20 = lean_array_get(x_18, x_17, x_2);
x_21 = l_Lean_Name_quickLt(x_19, x_20);
lean_dec(x_20);
if (x_21 == 0)
{
lean_object* x_22; uint8_t x_23;
x_22 = lean_array_get(x_18, x_17, x_16);
x_23 = l_Lean_Name_quickLt(x_22, x_19);
lean_dec(x_22);
if (x_23 == 0)
{
lean_object* x_24;
lean_dec(x_16);
lean_inc_n(x_2, 2);
x_24 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(x_3, x_19, x_17, x_2, x_2);
lean_dec(x_19);
x_4 = x_24;
goto block_12;
}
else
{
lean_object* x_25; lean_object* x_26; lean_object* x_27;
lean_dec(x_19);
x_25 = lean_array_swap(x_17, x_16, x_3);
lean_dec(x_16);
x_26 = lean_array_get(x_18, x_25, x_3);
lean_inc_n(x_2, 2);
x_27 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(x_3, x_26, x_25, x_2, x_2);
lean_dec(x_26);
x_4 = x_27;
goto block_12;
}
}
else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
lean_dec(x_19);
x_28 = lean_array_swap(x_17, x_2, x_3);
x_29 = lean_array_get(x_18, x_28, x_16);
x_30 = lean_array_get(x_18, x_28, x_3);
x_31 = l_Lean_Name_quickLt(x_29, x_30);
lean_dec(x_29);
if (x_31 == 0)
{
lean_object* x_32;
lean_dec(x_16);
lean_inc_n(x_2, 2);
x_32 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(x_3, x_30, x_28, x_2, x_2);
lean_dec(x_30);
x_4 = x_32;
goto block_12;
}
else
{
lean_object* x_33; lean_object* x_34; lean_object* x_35;
lean_dec(x_30);
x_33 = lean_array_swap(x_28, x_16, x_3);
lean_dec(x_16);
x_34 = lean_array_get(x_18, x_33, x_3);
lean_inc_n(x_2, 2);
x_35 = l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(x_3, x_34, x_33, x_2, x_2);
lean_dec(x_34);
x_4 = x_35;
goto block_12;
}
}
}
}
block_12:
{
lean_object* x_5; lean_object* x_6; uint8_t x_7;
x_5 = lean_ctor_get(x_4, 0);
lean_inc(x_5);
x_6 = lean_ctor_get(x_4, 1);
lean_inc(x_6);
lean_dec(x_4);
x_7 = lean_nat_dec_le(x_3, x_5);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_8 = l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1(x_6, x_2, x_5);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_5, x_9);
lean_dec(x_5);
x_1 = x_8;
x_2 = x_10;
goto _start;
}
else
{
lean_dec(x_5);
lean_dec(x_2);
return x_6;
}
}
}
}
lean_object* l_Lean_mkProtectedExtension___lambda__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_box(0);
return x_2;
}
}
lean_object* l_Lean_mkProtectedExtension___lambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2; 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_2 = l_List_redLength___main___rarg(x_1);
x_3 = lean_mk_empty_array_with_capacity(x_2);
lean_dec(x_2);
x_4 = l_List_toArrayAux___main___rarg(x_1, x_3);
x_5 = lean_array_get_size(x_4);
x_6 = lean_unsigned_to_nat(1u);
x_7 = lean_nat_sub(x_5, x_6);
lean_dec(x_5);
x_8 = lean_unsigned_to_nat(0u);
x_9 = l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1(x_4, x_8, x_7);
lean_dec(x_7);
return x_9;
}
}
lean_object* _init_l_Lean_mkProtectedExtension___closed__1() {
_start:
{
@ -342,75 +103,15 @@ x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_mkProtectedExtension___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_mkProtectedExtension___lambda__1___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_mkProtectedExtension___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_mkProtectedExtension___lambda__2), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_mkProtectedExtension___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l_Lean_mkProtectedExtension___closed__2;
x_2 = l_Lean_regNamespacesExtension___closed__3;
x_3 = l_Lean_mkProtectedExtension___closed__3;
x_4 = l_Lean_mkProtectedExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);
lean_ctor_set(x_5, 2, x_3);
lean_ctor_set(x_5, 3, x_4);
return x_5;
}
}
lean_object* l_Lean_mkProtectedExtension(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_mkProtectedExtension___closed__5;
x_3 = l_Lean_registerSimplePersistentEnvExtension___at_Lean_regNamespacesExtension___spec__4(x_2, x_1);
x_2 = l_Lean_mkProtectedExtension___closed__2;
x_3 = l_Lean_mkTagDeclarationExtension(x_2, x_1);
return x_3;
}
}
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2___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_QSort_1__partitionAux___main___at_Lean_mkProtectedExtension___spec__2(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_2);
lean_dec(x_1);
return x_6;
}
}
lean_object* l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_qsortAux___main___at_Lean_mkProtectedExtension___spec__1(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* l_Lean_mkProtectedExtension___lambda__1___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_mkProtectedExtension___lambda__1(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_protectedExt___elambda__1(lean_object* x_1) {
_start:
{
@ -551,128 +252,15 @@ x_4 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_3, x_1, x_2);
return x_4;
}
}
uint8_t l_Array_binSearchAux___main___at_Lean_isProtected___spec__1(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_le(x_3, x_4);
if (x_5 == 0)
{
uint8_t x_6;
lean_dec(x_4);
lean_dec(x_3);
x_6 = 0;
return x_6;
}
else
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12;
x_7 = lean_nat_add(x_3, x_4);
x_8 = lean_unsigned_to_nat(2u);
x_9 = lean_nat_div(x_7, x_8);
lean_dec(x_7);
x_10 = l_Lean_Inhabited;
x_11 = lean_array_get(x_10, x_1, x_9);
x_12 = l_Lean_Name_quickLt(x_11, x_2);
if (x_12 == 0)
{
uint8_t x_13;
lean_dec(x_4);
x_13 = l_Lean_Name_quickLt(x_2, x_11);
lean_dec(x_11);
if (x_13 == 0)
{
uint8_t x_14;
lean_dec(x_9);
lean_dec(x_3);
x_14 = 1;
return x_14;
}
else
{
lean_object* x_15; uint8_t x_16;
x_15 = lean_unsigned_to_nat(0u);
x_16 = lean_nat_dec_eq(x_9, x_15);
if (x_16 == 0)
{
lean_object* x_17; lean_object* x_18;
x_17 = lean_unsigned_to_nat(1u);
x_18 = lean_nat_sub(x_9, x_17);
lean_dec(x_9);
x_4 = x_18;
goto _start;
}
else
{
uint8_t x_20;
lean_dec(x_9);
lean_dec(x_3);
x_20 = 0;
return x_20;
}
}
}
else
{
lean_object* x_21; lean_object* x_22;
lean_dec(x_11);
lean_dec(x_3);
x_21 = lean_unsigned_to_nat(1u);
x_22 = lean_nat_add(x_9, x_21);
lean_dec(x_9);
x_3 = x_22;
goto _start;
}
}
}
}
uint8_t lean_is_protected(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_Environment_getModuleIdxFor(x_1, x_2);
if (lean_obj_tag(x_3) == 0)
{
lean_object* x_4; lean_object* x_5; uint8_t x_6;
x_4 = l_Lean_protectedExt;
x_5 = l_Lean_SimplePersistentEnvExtension_getState___rarg(x_4, x_1);
lean_dec(x_1);
x_6 = l_Lean_NameSet_contains(x_5, x_2);
lean_dec(x_2);
lean_dec(x_5);
return x_6;
}
else
{
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; uint8_t x_14;
x_7 = lean_ctor_get(x_3, 0);
lean_inc(x_7);
lean_dec(x_3);
x_8 = l_Lean_protectedExt;
x_9 = l_Lean_PersistentEnvExtension_getModuleEntries___rarg(x_8, x_1, x_7);
lean_dec(x_7);
lean_dec(x_1);
x_10 = lean_array_get_size(x_9);
x_11 = lean_unsigned_to_nat(1u);
x_12 = lean_nat_sub(x_10, x_11);
lean_dec(x_10);
x_13 = lean_unsigned_to_nat(0u);
x_14 = l_Array_binSearchAux___main___at_Lean_isProtected___spec__1(x_9, x_2, x_13, x_12);
lean_dec(x_2);
lean_dec(x_9);
return x_14;
}
}
}
lean_object* l_Array_binSearchAux___main___at_Lean_isProtected___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
uint8_t x_5; lean_object* x_6;
x_5 = l_Array_binSearchAux___main___at_Lean_isProtected___spec__1(x_1, x_2, x_3, x_4);
lean_object* x_3; uint8_t x_4;
x_3 = l_Lean_protectedExt;
x_4 = l_Lean_TagDeclarationExtension_isTagged(x_3, x_1, x_2);
lean_dec(x_2);
lean_dec(x_1);
x_6 = lean_box(x_5);
return x_6;
return x_4;
}
}
lean_object* l_Lean_isProtected___boxed(lean_object* x_1, lean_object* x_2) {
@ -1269,12 +857,6 @@ l_Lean_mkProtectedExtension___closed__1 = _init_l_Lean_mkProtectedExtension___cl
lean_mark_persistent(l_Lean_mkProtectedExtension___closed__1);
l_Lean_mkProtectedExtension___closed__2 = _init_l_Lean_mkProtectedExtension___closed__2();
lean_mark_persistent(l_Lean_mkProtectedExtension___closed__2);
l_Lean_mkProtectedExtension___closed__3 = _init_l_Lean_mkProtectedExtension___closed__3();
lean_mark_persistent(l_Lean_mkProtectedExtension___closed__3);
l_Lean_mkProtectedExtension___closed__4 = _init_l_Lean_mkProtectedExtension___closed__4();
lean_mark_persistent(l_Lean_mkProtectedExtension___closed__4);
l_Lean_mkProtectedExtension___closed__5 = _init_l_Lean_mkProtectedExtension___closed__5();
lean_mark_persistent(l_Lean_mkProtectedExtension___closed__5);
l_Lean_protectedExt___closed__1 = _init_l_Lean_protectedExt___closed__1();
lean_mark_persistent(l_Lean_protectedExt___closed__1);
l_Lean_protectedExt___closed__2 = _init_l_Lean_protectedExt___closed__2();

302
src/stage0/Init/Lean/ProjFns.c
View file

@ -17,6 +17,7 @@ lean_object* l_Lean_mkProjectionFnInfoExtension___closed__5;
lean_object* l_Lean_projectionFnInfoExt___elambda__3(lean_object*, lean_object*);
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_namespacesExt___closed__1;
lean_object* l_Lean_ConstantInfo_name(lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__1;
uint8_t lean_name_dec_eq(lean_object*, lean_object*);
lean_object* l_RBNode_find___main___at_Lean_Environment_getProjectionFnInfo___spec__1___boxed(lean_object*, lean_object*);
@ -25,13 +26,15 @@ lean_object* lean_nat_sub(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__2;
lean_object* lean_array_get(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__2;
lean_object* lean_mk_array(lean_object*, lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__4;
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2___boxed(lean_object*);
lean_object* l___private_Init_Lean_Expr_1__mkAppRangeAux___main(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMAux___main___at_Lean_mkProjectionFnInfoExtension___spec__5___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef;
lean_object* l_Lean_projectionFnInfoExt___elambda__1___boxed(lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_Environment_getProjectionFnInfo___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_toArrayAux___main___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn___main(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__4;
lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
lean_object* l_Array_qsortAux___main___at_Lean_mkProjectionFnInfoExtension___spec__1(lean_object*, lean_object*, lean_object*);
@ -39,8 +42,12 @@ lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, l
extern lean_object* l_Lean_Inhabited;
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__2;
lean_object* l_List_redLength___main___rarg(lean_object*);
lean_object* l_Lean_Environment_reduceProjectionFnAux___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___closed__3;
lean_object* l_Lean_Environment_reduceProjectionFnAux___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getRevArg_x21___main(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___closed__2;
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__3(lean_object*, lean_object*);
@ -48,7 +55,8 @@ lean_object* lean_io_initializing(lean_object*);
lean_object* lean_mk_empty_array_with_capacity(lean_object*);
lean_object* l_Lean_projectionFnInfoExt___elambda__3___boxed(lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___elambda__4(lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__3(lean_object*);
lean_object* l_Lean_Environment_reduceProjectionFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Environment_reduceProjectionFnAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__3;
lean_object* l_Lean_projectionFnInfoExt___elambda__4___rarg(lean_object*);
lean_object* l___private_Init_Data_Array_QSort_1__partitionAux___main___at_Lean_mkProjectionFnInfoExtension___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -70,10 +78,12 @@ extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensions
lean_object* l_Lean_PersistentEnvExtension_getModuleEntries___rarg(lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_NameMap_contains___rarg(lean_object*, lean_object*);
lean_object* l_Lean_ProjectionFunctionInfo_inhabited___closed__1;
lean_object* l___private_Init_Lean_Expr_2__getAppArgsAux___main(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___elambda__4___boxed(lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Environment_reduceProjectionFn(lean_object*, lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_Environment_getProjectionFnInfo___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___closed__1;
lean_object* l_Lean_addProjectionFnInfo___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -81,11 +91,14 @@ lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_binSearchAux___main___at_Lean_Environment_isProjectionFn___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___closed__5;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Environment_reduceProjectionFnAux(lean_object*, lean_object*);
lean_object* lean_add_projection_info(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Environment_reduceProjectionFn___boxed(lean_object*, lean_object*);
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
lean_object* lean_io_ref_get(lean_object*, lean_object*);
uint8_t l_Lean_Name_quickLt(lean_object*, lean_object*);
lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkProjectionFnInfoExtension___spec__3(lean_object*, lean_object*);
lean_object* lean_environment_find(lean_object*, lean_object*);
lean_object* lean_get_projection_info(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
uint8_t l_Array_anyMAux___main___at_Lean_mkProjectionFnInfoExtension___spec__5(lean_object*, lean_object*, lean_object*);
@ -96,19 +109,21 @@ extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed_
extern lean_object* l_Lean_Name_toString___closed__1;
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* lean_nat_div(lean_object*, lean_object*);
extern lean_object* l_Lean_mkTagDeclarationExtension___closed__2;
lean_object* l_Lean_projectionFnInfoExt;
lean_object* l_Lean_Environment_isProjectionFn___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Environment_reduceProjectionFnAux___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkProjectionFnInfoExtension___spec__6(lean_object*, lean_object*);
lean_object* l_Lean_projectionFnInfoExt___closed__4;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__6___closed__2;
lean_object* l_Lean_projectionFnInfoExt___elambda__2(lean_object*);
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__3;
lean_object* l_Array_qsortAux___main___at_Lean_mkProjectionFnInfoExtension___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ProjectionFunctionInfo_inhabited;
lean_object* l_Lean_mkProjectionFnInfoExtension___closed__6;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
extern lean_object* l_Lean_exprIsInhabited___closed__1;
lean_object* l_RBNode_find___main___at_Lean_Environment_getProjectionFnInfo___spec__1(lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_regNamespacesExtension___spec__7___closed__2;
lean_object* l_Lean_projectionFnInfoExt___elambda__1(lean_object*);
extern lean_object* l_String_splitAux___main___closed__1;
lean_object* _init_l_Lean_ProjectionFunctionInfo_inhabited___closed__1() {
@ -456,7 +471,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_regNamespacesExtension___spec__7___closed__2;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_mkTagDeclarationExtension___spec__6___closed__2;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);
@ -1129,14 +1144,6 @@ return x_5;
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_box(0);
return x_2;
}
}
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__3(lean_object* x_1) {
_start:
{
lean_object* x_2; 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_2 = l_List_redLength___main___rarg(x_1);
x_3 = lean_mk_empty_array_with_capacity(x_2);
@ -1182,26 +1189,18 @@ lean_object* _init_l_Lean_mkProjectionFnInfoExtension___closed__4() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_mkProjectionFnInfoExtension___lambda__2___boxed), 1, 0);
x_1 = lean_alloc_closure((void*)(l_Lean_mkProjectionFnInfoExtension___lambda__2), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_mkProjectionFnInfoExtension___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_mkProjectionFnInfoExtension___lambda__3), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_mkProjectionFnInfoExtension___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l_Lean_mkProjectionFnInfoExtension___closed__2;
x_2 = l_Lean_mkProjectionFnInfoExtension___closed__3;
x_3 = l_Lean_mkProjectionFnInfoExtension___closed__4;
x_4 = l_Lean_mkProjectionFnInfoExtension___closed__5;
x_3 = l_Lean_mkTagDeclarationExtension___closed__2;
x_4 = l_Lean_mkProjectionFnInfoExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);
@ -1214,7 +1213,7 @@ lean_object* l_Lean_mkProjectionFnInfoExtension(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_mkProjectionFnInfoExtension___closed__6;
x_2 = l_Lean_mkProjectionFnInfoExtension___closed__5;
x_3 = l_Lean_registerSimplePersistentEnvExtension___at_Lean_mkProjectionFnInfoExtension___spec__3(x_2, x_1);
return x_3;
}
@ -1249,15 +1248,6 @@ x_5 = lean_box(x_4);
return x_5;
}
}
lean_object* l_Lean_mkProjectionFnInfoExtension___lambda__2___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_mkProjectionFnInfoExtension___lambda__2(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l_Lean_projectionFnInfoExt___elambda__1(lean_object* x_1) {
_start:
{
@ -1775,6 +1765,248 @@ x_4 = lean_box(x_3);
return x_4;
}
}
lean_object* l_Lean_Environment_reduceProjectionFnAux___rarg___lambda__1(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, lean_object* x_8) {
_start:
{
lean_object* x_9;
x_9 = l_Lean_Expr_getAppFn___main(x_8);
if (lean_obj_tag(x_9) == 4)
{
lean_object* x_10; lean_object* x_11;
x_10 = lean_ctor_get(x_9, 0);
lean_inc(x_10);
lean_dec(x_9);
x_11 = lean_environment_find(x_2, x_10);
if (lean_obj_tag(x_11) == 0)
{
lean_object* x_12; lean_object* x_13;
lean_dec(x_7);
x_12 = lean_box(0);
x_13 = lean_apply_1(x_1, x_12);
return x_13;
}
else
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18;
lean_dec(x_11);
x_14 = lean_ctor_get(x_3, 2);
x_15 = lean_nat_add(x_4, x_14);
x_16 = lean_unsigned_to_nat(0u);
x_17 = l_Lean_Expr_getAppNumArgsAux___main(x_8, x_16);
x_18 = lean_nat_dec_lt(x_15, x_17);
if (x_18 == 0)
{
lean_object* x_19; lean_object* x_20;
lean_dec(x_17);
lean_dec(x_15);
lean_dec(x_7);
x_19 = lean_box(0);
x_20 = lean_apply_1(x_1, x_19);
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_dec(x_1);
x_21 = lean_nat_sub(x_17, x_15);
lean_dec(x_15);
lean_dec(x_17);
x_22 = lean_unsigned_to_nat(1u);
x_23 = lean_nat_sub(x_21, x_22);
lean_dec(x_21);
x_24 = l_Lean_Expr_getRevArg_x21___main(x_8, x_23);
x_25 = lean_nat_add(x_4, x_22);
x_26 = l___private_Init_Lean_Expr_1__mkAppRangeAux___main(x_5, x_6, x_25, x_24);
x_27 = lean_apply_1(x_7, x_26);
return x_27;
}
}
}
else
{
lean_object* x_28; lean_object* x_29;
lean_dec(x_9);
lean_dec(x_7);
lean_dec(x_2);
x_28 = lean_box(0);
x_29 = lean_apply_1(x_1, x_28);
return x_29;
}
}
}
lean_object* l_Lean_Environment_reduceProjectionFnAux___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) {
_start:
{
lean_object* x_8; lean_object* x_9; uint8_t x_10;
x_8 = lean_ctor_get(x_4, 1);
lean_inc(x_8);
x_9 = lean_array_get_size(x_5);
x_10 = lean_nat_dec_lt(x_8, x_9);
if (x_10 == 0)
{
lean_object* x_11; lean_object* x_12;
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_11 = lean_box(0);
x_12 = lean_apply_1(x_6, x_11);
return x_12;
}
else
{
lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_13 = lean_array_fget(x_5, x_8);
x_14 = lean_ctor_get(x_1, 1);
lean_inc(x_14);
lean_dec(x_1);
x_15 = lean_apply_1(x_2, x_13);
x_16 = lean_alloc_closure((void*)(l_Lean_Environment_reduceProjectionFnAux___rarg___lambda__1___boxed), 8, 7);
lean_closure_set(x_16, 0, x_6);
lean_closure_set(x_16, 1, x_3);
lean_closure_set(x_16, 2, x_4);
lean_closure_set(x_16, 3, x_8);
lean_closure_set(x_16, 4, x_9);
lean_closure_set(x_16, 5, x_5);
lean_closure_set(x_16, 6, x_7);
x_17 = lean_apply_4(x_14, lean_box(0), lean_box(0), x_15, x_16);
return x_17;
}
}
}
lean_object* l_Lean_Environment_reduceProjectionFnAux(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_Environment_reduceProjectionFnAux___rarg), 7, 0);
return x_3;
}
}
lean_object* l_Lean_Environment_reduceProjectionFnAux___rarg___lambda__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* x_7, lean_object* x_8) {
_start:
{
lean_object* x_9;
x_9 = l_Lean_Environment_reduceProjectionFnAux___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
return x_9;
}
}
lean_object* l_Lean_Environment_reduceProjectionFnAux___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_Environment_reduceProjectionFnAux(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* l_Lean_Environment_reduceProjectionFn___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7;
x_7 = l_Lean_Expr_getAppFn___main(x_4);
if (lean_obj_tag(x_7) == 4)
{
lean_object* x_8; lean_object* x_9;
x_8 = lean_ctor_get(x_7, 0);
lean_inc(x_8);
lean_dec(x_7);
lean_inc(x_3);
x_9 = lean_environment_find(x_3, x_8);
if (lean_obj_tag(x_9) == 0)
{
lean_object* x_10; lean_object* x_11;
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_10 = lean_box(0);
x_11 = lean_apply_1(x_5, x_10);
return x_11;
}
else
{
lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_12 = lean_ctor_get(x_9, 0);
lean_inc(x_12);
lean_dec(x_9);
x_13 = l_Lean_ConstantInfo_name(x_12);
lean_dec(x_12);
lean_inc(x_3);
x_14 = lean_get_projection_info(x_3, x_13);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_15; lean_object* x_16;
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_15 = lean_box(0);
x_16 = lean_apply_1(x_5, x_15);
return x_16;
}
else
{
lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
x_17 = lean_ctor_get(x_14, 0);
lean_inc(x_17);
lean_dec(x_14);
x_18 = lean_unsigned_to_nat(0u);
x_19 = l_Lean_Expr_getAppNumArgsAux___main(x_4, x_18);
x_20 = l_Lean_exprIsInhabited___closed__1;
lean_inc(x_19);
x_21 = lean_mk_array(x_19, x_20);
x_22 = lean_unsigned_to_nat(1u);
x_23 = lean_nat_sub(x_19, x_22);
lean_dec(x_19);
x_24 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_4, x_21, x_23);
x_25 = l_Lean_Environment_reduceProjectionFnAux___rarg(x_1, x_2, x_3, x_17, x_24, x_5, x_6);
return x_25;
}
}
}
else
{
lean_object* x_26; lean_object* x_27;
lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_26 = lean_box(0);
x_27 = lean_apply_1(x_5, x_26);
return x_27;
}
}
}
lean_object* l_Lean_Environment_reduceProjectionFn(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_Environment_reduceProjectionFn___rarg), 6, 0);
return x_3;
}
}
lean_object* l_Lean_Environment_reduceProjectionFn___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_Environment_reduceProjectionFn(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* initialize_Init_Lean_Environment(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_ProjFns(lean_object* w) {
@ -1800,8 +2032,6 @@ l_Lean_mkProjectionFnInfoExtension___closed__4 = _init_l_Lean_mkProjectionFnInfo
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__4);
l_Lean_mkProjectionFnInfoExtension___closed__5 = _init_l_Lean_mkProjectionFnInfoExtension___closed__5();
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__5);
l_Lean_mkProjectionFnInfoExtension___closed__6 = _init_l_Lean_mkProjectionFnInfoExtension___closed__6();
lean_mark_persistent(l_Lean_mkProjectionFnInfoExtension___closed__6);
l_Lean_projectionFnInfoExt___closed__1 = _init_l_Lean_projectionFnInfoExt___closed__1();
lean_mark_persistent(l_Lean_projectionFnInfoExt___closed__1);
l_Lean_projectionFnInfoExt___closed__2 = _init_l_Lean_projectionFnInfoExt___closed__2();

690
src/stage0/Init/Lean/QuotUtil.c Normal file
View file

@ -0,0 +1,690 @@
// Lean compiler output
// Module: Init.Lean.QuotUtil
// Imports: Init.Lean.Environment
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRec___rarg(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* lean_mk_array(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_QuotUtil_1__matchQuotRecApp___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRec(lean_object*, lean_object*);
extern lean_object* l_Lean_exprIsInhabited;
lean_object* l_Lean_reduceQuotRecAux___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_1__mkAppRangeAux___main(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRecAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_expr_mk_app(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn___main(lean_object*);
lean_object* l___private_Init_Lean_QuotUtil_1__matchQuotRecApp___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppNumArgsAux___main(lean_object*, lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Lean_isQuotRecStuck___boxed(lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_2__getAppArgsAux___main(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_isQuotRecStuck(lean_object*);
lean_object* l_Lean_reduceQuotRecAux___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_environment_find(lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Lean_isQuotRecStuck___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_fget(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_QuotUtil_1__matchQuotRecApp(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRecAux___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRec___boxed(lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRecAux___boxed(lean_object*, lean_object*);
lean_object* l_Lean_reduceQuotRecAux(lean_object*, lean_object*);
extern lean_object* l_Lean_exprIsInhabited___closed__1;
lean_object* l_Lean_reduceQuotRecAux___rarg___lambda__1(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, lean_object* x_8) {
_start:
{
if (lean_obj_tag(x_8) == 5)
{
lean_object* x_9;
x_9 = lean_ctor_get(x_8, 0);
lean_inc(x_9);
if (lean_obj_tag(x_9) == 5)
{
lean_object* x_10;
x_10 = lean_ctor_get(x_9, 0);
lean_inc(x_10);
lean_dec(x_9);
if (lean_obj_tag(x_10) == 5)
{
lean_object* x_11;
x_11 = lean_ctor_get(x_10, 0);
lean_inc(x_11);
lean_dec(x_10);
if (lean_obj_tag(x_11) == 4)
{
lean_object* x_12; lean_object* x_13; lean_object* x_14;
x_12 = lean_ctor_get(x_8, 1);
lean_inc(x_12);
lean_dec(x_8);
x_13 = lean_ctor_get(x_11, 0);
lean_inc(x_13);
lean_dec(x_11);
x_14 = lean_environment_find(x_2, x_13);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_15; lean_object* x_16;
lean_dec(x_12);
lean_dec(x_7);
x_15 = lean_box(0);
x_16 = lean_apply_1(x_1, x_15);
return x_16;
}
else
{
lean_object* x_17;
x_17 = lean_ctor_get(x_14, 0);
lean_inc(x_17);
lean_dec(x_14);
if (lean_obj_tag(x_17) == 4)
{
lean_object* x_18; uint8_t x_19; lean_object* x_20;
x_18 = lean_ctor_get(x_17, 0);
lean_inc(x_18);
lean_dec(x_17);
x_19 = lean_ctor_get_uint8(x_18, sizeof(void*)*1);
lean_dec(x_18);
x_20 = lean_box(x_19);
if (lean_obj_tag(x_20) == 1)
{
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_dec(x_1);
x_21 = l_Lean_exprIsInhabited;
x_22 = lean_array_get(x_21, x_3, x_4);
x_23 = lean_expr_mk_app(x_22, x_12);
x_24 = lean_unsigned_to_nat(1u);
x_25 = lean_nat_add(x_5, x_24);
x_26 = l___private_Init_Lean_Expr_1__mkAppRangeAux___main(x_6, x_3, x_25, x_23);
x_27 = lean_apply_1(x_7, x_26);
return x_27;
}
else
{
lean_object* x_28; lean_object* x_29;
lean_dec(x_20);
lean_dec(x_12);
lean_dec(x_7);
x_28 = lean_box(0);
x_29 = lean_apply_1(x_1, x_28);
return x_29;
}
}
else
{
lean_object* x_30; lean_object* x_31;
lean_dec(x_17);
lean_dec(x_12);
lean_dec(x_7);
x_30 = lean_box(0);
x_31 = lean_apply_1(x_1, x_30);
return x_31;
}
}
}
else
{
lean_object* x_32; lean_object* x_33;
lean_dec(x_11);
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_2);
x_32 = lean_box(0);
x_33 = lean_apply_1(x_1, x_32);
return x_33;
}
}
else
{
lean_object* x_34; lean_object* x_35;
lean_dec(x_10);
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_2);
x_34 = lean_box(0);
x_35 = lean_apply_1(x_1, x_34);
return x_35;
}
}
else
{
lean_object* x_36; lean_object* x_37;
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_2);
x_36 = lean_box(0);
x_37 = lean_apply_1(x_1, x_36);
return x_37;
}
}
else
{
lean_object* x_38; lean_object* x_39;
lean_dec(x_8);
lean_dec(x_7);
lean_dec(x_2);
x_38 = lean_box(0);
x_39 = lean_apply_1(x_1, x_38);
return x_39;
}
}
}
lean_object* l_Lean_reduceQuotRecAux___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, lean_object* x_8) {
_start:
{
lean_object* x_9; lean_object* x_10; uint8_t x_21; lean_object* x_22;
x_21 = lean_ctor_get_uint8(x_4, sizeof(void*)*1);
x_22 = lean_box(x_21);
switch (lean_obj_tag(x_22)) {
case 2:
{
lean_object* x_23; lean_object* x_24;
x_23 = lean_unsigned_to_nat(5u);
x_24 = lean_unsigned_to_nat(3u);
x_9 = x_23;
x_10 = x_24;
goto block_20;
}
case 3:
{
lean_object* x_25; lean_object* x_26;
x_25 = lean_unsigned_to_nat(4u);
x_26 = lean_unsigned_to_nat(3u);
x_9 = x_25;
x_10 = x_26;
goto block_20;
}
default:
{
lean_object* x_27; lean_object* x_28;
lean_dec(x_22);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_27 = lean_box(0);
x_28 = lean_apply_1(x_7, x_27);
return x_28;
}
}
block_20:
{
lean_object* x_11; uint8_t x_12;
x_11 = lean_array_get_size(x_6);
x_12 = lean_nat_dec_lt(x_9, x_11);
if (x_12 == 0)
{
lean_object* x_13; lean_object* x_14;
lean_dec(x_11);
lean_dec(x_10);
lean_dec(x_9);
lean_dec(x_8);
lean_dec(x_6);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_13 = lean_box(0);
x_14 = lean_apply_1(x_7, x_13);
return x_14;
}
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19;
x_15 = lean_array_fget(x_6, x_9);
x_16 = lean_ctor_get(x_1, 1);
lean_inc(x_16);
lean_dec(x_1);
x_17 = lean_apply_1(x_2, x_15);
x_18 = lean_alloc_closure((void*)(l_Lean_reduceQuotRecAux___rarg___lambda__1___boxed), 8, 7);
lean_closure_set(x_18, 0, x_7);
lean_closure_set(x_18, 1, x_3);
lean_closure_set(x_18, 2, x_6);
lean_closure_set(x_18, 3, x_10);
lean_closure_set(x_18, 4, x_9);
lean_closure_set(x_18, 5, x_11);
lean_closure_set(x_18, 6, x_8);
x_19 = lean_apply_4(x_16, lean_box(0), lean_box(0), x_17, x_18);
return x_19;
}
}
}
}
lean_object* l_Lean_reduceQuotRecAux(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_reduceQuotRecAux___rarg___boxed), 8, 0);
return x_3;
}
}
lean_object* l_Lean_reduceQuotRecAux___rarg___lambda__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* x_7, lean_object* x_8) {
_start:
{
lean_object* x_9;
x_9 = l_Lean_reduceQuotRecAux___rarg___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
return x_9;
}
}
lean_object* l_Lean_reduceQuotRecAux___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, lean_object* x_8) {
_start:
{
lean_object* x_9;
x_9 = l_Lean_reduceQuotRecAux___rarg(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8);
lean_dec(x_5);
lean_dec(x_4);
return x_9;
}
}
lean_object* l_Lean_reduceQuotRecAux___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_reduceQuotRecAux(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* l___private_Init_Lean_QuotUtil_1__matchQuotRecApp___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_getAppFn___main(x_2);
if (lean_obj_tag(x_5) == 4)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = lean_ctor_get(x_5, 0);
lean_inc(x_6);
x_7 = lean_ctor_get(x_5, 1);
lean_inc(x_7);
lean_dec(x_5);
x_8 = lean_environment_find(x_1, x_6);
if (lean_obj_tag(x_8) == 0)
{
lean_object* x_9; lean_object* x_10;
lean_dec(x_7);
lean_dec(x_4);
lean_dec(x_2);
x_9 = lean_box(0);
x_10 = lean_apply_1(x_3, x_9);
return x_10;
}
else
{
lean_object* x_11;
x_11 = lean_ctor_get(x_8, 0);
lean_inc(x_11);
lean_dec(x_8);
if (lean_obj_tag(x_11) == 4)
{
lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20;
lean_dec(x_3);
x_12 = lean_ctor_get(x_11, 0);
lean_inc(x_12);
lean_dec(x_11);
x_13 = lean_unsigned_to_nat(0u);
x_14 = l_Lean_Expr_getAppNumArgsAux___main(x_2, x_13);
x_15 = l_Lean_exprIsInhabited___closed__1;
lean_inc(x_14);
x_16 = lean_mk_array(x_14, x_15);
x_17 = lean_unsigned_to_nat(1u);
x_18 = lean_nat_sub(x_14, x_17);
lean_dec(x_14);
x_19 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_2, x_16, x_18);
x_20 = lean_apply_3(x_4, x_12, x_7, x_19);
return x_20;
}
else
{
lean_object* x_21; lean_object* x_22;
lean_dec(x_11);
lean_dec(x_7);
lean_dec(x_4);
lean_dec(x_2);
x_21 = lean_box(0);
x_22 = lean_apply_1(x_3, x_21);
return x_22;
}
}
}
else
{
lean_object* x_23; lean_object* x_24;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_2);
lean_dec(x_1);
x_23 = lean_box(0);
x_24 = lean_apply_1(x_3, x_23);
return x_24;
}
}
}
lean_object* l___private_Init_Lean_QuotUtil_1__matchQuotRecApp(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = lean_alloc_closure((void*)(l___private_Init_Lean_QuotUtil_1__matchQuotRecApp___rarg), 4, 0);
return x_4;
}
}
lean_object* l___private_Init_Lean_QuotUtil_1__matchQuotRecApp___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l___private_Init_Lean_QuotUtil_1__matchQuotRecApp(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Lean_reduceQuotRec___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7;
x_7 = l_Lean_Expr_getAppFn___main(x_4);
if (lean_obj_tag(x_7) == 4)
{
lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_8 = lean_ctor_get(x_7, 0);
lean_inc(x_8);
x_9 = lean_ctor_get(x_7, 1);
lean_inc(x_9);
lean_dec(x_7);
lean_inc(x_3);
x_10 = lean_environment_find(x_3, x_8);
if (lean_obj_tag(x_10) == 0)
{
lean_object* x_11; lean_object* x_12;
lean_dec(x_9);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_11 = lean_box(0);
x_12 = lean_apply_1(x_5, x_11);
return x_12;
}
else
{
lean_object* x_13;
x_13 = lean_ctor_get(x_10, 0);
lean_inc(x_13);
lean_dec(x_10);
if (lean_obj_tag(x_13) == 4)
{
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; lean_object* x_22;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
lean_dec(x_13);
x_15 = lean_unsigned_to_nat(0u);
x_16 = l_Lean_Expr_getAppNumArgsAux___main(x_4, x_15);
x_17 = l_Lean_exprIsInhabited___closed__1;
lean_inc(x_16);
x_18 = lean_mk_array(x_16, x_17);
x_19 = lean_unsigned_to_nat(1u);
x_20 = lean_nat_sub(x_16, x_19);
lean_dec(x_16);
x_21 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_4, x_18, x_20);
x_22 = l_Lean_reduceQuotRecAux___rarg(x_1, x_2, x_3, x_14, x_9, x_21, x_5, x_6);
lean_dec(x_9);
lean_dec(x_14);
return x_22;
}
else
{
lean_object* x_23; lean_object* x_24;
lean_dec(x_13);
lean_dec(x_9);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_23 = lean_box(0);
x_24 = lean_apply_1(x_5, x_23);
return x_24;
}
}
}
else
{
lean_object* x_25; lean_object* x_26;
lean_dec(x_7);
lean_dec(x_6);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_25 = lean_box(0);
x_26 = lean_apply_1(x_5, x_25);
return x_26;
}
}
}
lean_object* l_Lean_reduceQuotRec(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_reduceQuotRec___rarg), 6, 0);
return x_3;
}
}
lean_object* l_Lean_reduceQuotRec___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_reduceQuotRec(x_1, x_2);
lean_dec(x_2);
return x_3;
}
}
lean_object* l_Lean_isQuotRecStuck___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_12;
x_12 = l_Lean_Expr_getAppFn___main(x_5);
if (lean_obj_tag(x_12) == 4)
{
lean_object* x_13; lean_object* x_14;
x_13 = lean_ctor_get(x_12, 0);
lean_inc(x_13);
lean_dec(x_12);
x_14 = lean_environment_find(x_4, x_13);
if (lean_obj_tag(x_14) == 0)
{
lean_object* x_15;
lean_dec(x_5);
lean_dec(x_3);
lean_dec(x_2);
x_15 = lean_box(0);
x_6 = x_15;
goto block_11;
}
else
{
lean_object* x_16;
x_16 = lean_ctor_get(x_14, 0);
lean_inc(x_16);
lean_dec(x_14);
if (lean_obj_tag(x_16) == 4)
{
lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25; lean_object* x_26;
x_17 = lean_ctor_get(x_16, 0);
lean_inc(x_17);
lean_dec(x_16);
x_18 = lean_unsigned_to_nat(0u);
x_19 = l_Lean_Expr_getAppNumArgsAux___main(x_5, x_18);
x_20 = l_Lean_exprIsInhabited___closed__1;
lean_inc(x_19);
x_21 = lean_mk_array(x_19, x_20);
x_22 = lean_unsigned_to_nat(1u);
x_23 = lean_nat_sub(x_19, x_22);
lean_dec(x_19);
x_24 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_5, x_21, x_23);
x_25 = lean_ctor_get_uint8(x_17, sizeof(void*)*1);
lean_dec(x_17);
x_26 = lean_box(x_25);
switch (lean_obj_tag(x_26)) {
case 2:
{
lean_object* x_27; lean_object* x_28; uint8_t x_29;
x_27 = lean_array_get_size(x_24);
x_28 = lean_unsigned_to_nat(5u);
x_29 = lean_nat_dec_lt(x_28, x_27);
lean_dec(x_27);
if (x_29 == 0)
{
lean_object* x_30;
lean_dec(x_24);
lean_dec(x_3);
lean_dec(x_2);
x_30 = lean_box(0);
x_6 = x_30;
goto block_11;
}
else
{
lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34;
x_31 = lean_array_fget(x_24, x_28);
lean_dec(x_24);
x_32 = lean_ctor_get(x_1, 1);
lean_inc(x_32);
lean_dec(x_1);
x_33 = lean_apply_1(x_2, x_31);
x_34 = lean_apply_4(x_32, lean_box(0), lean_box(0), x_33, x_3);
return x_34;
}
}
case 3:
{
lean_object* x_35; lean_object* x_36; uint8_t x_37;
x_35 = lean_array_get_size(x_24);
x_36 = lean_unsigned_to_nat(4u);
x_37 = lean_nat_dec_lt(x_36, x_35);
lean_dec(x_35);
if (x_37 == 0)
{
lean_object* x_38;
lean_dec(x_24);
lean_dec(x_3);
lean_dec(x_2);
x_38 = lean_box(0);
x_6 = x_38;
goto block_11;
}
else
{
lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42;
x_39 = lean_array_fget(x_24, x_36);
lean_dec(x_24);
x_40 = lean_ctor_get(x_1, 1);
lean_inc(x_40);
lean_dec(x_1);
x_41 = lean_apply_1(x_2, x_39);
x_42 = lean_apply_4(x_40, lean_box(0), lean_box(0), x_41, x_3);
return x_42;
}
}
default:
{
lean_object* x_43;
lean_dec(x_26);
lean_dec(x_24);
lean_dec(x_3);
lean_dec(x_2);
x_43 = lean_box(0);
x_6 = x_43;
goto block_11;
}
}
}
else
{
lean_object* x_44;
lean_dec(x_16);
lean_dec(x_5);
lean_dec(x_3);
lean_dec(x_2);
x_44 = lean_box(0);
x_6 = x_44;
goto block_11;
}
}
}
else
{
lean_object* x_45;
lean_dec(x_12);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_45 = lean_box(0);
x_6 = x_45;
goto block_11;
}
block_11:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
lean_dec(x_6);
x_7 = lean_ctor_get(x_1, 0);
lean_inc(x_7);
lean_dec(x_1);
x_8 = lean_ctor_get(x_7, 1);
lean_inc(x_8);
lean_dec(x_7);
x_9 = lean_box(0);
x_10 = lean_apply_2(x_8, lean_box(0), x_9);
return x_10;
}
}
}
lean_object* l_Lean_isQuotRecStuck(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_isQuotRecStuck___rarg), 5, 0);
return x_2;
}
}
lean_object* l_Lean_isQuotRecStuck___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_isQuotRecStuck(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* initialize_Init_Lean_Environment(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_QuotUtil(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(lean_box(0));
_G_initialized = true;
res = initialize_Init_Lean_Environment(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif

4
src/stage0/Init/Lean/ReducibilityAttrs.c
View file

@ -50,7 +50,6 @@ lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*);
lean_object* lean_io_initializing(lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__15;
extern lean_object* l_Lean_registerEnumAttributes___rarg___closed__1;
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
extern lean_object* l_Lean_AttributeImpl_inhabited___closed__4;
lean_object* lean_set_reducibility_status(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_registerTagAttribute___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -88,6 +87,7 @@ lean_object* l_Lean_registerEnumAttributes___at_Lean_mkReducibilityAttrs___spec_
uint8_t l_Lean_ReducibilityStatus_inhabited;
lean_object* l_Lean_registerEnumAttributes___at_Lean_mkReducibilityAttrs___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_EState_bind___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
lean_object* lean_array_swap(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_mkReducibilityAttrs___closed__18;
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
@ -477,7 +477,7 @@ lean_inc(x_16);
lean_dec(x_14);
x_17 = lean_array_get_size(x_15);
lean_dec(x_15);
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__6___closed__1;
x_18 = l_Lean_registerEnvExtensionUnsafe___at_Lean_registerTagAttribute___spec__4___closed__1;
x_19 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_19, 0, x_17);
lean_ctor_set(x_19, 1, x_1);

4
src/stage0/Init/Lean/Scopes.c
View file

@ -67,6 +67,7 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef;
uint8_t lean_is_namespace(lean_object*, lean_object*);
extern lean_object* l_Lean_regNamespacesExtension___closed__4;
lean_object* lean_array_push(lean_object*, lean_object*);
lean_object* l_Lean_regScopeManagerExtension___closed__5;
uint8_t l_List_isEmpty___rarg(lean_object*);
@ -113,7 +114,6 @@ lean_object* l_Lean_Environment_hasOpenScopes___boxed(lean_object*);
lean_object* l_Lean_Name_append___main(lean_object*, lean_object*);
lean_object* l_Lean_Environment_pushScopeCore___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__1;
extern lean_object* l_Lean_regNamespacesExtension___closed__5;
lean_object* lean_to_valid_namespace(lean_object*, lean_object*);
lean_object* lean_io_ref_reset(lean_object*, lean_object*);
lean_object* l_Lean_scopeManagerExt___elambda__4(lean_object*);
@ -1123,7 +1123,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_regScopeManagerExtension___closed__2;
x_2 = l_Lean_regScopeManagerExtension___closed__3;
x_3 = l_Lean_regScopeManagerExtension___closed__4;
x_4 = l_Lean_regNamespacesExtension___closed__5;
x_4 = l_Lean_regNamespacesExtension___closed__4;
x_5 = lean_alloc_ctor(0, 4, 0);
lean_ctor_set(x_5, 0, x_1);
lean_ctor_set(x_5, 1, x_2);

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

@ -54,7 +54,6 @@ lean_object* l_Lean_TypeClass_Context_eInferIdx(lean_object*, lean_object*);
size_t l_USize_sub(size_t, size_t);
lean_object* l_Lean_TypeClass_Context_eShallowInstantiate(lean_object*, lean_object*);
lean_object* lean_expr_instantiate1(lean_object*, lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_metaPrefix___closed__1;
uint8_t l_Lean_TypeClass_Context_uFind(lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn___main(lean_object*);
@ -121,6 +120,7 @@ uint8_t l_List_foldr___main___at_Lean_TypeClass_Context_eHasTmpMVar___spec__1(ui
lean_object* l_PersistentArray_getAux___main___at_Lean_TypeClass_Context_eInferIdx___spec__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_slowWhnfApp___main___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_2__getAppArgsAux___main(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_uUnify(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_eUnify___main___closed__2;
@ -145,7 +145,6 @@ lean_object* l_Lean_TypeClass_Context_eUnify(lean_object*, lean_object*, lean_ob
lean_object* l_Lean_TypeClass_Context_eInfer___closed__1;
lean_object* lean_level_mk_succ(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*);
lean_object* l_Nat_forMAux___main___at_Lean_TypeClass_Context_eUnify___main___spec__2(lean_object*, 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_Context_eAlphaNormalizeCore___main(lean_object*, lean_object*);
@ -210,6 +209,7 @@ lean_object* lean_level_mk_max(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_Context_uAssign___closed__1;
lean_object* l_Lean_TypeClass_Context_uUnify___main___closed__5;
uint8_t lean_expr_has_level_mvar(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* _init_l_Lean_TypeClass_Context_Inhabited___closed__1() {
_start:
{
@ -738,7 +738,7 @@ x_4 = l_Lean_TypeClass_Context_eInfer___closed__1;
x_5 = lean_unsigned_to_nat(71u);
x_6 = lean_unsigned_to_nat(14u);
x_7 = l_Lean_TypeClass_Context_eInfer___closed__2;
x_8 = l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(x_4, x_5, x_6, x_7);
x_8 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_4, x_5, x_6, x_7);
return x_8;
}
else
@ -2597,7 +2597,7 @@ x_7 = lean_unsigned_to_nat(1u);
x_8 = lean_nat_sub(x_4, x_7);
lean_dec(x_4);
lean_inc(x_1);
x_9 = l___private_Init_Lean_Expr_1__getAppArgsAux___main(x_1, x_6, x_8);
x_9 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_1, x_6, x_8);
x_10 = l_Lean_Expr_getAppFn___main(x_1);
lean_dec(x_1);
x_11 = l_Lean_TypeClass_Context_slowWhnf___main(x_10);
@ -3350,13 +3350,13 @@ x_98 = lean_unsigned_to_nat(1u);
x_99 = lean_nat_sub(x_78, x_98);
lean_dec(x_78);
lean_inc(x_8);
x_100 = l___private_Init_Lean_Expr_1__getAppArgsAux___main(x_8, x_97, x_99);
x_100 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_8, x_97, x_99);
lean_inc(x_79);
x_101 = lean_mk_array(x_79, x_96);
x_102 = lean_nat_sub(x_79, x_98);
lean_dec(x_79);
lean_inc(x_12);
x_103 = l___private_Init_Lean_Expr_1__getAppArgsAux___main(x_12, x_101, x_102);
x_103 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_12, x_101, x_102);
x_104 = l_Lean_Expr_getAppFn___main(x_8);
lean_dec(x_8);
x_105 = l_Lean_Expr_getAppFn___main(x_12);

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

@ -49,7 +49,6 @@ lean_object* l_Lean_TypeClass_wakeUp(lean_object*, lean_object*, lean_object*);
size_t l_USize_sub(size_t, size_t);
lean_object* lean_expr_instantiate1(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_TypedExpr_Inhabited___closed__1;
lean_object* l_panicWithPos___at_Lean_Expr_bindingDomain_x21___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_getAppFn___main(lean_object*);
lean_object* l_Array_back___at_Lean_TypeClass_generate___spec__2(lean_object*);
lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*);
@ -118,12 +117,12 @@ lean_object* l_Lean_TypeClass_ConsumerNode_Inhabited___closed__1;
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_insert___at_Lean_TypeClass_newSubgoal___spec__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_TypeClass_newAnswer___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Expr_2__getAppArgsAux___main(lean_object*, lean_object*, lean_object*);
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
uint8_t lean_has_out_params(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_generate(lean_object*);
uint8_t l_Array_isEmpty___rarg(lean_object*);
lean_object* l_Stack_peek_x21___at_Lean_TypeClass_consume___spec__1(lean_object*);
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*);
@ -141,12 +140,12 @@ lean_object* l_Lean_TypeClass_newSubgoal___closed__2;
uint8_t l_Queue_isEmpty___rarg(lean_object*);
extern lean_object* l_System_FilePath_dirName___closed__1;
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*);
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* lean_instantiate_type_lparams(lean_object*, lean_object*);
lean_object* l_Lean_TypeClass_newSubgoal___closed__3;
lean_object* l_Lean_TypeClass_preprocessForOutParams(lean_object*, lean_object*);
lean_object* lean_name_mk_numeral(lean_object*, lean_object*);
@ -200,6 +199,7 @@ lean_object* l_Lean_TypeClass_synth___closed__3;
lean_object* l_Lean_TypeClass_constNameToTypedExpr___closed__2;
uint8_t lean_expr_has_level_mvar(lean_object*);
uint8_t l_Lean_Expr_isLambda(lean_object*);
lean_object* l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* _init_l_Lean_TypeClass_TypedExpr_HasToString___closed__1() {
_start:
{
@ -4463,7 +4463,7 @@ x_18 = lean_unsigned_to_nat(1u);
x_19 = lean_nat_sub(x_15, x_18);
lean_dec(x_15);
lean_inc(x_2);
x_20 = l___private_Init_Lean_Expr_1__getAppArgsAux___main(x_2, x_17, x_19);
x_20 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_2, x_17, x_19);
x_21 = l_Lean_Expr_isConst(x_14);
if (x_21 == 0)
{
@ -4550,7 +4550,7 @@ x_70 = l_Lean_TypeClass_collectEReplacements___main___closed__1;
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_x21___spec__1(x_70, x_71, x_72, x_73);
x_74 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_70, x_71, x_72, x_73);
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;
@ -4687,7 +4687,7 @@ x_108 = l_Lean_TypeClass_collectEReplacements___main___closed__1;
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_x21___spec__1(x_108, x_109, x_110, x_111);
x_112 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_108, x_109, x_110, x_111);
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;
@ -4833,7 +4833,7 @@ x_124 = lean_unsigned_to_nat(1u);
x_125 = lean_nat_sub(x_121, x_124);
lean_dec(x_121);
lean_inc(x_2);
x_126 = l___private_Init_Lean_Expr_1__getAppArgsAux___main(x_2, x_123, x_125);
x_126 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_2, x_123, x_125);
x_127 = l_Lean_Expr_isConst(x_120);
if (x_127 == 0)
{
@ -4923,7 +4923,7 @@ x_163 = l_Lean_TypeClass_collectEReplacements___main___closed__1;
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_x21___spec__1(x_163, x_164, x_165, x_166);
x_167 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_163, x_164, x_165, x_166);
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;
@ -5009,7 +5009,7 @@ x_186 = l_Lean_TypeClass_collectEReplacements___main___closed__1;
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_x21___spec__1(x_186, x_187, x_188, x_189);
x_190 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_186, x_187, x_188, x_189);
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;
@ -5116,7 +5116,7 @@ x_204 = lean_unsigned_to_nat(1u);
x_205 = lean_nat_sub(x_201, x_204);
lean_dec(x_201);
lean_inc(x_2);
x_206 = l___private_Init_Lean_Expr_1__getAppArgsAux___main(x_2, x_203, x_205);
x_206 = l___private_Init_Lean_Expr_2__getAppArgsAux___main(x_2, x_203, x_205);
x_207 = l_Lean_Expr_isConst(x_200);
if (x_207 == 0)
{
@ -5216,7 +5216,7 @@ x_245 = l_Lean_TypeClass_collectEReplacements___main___closed__1;
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_x21___spec__1(x_245, x_246, x_247, x_248);
x_249 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_245, x_246, x_247, x_248);
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;
@ -5302,7 +5302,7 @@ x_268 = l_Lean_TypeClass_collectEReplacements___main___closed__1;
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_x21___spec__1(x_268, x_269, x_270, x_271);
x_272 = l_panicWithPos___at_Lean_Expr_getRevArg_x21___main___spec__1(x_268, x_269, x_270, x_271);
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;

426
src/stage0/Init/Lean/TypeInference.c
View file

@ -1,426 +0,0 @@
// Lean compiler output
// Module: Init.Lean.TypeInference
// Imports: Init.Control.Reader Init.Lean.NameGenerator Init.Lean.Environment Init.Lean.AbstractMetavarContext Init.Lean.Trace
#include "runtime/lean.h"
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___closed__1;
lean_object* l_Lean_TypeInferenceState_backtrackable___lambda__1(lean_object*);
lean_object* l___private_Init_Lean_TypeInference_1__getOptions___rarg(lean_object*, lean_object*);
lean_object* l_Lean_TypeInference_tracer___closed__3;
lean_object* l_Lean_TypeInference_tracer___closed__1;
lean_object* l_Lean_TypeInferenceState_backtrackable___closed__2;
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_TypeInference_2__getTraceState___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__1(lean_object*, uint8_t, lean_object*);
lean_object* l_Lean_TypeInference_tracer___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_TypeInference_1__getOptions(lean_object*, lean_object*);
lean_object* l_Lean_TypeInferenceState_backtrackable___closed__3;
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___closed__2;
lean_object* l_Lean_TypeInference_tracer(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_TypeInference_1__getOptions___rarg___boxed(lean_object*, lean_object*);
lean_object* l_Lean_TypeInferenceState_backtrackable(lean_object*, lean_object*);
lean_object* l_Lean_TypeInferenceState_backtrackable___lambda__2(lean_object*, lean_object*);
lean_object* l_Lean_TypeInference_tracer___closed__4;
lean_object* l_Lean_TypeInference_tracer___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_TypeInference_2__getTraceState___rarg(lean_object*);
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__2(lean_object*, uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___closed__3;
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache;
lean_object* l_Lean_TypeInferenceState_backtrackable___lambda__1___boxed(lean_object*);
lean_object* l_Lean_TypeInference_tracer___closed__2;
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_TypeInference_2__getTraceState(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_TypeInferenceState_backtrackable___closed__1;
lean_object* l_Lean_TypeInferenceState_backtrackable___lambda__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
return x_2;
}
}
lean_object* l_Lean_TypeInferenceState_backtrackable___lambda__2(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_3;
x_3 = !lean_is_exclusive(x_1);
if (x_3 == 0)
{
lean_object* x_4;
x_4 = lean_ctor_get(x_1, 0);
lean_dec(x_4);
lean_ctor_set(x_1, 0, x_2);
return x_1;
}
else
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10;
x_5 = lean_ctor_get(x_1, 1);
x_6 = lean_ctor_get(x_1, 2);
x_7 = lean_ctor_get(x_1, 3);
x_8 = lean_ctor_get_uint8(x_1, sizeof(void*)*5);
x_9 = lean_ctor_get(x_1, 4);
lean_inc(x_9);
lean_inc(x_7);
lean_inc(x_6);
lean_inc(x_5);
lean_dec(x_1);
x_10 = lean_alloc_ctor(0, 5, 1);
lean_ctor_set(x_10, 0, x_2);
lean_ctor_set(x_10, 1, x_5);
lean_ctor_set(x_10, 2, x_6);
lean_ctor_set(x_10, 3, x_7);
lean_ctor_set(x_10, 4, x_9);
lean_ctor_set_uint8(x_10, sizeof(void*)*5, x_8);
return x_10;
}
}
}
lean_object* _init_l_Lean_TypeInferenceState_backtrackable___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_TypeInferenceState_backtrackable___lambda__1___boxed), 1, 0);
return x_1;
}
}
lean_object* _init_l_Lean_TypeInferenceState_backtrackable___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_TypeInferenceState_backtrackable___lambda__2), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_TypeInferenceState_backtrackable___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_TypeInferenceState_backtrackable___closed__1;
x_2 = l_Lean_TypeInferenceState_backtrackable___closed__2;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* l_Lean_TypeInferenceState_backtrackable(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_TypeInferenceState_backtrackable___closed__3;
return x_3;
}
}
lean_object* l_Lean_TypeInferenceState_backtrackable___lambda__1___boxed(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = l_Lean_TypeInferenceState_backtrackable___lambda__1(x_1);
lean_dec(x_1);
return x_2;
}
}
lean_object* l___private_Init_Lean_TypeInference_1__getOptions___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = lean_ctor_get(x_1, 3);
x_4 = lean_ctor_get(x_3, 0);
lean_inc(x_4);
x_5 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_5, 0, x_4);
lean_ctor_set(x_5, 1, x_2);
return x_5;
}
}
lean_object* l___private_Init_Lean_TypeInference_1__getOptions(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l___private_Init_Lean_TypeInference_1__getOptions___rarg___boxed), 2, 0);
return x_3;
}
}
lean_object* l___private_Init_Lean_TypeInference_1__getOptions___rarg___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l___private_Init_Lean_TypeInference_1__getOptions___rarg(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l___private_Init_Lean_TypeInference_2__getTraceState___rarg(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = lean_ctor_get(x_1, 3);
lean_inc(x_2);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* l___private_Init_Lean_TypeInference_2__getTraceState(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = lean_alloc_closure((void*)(l___private_Init_Lean_TypeInference_2__getTraceState___rarg), 1, 0);
return x_4;
}
}
lean_object* l___private_Init_Lean_TypeInference_2__getTraceState___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l___private_Init_Lean_TypeInference_2__getTraceState(x_1, x_2, x_3);
lean_dec(x_3);
return x_4;
}
}
lean_object* l_Lean_TypeInference_tracer___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4;
x_4 = !lean_is_exclusive(x_3);
if (x_4 == 0)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_5 = lean_ctor_get(x_3, 3);
x_6 = lean_apply_1(x_1, x_5);
lean_ctor_set(x_3, 3, x_6);
x_7 = lean_box(0);
x_8 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_8, 0, x_7);
lean_ctor_set(x_8, 1, x_3);
return x_8;
}
else
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_9 = lean_ctor_get(x_3, 0);
x_10 = lean_ctor_get(x_3, 1);
x_11 = lean_ctor_get(x_3, 2);
x_12 = lean_ctor_get(x_3, 3);
x_13 = lean_ctor_get_uint8(x_3, sizeof(void*)*5);
x_14 = lean_ctor_get(x_3, 4);
lean_inc(x_14);
lean_inc(x_12);
lean_inc(x_11);
lean_inc(x_10);
lean_inc(x_9);
lean_dec(x_3);
x_15 = lean_apply_1(x_1, x_12);
x_16 = lean_alloc_ctor(0, 5, 1);
lean_ctor_set(x_16, 0, x_9);
lean_ctor_set(x_16, 1, x_10);
lean_ctor_set(x_16, 2, x_11);
lean_ctor_set(x_16, 3, x_15);
lean_ctor_set(x_16, 4, x_14);
lean_ctor_set_uint8(x_16, sizeof(void*)*5, x_13);
x_17 = lean_box(0);
x_18 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_18, 0, x_17);
lean_ctor_set(x_18, 1, x_16);
return x_18;
}
}
}
lean_object* _init_l_Lean_TypeInference_tracer___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l___private_Init_Lean_TypeInference_2__getTraceState___boxed), 3, 2);
lean_closure_set(x_1, 0, lean_box(0));
lean_closure_set(x_1, 1, lean_box(0));
return x_1;
}
}
lean_object* _init_l_Lean_TypeInference_tracer___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l___private_Init_Lean_TypeInference_1__getOptions___rarg___boxed), 2, 0);
return x_1;
}
}
lean_object* _init_l_Lean_TypeInference_tracer___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_TypeInference_tracer___lambda__1___boxed), 3, 0);
return x_1;
}
}
lean_object* _init_l_Lean_TypeInference_tracer___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_TypeInference_tracer___closed__2;
x_2 = l_Lean_TypeInference_tracer___closed__3;
x_3 = l_Lean_TypeInference_tracer___closed__1;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* l_Lean_TypeInference_tracer(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_Lean_TypeInference_tracer___closed__4;
return x_3;
}
}
lean_object* l_Lean_TypeInference_tracer___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Lean_TypeInference_tracer___lambda__1(x_1, x_2, x_3);
lean_dec(x_2);
return x_4;
}
}
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__1(lean_object* x_1, uint8_t x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = lean_box(0);
return x_4;
}
}
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__2(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_inc(x_1);
return x_1;
}
}
lean_object* _init_l_Lean_typeContextNoCacheIsAbstractTCCache___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__1___boxed), 3, 0);
return x_1;
}
}
lean_object* _init_l_Lean_typeContextNoCacheIsAbstractTCCache___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__2___boxed), 4, 0);
return x_1;
}
}
lean_object* _init_l_Lean_typeContextNoCacheIsAbstractTCCache___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_typeContextNoCacheIsAbstractTCCache___closed__1;
x_2 = l_Lean_typeContextNoCacheIsAbstractTCCache___closed__2;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_typeContextNoCacheIsAbstractTCCache() {
_start:
{
lean_object* x_1;
x_1 = l_Lean_typeContextNoCacheIsAbstractTCCache___closed__3;
return x_1;
}
}
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_4; lean_object* x_5;
x_4 = lean_unbox(x_2);
lean_dec(x_2);
x_5 = l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__1(x_1, x_4, x_3);
lean_dec(x_3);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
uint8_t x_5; lean_object* x_6;
x_5 = lean_unbox(x_2);
lean_dec(x_2);
x_6 = l_Lean_typeContextNoCacheIsAbstractTCCache___lambda__2(x_1, x_5, x_3, x_4);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
return x_6;
}
}
lean_object* initialize_Init_Control_Reader(lean_object*);
lean_object* initialize_Init_Lean_NameGenerator(lean_object*);
lean_object* initialize_Init_Lean_Environment(lean_object*);
lean_object* initialize_Init_Lean_AbstractMetavarContext(lean_object*);
lean_object* initialize_Init_Lean_Trace(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Init_Lean_TypeInference(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(lean_box(0));
_G_initialized = true;
res = initialize_Init_Control_Reader(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_NameGenerator(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Environment(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_AbstractMetavarContext(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Init_Lean_Trace(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_TypeInferenceState_backtrackable___closed__1 = _init_l_Lean_TypeInferenceState_backtrackable___closed__1();
lean_mark_persistent(l_Lean_TypeInferenceState_backtrackable___closed__1);
l_Lean_TypeInferenceState_backtrackable___closed__2 = _init_l_Lean_TypeInferenceState_backtrackable___closed__2();
lean_mark_persistent(l_Lean_TypeInferenceState_backtrackable___closed__2);
l_Lean_TypeInferenceState_backtrackable___closed__3 = _init_l_Lean_TypeInferenceState_backtrackable___closed__3();
lean_mark_persistent(l_Lean_TypeInferenceState_backtrackable___closed__3);
l_Lean_TypeInference_tracer___closed__1 = _init_l_Lean_TypeInference_tracer___closed__1();
lean_mark_persistent(l_Lean_TypeInference_tracer___closed__1);
l_Lean_TypeInference_tracer___closed__2 = _init_l_Lean_TypeInference_tracer___closed__2();
lean_mark_persistent(l_Lean_TypeInference_tracer___closed__2);
l_Lean_TypeInference_tracer___closed__3 = _init_l_Lean_TypeInference_tracer___closed__3();
lean_mark_persistent(l_Lean_TypeInference_tracer___closed__3);
l_Lean_TypeInference_tracer___closed__4 = _init_l_Lean_TypeInference_tracer___closed__4();
lean_mark_persistent(l_Lean_TypeInference_tracer___closed__4);
l_Lean_typeContextNoCacheIsAbstractTCCache___closed__1 = _init_l_Lean_typeContextNoCacheIsAbstractTCCache___closed__1();
lean_mark_persistent(l_Lean_typeContextNoCacheIsAbstractTCCache___closed__1);
l_Lean_typeContextNoCacheIsAbstractTCCache___closed__2 = _init_l_Lean_typeContextNoCacheIsAbstractTCCache___closed__2();
lean_mark_persistent(l_Lean_typeContextNoCacheIsAbstractTCCache___closed__2);
l_Lean_typeContextNoCacheIsAbstractTCCache___closed__3 = _init_l_Lean_typeContextNoCacheIsAbstractTCCache___closed__3();
lean_mark_persistent(l_Lean_typeContextNoCacheIsAbstractTCCache___closed__3);
l_Lean_typeContextNoCacheIsAbstractTCCache = _init_l_Lean_typeContextNoCacheIsAbstractTCCache();
lean_mark_persistent(l_Lean_typeContextNoCacheIsAbstractTCCache);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif

11769
src/stage0/Init/Lean/TypeUtil.c Normal file
View file

File diff suppressed because it is too large Load diff