diff --git a/stage0/src/Lean/Elab/Declaration.lean b/stage0/src/Lean/Elab/Declaration.lean index 93c1fea50f..18992c622d 100644 --- a/stage0/src/Lean/Elab/Declaration.lean +++ b/stage0/src/Lean/Elab/Declaration.lean @@ -273,6 +273,17 @@ fun stx => do declName ← Term.resolveGlobalConstNoOverload ident.getId; Term.applyAttributes declName attrs persistent +@[builtinMacro Lean.Parser.Command.«initialize»] def expandInitialize : Macro := +fun stx => + let optHeader := stx.getArg 1; + let doSeq := stx.getArg 2; + if optHeader.isNone then + `(@[init]def initFn : IO Unit := do $doSeq) + else + let id := optHeader.getArg 0; + let type := (optHeader.getArg 1).getArg 1; + `(def initFn : IO $type := do $doSeq @[init initFn]constant $id : $type) + end Command end Elab end Lean diff --git a/stage0/src/Lean/Parser/Command.lean b/stage0/src/Lean/Parser/Command.lean index f0439b3c18..58346539f8 100644 --- a/stage0/src/Lean/Parser/Command.lean +++ b/stage0/src/Lean/Parser/Command.lean @@ -88,7 +88,7 @@ def openSimple := parser! many1 ident @[builtinCommandParser] def «open» := parser! "open " >> (openHiding <|> openRenaming <|> openOnly <|> openSimple) @[builtinCommandParser] def «mutual» := parser! "mutual " >> many1 (notFollowedBy «end» >> commandParser) >> "end" -@[builtinCommandParser] def «initialize» := parser! "initialize " >> optional (ident >> Term.typeSpec >> Term.leftArrow) >> Term.doSeq +@[builtinCommandParser] def «initialize» := parser! "initialize " >> optional («try» (ident >> Term.typeSpec >> Term.leftArrow)) >> Term.doSeq @[builtinCommandParser] def «in» := tparser! " in " >> commandParser diff --git a/stage0/src/Lean/Util/Trace.lean b/stage0/src/Lean/Util/Trace.lean index 645f14e84f..d7327cec84 100644 --- a/stage0/src/Lean/Util/Trace.lean +++ b/stage0/src/Lean/Util/Trace.lean @@ -135,9 +135,9 @@ namespace Lean macro:max "trace!" id:term:max msg:term : term => `(trace $id fun _ => ($msg : MessageData)) -syntax[traceInterp] "trace[" ident "]!" term : term +syntax "trace[" ident "]!" term : term -macro_rules[Lean.traceInterp] -- Fix kind resolution +macro_rules | `(trace[$id]! $s) => `(Lean.trace $(quote id.getId) fun _ => ($s : MessageData)) end Lean diff --git a/stage0/stdlib/Lean/Elab/Declaration.c b/stage0/stdlib/Lean/Elab/Declaration.c index 65da7660b2..940c92c356 100644 --- a/stage0/stdlib/Lean/Elab/Declaration.c +++ b/stage0/stdlib/Lean/Elab/Declaration.c @@ -14,10 +14,15 @@ extern "C" { #endif lean_object* l_Lean_Elab_Command_elabDeclaration(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Command_elabStructure___closed__11; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__29; lean_object* l_Lean_Elab_applyVisibility___at_Lean_Elab_Command_expandDeclId___spec__5(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_extractMacroScopes(lean_object*); lean_object* l_Lean_Elab_expandOptDeclSig(lean_object*); +extern lean_object* l_Lean_KeyedDeclsAttribute_declareBuiltin___rarg___closed__3; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__22; +lean_object* l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__3; lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualPreamble___closed__1; lean_object* l_Lean_Elab_Command_elabAxiom___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_addDecl___at_Lean_Elab_Term_declareTacticSyntax___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -26,34 +31,52 @@ uint8_t l___private_Lean_Elab_Declaration_5__isMutualDef(lean_object*); lean_object* l_Lean_Elab_Command_elabMutualDef(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandDeclIdNamespace_x3f(lean_object*); lean_object* l_Lean_Elab_Command_liftTermElabM___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__37; extern lean_object* l___private_Lean_Elab_Command_11__addNamespace___closed__1; extern lean_object* l_Lean_Elab_Command_elabSection___closed__2; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__7; uint8_t l_Lean_Elab_Modifiers_isProtected(lean_object*); lean_object* l_Array_forMAux___main___at_Lean_Elab_Command_elabAttr___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__1; uint8_t lean_name_eq(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__16; lean_object* l_Array_forMAux___main___at_Lean_Elab_Command_elabAttr___spec__1___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabDeclaration___closed__4; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__3; lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); extern lean_object* l_Std_HashMap_inhabited___closed__1; extern lean_object* l_Lean_Elab_Command_commandElabAttribute; lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_expandMutualElement___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_extract___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__2; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__24; extern lean_object* l_Array_empty___closed__1; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__5; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__13; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__41; lean_object* lean_st_ref_get(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_expandMutualNamespace___spec__1___closed__2; lean_object* l_Lean_Elab_elabAttrs___at_Lean_Elab_Command_elabMutualDef___spec__3(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__10; lean_object* l_Lean_Elab_Term_ensureNoUnassignedMVars(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__30; +lean_object* l___regBuiltin_Lean_Elab_Command_expandInitialize(lean_object*); lean_object* l___regBuiltin_Lean_Elab_Command_elabDeclaration(lean_object*); +extern lean_object* l_Lean_mkSimpleThunkType___closed__1; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__18; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__15; lean_object* l___private_Lean_Elab_Declaration_2__classInductiveSyntaxToView(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__34; lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__14; lean_object* l_Lean_Elab_Term_applyAttributesAt(lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Elab_Declaration_5__isMutualDef___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_getLevelNames___rarg(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Command_elabMutual(lean_object*); +lean_object* lean_string_utf8_byte_size(lean_object*); lean_object* l___private_Lean_Elab_SyntheticMVars_11__synthesizeSyntheticMVarsAux___main(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_withLevelNames___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__7; @@ -62,13 +85,20 @@ lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_obj lean_object* l_Lean_Elab_Command_elabAxiom___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_setMCtx___at___private_Lean_Meta_Basic_6__liftMkBindingM___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Command_elabDeclaration___closed__1; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__33; extern lean_object* l_Lean_Elab_Command_expandInCmd___closed__7; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__28; +extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1___closed__1; +extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__10; uint8_t l_Array_anyRangeMAux___main___at___private_Lean_Elab_Declaration_3__isMutualInductive___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__8; lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualNamespace(lean_object*); +extern lean_object* l_Array_myMacro____x40_Init_Data_Array_Macros___hyg_464____closed__14; lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_expandMutualNamespace___spec__1___closed__3; extern lean_object* l___private_Lean_Meta_Basic_6__liftMkBindingM___rarg___closed__3; extern lean_object* l_Lean_Elab_Command_isDefLike___closed__4; @@ -76,7 +106,10 @@ extern lean_object* l_Lean_Elab_Command_isDefLike___closed__8; lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Declaration_5__isMutualDef___boxed(lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__6; lean_object* l_Lean_Elab_Term_levelMVarToParam(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__25; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__23; lean_object* lean_st_ref_take(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabAxiom(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Declaration_7__splitMutualPreamble(lean_object*, lean_object*); @@ -87,15 +120,21 @@ extern lean_object* l_Lean_Elab_Command_isDefLike___closed__2; lean_object* l_Lean_Elab_Command_expandMutualNamespace___closed__1; lean_object* l_Lean_Elab_Command_expandDeclId(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at_Lean_Elab_Command_elabAttr___spec__1___lambda__1(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__39; +extern lean_object* l_Lean_Elab_Attribute_hasFormat___closed__1; lean_object* l_Lean_Elab_elabModifiers___at_Lean_Elab_Command_elabMutualDef___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_replaceRef(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabInductiveViews(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Command_elabAttr___closed__3; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__2; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMutualNamespace___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Lean_Elab_PreDefinition_Basic_4__getLevelParamsPreDecls___closed__1; +extern lean_object* l_Lean_Elab_Command_mkDefViewOfConstant___closed__8; lean_object* l_Lean_Elab_Command_elabAxiom___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__4; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__21; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__38; lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualPreamble(lean_object*); extern lean_object* l___regBuiltin_Lean_Elab_Command_elabOpen___closed__2; extern lean_object* l___regBuiltin_Lean_Elab_Command_elabVariables___closed__2; @@ -104,9 +143,16 @@ extern lean_object* l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2; lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* l_Lean_Elab_Command_elabClassInductive(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__17; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__1; extern lean_object* l___private_Lean_Meta_RecursorInfo_10__getProduceMotiveAndRecursive___closed__1; +lean_object* l_Lean_Elab_Command_expandInitialize___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Command_isDefLike___closed__9; lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualNamespace___closed__3; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__9; +extern lean_object* l_Lean_mkAppStx___closed__6; +extern lean_object* l_Lean_Elab_Term_expandArrayLit___closed__9; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__40; lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__1; lean_object* l_Lean_Elab_Command_expandMutualPreamble___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMutual___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -114,30 +160,38 @@ lean_object* l_Lean_Elab_Command_elabCommand___main(lean_object*, lean_object*, lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_4__elabMutualInductive___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_isEmpty___rarg(lean_object*); lean_object* l___regBuiltin_Lean_Elab_Command_elabAttr___closed__1; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__31; extern lean_object* l___regBuiltin_Lean_Elab_Command_elabEnd___closed__2; uint8_t l_Lean_Elab_Command_isDefLike(lean_object*); lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__3; lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f(lean_object*); lean_object* l___private_Lean_Elab_Declaration_3__isMutualInductive___boxed(lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1___closed__2; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__27; lean_object* l_Lean_Elab_sortDeclLevelParams(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMutual___closed__2; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__4; extern lean_object* l___regBuiltin_Lean_Elab_Command_elabUniverses___closed__2; lean_object* l_ReaderT_bind___at_Lean_Elab_Term_monadLog___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__35; lean_object* l___regBuiltin_Lean_Elab_Command_elabAttr___closed__2; lean_object* l_Lean_Elab_Command_elabAxiom___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_expandDeclIdCore(lean_object*); lean_object* l_Lean_Elab_Command_elabAttr___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at_Lean_Elab_Command_elabAttr___spec__1(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_addMacroScope(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMutualPreamble(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabBinders___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwError___at_Lean_Meta_mkWHNFRef___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_nullKind___closed__2; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__19; lean_object* l_Lean_Elab_Command_expandMutualElement(lean_object*, lean_object*, lean_object*); uint8_t l___private_Lean_Elab_Declaration_3__isMutualInductive(lean_object*); lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualElement(lean_object*); extern lean_object* l___private_Lean_Meta_Match_Match_40__process___main___closed__1; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__36; +extern lean_object* l___private_Lean_Compiler_InitAttr_1__getIOTypeArg___closed__1; lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Elab_Declaration_5__isMutualDef___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_resetMessageLog(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__2; @@ -153,6 +207,7 @@ lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__2; lean_object* l_Lean_Syntax_setArg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMutual(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__8; +extern lean_object* l_Lean_Elab_Term_elabLetDeclCore___closed__6; lean_object* l_Lean_Elab_Command_getCurrMacroScope(lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1___closed__4; extern lean_object* l_Lean_SourceInfo_inhabited___closed__1; @@ -163,20 +218,28 @@ lean_object* l_Array_anyRangeMAux___main___at___private_Lean_Elab_Declaration_3_ lean_object* l_Lean_Elab_Term_applyAttributes(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__4; lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__5; +extern lean_object* l___private_Lean_Elab_Binders_12__expandFunBindersAux___main___closed__7; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__26; extern lean_object* l_Lean_Elab_Command_isDefLike___closed__6; lean_object* l_Lean_Elab_Command_getMainModule___rarg(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabStructure(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_resolveGlobalConstNoOverload___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__9; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__11; lean_object* l_Lean_Elab_Command_elabMutual___closed__3; lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_expandMutualNamespace___spec__1___closed__1; lean_object* l_Lean_Elab_Command_getRef(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_mkSimpleThunkType___closed__2; +extern lean_object* l_Lean_Elab_Tactic_evalIntro___closed__5; lean_object* l_Lean_Elab_expandDeclSig(lean_object*); lean_object* l_Lean_Elab_Term_elabType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_st_ref_set(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Command_4__getVarDecls(lean_object*); uint8_t l_Lean_Syntax_isNone(lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__10; +lean_object* l_Lean_Elab_Command_expandInitialize___closed__32; lean_object* l_Lean_Elab_Modifiers_addAttribute(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__12; lean_object* l_Lean_Macro_expandMacro_x3fImp(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_MetavarContext_MkBinding_mkBinding(uint8_t, lean_object*, lean_object*, lean_object*, uint8_t, uint8_t, lean_object*); lean_object* l_Lean_throwError___at___private_Lean_Elab_Command_3__elabCommandUsing___main___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); @@ -184,6 +247,7 @@ lean_object* l_Lean_Elab_Command_expandMutualNamespace(lean_object*, lean_object uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1___closed__5; lean_object* l_Lean_Elab_Command_expandMutualPreamble___closed__6; +extern lean_object* l_Lean_Elab_Command_isDefLike___closed__3; lean_object* l___regBuiltin_Lean_Elab_Command_expandMutualNamespace___closed__1; lean_object* l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__3; lean_object* l___private_Lean_Elab_Declaration_4__elabMutualInductive(lean_object*, lean_object*, lean_object*, lean_object*); @@ -205,13 +269,19 @@ extern lean_object* l___regBuiltin_Lean_Elab_Command_elabUniverse___closed__2; lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___spec__1___closed__6; extern lean_object* l_Array_myMacro____x40_Init_Data_Array_Macros___hyg_464____closed__12; lean_object* l_Lean_Elab_Command_elabAttr(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__20; lean_object* l_Lean_Elab_Command_elabDeclaration___closed__1; +extern lean_object* l_Lean_mkInitAttr___closed__2; lean_object* l___private_Lean_Elab_Declaration_1__inductiveSyntaxToView___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabDeclaration___closed__3; lean_object* l_Lean_Meta_mkForallUsedOnly___at_Lean_Elab_Command_elabAxiom___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Elab_Command_expandMutualNamespace___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_expandInitialize___closed__42; +extern lean_object* l_Lean_mkInitAttr___closed__1; lean_object* l_Lean_Elab_Command_checkValidInductiveModifier(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Command_expandInCmd___closed__2; +extern lean_object* l_Lean_Elab_Command_mkDefViewOfInstance___closed__3; +extern lean_object* l_Lean_Elab_Command_isDefLike___closed__7; lean_object* l_Lean_CollectLevelParams_main___main(lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Command_elabNamespace___closed__1; lean_object* l_Lean_Meta_mkForallFVars___at_Lean_Elab_Term_elabForall___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -5067,6 +5137,821 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); return x_5; } } +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("declModifiers"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Tactic_evalIntro___closed__5; +x_2 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__3; +x_2 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__4; +x_2 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__5; +x_2 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__6; +x_2 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__2; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__7; +x_3 = lean_alloc_ctor(1, 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_Elab_Command_expandInitialize___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__8; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_SourceInfo_inhabited___closed__1; +x_2 = l_Lean_Elab_Command_isDefLike___closed__3; +x_3 = lean_alloc_ctor(2, 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_Elab_Command_expandInitialize___closed__11() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__10; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__12() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("initFn"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__12; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__14() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Elab_Command_expandInitialize___closed__12; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Elab_Command_expandInitialize___closed__13; +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* _init_l_Lean_Elab_Command_expandInitialize___closed__15() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Command_expandInitialize___closed__12; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__16() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("optDeclSig"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__17() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__16; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__18() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Compiler_InitAttr_1__getIOTypeArg___closed__1; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__19() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l___private_Lean_Compiler_InitAttr_1__getIOTypeArg___closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Elab_Command_expandInitialize___closed__18; +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* _init_l_Lean_Elab_Command_expandInitialize___closed__20() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_KeyedDeclsAttribute_declareBuiltin___rarg___closed__3; +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* _init_l_Lean_Elab_Command_expandInitialize___closed__21() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Command_expandInitialize___closed__20; +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* _init_l_Lean_Elab_Command_expandInitialize___closed__22() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Array_myMacro____x40_Init_Data_Array_Macros___hyg_464____closed__14; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__23() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("do"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__24() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__23; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__25() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_SourceInfo_inhabited___closed__1; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__23; +x_3 = lean_alloc_ctor(2, 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_Elab_Command_expandInitialize___closed__26() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__25; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__27() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("attributes"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__28() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__27; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__29() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_SourceInfo_inhabited___closed__1; +x_2 = l_Lean_Elab_Attribute_hasFormat___closed__1; +x_3 = lean_alloc_ctor(2, 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_Elab_Command_expandInitialize___closed__30() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__29; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__31() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("attrInstance"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__32() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__6; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__31; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__33() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_mkInitAttr___closed__1; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__34() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_mkInitAttr___closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Elab_Command_expandInitialize___closed__33; +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* _init_l_Lean_Elab_Command_expandInitialize___closed__35() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_SourceInfo_inhabited___closed__1; +x_2 = l_Lean_Elab_Command_isDefLike___closed__7; +x_3 = lean_alloc_ctor(2, 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_Elab_Command_expandInitialize___closed__36() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_empty___closed__1; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__35; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__37() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("declSig"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__38() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2; +x_2 = l_Lean_Elab_Command_expandInitialize___closed__37; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__39() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_mkSimpleThunkType___closed__1; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Command_expandInitialize___closed__40() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_mkSimpleThunkType___closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Elab_Command_expandInitialize___closed__39; +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* _init_l_Lean_Elab_Command_expandInitialize___closed__41() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_mkSimpleThunkType___closed__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* _init_l_Lean_Elab_Command_expandInitialize___closed__42() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Command_expandInitialize___closed__41; +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_Elab_Command_expandInitialize(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; +x_4 = lean_unsigned_to_nat(1u); +x_5 = l_Lean_Syntax_getArg(x_1, x_4); +x_6 = lean_unsigned_to_nat(2u); +x_7 = l_Lean_Syntax_getArg(x_1, x_6); +x_8 = l_Lean_Syntax_isNone(x_5); +if (x_8 == 0) +{ +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; +x_9 = lean_unsigned_to_nat(0u); +x_10 = l_Lean_Syntax_getArg(x_5, x_9); +x_11 = l_Lean_Syntax_getArg(x_5, x_4); +lean_dec(x_5); +x_12 = l_Lean_Syntax_getArg(x_11, x_4); +lean_dec(x_11); +x_13 = lean_ctor_get(x_2, 2); +lean_inc(x_13); +x_14 = lean_ctor_get(x_2, 1); +lean_inc(x_14); +lean_dec(x_2); +x_15 = l_Lean_Elab_Command_expandInitialize___closed__15; +lean_inc(x_13); +lean_inc(x_14); +x_16 = l_Lean_addMacroScope(x_14, x_15, x_13); +x_17 = lean_box(0); +x_18 = l_Lean_SourceInfo_inhabited___closed__1; +x_19 = l_Lean_Elab_Command_expandInitialize___closed__14; +x_20 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_20, 0, x_18); +lean_ctor_set(x_20, 1, x_19); +lean_ctor_set(x_20, 2, x_16); +lean_ctor_set(x_20, 3, x_17); +x_21 = l_Array_empty___closed__1; +x_22 = lean_array_push(x_21, x_20); +x_23 = l___private_Lean_Elab_Quotation_8__letBindRhss___main___closed__13; +lean_inc(x_22); +x_24 = lean_array_push(x_22, x_23); +x_25 = l_Lean_Elab_Command_mkDefViewOfInstance___closed__3; +x_26 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_26, 0, x_25); +lean_ctor_set(x_26, 1, x_24); +x_27 = l_Lean_Elab_Command_expandInitialize___closed__11; +x_28 = lean_array_push(x_27, x_26); +x_29 = l_Lean_KeyedDeclsAttribute_declareBuiltin___rarg___closed__3; +lean_inc(x_13); +lean_inc(x_14); +x_30 = l_Lean_addMacroScope(x_14, x_29, x_13); +x_31 = l_Lean_Elab_Command_expandInitialize___closed__19; +x_32 = l_Lean_Elab_Command_expandInitialize___closed__21; +x_33 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_33, 0, x_18); +lean_ctor_set(x_33, 1, x_31); +lean_ctor_set(x_33, 2, x_30); +lean_ctor_set(x_33, 3, x_32); +x_34 = lean_array_push(x_21, x_33); +lean_inc(x_12); +x_35 = lean_array_push(x_21, x_12); +x_36 = l_Lean_nullKind___closed__2; +x_37 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_37, 0, x_36); +lean_ctor_set(x_37, 1, x_35); +x_38 = lean_array_push(x_34, x_37); +x_39 = l_Lean_mkAppStx___closed__8; +x_40 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_40, 0, x_39); +lean_ctor_set(x_40, 1, x_38); +x_41 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__10; +x_42 = lean_array_push(x_41, x_40); +x_43 = l_Lean_Elab_Term_elabLetDeclCore___closed__6; +x_44 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_44, 0, x_43); +lean_ctor_set(x_44, 1, x_42); +x_45 = lean_array_push(x_21, x_44); +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_36); +lean_ctor_set(x_46, 1, x_45); +x_47 = l_Lean_Elab_Tactic_evalIntro___closed__5; +x_48 = lean_array_push(x_47, x_46); +x_49 = l_Lean_Elab_Command_expandInitialize___closed__17; +x_50 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_50, 0, x_49); +lean_ctor_set(x_50, 1, x_48); +x_51 = lean_array_push(x_28, x_50); +x_52 = l_Lean_Elab_Command_expandInitialize___closed__26; +x_53 = lean_array_push(x_52, x_7); +x_54 = l_Lean_Elab_Command_expandInitialize___closed__24; +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_54); +lean_ctor_set(x_55, 1, x_53); +x_56 = l_Lean_Elab_Command_expandInitialize___closed__22; +x_57 = lean_array_push(x_56, x_55); +x_58 = l_Lean_Elab_Command_mkDefViewOfConstant___closed__8; +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_58); +lean_ctor_set(x_59, 1, x_57); +x_60 = lean_array_push(x_51, x_59); +x_61 = l_Lean_Elab_Command_isDefLike___closed__4; +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_61); +lean_ctor_set(x_62, 1, x_60); +x_63 = l_Lean_Elab_Command_expandInitialize___closed__9; +x_64 = lean_array_push(x_63, x_62); +x_65 = l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__2; +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_64); +x_67 = lean_array_push(x_21, x_66); +x_68 = l_Lean_mkInitAttr___closed__2; +x_69 = l_Lean_addMacroScope(x_14, x_68, x_13); +x_70 = l_Lean_Elab_Command_expandInitialize___closed__34; +x_71 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_71, 0, x_18); +lean_ctor_set(x_71, 1, x_70); +lean_ctor_set(x_71, 2, x_69); +lean_ctor_set(x_71, 3, x_17); +x_72 = lean_array_push(x_21, x_71); +x_73 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_73, 0, x_36); +lean_ctor_set(x_73, 1, x_22); +x_74 = lean_array_push(x_72, x_73); +x_75 = l_Lean_Elab_Command_expandInitialize___closed__32; +x_76 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_76, 0, x_75); +lean_ctor_set(x_76, 1, x_74); +x_77 = lean_array_push(x_21, x_76); +x_78 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_78, 0, x_36); +lean_ctor_set(x_78, 1, x_77); +x_79 = l_Lean_Elab_Command_expandInitialize___closed__30; +x_80 = lean_array_push(x_79, x_78); +x_81 = l_Lean_Elab_Term_expandArrayLit___closed__9; +x_82 = lean_array_push(x_80, x_81); +x_83 = l_Lean_Elab_Command_expandInitialize___closed__28; +x_84 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_84, 0, x_83); +lean_ctor_set(x_84, 1, x_82); +x_85 = lean_array_push(x_21, x_84); +x_86 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_86, 0, x_36); +lean_ctor_set(x_86, 1, x_85); +x_87 = lean_array_push(x_47, x_86); +x_88 = lean_array_push(x_87, x_23); +x_89 = lean_array_push(x_88, x_23); +x_90 = lean_array_push(x_89, x_23); +x_91 = lean_array_push(x_90, x_23); +x_92 = l_Lean_Elab_Command_expandInitialize___closed__2; +x_93 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_93, 0, x_92); +lean_ctor_set(x_93, 1, x_91); +x_94 = lean_array_push(x_21, x_93); +x_95 = l_Lean_Elab_Command_expandInitialize___closed__36; +x_96 = lean_array_push(x_95, x_10); +x_97 = lean_array_push(x_41, x_12); +x_98 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_98, 0, x_43); +lean_ctor_set(x_98, 1, x_97); +x_99 = lean_array_push(x_47, x_98); +x_100 = l_Lean_Elab_Command_expandInitialize___closed__38; +x_101 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_101, 0, x_100); +lean_ctor_set(x_101, 1, x_99); +x_102 = lean_array_push(x_96, x_101); +x_103 = lean_array_push(x_102, x_23); +x_104 = l_Lean_Elab_Command_isDefLike___closed__8; +x_105 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_105, 0, x_104); +lean_ctor_set(x_105, 1, x_103); +x_106 = lean_array_push(x_94, x_105); +x_107 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_107, 0, x_65); +lean_ctor_set(x_107, 1, x_106); +x_108 = lean_array_push(x_67, x_107); +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_36); +lean_ctor_set(x_109, 1, x_108); +x_110 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_110, 0, x_109); +lean_ctor_set(x_110, 1, x_3); +return x_110; +} +else +{ +lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; +lean_dec(x_5); +x_111 = lean_ctor_get(x_2, 2); +lean_inc(x_111); +x_112 = lean_ctor_get(x_2, 1); +lean_inc(x_112); +lean_dec(x_2); +x_113 = l_Lean_mkInitAttr___closed__2; +lean_inc(x_111); +lean_inc(x_112); +x_114 = l_Lean_addMacroScope(x_112, x_113, x_111); +x_115 = lean_box(0); +x_116 = l_Lean_SourceInfo_inhabited___closed__1; +x_117 = l_Lean_Elab_Command_expandInitialize___closed__34; +x_118 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_118, 0, x_116); +lean_ctor_set(x_118, 1, x_117); +lean_ctor_set(x_118, 2, x_114); +lean_ctor_set(x_118, 3, x_115); +x_119 = l_Array_empty___closed__1; +x_120 = lean_array_push(x_119, x_118); +x_121 = l_Array_myMacro____x40_Init_Data_Array_Macros___hyg_464____closed__12; +x_122 = lean_array_push(x_120, x_121); +x_123 = l_Lean_Elab_Command_expandInitialize___closed__32; +x_124 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_122); +x_125 = lean_array_push(x_119, x_124); +x_126 = l_Lean_nullKind___closed__2; +x_127 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_127, 0, x_126); +lean_ctor_set(x_127, 1, x_125); +x_128 = l_Lean_Elab_Command_expandInitialize___closed__30; +x_129 = lean_array_push(x_128, x_127); +x_130 = l_Lean_Elab_Term_expandArrayLit___closed__9; +x_131 = lean_array_push(x_129, x_130); +x_132 = l_Lean_Elab_Command_expandInitialize___closed__28; +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_131); +x_134 = lean_array_push(x_119, x_133); +x_135 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_135, 0, x_126); +lean_ctor_set(x_135, 1, x_134); +x_136 = l___private_Lean_Elab_Binders_12__expandFunBindersAux___main___closed__7; +x_137 = lean_array_push(x_136, x_135); +x_138 = lean_array_push(x_137, x_121); +x_139 = lean_array_push(x_138, x_121); +x_140 = lean_array_push(x_139, x_121); +x_141 = lean_array_push(x_140, x_121); +x_142 = l_Lean_Elab_Command_expandInitialize___closed__2; +x_143 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_143, 0, x_142); +lean_ctor_set(x_143, 1, x_141); +x_144 = lean_array_push(x_119, x_143); +x_145 = l_Lean_Elab_Command_expandInitialize___closed__15; +lean_inc(x_111); +lean_inc(x_112); +x_146 = l_Lean_addMacroScope(x_112, x_145, x_111); +x_147 = l_Lean_Elab_Command_expandInitialize___closed__14; +x_148 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_148, 0, x_116); +lean_ctor_set(x_148, 1, x_147); +lean_ctor_set(x_148, 2, x_146); +lean_ctor_set(x_148, 3, x_115); +x_149 = lean_array_push(x_119, x_148); +x_150 = lean_array_push(x_149, x_121); +x_151 = l_Lean_Elab_Command_mkDefViewOfInstance___closed__3; +x_152 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_152, 0, x_151); +lean_ctor_set(x_152, 1, x_150); +x_153 = l_Lean_Elab_Command_expandInitialize___closed__11; +x_154 = lean_array_push(x_153, x_152); +x_155 = l_Lean_KeyedDeclsAttribute_declareBuiltin___rarg___closed__3; +lean_inc(x_111); +lean_inc(x_112); +x_156 = l_Lean_addMacroScope(x_112, x_155, x_111); +x_157 = l_Lean_Elab_Command_expandInitialize___closed__19; +x_158 = l_Lean_Elab_Command_expandInitialize___closed__21; +x_159 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_159, 0, x_116); +lean_ctor_set(x_159, 1, x_157); +lean_ctor_set(x_159, 2, x_156); +lean_ctor_set(x_159, 3, x_158); +x_160 = lean_array_push(x_119, x_159); +x_161 = l_Lean_mkSimpleThunkType___closed__2; +x_162 = l_Lean_addMacroScope(x_112, x_161, x_111); +x_163 = l_Lean_Elab_Command_expandInitialize___closed__40; +x_164 = l_Lean_Elab_Command_expandInitialize___closed__42; +x_165 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_165, 0, x_116); +lean_ctor_set(x_165, 1, x_163); +lean_ctor_set(x_165, 2, x_162); +lean_ctor_set(x_165, 3, x_164); +x_166 = lean_array_push(x_119, x_165); +x_167 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_167, 0, x_126); +lean_ctor_set(x_167, 1, x_166); +x_168 = lean_array_push(x_160, x_167); +x_169 = l_Lean_mkAppStx___closed__8; +x_170 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_170, 0, x_169); +lean_ctor_set(x_170, 1, x_168); +x_171 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__10; +x_172 = lean_array_push(x_171, x_170); +x_173 = l_Lean_Elab_Term_elabLetDeclCore___closed__6; +x_174 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_174, 0, x_173); +lean_ctor_set(x_174, 1, x_172); +x_175 = lean_array_push(x_119, x_174); +x_176 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_176, 0, x_126); +lean_ctor_set(x_176, 1, x_175); +x_177 = lean_array_push(x_136, x_176); +x_178 = l_Lean_Elab_Command_expandInitialize___closed__17; +x_179 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_179, 0, x_178); +lean_ctor_set(x_179, 1, x_177); +x_180 = lean_array_push(x_154, x_179); +x_181 = l_Lean_Elab_Command_expandInitialize___closed__26; +x_182 = lean_array_push(x_181, x_7); +x_183 = l_Lean_Elab_Command_expandInitialize___closed__24; +x_184 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_184, 0, x_183); +lean_ctor_set(x_184, 1, x_182); +x_185 = l_Lean_Elab_Command_expandInitialize___closed__22; +x_186 = lean_array_push(x_185, x_184); +x_187 = l_Lean_Elab_Command_mkDefViewOfConstant___closed__8; +x_188 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_188, 0, x_187); +lean_ctor_set(x_188, 1, x_186); +x_189 = lean_array_push(x_180, x_188); +x_190 = l_Lean_Elab_Command_isDefLike___closed__4; +x_191 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_191, 0, x_190); +lean_ctor_set(x_191, 1, x_189); +x_192 = lean_array_push(x_144, x_191); +x_193 = l_Lean_Elab_Command_expandDeclNamespace_x3f___closed__2; +x_194 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_194, 0, x_193); +lean_ctor_set(x_194, 1, x_192); +x_195 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_195, 0, x_194); +lean_ctor_set(x_195, 1, x_3); +return x_195; +} +} +} +lean_object* l_Lean_Elab_Command_expandInitialize___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Elab_Command_expandInitialize(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* _init_l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("initialize"); +return x_1; +} +} +lean_object* _init_l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2; +x_2 = l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__3() { +_start: +{ +lean_object* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_Elab_Command_expandInitialize___boxed), 3, 0); +return x_1; +} +} +lean_object* l___regBuiltin_Lean_Elab_Command_expandInitialize(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_2 = l_Lean_Elab_macroAttribute; +x_3 = l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__2; +x_4 = l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__3; +x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1); +return x_5; +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Util_CollectLevelParams(lean_object*); lean_object* initialize_Lean_Elab_DeclUtil(lean_object*); @@ -5208,6 +6093,99 @@ lean_mark_persistent(l___regBuiltin_Lean_Elab_Command_elabAttr___closed__3); res = l___regBuiltin_Lean_Elab_Command_elabAttr(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); +l_Lean_Elab_Command_expandInitialize___closed__1 = _init_l_Lean_Elab_Command_expandInitialize___closed__1(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__1); +l_Lean_Elab_Command_expandInitialize___closed__2 = _init_l_Lean_Elab_Command_expandInitialize___closed__2(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__2); +l_Lean_Elab_Command_expandInitialize___closed__3 = _init_l_Lean_Elab_Command_expandInitialize___closed__3(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__3); +l_Lean_Elab_Command_expandInitialize___closed__4 = _init_l_Lean_Elab_Command_expandInitialize___closed__4(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__4); +l_Lean_Elab_Command_expandInitialize___closed__5 = _init_l_Lean_Elab_Command_expandInitialize___closed__5(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__5); +l_Lean_Elab_Command_expandInitialize___closed__6 = _init_l_Lean_Elab_Command_expandInitialize___closed__6(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__6); +l_Lean_Elab_Command_expandInitialize___closed__7 = _init_l_Lean_Elab_Command_expandInitialize___closed__7(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__7); +l_Lean_Elab_Command_expandInitialize___closed__8 = _init_l_Lean_Elab_Command_expandInitialize___closed__8(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__8); +l_Lean_Elab_Command_expandInitialize___closed__9 = _init_l_Lean_Elab_Command_expandInitialize___closed__9(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__9); +l_Lean_Elab_Command_expandInitialize___closed__10 = _init_l_Lean_Elab_Command_expandInitialize___closed__10(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__10); +l_Lean_Elab_Command_expandInitialize___closed__11 = _init_l_Lean_Elab_Command_expandInitialize___closed__11(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__11); +l_Lean_Elab_Command_expandInitialize___closed__12 = _init_l_Lean_Elab_Command_expandInitialize___closed__12(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__12); +l_Lean_Elab_Command_expandInitialize___closed__13 = _init_l_Lean_Elab_Command_expandInitialize___closed__13(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__13); +l_Lean_Elab_Command_expandInitialize___closed__14 = _init_l_Lean_Elab_Command_expandInitialize___closed__14(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__14); +l_Lean_Elab_Command_expandInitialize___closed__15 = _init_l_Lean_Elab_Command_expandInitialize___closed__15(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__15); +l_Lean_Elab_Command_expandInitialize___closed__16 = _init_l_Lean_Elab_Command_expandInitialize___closed__16(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__16); +l_Lean_Elab_Command_expandInitialize___closed__17 = _init_l_Lean_Elab_Command_expandInitialize___closed__17(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__17); +l_Lean_Elab_Command_expandInitialize___closed__18 = _init_l_Lean_Elab_Command_expandInitialize___closed__18(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__18); +l_Lean_Elab_Command_expandInitialize___closed__19 = _init_l_Lean_Elab_Command_expandInitialize___closed__19(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__19); +l_Lean_Elab_Command_expandInitialize___closed__20 = _init_l_Lean_Elab_Command_expandInitialize___closed__20(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__20); +l_Lean_Elab_Command_expandInitialize___closed__21 = _init_l_Lean_Elab_Command_expandInitialize___closed__21(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__21); +l_Lean_Elab_Command_expandInitialize___closed__22 = _init_l_Lean_Elab_Command_expandInitialize___closed__22(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__22); +l_Lean_Elab_Command_expandInitialize___closed__23 = _init_l_Lean_Elab_Command_expandInitialize___closed__23(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__23); +l_Lean_Elab_Command_expandInitialize___closed__24 = _init_l_Lean_Elab_Command_expandInitialize___closed__24(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__24); +l_Lean_Elab_Command_expandInitialize___closed__25 = _init_l_Lean_Elab_Command_expandInitialize___closed__25(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__25); +l_Lean_Elab_Command_expandInitialize___closed__26 = _init_l_Lean_Elab_Command_expandInitialize___closed__26(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__26); +l_Lean_Elab_Command_expandInitialize___closed__27 = _init_l_Lean_Elab_Command_expandInitialize___closed__27(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__27); +l_Lean_Elab_Command_expandInitialize___closed__28 = _init_l_Lean_Elab_Command_expandInitialize___closed__28(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__28); +l_Lean_Elab_Command_expandInitialize___closed__29 = _init_l_Lean_Elab_Command_expandInitialize___closed__29(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__29); +l_Lean_Elab_Command_expandInitialize___closed__30 = _init_l_Lean_Elab_Command_expandInitialize___closed__30(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__30); +l_Lean_Elab_Command_expandInitialize___closed__31 = _init_l_Lean_Elab_Command_expandInitialize___closed__31(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__31); +l_Lean_Elab_Command_expandInitialize___closed__32 = _init_l_Lean_Elab_Command_expandInitialize___closed__32(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__32); +l_Lean_Elab_Command_expandInitialize___closed__33 = _init_l_Lean_Elab_Command_expandInitialize___closed__33(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__33); +l_Lean_Elab_Command_expandInitialize___closed__34 = _init_l_Lean_Elab_Command_expandInitialize___closed__34(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__34); +l_Lean_Elab_Command_expandInitialize___closed__35 = _init_l_Lean_Elab_Command_expandInitialize___closed__35(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__35); +l_Lean_Elab_Command_expandInitialize___closed__36 = _init_l_Lean_Elab_Command_expandInitialize___closed__36(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__36); +l_Lean_Elab_Command_expandInitialize___closed__37 = _init_l_Lean_Elab_Command_expandInitialize___closed__37(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__37); +l_Lean_Elab_Command_expandInitialize___closed__38 = _init_l_Lean_Elab_Command_expandInitialize___closed__38(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__38); +l_Lean_Elab_Command_expandInitialize___closed__39 = _init_l_Lean_Elab_Command_expandInitialize___closed__39(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__39); +l_Lean_Elab_Command_expandInitialize___closed__40 = _init_l_Lean_Elab_Command_expandInitialize___closed__40(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__40); +l_Lean_Elab_Command_expandInitialize___closed__41 = _init_l_Lean_Elab_Command_expandInitialize___closed__41(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__41); +l_Lean_Elab_Command_expandInitialize___closed__42 = _init_l_Lean_Elab_Command_expandInitialize___closed__42(); +lean_mark_persistent(l_Lean_Elab_Command_expandInitialize___closed__42); +l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__1 = _init_l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__1(); +lean_mark_persistent(l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__1); +l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__2 = _init_l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__2(); +lean_mark_persistent(l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__2); +l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__3 = _init_l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__3(); +lean_mark_persistent(l___regBuiltin_Lean_Elab_Command_expandInitialize___closed__3); +res = l___regBuiltin_Lean_Elab_Command_expandInitialize(lean_io_mk_world()); +if (lean_io_result_is_error(res)) return res; +lean_dec_ref(res); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Parser/Command.c b/stage0/stdlib/Lean/Parser/Command.c index 40533829fe..8dae11a176 100644 --- a/stage0/stdlib/Lean/Parser/Command.c +++ b/stage0/stdlib/Lean/Parser/Command.c @@ -586,6 +586,7 @@ lean_object* l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2 lean_object* l_Lean_Parser_Command_extends___closed__3; lean_object* l_Lean_Parser_Command_declSig___closed__4; lean_object* l_Lean_Parser_Command_declValEqns___closed__4; +lean_object* l_Lean_Parser_Command_initialize_formatter___closed__9; lean_object* l_Lean_Parser_Command_constant___closed__7; lean_object* l_Lean_Parser_Command_def___closed__6; lean_object* l_Lean_Parser_Command_section_formatter___closed__1; @@ -2331,6 +2332,7 @@ extern lean_object* l_Lean_Parser_Term_attrArg_formatter___closed__1; lean_object* l___regBuiltinParser_Lean_Parser_Command_synth(lean_object*); lean_object* l_Lean_Parser_Command_classTk_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_abbrev_parenthesizer___closed__8; +lean_object* l_Lean_Parser_Command_initialize_parenthesizer___closed__8; lean_object* l_Lean_Parser_Command_declValEqns_formatter___closed__1; lean_object* l_Lean_Parser_Command_structure_formatter___closed__15; lean_object* l_Lean_Parser_Command_export_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -51037,68 +51039,68 @@ x_8 = lean_ctor_get(x_7, 3); lean_inc(x_8); if (lean_obj_tag(x_8) == 0) { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_54; lean_object* x_55; lean_object* x_56; +lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_84; lean_object* x_85; lean_object* x_86; x_9 = lean_ctor_get(x_7, 0); lean_inc(x_9); x_10 = lean_array_get_size(x_9); lean_dec(x_9); -x_54 = lean_ctor_get(x_7, 1); -lean_inc(x_54); +x_84 = lean_ctor_get(x_7, 1); +lean_inc(x_84); lean_inc(x_1); -x_55 = l_Lean_Parser_tokenFn(x_1, x_7); -x_56 = lean_ctor_get(x_55, 3); -lean_inc(x_56); -if (lean_obj_tag(x_56) == 0) +x_85 = l_Lean_Parser_tokenFn(x_1, x_7); +x_86 = lean_ctor_get(x_85, 3); +lean_inc(x_86); +if (lean_obj_tag(x_86) == 0) { -lean_object* x_57; lean_object* x_58; -x_57 = lean_ctor_get(x_55, 0); -lean_inc(x_57); -x_58 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_57); -lean_dec(x_57); -if (lean_obj_tag(x_58) == 2) +lean_object* x_87; lean_object* x_88; +x_87 = lean_ctor_get(x_85, 0); +lean_inc(x_87); +x_88 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_87); +lean_dec(x_87); +if (lean_obj_tag(x_88) == 2) { -lean_object* x_59; lean_object* x_60; uint8_t x_61; -x_59 = lean_ctor_get(x_58, 1); -lean_inc(x_59); -lean_dec(x_58); -x_60 = l_Lean_Parser_Command_initialize___elambda__1___closed__6; -x_61 = lean_string_dec_eq(x_59, x_60); -lean_dec(x_59); -if (x_61 == 0) +lean_object* x_89; lean_object* x_90; uint8_t x_91; +x_89 = lean_ctor_get(x_88, 1); +lean_inc(x_89); +lean_dec(x_88); +x_90 = l_Lean_Parser_Command_initialize___elambda__1___closed__6; +x_91 = lean_string_dec_eq(x_89, x_90); +lean_dec(x_89); +if (x_91 == 0) { -lean_object* x_62; lean_object* x_63; -x_62 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; -x_63 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_62, x_54); -x_11 = x_63; -goto block_53; +lean_object* x_92; lean_object* x_93; +x_92 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; +x_93 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_92, x_84); +x_11 = x_93; +goto block_83; } else { -lean_dec(x_54); -x_11 = x_55; -goto block_53; +lean_dec(x_84); +x_11 = x_85; +goto block_83; } } else { -lean_object* x_64; lean_object* x_65; -lean_dec(x_58); -x_64 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; -x_65 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_64, x_54); -x_11 = x_65; -goto block_53; +lean_object* x_94; lean_object* x_95; +lean_dec(x_88); +x_94 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; +x_95 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_94, x_84); +x_11 = x_95; +goto block_83; } } else { -lean_object* x_66; lean_object* x_67; -lean_dec(x_56); -x_66 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; -x_67 = l_Lean_Parser_ParserState_mkErrorsAt(x_55, x_66, x_54); -x_11 = x_67; -goto block_53; +lean_object* x_96; lean_object* x_97; +lean_dec(x_86); +x_96 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; +x_97 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_96, x_84); +x_11 = x_97; +goto block_83; } -block_53: +block_83: { lean_object* x_12; x_12 = lean_ctor_get(x_11, 3); @@ -51108,10 +51110,10 @@ if (lean_obj_tag(x_12) == 0) lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_46; lean_object* x_47; x_13 = lean_ctor_get(x_11, 0); lean_inc(x_13); -x_14 = lean_array_get_size(x_13); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_array_get_size(x_13); lean_dec(x_13); -x_15 = lean_ctor_get(x_11, 1); -lean_inc(x_15); lean_inc(x_1); x_46 = l_Lean_Parser_ident___elambda__1(x_1, x_11); x_47 = lean_ctor_get(x_46, 3); @@ -51125,25 +51127,156 @@ x_49 = lean_ctor_get(x_48, 3); lean_inc(x_49); if (lean_obj_tag(x_49) == 0) { -lean_object* x_50; +lean_object* x_50; lean_object* x_51; lean_inc(x_1); x_50 = l_Lean_Parser_Term_leftArrow___elambda__1(x_1, x_48); +x_51 = lean_ctor_get(x_50, 3); +lean_inc(x_51); +if (lean_obj_tag(x_51) == 0) +{ x_16 = x_50; goto block_45; } else { -lean_dec(x_49); -x_16 = x_48; +uint8_t x_52; +x_52 = !lean_is_exclusive(x_50); +if (x_52 == 0) +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_53 = lean_ctor_get(x_50, 0); +x_54 = lean_ctor_get(x_50, 3); +lean_dec(x_54); +x_55 = lean_ctor_get(x_50, 1); +lean_dec(x_55); +x_56 = l_Array_shrink___main___rarg(x_53, x_15); +lean_inc(x_14); +lean_ctor_set(x_50, 1, x_14); +lean_ctor_set(x_50, 0, x_56); +x_16 = x_50; goto block_45; } +else +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_57 = lean_ctor_get(x_50, 0); +x_58 = lean_ctor_get(x_50, 2); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_50); +x_59 = l_Array_shrink___main___rarg(x_57, x_15); +lean_inc(x_14); +x_60 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_60, 0, x_59); +lean_ctor_set(x_60, 1, x_14); +lean_ctor_set(x_60, 2, x_58); +lean_ctor_set(x_60, 3, x_51); +x_16 = x_60; +goto block_45; +} +} } else { +lean_object* x_61; +lean_dec(x_49); +x_61 = lean_ctor_get(x_48, 3); +lean_inc(x_61); +if (lean_obj_tag(x_61) == 0) +{ +x_16 = x_48; +goto block_45; +} +else +{ +uint8_t x_62; +x_62 = !lean_is_exclusive(x_48); +if (x_62 == 0) +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_63 = lean_ctor_get(x_48, 0); +x_64 = lean_ctor_get(x_48, 3); +lean_dec(x_64); +x_65 = lean_ctor_get(x_48, 1); +lean_dec(x_65); +x_66 = l_Array_shrink___main___rarg(x_63, x_15); +lean_inc(x_14); +lean_ctor_set(x_48, 1, x_14); +lean_ctor_set(x_48, 0, x_66); +x_16 = x_48; +goto block_45; +} +else +{ +lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +x_67 = lean_ctor_get(x_48, 0); +x_68 = lean_ctor_get(x_48, 2); +lean_inc(x_68); +lean_inc(x_67); +lean_dec(x_48); +x_69 = l_Array_shrink___main___rarg(x_67, x_15); +lean_inc(x_14); +x_70 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_14); +lean_ctor_set(x_70, 2, x_68); +lean_ctor_set(x_70, 3, x_61); +x_16 = x_70; +goto block_45; +} +} +} +} +else +{ +lean_object* x_71; lean_dec(x_47); +x_71 = lean_ctor_get(x_46, 3); +lean_inc(x_71); +if (lean_obj_tag(x_71) == 0) +{ x_16 = x_46; goto block_45; } +else +{ +uint8_t x_72; +x_72 = !lean_is_exclusive(x_46); +if (x_72 == 0) +{ +lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; +x_73 = lean_ctor_get(x_46, 0); +x_74 = lean_ctor_get(x_46, 3); +lean_dec(x_74); +x_75 = lean_ctor_get(x_46, 1); +lean_dec(x_75); +x_76 = l_Array_shrink___main___rarg(x_73, x_15); +lean_inc(x_14); +lean_ctor_set(x_46, 1, x_14); +lean_ctor_set(x_46, 0, x_76); +x_16 = x_46; +goto block_45; +} +else +{ +lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; +x_77 = lean_ctor_get(x_46, 0); +x_78 = lean_ctor_get(x_46, 2); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_46); +x_79 = l_Array_shrink___main___rarg(x_77, x_15); +lean_inc(x_14); +x_80 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_14); +lean_ctor_set(x_80, 2, x_78); +lean_ctor_set(x_80, 3, x_71); +x_16 = x_80; +goto block_45; +} +} +} block_45: { lean_object* x_17; @@ -51152,9 +51285,9 @@ lean_inc(x_17); if (lean_obj_tag(x_17) == 0) { lean_object* x_18; lean_object* x_19; lean_object* x_20; -lean_dec(x_15); +lean_dec(x_14); x_18 = l_Lean_nullKind; -x_19 = l_Lean_Parser_ParserState_mkNode(x_16, x_18, x_14); +x_19 = l_Lean_Parser_ParserState_mkNode(x_16, x_18, x_15); x_20 = lean_ctor_get(x_19, 3); lean_inc(x_20); if (lean_obj_tag(x_20) == 0) @@ -51181,14 +51314,14 @@ lean_object* x_26; uint8_t x_27; lean_dec(x_17); x_26 = lean_ctor_get(x_16, 1); lean_inc(x_26); -x_27 = lean_nat_dec_eq(x_26, x_15); +x_27 = lean_nat_dec_eq(x_26, x_14); lean_dec(x_26); if (x_27 == 0) { lean_object* x_28; lean_object* x_29; lean_object* x_30; -lean_dec(x_15); +lean_dec(x_14); x_28 = l_Lean_nullKind; -x_29 = l_Lean_Parser_ParserState_mkNode(x_16, x_28, x_14); +x_29 = l_Lean_Parser_ParserState_mkNode(x_16, x_28, x_15); x_30 = lean_ctor_get(x_29, 3); lean_inc(x_30); if (lean_obj_tag(x_30) == 0) @@ -51212,9 +51345,9 @@ return x_35; else { lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_36 = l_Lean_Parser_ParserState_restore(x_16, x_14, x_15); +x_36 = l_Lean_Parser_ParserState_restore(x_16, x_15, x_14); x_37 = l_Lean_nullKind; -x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_14); +x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_15); x_39 = lean_ctor_get(x_38, 3); lean_inc(x_39); if (lean_obj_tag(x_39) == 0) @@ -51240,12 +51373,12 @@ return x_44; } else { -lean_object* x_51; lean_object* x_52; +lean_object* x_81; lean_object* x_82; lean_dec(x_12); lean_dec(x_1); -x_51 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_52 = l_Lean_Parser_ParserState_mkNode(x_11, x_51, x_10); -return x_52; +x_81 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_82 = l_Lean_Parser_ParserState_mkNode(x_11, x_81, x_10); +return x_82; } } } @@ -51258,268 +51391,399 @@ return x_7; } else { -lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; -x_68 = lean_ctor_get(x_2, 0); -lean_inc(x_68); -x_69 = lean_array_get_size(x_68); -lean_dec(x_68); -x_70 = lean_ctor_get(x_2, 1); -lean_inc(x_70); +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; +x_98 = lean_ctor_get(x_2, 0); +lean_inc(x_98); +x_99 = lean_array_get_size(x_98); +lean_dec(x_98); +x_100 = lean_ctor_get(x_2, 1); +lean_inc(x_100); lean_inc(x_1); -x_71 = lean_apply_2(x_4, x_1, x_2); -x_72 = lean_ctor_get(x_71, 3); -lean_inc(x_72); -if (lean_obj_tag(x_72) == 0) +x_101 = lean_apply_2(x_4, x_1, x_2); +x_102 = lean_ctor_get(x_101, 3); +lean_inc(x_102); +if (lean_obj_tag(x_102) == 0) { -lean_dec(x_70); -lean_dec(x_69); +lean_dec(x_100); +lean_dec(x_99); lean_dec(x_1); -return x_71; +return x_101; } else { -lean_object* x_73; lean_object* x_74; uint8_t x_75; -x_73 = lean_ctor_get(x_72, 0); -lean_inc(x_73); -lean_dec(x_72); -x_74 = lean_ctor_get(x_71, 1); -lean_inc(x_74); -x_75 = lean_nat_dec_eq(x_74, x_70); -lean_dec(x_74); -if (x_75 == 0) +lean_object* x_103; lean_object* x_104; uint8_t x_105; +x_103 = lean_ctor_get(x_102, 0); +lean_inc(x_103); +lean_dec(x_102); +x_104 = lean_ctor_get(x_101, 1); +lean_inc(x_104); +x_105 = lean_nat_dec_eq(x_104, x_100); +lean_dec(x_104); +if (x_105 == 0) { -lean_dec(x_73); -lean_dec(x_70); -lean_dec(x_69); +lean_dec(x_103); +lean_dec(x_100); +lean_dec(x_99); lean_dec(x_1); -return x_71; +return x_101; } else { -lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; -lean_inc(x_70); -x_76 = l_Lean_Parser_ParserState_restore(x_71, x_69, x_70); -lean_dec(x_69); -x_77 = lean_unsigned_to_nat(1024u); -x_78 = l_Lean_Parser_checkPrecFn(x_77, x_1, x_76); -x_79 = lean_ctor_get(x_78, 3); -lean_inc(x_79); -if (lean_obj_tag(x_79) == 0) +lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; +lean_inc(x_100); +x_106 = l_Lean_Parser_ParserState_restore(x_101, x_99, x_100); +lean_dec(x_99); +x_107 = lean_unsigned_to_nat(1024u); +x_108 = l_Lean_Parser_checkPrecFn(x_107, x_1, x_106); +x_109 = lean_ctor_get(x_108, 3); +lean_inc(x_109); +if (lean_obj_tag(x_109) == 0) { -lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_139; lean_object* x_140; lean_object* x_141; -x_80 = lean_ctor_get(x_78, 0); -lean_inc(x_80); -x_81 = lean_array_get_size(x_80); -lean_dec(x_80); -x_139 = lean_ctor_get(x_78, 1); -lean_inc(x_139); +lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_199; lean_object* x_200; lean_object* x_201; +x_110 = lean_ctor_get(x_108, 0); +lean_inc(x_110); +x_111 = lean_array_get_size(x_110); +lean_dec(x_110); +x_199 = lean_ctor_get(x_108, 1); +lean_inc(x_199); lean_inc(x_1); -x_140 = l_Lean_Parser_tokenFn(x_1, x_78); -x_141 = lean_ctor_get(x_140, 3); -lean_inc(x_141); -if (lean_obj_tag(x_141) == 0) +x_200 = l_Lean_Parser_tokenFn(x_1, x_108); +x_201 = lean_ctor_get(x_200, 3); +lean_inc(x_201); +if (lean_obj_tag(x_201) == 0) { -lean_object* x_142; lean_object* x_143; -x_142 = lean_ctor_get(x_140, 0); -lean_inc(x_142); -x_143 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_142); -lean_dec(x_142); -if (lean_obj_tag(x_143) == 2) +lean_object* x_202; lean_object* x_203; +x_202 = lean_ctor_get(x_200, 0); +lean_inc(x_202); +x_203 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_202); +lean_dec(x_202); +if (lean_obj_tag(x_203) == 2) { -lean_object* x_144; lean_object* x_145; uint8_t x_146; -x_144 = lean_ctor_get(x_143, 1); -lean_inc(x_144); -lean_dec(x_143); -x_145 = l_Lean_Parser_Command_initialize___elambda__1___closed__6; -x_146 = lean_string_dec_eq(x_144, x_145); -lean_dec(x_144); -if (x_146 == 0) +lean_object* x_204; lean_object* x_205; uint8_t x_206; +x_204 = lean_ctor_get(x_203, 1); +lean_inc(x_204); +lean_dec(x_203); +x_205 = l_Lean_Parser_Command_initialize___elambda__1___closed__6; +x_206 = lean_string_dec_eq(x_204, x_205); +lean_dec(x_204); +if (x_206 == 0) { -lean_object* x_147; lean_object* x_148; -x_147 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; -x_148 = l_Lean_Parser_ParserState_mkErrorsAt(x_140, x_147, x_139); -x_82 = x_148; -goto block_138; +lean_object* x_207; lean_object* x_208; +x_207 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; +x_208 = l_Lean_Parser_ParserState_mkErrorsAt(x_200, x_207, x_199); +x_112 = x_208; +goto block_198; } else { -lean_dec(x_139); -x_82 = x_140; -goto block_138; +lean_dec(x_199); +x_112 = x_200; +goto block_198; } } else { -lean_object* x_149; lean_object* x_150; -lean_dec(x_143); -x_149 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; -x_150 = l_Lean_Parser_ParserState_mkErrorsAt(x_140, x_149, x_139); -x_82 = x_150; -goto block_138; +lean_object* x_209; lean_object* x_210; +lean_dec(x_203); +x_209 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; +x_210 = l_Lean_Parser_ParserState_mkErrorsAt(x_200, x_209, x_199); +x_112 = x_210; +goto block_198; } } else { -lean_object* x_151; lean_object* x_152; -lean_dec(x_141); -x_151 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; -x_152 = l_Lean_Parser_ParserState_mkErrorsAt(x_140, x_151, x_139); -x_82 = x_152; -goto block_138; +lean_object* x_211; lean_object* x_212; +lean_dec(x_201); +x_211 = l_Lean_Parser_Command_initialize___elambda__1___closed__9; +x_212 = l_Lean_Parser_ParserState_mkErrorsAt(x_200, x_211, x_199); +x_112 = x_212; +goto block_198; } -block_138: +block_198: { -lean_object* x_83; -x_83 = lean_ctor_get(x_82, 3); -lean_inc(x_83); -if (lean_obj_tag(x_83) == 0) +lean_object* x_113; +x_113 = lean_ctor_get(x_112, 3); +lean_inc(x_113); +if (lean_obj_tag(x_113) == 0) { -lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_129; lean_object* x_130; -x_84 = lean_ctor_get(x_82, 0); -lean_inc(x_84); -x_85 = lean_array_get_size(x_84); -lean_dec(x_84); -x_86 = lean_ctor_get(x_82, 1); -lean_inc(x_86); +lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_159; lean_object* x_160; +x_114 = lean_ctor_get(x_112, 0); +lean_inc(x_114); +x_115 = lean_ctor_get(x_112, 1); +lean_inc(x_115); +x_116 = lean_array_get_size(x_114); +lean_dec(x_114); lean_inc(x_1); -x_129 = l_Lean_Parser_ident___elambda__1(x_1, x_82); -x_130 = lean_ctor_get(x_129, 3); -lean_inc(x_130); -if (lean_obj_tag(x_130) == 0) +x_159 = l_Lean_Parser_ident___elambda__1(x_1, x_112); +x_160 = lean_ctor_get(x_159, 3); +lean_inc(x_160); +if (lean_obj_tag(x_160) == 0) { -lean_object* x_131; lean_object* x_132; +lean_object* x_161; lean_object* x_162; lean_inc(x_1); -x_131 = l_Lean_Parser_Term_typeSpec___elambda__1(x_1, x_129); -x_132 = lean_ctor_get(x_131, 3); -lean_inc(x_132); -if (lean_obj_tag(x_132) == 0) +x_161 = l_Lean_Parser_Term_typeSpec___elambda__1(x_1, x_159); +x_162 = lean_ctor_get(x_161, 3); +lean_inc(x_162); +if (lean_obj_tag(x_162) == 0) { -lean_object* x_133; +lean_object* x_163; lean_object* x_164; lean_inc(x_1); -x_133 = l_Lean_Parser_Term_leftArrow___elambda__1(x_1, x_131); -x_87 = x_133; -goto block_128; +x_163 = l_Lean_Parser_Term_leftArrow___elambda__1(x_1, x_161); +x_164 = lean_ctor_get(x_163, 3); +lean_inc(x_164); +if (lean_obj_tag(x_164) == 0) +{ +x_117 = x_163; +goto block_158; } else { -lean_dec(x_132); -x_87 = x_131; -goto block_128; +uint8_t x_165; +x_165 = !lean_is_exclusive(x_163); +if (x_165 == 0) +{ +lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; +x_166 = lean_ctor_get(x_163, 0); +x_167 = lean_ctor_get(x_163, 3); +lean_dec(x_167); +x_168 = lean_ctor_get(x_163, 1); +lean_dec(x_168); +x_169 = l_Array_shrink___main___rarg(x_166, x_116); +lean_inc(x_115); +lean_ctor_set(x_163, 1, x_115); +lean_ctor_set(x_163, 0, x_169); +x_117 = x_163; +goto block_158; +} +else +{ +lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; +x_170 = lean_ctor_get(x_163, 0); +x_171 = lean_ctor_get(x_163, 2); +lean_inc(x_171); +lean_inc(x_170); +lean_dec(x_163); +x_172 = l_Array_shrink___main___rarg(x_170, x_116); +lean_inc(x_115); +x_173 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_173, 0, x_172); +lean_ctor_set(x_173, 1, x_115); +lean_ctor_set(x_173, 2, x_171); +lean_ctor_set(x_173, 3, x_164); +x_117 = x_173; +goto block_158; +} } } else { -lean_dec(x_130); -x_87 = x_129; -goto block_128; -} -block_128: +lean_object* x_174; +lean_dec(x_162); +x_174 = lean_ctor_get(x_161, 3); +lean_inc(x_174); +if (lean_obj_tag(x_174) == 0) { -lean_object* x_88; -x_88 = lean_ctor_get(x_87, 3); -lean_inc(x_88); -if (lean_obj_tag(x_88) == 0) -{ -lean_object* x_89; lean_object* x_90; lean_object* x_91; -lean_dec(x_86); -x_89 = l_Lean_nullKind; -x_90 = l_Lean_Parser_ParserState_mkNode(x_87, x_89, x_85); -x_91 = lean_ctor_get(x_90, 3); -lean_inc(x_91); -if (lean_obj_tag(x_91) == 0) -{ -lean_object* x_92; lean_object* x_93; lean_object* x_94; uint8_t x_95; lean_object* x_96; -x_92 = l_Lean_Parser_Term_doSeq___elambda__1(x_1, x_90); -x_93 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_94 = l_Lean_Parser_ParserState_mkNode(x_92, x_93, x_81); -x_95 = 1; -x_96 = l_Lean_Parser_mergeOrElseErrors(x_94, x_73, x_70, x_95); -lean_dec(x_70); -return x_96; +x_117 = x_161; +goto block_158; } else { -lean_object* x_97; lean_object* x_98; uint8_t x_99; lean_object* x_100; -lean_dec(x_91); -lean_dec(x_1); -x_97 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_98 = l_Lean_Parser_ParserState_mkNode(x_90, x_97, x_81); -x_99 = 1; -x_100 = l_Lean_Parser_mergeOrElseErrors(x_98, x_73, x_70, x_99); -lean_dec(x_70); -return x_100; +uint8_t x_175; +x_175 = !lean_is_exclusive(x_161); +if (x_175 == 0) +{ +lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; +x_176 = lean_ctor_get(x_161, 0); +x_177 = lean_ctor_get(x_161, 3); +lean_dec(x_177); +x_178 = lean_ctor_get(x_161, 1); +lean_dec(x_178); +x_179 = l_Array_shrink___main___rarg(x_176, x_116); +lean_inc(x_115); +lean_ctor_set(x_161, 1, x_115); +lean_ctor_set(x_161, 0, x_179); +x_117 = x_161; +goto block_158; +} +else +{ +lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; +x_180 = lean_ctor_get(x_161, 0); +x_181 = lean_ctor_get(x_161, 2); +lean_inc(x_181); +lean_inc(x_180); +lean_dec(x_161); +x_182 = l_Array_shrink___main___rarg(x_180, x_116); +lean_inc(x_115); +x_183 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_183, 0, x_182); +lean_ctor_set(x_183, 1, x_115); +lean_ctor_set(x_183, 2, x_181); +lean_ctor_set(x_183, 3, x_174); +x_117 = x_183; +goto block_158; +} +} } } else { -lean_object* x_101; uint8_t x_102; -lean_dec(x_88); -x_101 = lean_ctor_get(x_87, 1); -lean_inc(x_101); -x_102 = lean_nat_dec_eq(x_101, x_86); -lean_dec(x_101); -if (x_102 == 0) +lean_object* x_184; +lean_dec(x_160); +x_184 = lean_ctor_get(x_159, 3); +lean_inc(x_184); +if (lean_obj_tag(x_184) == 0) { -lean_object* x_103; lean_object* x_104; lean_object* x_105; -lean_dec(x_86); -x_103 = l_Lean_nullKind; -x_104 = l_Lean_Parser_ParserState_mkNode(x_87, x_103, x_85); -x_105 = lean_ctor_get(x_104, 3); -lean_inc(x_105); -if (lean_obj_tag(x_105) == 0) -{ -lean_object* x_106; lean_object* x_107; lean_object* x_108; uint8_t x_109; lean_object* x_110; -x_106 = l_Lean_Parser_Term_doSeq___elambda__1(x_1, x_104); -x_107 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_108 = l_Lean_Parser_ParserState_mkNode(x_106, x_107, x_81); -x_109 = 1; -x_110 = l_Lean_Parser_mergeOrElseErrors(x_108, x_73, x_70, x_109); -lean_dec(x_70); -return x_110; +x_117 = x_159; +goto block_158; } else { -lean_object* x_111; lean_object* x_112; uint8_t x_113; lean_object* x_114; -lean_dec(x_105); -lean_dec(x_1); -x_111 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_112 = l_Lean_Parser_ParserState_mkNode(x_104, x_111, x_81); -x_113 = 1; -x_114 = l_Lean_Parser_mergeOrElseErrors(x_112, x_73, x_70, x_113); -lean_dec(x_70); -return x_114; -} +uint8_t x_185; +x_185 = !lean_is_exclusive(x_159); +if (x_185 == 0) +{ +lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; +x_186 = lean_ctor_get(x_159, 0); +x_187 = lean_ctor_get(x_159, 3); +lean_dec(x_187); +x_188 = lean_ctor_get(x_159, 1); +lean_dec(x_188); +x_189 = l_Array_shrink___main___rarg(x_186, x_116); +lean_inc(x_115); +lean_ctor_set(x_159, 1, x_115); +lean_ctor_set(x_159, 0, x_189); +x_117 = x_159; +goto block_158; } else { -lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; -x_115 = l_Lean_Parser_ParserState_restore(x_87, x_85, x_86); -x_116 = l_Lean_nullKind; -x_117 = l_Lean_Parser_ParserState_mkNode(x_115, x_116, x_85); +lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; +x_190 = lean_ctor_get(x_159, 0); +x_191 = lean_ctor_get(x_159, 2); +lean_inc(x_191); +lean_inc(x_190); +lean_dec(x_159); +x_192 = l_Array_shrink___main___rarg(x_190, x_116); +lean_inc(x_115); +x_193 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_193, 0, x_192); +lean_ctor_set(x_193, 1, x_115); +lean_ctor_set(x_193, 2, x_191); +lean_ctor_set(x_193, 3, x_184); +x_117 = x_193; +goto block_158; +} +} +} +block_158: +{ +lean_object* x_118; x_118 = lean_ctor_get(x_117, 3); lean_inc(x_118); if (lean_obj_tag(x_118) == 0) { -lean_object* x_119; lean_object* x_120; lean_object* x_121; uint8_t x_122; lean_object* x_123; -x_119 = l_Lean_Parser_Term_doSeq___elambda__1(x_1, x_117); -x_120 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_121 = l_Lean_Parser_ParserState_mkNode(x_119, x_120, x_81); -x_122 = 1; -x_123 = l_Lean_Parser_mergeOrElseErrors(x_121, x_73, x_70, x_122); -lean_dec(x_70); -return x_123; +lean_object* x_119; lean_object* x_120; lean_object* x_121; +lean_dec(x_115); +x_119 = l_Lean_nullKind; +x_120 = l_Lean_Parser_ParserState_mkNode(x_117, x_119, x_116); +x_121 = lean_ctor_get(x_120, 3); +lean_inc(x_121); +if (lean_obj_tag(x_121) == 0) +{ +lean_object* x_122; lean_object* x_123; lean_object* x_124; uint8_t x_125; lean_object* x_126; +x_122 = l_Lean_Parser_Term_doSeq___elambda__1(x_1, x_120); +x_123 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_124 = l_Lean_Parser_ParserState_mkNode(x_122, x_123, x_111); +x_125 = 1; +x_126 = l_Lean_Parser_mergeOrElseErrors(x_124, x_103, x_100, x_125); +lean_dec(x_100); +return x_126; } else { -lean_object* x_124; lean_object* x_125; uint8_t x_126; lean_object* x_127; +lean_object* x_127; lean_object* x_128; uint8_t x_129; lean_object* x_130; +lean_dec(x_121); +lean_dec(x_1); +x_127 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_128 = l_Lean_Parser_ParserState_mkNode(x_120, x_127, x_111); +x_129 = 1; +x_130 = l_Lean_Parser_mergeOrElseErrors(x_128, x_103, x_100, x_129); +lean_dec(x_100); +return x_130; +} +} +else +{ +lean_object* x_131; uint8_t x_132; lean_dec(x_118); +x_131 = lean_ctor_get(x_117, 1); +lean_inc(x_131); +x_132 = lean_nat_dec_eq(x_131, x_115); +lean_dec(x_131); +if (x_132 == 0) +{ +lean_object* x_133; lean_object* x_134; lean_object* x_135; +lean_dec(x_115); +x_133 = l_Lean_nullKind; +x_134 = l_Lean_Parser_ParserState_mkNode(x_117, x_133, x_116); +x_135 = lean_ctor_get(x_134, 3); +lean_inc(x_135); +if (lean_obj_tag(x_135) == 0) +{ +lean_object* x_136; lean_object* x_137; lean_object* x_138; uint8_t x_139; lean_object* x_140; +x_136 = l_Lean_Parser_Term_doSeq___elambda__1(x_1, x_134); +x_137 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_138 = l_Lean_Parser_ParserState_mkNode(x_136, x_137, x_111); +x_139 = 1; +x_140 = l_Lean_Parser_mergeOrElseErrors(x_138, x_103, x_100, x_139); +lean_dec(x_100); +return x_140; +} +else +{ +lean_object* x_141; lean_object* x_142; uint8_t x_143; lean_object* x_144; +lean_dec(x_135); lean_dec(x_1); -x_124 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_125 = l_Lean_Parser_ParserState_mkNode(x_117, x_124, x_81); -x_126 = 1; -x_127 = l_Lean_Parser_mergeOrElseErrors(x_125, x_73, x_70, x_126); -lean_dec(x_70); -return x_127; +x_141 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_142 = l_Lean_Parser_ParserState_mkNode(x_134, x_141, x_111); +x_143 = 1; +x_144 = l_Lean_Parser_mergeOrElseErrors(x_142, x_103, x_100, x_143); +lean_dec(x_100); +return x_144; +} +} +else +{ +lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; +x_145 = l_Lean_Parser_ParserState_restore(x_117, x_116, x_115); +x_146 = l_Lean_nullKind; +x_147 = l_Lean_Parser_ParserState_mkNode(x_145, x_146, x_116); +x_148 = lean_ctor_get(x_147, 3); +lean_inc(x_148); +if (lean_obj_tag(x_148) == 0) +{ +lean_object* x_149; lean_object* x_150; lean_object* x_151; uint8_t x_152; lean_object* x_153; +x_149 = l_Lean_Parser_Term_doSeq___elambda__1(x_1, x_147); +x_150 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_151 = l_Lean_Parser_ParserState_mkNode(x_149, x_150, x_111); +x_152 = 1; +x_153 = l_Lean_Parser_mergeOrElseErrors(x_151, x_103, x_100, x_152); +lean_dec(x_100); +return x_153; +} +else +{ +lean_object* x_154; lean_object* x_155; uint8_t x_156; lean_object* x_157; +lean_dec(x_148); +lean_dec(x_1); +x_154 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_155 = l_Lean_Parser_ParserState_mkNode(x_147, x_154, x_111); +x_156 = 1; +x_157 = l_Lean_Parser_mergeOrElseErrors(x_155, x_103, x_100, x_156); +lean_dec(x_100); +return x_157; } } } @@ -51527,27 +51791,27 @@ return x_127; } else { -lean_object* x_134; lean_object* x_135; uint8_t x_136; lean_object* x_137; -lean_dec(x_83); +lean_object* x_194; lean_object* x_195; uint8_t x_196; lean_object* x_197; +lean_dec(x_113); lean_dec(x_1); -x_134 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; -x_135 = l_Lean_Parser_ParserState_mkNode(x_82, x_134, x_81); -x_136 = 1; -x_137 = l_Lean_Parser_mergeOrElseErrors(x_135, x_73, x_70, x_136); -lean_dec(x_70); -return x_137; +x_194 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; +x_195 = l_Lean_Parser_ParserState_mkNode(x_112, x_194, x_111); +x_196 = 1; +x_197 = l_Lean_Parser_mergeOrElseErrors(x_195, x_103, x_100, x_196); +lean_dec(x_100); +return x_197; } } } else { -uint8_t x_153; lean_object* x_154; -lean_dec(x_79); +uint8_t x_213; lean_object* x_214; +lean_dec(x_109); lean_dec(x_1); -x_153 = 1; -x_154 = l_Lean_Parser_mergeOrElseErrors(x_78, x_73, x_70, x_153); -lean_dec(x_70); -return x_154; +x_213 = 1; +x_214 = l_Lean_Parser_mergeOrElseErrors(x_108, x_103, x_100, x_213); +lean_dec(x_100); +return x_214; } } } @@ -51747,7 +52011,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_Command_initialize_formatter___closed__4; -x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_optional_formatter), 6, 1); +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_try_formatter), 6, 1); lean_closure_set(x_2, 0, x_1); return x_2; } @@ -51755,21 +52019,19 @@ return x_2; lean_object* _init_l_Lean_Parser_Command_initialize_formatter___closed__6() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; +lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_Command_initialize_formatter___closed__5; -x_2 = l_Lean_Parser_Term_doIf_formatter___closed__6; -x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_optional_formatter), 6, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Command_initialize_formatter___closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_initialize_formatter___closed__2; -x_2 = l_Lean_Parser_Command_initialize_formatter___closed__6; +x_1 = l_Lean_Parser_Command_initialize_formatter___closed__6; +x_2 = l_Lean_Parser_Term_doIf_formatter___closed__6; x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); @@ -51779,10 +52041,22 @@ return x_3; lean_object* _init_l_Lean_Parser_Command_initialize_formatter___closed__8() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Command_initialize_formatter___closed__2; +x_2 = l_Lean_Parser_Command_initialize_formatter___closed__7; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Command_initialize_formatter___closed__9() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; x_2 = lean_unsigned_to_nat(1024u); -x_3 = l_Lean_Parser_Command_initialize_formatter___closed__7; +x_3 = l_Lean_Parser_Command_initialize_formatter___closed__8; x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3); lean_closure_set(x_4, 0, x_1); lean_closure_set(x_4, 1, x_2); @@ -51795,7 +52069,7 @@ _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = l_Lean_Parser_Command_initialize_formatter___closed__1; -x_7 = l_Lean_Parser_Command_initialize_formatter___closed__8; +x_7 = l_Lean_Parser_Command_initialize_formatter___closed__9; x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5); return x_8; } @@ -51861,7 +52135,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_Command_initialize_parenthesizer___closed__3; -x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer), 6, 1); +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer), 6, 1); lean_closure_set(x_2, 0, x_1); return x_2; } @@ -51869,21 +52143,19 @@ return x_2; lean_object* _init_l_Lean_Parser_Command_initialize_parenthesizer___closed__5() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; +lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Parser_Command_initialize_parenthesizer___closed__4; -x_2 = l_Lean_Parser_Term_doIf_parenthesizer___closed__3; -x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2); -lean_closure_set(x_3, 0, x_1); -lean_closure_set(x_3, 1, x_2); -return x_3; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer), 6, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Command_initialize_parenthesizer___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__3; -x_2 = l_Lean_Parser_Command_initialize_parenthesizer___closed__5; +x_1 = l_Lean_Parser_Command_initialize_parenthesizer___closed__5; +x_2 = l_Lean_Parser_Term_doIf_parenthesizer___closed__3; x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); @@ -51893,10 +52165,22 @@ return x_3; lean_object* _init_l_Lean_Parser_Command_initialize_parenthesizer___closed__7() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__3; +x_2 = l_Lean_Parser_Command_initialize_parenthesizer___closed__6; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Command_initialize_parenthesizer___closed__8() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Command_initialize___elambda__1___closed__2; x_2 = lean_unsigned_to_nat(1024u); -x_3 = l_Lean_Parser_Command_initialize_parenthesizer___closed__6; +x_3 = l_Lean_Parser_Command_initialize_parenthesizer___closed__7; x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3); lean_closure_set(x_4, 0, x_1); lean_closure_set(x_4, 1, x_2); @@ -51909,7 +52193,7 @@ _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = l_Lean_Parser_Command_initialize_parenthesizer___closed__1; -x_7 = l_Lean_Parser_Command_initialize_parenthesizer___closed__7; +x_7 = l_Lean_Parser_Command_initialize_parenthesizer___closed__8; x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5); return x_8; } @@ -56100,6 +56384,8 @@ l_Lean_Parser_Command_initialize_formatter___closed__7 = _init_l_Lean_Parser_Com lean_mark_persistent(l_Lean_Parser_Command_initialize_formatter___closed__7); l_Lean_Parser_Command_initialize_formatter___closed__8 = _init_l_Lean_Parser_Command_initialize_formatter___closed__8(); lean_mark_persistent(l_Lean_Parser_Command_initialize_formatter___closed__8); +l_Lean_Parser_Command_initialize_formatter___closed__9 = _init_l_Lean_Parser_Command_initialize_formatter___closed__9(); +lean_mark_persistent(l_Lean_Parser_Command_initialize_formatter___closed__9); l___regBuiltin_Lean_Parser_Command_initialize_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Command_initialize_formatter___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Parser_Command_initialize_formatter___closed__1); res = l___regBuiltin_Lean_Parser_Command_initialize_formatter(lean_io_mk_world()); @@ -56119,6 +56405,8 @@ l_Lean_Parser_Command_initialize_parenthesizer___closed__6 = _init_l_Lean_Parser lean_mark_persistent(l_Lean_Parser_Command_initialize_parenthesizer___closed__6); l_Lean_Parser_Command_initialize_parenthesizer___closed__7 = _init_l_Lean_Parser_Command_initialize_parenthesizer___closed__7(); lean_mark_persistent(l_Lean_Parser_Command_initialize_parenthesizer___closed__7); +l_Lean_Parser_Command_initialize_parenthesizer___closed__8 = _init_l_Lean_Parser_Command_initialize_parenthesizer___closed__8(); +lean_mark_persistent(l_Lean_Parser_Command_initialize_parenthesizer___closed__8); l___regBuiltin_Lean_Parser_Command_initialize_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Command_initialize_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Parser_Command_initialize_parenthesizer___closed__1); res = l___regBuiltin_Lean_Parser_Command_initialize_parenthesizer(lean_io_mk_world()); diff --git a/stage0/stdlib/Lean/Util/Trace.c b/stage0/stdlib/Lean/Util/Trace.c index fdd395881a..56936b170a 100644 --- a/stage0/stdlib/Lean/Util/Trace.c +++ b/stage0/stdlib/Lean/Util/Trace.c @@ -20,17 +20,17 @@ lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__6___rarg___lam lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Lean_isTracingEnabledFor___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_myMacro____x40_Lean_Message___hyg_158____closed__5; +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3; lean_object* l_Lean_MessageData_format(lean_object*, lean_object*); lean_object* l_Lean_Format_pretty(lean_object*, lean_object*); lean_object* l_Lean_printTraces___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerTraceClass___closed__1; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1; lean_object* l___private_Lean_Util_Trace_4__addNode___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__6; lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__5(lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__10; -lean_object* l_Lean_Lean_traceInterp; lean_object* l_Lean_traceCtx___rarg___lambda__6(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__3; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__8; size_t l_USize_sub(size_t, size_t); extern lean_object* l_Array_empty___closed__1; lean_object* l_Std_PersistentArray_get_x21___at___private_Lean_Util_Trace_1__toFormat___spec__1(lean_object*, lean_object*); @@ -51,7 +51,6 @@ lean_object* l___private_Lean_Util_Trace_5__getResetTraces___rarg___lambda__1(le lean_object* l_Lean_getTraces(lean_object*); lean_object* l_Lean_isTracingEnabledFor___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__4___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__6; size_t l_USize_shiftRight(size_t, size_t); extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; lean_object* lean_string_utf8_byte_size(lean_object*); @@ -64,11 +63,11 @@ extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed lean_object* l_Lean_traceCtx___rarg___lambda__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__5; lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3_; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316_; lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__5___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__19; lean_object* l_Lean_trace(lean_object*); lean_object* l_Lean_monadTraceTrans___rarg___lambda__1(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__3; lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__16; lean_object* l_Lean_setTraceState(lean_object*, lean_object*); uint8_t l___private_Lean_Util_Trace_2__checkTraceOptionAux(lean_object*, lean_object*); @@ -80,7 +79,6 @@ lean_object* l_Lean_modifyTraces(lean_object*, lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__19; lean_object* l_Std_PersistentArray_forM___at_Lean_printTraces___spec__2(lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__5; lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__4(lean_object*); lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; @@ -92,25 +90,21 @@ lean_object* l___private_Lean_Util_Trace_5__getResetTraces___rarg___lambda__2___ lean_object* l_Nat_foldMAux___main___at___private_Lean_Util_Trace_1__toFormat___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); uint8_t l_Lean_KVMap_getBool(lean_object*, lean_object*, uint8_t); -lean_object* l_Lean_Lean_traceInterp___closed__9; lean_object* l_Std_PersistentArray_forM___at_Lean_printTraces___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__8; lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__6___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7; +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2; lean_object* l_Lean_enableTracing___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerTraceClass___closed__2; -lean_object* l_Lean_Lean_traceInterp___closed__2; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_traceCtx___rarg___lambda__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__12; -lean_object* l_Lean_Lean_traceInterp___closed__4; lean_object* l_Lean_traceCtx___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__2; lean_object* l_Lean_monadTraceTrans(lean_object*, lean_object*); lean_object* l_Lean_traceM(lean_object*); extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; lean_object* l_Nat_foldMAux___main___at___private_Lean_Util_Trace_1__toFormat___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__7; lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* l_Lean_traceCtx___rarg___lambda__2___closed__1; lean_object* l_Lean_isTracingEnabledFor(lean_object*); @@ -118,8 +112,8 @@ lean_object* l_Lean_traceCtx___rarg___lambda__2___boxed(lean_object*, lean_objec lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_isTracingEnabledFor___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_resetTraceState___rarg(lean_object*); -lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1; size_t l_USize_shiftLeft(size_t, size_t); +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1; lean_object* l_Lean_traceCtx___rarg___lambda__4(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__10; lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*); @@ -144,12 +138,12 @@ size_t l_USize_land(size_t, size_t); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__12; extern lean_object* l_Lean_nullKind___closed__2; lean_object* l_fix1___rarg___lambda__1___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Lean_traceInterp___closed__1; lean_object* l_Std_PersistentArray_push___rarg(lean_object*, lean_object*); extern lean_object* l___private_Lean_Util_PPExt_1__registerOptions___closed__8; lean_object* l___private_Lean_Util_Trace_5__getResetTraces___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_resetTraceState(lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__9; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__6; lean_object* l_Lean_MonadTracer_trace(lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__14; lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__5; @@ -177,13 +171,16 @@ lean_object* l_Lean_traceCtx___rarg(lean_object*, lean_object*, lean_object*, le lean_object* l_Lean_enableTracing___rarg___lambda__1___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_myMacro____x40_Lean_Message___hyg_158____closed__6; lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9; lean_object* l_Lean_enableTracing___rarg___lambda__2(lean_object*, uint8_t, lean_object*); lean_object* lean_register_option(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__4; lean_object* l_Lean_printTraces(lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Util_Trace_4__addNode___spec__1(lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11; lean_object* l_Std_PersistentArray_forMAux___main___at_Lean_printTraces___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__4; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__2; lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__8; lean_object* l_Lean_checkTraceOption___boxed(lean_object*, lean_object*); lean_object* l_Lean_setTraceState___boxed(lean_object*, lean_object*); @@ -215,10 +212,12 @@ extern lean_object* l_Lean_mkHole___closed__2; lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___rarg___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__1; lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45_(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343_(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355_(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_addTrace___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_traceCtx___rarg___lambda__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_print___at___private_Init_System_IO_1__printlnAux___spec__2(lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5; +lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__3; lean_object* l_Lean_printTraces___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__2; @@ -2767,25 +2766,17 @@ return x_59; } } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("traceInterp"); -return x_1; -} -} -lean_object* _init_l_Lean_Lean_traceInterp___closed__2() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_mkAppStx___closed__2; -x_2 = l_Lean_Lean_traceInterp___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__5; +x_2 = lean_unsigned_to_nat(316u); +x_3 = lean_name_mk_numeral(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__3() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__2() { _start: { lean_object* x_1; @@ -2793,21 +2784,21 @@ x_1 = lean_mk_string("trace["); return x_1; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__4() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__3() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Lean_traceInterp___closed__3; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__2; x_2 = lean_alloc_ctor(11, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__5() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__4() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Lean_traceInterp___closed__4; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__3; x_2 = lean_box(19); x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); @@ -2815,7 +2806,7 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__6() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5() { _start: { lean_object* x_1; @@ -2823,33 +2814,33 @@ x_1 = lean_mk_string("]!"); return x_1; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__7() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__6() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Lean_traceInterp___closed__6; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5; x_2 = lean_alloc_ctor(11, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__8() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Lean_traceInterp___closed__5; -x_2 = l_Lean_Lean_traceInterp___closed__7; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__4; +x_2 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__6; 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_Lean_traceInterp___closed__9() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__8() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Lean_traceInterp___closed__8; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7; x_2 = l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__19; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); @@ -2857,13 +2848,13 @@ lean_ctor_set(x_3, 1, x_2); return x_3; } } -lean_object* _init_l_Lean_Lean_traceInterp___closed__10() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Lean_traceInterp___closed__2; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1; x_2 = lean_unsigned_to_nat(1023u); -x_3 = l_Lean_Lean_traceInterp___closed__9; +x_3 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__8; x_4 = lean_alloc_ctor(9, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -2871,15 +2862,15 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Lean_traceInterp() { +lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316_() { _start: { lean_object* x_1; -x_1 = l_Lean_Lean_traceInterp___closed__10; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9; return x_1; } } -lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1() { +lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1() { _start: { lean_object* x_1; @@ -2887,22 +2878,22 @@ x_1 = lean_mk_string("Lean.trace"); return x_1; } } -lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__2() { +lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1; +x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1; x_2 = lean_string_utf8_byte_size(x_1); return x_2; } } -lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__3() { +lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1; +x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__2; +x_3 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -2910,11 +2901,11 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343_(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355_(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; -x_4 = l_Lean_Lean_traceInterp___closed__2; +x_4 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1; lean_inc(x_1); x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); if (x_5 == 0) @@ -2966,7 +2957,7 @@ lean_inc(x_18); lean_inc(x_19); x_21 = l_Lean_addMacroScope(x_19, x_20, x_18); x_22 = l_Lean_SourceInfo_inhabited___closed__1; -x_23 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__3; +x_23 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3; x_24 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__5; x_25 = lean_alloc_ctor(3, 4, 0); lean_ctor_set(x_25, 0, x_22); @@ -3140,34 +3131,32 @@ l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__19 = _init_l_Lean_myMa lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__19); l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20(); lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20); -l_Lean_Lean_traceInterp___closed__1 = _init_l_Lean_Lean_traceInterp___closed__1(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__1); -l_Lean_Lean_traceInterp___closed__2 = _init_l_Lean_Lean_traceInterp___closed__2(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__2); -l_Lean_Lean_traceInterp___closed__3 = _init_l_Lean_Lean_traceInterp___closed__3(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__3); -l_Lean_Lean_traceInterp___closed__4 = _init_l_Lean_Lean_traceInterp___closed__4(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__4); -l_Lean_Lean_traceInterp___closed__5 = _init_l_Lean_Lean_traceInterp___closed__5(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__5); -l_Lean_Lean_traceInterp___closed__6 = _init_l_Lean_Lean_traceInterp___closed__6(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__6); -l_Lean_Lean_traceInterp___closed__7 = _init_l_Lean_Lean_traceInterp___closed__7(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__7); -l_Lean_Lean_traceInterp___closed__8 = _init_l_Lean_Lean_traceInterp___closed__8(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__8); -l_Lean_Lean_traceInterp___closed__9 = _init_l_Lean_Lean_traceInterp___closed__9(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__9); -l_Lean_Lean_traceInterp___closed__10 = _init_l_Lean_Lean_traceInterp___closed__10(); -lean_mark_persistent(l_Lean_Lean_traceInterp___closed__10); -l_Lean_Lean_traceInterp = _init_l_Lean_Lean_traceInterp(); -lean_mark_persistent(l_Lean_Lean_traceInterp); -l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1(); -lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__1); -l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__2 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__2(); -lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__2); -l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__3 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__3(); -lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_343____closed__3); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__1); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__2 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__2(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__2); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__3 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__3(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__3); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__4 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__4(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__4); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__6 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__6(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__6); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__8 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__8(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__8); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9); +l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316_ = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316_(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316_); +l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1); +l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2); +l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus