From c2a8f3ecc4ceb8480aae2f80275b8aa0fee6fd82 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Tue, 13 Oct 2020 12:40:38 -0700 Subject: [PATCH] chore: update stage0 --- stage0/src/Lean/Elab/BuiltinNotation.lean | 5 +- stage0/src/Lean/Elab/PreDefinition/Main.lean | 6 +- .../Lean/Elab/PreDefinition/MkInhabitant.lean | 2 +- .../Lean/Elab/PreDefinition/Structural.lean | 36 +- stage0/src/Lean/Elab/Tactic/Basic.lean | 12 +- stage0/src/Lean/Elab/Tactic/Induction.lean | 18 +- stage0/src/Lean/Exception.lean | 23 + stage0/src/Lean/Parser/Do.lean | 2 +- stage0/src/Lean/Parser/StrInterpolation.lean | 8 +- stage0/src/Lean/Parser/Term.lean | 2 +- stage0/src/Lean/Util/Trace.lean | 8 +- stage0/stdlib/Lean/Elab/BuiltinNotation.c | 298 +- stage0/stdlib/Lean/Elab/PreDefinition/Main.c | 569 ++-- .../Lean/Elab/PreDefinition/Structural.c | 2668 ++++++++--------- stage0/stdlib/Lean/Elab/Syntax.c | 44 +- stage0/stdlib/Lean/Elab/Tactic/Induction.c | 217 +- stage0/stdlib/Lean/Exception.c | 782 +++++ stage0/stdlib/Lean/Parser/Do.c | 586 ++-- stage0/stdlib/Lean/Parser/StrInterpolation.c | 53 +- stage0/stdlib/Lean/Parser/Term.c | 1343 ++++++--- stage0/stdlib/Lean/Util/Trace.c | 273 +- 21 files changed, 4167 insertions(+), 2788 deletions(-) diff --git a/stage0/src/Lean/Elab/BuiltinNotation.lean b/stage0/src/Lean/Elab/BuiltinNotation.lean index a9823e5ea3..27cdd17b81 100644 --- a/stage0/src/Lean/Elab/BuiltinNotation.lean +++ b/stage0/src/Lean/Elab/BuiltinNotation.lean @@ -278,7 +278,10 @@ fun stx => fun stx => let arg := stx.getArg 1; let body := stx.getArg 3; - `(dbgTrace (toString $arg) fun _ => $body) + if arg.getKind == interpolatedStrKind then + `(dbgTrace (s! $arg) fun _ => $body) + else + `(dbgTrace (toString $arg) fun _ => $body) @[builtinMacro Lean.Parser.Term.«sorry»] def expandSorry : Macro := fun _ => `(sorryAx _ false) diff --git a/stage0/src/Lean/Elab/PreDefinition/Main.lean b/stage0/src/Lean/Elab/PreDefinition/Main.lean index 66bcfba649..3f1a4ec1c5 100644 --- a/stage0/src/Lean/Elab/PreDefinition/Main.lean +++ b/stage0/src/Lean/Elab/PreDefinition/Main.lean @@ -13,10 +13,10 @@ open Term private def addAndCompilePartial (preDefs : Array PreDefinition) : TermElabM Unit := do for preDef in preDefs do - trace[Elab.definition]! msg!"processing {preDef.declName}" + trace[Elab.definition]! "processing {preDef.declName}" forallTelescope preDef.type fun xs type => do let inh ← liftM $ mkInhabitantFor preDef.declName xs type - trace[Elab.definition]! msg!"inhabitant for {preDef.declName}" + trace[Elab.definition]! "inhabitant for {preDef.declName}" addNonRec { preDef with kind := DefKind.«opaque», value := inh } @@ -53,7 +53,7 @@ if ← logUnassignedUsingErrorInfos pendingMVarIds then def addPreDefinitions (preDefs : Array PreDefinition) : TermElabM Unit := do for preDef in preDefs do - trace[Elab.definition.body]! msg!"{preDef.declName} : {preDef.type} :=\n{preDef.value}" + trace[Elab.definition.body]! "{preDef.declName} : {preDef.type} :=\n{preDef.value}" for preDef in preDefs do ensureNoUnassignedMVarsAtPreDef preDef for preDefs in partitionPreDefs preDefs do diff --git a/stage0/src/Lean/Elab/PreDefinition/MkInhabitant.lean b/stage0/src/Lean/Elab/PreDefinition/MkInhabitant.lean index 387d30f125..0355111873 100644 --- a/stage0/src/Lean/Elab/PreDefinition/MkInhabitant.lean +++ b/stage0/src/Lean/Elab/PreDefinition/MkInhabitant.lean @@ -39,6 +39,6 @@ match ← findAssumption? xs type with | none => match ← mkFnInhabitant? xs type with | some val => pure val -| none => throwError msg!"failed to compile partial definition '{declName}', failed to show that type is inhabited" +| none => throwError! "failed to compile partial definition '{declName}', failed to show that type is inhabited" end Lean.Elab diff --git a/stage0/src/Lean/Elab/PreDefinition/Structural.lean b/stage0/src/Lean/Elab/PreDefinition/Structural.lean index eb342ccc74..37953cf12c 100644 --- a/stage0/src/Lean/Elab/PreDefinition/Structural.lean +++ b/stage0/src/Lean/Elab/PreDefinition/Structural.lean @@ -85,11 +85,11 @@ let rec loop (i : Nat) : MetaM α := do let indIndices := indArgs.extract indInfo.nparams indArgs.size if !indIndices.all Expr.isFVar then orelseMergeErrors - (throwError msg!"argument #{i+1} was not used because its type is an inductive family and indices are not variables{indentExpr xType}") + (throwError! "argument #{i+1} was not used because its type is an inductive family and indices are not variables{indentExpr xType}") (loop (i+1)) else if !indIndices.allDiff then orelseMergeErrors - (throwError msg!"argument #{i+1} was not used because its type is an inductive family and indices are not pairwise distinct{indentExpr xType}") + (throwError! "argument #{i+1} was not used because its type is an inductive family and indices are not pairwise distinct{indentExpr xType}") (loop (i+1)) else let indexMinPos := getIndexMinPos xs indIndices @@ -99,13 +99,13 @@ let rec loop (i : Nat) : MetaM α := do match ← hasBadIndexDep? ys indIndices with | some (index, y) => orelseMergeErrors - (throwError msg!"argument #{i+1} was not used because its type is an inductive family{indentExpr xType}\nand index{indentExpr index}\ndepends on the non index{indentExpr y}") + (throwError! "argument #{i+1} was not used because its type is an inductive family{indentExpr xType}\nand index{indentExpr index}\ndepends on the non index{indentExpr y}") (loop (i+1)) | none => match ← hasBadParamDep? ys indParams with | some (indParam, y) => orelseMergeErrors - (throwError msg!"argument #{i+1} was not used because its type is an inductive datatype{indentExpr xType}\nand parameter{indentExpr indParam}\ndepends on{indentExpr y}") + (throwError! "argument #{i+1} was not used because its type is an inductive datatype{indentExpr xType}\nand parameter{indentExpr indParam}\ndepends on{indentExpr y}") (loop (i+1)) | none => let indicesPos := indIndices.map fun index => match ys.indexOf? index with | some i => i.val | none => unreachable! @@ -129,7 +129,7 @@ private def ensureNoRecFn (recFnName : Name) (e : Expr) : MetaM Expr := do if containsRecFn recFnName e then Meta.forEachExpr e fun e => do if e.isAppOf recFnName then - throwError msg!"unexpected occurrence of recursive application{indentExpr e}" + throwError! "unexpected occurrence of recursive application{indentExpr e}" pure e else pure e @@ -141,7 +141,7 @@ throwError "toBelow failed" private partial def toBelowAux (C : Expr) : Expr → Expr → Expr → MetaM Expr | belowDict, arg, F => do belowDict ← whnf belowDict - trace[Elab.definition.structural]! msg!"belowDict: {belowDict}, arg: {arg}" + trace[Elab.definition.structural]! "belowDict: {belowDict}, arg: {arg}" match belowDict with | Expr.app (Expr.app (Expr.const `PProd _ _) d1 _) d2 _ => (do toBelowAux C d1 arg (← mkAppM `PProd.fst #[F])) @@ -167,10 +167,10 @@ private partial def toBelowAux (C : Expr) : Expr → Expr → Expr → MetaM Exp /- See toBelow -/ private def withBelowDict {α} (below : Expr) (numIndParams : Nat) (k : Expr → Expr → MetaM α) : MetaM α := do let belowType ← inferType below -trace[Elab.definition.structural]! msg!"belowType: {belowType}" +trace[Elab.definition.structural]! "belowType: {belowType}" belowType.withApp fun f args => do let motivePos := numIndParams + 1 - unless motivePos < args.size do throwError msg!"unexpected 'below' type{indentExpr belowType}" + unless motivePos < args.size do throwError! "unexpected 'below' type{indentExpr belowType}" let pre := mkAppN f (args.extract 0 numIndParams) let preType ← inferType pre forallBoundedTelescope preType (some 1) fun x _ => do @@ -225,9 +225,9 @@ let rec loop : Expr → Expr → MetaM Expr let numFixed := recArgInfo.fixedParams.size let recArgPos := recArgInfo.fixedParams.size + recArgInfo.pos if recArgPos >= args.size then - throwError msg!"insufficient number of parameters at recursive application {indentExpr e}" + throwError! "insufficient number of parameters at recursive application {indentExpr e}" let recArg := args[recArgPos] - let f ← try toBelow below recArgInfo.indParams.size recArg catch _ => throwError msg!"failed to eliminate recursive application{indentExpr e}" + let f ← try toBelow below recArgInfo.indParams.size recArg catch _ => throwError! "failed to eliminate recursive application{indentExpr e}" -- Recall that the fixed parameters are not in the scope of the `brecOn`. So, we skip them. let argsNonFixed := args.extract numFixed args.size -- The function `f` does not explicitly take `recArg` and its indices as arguments. So, we skip them too. @@ -279,9 +279,9 @@ let rec loop : Expr → Expr → MetaM Expr do let matcherApp ← mapError (matcherApp.addArg below) (fun msg => "failed to add `below` argument to 'matcher' application" ++ indentD msg) let altsNew ← (Array.zip matcherApp.alts matcherApp.altNumParams).mapM fun (alt, numParams) => lambdaTelescope alt fun xs altBody => do - trace[Elab.definition.structural]! msg!"altNumParams: {numParams}, xs: {xs}" + trace[Elab.definition.structural]! "altNumParams: {numParams}, xs: {xs}" unless xs.size >= numParams do - throwError msg!"unexpected matcher application alternative{indentExpr alt}\nat application{indentExpr e}" + throwError! "unexpected matcher application alternative{indentExpr alt}\nat application{indentExpr e}" let belowForAlt := xs[numParams - 1] mkLambdaFVars xs (← loop belowForAlt altBody) pure { matcherApp with alts := altsNew }.toExpr @@ -295,12 +295,12 @@ let major := recArgInfo.ys[recArgInfo.pos] let otherArgs := recArgInfo.ys.filter fun y => y != major && !recArgInfo.indIndices.contains y let motive ← mkForallFVars otherArgs type let brecOnUniv ← getLevel motive -trace[Elab.definition.structural]! msg!"brecOn univ: {brecOnUniv}" +trace[Elab.definition.structural]! "brecOn univ: {brecOnUniv}" let useBInductionOn := recArgInfo.reflexive && brecOnUniv == levelZero if recArgInfo.reflexive && brecOnUniv != levelZero then brecOnUniv ← decLevel brecOnUniv let motive ← mkLambdaFVars (recArgInfo.indIndices.push major) motive -trace[Elab.definition.structural]! msg!"brecOn motive: {motive}" +trace[Elab.definition.structural]! "brecOn motive: {motive}" let brecOn := if useBInductionOn then Lean.mkConst (mkBInductionOnFor recArgInfo.indName) recArgInfo.indLevels @@ -312,8 +312,8 @@ let brecOn := mkAppN brecOn recArgInfo.indIndices let brecOn := mkApp brecOn major check brecOn let brecOnType ← inferType brecOn -trace[Elab.definition.structural]! msg!"brecOn {brecOn}" -trace[Elab.definition.structural]! msg!"brecOnType {brecOnType}" +trace[Elab.definition.structural]! "brecOn {brecOn}" +trace[Elab.definition.structural]! "brecOnType {brecOnType}" forallBoundedTelescope brecOnType (some 1) fun F _ => do let F := F[0] let FType ← inferType F @@ -334,13 +334,13 @@ forallBoundedTelescope brecOnType (some 1) fun F _ => do private def elimRecursion (preDef : PreDefinition) : MetaM PreDefinition := withoutModifyingEnv do lambdaTelescope preDef.value fun xs value => do addAsAxiom preDef - trace[Elab.definition.structural]! msg!"{preDef.declName} {xs} :=\n{value}" + trace[Elab.definition.structural]! "{preDef.declName} {xs} :=\n{value}" let numFixed := getFixedPrefix preDef.declName xs value findRecArg numFixed xs fun recArgInfo => do -- when (recArgInfo.indName == `Nat) throwStructuralFailed -- HACK to skip Nat argument let valueNew ← mkBRecOn preDef.declName recArgInfo value let valueNew ← mkLambdaFVars xs valueNew - trace[Elab.definition.structural]! msg!"result: {valueNew}" + trace[Elab.definition.structural]! "result: {valueNew}" -- Recursive applications may still occur in expressions that were not visited by replaceRecApps (e.g., in types) let valueNew ← ensureNoRecFn preDef.declName valueNew pure { preDef with value := valueNew } diff --git a/stage0/src/Lean/Elab/Tactic/Basic.lean b/stage0/src/Lean/Elab/Tactic/Basic.lean index 0930f8061a..889cad478a 100644 --- a/stage0/src/Lean/Elab/Tactic/Basic.lean +++ b/stage0/src/Lean/Elab/Tactic/Basic.lean @@ -20,7 +20,7 @@ def goalsToMessageData (goals : List MVarId) : MessageData := MessageData.joinSep (goals.map $ MessageData.ofGoal) (Format.line ++ Format.line) def Term.reportUnsolvedGoals (goals : List MVarId) : TermElabM Unit := do -throwError msg!"unsolved goals\n{goalsToMessageData goals}" +throwError! "unsolved goals\n{goalsToMessageData goals}" namespace Tactic @@ -93,7 +93,7 @@ mkElabAttribute Tactic `Lean.Elab.Tactic.tacticElabAttribute `builtinTactic `tac private def evalTacticUsing (s : SavedState) (stx : Syntax) (tactics : List Tactic) : TacticM Unit := do let rec loop : List Tactic → TacticM Unit - | [] => throwErrorAt stx msg!"unexpected syntax {indentD stx}" + | [] => throwErrorAt! stx "unexpected syntax {indentD stx}" | evalFn::evalFns => do try evalFn stx @@ -117,7 +117,7 @@ mutual partial def expandTacticMacroFns (stx : Syntax) (macros : List Macro) : TacticM Unit := let rec loop : List Macro → TacticM Unit - | [] => throwErrorAt stx msg!"tactic '{stx.getKind}' has not been implemented" + | [] => throwErrorAt! stx "tactic '{stx.getKind}' has not been implemented" | m::ms => do let scp ← getCurrMacroScope try @@ -177,7 +177,7 @@ let e ← instantiateMVars e let pendingMVars ← getMVars e Term.logUnassignedUsingErrorInfos pendingMVars if e.hasExprMVar then - throwError msg!"tactic failed, resulting expression contains metavariables{indentExpr e}" + throwError! "tactic failed, resulting expression contains metavariables{indentExpr e}" def withMainMVarContext {α} (x : TacticM α) : TacticM α := do let (mvarId, _) ← getMainGoal @@ -286,7 +286,7 @@ fun stx => pure () fun stx => do let tactic := stx.getArg 1 if (← do try evalTactic tactic; pure true catch _ => pure false) then - throwError ("tactic succeeded") + throwError "tactic succeeded" @[builtinTactic traceState] def evalTraceState : Tactic := fun stx => do @@ -345,7 +345,7 @@ withRef id do let fvar? ← liftTermElabM $ Term.isLocalIdent? id; match fvar? with | some fvar => pure fvar.fvarId! -| none => throwError msg!"unknown variable '{id.getId}'" +| none => throwError! "unknown variable '{id.getId}'" def getFVarIds (ids : Array Syntax) : TacticM (Array FVarId) := do withMainMVarContext $ ids.mapM getFVarId diff --git a/stage0/src/Lean/Elab/Tactic/Induction.lean b/stage0/src/Lean/Elab/Tactic/Induction.lean index 58f69dd7ed..98a7249bc8 100644 --- a/stage0/src/Lean/Elab/Tactic/Induction.lean +++ b/stage0/src/Lean/Elab/Tactic/Induction.lean @@ -96,9 +96,9 @@ private def getAltRHS (alt : Syntax) : Syntax := alt.getArg 3 private def checkAltCtorNames (alts : Array Syntax) (ctorNames : List Name) : TacticM Unit := do for alt in alts do let n := getAltName alt - withRef alt $ trace[Elab.checkAlt]! msg!"{n} , {alt}" + withRef alt $ trace[Elab.checkAlt]! "{n} , {alt}" unless n == `_ || ctorNames.any (fun ctorName => n.isSuffixOf ctorName) do - throwErrorAt (alt.getArg 0) msg!"invalid constructor name '{n}'" + throwErrorAt! (alt.getArg 0) "invalid constructor name '{n}'" structure RecInfo := (recName : Name) @@ -143,7 +143,7 @@ match ← getRecFromUsingLoop baseRecName (← inferType major) with try liftMetaMAtMain fun _ => Meta.mkRecursorInfo recName catch _ => - throwError msg!"invalid recursor name '{baseRecName}'" + throwError! "invalid recursor name '{baseRecName}'" /- Create `RecInfo` assuming builtin recursor -/ private def getRecInfoDefault (major : Expr) (withAlts : Syntax) (allowMissingAlts : Bool) : TacticM (RecInfo × Array Name) := do @@ -183,7 +183,7 @@ else altVars := altVars.push [] altRHSs := altRHSs.push Syntax.missing else - throwError msg!"alternative for constructor '{ctorName}' is missing" + throwError! "alternative for constructor '{ctorName}' is missing" unless remainingAlts.isEmpty do throwErrorAt remainingAlts[0] "unused alternative" pure ({ recName := recName, altVars := altVars, altRHSs := altRHSs }, ctorNames.toArray) @@ -238,7 +238,7 @@ else altVars := altVars.push (getAltVarNames alt).toList altRHSs := altRHSs.push (getAltRHS alt) | none => - throwError msg!"alternative for minor premise '{paramName}' is missing" + throwError! "alternative for minor premise '{paramName}' is missing" unless remainingAlts.isEmpty do throwErrorAt remainingAlts[0] "unused alternative" pure { recName := recName, altVars := altVars, altRHSs := altRHSs } @@ -252,7 +252,7 @@ if altRHSs.isEmpty then setGoals $ result.toList.map fun s => s.mvarId else unless altRHSs.size == result.size do - throwError msg!"mistmatch on the number of subgoals produced ({result.size}) and alternatives provided ({altRHSs.size})" + throwError! "mistmatch on the number of subgoals produced ({result.size}) and alternatives provided ({altRHSs.size})" let gs := [] for i in [:result.size] do let subgoal := result[i] @@ -299,12 +299,12 @@ let rec loop (i j : Nat) : TacticM Unit := if ctorName == subgoal.ctorName then loop (i+1) (j+1) else - throwError msg!"alternative for '{subgoal.ctorName}' has not been provided" + throwError! "alternative for '{subgoal.ctorName}' has not been provided" else - throwError msg!"alternative for '{ctorName}' is not needed" + throwError! "alternative for '{ctorName}' is not needed" else if h : i < casesResult.size then let subgoal := casesResult.get ⟨i, h⟩ - throwError msg!"alternative for '{subgoal.ctorName}' has not been provided" + throwError! "alternative for '{subgoal.ctorName}' has not been provided" else pure () unless altRHSs.isEmpty do diff --git a/stage0/src/Lean/Exception.lean b/stage0/src/Lean/Exception.lean index ef8941fbf0..c772b3b29f 100644 --- a/stage0/src/Lean/Exception.lean +++ b/stage0/src/Lean/Exception.lean @@ -103,3 +103,26 @@ when (curr == max) $ throwError maxRecDepthErrorMessage; MonadRecDepth.withRecDepth (curr+1) x end Lean + +new_frontend + +namespace Lean + +syntax "throwError! " ((interpolatedStr term) <|> term) : term +syntax "throwErrorAt! " term:max ((interpolatedStr term) <|> term) : term + +macro_rules +| `(throwError! $msg) => + if msg.getKind == interpolatedStrKind then + `(throwError (msg! $msg)) + else + `(throwError $msg) + +macro_rules +| `(throwErrorAt! $ref $msg) => + if msg.getKind == interpolatedStrKind then + `(throwErrorAt $ref (msg! $msg)) + else + `(throwErrorAt $ref $msg) + +end Lean diff --git a/stage0/src/Lean/Parser/Do.lean b/stage0/src/Lean/Parser/Do.lean index 62248b1a7e..9a86848f75 100644 --- a/stage0/src/Lean/Parser/Do.lean +++ b/stage0/src/Lean/Parser/Do.lean @@ -84,7 +84,7 @@ def doFinally := parser! "finally " >> doSeq @[builtinDoElemParser] def doBreak := parser! "break" @[builtinDoElemParser] def doContinue := parser! "continue" @[builtinDoElemParser] def doReturn := parser!:leadPrec "return " >> optional termParser -@[builtinDoElemParser] def doDbgTrace := parser!:leadPrec "dbgTrace! " >> termParser +@[builtinDoElemParser] def doDbgTrace := parser!:leadPrec "dbgTrace! " >> ((interpolatedStr termParser) <|> termParser) @[builtinDoElemParser] def doAssert := parser!:leadPrec "assert! " >> termParser /- diff --git a/stage0/src/Lean/Parser/StrInterpolation.lean b/stage0/src/Lean/Parser/StrInterpolation.lean index c31926bcb0..d9259c28d6 100644 --- a/stage0/src/Lean/Parser/StrInterpolation.lean +++ b/stage0/src/Lean/Parser/StrInterpolation.lean @@ -39,8 +39,12 @@ let startPos := s.pos if input.atEnd startPos then s.mkEOIError else - let s := s.next input startPos - parse startPos c s + let curr := input.get s.pos; + if curr != '\"' then + s.mkError "interpolated string" + else + let s := s.next input startPos + parse startPos c s @[inline] def interpolatedStrNoAntiquot (p : Parser) : Parser := { fn := interpolatedStrFn p.fn, diff --git a/stage0/src/Lean/Parser/Term.lean b/stage0/src/Lean/Parser/Term.lean index eb623fd8f0..23339a82f2 100644 --- a/stage0/src/Lean/Parser/Term.lean +++ b/stage0/src/Lean/Parser/Term.lean @@ -258,7 +258,7 @@ stx.isAntiquot || stx.isIdent @[builtinTermParser] def panic := parser!:leadPrec "panic! " >> termParser @[builtinTermParser] def unreachable := parser!:leadPrec "unreachable!" -@[builtinTermParser] def dbgTrace := parser!:leadPrec withPosition ("dbgTrace! " >> termParser) >> optSemicolon termParser +@[builtinTermParser] def dbgTrace := parser!:leadPrec withPosition ("dbgTrace! " >> ((interpolatedStr termParser) <|> termParser)) >> optSemicolon termParser @[builtinTermParser] def assert := parser!:leadPrec withPosition ("assert! " >> termParser) >> optSemicolon termParser end Term diff --git a/stage0/src/Lean/Util/Trace.lean b/stage0/src/Lean/Util/Trace.lean index d7327cec84..143c2b5b9c 100644 --- a/stage0/src/Lean/Util/Trace.lean +++ b/stage0/src/Lean/Util/Trace.lean @@ -135,9 +135,13 @@ namespace Lean macro:max "trace!" id:term:max msg:term : term => `(trace $id fun _ => ($msg : MessageData)) -syntax "trace[" ident "]!" term : term +syntax "trace[" ident "]!" ((interpolatedStr term) <|> term) : term macro_rules -| `(trace[$id]! $s) => `(Lean.trace $(quote id.getId) fun _ => ($s : MessageData)) +| `(trace[$id]! $s) => + if s.getKind == interpolatedStrKind then + `(Lean.trace $(quote id.getId) fun _ => msg! $s) + else + `(Lean.trace $(quote id.getId) fun _ => ($s : MessageData)) end Lean diff --git a/stage0/stdlib/Lean/Elab/BuiltinNotation.c b/stage0/stdlib/Lean/Elab/BuiltinNotation.c index eaef535c8b..34aa01a30e 100644 --- a/stage0/stdlib/Lean/Elab/BuiltinNotation.c +++ b/stage0/stdlib/Lean/Elab/BuiltinNotation.c @@ -18,6 +18,7 @@ extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____lambda lean_object* l_Lean_Elab_Term_expandOrM___closed__2; lean_object* l_Lean_getConstInfo___at_Lean_Elab_Term_mkConst___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabNativeRefl___closed__5; +lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__9; extern lean_object* l_Lean_Meta_mkLe___rarg___closed__4; lean_object* l_Lean_mkCIdentFrom(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__25; @@ -46,6 +47,7 @@ lean_object* l___regBuiltin_Lean_Elab_Term_expandAndM(lean_object*); lean_object* l_Lean_Elab_Term_expandNot___closed__2; lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__8; lean_object* l___regBuiltin_Lean_Elab_Term_expandMap___closed__1; +extern lean_object* l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__10; lean_object* l_Lean_Elab_getRefPos___at_Lean_Elab_Term_elabPanic___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandPrefixOp___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandModN___closed__3; @@ -87,6 +89,7 @@ lean_object* l___regBuiltin_Lean_Elab_Term_expandModN(lean_object*); extern lean_object* l___private_Lean_Meta_DiscrTree_6__shouldAddAsStar___closed__5; extern lean_object* l___private_Lean_Elab_Quotation_6__compileStxMatch___main___closed__30; lean_object* l_Lean_Elab_Term_getDeclName_x3f(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_expandBNe(lean_object*); lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__1; extern lean_object* l_Array_myMacro____x40_Init_Data_Array_Macros___hyg_464____closed__8; @@ -124,9 +127,11 @@ lean_object* l_Lean_Elab_Term_expandDollar(lean_object*, lean_object*, lean_obje lean_object* lean_st_ref_get(lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_expandBNot___closed__2; lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__21; +extern lean_object* l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__12; lean_object* l_Lean_Elab_Term_expandGT___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Lean_Elab_Quotation_10__toPreterm___main___lambda__4___closed__3; lean_object* l_Lean_Elab_Term_elabNativeRefl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__13; lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__4; lean_object* l_Lean_Elab_Term_expandSubtype(lean_object*, lean_object*, lean_object*); @@ -148,6 +153,7 @@ lean_object* lean_array_get_size(lean_object*); extern lean_object* l_Lean_Prod_hasQuote___rarg___closed__2; lean_object* l_Lean_Meta_mkExpectedTypeHint___at_Lean_Elab_Term_elabNativeRefl___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_expandBind___closed__1; +extern lean_object* l_Lean_interpolatedStrKind; lean_object* l_Lean_Elab_Term_expandHEq(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandEmptyC___closed__9; lean_object* l___regBuiltin_Lean_Elab_Term_expandAssert___closed__3; @@ -392,6 +398,7 @@ lean_object* l___regBuiltin_Lean_Elab_Term_expandMod___closed__2; lean_object* l___private_Lean_Elab_BuiltinNotation_3__mkNativeReflAuxDecl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandBNot___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mkEqRefl___at_Lean_Elab_Term_elabNativeRefl___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__14; lean_object* l_Lean_Elab_Term_expandDollar___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_getCurrMacroScope(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_expandProd___closed__1; @@ -528,6 +535,7 @@ lean_object* l_Lean_Syntax_getArgs(lean_object*); extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____lambda__1___closed__4; lean_object* l_Lean_Elab_Term_expandIf___closed__1; lean_object* l_Lean_Elab_Term_expandMapRev(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_getKind(lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_3__mkNativeReflAuxDecl___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__3; lean_object* l___regBuiltin_Lean_Elab_Term_expandseq___closed__2; @@ -561,6 +569,7 @@ lean_object* l___regBuiltin_Lean_Elab_Term_expandSorry(lean_object*); lean_object* l___private_Lean_Elab_BuiltinNotation_4__elabClosedTerm___closed__5; lean_object* l___regBuiltin_Lean_Elab_Term_elabNativeRefl___closed__3; lean_object* l___regBuiltin_Lean_Elab_Term_ExpandFComp___closed__2; +lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__10; lean_object* l_Lean_Elab_Term_elabNativeRefl___closed__10; extern lean_object* l_Lean_Elab_Tactic_evalOrelse___closed__1; lean_object* l_Lean_Elab_Term_elabPanic___closed__12; @@ -572,6 +581,7 @@ lean_object* l_Lean_mkStxStrLit(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_expandAssert___closed__18; lean_object* l_Lean_Elab_Term_expandShow___closed__8; lean_object* l_Lean_Syntax_getPos(lean_object*); +lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__12; lean_object* l_Lean_Elab_Term_expandSorry___rarg___closed__8; lean_object* l___regBuiltin_Lean_Elab_Term_expandSorry___closed__2; lean_object* l_Lean_Elab_Term_expandNe___closed__2; @@ -581,6 +591,7 @@ lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__1; lean_object* l___regBuiltin_Lean_Elab_Term_expandEq(lean_object*); lean_object* l_Lean_Elab_Term_expandHave___closed__5; lean_object* l_Lean_Elab_Term_elabParserMacro___closed__1; +extern lean_object* l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__9; extern lean_object* l_Lean_Meta_mkSorry___rarg___lambda__1___closed__4; lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__4; lean_object* l_Lean_Elab_Term_expandNe___boxed(lean_object*, lean_object*, lean_object*); @@ -687,6 +698,7 @@ lean_object* l_Lean_Elab_Term_expandMapRev___boxed(lean_object*, lean_object*, l lean_object* l_Lean_Elab_Term_expandAssert___closed__9; extern lean_object* l_System_FilePath_dirName___closed__1; lean_object* l___regBuiltin_Lean_Elab_Term_expandHEq___closed__2; +lean_object* l_Lean_Elab_Term_expandDbgTrace___closed__11; lean_object* l___regBuiltin_Lean_Elab_Term_expandseqRight___closed__1; lean_object* l___regBuiltin_Lean_Elab_Term_expandIff___closed__1; lean_object* l___regBuiltin_Lean_Elab_Term_expandAppend___closed__1; @@ -724,6 +736,7 @@ lean_object* l_Lean_Elab_Term_expandseqLeft___closed__3; lean_object* l_Lean_Elab_Term_expandAppend___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Elab_Term_ExpandFComp___closed__3; lean_object* l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Name_hasMacroScopes___main___closed__1; lean_object* l___regBuiltin_Lean_Elab_Term_elabTParserMacro___closed__1; lean_object* l_Lean_Elab_Term_expandUnreachable___rarg___closed__3; lean_object* l_Lean_Meta_mkEqRefl___at_Lean_Elab_Term_elabNativeRefl___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -746,6 +759,8 @@ lean_object* l_Lean_Elab_Term_expandUnreachable___rarg___closed__4; extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__17; lean_object* l_Lean_Elab_Term_elabTParserMacro___lambda__1___closed__2; lean_object* l___regBuiltin_Lean_Elab_Term_expandUnreachable___closed__2; +lean_object* lean_name_mk_numeral(lean_object*, lean_object*); +extern lean_object* l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__16; lean_object* l___private_Lean_Elab_BuiltinNotation_1__elabParserMacroAux___closed__1; lean_object* l___private_Lean_Elab_BuiltinNotation_2__elabTParserMacroAux___closed__3; lean_object* l_Lean_Elab_Term_expandAnd___closed__1; @@ -11289,86 +11304,219 @@ lean_ctor_set(x_3, 1, x_1); return x_3; } } +static lean_object* _init_l_Lean_Elab_Term_expandDbgTrace___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__9; +x_2 = l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__10; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Elab_Term_expandDbgTrace___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Term_expandDbgTrace___closed__9; +x_2 = l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__12; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Elab_Term_expandDbgTrace___closed__11() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Term_expandDbgTrace___closed__10; +x_2 = l_Lean_Name_hasMacroScopes___main___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Elab_Term_expandDbgTrace___closed__12() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_Term_expandDbgTrace___closed__11; +x_2 = lean_unsigned_to_nat(2u); +x_3 = lean_name_mk_numeral(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Elab_Term_expandDbgTrace___closed__13() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_SourceInfo_inhabited___closed__1; +x_2 = l___kind_term____x40_Init_Data_ToString_Macro___hyg_2____closed__16; +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; +} +} +static lean_object* _init_l_Lean_Elab_Term_expandDbgTrace___closed__14() { +_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_Term_expandDbgTrace___closed__13; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} lean_object* l_Lean_Elab_Term_expandDbgTrace(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; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; 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_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; x_4 = lean_unsigned_to_nat(1u); x_5 = l_Lean_Syntax_getArg(x_1, x_4); x_6 = lean_unsigned_to_nat(3u); x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = lean_ctor_get(x_2, 2); -lean_inc(x_8); -x_9 = lean_ctor_get(x_2, 1); -lean_inc(x_9); +lean_inc(x_5); +x_8 = l_Lean_Syntax_getKind(x_5); +x_9 = l_Lean_interpolatedStrKind; +x_10 = lean_name_eq(x_8, x_9); +lean_dec(x_8); +if (x_10 == 0) +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; 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; +x_11 = lean_ctor_get(x_2, 2); +lean_inc(x_11); +x_12 = lean_ctor_get(x_2, 1); +lean_inc(x_12); lean_dec(x_2); -x_10 = l_Lean_Elab_Term_expandDbgTrace___closed__4; -lean_inc(x_8); -lean_inc(x_9); -x_11 = l_Lean_addMacroScope(x_9, x_10, x_8); -x_12 = l_Lean_SourceInfo_inhabited___closed__1; -x_13 = l_Lean_Elab_Term_expandDbgTrace___closed__3; -x_14 = l_Lean_Elab_Term_expandDbgTrace___closed__6; -x_15 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_15, 0, x_12); -lean_ctor_set(x_15, 1, x_13); -lean_ctor_set(x_15, 2, x_11); -lean_ctor_set(x_15, 3, x_14); -x_16 = l_Array_empty___closed__1; -x_17 = lean_array_push(x_16, x_15); -x_18 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____lambda__2___closed__4; -x_19 = l_Lean_addMacroScope(x_9, x_18, x_8); -x_20 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____lambda__2___closed__3; -x_21 = l_Lean_Elab_Term_expandDbgTrace___closed__8; -x_22 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_22, 0, x_12); -lean_ctor_set(x_22, 1, x_20); -lean_ctor_set(x_22, 2, x_19); -lean_ctor_set(x_22, 3, x_21); -x_23 = lean_array_push(x_16, x_22); -x_24 = lean_array_push(x_16, x_5); -x_25 = l_Lean_nullKind___closed__2; -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 = lean_array_push(x_23, x_26); -x_28 = l_Lean_mkAppStx___closed__8; +x_13 = l_Lean_Elab_Term_expandDbgTrace___closed__4; +lean_inc(x_11); +lean_inc(x_12); +x_14 = l_Lean_addMacroScope(x_12, x_13, x_11); +x_15 = l_Lean_SourceInfo_inhabited___closed__1; +x_16 = l_Lean_Elab_Term_expandDbgTrace___closed__3; +x_17 = l_Lean_Elab_Term_expandDbgTrace___closed__6; +x_18 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_18, 0, x_15); +lean_ctor_set(x_18, 1, x_16); +lean_ctor_set(x_18, 2, x_14); +lean_ctor_set(x_18, 3, x_17); +x_19 = l_Array_empty___closed__1; +x_20 = lean_array_push(x_19, x_18); +x_21 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____lambda__2___closed__4; +x_22 = l_Lean_addMacroScope(x_12, x_21, x_11); +x_23 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____lambda__2___closed__3; +x_24 = l_Lean_Elab_Term_expandDbgTrace___closed__8; +x_25 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_25, 0, x_15); +lean_ctor_set(x_25, 1, x_23); +lean_ctor_set(x_25, 2, x_22); +lean_ctor_set(x_25, 3, x_24); +x_26 = lean_array_push(x_19, x_25); +x_27 = lean_array_push(x_19, x_5); +x_28 = l_Lean_nullKind___closed__2; x_29 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_29, 0, x_28); lean_ctor_set(x_29, 1, x_27); -x_30 = lean_array_push(x_16, x_29); -x_31 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__5; -x_32 = lean_array_push(x_30, x_31); -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_25); -lean_ctor_set(x_33, 1, x_32); -x_34 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; -x_35 = lean_array_push(x_34, x_33); -x_36 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; -x_37 = lean_array_push(x_35, x_36); -x_38 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_38); -lean_ctor_set(x_39, 1, x_37); -x_40 = lean_array_push(x_16, x_39); -x_41 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; -x_42 = lean_array_push(x_41, x_7); -x_43 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; -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_40, x_44); -x_46 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_46, 0, x_25); -lean_ctor_set(x_46, 1, x_45); -x_47 = lean_array_push(x_17, x_46); -x_48 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_48, 0, x_28); -lean_ctor_set(x_48, 1, x_47); -x_49 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_49, 0, x_48); -lean_ctor_set(x_49, 1, x_3); -return x_49; +x_30 = lean_array_push(x_26, x_29); +x_31 = l_Lean_mkAppStx___closed__8; +x_32 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_32, 0, x_31); +lean_ctor_set(x_32, 1, x_30); +x_33 = lean_array_push(x_19, x_32); +x_34 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__5; +x_35 = lean_array_push(x_33, x_34); +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_28); +lean_ctor_set(x_36, 1, x_35); +x_37 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; +x_38 = lean_array_push(x_37, x_36); +x_39 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; +x_40 = lean_array_push(x_38, x_39); +x_41 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; +x_42 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_40); +x_43 = lean_array_push(x_19, x_42); +x_44 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; +x_45 = lean_array_push(x_44, x_7); +x_46 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; +x_47 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_47, 0, x_46); +lean_ctor_set(x_47, 1, x_45); +x_48 = lean_array_push(x_43, x_47); +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_28); +lean_ctor_set(x_49, 1, x_48); +x_50 = lean_array_push(x_20, x_49); +x_51 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_51, 0, x_31); +lean_ctor_set(x_51, 1, x_50); +x_52 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_52, 0, x_51); +lean_ctor_set(x_52, 1, x_3); +return x_52; +} +else +{ +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; +x_53 = lean_ctor_get(x_2, 2); +lean_inc(x_53); +x_54 = lean_ctor_get(x_2, 1); +lean_inc(x_54); +lean_dec(x_2); +x_55 = l_Lean_Elab_Term_expandDbgTrace___closed__4; +x_56 = l_Lean_addMacroScope(x_54, x_55, x_53); +x_57 = l_Lean_SourceInfo_inhabited___closed__1; +x_58 = l_Lean_Elab_Term_expandDbgTrace___closed__3; +x_59 = l_Lean_Elab_Term_expandDbgTrace___closed__6; +x_60 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_60, 0, x_57); +lean_ctor_set(x_60, 1, x_58); +lean_ctor_set(x_60, 2, x_56); +lean_ctor_set(x_60, 3, x_59); +x_61 = l_Array_empty___closed__1; +x_62 = lean_array_push(x_61, x_60); +x_63 = l_Lean_Elab_Term_expandDbgTrace___closed__14; +x_64 = lean_array_push(x_63, x_5); +x_65 = l_Lean_Elab_Term_expandDbgTrace___closed__12; +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_61, x_66); +x_68 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__5; +x_69 = lean_array_push(x_67, x_68); +x_70 = l_Lean_nullKind___closed__2; +x_71 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_71, 0, x_70); +lean_ctor_set(x_71, 1, x_69); +x_72 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; +x_73 = lean_array_push(x_72, x_71); +x_74 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; +x_75 = lean_array_push(x_73, x_74); +x_76 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; +x_77 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_77, 0, x_76); +lean_ctor_set(x_77, 1, x_75); +x_78 = lean_array_push(x_61, x_77); +x_79 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; +x_80 = lean_array_push(x_79, x_7); +x_81 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_81); +lean_ctor_set(x_82, 1, x_80); +x_83 = lean_array_push(x_78, x_82); +x_84 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_84, 0, x_70); +lean_ctor_set(x_84, 1, x_83); +x_85 = lean_array_push(x_62, x_84); +x_86 = l_Lean_mkAppStx___closed__8; +x_87 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_87, 0, x_86); +lean_ctor_set(x_87, 1, x_85); +x_88 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_3); +return x_88; +} } } lean_object* l_Lean_Elab_Term_expandDbgTrace___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -12745,6 +12893,18 @@ l_Lean_Elab_Term_expandDbgTrace___closed__7 = _init_l_Lean_Elab_Term_expandDbgTr lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__7); l_Lean_Elab_Term_expandDbgTrace___closed__8 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__8(); lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__8); +l_Lean_Elab_Term_expandDbgTrace___closed__9 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__9(); +lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__9); +l_Lean_Elab_Term_expandDbgTrace___closed__10 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__10(); +lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__10); +l_Lean_Elab_Term_expandDbgTrace___closed__11 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__11(); +lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__11); +l_Lean_Elab_Term_expandDbgTrace___closed__12 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__12(); +lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__12); +l_Lean_Elab_Term_expandDbgTrace___closed__13 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__13(); +lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__13); +l_Lean_Elab_Term_expandDbgTrace___closed__14 = _init_l_Lean_Elab_Term_expandDbgTrace___closed__14(); +lean_mark_persistent(l_Lean_Elab_Term_expandDbgTrace___closed__14); l___regBuiltin_Lean_Elab_Term_expandDbgTrace___closed__1 = _init_l___regBuiltin_Lean_Elab_Term_expandDbgTrace___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Elab_Term_expandDbgTrace___closed__1); l___regBuiltin_Lean_Elab_Term_expandDbgTrace___closed__2 = _init_l___regBuiltin_Lean_Elab_Term_expandDbgTrace___closed__2(); diff --git a/stage0/stdlib/Lean/Elab/PreDefinition/Main.c b/stage0/stdlib/Lean/Elab/PreDefinition/Main.c index 1a90a227b1..91402bdd89 100644 --- a/stage0/stdlib/Lean/Elab/PreDefinition/Main.c +++ b/stage0/stdlib/Lean/Elab/PreDefinition/Main.c @@ -29,6 +29,7 @@ extern lean_object* l_Lean_MessageData_ofList___closed__3; uint8_t l_USize_decEq(size_t, size_t); lean_object* lean_array_uget(lean_object*, size_t); lean_object* l___private_Lean_Util_SCC_7__addSCC___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__21___boxed(lean_object*, lean_object*); +lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__6; lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__1___closed__2; uint8_t l_Std_HashSetImp_contains___at_Lean_NameHashSet_contains___spec__1(lean_object*, lean_object*); @@ -96,11 +97,11 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Main lean_object* lean_st_ref_take(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__3; -extern lean_object* l_Array_iterateMAux___main___at_Lean_ppGoal___spec__6___closed__5; lean_object* l_Std_mkHashMap___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__25(lean_object*); lean_object* l___private_Lean_Util_SCC_5__updateLowLinkOf___rarg___lambda__1(lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__4; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_Std_mkHashMapImp___rarg(lean_object*); lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -145,7 +146,6 @@ lean_object* l___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_isNonRecursiv uint8_t l___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_isNonRecursive(lean_object*); lean_object* l_Std_PersistentArray_push___rarg(lean_object*, lean_object*); lean_object* l_Std_AssocList_find_x3f___main___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__9(lean_object*, lean_object*); -lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__7; lean_object* l___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_getMVarsAtPreDef_match__1___rarg(lean_object*, lean_object*); lean_object* l_Std_HashMapImp_moveEntries___main___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__15(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_setEnv___at_Lean_Meta_setInlineAttribute___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -155,6 +155,7 @@ uint8_t lean_nat_dec_le(lean_object*, lean_object*); lean_object* l_Array_findMAux___main___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__2(lean_object*, lean_object*, lean_object*); lean_object* lean_panic_fn(lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_Elab_addPreDefinitions___spec__5(lean_object*); +lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__5; lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___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* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__5___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* l_Lean_Expr_FoldConstsImpl_fold___main___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -177,9 +178,11 @@ lean_object* l___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreD lean_object* lean_mk_array(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_logUnassignedUsingErrorInfos(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_anyRangeMAux___main___at_Lean_Elab_addPreDefinitions___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__3; extern lean_object* l_Lean_Expr_FoldConstsImpl_initCache; lean_object* l_Lean_Elab_WFRecursion___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_indentD(lean_object*); +lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__3; lean_object* l_Lean_Expr_FindImpl_findM_x3f___main___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_isNonRecursive___spec__1(lean_object*, size_t, lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__2; lean_object* l___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_getMVarsAtPreDef(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -192,7 +195,6 @@ lean_object* l___private_Lean_Util_SCC_2__push___at___private_Lean_Elab_PreDefin lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__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* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Util_SCC_3__modifyDataOf___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__19(lean_object*, lean_object*, lean_object*); -extern lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__3; lean_object* l_Lean_Elab_addPreDefinitions___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4(lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -452,7 +454,7 @@ static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreD _start: { lean_object* x_1; -x_1 = lean_mk_string("inhabitant for "); +x_1 = lean_mk_string("inhabitant for {preDef.declName}"); return x_1; } } @@ -461,7 +463,18 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__1; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -479,51 +492,51 @@ lean_inc(x_13); x_14 = l_Lean_Elab_mkInhabitantFor(x_13, x_4, x_5, x_8, x_9, x_10, x_11, x_12); if (lean_obj_tag(x_14) == 0) { -lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; lean_object* x_39; lean_object* x_40; lean_object* x_41; uint8_t x_42; +lean_object* x_15; lean_object* x_16; uint8_t x_17; lean_object* x_18; lean_object* x_35; lean_object* x_36; lean_object* x_37; uint8_t x_38; x_15 = lean_ctor_get(x_14, 0); lean_inc(x_15); x_16 = lean_ctor_get(x_14, 1); lean_inc(x_16); lean_dec(x_14); -x_39 = lean_st_ref_get(x_11, x_16); -x_40 = lean_ctor_get(x_39, 0); -lean_inc(x_40); -x_41 = lean_ctor_get(x_40, 3); -lean_inc(x_41); -lean_dec(x_40); -x_42 = lean_ctor_get_uint8(x_41, sizeof(void*)*1); -lean_dec(x_41); -if (x_42 == 0) +x_35 = lean_st_ref_get(x_11, x_16); +x_36 = lean_ctor_get(x_35, 0); +lean_inc(x_36); +x_37 = lean_ctor_get(x_36, 3); +lean_inc(x_37); +lean_dec(x_36); +x_38 = lean_ctor_get_uint8(x_37, sizeof(void*)*1); +lean_dec(x_37); +if (x_38 == 0) { -lean_object* x_43; uint8_t x_44; -x_43 = lean_ctor_get(x_39, 1); -lean_inc(x_43); -lean_dec(x_39); -x_44 = 0; -x_17 = x_44; -x_18 = x_43; -goto block_38; +lean_object* x_39; uint8_t x_40; +x_39 = lean_ctor_get(x_35, 1); +lean_inc(x_39); +lean_dec(x_35); +x_40 = 0; +x_17 = x_40; +x_18 = x_39; +goto block_34; } else { -lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; uint8_t x_49; -x_45 = lean_ctor_get(x_39, 1); -lean_inc(x_45); -lean_dec(x_39); +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; +x_41 = lean_ctor_get(x_35, 1); +lean_inc(x_41); +lean_dec(x_35); lean_inc(x_3); -x_46 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_3, x_6, x_7, x_8, x_9, x_10, x_11, x_45); -x_47 = lean_ctor_get(x_46, 0); -lean_inc(x_47); -x_48 = lean_ctor_get(x_46, 1); -lean_inc(x_48); -lean_dec(x_46); -x_49 = lean_unbox(x_47); -lean_dec(x_47); -x_17 = x_49; -x_18 = x_48; -goto block_38; +x_42 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_3, x_6, x_7, x_8, x_9, x_10, x_11, x_41); +x_43 = lean_ctor_get(x_42, 0); +lean_inc(x_43); +x_44 = lean_ctor_get(x_42, 1); +lean_inc(x_44); +lean_dec(x_42); +x_45 = lean_unbox(x_43); +lean_dec(x_43); +x_17 = x_45; +x_18 = x_44; +goto block_34; } -block_38: +block_34: { if (x_17 == 0) { @@ -548,44 +561,34 @@ return x_24; } else { -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; uint8_t x_34; lean_object* x_35; uint8_t x_36; lean_object* x_37; -lean_inc(x_13); -x_25 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_25, 0, x_13); -x_26 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__2; -x_27 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_27, 0, x_26); -lean_ctor_set(x_27, 1, x_25); -x_28 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_29 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_29, 0, x_27); -lean_ctor_set(x_29, 1, x_28); -x_30 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_3, x_29, x_6, x_7, x_8, x_9, x_10, x_11, x_18); -x_31 = lean_ctor_get(x_30, 1); -lean_inc(x_31); -lean_dec(x_30); -x_32 = lean_ctor_get(x_1, 0); -lean_inc(x_32); -x_33 = lean_ctor_get(x_1, 1); -lean_inc(x_33); +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; lean_object* x_31; uint8_t x_32; lean_object* x_33; +x_25 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__3; +x_26 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_3, x_25, x_6, x_7, x_8, x_9, x_10, x_11, x_18); +x_27 = lean_ctor_get(x_26, 1); +lean_inc(x_27); +lean_dec(x_26); +x_28 = lean_ctor_get(x_1, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_1, 1); +lean_inc(x_29); lean_dec(x_1); -x_34 = 3; -x_35 = lean_alloc_ctor(0, 5, 1); -lean_ctor_set(x_35, 0, x_32); -lean_ctor_set(x_35, 1, x_33); -lean_ctor_set(x_35, 2, x_13); -lean_ctor_set(x_35, 3, x_2); -lean_ctor_set(x_35, 4, x_15); -lean_ctor_set_uint8(x_35, sizeof(void*)*5, x_34); -x_36 = 0; -x_37 = l___private_Lean_Elab_PreDefinition_Basic_0__Lean_Elab_addNonRecAux(x_35, x_36, x_6, x_7, x_8, x_9, x_10, x_11, x_31); -return x_37; +x_30 = 3; +x_31 = lean_alloc_ctor(0, 5, 1); +lean_ctor_set(x_31, 0, x_28); +lean_ctor_set(x_31, 1, x_29); +lean_ctor_set(x_31, 2, x_13); +lean_ctor_set(x_31, 3, x_2); +lean_ctor_set(x_31, 4, x_15); +lean_ctor_set_uint8(x_31, sizeof(void*)*5, x_30); +x_32 = 0; +x_33 = l___private_Lean_Elab_PreDefinition_Basic_0__Lean_Elab_addNonRecAux(x_31, x_32, x_6, x_7, x_8, x_9, x_10, x_11, x_27); +return x_33; } } } else { -uint8_t x_50; +uint8_t x_46; lean_dec(x_13); lean_dec(x_11); lean_dec(x_10); @@ -595,23 +598,23 @@ lean_dec(x_6); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_50 = !lean_is_exclusive(x_14); -if (x_50 == 0) +x_46 = !lean_is_exclusive(x_14); +if (x_46 == 0) { return x_14; } else { -lean_object* x_51; lean_object* x_52; lean_object* x_53; -x_51 = lean_ctor_get(x_14, 0); -x_52 = lean_ctor_get(x_14, 1); -lean_inc(x_52); -lean_inc(x_51); +lean_object* x_47; lean_object* x_48; lean_object* x_49; +x_47 = lean_ctor_get(x_14, 0); +x_48 = lean_ctor_get(x_14, 1); +lean_inc(x_48); +lean_inc(x_47); lean_dec(x_14); -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_51); -lean_ctor_set(x_53, 1, x_52); -return x_53; +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_47); +lean_ctor_set(x_49, 1, x_48); +return x_49; } } } @@ -620,7 +623,7 @@ static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreD _start: { lean_object* x_1; -x_1 = lean_mk_string("processing "); +x_1 = lean_mk_string("processing {preDef.declName}"); return x_1; } } @@ -629,7 +632,18 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__1; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -654,46 +668,61 @@ return x_13; } else { -lean_object* x_14; lean_object* x_15; uint8_t x_30; lean_object* x_31; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; +lean_object* x_14; lean_object* x_15; lean_object* x_30; lean_object* x_31; lean_object* x_32; uint8_t x_33; lean_dec(x_4); x_14 = lean_array_uget(x_1, x_3); -x_42 = lean_st_ref_get(x_10, x_11); -x_43 = lean_ctor_get(x_42, 0); -lean_inc(x_43); -x_44 = lean_ctor_get(x_43, 3); -lean_inc(x_44); -lean_dec(x_43); -x_45 = lean_ctor_get_uint8(x_44, sizeof(void*)*1); -lean_dec(x_44); -if (x_45 == 0) +x_30 = lean_st_ref_get(x_10, x_11); +x_31 = lean_ctor_get(x_30, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_31, 3); +lean_inc(x_32); +lean_dec(x_31); +x_33 = lean_ctor_get_uint8(x_32, sizeof(void*)*1); +lean_dec(x_32); +if (x_33 == 0) { -lean_object* x_46; uint8_t x_47; -x_46 = lean_ctor_get(x_42, 1); -lean_inc(x_46); -lean_dec(x_42); -x_47 = 0; -x_30 = x_47; -x_31 = x_46; -goto block_41; +lean_object* x_34; +x_34 = lean_ctor_get(x_30, 1); +lean_inc(x_34); +lean_dec(x_30); +x_15 = x_34; +goto block_29; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; uint8_t x_53; -x_48 = lean_ctor_get(x_42, 1); -lean_inc(x_48); -lean_dec(x_42); -x_49 = l___private_Lean_Elab_DefView_0__Lean_Elab_Command_regTraceClasses___closed__2; -x_50 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_49, x_5, x_6, x_7, x_8, x_9, x_10, x_48); -x_51 = lean_ctor_get(x_50, 0); -lean_inc(x_51); -x_52 = lean_ctor_get(x_50, 1); -lean_inc(x_52); -lean_dec(x_50); -x_53 = lean_unbox(x_51); -lean_dec(x_51); -x_30 = x_53; -x_31 = x_52; -goto block_41; +lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; uint8_t x_39; +x_35 = lean_ctor_get(x_30, 1); +lean_inc(x_35); +lean_dec(x_30); +x_36 = l___private_Lean_Elab_DefView_0__Lean_Elab_Command_regTraceClasses___closed__2; +x_37 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_36, x_5, x_6, x_7, x_8, x_9, x_10, x_35); +x_38 = lean_ctor_get(x_37, 0); +lean_inc(x_38); +x_39 = lean_unbox(x_38); +lean_dec(x_38); +if (x_39 == 0) +{ +lean_object* x_40; +x_40 = lean_ctor_get(x_37, 1); +lean_inc(x_40); +lean_dec(x_37); +x_15 = x_40; +goto block_29; +} +else +{ +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_41 = lean_ctor_get(x_37, 1); +lean_inc(x_41); +lean_dec(x_37); +x_42 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__3; +x_43 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_36, x_42, x_5, x_6, x_7, x_8, x_9, x_10, x_41); +x_44 = lean_ctor_get(x_43, 1); +lean_inc(x_44); +lean_dec(x_43); +x_15 = x_44; +goto block_29; +} } block_29: { @@ -756,37 +785,6 @@ return x_28; } } } -block_41: -{ -if (x_30 == 0) -{ -x_15 = x_31; -goto block_29; -} -else -{ -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; -x_32 = lean_ctor_get(x_14, 2); -lean_inc(x_32); -x_33 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_33, 0, x_32); -x_34 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__2; -x_35 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_33); -x_36 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_37 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_37, 0, x_35); -lean_ctor_set(x_37, 1, x_36); -x_38 = l___private_Lean_Elab_DefView_0__Lean_Elab_Command_regTraceClasses___closed__2; -x_39 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_38, x_37, x_5, x_6, x_7, x_8, x_9, x_10, x_31); -x_40 = lean_ctor_get(x_39, 1); -lean_inc(x_40); -lean_dec(x_39); -x_15 = x_40; -goto block_29; -} -} } } } @@ -4243,135 +4241,132 @@ static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefiniti _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Array_iterateMAux___main___at_Lean_ppGoal___spec__6___closed__5; -x_2 = l_Lean_stringToMessageData(x_1); +x_1 = lean_box(0); +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__4() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("{preDef.declName} : {preDef.type} :=\n{preDef.value}"); +return x_1; +} +} +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__5; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { _start: { -uint8_t x_12; -x_12 = x_3 < x_2; -if (x_12 == 0) +lean_object* x_12; lean_object* x_13; uint8_t x_19; +x_19 = x_3 < x_2; +if (x_19 == 0) { -lean_object* x_13; -x_13 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_13, 0, x_4); -lean_ctor_set(x_13, 1, x_11); -return x_13; +lean_object* x_20; +x_20 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_20, 0, x_4); +lean_ctor_set(x_20, 1, x_11); +return x_20; } else { -lean_object* x_14; uint8_t x_15; lean_object* x_16; lean_object* x_44; lean_object* x_45; lean_object* x_46; uint8_t x_47; +lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; lean_dec(x_4); -x_14 = lean_array_uget(x_1, x_3); -x_44 = lean_st_ref_get(x_10, x_11); -x_45 = lean_ctor_get(x_44, 0); -lean_inc(x_45); -x_46 = lean_ctor_get(x_45, 3); -lean_inc(x_46); -lean_dec(x_45); -x_47 = lean_ctor_get_uint8(x_46, sizeof(void*)*1); -lean_dec(x_46); -if (x_47 == 0) +x_21 = lean_st_ref_get(x_10, x_11); +x_22 = lean_ctor_get(x_21, 0); +lean_inc(x_22); +x_23 = lean_ctor_get(x_22, 3); +lean_inc(x_23); +lean_dec(x_22); +x_24 = lean_ctor_get_uint8(x_23, sizeof(void*)*1); +lean_dec(x_23); +if (x_24 == 0) { -lean_object* x_48; uint8_t x_49; -x_48 = lean_ctor_get(x_44, 1); -lean_inc(x_48); -lean_dec(x_44); -x_49 = 0; -x_15 = x_49; -x_16 = x_48; -goto block_43; +lean_object* x_25; lean_object* x_26; +x_25 = lean_ctor_get(x_21, 1); +lean_inc(x_25); +lean_dec(x_21); +x_26 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; +x_12 = x_26; +x_13 = x_25; +goto block_18; } else { -lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; uint8_t x_55; -x_50 = lean_ctor_get(x_44, 1); -lean_inc(x_50); -lean_dec(x_44); -x_51 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__2; -x_52 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_51, x_5, x_6, x_7, x_8, x_9, x_10, x_50); -x_53 = lean_ctor_get(x_52, 0); -lean_inc(x_53); -x_54 = lean_ctor_get(x_52, 1); -lean_inc(x_54); -lean_dec(x_52); -x_55 = lean_unbox(x_53); -lean_dec(x_53); -x_15 = x_55; -x_16 = x_54; -goto block_43; -} -block_43: -{ -if (x_15 == 0) -{ -size_t x_17; size_t x_18; lean_object* x_19; -lean_dec(x_14); -x_17 = 1; -x_18 = x_3 + x_17; -x_19 = lean_box(0); -x_3 = x_18; -x_4 = x_19; -x_11 = x_16; -goto _start; -} -else -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; 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; size_t x_39; size_t x_40; lean_object* x_41; -x_21 = lean_ctor_get(x_14, 2); -lean_inc(x_21); -x_22 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_22, 0, x_21); -x_23 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_24 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_24, 0, x_23); -lean_ctor_set(x_24, 1, x_22); -x_25 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; -x_26 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_26, 0, x_24); -lean_ctor_set(x_26, 1, x_25); -x_27 = lean_ctor_get(x_14, 3); +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; +x_27 = lean_ctor_get(x_21, 1); lean_inc(x_27); -x_28 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_28, 0, x_27); -x_29 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_29, 0, x_26); -lean_ctor_set(x_29, 1, x_28); -x_30 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__3; -x_31 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_31, 0, x_29); -lean_ctor_set(x_31, 1, x_30); -x_32 = lean_ctor_get(x_14, 4); +lean_dec(x_21); +x_28 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__2; +x_29 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_28, x_5, x_6, x_7, x_8, x_9, x_10, x_27); +x_30 = lean_ctor_get(x_29, 0); +lean_inc(x_30); +x_31 = lean_unbox(x_30); +lean_dec(x_30); +if (x_31 == 0) +{ +lean_object* x_32; lean_object* x_33; +x_32 = lean_ctor_get(x_29, 1); lean_inc(x_32); -lean_dec(x_14); -x_33 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_33, 0, x_32); -x_34 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_34, 0, x_31); -lean_ctor_set(x_34, 1, x_33); -x_35 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_35, 0, x_34); -lean_ctor_set(x_35, 1, x_23); -x_36 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__2; -x_37 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_36, x_35, x_5, x_6, x_7, x_8, x_9, x_10, x_16); -x_38 = lean_ctor_get(x_37, 1); -lean_inc(x_38); -lean_dec(x_37); -x_39 = 1; -x_40 = x_3 + x_39; -x_41 = lean_box(0); -x_3 = x_40; -x_4 = x_41; -x_11 = x_38; +lean_dec(x_29); +x_33 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; +x_12 = x_33; +x_13 = x_32; +goto block_18; +} +else +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_34 = lean_ctor_get(x_29, 1); +lean_inc(x_34); +lean_dec(x_29); +x_35 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__6; +x_36 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_28, x_35, x_5, x_6, x_7, x_8, x_9, x_10, x_34); +x_37 = lean_ctor_get(x_36, 1); +lean_inc(x_37); +lean_dec(x_36); +x_38 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; +x_12 = x_38; +x_13 = x_37; +goto block_18; +} +} +} +block_18: +{ +lean_object* x_14; size_t x_15; size_t x_16; +x_14 = lean_ctor_get(x_12, 0); +lean_inc(x_14); +lean_dec(x_12); +x_15 = 1; +x_16 = x_3 + x_15; +x_3 = x_16; +x_4 = x_14; +x_11 = x_13; goto _start; } } } -} -} lean_object* l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__2(lean_object* x_1, size_t x_2, size_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { _start: { @@ -4834,32 +4829,22 @@ return x_1; static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = lean_box(0); -x_2 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__3() { -_start: -{ lean_object* x_1; x_1 = lean_mk_string("scc"); return x_1; } } -static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__4() { +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__3() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l___private_Lean_Elab_DefView_0__Lean_Elab_Command_regTraceClasses___closed__2; -x_2 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__3; +x_2 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__5() { +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__4() { _start: { lean_object* x_1; @@ -4867,21 +4852,21 @@ x_1 = lean_mk_string("{preDefs.map (·.declName)}"); return x_1; } } -static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6() { +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__5() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__5; +x_1 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__4; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__7() { +static lean_object* _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6; +x_1 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__5; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -4914,7 +4899,7 @@ lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; uint x_96 = lean_ctor_get(x_91, 1); lean_inc(x_96); lean_dec(x_91); -x_97 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__4; +x_97 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__3; x_98 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__2(x_97, x_2, x_3, x_4, x_5, x_6, x_7, x_96); x_99 = lean_ctor_get(x_98, 0); lean_inc(x_99); @@ -4935,7 +4920,7 @@ lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; x_102 = lean_ctor_get(x_98, 1); lean_inc(x_102); lean_dec(x_98); -x_103 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__7; +x_103 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6; x_104 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__1(x_97, x_103, x_2, x_3, x_4, x_5, x_6, x_7, x_102); x_105 = lean_ctor_get(x_104, 1); lean_inc(x_105); @@ -5005,7 +4990,7 @@ if (x_20 == 0) lean_object* x_21; lean_object* x_22; x_21 = lean_ctor_get(x_19, 0); lean_dec(x_21); -x_22 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_22 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; lean_ctor_set(x_19, 0, x_22); return x_19; } @@ -5015,7 +5000,7 @@ lean_object* x_23; lean_object* x_24; lean_object* x_25; x_23 = lean_ctor_get(x_19, 1); lean_inc(x_23); lean_dec(x_19); -x_24 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_24 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; x_25 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_25, 0, x_24); lean_ctor_set(x_25, 1, x_23); @@ -5058,7 +5043,7 @@ if (x_31 == 0) lean_object* x_32; lean_object* x_33; x_32 = lean_ctor_get(x_30, 0); lean_dec(x_32); -x_33 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_33 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; lean_ctor_set(x_30, 0, x_33); return x_30; } @@ -5068,7 +5053,7 @@ lean_object* x_34; lean_object* x_35; lean_object* x_36; x_34 = lean_ctor_get(x_30, 1); lean_inc(x_34); lean_dec(x_30); -x_35 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_35 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; x_36 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_36, 0, x_35); lean_ctor_set(x_36, 1, x_34); @@ -5117,7 +5102,7 @@ if (x_42 == 0) lean_object* x_43; lean_object* x_44; x_43 = lean_ctor_get(x_41, 0); lean_dec(x_43); -x_44 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_44 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; lean_ctor_set(x_41, 0, x_44); return x_41; } @@ -5127,7 +5112,7 @@ lean_object* x_45; lean_object* x_46; lean_object* x_47; x_45 = lean_ctor_get(x_41, 1); lean_inc(x_45); lean_dec(x_41); -x_46 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_46 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; x_47 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_47, 0, x_46); lean_ctor_set(x_47, 1, x_45); @@ -5184,7 +5169,7 @@ if (x_59 == 0) lean_object* x_60; lean_object* x_61; x_60 = lean_ctor_get(x_58, 0); lean_dec(x_60); -x_61 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_61 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; lean_ctor_set(x_58, 0, x_61); return x_58; } @@ -5194,7 +5179,7 @@ lean_object* x_62; lean_object* x_63; lean_object* x_64; x_62 = lean_ctor_get(x_58, 1); lean_inc(x_62); lean_dec(x_58); -x_63 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_63 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; x_64 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_64, 0, x_63); lean_ctor_set(x_64, 1, x_62); @@ -5239,7 +5224,7 @@ if (x_71 == 0) lean_object* x_72; lean_object* x_73; x_72 = lean_ctor_get(x_70, 0); lean_dec(x_72); -x_73 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_73 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; lean_ctor_set(x_70, 0, x_73); return x_70; } @@ -5249,7 +5234,7 @@ lean_object* x_74; lean_object* x_75; lean_object* x_76; x_74 = lean_ctor_get(x_70, 1); lean_inc(x_74); lean_dec(x_70); -x_75 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__2; +x_75 = l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3; x_76 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_76, 0, x_75); lean_ctor_set(x_76, 1, x_74); @@ -5616,10 +5601,14 @@ l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Ela lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__1); l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__2 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__2(); lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__2); +l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__3 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__3(); +lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___lambda__1___closed__3); l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__1 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__1(); lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__1); l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__2 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__2(); lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__2); +l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__3 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__3(); +lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_addAndCompilePartial___spec__4___closed__3); l_Lean_SCC_scc___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__6___closed__1 = _init_l_Lean_SCC_scc___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__6___closed__1(); lean_mark_persistent(l_Lean_SCC_scc___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__6___closed__1); l_Lean_SCC_scc___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__6___closed__2 = _init_l_Lean_SCC_scc___at___private_Lean_Elab_PreDefinition_Main_0__Lean_Elab_partitionPreDefs___spec__6___closed__2(); @@ -5630,6 +5619,12 @@ l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__2 lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__2); l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3(); lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__3); +l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__4 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__4(); +lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__4); +l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__5 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__5(); +lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__5); +l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__6 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__6(); +lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__1___closed__6); l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__1___closed__1 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__1___closed__1(); lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__1___closed__1); l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__1___closed__2 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__1___closed__2(); @@ -5650,8 +5645,6 @@ l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4_ lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__5); l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6(); lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__6); -l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__7 = _init_l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__7(); -lean_mark_persistent(l_Array_forInUnsafe_loop___at_Lean_Elab_addPreDefinitions___spec__6___lambda__4___closed__7); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Elab/PreDefinition/Structural.c b/stage0/stdlib/Lean/Elab/PreDefinition/Structural.c index 566f6c3860..c430e70ec5 100644 --- a/stage0/stdlib/Lean/Elab/PreDefinition/Structural.c +++ b/stage0/stdlib/Lean/Elab/PreDefinition/Structural.c @@ -34,7 +34,6 @@ lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelow lean_object* l_Lean_stringToMessageData(lean_object*); lean_object* l_Lean_Elab_addAsAxiom(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Basic_27__withLocalDeclImp___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_withLocalDecl___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__2___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop_match__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Array_contains___at_Lean_Meta_addInstanceEntry___spec__11(lean_object*, lean_object*); @@ -60,10 +59,10 @@ lean_object* l_Lean_Core_mkFreshUserName___at___private_Lean_Elab_PreDefinition_ extern lean_object* l_Std_HashMap_inhabited___closed__1; lean_object* lean_array_uset(lean_object*, size_t, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_ensureNoRecFn___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__16; lean_object* lean_array_fswap(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_inferType___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_findAssumption_x3f___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___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__3; lean_object* l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg(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___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop_match__1___rarg(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__2; @@ -78,12 +77,10 @@ lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Str extern lean_object* l_Lean_Meta_decLevel___rarg___lambda__1___closed__6; lean_object* lean_st_ref_get(lean_object*, lean_object*); lean_object* l_Lean_Elab_addAndCompileUnsafeRec(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__8; extern lean_object* l_Lean_Elab_PreDefinition_inhabited; lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__4; uint8_t l_Lean_Expr_isAppOf(lean_object*, lean_object*); lean_object* l_ReaderT_bind___at_Lean_Meta_Lean_MonadLCtx___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__4; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_throwStructuralFailed___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__10; @@ -93,12 +90,14 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Stru lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux_match__2(lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___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* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__1; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___closed__1; -lean_object* l_Lean_MessageData_ofList(lean_object*); +lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9; lean_object* l_Lean_Expr_getAppFn___main(lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Expr_getAppArgs___closed__1; extern lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop___rarg___closed__7; @@ -215,7 +214,6 @@ lean_object* l_Lean_Meta_forEachExpr_x27___at___private_Lean_Elab_PreDefinition_ lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__1; lean_object* l_Lean_Expr_FindImpl_findM_x3f___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_containsRecFn___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___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* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadParamDep_x3f___spec__2___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -235,9 +233,8 @@ lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replace lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__3; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_ensureNoRecFn(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_initFn____x40_Lean_Elab_PreDefinition_Structural___hyg_3362_(lean_object*); +lean_object* l_Lean_Elab_initFn____x40_Lean_Elab_PreDefinition_Structural___hyg_3240_(lean_object*); uint8_t l_Lean_Expr_isConstOf(lean_object*, lean_object*); -extern lean_object* l_String_Iterator_HasRepr___closed__2; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_throwStructuralFailed___rarg___closed__2; lean_object* l___private_Lean_Meta_Basic_20__forallTelescopeReducingImp___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_mapErrorImp___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -252,6 +249,8 @@ lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadP lean_object* l___private_Init_Data_Array_Basic_8__allDiffAuxAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*); size_t lean_usize_of_nat(lean_object*); lean_object* l___private_Lean_Meta_LevelDefEq_2__decLevelImp(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Meta_Basic_21__forallBoundedTelescopeImp___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop_match__1___rarg(lean_object*, lean_object*, lean_object*); @@ -283,6 +282,7 @@ uint8_t l_Array_isPrefixOfAux___main___at___private_Lean_Elab_PreDefinition_Stru lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__1; lean_object* l_Lean_setEnv___at_Lean_Meta_setInlineAttribute___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_getLocalDecl___at_Lean_Meta_getFVarLocalDecl___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__3; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___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* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadIndexDep_x3f___spec__2___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_expr_eqv(lean_object*, lean_object*); @@ -305,8 +305,8 @@ lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Stru lean_object* l_Lean_Meta_MatcherApp_toExpr(lean_object*); extern lean_object* l_Lean_Meta_whnfRef; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_getIndexMinPos_match__1(lean_object*, lean_object*); +lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__10; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux_match__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_getFixedPrefix___boxed(lean_object*, lean_object*, lean_object*); uint8_t l_Array_contains___at___private_Lean_Meta_FunInfo_3__collectDepsAux___main___spec__2(lean_object*, lean_object*); lean_object* l_Array_filterAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -327,7 +327,6 @@ lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelow lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadIndexDep_x3f_match__2___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_throwToBelowFailed___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadParamDep_x3f_match__2___rarg(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_toList___rarg(lean_object*); extern lean_object* l_Lean_Expr_Inhabited; lean_object* l_Lean_Meta_mkAppM___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_mkInhabitant_x3f___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadParamDep_x3f___spec__1___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -338,6 +337,7 @@ lean_object* l_Lean_Meta_forEachExpr___at___private_Lean_Elab_PreDefinition_Stru lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadParamDep_x3f___spec__2___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Meta_decLevel___rarg___lambda__1___closed__3; +lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__11; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_ensureNoRecFn___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_HashMapImp_find_x3f___at_Lean_Meta_ForEachExpr_visit___main___spec__10(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop_match__2___rarg(lean_object*, lean_object*, lean_object*); @@ -351,7 +351,7 @@ lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelow lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__5; lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadParamDep_x3f_match__3(lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_getFixedPrefix_match__1___rarg(lean_object*, lean_object*); -lean_object* l_List_map___main___at_Lean_MessageData_hasCoeOfListExpr___spec__1(lean_object*); +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_hasBadIndexDep_x3f_match__1___rarg(lean_object*, lean_object*); lean_object* l_Lean_Meta_decLevel___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Nat_Inhabited; @@ -366,6 +366,7 @@ uint8_t lean_level_eq(lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelow___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop___rarg___closed__11; lean_object* l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg___closed__2; +lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__12; lean_object* l_Lean_indentExpr(lean_object*); lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__3; lean_object* l_Lean_hasConst___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -6880,7 +6881,20 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Meta_forallTelescopeReducing___at___priv return x_2; } } -lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +_start: +{ +lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; +x_7 = lean_ctor_get(x_4, 0); +x_8 = l_Lean_checkTraceOption(x_7, x_1); +x_9 = lean_box(x_8); +x_10 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_10, 0, x_9); +lean_ctor_set(x_10, 1, x_6); +return x_10; +} +} +lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; @@ -7047,19 +7061,6 @@ return x_56; } } } -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { -_start: -{ -lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; -x_7 = lean_ctor_get(x_4, 0); -x_8 = l_Lean_checkTraceOption(x_7, x_1); -x_9 = lean_box(x_8); -x_10 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_10, 0, x_9); -lean_ctor_set(x_10, 1, x_6); -return x_10; -} -} lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { _start: { @@ -7400,7 +7401,7 @@ static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean _start: { lean_object* x_1; -x_1 = lean_mk_string("belowDict: "); +x_1 = lean_mk_string("belowDict: {belowDict}, arg: {arg}"); return x_1; } } @@ -7409,24 +7410,18 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__13; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__15() { _start: { -lean_object* x_1; -x_1 = lean_mk_string(", arg: "); -return x_1; -} -} -static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__16() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__15; -x_2 = l_Lean_stringToMessageData(x_1); +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__14; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -7441,49 +7436,64 @@ lean_inc(x_5); x_10 = l_Lean_Meta_whnf___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop___spec__3(x_2, x_5, x_6, x_7, x_8, x_9); if (lean_obj_tag(x_10) == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; uint8_t x_124; lean_object* x_125; lean_object* x_139; lean_object* x_140; lean_object* x_141; uint8_t x_142; +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_124; lean_object* x_125; lean_object* x_126; uint8_t x_127; x_11 = lean_ctor_get(x_10, 0); lean_inc(x_11); x_12 = lean_ctor_get(x_10, 1); lean_inc(x_12); lean_dec(x_10); -x_139 = lean_st_ref_get(x_8, x_12); -x_140 = lean_ctor_get(x_139, 0); -lean_inc(x_140); -x_141 = lean_ctor_get(x_140, 3); -lean_inc(x_141); -lean_dec(x_140); -x_142 = lean_ctor_get_uint8(x_141, sizeof(void*)*1); -lean_dec(x_141); -if (x_142 == 0) +x_124 = lean_st_ref_get(x_8, x_12); +x_125 = lean_ctor_get(x_124, 0); +lean_inc(x_125); +x_126 = lean_ctor_get(x_125, 3); +lean_inc(x_126); +lean_dec(x_125); +x_127 = lean_ctor_get_uint8(x_126, sizeof(void*)*1); +lean_dec(x_126); +if (x_127 == 0) { -lean_object* x_143; uint8_t x_144; -x_143 = lean_ctor_get(x_139, 1); -lean_inc(x_143); -lean_dec(x_139); -x_144 = 0; -x_124 = x_144; -x_125 = x_143; -goto block_138; +lean_object* x_128; +x_128 = lean_ctor_get(x_124, 1); +lean_inc(x_128); +lean_dec(x_124); +x_13 = x_128; +goto block_123; } else { -lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; uint8_t x_150; -x_145 = lean_ctor_get(x_139, 1); -lean_inc(x_145); -lean_dec(x_139); -x_146 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_147 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_146, x_5, x_6, x_7, x_8, x_145); -x_148 = lean_ctor_get(x_147, 0); -lean_inc(x_148); -x_149 = lean_ctor_get(x_147, 1); -lean_inc(x_149); -lean_dec(x_147); -x_150 = lean_unbox(x_148); -lean_dec(x_148); -x_124 = x_150; -x_125 = x_149; -goto block_138; +lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; uint8_t x_133; +x_129 = lean_ctor_get(x_124, 1); +lean_inc(x_129); +lean_dec(x_124); +x_130 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_131 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_130, x_5, x_6, x_7, x_8, x_129); +x_132 = lean_ctor_get(x_131, 0); +lean_inc(x_132); +x_133 = lean_unbox(x_132); +lean_dec(x_132); +if (x_133 == 0) +{ +lean_object* x_134; +x_134 = lean_ctor_get(x_131, 1); +lean_inc(x_134); +lean_dec(x_131); +x_13 = x_134; +goto block_123; +} +else +{ +lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; +x_135 = lean_ctor_get(x_131, 1); +lean_inc(x_135); +lean_dec(x_131); +x_136 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__15; +x_137 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_130, x_136, x_5, x_6, x_7, x_8, x_135); +x_138 = lean_ctor_get(x_137, 1); +lean_inc(x_138); +lean_dec(x_137); +x_13 = x_138; +goto block_123; +} } block_123: { @@ -7983,50 +7993,10 @@ x_122 = l_Lean_Meta_forallTelescopeReducing___at___private_Lean_Elab_PreDefiniti return x_122; } } -block_138: -{ -if (x_124 == 0) -{ -x_13 = x_125; -goto block_123; } else { -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_inc(x_11); -x_126 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_126, 0, x_11); -x_127 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__14; -x_128 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_128, 0, x_127); -lean_ctor_set(x_128, 1, x_126); -x_129 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__16; -x_130 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_130, 0, x_128); -lean_ctor_set(x_130, 1, x_129); -lean_inc(x_3); -x_131 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_131, 0, x_3); -x_132 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_132, 0, x_130); -lean_ctor_set(x_132, 1, x_131); -x_133 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_134 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_134, 0, x_132); -lean_ctor_set(x_134, 1, x_133); -x_135 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_136 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_135, x_134, x_5, x_6, x_7, x_8, x_125); -x_137 = lean_ctor_get(x_136, 1); -lean_inc(x_137); -lean_dec(x_136); -x_13 = x_137; -goto block_123; -} -} -} -else -{ -uint8_t x_151; +uint8_t x_139; lean_dec(x_8); lean_dec(x_7); lean_dec(x_6); @@ -8034,44 +8004,32 @@ lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_1); -x_151 = !lean_is_exclusive(x_10); -if (x_151 == 0) +x_139 = !lean_is_exclusive(x_10); +if (x_139 == 0) { return x_10; } else { -lean_object* x_152; lean_object* x_153; lean_object* x_154; -x_152 = lean_ctor_get(x_10, 0); -x_153 = lean_ctor_get(x_10, 1); -lean_inc(x_153); -lean_inc(x_152); +lean_object* x_140; lean_object* x_141; lean_object* x_142; +x_140 = lean_ctor_get(x_10, 0); +x_141 = lean_ctor_get(x_10, 1); +lean_inc(x_141); +lean_inc(x_140); lean_dec(x_10); -x_154 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_154, 0, x_152); -lean_ctor_set(x_154, 1, x_153); -return x_154; +x_142 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_142, 0, x_140); +lean_ctor_set(x_142, 1, x_141); +return x_142; } } } } -lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { -_start: -{ -lean_object* x_8; -x_8 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -return x_8; -} -} -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { lean_object* x_7; -x_7 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_1, x_2, x_3, x_4, x_5, x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); @@ -8079,6 +8037,18 @@ lean_dec(x_2); return x_7; } } +lean_object* l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { +_start: +{ +lean_object* x_8; +x_8 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +return x_8; +} +} lean_object* l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { _start: { @@ -8485,7 +8455,7 @@ static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean _start: { lean_object* x_1; -x_1 = lean_mk_string("belowType: "); +x_1 = lean_mk_string("belowType: {belowType}"); return x_1; } } @@ -8494,7 +8464,18 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__1; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -8509,49 +8490,64 @@ lean_inc(x_4); x_9 = l_Lean_Meta_inferType___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_findAssumption_x3f___spec__1(x_1, x_4, x_5, x_6, x_7, x_8); if (lean_obj_tag(x_9) == 0) { -lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_21; lean_object* x_22; lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_35; +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; x_10 = lean_ctor_get(x_9, 0); lean_inc(x_10); x_11 = lean_ctor_get(x_9, 1); lean_inc(x_11); lean_dec(x_9); -x_32 = lean_st_ref_get(x_7, x_11); -x_33 = lean_ctor_get(x_32, 0); -lean_inc(x_33); -x_34 = lean_ctor_get(x_33, 3); -lean_inc(x_34); -lean_dec(x_33); -x_35 = lean_ctor_get_uint8(x_34, sizeof(void*)*1); -lean_dec(x_34); -if (x_35 == 0) +x_21 = lean_st_ref_get(x_7, x_11); +x_22 = lean_ctor_get(x_21, 0); +lean_inc(x_22); +x_23 = lean_ctor_get(x_22, 3); +lean_inc(x_23); +lean_dec(x_22); +x_24 = lean_ctor_get_uint8(x_23, sizeof(void*)*1); +lean_dec(x_23); +if (x_24 == 0) { -lean_object* x_36; uint8_t x_37; -x_36 = lean_ctor_get(x_32, 1); -lean_inc(x_36); -lean_dec(x_32); -x_37 = 0; -x_21 = x_37; -x_22 = x_36; -goto block_31; +lean_object* x_25; +x_25 = lean_ctor_get(x_21, 1); +lean_inc(x_25); +lean_dec(x_21); +x_12 = x_25; +goto block_20; } else { -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; uint8_t x_43; -x_38 = lean_ctor_get(x_32, 1); -lean_inc(x_38); -lean_dec(x_32); -x_39 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_40 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_39, x_4, x_5, x_6, x_7, x_38); -x_41 = lean_ctor_get(x_40, 0); -lean_inc(x_41); -x_42 = lean_ctor_get(x_40, 1); -lean_inc(x_42); -lean_dec(x_40); -x_43 = lean_unbox(x_41); -lean_dec(x_41); -x_21 = x_43; -x_22 = x_42; -goto block_31; +lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; uint8_t x_30; +x_26 = lean_ctor_get(x_21, 1); +lean_inc(x_26); +lean_dec(x_21); +x_27 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_28 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_27, x_4, x_5, x_6, x_7, x_26); +x_29 = lean_ctor_get(x_28, 0); +lean_inc(x_29); +x_30 = lean_unbox(x_29); +lean_dec(x_29); +if (x_30 == 0) +{ +lean_object* x_31; +x_31 = lean_ctor_get(x_28, 1); +lean_inc(x_31); +lean_dec(x_28); +x_12 = x_31; +goto block_20; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_32 = lean_ctor_get(x_28, 1); +lean_inc(x_32); +lean_dec(x_28); +x_33 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__3; +x_34 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_27, x_33, x_4, x_5, x_6, x_7, x_32); +x_35 = lean_ctor_get(x_34, 1); +lean_inc(x_35); +lean_dec(x_34); +x_12 = x_35; +goto block_20; +} } block_20: { @@ -8568,63 +8564,33 @@ lean_inc(x_10); x_19 = l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg(x_2, x_3, x_10, x_10, x_16, x_18, x_4, x_5, x_6, x_7, x_12); return x_19; } -block_31: -{ -if (x_21 == 0) -{ -x_12 = x_22; -goto block_20; } else { -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; -lean_inc(x_10); -x_23 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_23, 0, x_10); -x_24 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__2; -x_25 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_25, 0, x_24); -lean_ctor_set(x_25, 1, x_23); -x_26 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_27 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_27, 0, x_25); -lean_ctor_set(x_27, 1, x_26); -x_28 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_29 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_28, x_27, x_4, x_5, x_6, x_7, x_22); -x_30 = lean_ctor_get(x_29, 1); -lean_inc(x_30); -lean_dec(x_29); -x_12 = x_30; -goto block_20; -} -} -} -else -{ -uint8_t x_44; +uint8_t x_36; lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_44 = !lean_is_exclusive(x_9); -if (x_44 == 0) +x_36 = !lean_is_exclusive(x_9); +if (x_36 == 0) { return x_9; } else { -lean_object* x_45; lean_object* x_46; lean_object* x_47; -x_45 = lean_ctor_get(x_9, 0); -x_46 = lean_ctor_get(x_9, 1); -lean_inc(x_46); -lean_inc(x_45); +lean_object* x_37; lean_object* x_38; lean_object* x_39; +x_37 = lean_ctor_get(x_9, 0); +x_38 = lean_ctor_get(x_9, 1); +lean_inc(x_38); +lean_inc(x_37); lean_dec(x_9); -x_47 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_47, 0, x_45); -lean_ctor_set(x_47, 1, x_46); -return x_47; +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_37); +lean_ctor_set(x_39, 1, x_38); +return x_39; } } } @@ -15927,7 +15893,7 @@ static lean_object* _init_l_Array_umapMAux___main___at___private_Lean_Elab_PreDe _start: { lean_object* x_1; -x_1 = lean_mk_string("altNumParams: "); +x_1 = lean_mk_string("altNumParams: {numParams}, xs: {xs}"); return x_1; } } @@ -15936,68 +15902,77 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__5; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } static lean_object* _init_l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__7() { _start: { -lean_object* x_1; -x_1 = lean_mk_string(", xs: "); -return x_1; -} -} -static lean_object* _init_l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__8() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__7; -x_2 = l_Lean_stringToMessageData(x_1); +x_1 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__6; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { _start: { -lean_object* x_13; uint8_t x_43; lean_object* x_44; lean_object* x_61; lean_object* x_62; lean_object* x_63; uint8_t x_64; -x_61 = lean_st_ref_get(x_11, x_12); -x_62 = lean_ctor_get(x_61, 0); -lean_inc(x_62); -x_63 = lean_ctor_get(x_62, 3); -lean_inc(x_63); -lean_dec(x_62); -x_64 = lean_ctor_get_uint8(x_63, sizeof(void*)*1); -lean_dec(x_63); -if (x_64 == 0) +lean_object* x_13; lean_object* x_43; lean_object* x_44; lean_object* x_45; uint8_t x_46; +x_43 = lean_st_ref_get(x_11, x_12); +x_44 = lean_ctor_get(x_43, 0); +lean_inc(x_44); +x_45 = lean_ctor_get(x_44, 3); +lean_inc(x_45); +lean_dec(x_44); +x_46 = lean_ctor_get_uint8(x_45, sizeof(void*)*1); +lean_dec(x_45); +if (x_46 == 0) { -lean_object* x_65; uint8_t x_66; -x_65 = lean_ctor_get(x_61, 1); -lean_inc(x_65); -lean_dec(x_61); -x_66 = 0; -x_43 = x_66; -x_44 = x_65; -goto block_60; +lean_object* x_47; +x_47 = lean_ctor_get(x_43, 1); +lean_inc(x_47); +lean_dec(x_43); +x_13 = x_47; +goto block_42; } else { -lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; uint8_t x_72; -x_67 = lean_ctor_get(x_61, 1); -lean_inc(x_67); -lean_dec(x_61); -x_68 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_69 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_68, x_8, x_9, x_10, x_11, x_67); -x_70 = lean_ctor_get(x_69, 0); -lean_inc(x_70); -x_71 = lean_ctor_get(x_69, 1); -lean_inc(x_71); -lean_dec(x_69); -x_72 = lean_unbox(x_70); -lean_dec(x_70); -x_43 = x_72; -x_44 = x_71; -goto block_60; +lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; +x_48 = lean_ctor_get(x_43, 1); +lean_inc(x_48); +lean_dec(x_43); +x_49 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_50 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_49, x_8, x_9, x_10, x_11, x_48); +x_51 = lean_ctor_get(x_50, 0); +lean_inc(x_51); +x_52 = lean_unbox(x_51); +lean_dec(x_51); +if (x_52 == 0) +{ +lean_object* x_53; +x_53 = lean_ctor_get(x_50, 1); +lean_inc(x_53); +lean_dec(x_50); +x_13 = x_53; +goto block_42; +} +else +{ +lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; +x_54 = lean_ctor_get(x_50, 1); +lean_inc(x_54); +lean_dec(x_50); +x_55 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__7; +x_56 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_49, x_55, x_8, x_9, x_10, x_11, x_54); +x_57 = lean_ctor_get(x_56, 1); +lean_inc(x_57); +lean_dec(x_56); +x_13 = x_57; +goto block_42; +} } block_42: { @@ -16012,7 +15987,6 @@ lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); lean_dec(x_4); -lean_dec(x_1); x_16 = l_Lean_indentExpr(x_2); x_17 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__2; x_18 = lean_alloc_ctor(10, 2, 0); @@ -16061,7 +16035,6 @@ lean_dec(x_3); lean_dec(x_2); x_30 = lean_unsigned_to_nat(1u); x_31 = lean_nat_sub(x_1, x_30); -lean_dec(x_1); x_32 = l_Lean_Expr_Inhabited; x_33 = lean_array_get(x_32, x_6, x_31); lean_dec(x_31); @@ -16113,48 +16086,6 @@ return x_41; } } } -block_60: -{ -if (x_43 == 0) -{ -x_13 = x_44; -goto block_42; -} -else -{ -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_inc(x_1); -x_45 = l_Lean_fmt___at_Lean_Position_Lean_HasFormat___spec__1(x_1); -x_46 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_46, 0, x_45); -x_47 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__6; -x_48 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_48, 0, x_47); -lean_ctor_set(x_48, 1, x_46); -x_49 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__8; -x_50 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_50, 0, x_48); -lean_ctor_set(x_50, 1, x_49); -x_51 = l_Array_toList___rarg(x_6); -x_52 = l_List_map___main___at_Lean_MessageData_hasCoeOfListExpr___spec__1(x_51); -x_53 = l_Lean_MessageData_ofList(x_52); -lean_dec(x_52); -x_54 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_54, 0, x_50); -lean_ctor_set(x_54, 1, x_53); -x_55 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_56 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_56, 0, x_54); -lean_ctor_set(x_56, 1, x_55); -x_57 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_58 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_57, x_56, x_8, x_9, x_10, x_11, x_44); -x_59 = lean_ctor_get(x_58, 1); -lean_inc(x_59); -lean_dec(x_58); -x_13 = x_59; -goto block_42; -} -} } } lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { @@ -16197,7 +16128,7 @@ lean_inc(x_2); lean_inc(x_1); lean_inc(x_3); lean_inc(x_19); -x_21 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1), 12, 5); +x_21 = lean_alloc_closure((void*)(l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___boxed), 12, 5); lean_closure_set(x_21, 0, x_20); lean_closure_set(x_21, 1, x_19); lean_closure_set(x_21, 2, x_3); @@ -20720,6 +20651,15 @@ lean_dec(x_1); return x_8; } } +lean_object* l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12) { +_start: +{ +lean_object* x_13; +x_13 = l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11, x_12); +lean_dec(x_1); +return x_13; +} +} lean_object* l_Array_iterateMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__10___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) { _start: { @@ -21141,7 +21081,7 @@ static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean _start: { lean_object* x_1; -x_1 = lean_mk_string("brecOnType "); +x_1 = lean_mk_string("brecOnType {brecOnType}"); return x_1; } } @@ -21150,33 +21090,37 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__1; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__3() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("brecOn "); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__3; -x_2 = l_Lean_stringToMessageData(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("brecOn {brecOn}"); +return x_1; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__5() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("brecOn motive: "); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__4; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__6() { @@ -21184,7 +21128,8 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__5; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -21192,7 +21137,7 @@ static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean _start: { lean_object* x_1; -x_1 = lean_mk_string("brecOn univ: "); +x_1 = lean_mk_string("brecOn motive: {motive}"); return x_1; } } @@ -21201,7 +21146,46 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__7; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__8; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__10() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("brecOn univ: {brecOnUniv}"); +return x_1; +} +} +static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__11() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__10; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__12() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__11; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -21252,100 +21236,115 @@ lean_inc(x_20); x_22 = l___private_Lean_Meta_InferType_4__getLevelImp(x_20, x_4, x_5, x_6, x_7, x_21); if (lean_obj_tag(x_22) == 0) { -lean_object* x_23; lean_object* x_24; lean_object* x_25; uint8_t x_285; lean_object* x_286; lean_object* x_296; lean_object* x_297; lean_object* x_298; uint8_t x_299; +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_243; lean_object* x_244; lean_object* x_245; uint8_t x_246; x_23 = lean_ctor_get(x_22, 0); lean_inc(x_23); x_24 = lean_ctor_get(x_22, 1); lean_inc(x_24); lean_dec(x_22); -x_296 = lean_st_ref_get(x_7, x_24); -x_297 = lean_ctor_get(x_296, 0); -lean_inc(x_297); -x_298 = lean_ctor_get(x_297, 3); -lean_inc(x_298); -lean_dec(x_297); -x_299 = lean_ctor_get_uint8(x_298, sizeof(void*)*1); -lean_dec(x_298); -if (x_299 == 0) +x_243 = lean_st_ref_get(x_7, x_24); +x_244 = lean_ctor_get(x_243, 0); +lean_inc(x_244); +x_245 = lean_ctor_get(x_244, 3); +lean_inc(x_245); +lean_dec(x_244); +x_246 = lean_ctor_get_uint8(x_245, sizeof(void*)*1); +lean_dec(x_245); +if (x_246 == 0) { -lean_object* x_300; uint8_t x_301; -x_300 = lean_ctor_get(x_296, 1); -lean_inc(x_300); -lean_dec(x_296); -x_301 = 0; -x_285 = x_301; -x_286 = x_300; -goto block_295; +lean_object* x_247; +x_247 = lean_ctor_get(x_243, 1); +lean_inc(x_247); +lean_dec(x_243); +x_25 = x_247; +goto block_242; } else { -lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; uint8_t x_307; -x_302 = lean_ctor_get(x_296, 1); -lean_inc(x_302); -lean_dec(x_296); -x_303 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_304 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_303, x_4, x_5, x_6, x_7, x_302); -x_305 = lean_ctor_get(x_304, 0); -lean_inc(x_305); -x_306 = lean_ctor_get(x_304, 1); -lean_inc(x_306); -lean_dec(x_304); -x_307 = lean_unbox(x_305); -lean_dec(x_305); -x_285 = x_307; -x_286 = x_306; -goto block_295; +lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; uint8_t x_252; +x_248 = lean_ctor_get(x_243, 1); +lean_inc(x_248); +lean_dec(x_243); +x_249 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_250 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_249, x_4, x_5, x_6, x_7, x_248); +x_251 = lean_ctor_get(x_250, 0); +lean_inc(x_251); +x_252 = lean_unbox(x_251); +lean_dec(x_251); +if (x_252 == 0) +{ +lean_object* x_253; +x_253 = lean_ctor_get(x_250, 1); +lean_inc(x_253); +lean_dec(x_250); +x_25 = x_253; +goto block_242; } -block_284: +else +{ +lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; +x_254 = lean_ctor_get(x_250, 1); +lean_inc(x_254); +lean_dec(x_250); +x_255 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__12; +x_256 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_249, x_255, x_4, x_5, x_6, x_7, x_254); +x_257 = lean_ctor_get(x_256, 1); +lean_inc(x_257); +lean_dec(x_256); +x_25 = x_257; +goto block_242; +} +} +block_242: { uint8_t x_26; uint8_t x_27; x_26 = lean_ctor_get_uint8(x_2, sizeof(void*)*8); if (x_26 == 0) { -uint8_t x_281; -x_281 = 0; -x_27 = x_281; -goto block_280; +uint8_t x_239; +x_239 = 0; +x_27 = x_239; +goto block_238; } else { -lean_object* x_282; uint8_t x_283; -x_282 = l_Lean_levelZero; -x_283 = lean_level_eq(x_23, x_282); -x_27 = x_283; -goto block_280; +lean_object* x_240; uint8_t x_241; +x_240 = l_Lean_levelZero; +x_241 = lean_level_eq(x_23, x_240); +x_27 = x_241; +goto block_238; } -block_280: +block_238: { uint8_t x_28; if (x_26 == 0) { -uint8_t x_275; -x_275 = 0; -x_28 = x_275; -goto block_274; +uint8_t x_233; +x_233 = 0; +x_28 = x_233; +goto block_232; } else { -lean_object* x_276; uint8_t x_277; -x_276 = l_Lean_levelZero; -x_277 = lean_level_eq(x_23, x_276); -if (x_277 == 0) +lean_object* x_234; uint8_t x_235; +x_234 = l_Lean_levelZero; +x_235 = lean_level_eq(x_23, x_234); +if (x_235 == 0) { -uint8_t x_278; -x_278 = 1; -x_28 = x_278; -goto block_274; +uint8_t x_236; +x_236 = 1; +x_28 = x_236; +goto block_232; } else { -uint8_t x_279; -x_279 = 0; -x_28 = x_279; -goto block_274; +uint8_t x_237; +x_237 = 0; +x_28 = x_237; +goto block_232; } } -block_274: +block_232: { if (x_28 == 0) { @@ -21359,86 +21358,101 @@ lean_inc(x_4); x_31 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_mkFnInhabitant_x3f_loop___spec__2(x_30, x_20, x_4, x_5, x_6, x_7, x_25); if (lean_obj_tag(x_31) == 0) { -lean_object* x_32; lean_object* x_33; lean_object* x_34; uint8_t x_121; lean_object* x_122; lean_object* x_132; lean_object* x_133; lean_object* x_134; uint8_t x_135; +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_108; lean_object* x_109; lean_object* x_110; uint8_t x_111; x_32 = lean_ctor_get(x_31, 0); lean_inc(x_32); x_33 = lean_ctor_get(x_31, 1); lean_inc(x_33); lean_dec(x_31); -x_132 = lean_st_ref_get(x_7, x_33); -x_133 = lean_ctor_get(x_132, 0); -lean_inc(x_133); -x_134 = lean_ctor_get(x_133, 3); -lean_inc(x_134); -lean_dec(x_133); -x_135 = lean_ctor_get_uint8(x_134, sizeof(void*)*1); -lean_dec(x_134); -if (x_135 == 0) +x_108 = lean_st_ref_get(x_7, x_33); +x_109 = lean_ctor_get(x_108, 0); +lean_inc(x_109); +x_110 = lean_ctor_get(x_109, 3); +lean_inc(x_110); +lean_dec(x_109); +x_111 = lean_ctor_get_uint8(x_110, sizeof(void*)*1); +lean_dec(x_110); +if (x_111 == 0) { -lean_object* x_136; uint8_t x_137; -x_136 = lean_ctor_get(x_132, 1); -lean_inc(x_136); -lean_dec(x_132); -x_137 = 0; -x_121 = x_137; -x_122 = x_136; -goto block_131; +lean_object* x_112; +x_112 = lean_ctor_get(x_108, 1); +lean_inc(x_112); +lean_dec(x_108); +x_34 = x_112; +goto block_107; } else { -lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; uint8_t x_143; -x_138 = lean_ctor_get(x_132, 1); -lean_inc(x_138); -lean_dec(x_132); -x_139 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_140 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_139, x_4, x_5, x_6, x_7, x_138); -x_141 = lean_ctor_get(x_140, 0); -lean_inc(x_141); -x_142 = lean_ctor_get(x_140, 1); -lean_inc(x_142); -lean_dec(x_140); -x_143 = lean_unbox(x_141); -lean_dec(x_141); -x_121 = x_143; -x_122 = x_142; -goto block_131; +lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; uint8_t x_117; +x_113 = lean_ctor_get(x_108, 1); +lean_inc(x_113); +lean_dec(x_108); +x_114 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_115 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_114, x_4, x_5, x_6, x_7, x_113); +x_116 = lean_ctor_get(x_115, 0); +lean_inc(x_116); +x_117 = lean_unbox(x_116); +lean_dec(x_116); +if (x_117 == 0) +{ +lean_object* x_118; +x_118 = lean_ctor_get(x_115, 1); +lean_inc(x_118); +lean_dec(x_115); +x_34 = x_118; +goto block_107; } -block_120: +else +{ +lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_119 = lean_ctor_get(x_115, 1); +lean_inc(x_119); +lean_dec(x_115); +x_120 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9; +x_121 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_114, x_120, x_4, x_5, x_6, x_7, x_119); +x_122 = lean_ctor_get(x_121, 1); +lean_inc(x_122); +lean_dec(x_121); +x_34 = x_122; +goto block_107; +} +} +block_107: { lean_object* x_35; lean_object* x_36; x_35 = lean_ctor_get(x_2, 6); lean_inc(x_35); if (x_27 == 0) { -lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; -x_109 = lean_ctor_get(x_2, 4); -lean_inc(x_109); -x_110 = l_Lean_Meta_brecOnSuffix; -x_111 = lean_name_mk_string(x_109, x_110); -x_112 = lean_ctor_get(x_2, 5); -lean_inc(x_112); -x_113 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_113, 0, x_23); -lean_ctor_set(x_113, 1, x_112); -x_114 = l_Lean_mkConst(x_111, x_113); -x_36 = x_114; -goto block_108; +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; +x_96 = lean_ctor_get(x_2, 4); +lean_inc(x_96); +x_97 = l_Lean_Meta_brecOnSuffix; +x_98 = lean_name_mk_string(x_96, x_97); +x_99 = lean_ctor_get(x_2, 5); +lean_inc(x_99); +x_100 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_100, 0, x_23); +lean_ctor_set(x_100, 1, x_99); +x_101 = l_Lean_mkConst(x_98, x_100); +x_36 = x_101; +goto block_95; } else { -lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; +lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_dec(x_23); -x_115 = lean_ctor_get(x_2, 4); -lean_inc(x_115); -x_116 = l_Lean_Meta_binductionOnSuffix; -x_117 = lean_name_mk_string(x_115, x_116); -x_118 = lean_ctor_get(x_2, 5); -lean_inc(x_118); -x_119 = l_Lean_mkConst(x_117, x_118); -x_36 = x_119; -goto block_108; +x_102 = lean_ctor_get(x_2, 4); +lean_inc(x_102); +x_103 = l_Lean_Meta_binductionOnSuffix; +x_104 = lean_name_mk_string(x_102, x_103); +x_105 = lean_ctor_get(x_2, 5); +lean_inc(x_105); +x_106 = l_Lean_mkConst(x_104, x_105); +x_36 = x_106; +goto block_95; } -block_108: +block_95: { lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; x_37 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_35, x_35, x_17, x_36); @@ -21467,175 +21481,153 @@ lean_inc(x_40); x_43 = l_Lean_Meta_inferType___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_findAssumption_x3f___spec__1(x_40, x_4, x_5, x_6, x_7, x_42); if (lean_obj_tag(x_43) == 0) { -lean_object* x_44; lean_object* x_45; uint8_t x_46; lean_object* x_47; lean_object* x_63; uint8_t x_77; lean_object* x_78; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint8_t x_91; +lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; x_44 = lean_ctor_get(x_43, 0); lean_inc(x_44); x_45 = lean_ctor_get(x_43, 1); lean_inc(x_45); lean_dec(x_43); -x_88 = lean_st_ref_get(x_7, x_45); -x_89 = lean_ctor_get(x_88, 0); -lean_inc(x_89); -x_90 = lean_ctor_get(x_89, 3); -lean_inc(x_90); -lean_dec(x_89); -x_91 = lean_ctor_get_uint8(x_90, sizeof(void*)*1); -lean_dec(x_90); -if (x_91 == 0) -{ -lean_object* x_92; uint8_t x_93; -x_92 = lean_ctor_get(x_88, 1); -lean_inc(x_92); -lean_dec(x_88); -x_93 = 0; -x_77 = x_93; -x_78 = x_92; -goto block_87; -} -else -{ -lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; uint8_t x_99; -x_94 = lean_ctor_get(x_88, 1); -lean_inc(x_94); -lean_dec(x_88); -x_95 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_96 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_95, x_4, x_5, x_6, x_7, x_94); -x_97 = lean_ctor_get(x_96, 0); -lean_inc(x_97); -x_98 = lean_ctor_get(x_96, 1); -lean_inc(x_98); -lean_dec(x_96); -x_99 = lean_unbox(x_97); -lean_dec(x_97); -x_77 = x_99; -x_78 = x_98; -goto block_87; -} -block_62: -{ -if (x_46 == 0) -{ -lean_object* x_48; lean_object* x_49; lean_object* x_50; -x_48 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); -lean_closure_set(x_48, 0, x_29); -lean_closure_set(x_48, 1, x_18); -lean_closure_set(x_48, 2, x_3); -lean_closure_set(x_48, 3, x_16); -lean_closure_set(x_48, 4, x_1); -lean_closure_set(x_48, 5, x_2); -lean_closure_set(x_48, 6, x_40); -x_49 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; -x_50 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_44, x_49, x_48, x_4, x_5, x_6, x_7, x_47); -return x_50; -} -else -{ -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_inc(x_44); -x_51 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_51, 0, x_44); -x_52 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__2; -x_53 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_51); -x_54 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_55 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_55, 0, x_53); -lean_ctor_set(x_55, 1, x_54); -x_56 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_57 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_56, x_55, x_4, x_5, x_6, x_7, x_47); -x_58 = lean_ctor_get(x_57, 1); -lean_inc(x_58); -lean_dec(x_57); -x_59 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); -lean_closure_set(x_59, 0, x_29); -lean_closure_set(x_59, 1, x_18); -lean_closure_set(x_59, 2, x_3); -lean_closure_set(x_59, 3, x_16); -lean_closure_set(x_59, 4, x_1); -lean_closure_set(x_59, 5, x_2); -lean_closure_set(x_59, 6, x_40); -x_60 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; -x_61 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_44, x_60, x_59, x_4, x_5, x_6, x_7, x_58); -return x_61; -} -} -block_76: -{ -lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; -x_64 = lean_st_ref_get(x_7, x_63); -x_65 = lean_ctor_get(x_64, 0); -lean_inc(x_65); -x_66 = lean_ctor_get(x_65, 3); -lean_inc(x_66); -lean_dec(x_65); -x_67 = lean_ctor_get_uint8(x_66, sizeof(void*)*1); -lean_dec(x_66); -if (x_67 == 0) -{ -lean_object* x_68; uint8_t x_69; -x_68 = lean_ctor_get(x_64, 1); -lean_inc(x_68); -lean_dec(x_64); -x_69 = 0; -x_46 = x_69; -x_47 = x_68; -goto block_62; -} -else -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; uint8_t x_75; -x_70 = lean_ctor_get(x_64, 1); -lean_inc(x_70); -lean_dec(x_64); -x_71 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_72 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_71, x_4, x_5, x_6, x_7, x_70); +x_72 = lean_st_ref_get(x_7, x_45); x_73 = lean_ctor_get(x_72, 0); lean_inc(x_73); -x_74 = lean_ctor_get(x_72, 1); +x_74 = lean_ctor_get(x_73, 3); lean_inc(x_74); -lean_dec(x_72); -x_75 = lean_unbox(x_73); lean_dec(x_73); -x_46 = x_75; -x_47 = x_74; -goto block_62; -} -} -block_87: +x_75 = lean_ctor_get_uint8(x_74, sizeof(void*)*1); +lean_dec(x_74); +if (x_75 == 0) { -if (x_77 == 0) -{ -x_63 = x_78; -goto block_76; +lean_object* x_76; +x_76 = lean_ctor_get(x_72, 1); +lean_inc(x_76); +lean_dec(x_72); +x_46 = x_76; +goto block_71; } else { -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_inc(x_40); -x_79 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_79, 0, x_40); -x_80 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__4; -x_81 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_81, 0, x_80); -lean_ctor_set(x_81, 1, x_79); -x_82 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_83 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_83, 0, x_81); -lean_ctor_set(x_83, 1, x_82); -x_84 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_85 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_84, x_83, x_4, x_5, x_6, x_7, x_78); +lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; uint8_t x_81; +x_77 = lean_ctor_get(x_72, 1); +lean_inc(x_77); +lean_dec(x_72); +x_78 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_79 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_78, x_4, x_5, x_6, x_7, x_77); +x_80 = lean_ctor_get(x_79, 0); +lean_inc(x_80); +x_81 = lean_unbox(x_80); +lean_dec(x_80); +if (x_81 == 0) +{ +lean_object* x_82; +x_82 = lean_ctor_get(x_79, 1); +lean_inc(x_82); +lean_dec(x_79); +x_46 = x_82; +goto block_71; +} +else +{ +lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_83 = lean_ctor_get(x_79, 1); +lean_inc(x_83); +lean_dec(x_79); +x_84 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__6; +x_85 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_78, x_84, x_4, x_5, x_6, x_7, x_83); x_86 = lean_ctor_get(x_85, 1); lean_inc(x_86); lean_dec(x_85); -x_63 = x_86; -goto block_76; +x_46 = x_86; +goto block_71; +} +} +block_71: +{ +lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; +x_47 = lean_st_ref_get(x_7, x_46); +x_48 = lean_ctor_get(x_47, 0); +lean_inc(x_48); +x_49 = lean_ctor_get(x_48, 3); +lean_inc(x_49); +lean_dec(x_48); +x_50 = lean_ctor_get_uint8(x_49, sizeof(void*)*1); +lean_dec(x_49); +if (x_50 == 0) +{ +lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_51 = lean_ctor_get(x_47, 1); +lean_inc(x_51); +lean_dec(x_47); +x_52 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); +lean_closure_set(x_52, 0, x_29); +lean_closure_set(x_52, 1, x_18); +lean_closure_set(x_52, 2, x_3); +lean_closure_set(x_52, 3, x_16); +lean_closure_set(x_52, 4, x_1); +lean_closure_set(x_52, 5, x_2); +lean_closure_set(x_52, 6, x_40); +x_53 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; +x_54 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_44, x_53, x_52, x_4, x_5, x_6, x_7, x_51); +return x_54; +} +else +{ +lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; uint8_t x_59; +x_55 = lean_ctor_get(x_47, 1); +lean_inc(x_55); +lean_dec(x_47); +x_56 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_57 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_56, x_4, x_5, x_6, x_7, x_55); +x_58 = lean_ctor_get(x_57, 0); +lean_inc(x_58); +x_59 = lean_unbox(x_58); +lean_dec(x_58); +if (x_59 == 0) +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; +x_60 = lean_ctor_get(x_57, 1); +lean_inc(x_60); +lean_dec(x_57); +x_61 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); +lean_closure_set(x_61, 0, x_29); +lean_closure_set(x_61, 1, x_18); +lean_closure_set(x_61, 2, x_3); +lean_closure_set(x_61, 3, x_16); +lean_closure_set(x_61, 4, x_1); +lean_closure_set(x_61, 5, x_2); +lean_closure_set(x_61, 6, x_40); +x_62 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; +x_63 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_44, x_62, x_61, x_4, x_5, x_6, x_7, x_60); +return x_63; +} +else +{ +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; +x_64 = lean_ctor_get(x_57, 1); +lean_inc(x_64); +lean_dec(x_57); +x_65 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__3; +x_66 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_56, x_65, x_4, x_5, x_6, x_7, x_64); +x_67 = lean_ctor_get(x_66, 1); +lean_inc(x_67); +lean_dec(x_66); +x_68 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); +lean_closure_set(x_68, 0, x_29); +lean_closure_set(x_68, 1, x_18); +lean_closure_set(x_68, 2, x_3); +lean_closure_set(x_68, 3, x_16); +lean_closure_set(x_68, 4, x_1); +lean_closure_set(x_68, 5, x_2); +lean_closure_set(x_68, 6, x_40); +x_69 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; +x_70 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_44, x_69, x_68, x_4, x_5, x_6, x_7, x_67); +return x_70; +} } } } else { -uint8_t x_100; +uint8_t x_87; lean_dec(x_40); lean_dec(x_29); lean_dec(x_18); @@ -21647,29 +21639,29 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_100 = !lean_is_exclusive(x_43); -if (x_100 == 0) +x_87 = !lean_is_exclusive(x_43); +if (x_87 == 0) { return x_43; } else { -lean_object* x_101; lean_object* x_102; lean_object* x_103; -x_101 = lean_ctor_get(x_43, 0); -x_102 = lean_ctor_get(x_43, 1); -lean_inc(x_102); -lean_inc(x_101); +lean_object* x_88; lean_object* x_89; lean_object* x_90; +x_88 = lean_ctor_get(x_43, 0); +x_89 = lean_ctor_get(x_43, 1); +lean_inc(x_89); +lean_inc(x_88); lean_dec(x_43); -x_103 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_103, 0, x_101); -lean_ctor_set(x_103, 1, x_102); -return x_103; +x_90 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_90, 0, x_88); +lean_ctor_set(x_90, 1, x_89); +return x_90; } } } else { -uint8_t x_104; +uint8_t x_91; lean_dec(x_40); lean_dec(x_29); lean_dec(x_18); @@ -21681,61 +21673,31 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_104 = !lean_is_exclusive(x_41); -if (x_104 == 0) +x_91 = !lean_is_exclusive(x_41); +if (x_91 == 0) { return x_41; } else { -lean_object* x_105; lean_object* x_106; lean_object* x_107; -x_105 = lean_ctor_get(x_41, 0); -x_106 = lean_ctor_get(x_41, 1); -lean_inc(x_106); -lean_inc(x_105); +lean_object* x_92; lean_object* x_93; lean_object* x_94; +x_92 = lean_ctor_get(x_41, 0); +x_93 = lean_ctor_get(x_41, 1); +lean_inc(x_93); +lean_inc(x_92); lean_dec(x_41); -x_107 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_107, 0, x_105); -lean_ctor_set(x_107, 1, x_106); -return x_107; +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_92); +lean_ctor_set(x_94, 1, x_93); +return x_94; } } } } -block_131: -{ -if (x_121 == 0) -{ -x_34 = x_122; -goto block_120; -} -else -{ -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_inc(x_32); -x_123 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_123, 0, x_32); -x_124 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__6; -x_125 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_125, 0, x_124); -lean_ctor_set(x_125, 1, x_123); -x_126 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_127 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_127, 0, x_125); -lean_ctor_set(x_127, 1, x_126); -x_128 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_129 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_128, x_127, x_4, x_5, x_6, x_7, x_122); -x_130 = lean_ctor_get(x_129, 1); -lean_inc(x_130); -lean_dec(x_129); -x_34 = x_130; -goto block_120; -} -} } else { -uint8_t x_144; +uint8_t x_123; lean_dec(x_29); lean_dec(x_23); lean_dec(x_18); @@ -21747,326 +21709,353 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_144 = !lean_is_exclusive(x_31); -if (x_144 == 0) +x_123 = !lean_is_exclusive(x_31); +if (x_123 == 0) { return x_31; } else { -lean_object* x_145; lean_object* x_146; lean_object* x_147; -x_145 = lean_ctor_get(x_31, 0); -x_146 = lean_ctor_get(x_31, 1); -lean_inc(x_146); -lean_inc(x_145); +lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_124 = lean_ctor_get(x_31, 0); +x_125 = lean_ctor_get(x_31, 1); +lean_inc(x_125); +lean_inc(x_124); lean_dec(x_31); -x_147 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_147, 0, x_145); -lean_ctor_set(x_147, 1, x_146); -return x_147; +x_126 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_126, 0, x_124); +lean_ctor_set(x_126, 1, x_125); +return x_126; } } } else { -lean_object* x_148; -x_148 = l_Lean_Meta_decLevel___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___spec__3(x_23, x_4, x_5, x_6, x_7, x_25); -if (lean_obj_tag(x_148) == 0) +lean_object* x_127; +x_127 = l_Lean_Meta_decLevel___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___spec__3(x_23, x_4, x_5, x_6, x_7, x_25); +if (lean_obj_tag(x_127) == 0) { -lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; -x_149 = lean_ctor_get(x_148, 0); -lean_inc(x_149); -x_150 = lean_ctor_get(x_148, 1); -lean_inc(x_150); -lean_dec(x_148); -x_151 = lean_ctor_get(x_2, 7); -lean_inc(x_151); +lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; +x_128 = lean_ctor_get(x_127, 0); +lean_inc(x_128); +x_129 = lean_ctor_get(x_127, 1); +lean_inc(x_129); +lean_dec(x_127); +x_130 = lean_ctor_get(x_2, 7); +lean_inc(x_130); lean_inc(x_16); -lean_inc(x_151); -x_152 = lean_array_push(x_151, x_16); +lean_inc(x_130); +x_131 = lean_array_push(x_130, x_16); lean_inc(x_4); -x_153 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_mkFnInhabitant_x3f_loop___spec__2(x_152, x_20, x_4, x_5, x_6, x_7, x_150); -if (lean_obj_tag(x_153) == 0) +x_132 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_mkFnInhabitant_x3f_loop___spec__2(x_131, x_20, x_4, x_5, x_6, x_7, x_129); +if (lean_obj_tag(x_132) == 0) { -lean_object* x_154; lean_object* x_155; lean_object* x_156; uint8_t x_243; lean_object* x_244; lean_object* x_254; lean_object* x_255; lean_object* x_256; uint8_t x_257; -x_154 = lean_ctor_get(x_153, 0); -lean_inc(x_154); -x_155 = lean_ctor_get(x_153, 1); -lean_inc(x_155); -lean_dec(x_153); -x_254 = lean_st_ref_get(x_7, x_155); -x_255 = lean_ctor_get(x_254, 0); -lean_inc(x_255); -x_256 = lean_ctor_get(x_255, 3); -lean_inc(x_256); -lean_dec(x_255); -x_257 = lean_ctor_get_uint8(x_256, sizeof(void*)*1); -lean_dec(x_256); -if (x_257 == 0) +lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_209; lean_object* x_210; lean_object* x_211; uint8_t x_212; +x_133 = lean_ctor_get(x_132, 0); +lean_inc(x_133); +x_134 = lean_ctor_get(x_132, 1); +lean_inc(x_134); +lean_dec(x_132); +x_209 = lean_st_ref_get(x_7, x_134); +x_210 = lean_ctor_get(x_209, 0); +lean_inc(x_210); +x_211 = lean_ctor_get(x_210, 3); +lean_inc(x_211); +lean_dec(x_210); +x_212 = lean_ctor_get_uint8(x_211, sizeof(void*)*1); +lean_dec(x_211); +if (x_212 == 0) { -lean_object* x_258; uint8_t x_259; -x_258 = lean_ctor_get(x_254, 1); -lean_inc(x_258); -lean_dec(x_254); -x_259 = 0; -x_243 = x_259; -x_244 = x_258; -goto block_253; +lean_object* x_213; +x_213 = lean_ctor_get(x_209, 1); +lean_inc(x_213); +lean_dec(x_209); +x_135 = x_213; +goto block_208; } else { -lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; uint8_t x_265; -x_260 = lean_ctor_get(x_254, 1); -lean_inc(x_260); -lean_dec(x_254); -x_261 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_262 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_261, x_4, x_5, x_6, x_7, x_260); -x_263 = lean_ctor_get(x_262, 0); -lean_inc(x_263); -x_264 = lean_ctor_get(x_262, 1); -lean_inc(x_264); -lean_dec(x_262); -x_265 = lean_unbox(x_263); -lean_dec(x_263); -x_243 = x_265; -x_244 = x_264; -goto block_253; -} -block_242: +lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; uint8_t x_218; +x_214 = lean_ctor_get(x_209, 1); +lean_inc(x_214); +lean_dec(x_209); +x_215 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_216 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_215, x_4, x_5, x_6, x_7, x_214); +x_217 = lean_ctor_get(x_216, 0); +lean_inc(x_217); +x_218 = lean_unbox(x_217); +lean_dec(x_217); +if (x_218 == 0) { -lean_object* x_157; lean_object* x_158; -x_157 = lean_ctor_get(x_2, 6); -lean_inc(x_157); +lean_object* x_219; +x_219 = lean_ctor_get(x_216, 1); +lean_inc(x_219); +lean_dec(x_216); +x_135 = x_219; +goto block_208; +} +else +{ +lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; +x_220 = lean_ctor_get(x_216, 1); +lean_inc(x_220); +lean_dec(x_216); +x_221 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9; +x_222 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_215, x_221, x_4, x_5, x_6, x_7, x_220); +x_223 = lean_ctor_get(x_222, 1); +lean_inc(x_223); +lean_dec(x_222); +x_135 = x_223; +goto block_208; +} +} +block_208: +{ +lean_object* x_136; lean_object* x_137; +x_136 = lean_ctor_get(x_2, 6); +lean_inc(x_136); if (x_27 == 0) { -lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; -x_231 = lean_ctor_get(x_2, 4); -lean_inc(x_231); -x_232 = l_Lean_Meta_brecOnSuffix; -x_233 = lean_name_mk_string(x_231, x_232); -x_234 = lean_ctor_get(x_2, 5); -lean_inc(x_234); -x_235 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_235, 0, x_149); -lean_ctor_set(x_235, 1, x_234); -x_236 = l_Lean_mkConst(x_233, x_235); -x_158 = x_236; -goto block_230; +lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; +x_197 = lean_ctor_get(x_2, 4); +lean_inc(x_197); +x_198 = l_Lean_Meta_brecOnSuffix; +x_199 = lean_name_mk_string(x_197, x_198); +x_200 = lean_ctor_get(x_2, 5); +lean_inc(x_200); +x_201 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_201, 0, x_128); +lean_ctor_set(x_201, 1, x_200); +x_202 = l_Lean_mkConst(x_199, x_201); +x_137 = x_202; +goto block_196; } else { -lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; -lean_dec(x_149); -x_237 = lean_ctor_get(x_2, 4); -lean_inc(x_237); -x_238 = l_Lean_Meta_binductionOnSuffix; -x_239 = lean_name_mk_string(x_237, x_238); -x_240 = lean_ctor_get(x_2, 5); -lean_inc(x_240); -x_241 = l_Lean_mkConst(x_239, x_240); -x_158 = x_241; -goto block_230; +lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; +lean_dec(x_128); +x_203 = lean_ctor_get(x_2, 4); +lean_inc(x_203); +x_204 = l_Lean_Meta_binductionOnSuffix; +x_205 = lean_name_mk_string(x_203, x_204); +x_206 = lean_ctor_get(x_2, 5); +lean_inc(x_206); +x_207 = l_Lean_mkConst(x_205, x_206); +x_137 = x_207; +goto block_196; } -block_230: +block_196: { -lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; -x_159 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_157, x_157, x_17, x_158); -lean_dec(x_157); -x_160 = l_Lean_mkApp(x_159, x_154); -x_161 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_151, x_151, x_17, x_160); +lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; +x_138 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_136, x_136, x_17, x_137); +lean_dec(x_136); +x_139 = l_Lean_mkApp(x_138, x_133); +x_140 = l_Array_iterateMAux___main___at_Lean_mkAppN___spec__1(x_130, x_130, x_17, x_139); lean_inc(x_16); -x_162 = l_Lean_mkApp(x_161, x_16); +x_141 = l_Lean_mkApp(x_140, x_16); lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); -lean_inc(x_162); -x_163 = l_Lean_Meta_check(x_162, x_4, x_5, x_6, x_7, x_156); -if (lean_obj_tag(x_163) == 0) +lean_inc(x_141); +x_142 = l_Lean_Meta_check(x_141, x_4, x_5, x_6, x_7, x_135); +if (lean_obj_tag(x_142) == 0) { -lean_object* x_164; lean_object* x_165; -x_164 = lean_ctor_get(x_163, 1); -lean_inc(x_164); -lean_dec(x_163); +lean_object* x_143; lean_object* x_144; +x_143 = lean_ctor_get(x_142, 1); +lean_inc(x_143); +lean_dec(x_142); lean_inc(x_7); lean_inc(x_6); lean_inc(x_5); lean_inc(x_4); -lean_inc(x_162); -x_165 = l_Lean_Meta_inferType___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_findAssumption_x3f___spec__1(x_162, x_4, x_5, x_6, x_7, x_164); -if (lean_obj_tag(x_165) == 0) +lean_inc(x_141); +x_144 = l_Lean_Meta_inferType___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_findAssumption_x3f___spec__1(x_141, x_4, x_5, x_6, x_7, x_143); +if (lean_obj_tag(x_144) == 0) { -lean_object* x_166; lean_object* x_167; uint8_t x_168; lean_object* x_169; lean_object* x_185; uint8_t x_199; lean_object* x_200; lean_object* x_210; lean_object* x_211; lean_object* x_212; uint8_t x_213; -x_166 = lean_ctor_get(x_165, 0); -lean_inc(x_166); -x_167 = lean_ctor_get(x_165, 1); -lean_inc(x_167); -lean_dec(x_165); -x_210 = lean_st_ref_get(x_7, x_167); -x_211 = lean_ctor_get(x_210, 0); -lean_inc(x_211); -x_212 = lean_ctor_get(x_211, 3); -lean_inc(x_212); -lean_dec(x_211); -x_213 = lean_ctor_get_uint8(x_212, sizeof(void*)*1); -lean_dec(x_212); -if (x_213 == 0) +lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_173; lean_object* x_174; lean_object* x_175; uint8_t x_176; +x_145 = lean_ctor_get(x_144, 0); +lean_inc(x_145); +x_146 = lean_ctor_get(x_144, 1); +lean_inc(x_146); +lean_dec(x_144); +x_173 = lean_st_ref_get(x_7, x_146); +x_174 = lean_ctor_get(x_173, 0); +lean_inc(x_174); +x_175 = lean_ctor_get(x_174, 3); +lean_inc(x_175); +lean_dec(x_174); +x_176 = lean_ctor_get_uint8(x_175, sizeof(void*)*1); +lean_dec(x_175); +if (x_176 == 0) { -lean_object* x_214; uint8_t x_215; -x_214 = lean_ctor_get(x_210, 1); -lean_inc(x_214); -lean_dec(x_210); -x_215 = 0; -x_199 = x_215; -x_200 = x_214; -goto block_209; +lean_object* x_177; +x_177 = lean_ctor_get(x_173, 1); +lean_inc(x_177); +lean_dec(x_173); +x_147 = x_177; +goto block_172; } else { -lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; uint8_t x_221; -x_216 = lean_ctor_get(x_210, 1); -lean_inc(x_216); -lean_dec(x_210); -x_217 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_218 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_217, x_4, x_5, x_6, x_7, x_216); -x_219 = lean_ctor_get(x_218, 0); -lean_inc(x_219); -x_220 = lean_ctor_get(x_218, 1); -lean_inc(x_220); -lean_dec(x_218); -x_221 = lean_unbox(x_219); -lean_dec(x_219); -x_199 = x_221; -x_200 = x_220; -goto block_209; -} -block_184: +lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; uint8_t x_182; +x_178 = lean_ctor_get(x_173, 1); +lean_inc(x_178); +lean_dec(x_173); +x_179 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_180 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_179, x_4, x_5, x_6, x_7, x_178); +x_181 = lean_ctor_get(x_180, 0); +lean_inc(x_181); +x_182 = lean_unbox(x_181); +lean_dec(x_181); +if (x_182 == 0) { -if (x_168 == 0) -{ -lean_object* x_170; lean_object* x_171; lean_object* x_172; -x_170 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); -lean_closure_set(x_170, 0, x_151); -lean_closure_set(x_170, 1, x_18); -lean_closure_set(x_170, 2, x_3); -lean_closure_set(x_170, 3, x_16); -lean_closure_set(x_170, 4, x_1); -lean_closure_set(x_170, 5, x_2); -lean_closure_set(x_170, 6, x_162); -x_171 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; -x_172 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_166, x_171, x_170, x_4, x_5, x_6, x_7, x_169); -return x_172; +lean_object* x_183; +x_183 = lean_ctor_get(x_180, 1); +lean_inc(x_183); +lean_dec(x_180); +x_147 = x_183; +goto block_172; } else { -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_inc(x_166); -x_173 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_173, 0, x_166); -x_174 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__2; -x_175 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_175, 0, x_174); -lean_ctor_set(x_175, 1, x_173); -x_176 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_177 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_177, 0, x_175); -lean_ctor_set(x_177, 1, x_176); -x_178 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_179 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_178, x_177, x_4, x_5, x_6, x_7, x_169); -x_180 = lean_ctor_get(x_179, 1); -lean_inc(x_180); -lean_dec(x_179); -x_181 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); -lean_closure_set(x_181, 0, x_151); -lean_closure_set(x_181, 1, x_18); -lean_closure_set(x_181, 2, x_3); -lean_closure_set(x_181, 3, x_16); -lean_closure_set(x_181, 4, x_1); -lean_closure_set(x_181, 5, x_2); -lean_closure_set(x_181, 6, x_162); -x_182 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; -x_183 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_166, x_182, x_181, x_4, x_5, x_6, x_7, x_180); -return x_183; -} -} -block_198: -{ -lean_object* x_186; lean_object* x_187; lean_object* x_188; uint8_t x_189; -x_186 = lean_st_ref_get(x_7, x_185); -x_187 = lean_ctor_get(x_186, 0); +lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; +x_184 = lean_ctor_get(x_180, 1); +lean_inc(x_184); +lean_dec(x_180); +x_185 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__6; +x_186 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_179, x_185, x_4, x_5, x_6, x_7, x_184); +x_187 = lean_ctor_get(x_186, 1); lean_inc(x_187); -x_188 = lean_ctor_get(x_187, 3); -lean_inc(x_188); -lean_dec(x_187); -x_189 = lean_ctor_get_uint8(x_188, sizeof(void*)*1); -lean_dec(x_188); -if (x_189 == 0) +lean_dec(x_186); +x_147 = x_187; +goto block_172; +} +} +block_172: { -lean_object* x_190; uint8_t x_191; -x_190 = lean_ctor_get(x_186, 1); +lean_object* x_148; lean_object* x_149; lean_object* x_150; uint8_t x_151; +x_148 = lean_st_ref_get(x_7, x_147); +x_149 = lean_ctor_get(x_148, 0); +lean_inc(x_149); +x_150 = lean_ctor_get(x_149, 3); +lean_inc(x_150); +lean_dec(x_149); +x_151 = lean_ctor_get_uint8(x_150, sizeof(void*)*1); +lean_dec(x_150); +if (x_151 == 0) +{ +lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; +x_152 = lean_ctor_get(x_148, 1); +lean_inc(x_152); +lean_dec(x_148); +x_153 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); +lean_closure_set(x_153, 0, x_130); +lean_closure_set(x_153, 1, x_18); +lean_closure_set(x_153, 2, x_3); +lean_closure_set(x_153, 3, x_16); +lean_closure_set(x_153, 4, x_1); +lean_closure_set(x_153, 5, x_2); +lean_closure_set(x_153, 6, x_141); +x_154 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; +x_155 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_145, x_154, x_153, x_4, x_5, x_6, x_7, x_152); +return x_155; +} +else +{ +lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; uint8_t x_160; +x_156 = lean_ctor_get(x_148, 1); +lean_inc(x_156); +lean_dec(x_148); +x_157 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_158 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_157, x_4, x_5, x_6, x_7, x_156); +x_159 = lean_ctor_get(x_158, 0); +lean_inc(x_159); +x_160 = lean_unbox(x_159); +lean_dec(x_159); +if (x_160 == 0) +{ +lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; +x_161 = lean_ctor_get(x_158, 1); +lean_inc(x_161); +lean_dec(x_158); +x_162 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); +lean_closure_set(x_162, 0, x_130); +lean_closure_set(x_162, 1, x_18); +lean_closure_set(x_162, 2, x_3); +lean_closure_set(x_162, 3, x_16); +lean_closure_set(x_162, 4, x_1); +lean_closure_set(x_162, 5, x_2); +lean_closure_set(x_162, 6, x_141); +x_163 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; +x_164 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_145, x_163, x_162, x_4, x_5, x_6, x_7, x_161); +return x_164; +} +else +{ +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; +x_165 = lean_ctor_get(x_158, 1); +lean_inc(x_165); +lean_dec(x_158); +x_166 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__3; +x_167 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_157, x_166, x_4, x_5, x_6, x_7, x_165); +x_168 = lean_ctor_get(x_167, 1); +lean_inc(x_168); +lean_dec(x_167); +x_169 = lean_alloc_closure((void*)(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___lambda__2___boxed), 14, 7); +lean_closure_set(x_169, 0, x_130); +lean_closure_set(x_169, 1, x_18); +lean_closure_set(x_169, 2, x_3); +lean_closure_set(x_169, 3, x_16); +lean_closure_set(x_169, 4, x_1); +lean_closure_set(x_169, 5, x_2); +lean_closure_set(x_169, 6, x_141); +x_170 = l___private_Lean_Meta_Match_Match_42__updateAlts___main___lambda__2___closed__1; +x_171 = l_Lean_Meta_forallBoundedTelescope___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__3___rarg(x_145, x_170, x_169, x_4, x_5, x_6, x_7, x_168); +return x_171; +} +} +} +} +else +{ +uint8_t x_188; +lean_dec(x_141); +lean_dec(x_130); +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_188 = !lean_is_exclusive(x_144); +if (x_188 == 0) +{ +return x_144; +} +else +{ +lean_object* x_189; lean_object* x_190; lean_object* x_191; +x_189 = lean_ctor_get(x_144, 0); +x_190 = lean_ctor_get(x_144, 1); lean_inc(x_190); -lean_dec(x_186); -x_191 = 0; -x_168 = x_191; -x_169 = x_190; -goto block_184; -} -else -{ -lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; uint8_t x_197; -x_192 = lean_ctor_get(x_186, 1); -lean_inc(x_192); -lean_dec(x_186); -x_193 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_194 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_193, x_4, x_5, x_6, x_7, x_192); -x_195 = lean_ctor_get(x_194, 0); -lean_inc(x_195); -x_196 = lean_ctor_get(x_194, 1); -lean_inc(x_196); -lean_dec(x_194); -x_197 = lean_unbox(x_195); -lean_dec(x_195); -x_168 = x_197; -x_169 = x_196; -goto block_184; -} -} -block_209: -{ -if (x_199 == 0) -{ -x_185 = x_200; -goto block_198; -} -else -{ -lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; -lean_inc(x_162); -x_201 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_201, 0, x_162); -x_202 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__4; -x_203 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_203, 0, x_202); -lean_ctor_set(x_203, 1, x_201); -x_204 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_205 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_205, 0, x_203); -lean_ctor_set(x_205, 1, x_204); -x_206 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_207 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_206, x_205, x_4, x_5, x_6, x_7, x_200); -x_208 = lean_ctor_get(x_207, 1); -lean_inc(x_208); -lean_dec(x_207); -x_185 = x_208; -goto block_198; +lean_inc(x_189); +lean_dec(x_144); +x_191 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_191, 0, x_189); +lean_ctor_set(x_191, 1, x_190); +return x_191; } } } else { -uint8_t x_222; -lean_dec(x_162); -lean_dec(x_151); +uint8_t x_192; +lean_dec(x_141); +lean_dec(x_130); lean_dec(x_18); lean_dec(x_16); lean_dec(x_7); @@ -22076,31 +22065,33 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_222 = !lean_is_exclusive(x_165); -if (x_222 == 0) +x_192 = !lean_is_exclusive(x_142); +if (x_192 == 0) { -return x_165; +return x_142; } else { -lean_object* x_223; lean_object* x_224; lean_object* x_225; -x_223 = lean_ctor_get(x_165, 0); -x_224 = lean_ctor_get(x_165, 1); -lean_inc(x_224); -lean_inc(x_223); -lean_dec(x_165); -x_225 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_225, 0, x_223); -lean_ctor_set(x_225, 1, x_224); -return x_225; +lean_object* x_193; lean_object* x_194; lean_object* x_195; +x_193 = lean_ctor_get(x_142, 0); +x_194 = lean_ctor_get(x_142, 1); +lean_inc(x_194); +lean_inc(x_193); +lean_dec(x_142); +x_195 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_195, 0, x_193); +lean_ctor_set(x_195, 1, x_194); +return x_195; +} +} } } } else { -uint8_t x_226; -lean_dec(x_162); -lean_dec(x_151); +uint8_t x_224; +lean_dec(x_130); +lean_dec(x_128); lean_dec(x_18); lean_dec(x_16); lean_dec(x_7); @@ -22110,65 +22101,131 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_226 = !lean_is_exclusive(x_163); -if (x_226 == 0) +x_224 = !lean_is_exclusive(x_132); +if (x_224 == 0) { -return x_163; +return x_132; } else { -lean_object* x_227; lean_object* x_228; lean_object* x_229; -x_227 = lean_ctor_get(x_163, 0); -x_228 = lean_ctor_get(x_163, 1); -lean_inc(x_228); -lean_inc(x_227); -lean_dec(x_163); -x_229 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_229, 0, x_227); -lean_ctor_set(x_229, 1, x_228); -return x_229; +lean_object* x_225; lean_object* x_226; lean_object* x_227; +x_225 = lean_ctor_get(x_132, 0); +x_226 = lean_ctor_get(x_132, 1); +lean_inc(x_226); +lean_inc(x_225); +lean_dec(x_132); +x_227 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_227, 0, x_225); +lean_ctor_set(x_227, 1, x_226); +return x_227; } } } -} -block_253: -{ -if (x_243 == 0) -{ -x_156 = x_244; -goto block_242; -} else { -lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; -lean_inc(x_154); -x_245 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_245, 0, x_154); -x_246 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__6; -x_247 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_247, 0, x_246); -lean_ctor_set(x_247, 1, x_245); -x_248 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_249 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_249, 0, x_247); -lean_ctor_set(x_249, 1, x_248); -x_250 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_251 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_250, x_249, x_4, x_5, x_6, x_7, x_244); -x_252 = lean_ctor_get(x_251, 1); -lean_inc(x_252); -lean_dec(x_251); -x_156 = x_252; -goto block_242; +uint8_t x_228; +lean_dec(x_20); +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_228 = !lean_is_exclusive(x_127); +if (x_228 == 0) +{ +return x_127; +} +else +{ +lean_object* x_229; lean_object* x_230; lean_object* x_231; +x_229 = lean_ctor_get(x_127, 0); +x_230 = lean_ctor_get(x_127, 1); +lean_inc(x_230); +lean_inc(x_229); +lean_dec(x_127); +x_231 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_231, 0, x_229); +lean_ctor_set(x_231, 1, x_230); +return x_231; +} +} +} +} +} +} +} +else +{ +uint8_t x_258; +lean_dec(x_20); +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_258 = !lean_is_exclusive(x_22); +if (x_258 == 0) +{ +return x_22; +} +else +{ +lean_object* x_259; lean_object* x_260; lean_object* x_261; +x_259 = lean_ctor_get(x_22, 0); +x_260 = lean_ctor_get(x_22, 1); +lean_inc(x_260); +lean_inc(x_259); +lean_dec(x_22); +x_261 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_261, 0, x_259); +lean_ctor_set(x_261, 1, x_260); +return x_261; +} +} +} +else +{ +uint8_t x_262; +lean_dec(x_18); +lean_dec(x_16); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +x_262 = !lean_is_exclusive(x_19); +if (x_262 == 0) +{ +return x_19; +} +else +{ +lean_object* x_263; lean_object* x_264; lean_object* x_265; +x_263 = lean_ctor_get(x_19, 0); +x_264 = lean_ctor_get(x_19, 1); +lean_inc(x_264); +lean_inc(x_263); +lean_dec(x_19); +x_265 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_265, 0, x_263); +lean_ctor_set(x_265, 1, x_264); +return x_265; } } } else { uint8_t x_266; -lean_dec(x_151); -lean_dec(x_149); -lean_dec(x_18); -lean_dec(x_16); lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); @@ -22176,185 +22233,23 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_266 = !lean_is_exclusive(x_153); +x_266 = !lean_is_exclusive(x_9); if (x_266 == 0) { -return x_153; -} -else -{ -lean_object* x_267; lean_object* x_268; lean_object* x_269; -x_267 = lean_ctor_get(x_153, 0); -x_268 = lean_ctor_get(x_153, 1); -lean_inc(x_268); -lean_inc(x_267); -lean_dec(x_153); -x_269 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_269, 0, x_267); -lean_ctor_set(x_269, 1, x_268); -return x_269; -} -} -} -else -{ -uint8_t x_270; -lean_dec(x_20); -lean_dec(x_18); -lean_dec(x_16); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_270 = !lean_is_exclusive(x_148); -if (x_270 == 0) -{ -return x_148; -} -else -{ -lean_object* x_271; lean_object* x_272; lean_object* x_273; -x_271 = lean_ctor_get(x_148, 0); -x_272 = lean_ctor_get(x_148, 1); -lean_inc(x_272); -lean_inc(x_271); -lean_dec(x_148); -x_273 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_273, 0, x_271); -lean_ctor_set(x_273, 1, x_272); -return x_273; -} -} -} -} -} -} -block_295: -{ -if (x_285 == 0) -{ -x_25 = x_286; -goto block_284; -} -else -{ -lean_object* x_287; lean_object* x_288; lean_object* x_289; lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; -lean_inc(x_23); -x_287 = lean_alloc_ctor(3, 1, 0); -lean_ctor_set(x_287, 0, x_23); -x_288 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__8; -x_289 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_289, 0, x_288); -lean_ctor_set(x_289, 1, x_287); -x_290 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_291 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_291, 0, x_289); -lean_ctor_set(x_291, 1, x_290); -x_292 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_293 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_292, x_291, x_4, x_5, x_6, x_7, x_286); -x_294 = lean_ctor_get(x_293, 1); -lean_inc(x_294); -lean_dec(x_293); -x_25 = x_294; -goto block_284; -} -} -} -else -{ -uint8_t x_308; -lean_dec(x_20); -lean_dec(x_18); -lean_dec(x_16); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_308 = !lean_is_exclusive(x_22); -if (x_308 == 0) -{ -return x_22; -} -else -{ -lean_object* x_309; lean_object* x_310; lean_object* x_311; -x_309 = lean_ctor_get(x_22, 0); -x_310 = lean_ctor_get(x_22, 1); -lean_inc(x_310); -lean_inc(x_309); -lean_dec(x_22); -x_311 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_311, 0, x_309); -lean_ctor_set(x_311, 1, x_310); -return x_311; -} -} -} -else -{ -uint8_t x_312; -lean_dec(x_18); -lean_dec(x_16); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_312 = !lean_is_exclusive(x_19); -if (x_312 == 0) -{ -return x_19; -} -else -{ -lean_object* x_313; lean_object* x_314; lean_object* x_315; -x_313 = lean_ctor_get(x_19, 0); -x_314 = lean_ctor_get(x_19, 1); -lean_inc(x_314); -lean_inc(x_313); -lean_dec(x_19); -x_315 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_315, 0, x_313); -lean_ctor_set(x_315, 1, x_314); -return x_315; -} -} -} -else -{ -uint8_t x_316; -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_316 = !lean_is_exclusive(x_9); -if (x_316 == 0) -{ return x_9; } else { -lean_object* x_317; lean_object* x_318; lean_object* x_319; -x_317 = lean_ctor_get(x_9, 0); -x_318 = lean_ctor_get(x_9, 1); -lean_inc(x_318); -lean_inc(x_317); +lean_object* x_267; lean_object* x_268; lean_object* x_269; +x_267 = lean_ctor_get(x_9, 0); +x_268 = lean_ctor_get(x_9, 1); +lean_inc(x_268); +lean_inc(x_267); lean_dec(x_9); -x_319 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_319, 0, x_317); -lean_ctor_set(x_319, 1, x_318); -return x_319; +x_269 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_269, 0, x_267); +lean_ctor_set(x_269, 1, x_268); +return x_269; } } } @@ -22408,7 +22303,7 @@ static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean _start: { lean_object* x_1; -x_1 = lean_mk_string("result: "); +x_1 = lean_mk_string("result: {valueNew}"); return x_1; } } @@ -22417,7 +22312,18 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__1; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__2; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -22443,51 +22349,51 @@ lean_inc(x_7); x_15 = l_Lean_Meta_mkLambdaFVars___at___private_Lean_Elab_PreDefinition_MkInhabitant_0__Lean_Elab_mkFnInhabitant_x3f_loop___spec__2(x_3, x_13, x_7, x_8, x_9, x_10, x_14); if (lean_obj_tag(x_15) == 0) { -lean_object* x_16; lean_object* x_17; uint8_t x_18; lean_object* x_19; lean_object* x_68; lean_object* x_69; lean_object* x_70; uint8_t x_71; +lean_object* x_16; lean_object* x_17; uint8_t x_18; lean_object* x_19; lean_object* x_64; lean_object* x_65; lean_object* x_66; uint8_t x_67; x_16 = lean_ctor_get(x_15, 0); lean_inc(x_16); x_17 = lean_ctor_get(x_15, 1); lean_inc(x_17); lean_dec(x_15); -x_68 = lean_st_ref_get(x_10, x_17); -x_69 = lean_ctor_get(x_68, 0); -lean_inc(x_69); -x_70 = lean_ctor_get(x_69, 3); -lean_inc(x_70); -lean_dec(x_69); -x_71 = lean_ctor_get_uint8(x_70, sizeof(void*)*1); -lean_dec(x_70); -if (x_71 == 0) +x_64 = lean_st_ref_get(x_10, x_17); +x_65 = lean_ctor_get(x_64, 0); +lean_inc(x_65); +x_66 = lean_ctor_get(x_65, 3); +lean_inc(x_66); +lean_dec(x_65); +x_67 = lean_ctor_get_uint8(x_66, sizeof(void*)*1); +lean_dec(x_66); +if (x_67 == 0) { -lean_object* x_72; uint8_t x_73; -x_72 = lean_ctor_get(x_68, 1); -lean_inc(x_72); -lean_dec(x_68); -x_73 = 0; -x_18 = x_73; -x_19 = x_72; -goto block_67; +lean_object* x_68; uint8_t x_69; +x_68 = lean_ctor_get(x_64, 1); +lean_inc(x_68); +lean_dec(x_64); +x_69 = 0; +x_18 = x_69; +x_19 = x_68; +goto block_63; } else { -lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; uint8_t x_78; -x_74 = lean_ctor_get(x_68, 1); -lean_inc(x_74); -lean_dec(x_68); +lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; uint8_t x_74; +x_70 = lean_ctor_get(x_64, 1); +lean_inc(x_70); +lean_dec(x_64); lean_inc(x_5); -x_75 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_5, x_7, x_8, x_9, x_10, x_74); -x_76 = lean_ctor_get(x_75, 0); -lean_inc(x_76); -x_77 = lean_ctor_get(x_75, 1); -lean_inc(x_77); -lean_dec(x_75); -x_78 = lean_unbox(x_76); -lean_dec(x_76); -x_18 = x_78; -x_19 = x_77; -goto block_67; +x_71 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_5, x_7, x_8, x_9, x_10, x_70); +x_72 = lean_ctor_get(x_71, 0); +lean_inc(x_72); +x_73 = lean_ctor_get(x_71, 1); +lean_inc(x_73); +lean_dec(x_71); +x_74 = lean_unbox(x_72); +lean_dec(x_72); +x_18 = x_74; +x_19 = x_73; +goto block_63; } -block_67: +block_63: { if (x_18 == 0) { @@ -22574,100 +22480,119 @@ return x_39; } else { -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_inc(x_16); -x_40 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_40, 0, x_16); -x_41 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__2; -x_42 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_42, 0, x_41); -lean_ctor_set(x_42, 1, x_40); -x_43 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_44 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_44, 0, x_42); -lean_ctor_set(x_44, 1, x_43); -x_45 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_5, x_44, x_7, x_8, x_9, x_10, x_19); -x_46 = lean_ctor_get(x_45, 1); -lean_inc(x_46); -lean_dec(x_45); +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; +x_40 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__3; +x_41 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_5, x_40, x_7, x_8, x_9, x_10, x_19); +x_42 = lean_ctor_get(x_41, 1); +lean_inc(x_42); +lean_dec(x_41); lean_inc(x_1); -x_47 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_ensureNoRecFn(x_1, x_16, x_7, x_8, x_9, x_10, x_46); -if (lean_obj_tag(x_47) == 0) +x_43 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_ensureNoRecFn(x_1, x_16, x_7, x_8, x_9, x_10, x_42); +if (lean_obj_tag(x_43) == 0) { -uint8_t x_48; -x_48 = !lean_is_exclusive(x_47); -if (x_48 == 0) +uint8_t x_44; +x_44 = !lean_is_exclusive(x_43); +if (x_44 == 0) { -lean_object* x_49; uint8_t x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_49 = lean_ctor_get(x_47, 0); -x_50 = lean_ctor_get_uint8(x_4, sizeof(void*)*5); -x_51 = lean_ctor_get(x_4, 0); -x_52 = lean_ctor_get(x_4, 1); -x_53 = lean_ctor_get(x_4, 3); -lean_inc(x_53); -lean_inc(x_52); -lean_inc(x_51); -x_54 = lean_alloc_ctor(0, 5, 1); -lean_ctor_set(x_54, 0, x_51); -lean_ctor_set(x_54, 1, x_52); -lean_ctor_set(x_54, 2, x_1); -lean_ctor_set(x_54, 3, x_53); -lean_ctor_set(x_54, 4, x_49); -lean_ctor_set_uint8(x_54, sizeof(void*)*5, x_50); -lean_ctor_set(x_47, 0, x_54); -return x_47; +lean_object* x_45; uint8_t x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_45 = lean_ctor_get(x_43, 0); +x_46 = lean_ctor_get_uint8(x_4, sizeof(void*)*5); +x_47 = lean_ctor_get(x_4, 0); +x_48 = lean_ctor_get(x_4, 1); +x_49 = lean_ctor_get(x_4, 3); +lean_inc(x_49); +lean_inc(x_48); +lean_inc(x_47); +x_50 = lean_alloc_ctor(0, 5, 1); +lean_ctor_set(x_50, 0, x_47); +lean_ctor_set(x_50, 1, x_48); +lean_ctor_set(x_50, 2, x_1); +lean_ctor_set(x_50, 3, x_49); +lean_ctor_set(x_50, 4, x_45); +lean_ctor_set_uint8(x_50, sizeof(void*)*5, x_46); +lean_ctor_set(x_43, 0, x_50); +return x_43; } else { -lean_object* x_55; lean_object* x_56; uint8_t x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; -x_55 = lean_ctor_get(x_47, 0); -x_56 = lean_ctor_get(x_47, 1); +lean_object* x_51; lean_object* x_52; uint8_t x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; +x_51 = lean_ctor_get(x_43, 0); +x_52 = lean_ctor_get(x_43, 1); +lean_inc(x_52); +lean_inc(x_51); +lean_dec(x_43); +x_53 = lean_ctor_get_uint8(x_4, sizeof(void*)*5); +x_54 = lean_ctor_get(x_4, 0); +x_55 = lean_ctor_get(x_4, 1); +x_56 = lean_ctor_get(x_4, 3); lean_inc(x_56); lean_inc(x_55); -lean_dec(x_47); -x_57 = lean_ctor_get_uint8(x_4, sizeof(void*)*5); -x_58 = lean_ctor_get(x_4, 0); -x_59 = lean_ctor_get(x_4, 1); -x_60 = lean_ctor_get(x_4, 3); +lean_inc(x_54); +x_57 = lean_alloc_ctor(0, 5, 1); +lean_ctor_set(x_57, 0, x_54); +lean_ctor_set(x_57, 1, x_55); +lean_ctor_set(x_57, 2, x_1); +lean_ctor_set(x_57, 3, x_56); +lean_ctor_set(x_57, 4, x_51); +lean_ctor_set_uint8(x_57, sizeof(void*)*5, x_53); +x_58 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_52); +return x_58; +} +} +else +{ +uint8_t x_59; +lean_dec(x_1); +x_59 = !lean_is_exclusive(x_43); +if (x_59 == 0) +{ +return x_43; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; +x_60 = lean_ctor_get(x_43, 0); +x_61 = lean_ctor_get(x_43, 1); +lean_inc(x_61); lean_inc(x_60); -lean_inc(x_59); -lean_inc(x_58); -x_61 = lean_alloc_ctor(0, 5, 1); -lean_ctor_set(x_61, 0, x_58); -lean_ctor_set(x_61, 1, x_59); -lean_ctor_set(x_61, 2, x_1); -lean_ctor_set(x_61, 3, x_60); -lean_ctor_set(x_61, 4, x_55); -lean_ctor_set_uint8(x_61, sizeof(void*)*5, x_57); -x_62 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_62, 0, x_61); -lean_ctor_set(x_62, 1, x_56); +lean_dec(x_43); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_60); +lean_ctor_set(x_62, 1, x_61); return x_62; } } +} +} +} else { -uint8_t x_63; +uint8_t x_75; +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_5); lean_dec(x_1); -x_63 = !lean_is_exclusive(x_47); -if (x_63 == 0) +x_75 = !lean_is_exclusive(x_15); +if (x_75 == 0) { -return x_47; +return x_15; } else { -lean_object* x_64; lean_object* x_65; lean_object* x_66; -x_64 = lean_ctor_get(x_47, 0); -x_65 = lean_ctor_get(x_47, 1); -lean_inc(x_65); -lean_inc(x_64); -lean_dec(x_47); -x_66 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_66, 0, x_64); -lean_ctor_set(x_66, 1, x_65); -return x_66; -} -} +lean_object* x_76; lean_object* x_77; lean_object* x_78; +x_76 = lean_ctor_get(x_15, 0); +x_77 = lean_ctor_get(x_15, 1); +lean_inc(x_77); +lean_inc(x_76); +lean_dec(x_15); +x_78 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_78, 0, x_76); +lean_ctor_set(x_78, 1, x_77); +return x_78; } } } @@ -22679,20 +22604,21 @@ lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); lean_dec(x_5); +lean_dec(x_3); lean_dec(x_1); -x_79 = !lean_is_exclusive(x_15); +x_79 = !lean_is_exclusive(x_12); if (x_79 == 0) { -return x_15; +return x_12; } else { lean_object* x_80; lean_object* x_81; lean_object* x_82; -x_80 = lean_ctor_get(x_15, 0); -x_81 = lean_ctor_get(x_15, 1); +x_80 = lean_ctor_get(x_12, 0); +x_81 = lean_ctor_get(x_12, 1); lean_inc(x_81); lean_inc(x_80); -lean_dec(x_15); +lean_dec(x_12); x_82 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_82, 0, x_80); lean_ctor_set(x_82, 1, x_81); @@ -22700,52 +22626,23 @@ return x_82; } } } -else -{ -uint8_t x_83; -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_5); -lean_dec(x_3); -lean_dec(x_1); -x_83 = !lean_is_exclusive(x_12); -if (x_83 == 0) -{ -return x_12; -} -else -{ -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_12, 0); -x_85 = lean_ctor_get(x_12, 1); -lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_12); -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_84); -lean_ctor_set(x_86, 1, x_85); -return x_86; -} -} -} } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_String_Iterator_HasRepr___closed__2; -x_2 = l_Lean_stringToMessageData(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("{preDef.declName} {xs} :=\n{value}"); +return x_1; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__2() { _start: { -lean_object* x_1; -x_1 = lean_mk_string(" :=\n"); -return x_1; +lean_object* x_1; lean_object* x_2; +x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__1; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; } } static lean_object* _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__3() { @@ -22753,7 +22650,8 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__2; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -22765,47 +22663,62 @@ lean_inc(x_6); x_9 = l_Lean_Elab_addAsAxiom(x_1, x_4, x_5, x_6, x_7, x_8); if (lean_obj_tag(x_9) == 0) { -lean_object* x_10; lean_object* x_11; uint8_t x_18; lean_object* x_19; lean_object* x_39; lean_object* x_40; lean_object* x_41; uint8_t x_42; +lean_object* x_10; lean_object* x_11; lean_object* x_18; lean_object* x_19; lean_object* x_20; uint8_t x_21; x_10 = lean_ctor_get(x_9, 1); lean_inc(x_10); lean_dec(x_9); -x_39 = lean_st_ref_get(x_7, x_10); -x_40 = lean_ctor_get(x_39, 0); -lean_inc(x_40); -x_41 = lean_ctor_get(x_40, 3); -lean_inc(x_41); -lean_dec(x_40); -x_42 = lean_ctor_get_uint8(x_41, sizeof(void*)*1); -lean_dec(x_41); -if (x_42 == 0) +x_18 = lean_st_ref_get(x_7, x_10); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_19, 3); +lean_inc(x_20); +lean_dec(x_19); +x_21 = lean_ctor_get_uint8(x_20, sizeof(void*)*1); +lean_dec(x_20); +if (x_21 == 0) { -lean_object* x_43; uint8_t x_44; -x_43 = lean_ctor_get(x_39, 1); -lean_inc(x_43); -lean_dec(x_39); -x_44 = 0; -x_18 = x_44; -x_19 = x_43; -goto block_38; +lean_object* x_22; +x_22 = lean_ctor_get(x_18, 1); +lean_inc(x_22); +lean_dec(x_18); +x_11 = x_22; +goto block_17; } else { -lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; uint8_t x_50; -x_45 = lean_ctor_get(x_39, 1); -lean_inc(x_45); -lean_dec(x_39); -x_46 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_47 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_46, x_4, x_5, x_6, x_7, x_45); -x_48 = lean_ctor_get(x_47, 0); -lean_inc(x_48); -x_49 = lean_ctor_get(x_47, 1); -lean_inc(x_49); -lean_dec(x_47); -x_50 = lean_unbox(x_48); -lean_dec(x_48); -x_18 = x_50; -x_19 = x_49; -goto block_38; +lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; uint8_t x_27; +x_23 = lean_ctor_get(x_18, 1); +lean_inc(x_23); +lean_dec(x_18); +x_24 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; +x_25 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_24, x_4, x_5, x_6, x_7, x_23); +x_26 = lean_ctor_get(x_25, 0); +lean_inc(x_26); +x_27 = lean_unbox(x_26); +lean_dec(x_26); +if (x_27 == 0) +{ +lean_object* x_28; +x_28 = lean_ctor_get(x_25, 1); +lean_inc(x_28); +lean_dec(x_25); +x_11 = x_28; +goto block_17; +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_29 = lean_ctor_get(x_25, 1); +lean_inc(x_29); +lean_dec(x_25); +x_30 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__3; +x_31 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__3(x_24, x_30, x_4, x_5, x_6, x_7, x_29); +x_32 = lean_ctor_get(x_31, 1); +lean_inc(x_32); +lean_dec(x_31); +x_11 = x_32; +goto block_17; +} } block_17: { @@ -22826,61 +22739,10 @@ lean_inc(x_13); x_16 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_findRecArg_loop___rarg(x_13, x_2, x_15, x_13, x_4, x_5, x_6, x_7, x_11); return x_16; } -block_38: -{ -if (x_18 == 0) -{ -x_11 = x_19; -goto block_17; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_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; -x_20 = lean_ctor_get(x_1, 2); -lean_inc(x_20); -x_21 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_21, 0, x_20); -x_22 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_23 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_23, 0, x_22); -lean_ctor_set(x_23, 1, x_21); -x_24 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__1; -x_25 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_25, 0, x_23); -lean_ctor_set(x_25, 1, x_24); -x_26 = l_Array_toList___rarg(x_2); -x_27 = l_List_map___main___at_Lean_MessageData_hasCoeOfListExpr___spec__1(x_26); -x_28 = l_Lean_MessageData_ofList(x_27); -lean_dec(x_27); -x_29 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_29, 0, x_25); -lean_ctor_set(x_29, 1, x_28); -x_30 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__3; -x_31 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_31, 0, x_29); -lean_ctor_set(x_31, 1, x_30); -lean_inc(x_3); -x_32 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_32, 0, x_3); -x_33 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_33, 0, x_31); -lean_ctor_set(x_33, 1, x_32); -x_34 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_22); -x_35 = l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__12; -x_36 = l_Lean_addTrace___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___spec__2(x_35, x_34, x_4, x_5, x_6, x_7, x_19); -x_37 = lean_ctor_get(x_36, 1); -lean_inc(x_37); -lean_dec(x_36); -x_11 = x_37; -goto block_17; -} -} -} -else -{ -uint8_t x_51; +uint8_t x_33; lean_dec(x_7); lean_dec(x_6); lean_dec(x_5); @@ -22888,23 +22750,23 @@ lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); lean_dec(x_1); -x_51 = !lean_is_exclusive(x_9); -if (x_51 == 0) +x_33 = !lean_is_exclusive(x_9); +if (x_33 == 0) { return x_9; } else { -lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_52 = lean_ctor_get(x_9, 0); -x_53 = lean_ctor_get(x_9, 1); -lean_inc(x_53); -lean_inc(x_52); +lean_object* x_34; lean_object* x_35; lean_object* x_36; +x_34 = lean_ctor_get(x_9, 0); +x_35 = lean_ctor_get(x_9, 1); +lean_inc(x_35); +lean_inc(x_34); lean_dec(x_9); -x_54 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_54, 0, x_52); -lean_ctor_set(x_54, 1, x_53); -return x_54; +x_36 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_36, 0, x_34); +lean_ctor_set(x_36, 1, x_35); +return x_36; } } } @@ -23182,7 +23044,7 @@ lean_dec(x_3); return x_9; } } -lean_object* l_Lean_Elab_initFn____x40_Lean_Elab_PreDefinition_Structural___hyg_3362_(lean_object* x_1) { +lean_object* l_Lean_Elab_initFn____x40_Lean_Elab_PreDefinition_Structural___hyg_3240_(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -23314,8 +23176,6 @@ l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed_ lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__14); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__15 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__15(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__15); -l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__16 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__16(); -lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_toBelowAux___closed__16); l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg___lambda__2___closed__1 = _init_l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg___lambda__2___closed__1(); lean_mark_persistent(l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg___lambda__2___closed__1); l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg___lambda__2___closed__2 = _init_l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___spec__4___rarg___lambda__2___closed__2(); @@ -23328,6 +23188,8 @@ l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__1); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__2 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__2(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__2); +l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__3 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__3(); +lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_withBelowDict___rarg___closed__3); l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__3___closed__1 = _init_l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__3___closed__1(); lean_mark_persistent(l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__3___closed__1); l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__3___closed__2 = _init_l_Lean_Expr_withAppAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__3___closed__2(); @@ -23350,8 +23212,6 @@ l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lea lean_mark_persistent(l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__6); l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__7 = _init_l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__7(); lean_mark_persistent(l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__7); -l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__8 = _init_l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__8(); -lean_mark_persistent(l_Array_umapMAux___main___at___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___spec__8___lambda__1___closed__8); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___lambda__1___closed__1 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___lambda__1___closed__1(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___lambda__1___closed__1); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___lambda__1___closed__2 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_replaceRecApps_loop___lambda__1___closed__2(); @@ -23376,10 +23236,20 @@ l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__7 lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__7); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__8 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__8(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__8); +l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9(); +lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__9); +l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__10 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__10(); +lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__10); +l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__11 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__11(); +lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__11); +l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__12 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__12(); +lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_mkBRecOn___closed__12); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__1 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__1(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__1); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__2 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__2(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__2); +l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__3 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__3(); +lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__1___closed__3); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__1 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__1(); lean_mark_persistent(l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__1); l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__2 = _init_l___private_Lean_Elab_PreDefinition_Structural_0__Lean_Elab_elimRecursion___lambda__2___closed__2(); @@ -23392,7 +23262,7 @@ l_Lean_Elab_structuralRecursion___closed__2 = _init_l_Lean_Elab_structuralRecurs lean_mark_persistent(l_Lean_Elab_structuralRecursion___closed__2); l_Lean_Elab_structuralRecursion___closed__3 = _init_l_Lean_Elab_structuralRecursion___closed__3(); lean_mark_persistent(l_Lean_Elab_structuralRecursion___closed__3); -res = l_Lean_Elab_initFn____x40_Lean_Elab_PreDefinition_Structural___hyg_3362_(lean_io_mk_world()); +res = l_Lean_Elab_initFn____x40_Lean_Elab_PreDefinition_Structural___hyg_3240_(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)); diff --git a/stage0/stdlib/Lean/Elab/Syntax.c b/stage0/stdlib/Lean/Elab/Syntax.c index d6c4e2351c..a7d63762f2 100644 --- a/stage0/stdlib/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Lean/Elab/Syntax.c @@ -205,7 +205,6 @@ lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_obj lean_object* l___private_Lean_Elab_Syntax_7__elabKindPrio(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Syntax_9__antiquote___main(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__10; -lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__36; lean_object* l_Lean_Elab_Term_getMainModule___rarg(lean_object*, lean_object*); lean_object* l_Lean_Elab_throwUnsupportedSyntax___at_Lean_Elab_Command_elabCommand___main___spec__8___rarg(lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__29; @@ -788,6 +787,7 @@ lean_object* l___private_Lean_Elab_Syntax_1__mkParserSeq___boxed(lean_object*, l lean_object* l_Lean_Elab_Command_expandNotationItemIntoSyntaxItem(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__35; extern lean_object* l_Lean_Syntax_isQuot___closed__1; +extern lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1; lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___closed__1; lean_object* l___regBuiltin_Lean_Elab_Command_elabSyntax___closed__2; lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__12; @@ -12666,17 +12666,19 @@ return x_4; static lean_object* _init_l_Lean_Elab_Command_elabMacroRulesAux___closed__32() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("Exception"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Elab_mkMacroAttribute___closed__9; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } static lean_object* _init_l_Lean_Elab_Command_elabMacroRulesAux___closed__33() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Elab_mkMacroAttribute___closed__9; -x_2 = l_Lean_Elab_Command_elabMacroRulesAux___closed__32; +x_1 = l_Lean_Elab_Command_elabMacroRulesAux___closed__32; +x_2 = l_Lean_Elab_registerUnsupportedSyntaxId___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -12685,9 +12687,11 @@ static lean_object* _init_l_Lean_Elab_Command_elabMacroRulesAux___closed__34() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Elab_Command_elabMacroRulesAux___closed__33; -x_2 = l_Lean_Elab_registerUnsupportedSyntaxId___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Command_elabMacroRulesAux___closed__33; +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; } } @@ -12697,18 +12701,6 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Command_elabMacroRulesAux___closed__34; -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; -} -} -static lean_object* _init_l_Lean_Elab_Command_elabMacroRulesAux___closed__36() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Command_elabMacroRulesAux___closed__35; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); @@ -12885,10 +12877,10 @@ lean_ctor_set(x_98, 1, x_96); lean_ctor_set(x_98, 2, x_95); lean_ctor_set(x_98, 3, x_97); x_99 = lean_array_push(x_22, x_98); -x_100 = l_Lean_Elab_Command_elabMacroRulesAux___closed__34; +x_100 = l_Lean_Elab_Command_elabMacroRulesAux___closed__33; x_101 = l_Lean_addMacroScope(x_15, x_100, x_11); x_102 = l_Lean_Elab_Command_elabMacroRulesAux___closed__31; -x_103 = l_Lean_Elab_Command_elabMacroRulesAux___closed__36; +x_103 = l_Lean_Elab_Command_elabMacroRulesAux___closed__35; x_104 = lean_alloc_ctor(3, 4, 0); lean_ctor_set(x_104, 0, x_19); lean_ctor_set(x_104, 1, x_102); @@ -13093,10 +13085,10 @@ lean_ctor_set(x_219, 1, x_217); lean_ctor_set(x_219, 2, x_216); lean_ctor_set(x_219, 3, x_218); x_220 = lean_array_push(x_143, x_219); -x_221 = l_Lean_Elab_Command_elabMacroRulesAux___closed__34; +x_221 = l_Lean_Elab_Command_elabMacroRulesAux___closed__33; x_222 = l_Lean_addMacroScope(x_135, x_221, x_11); x_223 = l_Lean_Elab_Command_elabMacroRulesAux___closed__31; -x_224 = l_Lean_Elab_Command_elabMacroRulesAux___closed__36; +x_224 = l_Lean_Elab_Command_elabMacroRulesAux___closed__35; x_225 = lean_alloc_ctor(3, 4, 0); lean_ctor_set(x_225, 0, x_140); lean_ctor_set(x_225, 1, x_223); @@ -22201,8 +22193,6 @@ l_Lean_Elab_Command_elabMacroRulesAux___closed__34 = _init_l_Lean_Elab_Command_e lean_mark_persistent(l_Lean_Elab_Command_elabMacroRulesAux___closed__34); l_Lean_Elab_Command_elabMacroRulesAux___closed__35 = _init_l_Lean_Elab_Command_elabMacroRulesAux___closed__35(); lean_mark_persistent(l_Lean_Elab_Command_elabMacroRulesAux___closed__35); -l_Lean_Elab_Command_elabMacroRulesAux___closed__36 = _init_l_Lean_Elab_Command_elabMacroRulesAux___closed__36(); -lean_mark_persistent(l_Lean_Elab_Command_elabMacroRulesAux___closed__36); l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__1 = _init_l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__1(); lean_mark_persistent(l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__1); l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__2 = _init_l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__2(); diff --git a/stage0/stdlib/Lean/Elab/Tactic/Induction.c b/stage0/stdlib/Lean/Elab/Tactic/Induction.c index 5e1ab7daff..9d4a665f20 100644 --- a/stage0/stdlib/Lean/Elab/Tactic/Induction.c +++ b/stage0/stdlib/Lean/Elab/Tactic/Induction.c @@ -43,6 +43,7 @@ lean_object* l_Lean_throwError___at___private_Lean_Elab_Tactic_Basic_0__Lean_Ela lean_object* l_List_forInAux___main___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault___spec__3___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*); uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__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_array_fswap(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getGeneralizingFVarIds___closed__3; lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault_match__5___rarg(lean_object*, lean_object*); @@ -82,14 +83,12 @@ lean_object* l_Lean_Elab_Tactic_getRecFromUsing_match__1___rarg(lean_object*, le lean_object* l_Lean_Expr_getAppFn___main(lean_object*); extern lean_object* l_Lean_Name_inhabited; extern lean_object* l_String_splitAux___main___closed__1; -lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecFromUsingLoop___closed__1; lean_object* l_Lean_Elab_Tactic_getInductiveValFromMajor___lambda__1___closed__1; lean_object* l_Lean_Elab_Tactic_RecInfo_altRHSs___default; lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfo_match__3___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault_match__2(lean_object*); -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkCasesResult_loop___closed__4; lean_object* l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalInduction_match__1___rarg(lean_object*, lean_object*); @@ -117,6 +116,7 @@ lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecIn lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecFromUsingLoop___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_elabMajor___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_array_fget(lean_object*, lean_object*); +lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__7; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4(lean_object*, lean_object*, size_t, size_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Std_Range_forIn_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_processResult___spec__2(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*); @@ -160,6 +160,7 @@ lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAlt lean_object* l_Lean_Elab_Tactic_evalInduction_match__1(lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault_match__5(lean_object*); lean_object* l_Lean_Elab_Tactic_evalInduction___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* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getGeneralizingFVarIds___closed__1; lean_object* lean_name_mk_string(lean_object*, lean_object*); @@ -279,6 +280,7 @@ lean_object* l_Lean_Elab_Tactic_elabTerm(lean_object*, lean_object*, uint8_t, le lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_evalCases___spec__1(lean_object*, lean_object*); uint8_t l_Lean_Syntax_isNone(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Tactic_evalIntros___spec__1(lean_object*, lean_object*); +lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(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_List_forInAux___main___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault___spec__3___closed__2; lean_object* l_Lean_Elab_Tactic_focusAux___rarg(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_Tactic_isHoleRHS___boxed(lean_object*); @@ -292,7 +294,6 @@ lean_object* l_Std_Range_forIn_loop___at___private_Lean_Elab_Tactic_Induction_0_ lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_elabMajor_match__2(lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault___closed__4; extern lean_object* l_Lean_mkHole___closed__2; -lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__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* l_Lean_Elab_Tactic_liftMetaM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_generalizeVars_match__1___rarg(lean_object*, lean_object*); lean_object* l_Lean_Meta_getMVarDecl___at_Lean_Elab_Tactic_getMainTag___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -329,11 +330,11 @@ lean_object* l_Lean_mkConst(lean_object*, lean_object*); lean_object* l_Std_Range_forIn_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_processResult___spec__1___closed__1; extern lean_object* l_Lean_Elab_Tactic_getFVarId___closed__2; lean_object* l_Lean_Elab_Tactic_elabTerm___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* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3___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* l_Lean_Elab_Tactic_evalCases_match__1___rarg(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaTacticAux___rarg___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* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault___closed__3; lean_object* l_Std_Range_forIn_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_processResult___spec__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*); -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_elabMajor_match__1___rarg(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Lean_Elab_Util_6__regTraceClasses___closed__1; lean_object* l_Array_findIdxAux___main___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getRecInfoDefault___spec__1(lean_object*, lean_object*, lean_object*); @@ -1772,7 +1773,20 @@ return x_8; } } } -lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { +_start: +{ +lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; +x_11 = lean_ctor_get(x_8, 0); +x_12 = l_Lean_checkTraceOption(x_11, x_1); +x_13 = lean_box(x_12); +x_14 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_14, 0, x_13); +lean_ctor_set(x_14, 1, x_10); +return x_14; +} +} +lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { _start: { 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; uint8_t x_20; @@ -1939,19 +1953,6 @@ return x_60; } } } -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { -_start: -{ -lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; -x_11 = lean_ctor_get(x_8, 0); -x_12 = l_Lean_checkTraceOption(x_11, x_1); -x_13 = lean_box(x_12); -x_14 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_14, 0, x_13); -lean_ctor_set(x_14, 1, x_10); -return x_14; -} -} static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__1() { _start: { @@ -1991,7 +1992,7 @@ static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tact _start: { lean_object* x_1; -x_1 = lean_mk_string(" , "); +x_1 = lean_mk_string("{n} , {alt}"); return x_1; } } @@ -2000,7 +2001,18 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__5; -x_2 = l_Lean_stringToMessageData(x_1); +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__6; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); return x_2; } } @@ -2020,7 +2032,7 @@ return x_16; } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; uint8_t x_52; lean_object* x_53; lean_object* x_66; lean_object* x_67; lean_object* x_68; uint8_t x_69; +lean_object* x_17; lean_object* x_18; lean_object* x_19; 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; uint8_t x_55; lean_dec(x_5); x_17 = lean_array_uget(x_2, x_4); x_18 = l___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_getAltName(x_17); @@ -2043,43 +2055,61 @@ lean_ctor_set(x_51, 0, x_44); lean_ctor_set(x_51, 1, x_45); lean_ctor_set(x_51, 2, x_46); lean_ctor_set(x_51, 3, x_50); -x_66 = lean_st_ref_get(x_13, x_14); -x_67 = lean_ctor_get(x_66, 0); -lean_inc(x_67); -x_68 = lean_ctor_get(x_67, 3); -lean_inc(x_68); -lean_dec(x_67); -x_69 = lean_ctor_get_uint8(x_68, sizeof(void*)*1); -lean_dec(x_68); -if (x_69 == 0) +x_52 = lean_st_ref_get(x_13, x_14); +x_53 = lean_ctor_get(x_52, 0); +lean_inc(x_53); +x_54 = lean_ctor_get(x_53, 3); +lean_inc(x_54); +lean_dec(x_53); +x_55 = lean_ctor_get_uint8(x_54, sizeof(void*)*1); +lean_dec(x_54); +if (x_55 == 0) { -lean_object* x_70; uint8_t x_71; -x_70 = lean_ctor_get(x_66, 1); -lean_inc(x_70); -lean_dec(x_66); -x_71 = 0; -x_52 = x_71; -x_53 = x_70; -goto block_65; +lean_object* x_56; +lean_dec(x_51); +x_56 = lean_ctor_get(x_52, 1); +lean_inc(x_56); +lean_dec(x_52); +x_19 = x_56; +goto block_43; } else { -lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; uint8_t x_77; -x_72 = lean_ctor_get(x_66, 1); -lean_inc(x_72); -lean_dec(x_66); -x_73 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__4; -x_74 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(x_73, x_6, x_7, x_8, x_9, x_10, x_11, x_51, x_13, x_72); -x_75 = lean_ctor_get(x_74, 0); -lean_inc(x_75); -x_76 = lean_ctor_get(x_74, 1); -lean_inc(x_76); -lean_dec(x_74); -x_77 = lean_unbox(x_75); -lean_dec(x_75); -x_52 = x_77; -x_53 = x_76; -goto block_65; +lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; uint8_t x_61; +x_57 = lean_ctor_get(x_52, 1); +lean_inc(x_57); +lean_dec(x_52); +x_58 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__4; +x_59 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(x_58, x_6, x_7, x_8, x_9, x_10, x_11, x_51, x_13, x_57); +x_60 = lean_ctor_get(x_59, 0); +lean_inc(x_60); +x_61 = lean_unbox(x_60); +lean_dec(x_60); +if (x_61 == 0) +{ +lean_object* x_62; +lean_dec(x_51); +x_62 = lean_ctor_get(x_59, 1); +lean_inc(x_62); +lean_dec(x_59); +x_19 = x_62; +goto block_43; +} +else +{ +lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; +x_63 = lean_ctor_get(x_59, 1); +lean_inc(x_63); +lean_dec(x_59); +x_64 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__7; +x_65 = l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(x_58, x_64, x_6, x_7, x_8, x_9, x_10, x_11, x_51, x_13, x_63); +lean_dec(x_51); +x_66 = lean_ctor_get(x_65, 1); +lean_inc(x_66); +lean_dec(x_65); +x_19 = x_66; +goto block_43; +} } block_43: { @@ -2155,47 +2185,6 @@ goto _start; } } } -block_65: -{ -if (x_52 == 0) -{ -lean_dec(x_51); -x_19 = x_53; -goto block_43; -} -else -{ -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_inc(x_18); -x_54 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_54, 0, x_18); -x_55 = l_Lean_Elab_Term_reportUnsolvedGoals___closed__3; -x_56 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__6; -x_58 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_58, 0, x_56); -lean_ctor_set(x_58, 1, x_57); -lean_inc(x_17); -x_59 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_59, 0, x_17); -x_60 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_60, 0, x_58); -lean_ctor_set(x_60, 1, x_59); -x_61 = lean_alloc_ctor(10, 2, 0); -lean_ctor_set(x_61, 0, x_60); -lean_ctor_set(x_61, 1, x_55); -x_62 = l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__4; -x_63 = l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(x_62, x_61, x_6, x_7, x_8, x_9, x_10, x_11, x_51, x_13, x_53); -lean_dec(x_51); -x_64 = lean_ctor_get(x_63, 1); -lean_inc(x_64); -lean_dec(x_63); -x_19 = x_64; -goto block_43; -} -} } } } @@ -2268,27 +2257,11 @@ x_6 = lean_box(x_5); return x_6; } } -lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { -_start: -{ -lean_object* x_12; -x_12 = l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11); -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_4); -lean_dec(x_3); -return x_12; -} -} -lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { +lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10) { _start: { lean_object* x_11; -x_11 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); +x_11 = l___private_Lean_Util_Trace_3__checkTraceOptionM___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__2(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10); lean_dec(x_9); lean_dec(x_8); lean_dec(x_7); @@ -2300,6 +2273,22 @@ lean_dec(x_2); return x_11; } } +lean_object* l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11) { +_start: +{ +lean_object* x_12; +x_12 = l_Lean_addTrace___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__3(x_1, x_2, x_3, x_4, x_5, x_6, x_7, x_8, x_9, x_10, x_11); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_6); +lean_dec(x_5); +lean_dec(x_4); +lean_dec(x_3); +return x_12; +} +} lean_object* l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7, lean_object* x_8, lean_object* x_9, lean_object* x_10, lean_object* x_11, lean_object* x_12, lean_object* x_13, lean_object* x_14) { _start: { @@ -11169,6 +11158,8 @@ l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_ lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__5); l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__6 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__6(); lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__6); +l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__7 = _init_l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__7(); +lean_mark_persistent(l_Array_forInUnsafe_loop___at___private_Lean_Elab_Tactic_Induction_0__Lean_Elab_Tactic_checkAltCtorNames___spec__4___closed__7); l_Lean_Elab_Tactic_RecInfo_altVars___default = _init_l_Lean_Elab_Tactic_RecInfo_altVars___default(); lean_mark_persistent(l_Lean_Elab_Tactic_RecInfo_altVars___default); l_Lean_Elab_Tactic_RecInfo_altRHSs___default = _init_l_Lean_Elab_Tactic_RecInfo_altRHSs___default(); diff --git a/stage0/stdlib/Lean/Exception.c b/stage0/stdlib/Lean/Exception.c index db01bf8f17..0b973a726e 100644 --- a/stage0/stdlib/Lean/Exception.c +++ b/stage0/stdlib/Lean/Exception.c @@ -13,48 +13,88 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__8; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__5; lean_object* l_Lean_StateRefT_monadRecDepth___rarg(lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9; lean_object* l_Lean_InternalExceptionId_toString(lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__5; lean_object* l_Lean_ReaderT_MonadRecDepth___rarg(lean_object*); lean_object* l_Lean_withIncRecDepth___rarg___lambda__2___closed__2; lean_object* l_Lean_withIncRecDepth___rarg___lambda__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_withIncRecDepth___rarg___lambda__2(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_Exception___hyg_42____closed__6; lean_object* l_Lean_withIncRecDepth___rarg___lambda__2___closed__1; +uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant___rarg___closed__4; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4; lean_object* l_Lean_withRef___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_maxRecDepthErrorMessage; lean_object* l_Lean_withIncRecDepth___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Array_empty___closed__1; lean_object* l_StateRefT_x27_run___rarg___lambda__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__8; lean_object* l_Lean_withRef___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ReaderT_MonadRecDepth___rarg___lambda__2(lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1; +lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* lean_array_get_size(lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__2; +extern lean_object* l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +extern lean_object* l_Lean_interpolatedStrKind; lean_object* l_Lean_throwKernelException(lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__2; +extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__1; +lean_object* lean_string_utf8_byte_size(lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__9; +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__4; +extern lean_object* l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__6; lean_object* l_Lean_Exception_inhabited; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4; +extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_ReaderT_MonadRecDepth___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant___rarg___closed__2; lean_object* l_Lean_refTrans(lean_object*, lean_object*); +extern lean_object* l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__5; lean_object* l_Lean_withIncRecDepth___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__7; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Exception_inhabited___closed__1; +extern lean_object* l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__5; lean_object* l_Lean_ReaderT_MonadRecDepth___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant___rarg___closed__1; lean_object* l_Lean_throwKernelException___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_KernelException_toMessageData(lean_object*, lean_object*); lean_object* l_Lean_replaceRef(lean_object*, lean_object*); lean_object* l_Lean_refTrans___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__6; extern lean_object* l_Char_HasRepr___closed__1; +extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; +lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_ReaderT_MonadRecDepth___rarg___lambda__3(lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant___rarg___closed__5; lean_object* l_Lean_withRef___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant___rarg___closed__3; lean_object* l_Lean_throwErrorAt___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__3; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__6; +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7; lean_object* l_Lean_Exception_getRef___boxed(lean_object*); +lean_object* l_Lean_addMacroScope(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwError___rarg___lambda__1(lean_object*, lean_object*); +extern lean_object* l_Lean_nullKind___closed__2; lean_object* l_Lean_replaceRef___boxed(lean_object*, lean_object*); lean_object* l_Lean_throwError(lean_object*); lean_object* l_Lean_StateRefT_monadRecDepth(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_withIncRecDepth(lean_object*, lean_object*); +extern lean_object* l_Lean_SourceInfo_inhabited___closed__1; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7; +lean_object* l_Lean_Syntax_getArgs(lean_object*); +lean_object* l_Lean_Syntax_getKind(lean_object*); lean_object* l_Lean_throwKernelException___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwError___rarg___lambda__1___boxed(lean_object*, lean_object*); lean_object* l_Lean_ReaderT_MonadRecDepth___rarg___lambda__3___boxed(lean_object*, lean_object*); @@ -65,18 +105,42 @@ lean_object* l_Lean_ReaderT_MonadRecDepth(lean_object*, lean_object*, lean_objec lean_object* l_Lean_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_refTrans___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_withIncRecDepth___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3_; +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42_; +extern lean_object* l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__1; lean_object* l_Lean_addErrorMessageContextDefault___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__6; lean_object* l_Lean_StateRefT_monadRecDepth___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_addErrorMessageContextDefault(lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__5; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7; +uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Lean_throwUnknownConstant(lean_object*); +extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; lean_object* l_Lean_withRef(lean_object*); lean_object* l_Lean_refTrans___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_throwError___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3; +lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__5; lean_object* l_Lean_ofExcept(lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__3; +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4; +extern lean_object* l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__18; +extern lean_object* l_Lean_mkAppStx___closed__2; +extern lean_object* l_Lean_Name_hasMacroScopes___main___closed__1; +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__2; lean_object* l_Lean_mkConst(lean_object*, lean_object*); extern lean_object* l_Lean_MessageData_Inhabited___closed__1; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87_(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_334_(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1; +extern lean_object* l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__8; +lean_object* lean_name_mk_numeral(lean_object*, lean_object*); lean_object* l_Lean_ReaderT_MonadRecDepth___rarg___lambda__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Exception_toMessageData(lean_object*); +lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__3; +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__2; lean_object* l_Lean_ofExcept___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_withIncRecDepth___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Exception_toMessageData(lean_object* x_1) { @@ -792,6 +856,656 @@ lean_dec(x_9); return x_10; } } +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("Exception"); +return x_1; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__1; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__2; +x_2 = l_Lean_Name_hasMacroScopes___main___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3; +x_2 = lean_unsigned_to_nat(3u); +x_3 = lean_name_mk_numeral(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__5() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("throwError! "); +return x_1; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__5; +x_2 = lean_alloc_ctor(11, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__8; +x_2 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__18; +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; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__8() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__6; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7; +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; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__9() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__4; +x_2 = lean_unsigned_to_nat(1023u); +x_3 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____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); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3_() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__9; +return x_1; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3; +x_2 = lean_unsigned_to_nat(42u); +x_3 = lean_name_mk_numeral(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__2() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("throwErrorAt! "); +return x_1; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__2; +x_2 = lean_alloc_ctor(11, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +x_2 = lean_unsigned_to_nat(1024u); +x_3 = lean_alloc_ctor(20, 2, 0); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set(x_3, 1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__3; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4; +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; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__5; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7; +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; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__1; +x_2 = lean_unsigned_to_nat(1023u); +x_3 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__6; +x_4 = lean_alloc_ctor(9, 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; +} +} +static lean_object* _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42_() { +_start: +{ +lean_object* x_1; +x_1 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__7; +return x_1; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("throwError"); +return x_1; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____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_Exception___hyg_87____closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____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); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__2; +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__5; +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; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__6; +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; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__8() { +_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___kind_term____x40_Lean_Message___hyg_125____closed__6; +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; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____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_myMacro____x40_Lean_Exception___hyg_87____closed__8; +x_3 = lean_array_push(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87_(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___kind_term____x40_Lean_Exception___hyg_3____closed__4; +lean_inc(x_1); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +lean_dec(x_1); +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(2u); +x_11 = lean_nat_dec_eq(x_9, x_10); +lean_dec(x_9); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_dec(x_2); +lean_dec(x_1); +x_12 = lean_box(1); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_3); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; +x_14 = lean_unsigned_to_nat(1u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +lean_dec(x_1); +lean_inc(x_15); +x_16 = l_Lean_Syntax_getKind(x_15); +x_17 = l_Lean_interpolatedStrKind; +x_18 = lean_name_eq(x_16, x_17); +lean_dec(x_16); +if (x_18 == 0) +{ +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; +x_19 = lean_ctor_get(x_2, 2); +lean_inc(x_19); +x_20 = lean_ctor_get(x_2, 1); +lean_inc(x_20); +lean_dec(x_2); +x_21 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4; +x_22 = l_Lean_addMacroScope(x_20, x_21, x_19); +x_23 = l_Lean_SourceInfo_inhabited___closed__1; +x_24 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__3; +x_25 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7; +x_26 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_26, 0, x_23); +lean_ctor_set(x_26, 1, x_24); +lean_ctor_set(x_26, 2, x_22); +lean_ctor_set(x_26, 3, x_25); +x_27 = l_Array_empty___closed__1; +x_28 = lean_array_push(x_27, x_26); +x_29 = lean_array_push(x_27, x_15); +x_30 = l_Lean_nullKind___closed__2; +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_30); +lean_ctor_set(x_31, 1, x_29); +x_32 = lean_array_push(x_28, x_31); +x_33 = l_Lean_mkAppStx___closed__8; +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_35, 0, x_34); +lean_ctor_set(x_35, 1, x_3); +return x_35; +} +else +{ +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; +x_36 = lean_ctor_get(x_2, 2); +lean_inc(x_36); +x_37 = lean_ctor_get(x_2, 1); +lean_inc(x_37); +lean_dec(x_2); +x_38 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4; +x_39 = l_Lean_addMacroScope(x_37, x_38, x_36); +x_40 = l_Lean_SourceInfo_inhabited___closed__1; +x_41 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__3; +x_42 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7; +x_43 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_43, 0, x_40); +lean_ctor_set(x_43, 1, x_41); +lean_ctor_set(x_43, 2, x_39); +lean_ctor_set(x_43, 3, x_42); +x_44 = l_Array_empty___closed__1; +x_45 = lean_array_push(x_44, x_43); +x_46 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9; +x_47 = lean_array_push(x_46, x_15); +x_48 = l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__5; +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_47); +x_50 = lean_array_push(x_44, x_49); +x_51 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__5; +x_52 = lean_array_push(x_50, x_51); +x_53 = l_Lean_nullKind___closed__2; +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +x_55 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; +x_56 = lean_array_push(x_55, x_54); +x_57 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; +x_58 = lean_array_push(x_56, x_57); +x_59 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; +x_60 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_60, 0, x_59); +lean_ctor_set(x_60, 1, x_58); +x_61 = lean_array_push(x_44, x_60); +x_62 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_62, 0, x_53); +lean_ctor_set(x_62, 1, x_61); +x_63 = lean_array_push(x_45, x_62); +x_64 = l_Lean_mkAppStx___closed__8; +x_65 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_65, 0, x_64); +lean_ctor_set(x_65, 1, x_63); +x_66 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_66, 0, x_65); +lean_ctor_set(x_66, 1, x_3); +return x_66; +} +} +} +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("throwErrorAt"); +return x_1; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__2() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____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_Exception___hyg_334____closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____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); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_mkAppStx___closed__2; +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__5; +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; +} +} +static lean_object* _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__6; +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_myMacro____x40_Lean_Exception___hyg_334_(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___kind_term____x40_Lean_Exception___hyg_42____closed__1; +lean_inc(x_1); +x_5 = l_Lean_Syntax_isOfKind(x_1, x_4); +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +lean_dec(x_2); +lean_dec(x_1); +x_6 = lean_box(1); +x_7 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_7, 0, x_6); +lean_ctor_set(x_7, 1, x_3); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; +x_8 = l_Lean_Syntax_getArgs(x_1); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_unsigned_to_nat(3u); +x_11 = lean_nat_dec_eq(x_9, x_10); +lean_dec(x_9); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +lean_dec(x_2); +lean_dec(x_1); +x_12 = lean_box(1); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_12); +lean_ctor_set(x_13, 1, x_3); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_14 = lean_unsigned_to_nat(1u); +x_15 = l_Lean_Syntax_getArg(x_1, x_14); +x_16 = lean_unsigned_to_nat(2u); +x_17 = l_Lean_Syntax_getArg(x_1, x_16); +lean_dec(x_1); +lean_inc(x_17); +x_18 = l_Lean_Syntax_getKind(x_17); +x_19 = l_Lean_interpolatedStrKind; +x_20 = lean_name_eq(x_18, x_19); +lean_dec(x_18); +if (x_20 == 0) +{ +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; +x_21 = lean_ctor_get(x_2, 2); +lean_inc(x_21); +x_22 = lean_ctor_get(x_2, 1); +lean_inc(x_22); +lean_dec(x_2); +x_23 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4; +x_24 = l_Lean_addMacroScope(x_22, x_23, x_21); +x_25 = l_Lean_SourceInfo_inhabited___closed__1; +x_26 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__3; +x_27 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7; +x_28 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_28, 0, x_25); +lean_ctor_set(x_28, 1, x_26); +lean_ctor_set(x_28, 2, x_24); +lean_ctor_set(x_28, 3, x_27); +x_29 = l_Array_empty___closed__1; +x_30 = lean_array_push(x_29, x_28); +x_31 = lean_array_push(x_29, x_15); +x_32 = lean_array_push(x_31, x_17); +x_33 = l_Lean_nullKind___closed__2; +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_32); +x_35 = lean_array_push(x_30, x_34); +x_36 = l_Lean_mkAppStx___closed__8; +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_alloc_ctor(0, 2, 0); +lean_ctor_set(x_38, 0, x_37); +lean_ctor_set(x_38, 1, x_3); +return x_38; +} +else +{ +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; +x_39 = lean_ctor_get(x_2, 2); +lean_inc(x_39); +x_40 = lean_ctor_get(x_2, 1); +lean_inc(x_40); +lean_dec(x_2); +x_41 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4; +x_42 = l_Lean_addMacroScope(x_40, x_41, x_39); +x_43 = l_Lean_SourceInfo_inhabited___closed__1; +x_44 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__3; +x_45 = l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7; +x_46 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_46, 0, x_43); +lean_ctor_set(x_46, 1, x_44); +lean_ctor_set(x_46, 2, x_42); +lean_ctor_set(x_46, 3, x_45); +x_47 = l_Array_empty___closed__1; +x_48 = lean_array_push(x_47, x_46); +x_49 = lean_array_push(x_47, x_15); +x_50 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9; +x_51 = lean_array_push(x_50, x_17); +x_52 = l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__5; +x_53 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_51); +x_54 = lean_array_push(x_47, x_53); +x_55 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__5; +x_56 = lean_array_push(x_54, x_55); +x_57 = l_Lean_nullKind___closed__2; +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_56); +x_59 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; +x_60 = lean_array_push(x_59, x_58); +x_61 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; +x_62 = lean_array_push(x_60, x_61); +x_63 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; +x_64 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_62); +x_65 = lean_array_push(x_49, x_64); +x_66 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_66, 0, x_57); +lean_ctor_set(x_66, 1, x_65); +x_67 = lean_array_push(x_48, x_66); +x_68 = l_Lean_mkAppStx___closed__8; +x_69 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_69, 0, x_68); +lean_ctor_set(x_69, 1, x_67); +x_70 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_70, 0, x_69); +lean_ctor_set(x_70, 1, x_3); +return x_70; +} +} +} +} +} lean_object* initialize_Init(lean_object*); lean_object* initialize_Lean_Message(lean_object*); lean_object* initialize_Lean_InternalExceptionId(lean_object*); @@ -831,6 +1545,74 @@ l_Lean_withIncRecDepth___rarg___lambda__2___closed__1 = _init_l_Lean_withIncRecD lean_mark_persistent(l_Lean_withIncRecDepth___rarg___lambda__2___closed__1); l_Lean_withIncRecDepth___rarg___lambda__2___closed__2 = _init_l_Lean_withIncRecDepth___rarg___lambda__2___closed__2(); lean_mark_persistent(l_Lean_withIncRecDepth___rarg___lambda__2___closed__2); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__1); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__2 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__2(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__2); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__3); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__4 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__4(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__4); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__5 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__5(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__5); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__6 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__6(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__6); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__8 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__8(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__8); +l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__9 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__9(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__9); +l_Lean___kind_term____x40_Lean_Exception___hyg_3_ = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_3_(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_3_); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__1 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__1(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__1); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__2 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__2(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__2); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__3 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__3(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__3); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__5 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__5(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__5); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__6 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__6(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__6); +l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__7 = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__7(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__7); +l_Lean___kind_term____x40_Lean_Exception___hyg_42_ = _init_l_Lean___kind_term____x40_Lean_Exception___hyg_42_(); +lean_mark_persistent(l_Lean___kind_term____x40_Lean_Exception___hyg_42_); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__1); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__2 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__2(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__2); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__3 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__3(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__3); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__4); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__5 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__5(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__5); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__6 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__6(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__6); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__7); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__8 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__8(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__8); +l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__1); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__2 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__2(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__2); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__3 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__3(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__3); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__4); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__5 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__5(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__5); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__6 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__6(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__6); +l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7 = _init_l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Exception___hyg_334____closed__7); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Lean/Parser/Do.c b/stage0/stdlib/Lean/Parser/Do.c index f1afe388d7..c059cb7461 100644 --- a/stage0/stdlib/Lean/Parser/Do.c +++ b/stage0/stdlib/Lean/Parser/Do.c @@ -24,6 +24,7 @@ extern lean_object* l_Lean_Parser_Term_tupleTail_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_liftMethod_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter___closed__2; lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__9; +extern lean_object* l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doCatch___closed__1; lean_object* l_Lean_Parser_Term_doReturn___elambda__1___closed__8; extern lean_object* l_Lean_Parser_Term_letIdDecl; @@ -165,6 +166,7 @@ lean_object* l_Lean_Parser_Term_doAssert_formatter___closed__1; lean_object* l_Lean_Parser_Term_doIf___closed__21; lean_object* l_Lean_Parser_Term_doTry___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doElem_quot___elambda__1___closed__6; +extern lean_object* l_Lean_Parser_Term_dbgTrace_formatter___closed__5; lean_object* l_Lean_Parser_Term_doReturn___closed__1; lean_object* l_Lean_Parser_ParserState_pushSyntax(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doMatchAlts___closed__8; @@ -212,7 +214,6 @@ lean_object* l_Lean_Parser_Term_doPatDecl_parenthesizer___closed__7; lean_object* l_Lean_Parser_Term_doIdDecl___closed__5; extern lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__6; extern lean_object* l_Lean_Parser_Term_if_parenthesizer___closed__5; -extern lean_object* l_Lean_Parser_Term_dbgTrace_formatter___closed__3; lean_object* l_Lean_Parser_Term_doMatchAlt___closed__1; lean_object* l_Lean_Parser_Term_doBreak_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_liftMethod___elambda__1___closed__2; @@ -268,6 +269,7 @@ lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doFinally___closed__6; lean_object* l_Lean_Parser_Term_doIf___closed__1; lean_object* l_Lean_PrettyPrinter_Parenthesizer_toggleInsideQuot_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; lean_object* l_Lean_Parser_Term_doCatchMatch___closed__3; lean_object* l_Lean_Parser_Term_doAssert___closed__1; lean_object* l_Lean_Parser_Term_doMatch_formatter___closed__2; @@ -343,7 +345,6 @@ lean_object* l_Lean_Parser_Term_doReassign___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_doIf___closed__4; lean_object* l_Lean_Parser_Term_doLetArrow_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__2; -extern lean_object* l_Lean_Parser_Term_dbgTrace___closed__2; lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doSeqIndent___closed__1; lean_object* l_Lean_Parser_Term_doReturn_formatter___closed__1; @@ -610,6 +611,7 @@ lean_object* l_Lean_Parser_Term_doUnless___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_doLetArrow___closed__3; extern lean_object* l_Lean_Parser_Term_letrec_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_doMatchAlt___closed__3; +extern lean_object* l_Lean_Parser_Term_dbgTrace___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_doContinue___closed__6; extern lean_object* l_Lean_PrettyPrinter_formatterAttribute; lean_object* l_Lean_Parser_Term_doMatchAlts_formatter___closed__2; @@ -1081,7 +1083,6 @@ lean_object* l_Lean_Parser_Term_doMatchAlt___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_doIdDecl___closed__6; lean_object* l___regBuiltin_Lean_Parser_Term_doLetArrow_formatter(lean_object*); lean_object* l_Lean_Parser_Term_notFollowedByRedefinedTermToken___closed__1; -extern lean_object* l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_doFinally_formatter___closed__2; lean_object* l_Lean_Parser_Term_doCatchMatch_parenthesizer___closed__2; lean_object* l_Lean_Parser_Term_doFinally___elambda__1___closed__4; @@ -1116,6 +1117,7 @@ lean_object* l_Lean_Parser_Term_doPatDecl___elambda__1___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_doIf_parenthesizer___closed__1; lean_object* l_Lean_Parser_ParserState_mkUnexpectedError(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_doCatchMatch_parenthesizer___closed__1; +extern lean_object* l_Lean_Parser_Term_dbgTrace___closed__3; lean_object* l_Lean_Parser_Term_doFinally___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_doSeqBracketed___closed__7; lean_object* l_Lean_Parser_Term_doSeqBracketed_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -25504,269 +25506,387 @@ return x_4; lean_object* l_Lean_Parser_Term_doDbgTrace___elambda__1(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; uint8_t x_5; -x_3 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__4; +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; +x_3 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); +x_5 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__4; +x_6 = lean_ctor_get(x_5, 1); +lean_inc(x_6); lean_inc(x_2); lean_inc(x_1); -x_5 = l_Lean_Parser_tryAnti(x_1, x_2); -if (x_5 == 0) +x_7 = l_Lean_Parser_tryAnti(x_1, x_2); +if (x_7 == 0) { -lean_object* x_6; lean_object* x_7; lean_object* x_8; -lean_dec(x_4); -x_6 = l_Lean_Parser_leadPrec; -x_7 = l_Lean_Parser_checkPrecFn(x_6, x_1, x_2); -x_8 = lean_ctor_get(x_7, 3); -lean_inc(x_8); -if (lean_obj_tag(x_8) == 0) +lean_object* x_8; lean_object* x_9; lean_object* x_10; +lean_dec(x_6); +x_8 = l_Lean_Parser_leadPrec; +x_9 = l_Lean_Parser_checkPrecFn(x_8, x_1, x_2); +x_10 = lean_ctor_get(x_9, 3); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 0) { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_21; lean_object* x_22; lean_object* x_23; -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_21 = lean_ctor_get(x_7, 1); -lean_inc(x_21); +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_38; lean_object* x_39; lean_object* x_40; +x_11 = lean_ctor_get(x_9, 0); +lean_inc(x_11); +x_12 = lean_array_get_size(x_11); +lean_dec(x_11); +x_38 = lean_ctor_get(x_9, 1); +lean_inc(x_38); lean_inc(x_1); -x_22 = l_Lean_Parser_tokenFn(x_1, x_7); -x_23 = lean_ctor_get(x_22, 3); -lean_inc(x_23); -if (lean_obj_tag(x_23) == 0) -{ -lean_object* x_24; lean_object* x_25; -x_24 = lean_ctor_get(x_22, 0); -lean_inc(x_24); -x_25 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_24); -lean_dec(x_24); -if (lean_obj_tag(x_25) == 2) -{ -lean_object* x_26; lean_object* x_27; uint8_t x_28; -x_26 = lean_ctor_get(x_25, 1); -lean_inc(x_26); -lean_dec(x_25); -x_27 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; -x_28 = lean_string_dec_eq(x_26, x_27); -lean_dec(x_26); -if (x_28 == 0) -{ -lean_object* x_29; lean_object* x_30; -x_29 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_29, x_21); -x_11 = x_30; -goto block_20; -} -else -{ -lean_dec(x_21); -x_11 = x_22; -goto block_20; -} -} -else -{ -lean_object* x_31; lean_object* x_32; -lean_dec(x_25); -x_31 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_32 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_31, x_21); -x_11 = x_32; -goto block_20; -} -} -else -{ -lean_object* x_33; lean_object* x_34; -lean_dec(x_23); -x_33 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_34 = l_Lean_Parser_ParserState_mkErrorsAt(x_22, x_33, x_21); -x_11 = x_34; -goto block_20; -} -block_20: -{ -lean_object* x_12; -x_12 = lean_ctor_get(x_11, 3); -lean_inc(x_12); -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_17; -x_13 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; -x_14 = lean_unsigned_to_nat(0u); -x_15 = l_Lean_Parser_categoryParser___elambda__1(x_13, x_14, x_1, x_11); -x_16 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; -x_17 = l_Lean_Parser_ParserState_mkNode(x_15, x_16, x_10); -return x_17; -} -else -{ -lean_object* x_18; lean_object* x_19; -lean_dec(x_12); -lean_dec(x_1); -x_18 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; -x_19 = l_Lean_Parser_ParserState_mkNode(x_11, x_18, x_10); -return x_19; -} -} -} -else -{ -lean_dec(x_8); -lean_dec(x_1); -return x_7; -} -} -else -{ -lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; -x_35 = lean_ctor_get(x_2, 0); -lean_inc(x_35); -x_36 = lean_array_get_size(x_35); -lean_dec(x_35); -x_37 = lean_ctor_get(x_2, 1); -lean_inc(x_37); -lean_inc(x_1); -x_38 = lean_apply_2(x_4, x_1, x_2); -x_39 = lean_ctor_get(x_38, 3); -lean_inc(x_39); -if (lean_obj_tag(x_39) == 0) -{ -lean_dec(x_37); -lean_dec(x_36); -lean_dec(x_1); -return x_38; -} -else -{ -lean_object* x_40; lean_object* x_41; uint8_t x_42; -x_40 = lean_ctor_get(x_39, 0); +x_39 = l_Lean_Parser_tokenFn(x_1, x_9); +x_40 = lean_ctor_get(x_39, 3); lean_inc(x_40); -lean_dec(x_39); -x_41 = lean_ctor_get(x_38, 1); +if (lean_obj_tag(x_40) == 0) +{ +lean_object* x_41; lean_object* x_42; +x_41 = lean_ctor_get(x_39, 0); lean_inc(x_41); -x_42 = lean_nat_dec_eq(x_41, x_37); +x_42 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_41); lean_dec(x_41); -if (x_42 == 0) +if (lean_obj_tag(x_42) == 2) { +lean_object* x_43; lean_object* x_44; uint8_t x_45; +x_43 = lean_ctor_get(x_42, 1); +lean_inc(x_43); +lean_dec(x_42); +x_44 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; +x_45 = lean_string_dec_eq(x_43, x_44); +lean_dec(x_43); +if (x_45 == 0) +{ +lean_object* x_46; lean_object* x_47; +x_46 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_47 = l_Lean_Parser_ParserState_mkErrorsAt(x_39, x_46, x_38); +x_13 = x_47; +goto block_37; +} +else +{ +lean_dec(x_38); +x_13 = x_39; +goto block_37; +} +} +else +{ +lean_object* x_48; lean_object* x_49; +lean_dec(x_42); +x_48 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_49 = l_Lean_Parser_ParserState_mkErrorsAt(x_39, x_48, x_38); +x_13 = x_49; +goto block_37; +} +} +else +{ +lean_object* x_50; lean_object* x_51; lean_dec(x_40); -lean_dec(x_37); -lean_dec(x_36); -lean_dec(x_1); -return x_38; +x_50 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_51 = l_Lean_Parser_ParserState_mkErrorsAt(x_39, x_50, x_38); +x_13 = x_51; +goto block_37; } -else +block_37: { -lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; -lean_inc(x_37); -x_43 = l_Lean_Parser_ParserState_restore(x_38, x_36, x_37); -lean_dec(x_36); -x_44 = l_Lean_Parser_leadPrec; -x_45 = l_Lean_Parser_checkPrecFn(x_44, x_1, x_43); -x_46 = lean_ctor_get(x_45, 3); -lean_inc(x_46); -if (lean_obj_tag(x_46) == 0) +lean_object* x_14; +x_14 = lean_ctor_get(x_13, 3); +lean_inc(x_14); +if (lean_obj_tag(x_14) == 0) { -lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_63; lean_object* x_64; lean_object* x_65; -x_47 = lean_ctor_get(x_45, 0); -lean_inc(x_47); -x_48 = lean_array_get_size(x_47); -lean_dec(x_47); -x_63 = lean_ctor_get(x_45, 1); -lean_inc(x_63); +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_15 = lean_ctor_get(x_13, 0); +lean_inc(x_15); +x_16 = lean_array_get_size(x_15); +lean_dec(x_15); +x_17 = lean_ctor_get(x_13, 1); +lean_inc(x_17); lean_inc(x_1); -x_64 = l_Lean_Parser_tokenFn(x_1, x_45); -x_65 = lean_ctor_get(x_64, 3); -lean_inc(x_65); -if (lean_obj_tag(x_65) == 0) +x_18 = lean_apply_2(x_4, x_1, x_13); +x_19 = lean_ctor_get(x_18, 3); +lean_inc(x_19); +if (lean_obj_tag(x_19) == 0) { -lean_object* x_66; lean_object* x_67; -x_66 = lean_ctor_get(x_64, 0); -lean_inc(x_66); -x_67 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_66); -lean_dec(x_66); -if (lean_obj_tag(x_67) == 2) +lean_object* x_20; lean_object* x_21; +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_1); +x_20 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_21 = l_Lean_Parser_ParserState_mkNode(x_18, x_20, x_12); +return x_21; +} +else { -lean_object* x_68; lean_object* x_69; uint8_t x_70; -x_68 = lean_ctor_get(x_67, 1); +lean_object* x_22; lean_object* x_23; uint8_t x_24; +x_22 = lean_ctor_get(x_19, 0); +lean_inc(x_22); +lean_dec(x_19); +x_23 = lean_ctor_get(x_18, 1); +lean_inc(x_23); +x_24 = lean_nat_dec_eq(x_23, x_17); +lean_dec(x_23); +if (x_24 == 0) +{ +lean_object* x_25; lean_object* x_26; +lean_dec(x_22); +lean_dec(x_17); +lean_dec(x_16); +lean_dec(x_1); +x_25 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_26 = l_Lean_Parser_ParserState_mkNode(x_18, x_25, x_12); +return x_26; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; +lean_inc(x_17); +x_27 = l_Lean_Parser_ParserState_restore(x_18, x_16, x_17); +lean_dec(x_16); +x_28 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +x_29 = lean_unsigned_to_nat(0u); +x_30 = l_Lean_Parser_categoryParser___elambda__1(x_28, x_29, x_1, x_27); +x_31 = 1; +x_32 = l_Lean_Parser_mergeOrElseErrors(x_30, x_22, x_17, x_31); +lean_dec(x_17); +x_33 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_34 = l_Lean_Parser_ParserState_mkNode(x_32, x_33, x_12); +return x_34; +} +} +} +else +{ +lean_object* x_35; lean_object* x_36; +lean_dec(x_14); +lean_dec(x_4); +lean_dec(x_1); +x_35 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_36 = l_Lean_Parser_ParserState_mkNode(x_13, x_35, x_12); +return x_36; +} +} +} +else +{ +lean_dec(x_10); +lean_dec(x_4); +lean_dec(x_1); +return x_9; +} +} +else +{ +lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; +x_52 = lean_ctor_get(x_2, 0); +lean_inc(x_52); +x_53 = lean_array_get_size(x_52); +lean_dec(x_52); +x_54 = lean_ctor_get(x_2, 1); +lean_inc(x_54); +lean_inc(x_1); +x_55 = lean_apply_2(x_6, x_1, x_2); +x_56 = lean_ctor_get(x_55, 3); +lean_inc(x_56); +if (lean_obj_tag(x_56) == 0) +{ +lean_dec(x_54); +lean_dec(x_53); +lean_dec(x_4); +lean_dec(x_1); +return x_55; +} +else +{ +lean_object* x_57; lean_object* x_58; uint8_t x_59; +x_57 = lean_ctor_get(x_56, 0); +lean_inc(x_57); +lean_dec(x_56); +x_58 = lean_ctor_get(x_55, 1); +lean_inc(x_58); +x_59 = lean_nat_dec_eq(x_58, x_54); +lean_dec(x_58); +if (x_59 == 0) +{ +lean_dec(x_57); +lean_dec(x_54); +lean_dec(x_53); +lean_dec(x_4); +lean_dec(x_1); +return x_55; +} +else +{ +lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; +lean_inc(x_54); +x_60 = l_Lean_Parser_ParserState_restore(x_55, x_53, x_54); +lean_dec(x_53); +x_61 = l_Lean_Parser_leadPrec; +x_62 = l_Lean_Parser_checkPrecFn(x_61, x_1, x_60); +x_63 = lean_ctor_get(x_62, 3); +lean_inc(x_63); +if (lean_obj_tag(x_63) == 0) +{ +lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_64 = lean_ctor_get(x_62, 0); +lean_inc(x_64); +x_65 = lean_array_get_size(x_64); +lean_dec(x_64); +x_98 = lean_ctor_get(x_62, 1); +lean_inc(x_98); +lean_inc(x_1); +x_99 = l_Lean_Parser_tokenFn(x_1, x_62); +x_100 = lean_ctor_get(x_99, 3); +lean_inc(x_100); +if (lean_obj_tag(x_100) == 0) +{ +lean_object* x_101; lean_object* x_102; +x_101 = lean_ctor_get(x_99, 0); +lean_inc(x_101); +x_102 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_101); +lean_dec(x_101); +if (lean_obj_tag(x_102) == 2) +{ +lean_object* x_103; lean_object* x_104; uint8_t x_105; +x_103 = lean_ctor_get(x_102, 1); +lean_inc(x_103); +lean_dec(x_102); +x_104 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; +x_105 = lean_string_dec_eq(x_103, x_104); +lean_dec(x_103); +if (x_105 == 0) +{ +lean_object* x_106; lean_object* x_107; +x_106 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_107 = l_Lean_Parser_ParserState_mkErrorsAt(x_99, x_106, x_98); +x_66 = x_107; +goto block_97; +} +else +{ +lean_dec(x_98); +x_66 = x_99; +goto block_97; +} +} +else +{ +lean_object* x_108; lean_object* x_109; +lean_dec(x_102); +x_108 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_109 = l_Lean_Parser_ParserState_mkErrorsAt(x_99, x_108, x_98); +x_66 = x_109; +goto block_97; +} +} +else +{ +lean_object* x_110; lean_object* x_111; +lean_dec(x_100); +x_110 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_111 = l_Lean_Parser_ParserState_mkErrorsAt(x_99, x_110, x_98); +x_66 = x_111; +goto block_97; +} +block_97: +{ +lean_object* x_67; +x_67 = lean_ctor_get(x_66, 3); +lean_inc(x_67); +if (lean_obj_tag(x_67) == 0) +{ +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_66, 0); lean_inc(x_68); -lean_dec(x_67); -x_69 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; -x_70 = lean_string_dec_eq(x_68, x_69); +x_69 = lean_array_get_size(x_68); lean_dec(x_68); -if (x_70 == 0) +x_70 = lean_ctor_get(x_66, 1); +lean_inc(x_70); +lean_inc(x_1); +x_71 = lean_apply_2(x_4, x_1, x_66); +x_72 = lean_ctor_get(x_71, 3); +lean_inc(x_72); +if (lean_obj_tag(x_72) == 0) { -lean_object* x_71; lean_object* x_72; -x_71 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_72 = l_Lean_Parser_ParserState_mkErrorsAt(x_64, x_71, x_63); -x_49 = x_72; -goto block_62; +lean_object* x_73; lean_object* x_74; uint8_t x_75; lean_object* x_76; +lean_dec(x_70); +lean_dec(x_69); +lean_dec(x_1); +x_73 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_74 = l_Lean_Parser_ParserState_mkNode(x_71, x_73, x_65); +x_75 = 1; +x_76 = l_Lean_Parser_mergeOrElseErrors(x_74, x_57, x_54, x_75); +lean_dec(x_54); +return x_76; } else { -lean_dec(x_63); -x_49 = x_64; -goto block_62; +lean_object* x_77; lean_object* x_78; uint8_t x_79; +x_77 = lean_ctor_get(x_72, 0); +lean_inc(x_77); +lean_dec(x_72); +x_78 = lean_ctor_get(x_71, 1); +lean_inc(x_78); +x_79 = lean_nat_dec_eq(x_78, x_70); +lean_dec(x_78); +if (x_79 == 0) +{ +lean_object* x_80; lean_object* x_81; uint8_t x_82; lean_object* x_83; +lean_dec(x_77); +lean_dec(x_70); +lean_dec(x_69); +lean_dec(x_1); +x_80 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_81 = l_Lean_Parser_ParserState_mkNode(x_71, x_80, x_65); +x_82 = 1; +x_83 = l_Lean_Parser_mergeOrElseErrors(x_81, x_57, x_54, x_82); +lean_dec(x_54); +return x_83; +} +else +{ +lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; uint8_t x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; +lean_inc(x_70); +x_84 = l_Lean_Parser_ParserState_restore(x_71, x_69, x_70); +lean_dec(x_69); +x_85 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +x_86 = lean_unsigned_to_nat(0u); +x_87 = l_Lean_Parser_categoryParser___elambda__1(x_85, x_86, x_1, x_84); +x_88 = 1; +x_89 = l_Lean_Parser_mergeOrElseErrors(x_87, x_77, x_70, x_88); +lean_dec(x_70); +x_90 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_91 = l_Lean_Parser_ParserState_mkNode(x_89, x_90, x_65); +x_92 = l_Lean_Parser_mergeOrElseErrors(x_91, x_57, x_54, x_88); +lean_dec(x_54); +return x_92; +} } } else { -lean_object* x_73; lean_object* x_74; +lean_object* x_93; lean_object* x_94; uint8_t x_95; lean_object* x_96; lean_dec(x_67); -x_73 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_74 = l_Lean_Parser_ParserState_mkErrorsAt(x_64, x_73, x_63); -x_49 = x_74; -goto block_62; -} -} -else -{ -lean_object* x_75; lean_object* x_76; -lean_dec(x_65); -x_75 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_76 = l_Lean_Parser_ParserState_mkErrorsAt(x_64, x_75, x_63); -x_49 = x_76; -goto block_62; -} -block_62: -{ -lean_object* x_50; -x_50 = lean_ctor_get(x_49, 3); -lean_inc(x_50); -if (lean_obj_tag(x_50) == 0) -{ -lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; uint8_t x_56; lean_object* x_57; -x_51 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; -x_52 = lean_unsigned_to_nat(0u); -x_53 = l_Lean_Parser_categoryParser___elambda__1(x_51, x_52, x_1, x_49); -x_54 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; -x_55 = l_Lean_Parser_ParserState_mkNode(x_53, x_54, x_48); -x_56 = 1; -x_57 = l_Lean_Parser_mergeOrElseErrors(x_55, x_40, x_37, x_56); -lean_dec(x_37); -return x_57; -} -else -{ -lean_object* x_58; lean_object* x_59; uint8_t x_60; lean_object* x_61; -lean_dec(x_50); +lean_dec(x_4); lean_dec(x_1); -x_58 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; -x_59 = l_Lean_Parser_ParserState_mkNode(x_49, x_58, x_48); -x_60 = 1; -x_61 = l_Lean_Parser_mergeOrElseErrors(x_59, x_40, x_37, x_60); -lean_dec(x_37); -return x_61; +x_93 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; +x_94 = l_Lean_Parser_ParserState_mkNode(x_66, x_93, x_65); +x_95 = 1; +x_96 = l_Lean_Parser_mergeOrElseErrors(x_94, x_57, x_54, x_95); +lean_dec(x_54); +return x_96; } } } else { -uint8_t x_77; lean_object* x_78; -lean_dec(x_46); +uint8_t x_112; lean_object* x_113; +lean_dec(x_63); +lean_dec(x_4); lean_dec(x_1); -x_77 = 1; -x_78 = l_Lean_Parser_mergeOrElseErrors(x_45, x_40, x_37, x_77); -lean_dec(x_37); -return x_78; +x_112 = 1; +x_113 = l_Lean_Parser_mergeOrElseErrors(x_62, x_57, x_54, x_112); +lean_dec(x_54); +return x_113; } } } @@ -25778,7 +25898,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; -x_2 = l_Lean_Parser_Term_dbgTrace___closed__2; +x_2 = l_Lean_Parser_Term_dbgTrace___closed__3; x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } @@ -25867,7 +25987,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; x_2 = l_Lean_Parser_leadPrec; -x_3 = l_Lean_Parser_Term_dbgTrace_formatter___closed__3; +x_3 = l_Lean_Parser_Term_dbgTrace_formatter___closed__5; 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); @@ -25923,7 +26043,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_doDbgTrace___elambda__1___closed__2; x_2 = l_Lean_Parser_leadPrec; -x_3 = l_Lean_Parser_Term_typeAscription_parenthesizer___closed__2; +x_3 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4; 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); diff --git a/stage0/stdlib/Lean/Parser/StrInterpolation.c b/stage0/stdlib/Lean/Parser/StrInterpolation.c index ad0889ffbf..5265e90502 100644 --- a/stage0/stdlib/Lean/Parser/StrInterpolation.c +++ b/stage0/stdlib/Lean/Parser/StrInterpolation.c @@ -14,6 +14,7 @@ extern "C" { #endif lean_object* l_Lean_Parser_quotedCharCoreFn___at_Lean_Parser_interpolatedStrFn_parse___spec__2___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*); uint8_t l_Lean_Parser_isQuotableCharDefault(uint32_t); lean_object* l_Lean_Parser_ParserState_next(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_interpolatedStrNoAntiquot___closed__1; @@ -26,6 +27,7 @@ lean_object* lean_string_utf8_next(lean_object*, lean_object*); lean_object* l_Lean_Parser_interpolatedStr___elambda__1___closed__1; lean_object* l_Lean_Parser_interpolatedStr___elambda__1___closed__2; lean_object* l_Lean_Parser_ParserState_setPos(lean_object*, lean_object*); +lean_object* l_Lean_Parser_interpolatedStrFn___closed__1; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Parser_interpolatedStrFn_parse___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_interpolatedStrFn_parse___closed__1; @@ -470,6 +472,14 @@ lean_dec(x_2); return x_7; } } +static lean_object* _init_l_Lean_Parser_interpolatedStrFn___closed__1() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("interpolated string"); +return x_1; +} +} lean_object* l_Lean_Parser_interpolatedStrFn(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -488,23 +498,42 @@ lean_inc(x_8); x_9 = lean_string_utf8_at_end(x_5, x_8); if (x_9 == 0) { -lean_object* x_10; lean_object* x_11; -x_10 = l_Lean_Parser_ParserState_next(x_3, x_5, x_8); -x_11 = l_Lean_Parser_interpolatedStrFn_parse(x_1, x_5, x_7, x_8, x_2, x_10); -lean_dec(x_5); -return x_11; -} -else +uint32_t x_10; uint32_t x_11; uint8_t x_12; +x_10 = lean_string_utf8_get(x_5, x_8); +x_11 = 34; +x_12 = x_10 == x_11; +if (x_12 == 0) { -lean_object* x_12; lean_object* x_13; +lean_object* x_13; lean_object* x_14; lean_dec(x_8); lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_12 = l_Lean_Parser_ParserState_mkEOIError___closed__1; -x_13 = l_Lean_Parser_ParserState_mkUnexpectedError(x_3, x_12); -return x_13; +x_13 = l_Lean_Parser_interpolatedStrFn___closed__1; +x_14 = l_Lean_Parser_ParserState_mkError(x_3, x_13); +return x_14; +} +else +{ +lean_object* x_15; lean_object* x_16; +x_15 = l_Lean_Parser_ParserState_next(x_3, x_5, x_8); +x_16 = l_Lean_Parser_interpolatedStrFn_parse(x_1, x_5, x_7, x_8, x_2, x_15); +lean_dec(x_5); +return x_16; +} +} +else +{ +lean_object* x_17; lean_object* x_18; +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_17 = l_Lean_Parser_ParserState_mkEOIError___closed__1; +x_18 = l_Lean_Parser_ParserState_mkUnexpectedError(x_3, x_17); +return x_18; } } } @@ -680,6 +709,8 @@ if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Parser_interpolatedStrFn_parse___closed__1 = _init_l_Lean_Parser_interpolatedStrFn_parse___closed__1(); lean_mark_persistent(l_Lean_Parser_interpolatedStrFn_parse___closed__1); +l_Lean_Parser_interpolatedStrFn___closed__1 = _init_l_Lean_Parser_interpolatedStrFn___closed__1(); +lean_mark_persistent(l_Lean_Parser_interpolatedStrFn___closed__1); l_Lean_Parser_interpolatedStrNoAntiquot___closed__1 = _init_l_Lean_Parser_interpolatedStrNoAntiquot___closed__1(); lean_mark_persistent(l_Lean_Parser_interpolatedStrNoAntiquot___closed__1); l_Lean_Parser_interpolatedStrNoAntiquot___closed__2 = _init_l_Lean_Parser_interpolatedStrNoAntiquot___closed__2(); diff --git a/stage0/stdlib/Lean/Parser/Term.c b/stage0/stdlib/Lean/Parser/Term.c index 7833f5c635..35317f9ca3 100644 --- a/stage0/stdlib/Lean/Parser/Term.c +++ b/stage0/stdlib/Lean/Parser/Term.c @@ -16,6 +16,7 @@ extern "C" { lean_object* l_Lean_Parser_Term_if___elambda__1___closed__15; lean_object* l_Lean_Parser_Term_le_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_subst___elambda__1___closed__2; +lean_object* l_Lean_Parser_Term_dbgTrace_formatter___closed__7; lean_object* l_Lean_Parser_Term_panic_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_let_x2a_formatter___closed__1; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Tactic_tacticSeq1Indented___elambda__1___spec__1___closed__3; @@ -385,6 +386,7 @@ lean_object* l_Lean_Parser_Tactic_tacticSeq1Indented_parenthesizer(lean_object*, extern lean_object* l_Lean_Parser_Level_max_parenthesizer___closed__2; extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__3; lean_object* l_Lean_Parser_Term_typeOf___closed__4; +lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpolatedStr_parenthesizer___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_mod_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_show___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_decide___elambda__1___closed__6; @@ -813,6 +815,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_let_x21(lean_object*); lean_object* l_Lean_Parser_Term_let___elambda__1___closed__7; lean_object* l_Lean_Parser_Term_suffices_parenthesizer___closed__2; extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___rarg___closed__18; +lean_object* l_Lean_Parser_Term_assert_parenthesizer___closed__3; lean_object* l___private_Lean_Parser_Basic_2__sepByFnAux___main___at_Lean_Parser_Term_matchAlts___spec__2___closed__2; lean_object* l_Lean_Parser_Term_not___closed__3; lean_object* l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___boxed(lean_object*); @@ -867,6 +870,7 @@ lean_object* l_Lean_Parser_Term_borrowed_parenthesizer___closed__3; lean_object* l___regBuiltinParser_Lean_Parser_Term_let(lean_object*); lean_object* l_Lean_PrettyPrinter_Parenthesizer_toggleInsideQuot_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_type_formatter___closed__5; +lean_object* l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; lean_object* l_Lean_Parser_Term_let_x21___elambda__1___closed__9; lean_object* l_Lean_Parser_Term_structInst_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltin_Lean_Parser_Term_nativeRefl_formatter(lean_object*); @@ -1264,6 +1268,7 @@ lean_object* l_Lean_Parser_Term_typeOf___elambda__1___closed__8; lean_object* l_Lean_PrettyPrinter_Formatter_trailingNode_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_orM_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_listLit___closed__6; +lean_object* l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__6; lean_object* l_Lean_Parser_Term_tparser_x21_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_letrec_formatter___closed__6; lean_object* l_Lean_Parser_Term_paren___closed__1; @@ -1283,6 +1288,7 @@ lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___boxed(lean_ob lean_object* l_Lean_Parser_Tactic_tacticSeq1Indented___elambda__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_seqRight___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_seqLeft_formatter___closed__1; +lean_object* l_Lean_Parser_Term_dbgTrace___closed__9; lean_object* l_Lean_Parser_Term_if___closed__3; lean_object* l_Lean_Parser_Term_letrec_parenthesizer___closed__5; lean_object* l_Lean_Parser_Term_matchAlts___elambda__1___closed__2; @@ -1464,11 +1470,13 @@ lean_object* l_Lean_Parser_charLit_formatter___closed__2; lean_object* l_Lean_Parser_Term_let___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_explicitUniv_formatter___closed__1; lean_object* l_Lean_Parser_Term_optType; +lean_object* l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__5; lean_object* l_Lean_Parser_Term_funImplicitBinder_formatter___closed__6; lean_object* l___regBuiltin_Lean_Parser_Term_paren_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_binderTactic___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_tupleTail___closed__1; lean_object* l_Lean_Parser_Term_not___elambda__1(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_assert_parenthesizer___closed__4; lean_object* l_Lean_Parser_Term_le___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_not_formatter___closed__2; lean_object* l___regBuiltin_Lean_Parser_Term_letrec_formatter(lean_object*); @@ -2209,6 +2217,7 @@ lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__1; lean_object* l___regBuiltin_Lean_Parser_Term_bnot_formatter___closed__1; extern lean_object* l_Lean_mkAppStx___closed__6; lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__4; +lean_object* l_Lean_Parser_interpolatedStr(lean_object*); lean_object* l_Lean_Parser_Term_letPatDecl___closed__7; lean_object* l_Lean_Parser_Term_structInstLVal_formatter___closed__1; extern lean_object* l_Lean_mkRecFor___closed__1; @@ -2341,6 +2350,7 @@ lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_formatter___closed__8; lean_object* l___regBuiltin_Lean_Parser_Term_let_x2a_formatter(lean_object*); lean_object* l_Lean_Parser_Term_proj_parenthesizer___closed__3; lean_object* l_Lean_Parser_Term_subtype_parenthesizer___closed__4; +lean_object* l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__7; lean_object* l_Lean_Parser_Term_bor___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_letrec___closed__1; lean_object* l_Lean_Parser_Term_listLit___closed__7; @@ -3422,6 +3432,7 @@ lean_object* l_Lean_Parser_Term_hole; lean_object* l_Lean_Parser_Term_app___closed__1; lean_object* l_Lean_Parser_Term_emptyC___closed__5; lean_object* l___regBuiltin_Lean_Parser_Term_have_formatter(lean_object*); +lean_object* l_Lean_PrettyPrinter_Formatter_interpolatedStr_formatter___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_unreachable_parenthesizer___closed__1; lean_object* l_Lean_Parser_Term_panic_formatter___closed__1; lean_object* l_Lean_Parser_Term_mod_formatter___closed__1; @@ -4072,6 +4083,7 @@ lean_object* l_Lean_Parser_Term_syntheticHole_parenthesizer___closed__3; lean_object* l___regBuiltin_Lean_Parser_Term_sub_formatter___closed__1; lean_object* l_Lean_Parser_Term_attrInstance___closed__6; lean_object* l_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_Term_dbgTrace_formatter___closed__8; lean_object* l_Lean_Parser_Term_letPatDecl_parenthesizer___closed__4; lean_object* l___regBuiltin_Lean_Parser_Term_seqLeft_parenthesizer___closed__1; lean_object* l___private_Lean_Parser_Basic_2__sepByFnAux___main___at_Lean_Parser_Term_where___elambda__1___spec__2___closed__2; @@ -79635,19 +79647,18 @@ return x_2; static lean_object* _init_l_Lean_Parser_Term_dbgTrace___elambda__1___closed__7() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Char_HasRepr___closed__1; -x_2 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; -x_3 = lean_string_append(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_typeAscription___closed__2; +x_2 = l_Lean_Parser_interpolatedStr(x_1); +return x_2; } } static lean_object* _init_l_Lean_Parser_Term_dbgTrace___elambda__1___closed__8() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__7; -x_2 = l_Char_HasRepr___closed__1; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -79656,8 +79667,18 @@ static lean_object* _init_l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9() _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__8; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__8; +x_2 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); @@ -79667,512 +79688,742 @@ return x_3; lean_object* l_Lean_Parser_Term_dbgTrace___elambda__1(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; uint8_t x_7; -x_3 = l_Lean_Parser_Term_have___elambda__1___closed__7; +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_3 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__7; x_4 = lean_ctor_get(x_3, 1); lean_inc(x_4); -x_5 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__4; +x_5 = l_Lean_Parser_Term_have___elambda__1___closed__7; x_6 = lean_ctor_get(x_5, 1); lean_inc(x_6); +x_7 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__4; +x_8 = lean_ctor_get(x_7, 1); +lean_inc(x_8); lean_inc(x_2); lean_inc(x_1); -x_7 = l_Lean_Parser_tryAnti(x_1, x_2); -if (x_7 == 0) +x_9 = l_Lean_Parser_tryAnti(x_1, x_2); +if (x_9 == 0) { -lean_object* x_8; lean_object* x_9; lean_object* x_10; -lean_dec(x_6); -x_8 = l_Lean_Parser_leadPrec; -x_9 = l_Lean_Parser_checkPrecFn(x_8, x_1, x_2); -x_10 = lean_ctor_get(x_9, 3); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) +lean_object* x_10; lean_object* x_11; lean_object* x_12; +lean_dec(x_8); +x_10 = l_Lean_Parser_leadPrec; +x_11 = l_Lean_Parser_checkPrecFn(x_10, x_1, x_2); +x_12 = lean_ctor_get(x_11, 3); +lean_inc(x_12); +if (lean_obj_tag(x_12) == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t 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; -x_11 = lean_ctor_get(x_9, 0); -lean_inc(x_11); -x_12 = lean_array_get_size(x_11); -lean_dec(x_11); -x_21 = lean_ctor_get(x_1, 0); +lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; uint8_t 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_56; lean_object* x_57; +x_13 = lean_ctor_get(x_11, 0); +lean_inc(x_13); +x_14 = lean_array_get_size(x_13); +lean_dec(x_13); +x_15 = lean_ctor_get(x_1, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_1, 1); +lean_inc(x_16); +x_17 = lean_ctor_get(x_1, 2); +lean_inc(x_17); +x_18 = lean_ctor_get(x_1, 3); +lean_inc(x_18); +x_19 = lean_ctor_get_uint8(x_1, sizeof(void*)*6); +x_20 = lean_ctor_get(x_1, 5); +lean_inc(x_20); +x_21 = lean_ctor_get(x_15, 2); lean_inc(x_21); -x_22 = lean_ctor_get(x_1, 1); +x_22 = lean_ctor_get(x_11, 1); lean_inc(x_22); -x_23 = lean_ctor_get(x_1, 2); -lean_inc(x_23); -x_24 = lean_ctor_get(x_1, 3); -lean_inc(x_24); -x_25 = lean_ctor_get_uint8(x_1, sizeof(void*)*6); -x_26 = lean_ctor_get(x_1, 5); -lean_inc(x_26); -x_27 = lean_ctor_get(x_21, 2); -lean_inc(x_27); -x_28 = lean_ctor_get(x_9, 1); -lean_inc(x_28); -lean_inc(x_28); -x_29 = l_Lean_FileMap_toPosition(x_27, x_28); -lean_dec(x_27); -x_30 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_30, 0, x_29); -x_31 = lean_alloc_ctor(0, 6, 1); -lean_ctor_set(x_31, 0, x_21); -lean_ctor_set(x_31, 1, x_22); -lean_ctor_set(x_31, 2, x_23); -lean_ctor_set(x_31, 3, x_24); -lean_ctor_set(x_31, 4, x_30); -lean_ctor_set(x_31, 5, x_26); -lean_ctor_set_uint8(x_31, sizeof(void*)*6, x_25); -lean_inc(x_31); -x_32 = l_Lean_Parser_tokenFn(x_31, x_9); -x_33 = lean_ctor_get(x_32, 3); -lean_inc(x_33); -if (lean_obj_tag(x_33) == 0) +lean_inc(x_22); +x_23 = l_Lean_FileMap_toPosition(x_21, x_22); +lean_dec(x_21); +x_24 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_24, 0, x_23); +x_25 = lean_alloc_ctor(0, 6, 1); +lean_ctor_set(x_25, 0, x_15); +lean_ctor_set(x_25, 1, x_16); +lean_ctor_set(x_25, 2, x_17); +lean_ctor_set(x_25, 3, x_18); +lean_ctor_set(x_25, 4, x_24); +lean_ctor_set(x_25, 5, x_20); +lean_ctor_set_uint8(x_25, sizeof(void*)*6, x_19); +lean_inc(x_25); +x_56 = l_Lean_Parser_tokenFn(x_25, x_11); +x_57 = lean_ctor_get(x_56, 3); +lean_inc(x_57); +if (lean_obj_tag(x_57) == 0) { -lean_object* x_34; lean_object* x_35; -x_34 = lean_ctor_get(x_32, 0); -lean_inc(x_34); -x_35 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_34); -lean_dec(x_34); -if (lean_obj_tag(x_35) == 2) +lean_object* x_58; lean_object* x_59; +x_58 = lean_ctor_get(x_56, 0); +lean_inc(x_58); +x_59 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_58); +lean_dec(x_58); +if (lean_obj_tag(x_59) == 2) +{ +lean_object* x_60; lean_object* x_61; uint8_t x_62; +x_60 = lean_ctor_get(x_59, 1); +lean_inc(x_60); +lean_dec(x_59); +x_61 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; +x_62 = lean_string_dec_eq(x_60, x_61); +lean_dec(x_60); +if (x_62 == 0) +{ +lean_object* x_63; lean_object* x_64; +x_63 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_64 = l_Lean_Parser_ParserState_mkErrorsAt(x_56, x_63, x_22); +x_26 = x_64; +goto block_55; +} +else +{ +lean_dec(x_22); +x_26 = x_56; +goto block_55; +} +} +else +{ +lean_object* x_65; lean_object* x_66; +lean_dec(x_59); +x_65 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_66 = l_Lean_Parser_ParserState_mkErrorsAt(x_56, x_65, x_22); +x_26 = x_66; +goto block_55; +} +} +else +{ +lean_object* x_67; lean_object* x_68; +lean_dec(x_57); +x_67 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_68 = l_Lean_Parser_ParserState_mkErrorsAt(x_56, x_67, x_22); +x_26 = x_68; +goto block_55; +} +block_55: +{ +lean_object* x_27; +x_27 = lean_ctor_get(x_26, 3); +lean_inc(x_27); +if (lean_obj_tag(x_27) == 0) +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_28 = lean_ctor_get(x_26, 0); +lean_inc(x_28); +x_29 = lean_array_get_size(x_28); +lean_dec(x_28); +x_30 = lean_ctor_get(x_26, 1); +lean_inc(x_30); +lean_inc(x_25); +x_31 = lean_apply_2(x_4, x_25, x_26); +x_32 = lean_ctor_get(x_31, 3); +lean_inc(x_32); +if (lean_obj_tag(x_32) == 0) +{ +lean_object* x_33; lean_object* x_34; lean_object* x_35; +lean_dec(x_30); +lean_dec(x_29); +lean_dec(x_25); +x_33 = lean_apply_2(x_6, x_1, x_31); +x_34 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_35 = l_Lean_Parser_ParserState_mkNode(x_33, x_34, x_14); +return x_35; +} +else { lean_object* x_36; lean_object* x_37; uint8_t x_38; -x_36 = lean_ctor_get(x_35, 1); +x_36 = lean_ctor_get(x_32, 0); lean_inc(x_36); -lean_dec(x_35); -x_37 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; -x_38 = lean_string_dec_eq(x_36, x_37); -lean_dec(x_36); +lean_dec(x_32); +x_37 = lean_ctor_get(x_31, 1); +lean_inc(x_37); +x_38 = lean_nat_dec_eq(x_37, x_30); +lean_dec(x_37); if (x_38 == 0) { lean_object* x_39; lean_object* x_40; -lean_dec(x_31); -x_39 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_40 = l_Lean_Parser_ParserState_mkErrorsAt(x_32, x_39, x_28); -x_13 = x_40; -goto block_20; +lean_dec(x_36); +lean_dec(x_30); +lean_dec(x_29); +lean_dec(x_25); +lean_dec(x_6); +lean_dec(x_1); +x_39 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_40 = l_Lean_Parser_ParserState_mkNode(x_31, x_39, x_14); +return x_40; } else { -lean_object* x_41; lean_object* x_42; lean_object* x_43; -lean_dec(x_28); -x_41 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; -x_42 = lean_unsigned_to_nat(0u); -x_43 = l_Lean_Parser_categoryParser___elambda__1(x_41, x_42, x_31, x_32); -x_13 = x_43; -goto block_20; +lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; lean_object* x_46; lean_object* x_47; +lean_inc(x_30); +x_41 = l_Lean_Parser_ParserState_restore(x_31, x_29, x_30); +lean_dec(x_29); +x_42 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +x_43 = lean_unsigned_to_nat(0u); +x_44 = l_Lean_Parser_categoryParser___elambda__1(x_42, x_43, x_25, x_41); +x_45 = 1; +x_46 = l_Lean_Parser_mergeOrElseErrors(x_44, x_36, x_30, x_45); +lean_dec(x_30); +x_47 = lean_ctor_get(x_46, 3); +lean_inc(x_47); +if (lean_obj_tag(x_47) == 0) +{ +lean_object* x_48; lean_object* x_49; lean_object* x_50; +x_48 = lean_apply_2(x_6, x_1, x_46); +x_49 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_50 = l_Lean_Parser_ParserState_mkNode(x_48, x_49, x_14); +return x_50; +} +else +{ +lean_object* x_51; lean_object* x_52; +lean_dec(x_47); +lean_dec(x_6); +lean_dec(x_1); +x_51 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_52 = l_Lean_Parser_ParserState_mkNode(x_46, x_51, x_14); +return x_52; +} +} } } else { -lean_object* x_44; lean_object* x_45; -lean_dec(x_35); -lean_dec(x_31); -x_44 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_45 = l_Lean_Parser_ParserState_mkErrorsAt(x_32, x_44, x_28); -x_13 = x_45; -goto block_20; -} -} -else -{ -lean_object* x_46; lean_object* x_47; -lean_dec(x_33); -lean_dec(x_31); -x_46 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_47 = l_Lean_Parser_ParserState_mkErrorsAt(x_32, x_46, x_28); -x_13 = x_47; -goto block_20; -} -block_20: -{ -lean_object* x_14; -x_14 = lean_ctor_get(x_13, 3); -lean_inc(x_14); -if (lean_obj_tag(x_14) == 0) -{ -lean_object* x_15; lean_object* x_16; lean_object* x_17; -x_15 = lean_apply_2(x_4, x_1, x_13); -x_16 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_17 = l_Lean_Parser_ParserState_mkNode(x_15, x_16, x_12); -return x_17; -} -else -{ -lean_object* x_18; lean_object* x_19; -lean_dec(x_14); +lean_object* x_53; lean_object* x_54; +lean_dec(x_27); +lean_dec(x_25); +lean_dec(x_6); lean_dec(x_4); lean_dec(x_1); -x_18 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_19 = l_Lean_Parser_ParserState_mkNode(x_13, x_18, x_12); -return x_19; +x_53 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_54 = l_Lean_Parser_ParserState_mkNode(x_26, x_53, x_14); +return x_54; } } } else { -lean_dec(x_10); +lean_dec(x_12); +lean_dec(x_6); lean_dec(x_4); lean_dec(x_1); -return x_9; +return x_11; } } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; -x_48 = lean_ctor_get(x_2, 0); -lean_inc(x_48); -x_49 = lean_array_get_size(x_48); -lean_dec(x_48); -x_50 = lean_ctor_get(x_2, 1); -lean_inc(x_50); +lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; +x_69 = lean_ctor_get(x_2, 0); +lean_inc(x_69); +x_70 = lean_array_get_size(x_69); +lean_dec(x_69); +x_71 = lean_ctor_get(x_2, 1); +lean_inc(x_71); lean_inc(x_1); -x_51 = lean_apply_2(x_6, x_1, x_2); -x_52 = lean_ctor_get(x_51, 3); -lean_inc(x_52); -if (lean_obj_tag(x_52) == 0) +x_72 = lean_apply_2(x_8, x_1, x_2); +x_73 = lean_ctor_get(x_72, 3); +lean_inc(x_73); +if (lean_obj_tag(x_73) == 0) { -lean_dec(x_50); -lean_dec(x_49); +lean_dec(x_71); +lean_dec(x_70); +lean_dec(x_6); lean_dec(x_4); lean_dec(x_1); -return x_51; +return x_72; } else { -uint8_t x_53; -x_53 = !lean_is_exclusive(x_52); -if (x_53 == 0) +uint8_t x_74; +x_74 = !lean_is_exclusive(x_73); +if (x_74 == 0) { -lean_object* x_54; lean_object* x_55; uint8_t x_56; -x_54 = lean_ctor_get(x_52, 0); -x_55 = lean_ctor_get(x_51, 1); -lean_inc(x_55); -x_56 = lean_nat_dec_eq(x_55, x_50); -lean_dec(x_55); -if (x_56 == 0) -{ -lean_free_object(x_52); -lean_dec(x_54); -lean_dec(x_50); -lean_dec(x_49); -lean_dec(x_4); -lean_dec(x_1); -return x_51; -} -else -{ -lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; -lean_inc(x_50); -x_57 = l_Lean_Parser_ParserState_restore(x_51, x_49, x_50); -lean_dec(x_49); -x_58 = l_Lean_Parser_leadPrec; -x_59 = l_Lean_Parser_checkPrecFn(x_58, x_1, x_57); -x_60 = lean_ctor_get(x_59, 3); -lean_inc(x_60); -if (lean_obj_tag(x_60) == 0) -{ -lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; uint8_t 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; -x_61 = lean_ctor_get(x_59, 0); -lean_inc(x_61); -x_62 = lean_array_get_size(x_61); -lean_dec(x_61); -x_75 = lean_ctor_get(x_1, 0); -lean_inc(x_75); -x_76 = lean_ctor_get(x_1, 1); +lean_object* x_75; lean_object* x_76; uint8_t x_77; +x_75 = lean_ctor_get(x_73, 0); +x_76 = lean_ctor_get(x_72, 1); lean_inc(x_76); -x_77 = lean_ctor_get(x_1, 2); -lean_inc(x_77); -x_78 = lean_ctor_get(x_1, 3); -lean_inc(x_78); -x_79 = lean_ctor_get_uint8(x_1, sizeof(void*)*6); -x_80 = lean_ctor_get(x_1, 5); -lean_inc(x_80); -x_81 = lean_ctor_get(x_75, 2); +x_77 = lean_nat_dec_eq(x_76, x_71); +lean_dec(x_76); +if (x_77 == 0) +{ +lean_free_object(x_73); +lean_dec(x_75); +lean_dec(x_71); +lean_dec(x_70); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +return x_72; +} +else +{ +lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; +lean_inc(x_71); +x_78 = l_Lean_Parser_ParserState_restore(x_72, x_70, x_71); +lean_dec(x_70); +x_79 = l_Lean_Parser_leadPrec; +x_80 = l_Lean_Parser_checkPrecFn(x_79, x_1, x_78); +x_81 = lean_ctor_get(x_80, 3); lean_inc(x_81); -x_82 = lean_ctor_get(x_59, 1); +if (lean_obj_tag(x_81) == 0) +{ +lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; uint8_t 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_132; lean_object* x_133; +x_82 = lean_ctor_get(x_80, 0); lean_inc(x_82); -lean_inc(x_82); -x_83 = l_Lean_FileMap_toPosition(x_81, x_82); -lean_dec(x_81); -lean_ctor_set(x_52, 0, x_83); -x_84 = lean_alloc_ctor(0, 6, 1); -lean_ctor_set(x_84, 0, x_75); -lean_ctor_set(x_84, 1, x_76); -lean_ctor_set(x_84, 2, x_77); -lean_ctor_set(x_84, 3, x_78); -lean_ctor_set(x_84, 4, x_52); -lean_ctor_set(x_84, 5, x_80); -lean_ctor_set_uint8(x_84, sizeof(void*)*6, x_79); -lean_inc(x_84); -x_85 = l_Lean_Parser_tokenFn(x_84, x_59); -x_86 = lean_ctor_get(x_85, 3); -lean_inc(x_86); -if (lean_obj_tag(x_86) == 0) -{ -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_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_Term_dbgTrace___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_92; lean_object* x_93; -lean_dec(x_84); -x_92 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_93 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_92, x_82); -x_63 = x_93; -goto block_74; -} -else -{ -lean_object* x_94; lean_object* x_95; lean_object* x_96; +x_83 = lean_array_get_size(x_82); lean_dec(x_82); -x_94 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; -x_95 = lean_unsigned_to_nat(0u); -x_96 = l_Lean_Parser_categoryParser___elambda__1(x_94, x_95, x_84, x_85); -x_63 = x_96; -goto block_74; -} -} -else +x_84 = lean_ctor_get(x_1, 0); +lean_inc(x_84); +x_85 = lean_ctor_get(x_1, 1); +lean_inc(x_85); +x_86 = lean_ctor_get(x_1, 2); +lean_inc(x_86); +x_87 = lean_ctor_get(x_1, 3); +lean_inc(x_87); +x_88 = lean_ctor_get_uint8(x_1, sizeof(void*)*6); +x_89 = lean_ctor_get(x_1, 5); +lean_inc(x_89); +x_90 = lean_ctor_get(x_84, 2); +lean_inc(x_90); +x_91 = lean_ctor_get(x_80, 1); +lean_inc(x_91); +lean_inc(x_91); +x_92 = l_Lean_FileMap_toPosition(x_90, x_91); +lean_dec(x_90); +lean_ctor_set(x_73, 0, x_92); +x_93 = lean_alloc_ctor(0, 6, 1); +lean_ctor_set(x_93, 0, x_84); +lean_ctor_set(x_93, 1, x_85); +lean_ctor_set(x_93, 2, x_86); +lean_ctor_set(x_93, 3, x_87); +lean_ctor_set(x_93, 4, x_73); +lean_ctor_set(x_93, 5, x_89); +lean_ctor_set_uint8(x_93, sizeof(void*)*6, x_88); +lean_inc(x_93); +x_132 = l_Lean_Parser_tokenFn(x_93, x_80); +x_133 = lean_ctor_get(x_132, 3); +lean_inc(x_133); +if (lean_obj_tag(x_133) == 0) { -lean_object* x_97; lean_object* x_98; -lean_dec(x_88); -lean_dec(x_84); -x_97 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_98 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_97, x_82); -x_63 = x_98; -goto block_74; -} -} -else -{ -lean_object* x_99; lean_object* x_100; -lean_dec(x_86); -lean_dec(x_84); -x_99 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_100 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_99, x_82); -x_63 = x_100; -goto block_74; -} -block_74: -{ -lean_object* x_64; -x_64 = lean_ctor_get(x_63, 3); -lean_inc(x_64); -if (lean_obj_tag(x_64) == 0) -{ -lean_object* x_65; lean_object* x_66; lean_object* x_67; uint8_t x_68; lean_object* x_69; -x_65 = lean_apply_2(x_4, x_1, x_63); -x_66 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_67 = l_Lean_Parser_ParserState_mkNode(x_65, x_66, x_62); -x_68 = 1; -x_69 = l_Lean_Parser_mergeOrElseErrors(x_67, x_54, x_50, x_68); -lean_dec(x_50); -return x_69; -} -else -{ -lean_object* x_70; lean_object* x_71; uint8_t x_72; lean_object* x_73; -lean_dec(x_64); -lean_dec(x_4); -lean_dec(x_1); -x_70 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_71 = l_Lean_Parser_ParserState_mkNode(x_63, x_70, x_62); -x_72 = 1; -x_73 = l_Lean_Parser_mergeOrElseErrors(x_71, x_54, x_50, x_72); -lean_dec(x_50); -return x_73; -} -} -} -else -{ -uint8_t x_101; lean_object* x_102; -lean_dec(x_60); -lean_free_object(x_52); -lean_dec(x_4); -lean_dec(x_1); -x_101 = 1; -x_102 = l_Lean_Parser_mergeOrElseErrors(x_59, x_54, x_50, x_101); -lean_dec(x_50); -return x_102; -} -} -} -else -{ -lean_object* x_103; lean_object* x_104; uint8_t x_105; -x_103 = lean_ctor_get(x_52, 0); -lean_inc(x_103); -lean_dec(x_52); -x_104 = lean_ctor_get(x_51, 1); -lean_inc(x_104); -x_105 = lean_nat_dec_eq(x_104, x_50); -lean_dec(x_104); -if (x_105 == 0) -{ -lean_dec(x_103); -lean_dec(x_50); -lean_dec(x_49); -lean_dec(x_4); -lean_dec(x_1); -return x_51; -} -else -{ -lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; -lean_inc(x_50); -x_106 = l_Lean_Parser_ParserState_restore(x_51, x_49, x_50); -lean_dec(x_49); -x_107 = l_Lean_Parser_leadPrec; -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_110; lean_object* x_111; lean_object* x_112; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; uint8_t 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; -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_124 = lean_ctor_get(x_1, 0); -lean_inc(x_124); -x_125 = lean_ctor_get(x_1, 1); -lean_inc(x_125); -x_126 = lean_ctor_get(x_1, 2); -lean_inc(x_126); -x_127 = lean_ctor_get(x_1, 3); -lean_inc(x_127); -x_128 = lean_ctor_get_uint8(x_1, sizeof(void*)*6); -x_129 = lean_ctor_get(x_1, 5); -lean_inc(x_129); -x_130 = lean_ctor_get(x_124, 2); -lean_inc(x_130); -x_131 = lean_ctor_get(x_108, 1); -lean_inc(x_131); -lean_inc(x_131); -x_132 = l_Lean_FileMap_toPosition(x_130, x_131); -lean_dec(x_130); -x_133 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_133, 0, x_132); -x_134 = lean_alloc_ctor(0, 6, 1); -lean_ctor_set(x_134, 0, x_124); -lean_ctor_set(x_134, 1, x_125); -lean_ctor_set(x_134, 2, x_126); -lean_ctor_set(x_134, 3, x_127); -lean_ctor_set(x_134, 4, x_133); -lean_ctor_set(x_134, 5, x_129); -lean_ctor_set_uint8(x_134, sizeof(void*)*6, x_128); +lean_object* x_134; lean_object* x_135; +x_134 = lean_ctor_get(x_132, 0); lean_inc(x_134); -x_135 = l_Lean_Parser_tokenFn(x_134, x_108); -x_136 = lean_ctor_get(x_135, 3); +x_135 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_134); +lean_dec(x_134); +if (lean_obj_tag(x_135) == 2) +{ +lean_object* x_136; lean_object* x_137; uint8_t x_138; +x_136 = lean_ctor_get(x_135, 1); lean_inc(x_136); -if (lean_obj_tag(x_136) == 0) -{ -lean_object* x_137; lean_object* x_138; -x_137 = lean_ctor_get(x_135, 0); -lean_inc(x_137); -x_138 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_137); -lean_dec(x_137); -if (lean_obj_tag(x_138) == 2) -{ -lean_object* x_139; lean_object* x_140; uint8_t x_141; -x_139 = lean_ctor_get(x_138, 1); -lean_inc(x_139); -lean_dec(x_138); -x_140 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; -x_141 = lean_string_dec_eq(x_139, x_140); -lean_dec(x_139); -if (x_141 == 0) -{ -lean_object* x_142; lean_object* x_143; -lean_dec(x_134); -x_142 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_143 = l_Lean_Parser_ParserState_mkErrorsAt(x_135, x_142, x_131); -x_112 = x_143; -goto block_123; -} -else -{ -lean_object* x_144; lean_object* x_145; lean_object* x_146; -lean_dec(x_131); -x_144 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; -x_145 = lean_unsigned_to_nat(0u); -x_146 = l_Lean_Parser_categoryParser___elambda__1(x_144, x_145, x_134, x_135); -x_112 = x_146; -goto block_123; -} -} -else -{ -lean_object* x_147; lean_object* x_148; -lean_dec(x_138); -lean_dec(x_134); -x_147 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_148 = l_Lean_Parser_ParserState_mkErrorsAt(x_135, x_147, x_131); -x_112 = x_148; -goto block_123; -} -} -else -{ -lean_object* x_149; lean_object* x_150; +lean_dec(x_135); +x_137 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; +x_138 = lean_string_dec_eq(x_136, x_137); lean_dec(x_136); -lean_dec(x_134); -x_149 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9; -x_150 = l_Lean_Parser_ParserState_mkErrorsAt(x_135, x_149, x_131); -x_112 = x_150; -goto block_123; +if (x_138 == 0) +{ +lean_object* x_139; lean_object* x_140; +x_139 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_140 = l_Lean_Parser_ParserState_mkErrorsAt(x_132, x_139, x_91); +x_94 = x_140; +goto block_131; } -block_123: +else { -lean_object* x_113; -x_113 = lean_ctor_get(x_112, 3); -lean_inc(x_113); -if (lean_obj_tag(x_113) == 0) +lean_dec(x_91); +x_94 = x_132; +goto block_131; +} +} +else { -lean_object* x_114; lean_object* x_115; lean_object* x_116; uint8_t x_117; lean_object* x_118; -x_114 = lean_apply_2(x_4, x_1, x_112); -x_115 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_116 = l_Lean_Parser_ParserState_mkNode(x_114, x_115, x_111); +lean_object* x_141; lean_object* x_142; +lean_dec(x_135); +x_141 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_142 = l_Lean_Parser_ParserState_mkErrorsAt(x_132, x_141, x_91); +x_94 = x_142; +goto block_131; +} +} +else +{ +lean_object* x_143; lean_object* x_144; +lean_dec(x_133); +x_143 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_144 = l_Lean_Parser_ParserState_mkErrorsAt(x_132, x_143, x_91); +x_94 = x_144; +goto block_131; +} +block_131: +{ +lean_object* x_95; +x_95 = lean_ctor_get(x_94, 3); +lean_inc(x_95); +if (lean_obj_tag(x_95) == 0) +{ +lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; +x_96 = lean_ctor_get(x_94, 0); +lean_inc(x_96); +x_97 = lean_array_get_size(x_96); +lean_dec(x_96); +x_98 = lean_ctor_get(x_94, 1); +lean_inc(x_98); +lean_inc(x_93); +x_99 = lean_apply_2(x_4, x_93, x_94); +x_100 = lean_ctor_get(x_99, 3); +lean_inc(x_100); +if (lean_obj_tag(x_100) == 0) +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; uint8_t x_104; lean_object* x_105; +lean_dec(x_98); +lean_dec(x_97); +lean_dec(x_93); +x_101 = lean_apply_2(x_6, x_1, x_99); +x_102 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_103 = l_Lean_Parser_ParserState_mkNode(x_101, x_102, x_83); +x_104 = 1; +x_105 = l_Lean_Parser_mergeOrElseErrors(x_103, x_75, x_71, x_104); +lean_dec(x_71); +return x_105; +} +else +{ +lean_object* x_106; lean_object* x_107; uint8_t x_108; +x_106 = lean_ctor_get(x_100, 0); +lean_inc(x_106); +lean_dec(x_100); +x_107 = lean_ctor_get(x_99, 1); +lean_inc(x_107); +x_108 = lean_nat_dec_eq(x_107, x_98); +lean_dec(x_107); +if (x_108 == 0) +{ +lean_object* x_109; lean_object* x_110; uint8_t x_111; lean_object* x_112; +lean_dec(x_106); +lean_dec(x_98); +lean_dec(x_97); +lean_dec(x_93); +lean_dec(x_6); +lean_dec(x_1); +x_109 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_110 = l_Lean_Parser_ParserState_mkNode(x_99, x_109, x_83); +x_111 = 1; +x_112 = l_Lean_Parser_mergeOrElseErrors(x_110, x_75, x_71, x_111); +lean_dec(x_71); +return x_112; +} +else +{ +lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; uint8_t x_117; lean_object* x_118; lean_object* x_119; +lean_inc(x_98); +x_113 = l_Lean_Parser_ParserState_restore(x_99, x_97, x_98); +lean_dec(x_97); +x_114 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +x_115 = lean_unsigned_to_nat(0u); +x_116 = l_Lean_Parser_categoryParser___elambda__1(x_114, x_115, x_93, x_113); x_117 = 1; -x_118 = l_Lean_Parser_mergeOrElseErrors(x_116, x_103, x_50, x_117); -lean_dec(x_50); -return x_118; +x_118 = l_Lean_Parser_mergeOrElseErrors(x_116, x_106, x_98, x_117); +lean_dec(x_98); +x_119 = lean_ctor_get(x_118, 3); +lean_inc(x_119); +if (lean_obj_tag(x_119) == 0) +{ +lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_120 = lean_apply_2(x_6, x_1, x_118); +x_121 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_122 = l_Lean_Parser_ParserState_mkNode(x_120, x_121, x_83); +x_123 = l_Lean_Parser_mergeOrElseErrors(x_122, x_75, x_71, x_117); +lean_dec(x_71); +return x_123; } else { -lean_object* x_119; lean_object* x_120; uint8_t x_121; lean_object* x_122; -lean_dec(x_113); -lean_dec(x_4); +lean_object* x_124; lean_object* x_125; lean_object* x_126; +lean_dec(x_119); +lean_dec(x_6); lean_dec(x_1); -x_119 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_120 = l_Lean_Parser_ParserState_mkNode(x_112, x_119, x_111); -x_121 = 1; -x_122 = l_Lean_Parser_mergeOrElseErrors(x_120, x_103, x_50, x_121); -lean_dec(x_50); -return x_122; +x_124 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_125 = l_Lean_Parser_ParserState_mkNode(x_118, x_124, x_83); +x_126 = l_Lean_Parser_mergeOrElseErrors(x_125, x_75, x_71, x_117); +lean_dec(x_71); +return x_126; +} } } } else { -uint8_t x_151; lean_object* x_152; -lean_dec(x_109); +lean_object* x_127; lean_object* x_128; uint8_t x_129; lean_object* x_130; +lean_dec(x_95); +lean_dec(x_93); +lean_dec(x_6); lean_dec(x_4); lean_dec(x_1); -x_151 = 1; -x_152 = l_Lean_Parser_mergeOrElseErrors(x_108, x_103, x_50, x_151); -lean_dec(x_50); -return x_152; +x_127 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_128 = l_Lean_Parser_ParserState_mkNode(x_94, x_127, x_83); +x_129 = 1; +x_130 = l_Lean_Parser_mergeOrElseErrors(x_128, x_75, x_71, x_129); +lean_dec(x_71); +return x_130; +} +} +} +else +{ +uint8_t x_145; lean_object* x_146; +lean_dec(x_81); +lean_free_object(x_73); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +x_145 = 1; +x_146 = l_Lean_Parser_mergeOrElseErrors(x_80, x_75, x_71, x_145); +lean_dec(x_71); +return x_146; +} +} +} +else +{ +lean_object* x_147; lean_object* x_148; uint8_t x_149; +x_147 = lean_ctor_get(x_73, 0); +lean_inc(x_147); +lean_dec(x_73); +x_148 = lean_ctor_get(x_72, 1); +lean_inc(x_148); +x_149 = lean_nat_dec_eq(x_148, x_71); +lean_dec(x_148); +if (x_149 == 0) +{ +lean_dec(x_147); +lean_dec(x_71); +lean_dec(x_70); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +return x_72; +} +else +{ +lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; +lean_inc(x_71); +x_150 = l_Lean_Parser_ParserState_restore(x_72, x_70, x_71); +lean_dec(x_70); +x_151 = l_Lean_Parser_leadPrec; +x_152 = l_Lean_Parser_checkPrecFn(x_151, x_1, x_150); +x_153 = lean_ctor_get(x_152, 3); +lean_inc(x_153); +if (lean_obj_tag(x_153) == 0) +{ +lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; uint8_t 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_205; lean_object* x_206; +x_154 = lean_ctor_get(x_152, 0); +lean_inc(x_154); +x_155 = lean_array_get_size(x_154); +lean_dec(x_154); +x_156 = lean_ctor_get(x_1, 0); +lean_inc(x_156); +x_157 = lean_ctor_get(x_1, 1); +lean_inc(x_157); +x_158 = lean_ctor_get(x_1, 2); +lean_inc(x_158); +x_159 = lean_ctor_get(x_1, 3); +lean_inc(x_159); +x_160 = lean_ctor_get_uint8(x_1, sizeof(void*)*6); +x_161 = lean_ctor_get(x_1, 5); +lean_inc(x_161); +x_162 = lean_ctor_get(x_156, 2); +lean_inc(x_162); +x_163 = lean_ctor_get(x_152, 1); +lean_inc(x_163); +lean_inc(x_163); +x_164 = l_Lean_FileMap_toPosition(x_162, x_163); +lean_dec(x_162); +x_165 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_165, 0, x_164); +x_166 = lean_alloc_ctor(0, 6, 1); +lean_ctor_set(x_166, 0, x_156); +lean_ctor_set(x_166, 1, x_157); +lean_ctor_set(x_166, 2, x_158); +lean_ctor_set(x_166, 3, x_159); +lean_ctor_set(x_166, 4, x_165); +lean_ctor_set(x_166, 5, x_161); +lean_ctor_set_uint8(x_166, sizeof(void*)*6, x_160); +lean_inc(x_166); +x_205 = l_Lean_Parser_tokenFn(x_166, x_152); +x_206 = lean_ctor_get(x_205, 3); +lean_inc(x_206); +if (lean_obj_tag(x_206) == 0) +{ +lean_object* x_207; lean_object* x_208; +x_207 = lean_ctor_get(x_205, 0); +lean_inc(x_207); +x_208 = l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(x_207); +lean_dec(x_207); +if (lean_obj_tag(x_208) == 2) +{ +lean_object* x_209; lean_object* x_210; uint8_t x_211; +x_209 = lean_ctor_get(x_208, 1); +lean_inc(x_209); +lean_dec(x_208); +x_210 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__6; +x_211 = lean_string_dec_eq(x_209, x_210); +lean_dec(x_209); +if (x_211 == 0) +{ +lean_object* x_212; lean_object* x_213; +x_212 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_213 = l_Lean_Parser_ParserState_mkErrorsAt(x_205, x_212, x_163); +x_167 = x_213; +goto block_204; +} +else +{ +lean_dec(x_163); +x_167 = x_205; +goto block_204; +} +} +else +{ +lean_object* x_214; lean_object* x_215; +lean_dec(x_208); +x_214 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_215 = l_Lean_Parser_ParserState_mkErrorsAt(x_205, x_214, x_163); +x_167 = x_215; +goto block_204; +} +} +else +{ +lean_object* x_216; lean_object* x_217; +lean_dec(x_206); +x_216 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10; +x_217 = l_Lean_Parser_ParserState_mkErrorsAt(x_205, x_216, x_163); +x_167 = x_217; +goto block_204; +} +block_204: +{ +lean_object* x_168; +x_168 = lean_ctor_get(x_167, 3); +lean_inc(x_168); +if (lean_obj_tag(x_168) == 0) +{ +lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; +x_169 = lean_ctor_get(x_167, 0); +lean_inc(x_169); +x_170 = lean_array_get_size(x_169); +lean_dec(x_169); +x_171 = lean_ctor_get(x_167, 1); +lean_inc(x_171); +lean_inc(x_166); +x_172 = lean_apply_2(x_4, x_166, x_167); +x_173 = lean_ctor_get(x_172, 3); +lean_inc(x_173); +if (lean_obj_tag(x_173) == 0) +{ +lean_object* x_174; lean_object* x_175; lean_object* x_176; uint8_t x_177; lean_object* x_178; +lean_dec(x_171); +lean_dec(x_170); +lean_dec(x_166); +x_174 = lean_apply_2(x_6, x_1, x_172); +x_175 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_176 = l_Lean_Parser_ParserState_mkNode(x_174, x_175, x_155); +x_177 = 1; +x_178 = l_Lean_Parser_mergeOrElseErrors(x_176, x_147, x_71, x_177); +lean_dec(x_71); +return x_178; +} +else +{ +lean_object* x_179; lean_object* x_180; uint8_t x_181; +x_179 = lean_ctor_get(x_173, 0); +lean_inc(x_179); +lean_dec(x_173); +x_180 = lean_ctor_get(x_172, 1); +lean_inc(x_180); +x_181 = lean_nat_dec_eq(x_180, x_171); +lean_dec(x_180); +if (x_181 == 0) +{ +lean_object* x_182; lean_object* x_183; uint8_t x_184; lean_object* x_185; +lean_dec(x_179); +lean_dec(x_171); +lean_dec(x_170); +lean_dec(x_166); +lean_dec(x_6); +lean_dec(x_1); +x_182 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_183 = l_Lean_Parser_ParserState_mkNode(x_172, x_182, x_155); +x_184 = 1; +x_185 = l_Lean_Parser_mergeOrElseErrors(x_183, x_147, x_71, x_184); +lean_dec(x_71); +return x_185; +} +else +{ +lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; uint8_t x_190; lean_object* x_191; lean_object* x_192; +lean_inc(x_171); +x_186 = l_Lean_Parser_ParserState_restore(x_172, x_170, x_171); +lean_dec(x_170); +x_187 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; +x_188 = lean_unsigned_to_nat(0u); +x_189 = l_Lean_Parser_categoryParser___elambda__1(x_187, x_188, x_166, x_186); +x_190 = 1; +x_191 = l_Lean_Parser_mergeOrElseErrors(x_189, x_179, x_171, x_190); +lean_dec(x_171); +x_192 = lean_ctor_get(x_191, 3); +lean_inc(x_192); +if (lean_obj_tag(x_192) == 0) +{ +lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; +x_193 = lean_apply_2(x_6, x_1, x_191); +x_194 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_195 = l_Lean_Parser_ParserState_mkNode(x_193, x_194, x_155); +x_196 = l_Lean_Parser_mergeOrElseErrors(x_195, x_147, x_71, x_190); +lean_dec(x_71); +return x_196; +} +else +{ +lean_object* x_197; lean_object* x_198; lean_object* x_199; +lean_dec(x_192); +lean_dec(x_6); +lean_dec(x_1); +x_197 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_198 = l_Lean_Parser_ParserState_mkNode(x_191, x_197, x_155); +x_199 = l_Lean_Parser_mergeOrElseErrors(x_198, x_147, x_71, x_190); +lean_dec(x_71); +return x_199; +} +} +} +} +else +{ +lean_object* x_200; lean_object* x_201; uint8_t x_202; lean_object* x_203; +lean_dec(x_168); +lean_dec(x_166); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +x_200 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; +x_201 = l_Lean_Parser_ParserState_mkNode(x_167, x_200, x_155); +x_202 = 1; +x_203 = l_Lean_Parser_mergeOrElseErrors(x_201, x_147, x_71, x_202); +lean_dec(x_71); +return x_203; +} +} +} +else +{ +uint8_t x_218; lean_object* x_219; +lean_dec(x_153); +lean_dec(x_6); +lean_dec(x_4); +lean_dec(x_1); +x_218 = 1; +x_219 = l_Lean_Parser_mergeOrElseErrors(x_152, x_147, x_71, x_218); +lean_dec(x_71); +return x_219; } } } @@ -80192,60 +80443,72 @@ return x_2; static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__2() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Term_typeAscription___closed__2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__7; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_dbgTrace___closed__1; -x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); -return x_4; +x_3 = l_Lean_Parser_Term_typeAscription___closed__2; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = l_Lean_Parser_orelseInfo(x_2, x_4); +return x_5; } } static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__3() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_dbgTrace___closed__1; +x_2 = l_Lean_Parser_Term_dbgTrace___closed__2; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__4() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_have___elambda__1___closed__7; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_dbgTrace___closed__2; +x_3 = l_Lean_Parser_Term_dbgTrace___closed__3; x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); return x_4; } } -static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__4() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; -x_2 = l_Lean_Parser_Term_dbgTrace___closed__3; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; -} -} static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_epsilonInfo; +x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; x_2 = l_Lean_Parser_Term_dbgTrace___closed__4; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } } static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__6() { _start: { +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_epsilonInfo; +x_2 = l_Lean_Parser_Term_dbgTrace___closed__5; +x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); +return x_3; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__7() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__4; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Term_dbgTrace___closed__5; +x_3 = l_Lean_Parser_Term_dbgTrace___closed__6; x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); return x_4; } } -static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__7() { +static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__8() { _start: { lean_object* x_1; @@ -80253,12 +80516,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Term_dbgTrace___elambda__1), 2, 0 return x_1; } } -static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__8() { +static lean_object* _init_l_Lean_Parser_Term_dbgTrace___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_dbgTrace___closed__6; -x_2 = l_Lean_Parser_Term_dbgTrace___closed__7; +x_1 = l_Lean_Parser_Term_dbgTrace___closed__7; +x_2 = l_Lean_Parser_Term_dbgTrace___closed__8; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -80269,7 +80532,7 @@ static lean_object* _init_l_Lean_Parser_Term_dbgTrace() { _start: { lean_object* x_1; -x_1 = l_Lean_Parser_Term_dbgTrace___closed__8; +x_1 = l_Lean_Parser_Term_dbgTrace___closed__9; return x_1; } } @@ -80314,31 +80577,29 @@ return x_2; static lean_object* _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__3() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_dbgTrace_formatter___closed__2; -x_2 = l_Lean_Parser_antiquotNestedExpr_formatter___closed__2; -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* x_1; +x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_interpolatedStr_formatter___rarg___boxed), 5, 0); +return x_1; } } static lean_object* _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_dbgTrace_formatter___closed__3; -x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_withPosition_formatter), 6, 1); -lean_closure_set(x_2, 0, x_1); -return x_2; +x_2 = l_Lean_Parser_antiquotNestedExpr_formatter___closed__2; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_orelse_formatter), 7, 2); +lean_closure_set(x_3, 0, x_1); +lean_closure_set(x_3, 1, x_2); +return x_3; } } static lean_object* _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_dbgTrace_formatter___closed__4; -x_2 = l_Lean_Parser_Term_have_formatter___closed__6; +x_1 = l_Lean_Parser_Term_dbgTrace_formatter___closed__2; +x_2 = l_Lean_Parser_Term_dbgTrace_formatter___closed__4; 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); @@ -80348,10 +80609,32 @@ return x_3; static lean_object* _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__6() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_dbgTrace_formatter___closed__5; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_withPosition_formatter), 6, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_dbgTrace_formatter___closed__6; +x_2 = l_Lean_Parser_Term_have_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; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__8() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; x_2 = l_Lean_Parser_leadPrec; -x_3 = l_Lean_Parser_Term_dbgTrace_formatter___closed__5; +x_3 = l_Lean_Parser_Term_dbgTrace_formatter___closed__7; 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); @@ -80364,7 +80647,7 @@ _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = l_Lean_Parser_Term_dbgTrace_formatter___closed__1; -x_7 = l_Lean_Parser_Term_dbgTrace_formatter___closed__6; +x_7 = l_Lean_Parser_Term_dbgTrace_formatter___closed__8; 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; } @@ -80405,8 +80688,8 @@ static lean_object* _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__2( _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Term_typeAscription_parenthesizer___closed__2; -x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer), 6, 1); +x_1 = l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__1; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_interpolatedStr_parenthesizer___boxed), 3, 1); lean_closure_set(x_2, 0, x_1); return x_2; } @@ -80416,8 +80699,8 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__2; -x_2 = l_Lean_Parser_Term_have_parenthesizer___closed__5; -x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2); +x_2 = l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__1; +x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer), 7, 2); lean_closure_set(x_3, 0, x_1); lean_closure_set(x_3, 1, x_2); return x_3; @@ -80426,10 +80709,44 @@ return x_3; static lean_object* _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4() { _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_Term_dbgTrace_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; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__5() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer), 6, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__6() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__5; +x_2 = l_Lean_Parser_Term_have_parenthesizer___closed__5; +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; +} +} +static lean_object* _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__7() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_dbgTrace___elambda__1___closed__2; x_2 = l_Lean_Parser_leadPrec; -x_3 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__3; +x_3 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__6; 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); @@ -80442,7 +80759,7 @@ _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__1; -x_7 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4; +x_7 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__7; 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; } @@ -81294,10 +81611,32 @@ return x_4; static lean_object* _init_l_Lean_Parser_Term_assert_parenthesizer___closed__2() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Parser_Term_typeAscription_parenthesizer___closed__2; +x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer), 6, 1); +lean_closure_set(x_2, 0, x_1); +return x_2; +} +} +static lean_object* _init_l_Lean_Parser_Term_assert_parenthesizer___closed__3() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Term_assert_parenthesizer___closed__2; +x_2 = l_Lean_Parser_Term_have_parenthesizer___closed__5; +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; +} +} +static lean_object* _init_l_Lean_Parser_Term_assert_parenthesizer___closed__4() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Term_assert___elambda__1___closed__2; x_2 = l_Lean_Parser_leadPrec; -x_3 = l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__3; +x_3 = l_Lean_Parser_Term_assert_parenthesizer___closed__3; 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); @@ -81310,7 +81649,7 @@ _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = l_Lean_Parser_Term_assert_parenthesizer___closed__1; -x_7 = l_Lean_Parser_Term_assert_parenthesizer___closed__2; +x_7 = l_Lean_Parser_Term_assert_parenthesizer___closed__4; 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; } @@ -90624,6 +90963,8 @@ l_Lean_Parser_Term_dbgTrace___elambda__1___closed__8 = _init_l_Lean_Parser_Term_ lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___elambda__1___closed__8); l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9 = _init_l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9(); lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___elambda__1___closed__9); +l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10 = _init_l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___elambda__1___closed__10); l_Lean_Parser_Term_dbgTrace___closed__1 = _init_l_Lean_Parser_Term_dbgTrace___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___closed__1); l_Lean_Parser_Term_dbgTrace___closed__2 = _init_l_Lean_Parser_Term_dbgTrace___closed__2(); @@ -90640,6 +90981,8 @@ l_Lean_Parser_Term_dbgTrace___closed__7 = _init_l_Lean_Parser_Term_dbgTrace___cl lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___closed__7); l_Lean_Parser_Term_dbgTrace___closed__8 = _init_l_Lean_Parser_Term_dbgTrace___closed__8(); lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___closed__8); +l_Lean_Parser_Term_dbgTrace___closed__9 = _init_l_Lean_Parser_Term_dbgTrace___closed__9(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace___closed__9); l_Lean_Parser_Term_dbgTrace = _init_l_Lean_Parser_Term_dbgTrace(); lean_mark_persistent(l_Lean_Parser_Term_dbgTrace); res = l___regBuiltinParser_Lean_Parser_Term_dbgTrace(lean_io_mk_world()); @@ -90657,6 +91000,10 @@ l_Lean_Parser_Term_dbgTrace_formatter___closed__5 = _init_l_Lean_Parser_Term_dbg lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_formatter___closed__5); l_Lean_Parser_Term_dbgTrace_formatter___closed__6 = _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__6(); lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_formatter___closed__6); +l_Lean_Parser_Term_dbgTrace_formatter___closed__7 = _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__7(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_formatter___closed__7); +l_Lean_Parser_Term_dbgTrace_formatter___closed__8 = _init_l_Lean_Parser_Term_dbgTrace_formatter___closed__8(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_formatter___closed__8); l___regBuiltin_Lean_Parser_Term_dbgTrace_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_dbgTrace_formatter___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_dbgTrace_formatter___closed__1); res = l___regBuiltin_Lean_Parser_Term_dbgTrace_formatter(lean_io_mk_world()); @@ -90670,6 +91017,12 @@ l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__3 = _init_l_Lean_Parser_Term lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__3); l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4 = _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4(); lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__4); +l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__5 = _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__5); +l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__6 = _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__6(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__6); +l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__7 = _init_l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__7(); +lean_mark_persistent(l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__7); l___regBuiltin_Lean_Parser_Term_dbgTrace_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_dbgTrace_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_dbgTrace_parenthesizer___closed__1); res = l___regBuiltin_Lean_Parser_Term_dbgTrace_parenthesizer(lean_io_mk_world()); @@ -90735,6 +91088,10 @@ l_Lean_Parser_Term_assert_parenthesizer___closed__1 = _init_l_Lean_Parser_Term_a lean_mark_persistent(l_Lean_Parser_Term_assert_parenthesizer___closed__1); l_Lean_Parser_Term_assert_parenthesizer___closed__2 = _init_l_Lean_Parser_Term_assert_parenthesizer___closed__2(); lean_mark_persistent(l_Lean_Parser_Term_assert_parenthesizer___closed__2); +l_Lean_Parser_Term_assert_parenthesizer___closed__3 = _init_l_Lean_Parser_Term_assert_parenthesizer___closed__3(); +lean_mark_persistent(l_Lean_Parser_Term_assert_parenthesizer___closed__3); +l_Lean_Parser_Term_assert_parenthesizer___closed__4 = _init_l_Lean_Parser_Term_assert_parenthesizer___closed__4(); +lean_mark_persistent(l_Lean_Parser_Term_assert_parenthesizer___closed__4); l___regBuiltin_Lean_Parser_Term_assert_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_assert_parenthesizer___closed__1(); lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_assert_parenthesizer___closed__1); res = l___regBuiltin_Lean_Parser_Term_assert_parenthesizer(lean_io_mk_world()); diff --git a/stage0/stdlib/Lean/Util/Trace.c b/stage0/stdlib/Lean/Util/Trace.c index cde6fcf468..31bc2f9d48 100644 --- a/stage0/stdlib/Lean/Util/Trace.c +++ b/stage0/stdlib/Lean/Util/Trace.c @@ -16,14 +16,15 @@ extern "C" { extern lean_object* l_Lean_mkHole___closed__3; lean_object* lean_string_push(lean_object*, uint32_t); lean_object* l_Std_PersistentArray_forMAux___main___at_Lean_printTraces___spec__3(lean_object*); +extern lean_object* l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9; lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__6___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); 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*); +uint8_t lean_name_eq(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*); @@ -48,8 +49,8 @@ lean_object* l_Lean_traceCtx___rarg___lambda__8(lean_object*, lean_object*, lean lean_object* l_Std_PersistentArray_getAux___main___at___private_Lean_Util_Trace_1__toFormat___spec__2(lean_object*, size_t, size_t); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); -extern lean_object* l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; lean_object* l___private_Lean_Util_Trace_5__getResetTraces___rarg___lambda__1(lean_object*); +extern lean_object* l_Lean_interpolatedStrKind; 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*); @@ -70,6 +71,7 @@ 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_myMacro____x40_Lean_Util_Trace___hyg_45____closed__16; lean_object* l_Lean_setTraceState(lean_object*, lean_object*); +extern lean_object* l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__5; uint8_t l___private_Lean_Util_Trace_2__checkTraceOptionAux(lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__3; lean_object* l_Lean_traceM___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); @@ -94,13 +96,11 @@ uint8_t l_Lean_KVMap_getBool(lean_object*, lean_object*, uint8_t); lean_object* l_Std_PersistentArray_forM___at_Lean_printTraces___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*); 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* 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_traceCtx___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_monadTraceTrans(lean_object*, lean_object*); lean_object* l_Lean_traceM(lean_object*); @@ -114,7 +114,6 @@ 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*); 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*); @@ -132,6 +131,7 @@ lean_object* l_Lean_addTrace___rarg___lambda__2(lean_object*, lean_object*, lean size_t lean_usize_of_nat(lean_object*); lean_object* l_Lean_traceCtx___rarg___lambda__3___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Std_PersistentArray_getAux___main___rarg___closed__1; +extern lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7; lean_object* l_Lean_addMacroScope(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__13; lean_object* l_Lean_modifyTraces___rarg(lean_object*, lean_object*); @@ -163,9 +163,11 @@ lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__5___rarg___lam lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__15; lean_object* l_Std_PersistentArray_getAux___main___at___private_Lean_Util_Trace_1__toFormat___spec__2___boxed(lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_le(lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__3; extern lean_object* l_Lean_SourceInfo_inhabited___closed__1; lean_object* l_Std_PersistentArray_toArray___rarg(lean_object*); lean_object* l_Lean_Syntax_getArgs(lean_object*); +lean_object* l_Lean_Syntax_getKind(lean_object*); lean_object* l_Lean_traceElem_inhabited; lean_object* l_Lean_traceCtx___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_traceCtx___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -212,7 +214,7 @@ 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_355_(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362_(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_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__5; @@ -221,6 +223,7 @@ lean_object* l_Lean_printTraces___rarg___lambda__1(lean_object*, lean_object*, l lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__2; lean_object* l_Lean_getTraces___rarg(lean_object*, lean_object*); +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1; lean_object* l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__6; lean_object* l_Lean_trace___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_Monad___rarg___lambda__4___boxed(lean_object*, lean_object*, lean_object*); @@ -229,9 +232,11 @@ lean_object* l_Lean_traceCtx___rarg___lambda__1(lean_object*); uint8_t l_List_isEmpty___rarg(lean_object*); lean_object* l___private_Lean_Util_Trace_3__checkTraceOptionM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_usize_to_nat(size_t); +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__2; lean_object* l_Array_forMAux___main___at_Lean_printTraces___spec__5___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__8; lean_object* l_Lean_getTraces___rarg___lambda__1(lean_object*, lean_object*); +extern lean_object* l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4; extern lean_object* l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__18; lean_object* l_Lean_traceCtx___rarg___lambda__5(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t); extern lean_object* l_Lean_mkAppStx___closed__2; @@ -2373,9 +2378,9 @@ static lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____c _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__17; -x_2 = lean_unsigned_to_nat(1024u); -x_3 = lean_alloc_ctor(20, 2, 0); +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__8; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_42____closed__4; +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; @@ -2385,8 +2390,8 @@ static lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____c _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__8; -x_2 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__9; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__9; +x_2 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__18; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -2396,22 +2401,10 @@ return x_3; static lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__10; -x_2 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__18; -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; -} -} -static lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__12() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__6; x_2 = lean_unsigned_to_nat(1024u); -x_3 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11; +x_3 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__10; x_4 = lean_alloc_ctor(9, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -2423,7 +2416,7 @@ static lean_object* _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3_() { _start: { lean_object* x_1; -x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__12; +x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11; return x_1; } } @@ -2841,7 +2834,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__7; -x_2 = l_Std_Range___kind_term____x40_Init_Data_Range___hyg_111____closed__18; +x_2 = l_Lean___kind_term____x40_Lean_Exception___hyg_3____closed__7; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -2870,7 +2863,7 @@ x_1 = l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9; return x_1; } } -static lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1() { +static lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1() { _start: { lean_object* x_1; @@ -2878,22 +2871,22 @@ x_1 = lean_mk_string("Lean.trace"); return x_1; } } -static lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2() { +static lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__1; +x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1; x_2 = lean_string_utf8_byte_size(x_1); return x_2; } } -static lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__3() { +static lean_object* _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____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_355____closed__1; +x_1 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355____closed__2; +x_3 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____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); @@ -2901,7 +2894,7 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_355_(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362_(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -2941,87 +2934,147 @@ return x_13; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; 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_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; uint8_t x_20; x_14 = lean_unsigned_to_nat(1u); x_15 = l_Lean_Syntax_getArg(x_1, x_14); x_16 = lean_unsigned_to_nat(3u); x_17 = l_Lean_Syntax_getArg(x_1, x_16); lean_dec(x_1); -x_18 = lean_ctor_get(x_2, 2); -lean_inc(x_18); -x_19 = lean_ctor_get(x_2, 1); -lean_inc(x_19); +lean_inc(x_17); +x_18 = l_Lean_Syntax_getKind(x_17); +x_19 = l_Lean_interpolatedStrKind; +x_20 = lean_name_eq(x_18, x_19); +lean_dec(x_18); +if (x_20 == 0) +{ +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; +x_21 = lean_ctor_get(x_2, 2); +lean_inc(x_21); +x_22 = lean_ctor_get(x_2, 1); +lean_inc(x_22); lean_dec(x_2); -x_20 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__3; -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_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); -lean_ctor_set(x_25, 1, x_23); -lean_ctor_set(x_25, 2, x_21); -lean_ctor_set(x_25, 3, x_24); -x_26 = l_Array_empty___closed__1; -x_27 = lean_array_push(x_26, x_25); -x_28 = l_Lean_Syntax_getId(x_15); +x_23 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__3; +lean_inc(x_21); +lean_inc(x_22); +x_24 = l_Lean_addMacroScope(x_22, x_23, x_21); +x_25 = l_Lean_SourceInfo_inhabited___closed__1; +x_26 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__3; +x_27 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__5; +x_28 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_28, 0, x_25); +lean_ctor_set(x_28, 1, x_26); +lean_ctor_set(x_28, 2, x_24); +lean_ctor_set(x_28, 3, x_27); +x_29 = l_Array_empty___closed__1; +x_30 = lean_array_push(x_29, x_28); +x_31 = l_Lean_Syntax_getId(x_15); lean_dec(x_15); -x_29 = l___private_Init_LeanInit_13__quoteName___main(x_28); -x_30 = lean_array_push(x_26, x_29); -x_31 = lean_array_push(x_26, x_17); -x_32 = l_Lean_myMacro____x40_Lean_Message___hyg_158____closed__5; -x_33 = l_Lean_addMacroScope(x_19, x_32, x_18); -x_34 = l_Lean_myMacro____x40_Lean_Message___hyg_158____closed__4; -x_35 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20; -x_36 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_36, 0, x_22); -lean_ctor_set(x_36, 1, x_34); -lean_ctor_set(x_36, 2, x_33); -lean_ctor_set(x_36, 3, x_35); -x_37 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__22; -x_38 = lean_array_push(x_37, x_36); -x_39 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____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 = lean_array_push(x_26, x_40); -x_42 = l_Lean_nullKind___closed__2; +x_32 = l___private_Init_LeanInit_13__quoteName___main(x_31); +x_33 = lean_array_push(x_29, x_32); +x_34 = lean_array_push(x_29, x_17); +x_35 = l_Lean_myMacro____x40_Lean_Message___hyg_158____closed__5; +x_36 = l_Lean_addMacroScope(x_22, x_35, x_21); +x_37 = l_Lean_myMacro____x40_Lean_Message___hyg_158____closed__4; +x_38 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__20; +x_39 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_39, 0, x_25); +lean_ctor_set(x_39, 1, x_37); +lean_ctor_set(x_39, 2, x_36); +lean_ctor_set(x_39, 3, x_38); +x_40 = l_Std_Range_myMacro____x40_Init_Data_Range___hyg_301____closed__22; +x_41 = lean_array_push(x_40, x_39); +x_42 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__8; x_43 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_43, 0, x_42); lean_ctor_set(x_43, 1, x_41); -x_44 = lean_array_push(x_31, x_43); -x_45 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_45, 0, x_42); -lean_ctor_set(x_45, 1, x_44); -x_46 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; -x_47 = lean_array_push(x_46, x_45); -x_48 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; -x_49 = lean_array_push(x_47, x_48); -x_50 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; -x_51 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_51, 0, x_50); -lean_ctor_set(x_51, 1, x_49); -x_52 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; -x_53 = lean_array_push(x_52, x_51); -x_54 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; -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 = lean_array_push(x_30, x_55); -x_57 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_57, 0, x_42); -lean_ctor_set(x_57, 1, x_56); -x_58 = lean_array_push(x_27, x_57); -x_59 = l_Lean_mkAppStx___closed__8; +x_44 = lean_array_push(x_29, x_43); +x_45 = l_Lean_nullKind___closed__2; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = lean_array_push(x_34, x_46); +x_48 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_48, 0, x_45); +lean_ctor_set(x_48, 1, x_47); +x_49 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__6; +x_50 = lean_array_push(x_49, x_48); +x_51 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__15; +x_52 = lean_array_push(x_50, x_51); +x_53 = l_myMacro____x40_Init_Data_ToString_Macro___hyg_39____closed__4; +x_54 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_54, 0, x_53); +lean_ctor_set(x_54, 1, x_52); +x_55 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; +x_56 = lean_array_push(x_55, x_54); +x_57 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; +x_58 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_58, 0, x_57); +lean_ctor_set(x_58, 1, x_56); +x_59 = lean_array_push(x_33, x_58); x_60 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_60, 0, x_59); -lean_ctor_set(x_60, 1, x_58); -x_61 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_61, 0, x_60); -lean_ctor_set(x_61, 1, x_3); -return x_61; +lean_ctor_set(x_60, 0, x_45); +lean_ctor_set(x_60, 1, x_59); +x_61 = lean_array_push(x_30, x_60); +x_62 = l_Lean_mkAppStx___closed__8; +x_63 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_63, 0, x_62); +lean_ctor_set(x_63, 1, x_61); +x_64 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_64, 0, x_63); +lean_ctor_set(x_64, 1, x_3); +return x_64; +} +else +{ +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; +x_65 = lean_ctor_get(x_2, 2); +lean_inc(x_65); +x_66 = lean_ctor_get(x_2, 1); +lean_inc(x_66); +lean_dec(x_2); +x_67 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__3; +x_68 = l_Lean_addMacroScope(x_66, x_67, x_65); +x_69 = l_Lean_SourceInfo_inhabited___closed__1; +x_70 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__3; +x_71 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__5; +x_72 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_72, 0, x_69); +lean_ctor_set(x_72, 1, x_70); +lean_ctor_set(x_72, 2, x_68); +lean_ctor_set(x_72, 3, x_71); +x_73 = l_Array_empty___closed__1; +x_74 = lean_array_push(x_73, x_72); +x_75 = l_Lean_Syntax_getId(x_15); +lean_dec(x_15); +x_76 = l___private_Init_LeanInit_13__quoteName___main(x_75); +x_77 = lean_array_push(x_73, x_76); +x_78 = l_Lean_myMacro____x40_Lean_Exception___hyg_87____closed__9; +x_79 = lean_array_push(x_78, x_17); +x_80 = l_Lean___kind_term____x40_Lean_Message___hyg_125____closed__5; +x_81 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_81, 0, x_80); +lean_ctor_set(x_81, 1, x_79); +x_82 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__18; +x_83 = lean_array_push(x_82, x_81); +x_84 = l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__7; +x_85 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_83); +x_86 = lean_array_push(x_77, x_85); +x_87 = l_Lean_nullKind___closed__2; +x_88 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_88, 0, x_87); +lean_ctor_set(x_88, 1, x_86); +x_89 = lean_array_push(x_74, x_88); +x_90 = l_Lean_mkAppStx___closed__8; +x_91 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_91, 0, x_90); +lean_ctor_set(x_91, 1, x_89); +x_92 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_92, 0, x_91); +lean_ctor_set(x_92, 1, x_3); +return x_92; +} } } } @@ -3087,8 +3140,6 @@ l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__10 = _init_l_Lean__ lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__10); l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11(); lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__11); -l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__12 = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__12(); -lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3____closed__12); l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3_ = _init_l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3_(); lean_mark_persistent(l_Lean___kind_term____x40_Lean_Util_Trace___hyg_3_); l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__1 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_45____closed__1(); @@ -3151,12 +3202,12 @@ l_Lean___kind_term____x40_Lean_Util_Trace___hyg_316____closed__9 = _init_l_Lean_ 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); +l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__1); +l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__2 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__2(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__2); +l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__3 = _init_l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__3(); +lean_mark_persistent(l_Lean_myMacro____x40_Lean_Util_Trace___hyg_362____closed__3); return lean_io_result_mk_ok(lean_box(0)); } #ifdef __cplusplus