From ff4370441181bf490448be8ff792fc5560c47f71 Mon Sep 17 00:00:00 2001 From: Leonardo de Moura Date: Wed, 22 Jan 2020 12:59:33 -0800 Subject: [PATCH] chore: update stage0 --- stage0/src/Init/Lean/Elab/Syntax.lean | 71 +- stage0/src/Init/Lean/Elab/Tactic/Basic.lean | 40 +- stage0/src/Init/Lean/Hygiene.lean | 14 - stage0/src/Init/Lean/Parser/Parser.lean | 35 +- stage0/src/Init/Lean/Syntax.lean | 161 - stage0/src/Init/LeanInit.lean | 190 + stage0/stdlib/Init/Lean/Elab/Command.c | 4 +- stage0/stdlib/Init/Lean/Elab/Syntax.c | 9020 ++++++++++--------- stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c | 3385 ++++--- stage0/stdlib/Init/Lean/Elab/Term.c | 4 +- stage0/stdlib/Init/Lean/Hygiene.c | 62 - stage0/stdlib/Init/Lean/Meta/Offset.c | 4 +- stage0/stdlib/Init/Lean/Parser/Command.c | 813 +- stage0/stdlib/Init/Lean/Parser/Level.c | 315 +- stage0/stdlib/Init/Lean/Parser/Parser.c | 2642 +++--- stage0/stdlib/Init/Lean/Parser/Syntax.c | 360 +- stage0/stdlib/Init/Lean/Parser/Term.c | 363 +- stage0/stdlib/Init/Lean/Syntax.c | 1790 ---- stage0/stdlib/Init/LeanInit.c | 1936 ++++ 19 files changed, 11111 insertions(+), 10098 deletions(-) diff --git a/stage0/src/Init/Lean/Elab/Syntax.lean b/stage0/src/Init/Lean/Elab/Syntax.lean index a462c84314..dd3fc6b20d 100644 --- a/stage0/src/Init/Lean/Elab/Syntax.lean +++ b/stage0/src/Init/Lean/Elab/Syntax.lean @@ -31,31 +31,29 @@ else if ds.size == 1 then else ds.foldlFromM (fun r d => `(ParserDescr.andthen $r $d)) (ds.get! 0) 1 -/- The translator from `syntax` to `ParserDescr` syntax uses the following modes -/ -inductive ToParserDescrMode -| anyCat -- Node kind `Lean.Parser.Syntax.cat` is allowed for any category -| exceptCat (catName : Name) -- Node kind `Lean.Parser.Syntax.cat` is allowed if the category is not `catName` -| toPushLeading (catName : Name) -- Node kind `Lean.Parser.Syntax.cat` is allowed if the category is `catName`, and it is translated into `ParserDescr.pushLeading` +structure ToParserDescrContext := +(catName : Name) +(first : Bool) +(pushLeadingAllowed : Bool) +/- When `leadingIdentAsSymbol == true` we convert + `Lean.Parser.Syntax.atom` into `Lean.ParserDescr.nonReservedSymbol` + See comment at `Parser.ParserCategory`. -/ +(leadingIdentAsSymbol : Bool) -abbrev ToParserDescrM := ReaderT ToParserDescrMode (StateT Bool TermElabM) -private def getMode : ToParserDescrM ToParserDescrMode := read +abbrev ToParserDescrM := ReaderT ToParserDescrContext (StateT Bool TermElabM) private def markAsTrailingParser : ToParserDescrM Unit := set true -@[inline] private def withAnyIfNotFirst {α} (first : Bool) (x : ToParserDescrM α) : ToParserDescrM α := -fun mode => match mode, first with - | mode, true => x mode - | _, false => x ToParserDescrMode.anyCat +@[inline] private def withFirst {α} (first : Bool) (x : ToParserDescrM α) : ToParserDescrM α := +adaptReader (fun (ctx : ToParserDescrContext) => { first := ctx.first && first, .. ctx }) x @[inline] private def withNoPushLeading {α} (x : ToParserDescrM α) : ToParserDescrM α := -fun mode => match mode with - | ToParserDescrMode.toPushLeading cat => x (ToParserDescrMode.exceptCat cat) - | mode => x mode +adaptReader (fun (ctx : ToParserDescrContext) => { pushLeadingAllowed := false, .. ctx }) x partial def toParserDescrAux : Syntax → ToParserDescrM Syntax | stx => let kind := stx.getKind; if kind == nullKind then do - args ← stx.getArgs.mapIdxM $ fun i arg => withAnyIfNotFirst (i == 0) (toParserDescrAux arg); + args ← stx.getArgs.mapIdxM $ fun i arg => withFirst (i == 0) (toParserDescrAux arg); liftM $ mkParserSeq args else if kind == choiceKind then do toParserDescrAux (stx.getArg 0) @@ -66,30 +64,26 @@ partial def toParserDescrAux : Syntax → ToParserDescrM Syntax let rbp? : Option Nat := expandOptPrecedence (stx.getArg 1); env ← liftM getEnv; unless (Parser.isParserCategory env cat) $ liftM $ throwError (stx.getArg 3) ("unknown category '" ++ cat ++ "'"); - mode ← getMode; - match mode with - | ToParserDescrMode.toPushLeading cat' => - if cat == cat' then do - unless rbp?.isNone $ liftM $ throwError (stx.getArg 1) ("invalid occurrence of ':' modifier in head"); - markAsTrailingParser; -- mark as trailing par - `(ParserDescr.pushLeading) - else - let rbp := rbp?.getD 0; - `(ParserDescr.parser $(quote cat) $(quote rbp)) - | ToParserDescrMode.anyCat => + ctx ← read; + if ctx.first && cat == ctx.catName then do + unless rbp?.isNone $ liftM $ throwError (stx.getArg 1) ("invalid occurrence of ':' modifier in head"); + ctx ← read; + unless ctx.pushLeadingAllowed $ liftM $ + throwError (stx.getArg 3) ("invalid occurrence of '" ++ cat ++ "', parser algorithm does not allow this form of left recursion"); + markAsTrailingParser; -- mark as trailing par + `(ParserDescr.pushLeading) + else let rbp := rbp?.getD 0; `(ParserDescr.parser $(quote cat) $(quote rbp)) - | ToParserDescrMode.exceptCat cat' => - if cat == cat' then - liftM $ throwError (stx.getArg 3) ("invalid occurrence of '" ++ cat ++ "', parser algorithm does not allow this form of left recursion") - else - let rbp := rbp?.getD 0; - `(ParserDescr.parser $(quote cat) $(quote rbp)) else if kind == `Lean.Parser.Syntax.atom then do match (stx.getArg 0).isStrLit? with - | some atom => - let rbp : Option Nat := expandOptPrecedence (stx.getArg 1); - `(ParserDescr.symbol $(quote atom) $(quote rbp)) + | some atom => do + let rbp? : Option Nat := expandOptPrecedence (stx.getArg 1); + ctx ← read; + if ctx.leadingIdentAsSymbol && rbp?.isNone then + `(ParserDescr.nonReservedSymbol $(quote atom) false) + else + `(ParserDescr.symbol $(quote atom) $(quote rbp?)) | none => liftM throwUnsupportedSyntax else if kind == `Lean.Parser.Syntax.num then `(ParserDescr.num) @@ -133,9 +127,10 @@ partial def toParserDescrAux : Syntax → ToParserDescrM Syntax Given a `stx` of category `syntax`, return a pair `(newStx, trailingParser)`, where `newStx` is of category `term`. After elaboration, `newStx` should have type `TrailingParserDescr` if `trailingParser == true`, and `ParserDescr` otherwise. -/ -def toParserDescr (stx : Syntax) (catName : Name) : TermElabM (Syntax × Bool) := -let mode := ToParserDescrMode.toPushLeading catName; -(toParserDescrAux stx mode).run false +def toParserDescr (stx : Syntax) (catName : Name) : TermElabM (Syntax × Bool) := do +env ← getEnv; +let leadingIdentAsSymbol := Parser.leadingIdentAsSymbol env catName; +(toParserDescrAux stx { catName := catName, first := true, pushLeadingAllowed := true, leadingIdentAsSymbol := leadingIdentAsSymbol }).run false end Term diff --git a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean index cd475587af..6f247a7943 100644 --- a/stage0/src/Init/Lean/Elab/Tactic/Basic.lean +++ b/stage0/src/Init/Lean/Elab/Tactic/Basic.lean @@ -160,15 +160,38 @@ private def evalTacticUsing (s : State) (stx : Syntax) : List Tactic → TacticM | [] => do let refFmt := stx.prettyPrint; throwError stx ("unexpected syntax" ++ MessageData.nest 2 (Format.line ++ refFmt)) -| (elabFn::elabFns) => catch (elabFn stx) +| (evalFn::evalFns) => catch (evalFn stx) (fun ex => match ex with - | Exception.error _ => throw ex - | Exception.unsupportedSyntax => do set s; evalTacticUsing elabFns) + | Exception.error _ => + match evalFns with + | [] => throw ex + | _ => do set s; evalTacticUsing evalFns + | Exception.unsupportedSyntax => do set s; evalTacticUsing evalFns) /- Elaborate `x` with `stx` on the macro stack -/ @[inline] def withMacroExpansion {α} (stx : Syntax) (x : TacticM α) : TacticM α := adaptReader (fun (ctx : Context) => { macroStack := stx :: ctx.macroStack, .. ctx }) x +@[specialize] private def expandTacticMacroFns (evalTactic : Syntax → TacticM Unit) (stx : Syntax) : List Macro → TacticM Unit +| [] => throwError stx ("tactic '" ++ toString stx.getKind ++ "' has not been implemented") +| m::ms => do + scp ← getCurrMacroScope; + match m stx scp with + | none => expandTacticMacroFns ms + | some stx' => + catch + (evalTactic stx') + (fun ex => match ms with + | [] => throw ex + | _ => expandTacticMacroFns ms) + +@[inline] def expandTacticMacro (evalTactic : Syntax → TacticM Unit) (stx : Syntax) : TacticM Unit := do +env ← getEnv; +let k := stx.getKind; +let table := (macroAttribute.ext.getState env).table; +let macroFns := (table.find? k).getD []; +expandTacticMacroFns evalTactic stx macroFns + partial def evalTactic : Syntax → TacticM Unit | stx => withIncRecDepth stx $ withFreshMacroScope $ match stx with | Syntax.node k args => @@ -177,18 +200,13 @@ partial def evalTactic : Syntax → TacticM Unit -- Syntax quotations can return multiple ones stx.forSepArgsM evalTactic else do - trace `Elab.step stx $ fun _ => stx; + trace `Elab.step stx $ fun _ => stx; s ← get; let table := (tacticElabAttribute.ext.getState s.env).table; let k := stx.getKind; match table.find? k with - | some elabFns => evalTacticUsing s stx elabFns - | none => do - scp ← getCurrMacroScope; - env ← getEnv; - match expandMacro env stx scp with - | some stx' => withMacroExpansion stx $ evalTactic stx' - | none => throwError stx ("tactic '" ++ toString k ++ "' has not been implemented") + | some evalFns => evalTacticUsing s stx evalFns + | none => expandTacticMacro evalTactic stx | _ => throwError stx "unexpected command" /-- Adapt a syntax transformation to a regular tactic evaluator. -/ diff --git a/stage0/src/Init/Lean/Hygiene.lean b/stage0/src/Init/Lean/Hygiene.lean index 3fd06bfc8d..eff45f08a9 100644 --- a/stage0/src/Init/Lean/Hygiene.lean +++ b/stage0/src/Init/Lean/Hygiene.lean @@ -35,20 +35,6 @@ instance MonadQuotation : MonadQuotation Unhygienic := { protected def run {α : Type} (x : Unhygienic α) : α := run x 0 1 end Unhygienic -private def extractMacroScopesAux : Name → List MacroScope → Name × List MacroScope -| Name.num n scp _, acc => extractMacroScopesAux n (scp::acc) -| n , acc => (n, acc.reverse) - -/-- - Revert all `addMacroScope` calls. `(n', scps) = extractMacroScopes n → n = addMacroScopes n' scps`. - This operation is useful for analyzing/transforming the original identifiers, then adding back - the scopes (via `addMacroScopes`). -/ -def extractMacroScopes (n : Name) : Name × List MacroScope := -extractMacroScopesAux n [] - -def Name.eraseMacroScopes (n : Name) : Name := -(extractMacroScopes n).1 - instance monadQuotationTrans {m n : Type → Type} [MonadQuotation m] [HasMonadLift m n] [MonadFunctorT m m n n] : MonadQuotation n := { getCurrMacroScope := liftM (getCurrMacroScope : m Nat), withFreshMacroScope := fun α => monadMap (fun α => (withFreshMacroScope : m α → m α)) } diff --git a/stage0/src/Init/Lean/Parser/Parser.lean b/stage0/src/Init/Lean/Parser/Parser.lean index a184fcd825..b841a90258 100644 --- a/stage0/src/Init/Lean/Parser/Parser.lean +++ b/stage0/src/Init/Lean/Parser/Parser.lean @@ -1070,7 +1070,7 @@ fun _ c s => let s := tokenFn c s; if s.hasError || !(s.stxStack.back.isOfKind numLitKind) then s.mkErrorAt "numeral" iniPos else s -@[inline] def numLit {k : ParserKind} : Parser k := +@[inline] def numLitNoAntiquot {k : ParserKind} : Parser k := { fn := numLitFn, info := mkAtomicInfo "numLit" } @@ -1080,7 +1080,7 @@ fun _ c s => let s := tokenFn c s; if s.hasError || !(s.stxStack.back.isOfKind strLitKind) then s.mkErrorAt "string literal" iniPos else s -@[inline] def strLit {k : ParserKind} : Parser k := +@[inline] def strLitNoAntiquot {k : ParserKind} : Parser k := { fn := strLitFn, info := mkAtomicInfo "strLit" } @@ -1090,7 +1090,7 @@ fun _ c s => let s := tokenFn c s; if s.hasError || !(s.stxStack.back.isOfKind charLitKind) then s.mkErrorAt "character literal" iniPos else s -@[inline] def charLit {k : ParserKind} : Parser k := +@[inline] def charLitNoAntiquot {k : ParserKind} : Parser k := { fn := charLitFn, info := mkAtomicInfo "charLit" } @@ -1476,6 +1476,15 @@ mkAntiquot "ident" `ident <|> identNoAntiquot def rawIdent {k : ParserKind} : Parser k := mkAntiquot "ident" `ident <|> rawIdentNoAntiquot +def numLit {k : ParserKind} : Parser k := +mkAntiquot "numLit" numLitKind <|> numLitNoAntiquot + +def strLit {k : ParserKind} : Parser k := +mkAntiquot "strLit" strLitKind <|> strLitNoAntiquot + +def charLit {k : ParserKind} : Parser k := +mkAntiquot "charLit" charLitKind <|> charLitNoAntiquot + def categoryParserOfStackFn (offset : Nat) : ParserFn leading := fun rbp ctx s => let stack := s.stxStack; @@ -1747,13 +1756,31 @@ if isParserCategory env catName then else pure $ parserExtension.addEntry env $ ParserExtensionEntry.category catName leadingIdentAsSymbol -def categoryParserFnImpl (catName : Name) : ParserFn leading := +/- + Return true if in the given category leading identifiers in parsers may be treated as atoms/symbols. + See comment at `ParserCategory`. -/ +def leadingIdentAsSymbol (env : Environment) (catName : Name) : Bool := +match (parserExtension.getState env).categories.find? catName with +| none => false +| some cat => cat.leadingIdentAsSymbol + +def categoryParserFnImplAux (catName : Name) : ParserFn leading := fun rbp ctx s => let categories := (parserExtension.getState ctx.env).categories; match categories.find? catName with | some cat => prattParser catName cat.tables cat.leadingIdentAsSymbol rbp ctx s | none => s.mkUnexpectedError ("unknown parser category '" ++ toString catName ++ "'") +private def catNameToString : Name → String +| Name.str Name.anonymous s _ => s +| n => n.toString + +def categoryParserFnImpl (catName : Name) : ParserFn leading := +if catName != `term then + orelseFn (mkAntiquot (catNameToString catName) none false).fn (categoryParserFnImplAux catName) +else + categoryParserFnImplAux catName + @[init] def setCategoryParserFnRef : IO Unit := categoryParserFnRef.set categoryParserFnImpl diff --git a/stage0/src/Init/Lean/Syntax.lean b/stage0/src/Init/Lean/Syntax.lean index a6b091ce22..46263d0f4d 100644 --- a/stage0/src/Init/Lean/Syntax.lean +++ b/stage0/src/Init/Lean/Syntax.lean @@ -316,165 +316,4 @@ mkStxStrLit val def mkStxNumLitAux (val : Nat) : Syntax := mkStxNumLit (toString val) -namespace Syntax - -/- Recall that we don't have special Syntax constructors for storing numeric and string atoms. - The idea is to have an extensible approach where embedded DSLs may have new kind of atoms and/or - different ways of representing them. So, our atoms contain just the parsed string. - The main Lean parser uses the kind `numLitKind` for storing natural numbers that can be encoded - in binary, octal, decimal and hexadecimal format. `isNatLit` implements a "decoder" - for Syntax objects representing these numerals. -/ - -private partial def decodeBinLitAux (s : String) : String.Pos → Nat → Option Nat -| i, val => - if s.atEnd i then some val - else - let c := s.get i; - if c == '0' then decodeBinLitAux (s.next i) (2*val) - else if c == '1' then decodeBinLitAux (s.next i) (2*val + 1) - else none - -private partial def decodeOctalLitAux (s : String) : String.Pos → Nat → Option Nat -| i, val => - if s.atEnd i then some val - else - let c := s.get i; - if '0' ≤ c && c ≤ '7' then decodeOctalLitAux (s.next i) (8*val + c.toNat - '0'.toNat) - else none - -private def decodeHexDigit (s : String) (i : String.Pos) : Option (Nat × String.Pos) := -let c := s.get i; -let i := s.next i; -if '0' ≤ c && c ≤ '9' then some (c.toNat - '0'.toNat, i) -else if 'a' ≤ c && c ≤ 'f' then some (10 + c.toNat - 'a'.toNat, i) -else if 'A' ≤ c && c ≤ 'F' then some (10 + c.toNat - 'A'.toNat, i) -else none - -private partial def decodeHexLitAux (s : String) : String.Pos → Nat → Option Nat -| i, val => - if s.atEnd i then some val - else match decodeHexDigit s i with - | some (d, i) => decodeHexLitAux i (16*val + d) - | none => none - -private partial def decodeDecimalLitAux (s : String) : String.Pos → Nat → Option Nat -| i, val => - if s.atEnd i then some val - else - let c := s.get i; - if '0' ≤ c && c ≤ '9' then decodeDecimalLitAux (s.next i) (10*val + c.toNat - '0'.toNat) - else none - -private def decodeNatLitVal (s : String) : Option Nat := -let len := s.length; -if len == 0 then none -else - let c := s.get 0; - if c == '0' then - if len == 1 then some 0 - else - let c := s.get 1; - if c == 'x' || c == 'X' then decodeHexLitAux s 2 0 - else if c == 'b' || c == 'B' then decodeBinLitAux s 2 0 - else if c == 'o' || c == 'O' then decodeOctalLitAux s 2 0 - else if c.isDigit then decodeDecimalLitAux s 0 0 - else none - else if c.isDigit then decodeDecimalLitAux s 0 0 - else none - -def isNatLitAux (nodeKind : SyntaxNodeKind) : Syntax → Option Nat -| Syntax.node k args => - if k == nodeKind && args.size == 1 then - match args.get! 0 with - | (Syntax.atom _ val) => decodeNatLitVal val - | _ => none - else - none -| _ => none - -def isNatLit? (s : Syntax) : Option Nat := -isNatLitAux numLitKind s - -def isFieldIdx? (s : Syntax) : Option Nat := -isNatLitAux fieldIdxKind s - -def isIdOrAtom? : Syntax → Option String -| Syntax.atom _ val => some val -| Syntax.ident _ rawVal _ _ => some rawVal.toString -| _ => none - -def toNat (stx : Syntax) : Nat := -match stx.isNatLit? with -| some val => val -| none => 0 - -private def decodeQuotedChar (s : String) (i : String.Pos) : Option (Char × String.Pos) := -let c := s.get i; -let i := s.next i; -if c == '\\' then pure ('\\', i) -else if c = '\"' then pure ('\"', i) -else if c = '\'' then pure ('\'', i) -else if c = 'n' then pure ('\n', i) -else if c = 't' then pure ('\t', i) -else if c = 'x' then do - (d₁, i) ← decodeHexDigit s i; - (d₂, i) ← decodeHexDigit s i; - pure (Char.ofNat (16*d₁ + d₂), i) -else if c = 'u' then do - (d₁, i) ← decodeHexDigit s i; - (d₂, i) ← decodeHexDigit s i; - (d₃, i) ← decodeHexDigit s i; - (d₄, i) ← decodeHexDigit s i; - pure $ (Char.ofNat (16*(16*(16*d₁ + d₂) + d₃) + d₄), i) -else - none - -partial def decodeStrLitAux (s : String) : String.Pos → String → Option String -| i, acc => do - let c := s.get i; - let i := s.next i; - if c == '\"' then - pure acc - else if c == '\\' then do - (c, i) ← decodeQuotedChar s i; - decodeStrLitAux i (acc.push c) - else - decodeStrLitAux i (acc.push c) - -def decodeStrLit (s : String) : Option String := -decodeStrLitAux s 1 "" - -def isStrLit? : Syntax → Option String -| Syntax.node k args => - if k == strLitKind && args.size == 1 then - match args.get! 0 with - | (Syntax.atom _ val) => decodeStrLit val - | _ => none - else - none -| _ => none - -def decodeCharLit (s : String) : Option Char := -let c := s.get 1; -if c == '\\' then do - (c, _) ← decodeQuotedChar s 2; - pure c -else - pure c - -def isCharLit? : Syntax → Option Char -| Syntax.node k args => - if k == charLitKind && args.size == 1 then - match args.get! 0 with - | (Syntax.atom _ val) => decodeCharLit val - | _ => none - else - none -| _ => none - -def hasArgs : Syntax → Bool -| Syntax.node _ args => args.size > 0 -| _ => false - -end Syntax end Lean diff --git a/stage0/src/Init/LeanInit.lean b/stage0/src/Init/LeanInit.lean index 9b39f6e0a1..415100159f 100644 --- a/stage0/src/Init/LeanInit.lean +++ b/stage0/src/Init/LeanInit.lean @@ -226,6 +226,20 @@ mkNameNum n scp def addMacroScopes (n : Name) (scps : List MacroScope) : Name := scps.foldl addMacroScope n +private def extractMacroScopesAux : Name → List MacroScope → Name × List MacroScope +| Name.num n scp _, acc => extractMacroScopesAux n (scp::acc) +| n , acc => (n, acc.reverse) + +/-- + Revert all `addMacroScope` calls. `(n', scps) = extractMacroScopes n → n = addMacroScopes n' scps`. + This operation is useful for analyzing/transforming the original identifiers, then adding back + the scopes (via `addMacroScopes`). -/ +def extractMacroScopes (n : Name) : Name × List MacroScope := +extractMacroScopesAux n [] + +def Name.eraseMacroScopes (n : Name) : Name := +(extractMacroScopes n).1 + abbrev MacroM := ReaderT MacroScope (OptionT Id) instance MacroM.monadQuotation : MonadQuotation MacroM := @@ -264,6 +278,11 @@ def mkAtomFrom (src : Syntax) (val : String) : Syntax := let info := src.getHeadInfo; Syntax.atom info val +def Syntax.identToAtom (stx : Syntax) : Syntax := +match stx with +| Syntax.ident info _ val _ => Syntax.atom info val.eraseMacroScopes.toString +| _ => stx + @[export lean_mk_syntax_ident] def mkIdent (val : Name) : Syntax := Syntax.ident none (toString val).toSubstring val [] @@ -321,6 +340,177 @@ mkStxLit strLitKind (repr val) info def mkStxNumLit (val : String) (info : Option SourceInfo := none) : Syntax := mkStxLit numLitKind val info +namespace Syntax + +/- Recall that we don't have special Syntax constructors for storing numeric and string atoms. + The idea is to have an extensible approach where embedded DSLs may have new kind of atoms and/or + different ways of representing them. So, our atoms contain just the parsed string. + The main Lean parser uses the kind `numLitKind` for storing natural numbers that can be encoded + in binary, octal, decimal and hexadecimal format. `isNatLit` implements a "decoder" + for Syntax objects representing these numerals. -/ + +private partial def decodeBinLitAux (s : String) : String.Pos → Nat → Option Nat +| i, val => + if s.atEnd i then some val + else + let c := s.get i; + if c == '0' then decodeBinLitAux (s.next i) (2*val) + else if c == '1' then decodeBinLitAux (s.next i) (2*val + 1) + else none + +private partial def decodeOctalLitAux (s : String) : String.Pos → Nat → Option Nat +| i, val => + if s.atEnd i then some val + else + let c := s.get i; + if '0' ≤ c && c ≤ '7' then decodeOctalLitAux (s.next i) (8*val + c.toNat - '0'.toNat) + else none + +private def decodeHexDigit (s : String) (i : String.Pos) : Option (Nat × String.Pos) := +let c := s.get i; +let i := s.next i; +if '0' ≤ c && c ≤ '9' then some (c.toNat - '0'.toNat, i) +else if 'a' ≤ c && c ≤ 'f' then some (10 + c.toNat - 'a'.toNat, i) +else if 'A' ≤ c && c ≤ 'F' then some (10 + c.toNat - 'A'.toNat, i) +else none + +private partial def decodeHexLitAux (s : String) : String.Pos → Nat → Option Nat +| i, val => + if s.atEnd i then some val + else match decodeHexDigit s i with + | some (d, i) => decodeHexLitAux i (16*val + d) + | none => none + +private partial def decodeDecimalLitAux (s : String) : String.Pos → Nat → Option Nat +| i, val => + if s.atEnd i then some val + else + let c := s.get i; + if '0' ≤ c && c ≤ '9' then decodeDecimalLitAux (s.next i) (10*val + c.toNat - '0'.toNat) + else none + +private def decodeNatLitVal (s : String) : Option Nat := +let len := s.length; +if len == 0 then none +else + let c := s.get 0; + if c == '0' then + if len == 1 then some 0 + else + let c := s.get 1; + if c == 'x' || c == 'X' then decodeHexLitAux s 2 0 + else if c == 'b' || c == 'B' then decodeBinLitAux s 2 0 + else if c == 'o' || c == 'O' then decodeOctalLitAux s 2 0 + else if c.isDigit then decodeDecimalLitAux s 0 0 + else none + else if c.isDigit then decodeDecimalLitAux s 0 0 + else none + +def isNatLitAux (nodeKind : SyntaxNodeKind) : Syntax → Option Nat +| Syntax.node k args => + if k == nodeKind && args.size == 1 then + match args.get! 0 with + | (Syntax.atom _ val) => decodeNatLitVal val + | _ => none + else + none +| _ => none + +def isNatLit? (s : Syntax) : Option Nat := +isNatLitAux numLitKind s + +def isFieldIdx? (s : Syntax) : Option Nat := +isNatLitAux fieldIdxKind s + +def isIdOrAtom? : Syntax → Option String +| Syntax.atom _ val => some val +| Syntax.ident _ rawVal _ _ => some rawVal.toString +| _ => none + +def toNat (stx : Syntax) : Nat := +match stx.isNatLit? with +| some val => val +| none => 0 + +private def decodeQuotedChar (s : String) (i : String.Pos) : Option (Char × String.Pos) := +let c := s.get i; +let i := s.next i; +if c == '\\' then pure ('\\', i) +else if c = '\"' then pure ('\"', i) +else if c = '\'' then pure ('\'', i) +else if c = 'n' then pure ('\n', i) +else if c = 't' then pure ('\t', i) +else if c = 'x' then do + (d₁, i) ← decodeHexDigit s i; + (d₂, i) ← decodeHexDigit s i; + pure (Char.ofNat (16*d₁ + d₂), i) +else if c = 'u' then do + (d₁, i) ← decodeHexDigit s i; + (d₂, i) ← decodeHexDigit s i; + (d₃, i) ← decodeHexDigit s i; + (d₄, i) ← decodeHexDigit s i; + pure $ (Char.ofNat (16*(16*(16*d₁ + d₂) + d₃) + d₄), i) +else + none + +partial def decodeStrLitAux (s : String) : String.Pos → String → Option String +| i, acc => do + let c := s.get i; + let i := s.next i; + if c == '\"' then + pure acc + else if c == '\\' then do + (c, i) ← decodeQuotedChar s i; + decodeStrLitAux i (acc.push c) + else + decodeStrLitAux i (acc.push c) + +def decodeStrLit (s : String) : Option String := +decodeStrLitAux s 1 "" + +def isStrLit? : Syntax → Option String +| Syntax.node k args => + if k == strLitKind && args.size == 1 then + match args.get! 0 with + | (Syntax.atom _ val) => decodeStrLit val + | _ => none + else + none +| _ => none + +def decodeCharLit (s : String) : Option Char := +let c := s.get 1; +if c == '\\' then do + (c, _) ← decodeQuotedChar s 2; + pure c +else + pure c + +def isCharLit? : Syntax → Option Char +| Syntax.node k args => + if k == charLitKind && args.size == 1 then + match args.get! 0 with + | (Syntax.atom _ val) => decodeCharLit val + | _ => none + else + none +| _ => none + +def hasArgs : Syntax → Bool +| Syntax.node _ args => args.size > 0 +| _ => false + +def identToStrLit (stx : Syntax) : Syntax := +match stx with +| Syntax.ident info _ val _ => mkStxStrLit val.toString info +| _ => stx + +def strLitToAtom (stx : Syntax) : Syntax := +match stx.isStrLit? with +| none => stx +| some val => Syntax.atom stx.getHeadInfo val + +end Syntax end Lean abbrev Array.getSepElems := @Array.getEvenElems diff --git a/stage0/stdlib/Init/Lean/Elab/Command.c b/stage0/stdlib/Init/Lean/Elab/Command.c index a1c1118fb5..6a846895da 100644 --- a/stage0/stdlib/Init/Lean/Elab/Command.c +++ b/stage0/stdlib/Init/Lean/Elab/Command.c @@ -475,6 +475,7 @@ lean_object* l_Lean_Elab_Command_throwAlreadyDeclaredUniverseLevel___rarg(lean_o extern lean_object* l_Lean_Parser_Command_openOnly___elambda__1___closed__2; lean_object* l_Array_toList___rarg(lean_object*); lean_object* l_Lean_Elab_Command_CommandElabM_monadLog___lambda__3(lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2; lean_object* l_Lean_Elab_Command_setOption___closed__3; lean_object* l_Lean_Elab_Command_registerBuiltinCommandElabAttr___lambda__1___closed__5; lean_object* l___private_Init_Lean_Elab_Command_4__modifyGetState___rarg(lean_object*, lean_object*, lean_object*); @@ -537,7 +538,6 @@ lean_object* l_Lean_Elab_Command_elabOpenOnly___boxed(lean_object*, lean_object* extern lean_object* l_Lean_Parser_Command_synth___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_registerBuiltinCommandElabAttr___lambda__1___closed__1; lean_object* l_Lean_Elab_Command_elabSynth___closed__3; -extern lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; lean_object* l_IO_ofExcept___at___private_Init_Lean_Elab_Util_6__ElabAttribute_add___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_mkMessageAux(lean_object*, lean_object*, lean_object*, uint8_t); lean_object* l_Lean_mkConst(lean_object*, lean_object*); @@ -3755,7 +3755,7 @@ lean_dec(x_13); lean_dec(x_11); lean_dec(x_2); lean_dec(x_1); -x_25 = l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +x_25 = l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___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_12); diff --git a/stage0/stdlib/Init/Lean/Elab/Syntax.c b/stage0/stdlib/Init/Lean/Elab/Syntax.c index 3542d176f1..e68042d1a8 100644 --- a/stage0/stdlib/Init/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Init/Lean/Elab/Syntax.c @@ -22,26 +22,28 @@ extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__2; lean_object* l_Lean_Elab_Command_elabNotation___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__24; +lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst(lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__2; +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__79; extern lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__1; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabNotation___lambda__1___closed__4; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__116; lean_object* l_Lean_registerTraceClass(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__12; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__7; lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_many___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_getOptions(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__19; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__128; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__58; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__114; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabNotation(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__75; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve(lean_object*); extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__1; extern lean_object* l_Lean_Parser_Syntax_many1___elambda__1___closed__1; @@ -61,6 +63,7 @@ extern lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersA uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabNotation___lambda__1___closed__1; extern lean_object* l_Lean_Parser_Syntax_many1___elambda__1___closed__2; +lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst___rarg(uint8_t, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__104; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve___closed__1; lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); @@ -75,14 +78,16 @@ lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__15; lean_object* l_Lean_Elab_Command_elabSyntax___closed__7; lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern(lean_object*, lean_object*, lean_object*); extern lean_object* l_PersistentHashMap_mkCollisionNode___rarg___closed__1; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_orelse___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__101; extern lean_object* l_Array_empty___closed__1; +lean_object* l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__46; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve___closed__2; -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main(lean_object*, lean_object*); uint8_t l_Lean_checkTraceOption(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__24; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__8; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1; extern lean_object* l_Lean_Parser_Command_declaration___elambda__1___closed__2; @@ -91,28 +96,26 @@ extern lean_object* l_Lean_Parser_Level_num___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__19; lean_object* l_Lean_Elab_Command_strLitPrecToPattern___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_3__getMode(lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Command_8__getVarDecls(lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__16; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__118; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__39; lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading(lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__51; extern lean_object* l_Lean_Parser_Term_num___elambda__1___closed__1; lean_object* l_Lean_Elab_Command_strLitPrecToPattern(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabNotation___closed__1; +lean_object* l___private_Init_Lean_Elab_Syntax_8__regTraceClasses(lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__20; extern lean_object* l_Lean_Elab_mkMacroAttribute___closed__3; -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__4(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_9__regTraceClasses(lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__81; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMixfix___closed__1; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__124; extern lean_object* l_Lean_Parser_Syntax_ident___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__73; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__98; @@ -125,25 +128,30 @@ lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabNotation___spec_ lean_object* l_Lean_Elab_Command_elabSyntax___closed__10; extern lean_object* l_Lean_Parser_Command_mixfix___elambda__1___closed__2; lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabMacro___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__16; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__1; +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__43; lean_object* l___private_Init_Lean_Elab_Quotation_1__quoteName___main(lean_object*); extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__2; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__120; extern lean_object* l_Lean_mkAppStx___closed__8; lean_object* l_Lean_Elab_Command_elabMixfix___boxed(lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__5; lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__103; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__132; lean_object* l_Lean_Elab_Command_addBuiltinCommandElab(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__28; lean_object* l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__6___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__123; lean_object* l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__30; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__6; +uint8_t l_Lean_Parser_leadingIdentAsSymbol(lean_object*, lean_object*); extern lean_object* l_Lean_mkTermIdFromIdent___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__16; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__23; @@ -151,18 +159,16 @@ extern lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__49; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__105; extern lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main(lean_object*, lean_object*); lean_object* l_Array_filterAux___main___at_Lean_Elab_Command_elabNotation___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__6(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__115; lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacroRules___closed__3; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__85; lean_object* l_Lean_Elab_Command_elabMacro___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__100; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__1; -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern(lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); extern lean_object* l_Lean_Syntax_getKind___closed__4; @@ -171,6 +177,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__112; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__2; lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMixfix___rarg(lean_object*); +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__127; lean_object* l_Lean_Elab_Command_getCurrNamespace(lean_object*, lean_object*); uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__61; @@ -180,9 +187,7 @@ extern lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__2; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabNotation___closed__2; extern lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; extern lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__1; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__87; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__68; lean_object* l_Lean_Elab_Command_elabNotation___lambda__1___closed__3; @@ -200,23 +205,24 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacroRules___closed lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__67; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__83; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabNotation___closed__3; -lean_object* l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Command_def___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; +extern lean_object* l___private_Init_Lean_Elab_Term_6__exceptionToSorry___closed__1; lean_object* l_Lean_Elab_Command_elabNotation___lambda__1___closed__5; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__11; -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser(lean_object*, uint8_t, lean_object*); +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__129; lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Unhygienic_run___rarg(lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__25; extern lean_object* l_Lean_Parser_Command_def___elambda__1___closed__1; +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser(lean_object*, uint8_t, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_TermBinders_10__expandFunBindersAux___main___closed__6; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__1; extern lean_object* l_Lean_Elab_Term_mkConst___closed__4; -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2; lean_object* l_Lean_Elab_Command_elabMacroRules___closed__1; +lean_object* l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_unquotedSymbolFn___rarg___closed__1; extern lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__4; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__3; @@ -252,6 +258,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__22; lean_object* l_Lean_Elab_Command_throwError___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__93; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__121; lean_object* l___private_Init_Lean_Elab_Command_6__mkTermContext(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__28; extern lean_object* l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; @@ -266,6 +273,7 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__3; extern lean_object* l_Lean_Parser_Command_identPrec___elambda__1___closed__1; uint8_t l_coeDecidableEq(uint8_t); lean_object* l_Lean_Elab_Command_elabSyntax___closed__14; +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__1; extern lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__2; extern lean_object* l_Lean_Parser_Command_attributes___elambda__1___closed__5; @@ -279,18 +287,20 @@ extern lean_object* l_Lean_Parser_Command_attributes___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__27; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__25; lean_object* l_Lean_Elab_Command_elabSyntax___closed__3; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__9; +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabMacro___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_6__elabKind___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg(lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_7__elabKind(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax(lean_object*); lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__34; extern lean_object* l_Lean_Parser_Command_declModifiers___elambda__1___closed__2; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__117; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__77; @@ -311,12 +321,14 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__71; extern lean_object* l_Lean_mkAppStx___closed__3; lean_object* l___private_Init_Lean_Elab_Command_2__getState(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Elab_Syntax_2__mkParserSeq___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__126; lean_object* l_Lean_Parser_registerParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__63; lean_object* l_Lean_Elab_Command_elabSyntax___closed__9; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__8; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__17; extern lean_object* l_Lean_Parser_Term_str___elambda__1___closed__2; +extern lean_object* l_Bool_HasRepr___closed__1; extern lean_object* l_Lean_Syntax_inhabited; lean_object* l_Lean_Elab_Term_toParserDescrAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__102; @@ -336,30 +348,27 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacro(lean_object*) lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__3; extern lean_object* l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacro___closed__2; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_Parser_isParserCategory(lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__125; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__10; lean_object* l_Lean_Elab_Command_getCurrMacroScope(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_7__elabKind___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Elab_Term_elabArrayLit___closed__12; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacro___closed__1; extern lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Command_reserve___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_elabSyntax___closed__8; lean_object* l_Lean_Syntax_getArgs(lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve___closed__3; lean_object* l_Lean_Syntax_getKind(lean_object*); extern lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__2; -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote(lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_atom___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__48; +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__1; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__111; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__97; -lean_object* l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst___rarg(uint8_t, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object*); lean_object* l_Lean_Parser_mkFreshKind(lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabNotation___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); @@ -374,6 +383,7 @@ lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__ lean_object* l_Lean_Elab_Command_elabSyntax___closed__2; lean_object* l_Lean_Elab_Command_elabReserve___rarg(lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMixfix(lean_object*); +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescr(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_str___elambda__1___closed__1; lean_object* l_Lean_Elab_Command_elabNotation(lean_object*, lean_object*, lean_object*); @@ -385,8 +395,8 @@ lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__4; lean_object* l_Lean_mkStxStrLit(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__110; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__80; -lean_object* l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMixfix___closed__2; +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkCAppStx(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__69; @@ -397,36 +407,40 @@ extern lean_object* l_Lean_Elab_Command_declareBuiltinCommandElab___closed__3; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__4; uint8_t l_Lean_Syntax_isNone(lean_object*); lean_object* l_Lean_Elab_Command_getEnv(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg___closed__1; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__131; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__27; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__17; lean_object* l_Lean_Elab_Command_elabSyntax___closed__23; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__12; -lean_object* l___private_Init_Lean_Elab_Syntax_3__getMode___boxed(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkOptionalNode___closed__1; -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_getRoot___main(lean_object*); lean_object* l_Lean_Elab_Command_elabSyntax___closed__13; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__57; +lean_object* l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__122; extern lean_object* l___private_Init_Lean_Elab_Quotation_5__quoteSyntax___main___closed__55; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__94; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__8; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__65; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__109; +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__1; uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__62; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__54; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__119; extern lean_object* l_Lean_Parser_Command_macro___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__29; -lean_object* l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst(lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__20; +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_elabBinders___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__84; lean_object* l_Lean_Elab_Command_setEnv(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabReserve___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Syntax_getKind___closed__3; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__3; +lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__130; lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabNotation___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Quotation_12__letBindRhss___main___closed__9; extern lean_object* l_Lean_Parser_mkFreshKind___closed__2; @@ -443,6 +457,7 @@ lean_object* l_Lean_Elab_Command_elabMacro___closed__1; extern lean_object* l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__99; extern lean_object* l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__11; extern lean_object* l_Lean_Meta_DiscrTree_Trie_format___main___rarg___closed__1; lean_object* l_Lean_Elab_Command_mkFreshKind(lean_object*, lean_object*, lean_object*); @@ -454,6 +469,7 @@ lean_object* l_Lean_Elab_Command_expandMacroHeadIntoSyntaxItem(lean_object*, lea lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__14; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__18; lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__106; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__24; lean_object* l_Lean_Elab_Command_elabMacro___lambda__1___boxed(lean_object*, lean_object*, lean_object*); @@ -470,15 +486,14 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__88; lean_object* l_Lean_Elab_Command_elabMacro___lambda__1___closed__1; extern lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__2; lean_object* l_Lean_Elab_Command_elabSyntax___closed__26; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__107; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__5; +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMacroHeadIntoPattern___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__72; extern lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__5; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__96; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__13; -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__41; extern lean_object* l_Lean_mkAppStx___closed__2; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__22; @@ -495,13 +510,13 @@ extern lean_object* l_Lean_Parser_mkAntiquot___closed__2; extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1; lean_object* lean_name_mk_numeral(lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__2; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__70; extern lean_object* l_Lean_Parser_Term_char___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__113; lean_object* l___private_Init_Lean_Elab_Command_3__setState(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Syntax_6__elabKind(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__31; extern lean_object* l_Lean_Parser_Level_paren___closed__1; uint8_t lean_string_dec_eq(lean_object*, lean_object*); @@ -779,32 +794,7 @@ lean_dec(x_1); return x_4; } } -lean_object* l___private_Init_Lean_Elab_Syntax_3__getMode(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -lean_object* x_5; lean_object* x_6; lean_object* x_7; -x_5 = lean_box(x_2); -x_6 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_6, 0, x_1); -lean_ctor_set(x_6, 1, x_5); -x_7 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_7, 0, x_6); -lean_ctor_set(x_7, 1, x_4); -return x_7; -} -} -lean_object* l___private_Init_Lean_Elab_Syntax_3__getMode___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { -_start: -{ -uint8_t x_5; lean_object* x_6; -x_5 = lean_unbox(x_2); -lean_dec(x_2); -x_6 = l___private_Init_Lean_Elab_Syntax_3__getMode(x_1, x_5, x_3, x_4); -lean_dec(x_3); -return x_6; -} -} -lean_object* _init_l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg___closed__1() { +lean_object* _init_l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg___closed__1() { _start: { lean_object* x_1; uint8_t x_2; lean_object* x_3; lean_object* x_4; @@ -817,67 +807,115 @@ lean_ctor_set(x_4, 1, x_3); return x_4; } } -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; -x_2 = l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg___closed__1; +x_2 = l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg___closed__1; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); return x_3; } } -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser(lean_object* x_1, uint8_t x_2, lean_object* x_3) { +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser(lean_object* x_1, uint8_t x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg), 1, 0); +x_4 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg), 1, 0); return x_4; } } -lean_object* l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { uint8_t x_4; lean_object* x_5; x_4 = lean_unbox(x_2); lean_dec(x_2); -x_5 = l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser(x_1, x_4, x_3); +x_5 = l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser(x_1, x_4, x_3); lean_dec(x_3); lean_dec(x_1); return x_5; } } -lean_object* l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst___rarg(uint8_t x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst___rarg(uint8_t x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5, lean_object* x_6) { _start: { -if (x_1 == 0) +uint8_t x_7; +x_7 = lean_ctor_get_uint8(x_3, sizeof(void*)*1); +if (x_7 == 0) { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -lean_dec(x_3); -x_7 = lean_box(0); -x_8 = lean_box(x_4); -x_9 = lean_apply_4(x_2, x_7, x_8, x_5, x_6); -return x_9; -} -else +uint8_t x_8; +x_8 = !lean_is_exclusive(x_3); +if (x_8 == 0) { -lean_object* x_10; lean_object* x_11; +uint8_t x_9; lean_object* x_10; lean_object* x_11; +x_9 = 0; +lean_ctor_set_uint8(x_3, sizeof(void*)*1, x_9); x_10 = lean_box(x_4); x_11 = lean_apply_4(x_2, x_3, x_10, x_5, x_6); return x_11; } +else +{ +lean_object* x_12; uint8_t x_13; uint8_t x_14; uint8_t x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; +x_12 = lean_ctor_get(x_3, 0); +x_13 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 1); +x_14 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 2); +lean_inc(x_12); +lean_dec(x_3); +x_15 = 0; +x_16 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_16, 0, x_12); +lean_ctor_set_uint8(x_16, sizeof(void*)*1, x_15); +lean_ctor_set_uint8(x_16, sizeof(void*)*1 + 1, x_13); +lean_ctor_set_uint8(x_16, sizeof(void*)*1 + 2, x_14); +x_17 = lean_box(x_4); +x_18 = lean_apply_4(x_2, x_16, x_17, x_5, x_6); +return x_18; } } -lean_object* l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst(lean_object* x_1) { +else +{ +uint8_t x_19; +x_19 = !lean_is_exclusive(x_3); +if (x_19 == 0) +{ +lean_object* x_20; lean_object* x_21; +lean_ctor_set_uint8(x_3, sizeof(void*)*1, x_1); +x_20 = lean_box(x_4); +x_21 = lean_apply_4(x_2, x_3, x_20, x_5, x_6); +return x_21; +} +else +{ +lean_object* x_22; uint8_t x_23; uint8_t x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; +x_22 = lean_ctor_get(x_3, 0); +x_23 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 1); +x_24 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 2); +lean_inc(x_22); +lean_dec(x_3); +x_25 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_25, 0, x_22); +lean_ctor_set_uint8(x_25, sizeof(void*)*1, x_1); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 1, x_23); +lean_ctor_set_uint8(x_25, sizeof(void*)*1 + 2, x_24); +x_26 = lean_box(x_4); +x_27 = lean_apply_4(x_2, x_25, x_26, x_5, x_6); +return x_27; +} +} +} +} +lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst___rarg___boxed), 6, 0); +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_4__withFirst___rarg___boxed), 6, 0); return x_2; } } -lean_object* l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l___private_Init_Lean_Elab_Syntax_4__withFirst___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { uint8_t x_7; uint8_t x_8; lean_object* x_9; @@ -885,62 +923,59 @@ x_7 = lean_unbox(x_1); lean_dec(x_1); x_8 = lean_unbox(x_4); lean_dec(x_4); -x_9 = l___private_Init_Lean_Elab_Syntax_5__withAnyIfNotFirst___rarg(x_7, x_2, x_3, x_8, x_5, x_6); +x_9 = l___private_Init_Lean_Elab_Syntax_4__withFirst___rarg(x_7, x_2, x_3, x_8, x_5, x_6); return x_9; } } -lean_object* l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading___rarg(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading___rarg(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { _start: { -if (lean_obj_tag(x_2) == 2) -{ uint8_t x_6; x_6 = !lean_is_exclusive(x_2); if (x_6 == 0) { -lean_object* x_7; lean_object* x_8; -lean_ctor_set_tag(x_2, 1); -x_7 = lean_box(x_3); -x_8 = lean_apply_4(x_1, x_2, x_7, x_4, x_5); -return x_8; +uint8_t x_7; lean_object* x_8; lean_object* x_9; +x_7 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_7); +x_8 = lean_box(x_3); +x_9 = lean_apply_4(x_1, x_2, x_8, x_4, x_5); +return x_9; } else { -lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; -x_9 = lean_ctor_get(x_2, 0); -lean_inc(x_9); +lean_object* x_10; uint8_t x_11; uint8_t x_12; uint8_t x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_10 = lean_ctor_get(x_2, 0); +x_11 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_12 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_10); lean_dec(x_2); -x_10 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_10, 0, x_9); -x_11 = lean_box(x_3); -x_12 = lean_apply_4(x_1, x_10, x_11, x_4, x_5); -return x_12; -} -} -else -{ -lean_object* x_13; lean_object* x_14; -x_13 = lean_box(x_3); -x_14 = lean_apply_4(x_1, x_2, x_13, x_4, x_5); -return x_14; +x_13 = 0; +x_14 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_14, 0, x_10); +lean_ctor_set_uint8(x_14, sizeof(void*)*1, x_11); +lean_ctor_set_uint8(x_14, sizeof(void*)*1 + 1, x_13); +lean_ctor_set_uint8(x_14, sizeof(void*)*1 + 2, x_12); +x_15 = lean_box(x_3); +x_16 = lean_apply_4(x_1, x_14, x_15, x_4, x_5); +return x_16; } } } -lean_object* l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading___rarg___boxed), 5, 0); +x_2 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading___rarg___boxed), 5, 0); return x_2; } } -lean_object* l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { uint8_t x_6; lean_object* x_7; x_6 = lean_unbox(x_3); lean_dec(x_3); -x_7 = l___private_Init_Lean_Elab_Syntax_6__withNoPushLeading___rarg(x_1, x_2, x_6, x_4, x_5); +x_7 = l___private_Init_Lean_Elab_Syntax_5__withNoPushLeading___rarg(x_1, x_2, x_6, x_4, x_5); return x_7; } } @@ -987,7 +1022,6 @@ if (x_8 == 0) { lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_dec(x_5); -lean_dec(x_3); lean_dec(x_1); x_9 = l_Array_empty___closed__1; x_10 = x_2; @@ -1002,134 +1036,150 @@ return x_13; } else { -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_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18; x_14 = lean_array_fget(x_2, x_1); x_15 = lean_box(0); x_16 = x_15; x_17 = lean_array_fset(x_2, x_1, x_16); -x_18 = lean_unsigned_to_nat(0u); -x_19 = lean_nat_dec_eq(x_1, x_18); -if (x_19 == 0) +x_18 = lean_ctor_get_uint8(x_3, sizeof(void*)*1); +if (x_18 == 0) { -lean_object* x_20; lean_object* x_21; -x_20 = lean_box(0); +lean_object* x_19; uint8_t x_20; uint8_t x_21; uint8_t x_22; lean_object* x_23; lean_object* x_24; +x_19 = lean_ctor_get(x_3, 0); +x_20 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 1); +x_21 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 2); +x_22 = 0; +lean_inc(x_19); +x_23 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_23, 0, x_19); +lean_ctor_set_uint8(x_23, sizeof(void*)*1, x_22); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 1, x_20); +lean_ctor_set_uint8(x_23, sizeof(void*)*1 + 2, x_21); lean_inc(x_5); lean_inc(x_14); -x_21 = l_Lean_Elab_Term_toParserDescrAux___main(x_14, x_20, x_4, x_5, x_6); -if (lean_obj_tag(x_21) == 0) +x_24 = l_Lean_Elab_Term_toParserDescrAux___main(x_14, x_23, x_4, x_5, x_6); +if (lean_obj_tag(x_24) == 0) { -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; uint8_t x_30; -x_22 = lean_ctor_get(x_21, 0); -lean_inc(x_22); -x_23 = lean_ctor_get(x_21, 1); -lean_inc(x_23); -lean_dec(x_21); -x_24 = lean_ctor_get(x_22, 0); -lean_inc(x_24); -x_25 = lean_ctor_get(x_22, 1); +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; uint8_t x_33; +x_25 = lean_ctor_get(x_24, 0); lean_inc(x_25); -lean_dec(x_22); -x_26 = lean_unsigned_to_nat(1u); -x_27 = lean_nat_add(x_1, x_26); -x_28 = x_24; -lean_dec(x_14); -x_29 = lean_array_fset(x_17, x_1, x_28); -lean_dec(x_1); -x_30 = lean_unbox(x_25); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); +lean_dec(x_24); +x_27 = lean_ctor_get(x_25, 0); +lean_inc(x_27); +x_28 = lean_ctor_get(x_25, 1); +lean_inc(x_28); lean_dec(x_25); -x_1 = x_27; -x_2 = x_29; -x_4 = x_30; -x_6 = x_23; +x_29 = lean_unsigned_to_nat(1u); +x_30 = lean_nat_add(x_1, x_29); +x_31 = x_27; +lean_dec(x_14); +x_32 = lean_array_fset(x_17, x_1, x_31); +lean_dec(x_1); +x_33 = lean_unbox(x_28); +lean_dec(x_28); +x_1 = x_30; +x_2 = x_32; +x_4 = x_33; +x_6 = x_26; goto _start; } else { -uint8_t x_32; +uint8_t x_35; lean_dec(x_17); lean_dec(x_14); lean_dec(x_5); -lean_dec(x_3); lean_dec(x_1); -x_32 = !lean_is_exclusive(x_21); -if (x_32 == 0) +x_35 = !lean_is_exclusive(x_24); +if (x_35 == 0) { -return x_21; +return x_24; } else { -lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_33 = lean_ctor_get(x_21, 0); -x_34 = lean_ctor_get(x_21, 1); -lean_inc(x_34); -lean_inc(x_33); -lean_dec(x_21); -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_33); -lean_ctor_set(x_35, 1, x_34); -return x_35; -} -} -} -else -{ -lean_object* x_36; -lean_inc(x_5); -lean_inc(x_3); -lean_inc(x_14); -x_36 = l_Lean_Elab_Term_toParserDescrAux___main(x_14, x_3, x_4, x_5, x_6); -if (lean_obj_tag(x_36) == 0) -{ -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; uint8_t x_45; -x_37 = lean_ctor_get(x_36, 0); +lean_object* x_36; lean_object* x_37; lean_object* x_38; +x_36 = lean_ctor_get(x_24, 0); +x_37 = lean_ctor_get(x_24, 1); lean_inc(x_37); -x_38 = lean_ctor_get(x_36, 1); -lean_inc(x_38); -lean_dec(x_36); -x_39 = lean_ctor_get(x_37, 0); +lean_inc(x_36); +lean_dec(x_24); +x_38 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_38, 0, x_36); +lean_ctor_set(x_38, 1, x_37); +return x_38; +} +} +} +else +{ +lean_object* x_39; uint8_t x_40; uint8_t x_41; lean_object* x_42; uint8_t x_43; lean_object* x_44; lean_object* x_45; +x_39 = lean_ctor_get(x_3, 0); +x_40 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 1); +x_41 = lean_ctor_get_uint8(x_3, sizeof(void*)*1 + 2); +x_42 = lean_unsigned_to_nat(0u); +x_43 = lean_nat_dec_eq(x_1, x_42); lean_inc(x_39); -x_40 = lean_ctor_get(x_37, 1); -lean_inc(x_40); -lean_dec(x_37); -x_41 = lean_unsigned_to_nat(1u); -x_42 = lean_nat_add(x_1, x_41); -x_43 = x_39; +x_44 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_44, 0, x_39); +lean_ctor_set_uint8(x_44, sizeof(void*)*1, x_43); +lean_ctor_set_uint8(x_44, sizeof(void*)*1 + 1, x_40); +lean_ctor_set_uint8(x_44, sizeof(void*)*1 + 2, x_41); +lean_inc(x_5); +lean_inc(x_14); +x_45 = l_Lean_Elab_Term_toParserDescrAux___main(x_14, x_44, x_4, x_5, x_6); +if (lean_obj_tag(x_45) == 0) +{ +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; uint8_t x_54; +x_46 = lean_ctor_get(x_45, 0); +lean_inc(x_46); +x_47 = lean_ctor_get(x_45, 1); +lean_inc(x_47); +lean_dec(x_45); +x_48 = lean_ctor_get(x_46, 0); +lean_inc(x_48); +x_49 = lean_ctor_get(x_46, 1); +lean_inc(x_49); +lean_dec(x_46); +x_50 = lean_unsigned_to_nat(1u); +x_51 = lean_nat_add(x_1, x_50); +x_52 = x_48; lean_dec(x_14); -x_44 = lean_array_fset(x_17, x_1, x_43); +x_53 = lean_array_fset(x_17, x_1, x_52); lean_dec(x_1); -x_45 = lean_unbox(x_40); -lean_dec(x_40); -x_1 = x_42; -x_2 = x_44; -x_4 = x_45; -x_6 = x_38; +x_54 = lean_unbox(x_49); +lean_dec(x_49); +x_1 = x_51; +x_2 = x_53; +x_4 = x_54; +x_6 = x_47; goto _start; } else { -uint8_t x_47; +uint8_t x_56; lean_dec(x_17); lean_dec(x_14); lean_dec(x_5); -lean_dec(x_3); lean_dec(x_1); -x_47 = !lean_is_exclusive(x_36); -if (x_47 == 0) +x_56 = !lean_is_exclusive(x_45); +if (x_56 == 0) { -return x_36; +return x_45; } else { -lean_object* x_48; lean_object* x_49; lean_object* x_50; -x_48 = lean_ctor_get(x_36, 0); -x_49 = lean_ctor_get(x_36, 1); -lean_inc(x_49); -lean_inc(x_48); -lean_dec(x_36); -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_48); -lean_ctor_set(x_50, 1, x_49); -return x_50; +lean_object* x_57; lean_object* x_58; lean_object* x_59; +x_57 = lean_ctor_get(x_45, 0); +x_58 = lean_ctor_get(x_45, 1); +lean_inc(x_58); +lean_inc(x_57); +lean_dec(x_45); +x_59 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_59, 0, x_57); +lean_ctor_set(x_59, 1, x_58); +return x_59; } } } @@ -1140,7 +1190,7 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__1() { _start: { lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.orelse"); +x_1 = lean_mk_string("ParserDescr.pushLeading"); return x_1; } } @@ -1170,19 +1220,17 @@ return x_4; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; +lean_object* x_1; +x_1 = lean_mk_string("pushLeading"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__4; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1191,11 +1239,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___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); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__4; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1205,7 +1251,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__6; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1214,27 +1260,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__8() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.many1"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__7; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__9() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__8; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.orelse"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__10() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__9; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__11() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__8; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__9; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__9; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1242,22 +1300,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__11() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_many1___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__12() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_many1___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1266,11 +1314,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__13() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__12; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Term_orelse___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1280,7 +1326,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__13; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1289,27 +1335,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__15() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.many"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__16() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__15; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.many1"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__17() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__16; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__18() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__15; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__16; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__16; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1317,22 +1375,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__18() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_many___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__19() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_many___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Syntax_many1___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1341,11 +1389,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__20() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__19; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Syntax_many1___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1355,7 +1401,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__20; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1364,27 +1410,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__22() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.sepBy1"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__23() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__22; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.many"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__24() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__23; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__25() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__22; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__23; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__23; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1392,22 +1450,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__25() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__26() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Syntax_many___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1416,11 +1464,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__27() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__26; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Syntax_many___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1430,7 +1476,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__27; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1439,27 +1485,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__29() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.sepBy"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__30() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__29; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.sepBy1"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__31() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__30; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__32() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__29; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__30; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__30; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1467,22 +1525,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__32() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__33() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1491,11 +1539,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__34() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___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); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1505,7 +1551,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__34; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1514,27 +1560,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__36() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.optional"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___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); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__37() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__36; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.sepBy"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__38() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__37; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__39() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__36; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__37; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__37; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1542,22 +1600,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__39() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_optional___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__40() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_optional___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1566,11 +1614,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__41() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__40; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1580,7 +1626,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__41; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1589,27 +1635,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__43() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.lookahead"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__44() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__43; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.optional"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__45() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__44; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__46() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__43; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__44; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__44; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1617,22 +1675,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__46() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__47() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Syntax_optional___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1641,11 +1689,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__48() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__47; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Syntax_optional___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1655,7 +1701,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__48; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1664,27 +1710,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__50() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.try"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__51() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__50; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.lookahead"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__52() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__51; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__53() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__50; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__51; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__51; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1692,22 +1750,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__53() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__54() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1716,11 +1764,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__55() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__54; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -1730,7 +1776,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__55; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -1739,27 +1785,39 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__57() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.pushLeading"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__58() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__57; -x_2 = lean_string_utf8_byte_size(x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.try"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__59() { _start: { +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__58; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__60() { +_start: +{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__57; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__58; x_2 = lean_unsigned_to_nat(0u); -x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__58; +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__59; x_4 = lean_alloc_ctor(0, 3, 0); lean_ctor_set(x_4, 0, x_1); lean_ctor_set(x_4, 1, x_2); @@ -1767,20 +1825,12 @@ lean_ctor_set(x_4, 2, x_3); return x_4; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__60() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("pushLeading"); -return x_1; -} -} lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__61() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__60; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -1790,7 +1840,7 @@ _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__60; +x_2 = l_Lean_Parser_Syntax_try___elambda__1___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -2198,7 +2248,7 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__100() { _start: { lean_object* x_1; -x_1 = lean_mk_string("ParserDescr.parser"); +x_1 = lean_mk_string("ParserDescr.nonReservedSymbol"); return x_1; } } @@ -2228,19 +2278,17 @@ return x_4; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__103() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; -x_2 = l_Lean_Parser_mkParserAttributeImpl___closed__1; -x_3 = lean_name_mk_string(x_1, x_2); -return x_3; +lean_object* x_1; +x_1 = lean_mk_string("nonReservedSymbol"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__104() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_2 = l_Lean_Parser_mkParserAttributeImpl___closed__1; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__103; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } @@ -2249,11 +2297,9 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__105() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = lean_box(0); -x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__104; -x_3 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_3, 0, x_2); -lean_ctor_set(x_3, 1, x_1); +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__103; +x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } @@ -2263,7 +2309,7 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__105; -x_3 = lean_alloc_ctor(1, 2, 0); +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; @@ -2272,75 +2318,88 @@ return x_3; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__107() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("invalid occurrence of '"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__106; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__108() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__107; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); +x_1 = l_Bool_HasRepr___closed__1; +x_2 = lean_string_utf8_byte_size(x_1); return x_2; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__109() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__108; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Bool_HasRepr___closed__1; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__108; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set(x_4, 2, x_3); +return x_4; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__110() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("', parser algorithm does not allow this form of left recursion"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Bool_HasRepr___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__111() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__110; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l___private_Init_Lean_Elab_Term_6__exceptionToSorry___closed__1; +x_2 = l_Bool_HasRepr___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__112() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__111; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__111; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__113() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("invalid occurrence of ':' modifier in head"); -return x_1; +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__112; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__114() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__113; -x_2 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; +x_1 = lean_mk_string("ParserDescr.parser"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__115() { @@ -2348,12 +2407,153 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__114; +x_2 = lean_string_utf8_byte_size(x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__116() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__114; +x_2 = lean_unsigned_to_nat(0u); +x_3 = l_Lean_Elab_Term_toParserDescrAux___main___closed__115; +x_4 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_4, 0, x_1); +lean_ctor_set(x_4, 1, x_2); +lean_ctor_set(x_4, 2, x_3); +return x_4; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__117() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__4; +x_2 = l_Lean_Parser_mkParserAttributeImpl___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__118() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_2 = l_Lean_Parser_mkParserAttributeImpl___closed__1; +x_3 = lean_name_mk_string(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__119() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118; +x_3 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__120() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = lean_box(0); +x_2 = l_Lean_Elab_Term_toParserDescrAux___main___closed__119; +x_3 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_3, 0, x_2); +lean_ctor_set(x_3, 1, x_1); +return x_3; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__121() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid occurrence of '"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__122() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__121; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__123() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__122; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__116() { +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__124() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("', parser algorithm does not allow this form of left recursion"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__125() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__124; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__126() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__125; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__127() { +_start: +{ +lean_object* x_1; +x_1 = lean_mk_string("invalid occurrence of ':' modifier in head"); +return x_1; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__128() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__127; +x_2 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__129() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__128; +x_2 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__130() { _start: { lean_object* x_1; @@ -2361,21 +2561,21 @@ x_1 = lean_mk_string("unknown category '"); return x_1; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__117() { +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__131() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__116; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__130; x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__118() { +lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__132() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117; +x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__131; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -2396,3981 +2596,4262 @@ x_9 = l_Lean_choiceKind; x_10 = lean_name_eq(x_6, x_9); if (x_10 == 0) { -lean_object* x_11; lean_object* x_12; lean_object* x_124; lean_object* x_125; lean_object* x_200; lean_object* x_201; lean_object* x_276; lean_object* x_277; lean_object* x_389; lean_object* x_390; lean_object* x_502; lean_object* x_503; lean_object* x_578; lean_object* x_579; lean_object* x_654; lean_object* x_655; lean_object* x_730; lean_object* x_731; lean_object* x_764; uint8_t x_765; -x_764 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3; -x_765 = lean_name_eq(x_6, x_764); -if (x_765 == 0) +lean_object* x_11; lean_object* x_12; lean_object* x_45; uint8_t x_46; +x_45 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3; +x_46 = lean_name_eq(x_6, x_45); +if (x_46 == 0) { -lean_object* x_766; uint8_t x_767; -x_766 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; -x_767 = lean_name_eq(x_6, x_766); -if (x_767 == 0) +lean_object* x_47; uint8_t x_48; +x_47 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; +x_48 = lean_name_eq(x_6, x_47); +if (x_48 == 0) { -lean_object* x_768; uint8_t x_769; -x_768 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_769 = lean_name_eq(x_6, x_768); -if (x_769 == 0) +lean_object* x_49; uint8_t x_50; +x_49 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_50 = lean_name_eq(x_6, x_49); +if (x_50 == 0) { -lean_object* x_770; uint8_t x_771; -x_770 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; -x_771 = lean_name_eq(x_6, x_770); -if (x_771 == 0) +lean_object* x_51; uint8_t x_52; +x_51 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; +x_52 = lean_name_eq(x_6, x_51); +if (x_52 == 0) { -lean_object* x_772; uint8_t x_773; -x_772 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; -x_773 = lean_name_eq(x_6, x_772); -if (x_773 == 0) +lean_object* x_53; uint8_t x_54; +x_53 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; +x_54 = lean_name_eq(x_6, x_53); +if (x_54 == 0) { -lean_object* x_774; uint8_t x_775; -x_774 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; -x_775 = lean_name_eq(x_6, x_774); -if (x_775 == 0) +lean_object* x_55; uint8_t x_56; +x_55 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; +x_56 = lean_name_eq(x_6, x_55); +if (x_56 == 0) { -lean_object* x_776; uint8_t x_777; -x_776 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; -x_777 = lean_name_eq(x_6, x_776); -if (x_777 == 0) +lean_object* x_57; uint8_t x_58; +x_57 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; +x_58 = lean_name_eq(x_6, x_57); +if (x_58 == 0) { -lean_object* x_778; uint8_t x_779; -x_778 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; -x_779 = lean_name_eq(x_6, x_778); -if (x_779 == 0) +lean_object* x_59; uint8_t x_60; +x_59 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; +x_60 = lean_name_eq(x_6, x_59); +if (x_60 == 0) { -lean_object* x_780; uint8_t x_781; -x_780 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__2; -x_781 = lean_name_eq(x_6, x_780); -if (x_781 == 0) +lean_object* x_61; uint8_t x_62; +x_61 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__2; +x_62 = lean_name_eq(x_6, x_61); +if (x_62 == 0) { -lean_object* x_782; uint8_t x_783; -x_782 = l_Lean_Parser_Syntax_optional___elambda__1___closed__2; -x_783 = lean_name_eq(x_6, x_782); -if (x_783 == 0) +lean_object* x_63; uint8_t x_64; +x_63 = l_Lean_Parser_Syntax_optional___elambda__1___closed__2; +x_64 = lean_name_eq(x_6, x_63); +if (x_64 == 0) { -lean_object* x_784; uint8_t x_785; -x_784 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__2; -x_785 = lean_name_eq(x_6, x_784); -if (x_785 == 0) +lean_object* x_65; uint8_t x_66; +x_65 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__2; +x_66 = lean_name_eq(x_6, x_65); +if (x_66 == 0) { -lean_object* x_786; uint8_t x_787; -x_786 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__2; -x_787 = lean_name_eq(x_6, x_786); -if (x_787 == 0) +lean_object* x_67; uint8_t x_68; +x_67 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__2; +x_68 = lean_name_eq(x_6, x_67); +if (x_68 == 0) { -lean_object* x_788; uint8_t x_789; -x_788 = l_Lean_Parser_Syntax_many___elambda__1___closed__2; -x_789 = lean_name_eq(x_6, x_788); -if (x_789 == 0) +lean_object* x_69; uint8_t x_70; +x_69 = l_Lean_Parser_Syntax_many___elambda__1___closed__2; +x_70 = lean_name_eq(x_6, x_69); +if (x_70 == 0) { -lean_object* x_790; uint8_t x_791; -x_790 = l_Lean_Parser_Syntax_many1___elambda__1___closed__2; -x_791 = lean_name_eq(x_6, x_790); -if (x_791 == 0) +lean_object* x_71; uint8_t x_72; +x_71 = l_Lean_Parser_Syntax_many1___elambda__1___closed__2; +x_72 = lean_name_eq(x_6, x_71); +if (x_72 == 0) { -lean_object* x_792; uint8_t x_793; -x_792 = l_Lean_Parser_Syntax_orelse___elambda__1___closed__1; -x_793 = lean_name_eq(x_6, x_792); +lean_object* x_73; uint8_t x_74; +x_73 = l_Lean_Parser_Syntax_orelse___elambda__1___closed__1; +x_74 = lean_name_eq(x_6, x_73); lean_dec(x_6); -if (x_793 == 0) +if (x_74 == 0) { -lean_object* x_794; uint8_t x_795; +lean_object* x_75; uint8_t x_76; lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_794 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_5); -x_795 = !lean_is_exclusive(x_794); -if (x_795 == 0) +x_75 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_5); +x_76 = !lean_is_exclusive(x_75); +if (x_76 == 0) { -return x_794; +return x_75; } else { -lean_object* x_796; lean_object* x_797; lean_object* x_798; -x_796 = lean_ctor_get(x_794, 0); -x_797 = lean_ctor_get(x_794, 1); -lean_inc(x_797); -lean_inc(x_796); -lean_dec(x_794); -x_798 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_798, 0, x_796); -lean_ctor_set(x_798, 1, x_797); -return x_798; +lean_object* x_77; lean_object* x_78; lean_object* x_79; +x_77 = lean_ctor_get(x_75, 0); +x_78 = lean_ctor_get(x_75, 1); +lean_inc(x_78); +lean_inc(x_77); +lean_dec(x_75); +x_79 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_79, 0, x_77); +lean_ctor_set(x_79, 1, x_78); +return x_79; } } else { -lean_object* x_799; lean_object* x_800; -x_799 = lean_unsigned_to_nat(0u); -x_800 = l_Lean_Syntax_getArg(x_1, x_799); -if (lean_obj_tag(x_2) == 2) +lean_object* x_80; lean_object* x_81; uint8_t x_82; +x_80 = lean_unsigned_to_nat(0u); +x_81 = l_Lean_Syntax_getArg(x_1, x_80); +x_82 = !lean_is_exclusive(x_2); +if (x_82 == 0) { -lean_object* x_801; lean_object* x_802; lean_object* x_803; -x_801 = lean_ctor_get(x_2, 0); -lean_inc(x_801); -x_802 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_802, 0, x_801); -lean_inc(x_4); -x_803 = l_Lean_Elab_Term_toParserDescrAux___main(x_800, x_802, x_3, x_4, x_5); -if (lean_obj_tag(x_803) == 0) -{ -lean_object* x_804; lean_object* x_805; -x_804 = lean_ctor_get(x_803, 0); -lean_inc(x_804); -x_805 = lean_ctor_get(x_803, 1); -lean_inc(x_805); -lean_dec(x_803); -x_11 = x_804; -x_12 = x_805; -goto block_123; -} -else -{ -uint8_t x_806; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_806 = !lean_is_exclusive(x_803); -if (x_806 == 0) -{ -return x_803; -} -else -{ -lean_object* x_807; lean_object* x_808; lean_object* x_809; -x_807 = lean_ctor_get(x_803, 0); -x_808 = lean_ctor_get(x_803, 1); -lean_inc(x_808); -lean_inc(x_807); -lean_dec(x_803); -x_809 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_809, 0, x_807); -lean_ctor_set(x_809, 1, x_808); -return x_809; -} -} -} -else -{ -lean_object* x_810; +uint8_t x_83; lean_object* x_84; +x_83 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_83); lean_inc(x_4); lean_inc(x_2); -x_810 = l_Lean_Elab_Term_toParserDescrAux___main(x_800, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_810) == 0) +x_84 = l_Lean_Elab_Term_toParserDescrAux___main(x_81, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_84) == 0) { -lean_object* x_811; lean_object* x_812; -x_811 = lean_ctor_get(x_810, 0); -lean_inc(x_811); -x_812 = lean_ctor_get(x_810, 1); -lean_inc(x_812); -lean_dec(x_810); -x_11 = x_811; -x_12 = x_812; -goto block_123; -} -else -{ -uint8_t x_813; -lean_dec(x_4); -lean_dec(x_2); +lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint8_t x_91; lean_object* x_92; +x_85 = lean_ctor_get(x_84, 0); +lean_inc(x_85); +x_86 = lean_ctor_get(x_84, 1); +lean_inc(x_86); +lean_dec(x_84); +x_87 = lean_ctor_get(x_85, 0); +lean_inc(x_87); +x_88 = lean_ctor_get(x_85, 1); +lean_inc(x_88); +lean_dec(x_85); +x_89 = lean_unsigned_to_nat(2u); +x_90 = l_Lean_Syntax_getArg(x_1, x_89); lean_dec(x_1); -x_813 = !lean_is_exclusive(x_810); -if (x_813 == 0) +x_91 = lean_unbox(x_88); +lean_dec(x_88); +lean_inc(x_4); +x_92 = l_Lean_Elab_Term_toParserDescrAux___main(x_90, x_2, x_91, x_4, x_86); +if (lean_obj_tag(x_92) == 0) { -return x_810; +lean_object* x_93; lean_object* x_94; uint8_t x_95; +x_93 = lean_ctor_get(x_92, 0); +lean_inc(x_93); +x_94 = lean_ctor_get(x_92, 1); +lean_inc(x_94); +lean_dec(x_92); +x_95 = !lean_is_exclusive(x_93); +if (x_95 == 0) +{ +lean_object* x_96; lean_object* x_97; uint8_t x_98; +x_96 = lean_ctor_get(x_93, 0); +x_97 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_94); +lean_dec(x_4); +x_98 = !lean_is_exclusive(x_97); +if (x_98 == 0) +{ +lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; +x_99 = lean_ctor_get(x_97, 0); +x_100 = lean_box(0); +x_101 = l_Lean_Elab_Term_toParserDescrAux___main___closed__12; +x_102 = lean_name_mk_numeral(x_101, x_99); +x_103 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; +x_104 = l_Lean_Elab_Term_toParserDescrAux___main___closed__15; +x_105 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_105, 0, x_100); +lean_ctor_set(x_105, 1, x_103); +lean_ctor_set(x_105, 2, x_102); +lean_ctor_set(x_105, 3, x_104); +x_106 = l_Array_empty___closed__1; +x_107 = lean_array_push(x_106, x_105); +x_108 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_109 = lean_array_push(x_107, x_108); +x_110 = l_Lean_mkTermIdFromIdent___closed__2; +x_111 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_111, 0, x_110); +lean_ctor_set(x_111, 1, x_109); +x_112 = lean_array_push(x_106, x_111); +x_113 = lean_array_push(x_106, x_87); +x_114 = lean_array_push(x_113, x_96); +x_115 = l_Lean_nullKind___closed__2; +x_116 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_114); +x_117 = lean_array_push(x_112, x_116); +x_118 = l_Lean_mkAppStx___closed__8; +x_119 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_117); +lean_ctor_set(x_93, 0, x_119); +lean_ctor_set(x_97, 0, x_93); +return x_97; } else { -lean_object* x_814; lean_object* x_815; lean_object* x_816; -x_814 = lean_ctor_get(x_810, 0); -x_815 = lean_ctor_get(x_810, 1); -lean_inc(x_815); -lean_inc(x_814); -lean_dec(x_810); -x_816 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_816, 0, x_814); -lean_ctor_set(x_816, 1, x_815); -return x_816; +lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; +x_120 = lean_ctor_get(x_97, 0); +x_121 = lean_ctor_get(x_97, 1); +lean_inc(x_121); +lean_inc(x_120); +lean_dec(x_97); +x_122 = lean_box(0); +x_123 = l_Lean_Elab_Term_toParserDescrAux___main___closed__12; +x_124 = lean_name_mk_numeral(x_123, x_120); +x_125 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; +x_126 = l_Lean_Elab_Term_toParserDescrAux___main___closed__15; +x_127 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_127, 0, x_122); +lean_ctor_set(x_127, 1, x_125); +lean_ctor_set(x_127, 2, x_124); +lean_ctor_set(x_127, 3, x_126); +x_128 = l_Array_empty___closed__1; +x_129 = lean_array_push(x_128, x_127); +x_130 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_131 = lean_array_push(x_129, x_130); +x_132 = l_Lean_mkTermIdFromIdent___closed__2; +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_131); +x_134 = lean_array_push(x_128, x_133); +x_135 = lean_array_push(x_128, x_87); +x_136 = lean_array_push(x_135, x_96); +x_137 = l_Lean_nullKind___closed__2; +x_138 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_138, 0, x_137); +lean_ctor_set(x_138, 1, x_136); +x_139 = lean_array_push(x_134, x_138); +x_140 = l_Lean_mkAppStx___closed__8; +x_141 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_141, 0, x_140); +lean_ctor_set(x_141, 1, x_139); +lean_ctor_set(x_93, 0, x_141); +x_142 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_142, 0, x_93); +lean_ctor_set(x_142, 1, x_121); +return x_142; } } +else +{ +lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; +x_143 = lean_ctor_get(x_93, 0); +x_144 = lean_ctor_get(x_93, 1); +lean_inc(x_144); +lean_inc(x_143); +lean_dec(x_93); +x_145 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_94); +lean_dec(x_4); +x_146 = lean_ctor_get(x_145, 0); +lean_inc(x_146); +x_147 = lean_ctor_get(x_145, 1); +lean_inc(x_147); +if (lean_is_exclusive(x_145)) { + lean_ctor_release(x_145, 0); + lean_ctor_release(x_145, 1); + x_148 = x_145; +} else { + lean_dec_ref(x_145); + x_148 = lean_box(0); +} +x_149 = lean_box(0); +x_150 = l_Lean_Elab_Term_toParserDescrAux___main___closed__12; +x_151 = lean_name_mk_numeral(x_150, x_146); +x_152 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; +x_153 = l_Lean_Elab_Term_toParserDescrAux___main___closed__15; +x_154 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_154, 0, x_149); +lean_ctor_set(x_154, 1, x_152); +lean_ctor_set(x_154, 2, x_151); +lean_ctor_set(x_154, 3, x_153); +x_155 = l_Array_empty___closed__1; +x_156 = lean_array_push(x_155, x_154); +x_157 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_158 = lean_array_push(x_156, x_157); +x_159 = l_Lean_mkTermIdFromIdent___closed__2; +x_160 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_160, 0, x_159); +lean_ctor_set(x_160, 1, x_158); +x_161 = lean_array_push(x_155, x_160); +x_162 = lean_array_push(x_155, x_87); +x_163 = lean_array_push(x_162, x_143); +x_164 = l_Lean_nullKind___closed__2; +x_165 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_165, 0, x_164); +lean_ctor_set(x_165, 1, x_163); +x_166 = lean_array_push(x_161, x_165); +x_167 = l_Lean_mkAppStx___closed__8; +x_168 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_168, 0, x_167); +lean_ctor_set(x_168, 1, x_166); +x_169 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_169, 0, x_168); +lean_ctor_set(x_169, 1, x_144); +if (lean_is_scalar(x_148)) { + x_170 = lean_alloc_ctor(0, 2, 0); +} else { + x_170 = x_148; +} +lean_ctor_set(x_170, 0, x_169); +lean_ctor_set(x_170, 1, x_147); +return x_170; +} +} +else +{ +uint8_t x_171; +lean_dec(x_87); +lean_dec(x_4); +x_171 = !lean_is_exclusive(x_92); +if (x_171 == 0) +{ +return x_92; +} +else +{ +lean_object* x_172; lean_object* x_173; lean_object* x_174; +x_172 = lean_ctor_get(x_92, 0); +x_173 = lean_ctor_get(x_92, 1); +lean_inc(x_173); +lean_inc(x_172); +lean_dec(x_92); +x_174 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_174, 0, x_172); +lean_ctor_set(x_174, 1, x_173); +return x_174; +} +} +} +else +{ +uint8_t x_175; +lean_dec(x_2); +lean_dec(x_4); +lean_dec(x_1); +x_175 = !lean_is_exclusive(x_84); +if (x_175 == 0) +{ +return x_84; +} +else +{ +lean_object* x_176; lean_object* x_177; lean_object* x_178; +x_176 = lean_ctor_get(x_84, 0); +x_177 = lean_ctor_get(x_84, 1); +lean_inc(x_177); +lean_inc(x_176); +lean_dec(x_84); +x_178 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_178, 0, x_176); +lean_ctor_set(x_178, 1, x_177); +return x_178; +} +} +} +else +{ +lean_object* x_179; uint8_t x_180; uint8_t x_181; uint8_t x_182; lean_object* x_183; lean_object* x_184; +x_179 = lean_ctor_get(x_2, 0); +x_180 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_181 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_179); +lean_dec(x_2); +x_182 = 0; +x_183 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_183, 0, x_179); +lean_ctor_set_uint8(x_183, sizeof(void*)*1, x_180); +lean_ctor_set_uint8(x_183, sizeof(void*)*1 + 1, x_182); +lean_ctor_set_uint8(x_183, sizeof(void*)*1 + 2, x_181); +lean_inc(x_4); +lean_inc(x_183); +x_184 = l_Lean_Elab_Term_toParserDescrAux___main(x_81, x_183, x_3, x_4, x_5); +if (lean_obj_tag(x_184) == 0) +{ +lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; uint8_t x_191; lean_object* x_192; +x_185 = lean_ctor_get(x_184, 0); +lean_inc(x_185); +x_186 = lean_ctor_get(x_184, 1); +lean_inc(x_186); +lean_dec(x_184); +x_187 = lean_ctor_get(x_185, 0); +lean_inc(x_187); +x_188 = lean_ctor_get(x_185, 1); +lean_inc(x_188); +lean_dec(x_185); +x_189 = lean_unsigned_to_nat(2u); +x_190 = l_Lean_Syntax_getArg(x_1, x_189); +lean_dec(x_1); +x_191 = lean_unbox(x_188); +lean_dec(x_188); +lean_inc(x_4); +x_192 = l_Lean_Elab_Term_toParserDescrAux___main(x_190, x_183, x_191, x_4, x_186); +if (lean_obj_tag(x_192) == 0) +{ +lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; 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_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; +x_193 = lean_ctor_get(x_192, 0); +lean_inc(x_193); +x_194 = lean_ctor_get(x_192, 1); +lean_inc(x_194); +lean_dec(x_192); +x_195 = lean_ctor_get(x_193, 0); +lean_inc(x_195); +x_196 = lean_ctor_get(x_193, 1); +lean_inc(x_196); +if (lean_is_exclusive(x_193)) { + lean_ctor_release(x_193, 0); + lean_ctor_release(x_193, 1); + x_197 = x_193; +} else { + lean_dec_ref(x_193); + x_197 = lean_box(0); +} +x_198 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_194); +lean_dec(x_4); +x_199 = lean_ctor_get(x_198, 0); +lean_inc(x_199); +x_200 = lean_ctor_get(x_198, 1); +lean_inc(x_200); +if (lean_is_exclusive(x_198)) { + lean_ctor_release(x_198, 0); + lean_ctor_release(x_198, 1); + x_201 = x_198; +} else { + lean_dec_ref(x_198); + x_201 = lean_box(0); +} +x_202 = lean_box(0); +x_203 = l_Lean_Elab_Term_toParserDescrAux___main___closed__12; +x_204 = lean_name_mk_numeral(x_203, x_199); +x_205 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; +x_206 = l_Lean_Elab_Term_toParserDescrAux___main___closed__15; +x_207 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_207, 0, x_202); +lean_ctor_set(x_207, 1, x_205); +lean_ctor_set(x_207, 2, x_204); +lean_ctor_set(x_207, 3, x_206); +x_208 = l_Array_empty___closed__1; +x_209 = lean_array_push(x_208, x_207); +x_210 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_211 = lean_array_push(x_209, x_210); +x_212 = l_Lean_mkTermIdFromIdent___closed__2; +x_213 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_213, 0, x_212); +lean_ctor_set(x_213, 1, x_211); +x_214 = lean_array_push(x_208, x_213); +x_215 = lean_array_push(x_208, x_187); +x_216 = lean_array_push(x_215, x_195); +x_217 = l_Lean_nullKind___closed__2; +x_218 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_218, 0, x_217); +lean_ctor_set(x_218, 1, x_216); +x_219 = lean_array_push(x_214, x_218); +x_220 = l_Lean_mkAppStx___closed__8; +x_221 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_221, 0, x_220); +lean_ctor_set(x_221, 1, x_219); +if (lean_is_scalar(x_197)) { + x_222 = lean_alloc_ctor(0, 2, 0); +} else { + x_222 = x_197; +} +lean_ctor_set(x_222, 0, x_221); +lean_ctor_set(x_222, 1, x_196); +if (lean_is_scalar(x_201)) { + x_223 = lean_alloc_ctor(0, 2, 0); +} else { + x_223 = x_201; +} +lean_ctor_set(x_223, 0, x_222); +lean_ctor_set(x_223, 1, x_200); +return x_223; +} +else +{ +lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; +lean_dec(x_187); +lean_dec(x_4); +x_224 = lean_ctor_get(x_192, 0); +lean_inc(x_224); +x_225 = lean_ctor_get(x_192, 1); +lean_inc(x_225); +if (lean_is_exclusive(x_192)) { + lean_ctor_release(x_192, 0); + lean_ctor_release(x_192, 1); + x_226 = x_192; +} else { + lean_dec_ref(x_192); + x_226 = lean_box(0); +} +if (lean_is_scalar(x_226)) { + x_227 = lean_alloc_ctor(1, 2, 0); +} else { + x_227 = x_226; +} +lean_ctor_set(x_227, 0, x_224); +lean_ctor_set(x_227, 1, x_225); +return x_227; +} +} +else +{ +lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; +lean_dec(x_183); +lean_dec(x_4); +lean_dec(x_1); +x_228 = lean_ctor_get(x_184, 0); +lean_inc(x_228); +x_229 = lean_ctor_get(x_184, 1); +lean_inc(x_229); +if (lean_is_exclusive(x_184)) { + lean_ctor_release(x_184, 0); + lean_ctor_release(x_184, 1); + x_230 = x_184; +} else { + lean_dec_ref(x_184); + x_230 = lean_box(0); +} +if (lean_is_scalar(x_230)) { + x_231 = lean_alloc_ctor(1, 2, 0); +} else { + x_231 = x_230; +} +lean_ctor_set(x_231, 0, x_228); +lean_ctor_set(x_231, 1, x_229); +return x_231; +} } } } else { -lean_object* x_817; lean_object* x_818; +lean_object* x_232; lean_object* x_233; uint8_t x_234; lean_dec(x_6); -x_817 = lean_unsigned_to_nat(0u); -x_818 = l_Lean_Syntax_getArg(x_1, x_817); +x_232 = lean_unsigned_to_nat(0u); +x_233 = l_Lean_Syntax_getArg(x_1, x_232); lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) +x_234 = !lean_is_exclusive(x_2); +if (x_234 == 0) { -uint8_t x_819; -x_819 = !lean_is_exclusive(x_2); -if (x_819 == 0) -{ -lean_object* x_820; -lean_ctor_set_tag(x_2, 1); +uint8_t x_235; lean_object* x_236; +x_235 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_235); lean_inc(x_4); -x_820 = l_Lean_Elab_Term_toParserDescrAux___main(x_818, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_820) == 0) +x_236 = l_Lean_Elab_Term_toParserDescrAux___main(x_233, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_236) == 0) { -lean_object* x_821; lean_object* x_822; -x_821 = lean_ctor_get(x_820, 0); -lean_inc(x_821); -x_822 = lean_ctor_get(x_820, 1); -lean_inc(x_822); -lean_dec(x_820); -x_124 = x_821; -x_125 = x_822; -goto block_199; -} -else +lean_object* x_237; lean_object* x_238; uint8_t x_239; +x_237 = lean_ctor_get(x_236, 0); +lean_inc(x_237); +x_238 = lean_ctor_get(x_236, 1); +lean_inc(x_238); +lean_dec(x_236); +x_239 = !lean_is_exclusive(x_237); +if (x_239 == 0) { -uint8_t x_823; +lean_object* x_240; lean_object* x_241; uint8_t x_242; +x_240 = lean_ctor_get(x_237, 0); +x_241 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_238); lean_dec(x_4); -x_823 = !lean_is_exclusive(x_820); -if (x_823 == 0) +x_242 = !lean_is_exclusive(x_241); +if (x_242 == 0) { -return x_820; +lean_object* x_243; lean_object* x_244; 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_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; +x_243 = lean_ctor_get(x_241, 0); +x_244 = lean_box(0); +x_245 = l_Lean_Elab_Term_toParserDescrAux___main___closed__19; +x_246 = lean_name_mk_numeral(x_245, x_243); +x_247 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; +x_248 = l_Lean_Elab_Term_toParserDescrAux___main___closed__22; +x_249 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_249, 0, x_244); +lean_ctor_set(x_249, 1, x_247); +lean_ctor_set(x_249, 2, x_246); +lean_ctor_set(x_249, 3, x_248); +x_250 = l_Array_empty___closed__1; +x_251 = lean_array_push(x_250, x_249); +x_252 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_253 = lean_array_push(x_251, x_252); +x_254 = l_Lean_mkTermIdFromIdent___closed__2; +x_255 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_255, 0, x_254); +lean_ctor_set(x_255, 1, x_253); +x_256 = lean_array_push(x_250, x_255); +x_257 = lean_array_push(x_250, x_240); +x_258 = l_Lean_nullKind___closed__2; +x_259 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_259, 0, x_258); +lean_ctor_set(x_259, 1, x_257); +x_260 = lean_array_push(x_256, x_259); +x_261 = l_Lean_mkAppStx___closed__8; +x_262 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_262, 0, x_261); +lean_ctor_set(x_262, 1, x_260); +lean_ctor_set(x_237, 0, x_262); +lean_ctor_set(x_241, 0, x_237); +return x_241; } else { -lean_object* x_824; lean_object* x_825; lean_object* x_826; -x_824 = lean_ctor_get(x_820, 0); -x_825 = lean_ctor_get(x_820, 1); -lean_inc(x_825); -lean_inc(x_824); -lean_dec(x_820); -x_826 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_826, 0, x_824); -lean_ctor_set(x_826, 1, x_825); -return x_826; +lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +x_263 = lean_ctor_get(x_241, 0); +x_264 = lean_ctor_get(x_241, 1); +lean_inc(x_264); +lean_inc(x_263); +lean_dec(x_241); +x_265 = lean_box(0); +x_266 = l_Lean_Elab_Term_toParserDescrAux___main___closed__19; +x_267 = lean_name_mk_numeral(x_266, x_263); +x_268 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; +x_269 = l_Lean_Elab_Term_toParserDescrAux___main___closed__22; +x_270 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_270, 0, x_265); +lean_ctor_set(x_270, 1, x_268); +lean_ctor_set(x_270, 2, x_267); +lean_ctor_set(x_270, 3, x_269); +x_271 = l_Array_empty___closed__1; +x_272 = lean_array_push(x_271, x_270); +x_273 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_274 = lean_array_push(x_272, x_273); +x_275 = l_Lean_mkTermIdFromIdent___closed__2; +x_276 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_276, 0, x_275); +lean_ctor_set(x_276, 1, x_274); +x_277 = lean_array_push(x_271, x_276); +x_278 = lean_array_push(x_271, x_240); +x_279 = l_Lean_nullKind___closed__2; +x_280 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_280, 0, x_279); +lean_ctor_set(x_280, 1, x_278); +x_281 = lean_array_push(x_277, x_280); +x_282 = l_Lean_mkAppStx___closed__8; +x_283 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_283, 0, x_282); +lean_ctor_set(x_283, 1, x_281); +lean_ctor_set(x_237, 0, x_283); +x_284 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_284, 0, x_237); +lean_ctor_set(x_284, 1, x_264); +return x_284; +} +} +else +{ +lean_object* x_285; lean_object* x_286; 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_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; +x_285 = lean_ctor_get(x_237, 0); +x_286 = lean_ctor_get(x_237, 1); +lean_inc(x_286); +lean_inc(x_285); +lean_dec(x_237); +x_287 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_238); +lean_dec(x_4); +x_288 = lean_ctor_get(x_287, 0); +lean_inc(x_288); +x_289 = lean_ctor_get(x_287, 1); +lean_inc(x_289); +if (lean_is_exclusive(x_287)) { + lean_ctor_release(x_287, 0); + lean_ctor_release(x_287, 1); + x_290 = x_287; +} else { + lean_dec_ref(x_287); + x_290 = lean_box(0); +} +x_291 = lean_box(0); +x_292 = l_Lean_Elab_Term_toParserDescrAux___main___closed__19; +x_293 = lean_name_mk_numeral(x_292, x_288); +x_294 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; +x_295 = l_Lean_Elab_Term_toParserDescrAux___main___closed__22; +x_296 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_296, 0, x_291); +lean_ctor_set(x_296, 1, x_294); +lean_ctor_set(x_296, 2, x_293); +lean_ctor_set(x_296, 3, x_295); +x_297 = l_Array_empty___closed__1; +x_298 = lean_array_push(x_297, x_296); +x_299 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_300 = lean_array_push(x_298, x_299); +x_301 = l_Lean_mkTermIdFromIdent___closed__2; +x_302 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_302, 0, x_301); +lean_ctor_set(x_302, 1, x_300); +x_303 = lean_array_push(x_297, x_302); +x_304 = lean_array_push(x_297, x_285); +x_305 = l_Lean_nullKind___closed__2; +x_306 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_306, 0, x_305); +lean_ctor_set(x_306, 1, x_304); +x_307 = lean_array_push(x_303, x_306); +x_308 = l_Lean_mkAppStx___closed__8; +x_309 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_309, 0, x_308); +lean_ctor_set(x_309, 1, x_307); +x_310 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_310, 0, x_309); +lean_ctor_set(x_310, 1, x_286); +if (lean_is_scalar(x_290)) { + x_311 = lean_alloc_ctor(0, 2, 0); +} else { + x_311 = x_290; +} +lean_ctor_set(x_311, 0, x_310); +lean_ctor_set(x_311, 1, x_289); +return x_311; +} +} +else +{ +uint8_t x_312; +lean_dec(x_4); +x_312 = !lean_is_exclusive(x_236); +if (x_312 == 0) +{ +return x_236; +} +else +{ +lean_object* x_313; lean_object* x_314; lean_object* x_315; +x_313 = lean_ctor_get(x_236, 0); +x_314 = lean_ctor_get(x_236, 1); +lean_inc(x_314); +lean_inc(x_313); +lean_dec(x_236); +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 { -lean_object* x_827; lean_object* x_828; lean_object* x_829; -x_827 = lean_ctor_get(x_2, 0); -lean_inc(x_827); +lean_object* x_316; uint8_t x_317; uint8_t x_318; uint8_t x_319; lean_object* x_320; lean_object* x_321; +x_316 = lean_ctor_get(x_2, 0); +x_317 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_318 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_316); lean_dec(x_2); -x_828 = lean_alloc_ctor(1, 1, 0); +x_319 = 0; +x_320 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_320, 0, x_316); +lean_ctor_set_uint8(x_320, sizeof(void*)*1, x_317); +lean_ctor_set_uint8(x_320, sizeof(void*)*1 + 1, x_319); +lean_ctor_set_uint8(x_320, sizeof(void*)*1 + 2, x_318); +lean_inc(x_4); +x_321 = l_Lean_Elab_Term_toParserDescrAux___main(x_233, x_320, x_3, x_4, x_5); +if (lean_obj_tag(x_321) == 0) +{ +lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; +x_322 = lean_ctor_get(x_321, 0); +lean_inc(x_322); +x_323 = lean_ctor_get(x_321, 1); +lean_inc(x_323); +lean_dec(x_321); +x_324 = lean_ctor_get(x_322, 0); +lean_inc(x_324); +x_325 = lean_ctor_get(x_322, 1); +lean_inc(x_325); +if (lean_is_exclusive(x_322)) { + lean_ctor_release(x_322, 0); + lean_ctor_release(x_322, 1); + x_326 = x_322; +} else { + lean_dec_ref(x_322); + x_326 = lean_box(0); +} +x_327 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_323); +lean_dec(x_4); +x_328 = lean_ctor_get(x_327, 0); +lean_inc(x_328); +x_329 = lean_ctor_get(x_327, 1); +lean_inc(x_329); +if (lean_is_exclusive(x_327)) { + lean_ctor_release(x_327, 0); + lean_ctor_release(x_327, 1); + x_330 = x_327; +} else { + lean_dec_ref(x_327); + x_330 = lean_box(0); +} +x_331 = lean_box(0); +x_332 = l_Lean_Elab_Term_toParserDescrAux___main___closed__19; +x_333 = lean_name_mk_numeral(x_332, x_328); +x_334 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; +x_335 = l_Lean_Elab_Term_toParserDescrAux___main___closed__22; +x_336 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_336, 0, x_331); +lean_ctor_set(x_336, 1, x_334); +lean_ctor_set(x_336, 2, x_333); +lean_ctor_set(x_336, 3, x_335); +x_337 = l_Array_empty___closed__1; +x_338 = lean_array_push(x_337, x_336); +x_339 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_340 = lean_array_push(x_338, x_339); +x_341 = l_Lean_mkTermIdFromIdent___closed__2; +x_342 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_342, 0, x_341); +lean_ctor_set(x_342, 1, x_340); +x_343 = lean_array_push(x_337, x_342); +x_344 = lean_array_push(x_337, x_324); +x_345 = l_Lean_nullKind___closed__2; +x_346 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_346, 0, x_345); +lean_ctor_set(x_346, 1, x_344); +x_347 = lean_array_push(x_343, x_346); +x_348 = l_Lean_mkAppStx___closed__8; +x_349 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_349, 0, x_348); +lean_ctor_set(x_349, 1, x_347); +if (lean_is_scalar(x_326)) { + x_350 = lean_alloc_ctor(0, 2, 0); +} else { + x_350 = x_326; +} +lean_ctor_set(x_350, 0, x_349); +lean_ctor_set(x_350, 1, x_325); +if (lean_is_scalar(x_330)) { + x_351 = lean_alloc_ctor(0, 2, 0); +} else { + x_351 = x_330; +} +lean_ctor_set(x_351, 0, x_350); +lean_ctor_set(x_351, 1, x_329); +return x_351; +} +else +{ +lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; +lean_dec(x_4); +x_352 = lean_ctor_get(x_321, 0); +lean_inc(x_352); +x_353 = lean_ctor_get(x_321, 1); +lean_inc(x_353); +if (lean_is_exclusive(x_321)) { + lean_ctor_release(x_321, 0); + lean_ctor_release(x_321, 1); + x_354 = x_321; +} else { + lean_dec_ref(x_321); + x_354 = lean_box(0); +} +if (lean_is_scalar(x_354)) { + x_355 = lean_alloc_ctor(1, 2, 0); +} else { + x_355 = x_354; +} +lean_ctor_set(x_355, 0, x_352); +lean_ctor_set(x_355, 1, x_353); +return x_355; +} +} +} +} +else +{ +lean_object* x_356; lean_object* x_357; uint8_t x_358; +lean_dec(x_6); +x_356 = lean_unsigned_to_nat(0u); +x_357 = l_Lean_Syntax_getArg(x_1, x_356); +lean_dec(x_1); +x_358 = !lean_is_exclusive(x_2); +if (x_358 == 0) +{ +uint8_t x_359; lean_object* x_360; +x_359 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_359); +lean_inc(x_4); +x_360 = l_Lean_Elab_Term_toParserDescrAux___main(x_357, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_360) == 0) +{ +lean_object* x_361; lean_object* x_362; uint8_t x_363; +x_361 = lean_ctor_get(x_360, 0); +lean_inc(x_361); +x_362 = lean_ctor_get(x_360, 1); +lean_inc(x_362); +lean_dec(x_360); +x_363 = !lean_is_exclusive(x_361); +if (x_363 == 0) +{ +lean_object* x_364; lean_object* x_365; uint8_t x_366; +x_364 = lean_ctor_get(x_361, 0); +x_365 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_362); +lean_dec(x_4); +x_366 = !lean_is_exclusive(x_365); +if (x_366 == 0) +{ +lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; +x_367 = lean_ctor_get(x_365, 0); +x_368 = lean_box(0); +x_369 = l_Lean_Elab_Term_toParserDescrAux___main___closed__26; +x_370 = lean_name_mk_numeral(x_369, x_367); +x_371 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; +x_372 = l_Lean_Elab_Term_toParserDescrAux___main___closed__29; +x_373 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_373, 0, x_368); +lean_ctor_set(x_373, 1, x_371); +lean_ctor_set(x_373, 2, x_370); +lean_ctor_set(x_373, 3, x_372); +x_374 = l_Array_empty___closed__1; +x_375 = lean_array_push(x_374, x_373); +x_376 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_377 = lean_array_push(x_375, x_376); +x_378 = l_Lean_mkTermIdFromIdent___closed__2; +x_379 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_379, 0, x_378); +lean_ctor_set(x_379, 1, x_377); +x_380 = lean_array_push(x_374, x_379); +x_381 = lean_array_push(x_374, x_364); +x_382 = l_Lean_nullKind___closed__2; +x_383 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_383, 0, x_382); +lean_ctor_set(x_383, 1, x_381); +x_384 = lean_array_push(x_380, x_383); +x_385 = l_Lean_mkAppStx___closed__8; +x_386 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_386, 0, x_385); +lean_ctor_set(x_386, 1, x_384); +lean_ctor_set(x_361, 0, x_386); +lean_ctor_set(x_365, 0, x_361); +return x_365; +} +else +{ +lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; +x_387 = lean_ctor_get(x_365, 0); +x_388 = lean_ctor_get(x_365, 1); +lean_inc(x_388); +lean_inc(x_387); +lean_dec(x_365); +x_389 = lean_box(0); +x_390 = l_Lean_Elab_Term_toParserDescrAux___main___closed__26; +x_391 = lean_name_mk_numeral(x_390, x_387); +x_392 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; +x_393 = l_Lean_Elab_Term_toParserDescrAux___main___closed__29; +x_394 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_394, 0, x_389); +lean_ctor_set(x_394, 1, x_392); +lean_ctor_set(x_394, 2, x_391); +lean_ctor_set(x_394, 3, x_393); +x_395 = l_Array_empty___closed__1; +x_396 = lean_array_push(x_395, x_394); +x_397 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_398 = lean_array_push(x_396, x_397); +x_399 = l_Lean_mkTermIdFromIdent___closed__2; +x_400 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_400, 0, x_399); +lean_ctor_set(x_400, 1, x_398); +x_401 = lean_array_push(x_395, x_400); +x_402 = lean_array_push(x_395, x_364); +x_403 = l_Lean_nullKind___closed__2; +x_404 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_404, 0, x_403); +lean_ctor_set(x_404, 1, x_402); +x_405 = lean_array_push(x_401, x_404); +x_406 = l_Lean_mkAppStx___closed__8; +x_407 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_407, 0, x_406); +lean_ctor_set(x_407, 1, x_405); +lean_ctor_set(x_361, 0, x_407); +x_408 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_408, 0, x_361); +lean_ctor_set(x_408, 1, x_388); +return x_408; +} +} +else +{ +lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; +x_409 = lean_ctor_get(x_361, 0); +x_410 = lean_ctor_get(x_361, 1); +lean_inc(x_410); +lean_inc(x_409); +lean_dec(x_361); +x_411 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_362); +lean_dec(x_4); +x_412 = lean_ctor_get(x_411, 0); +lean_inc(x_412); +x_413 = lean_ctor_get(x_411, 1); +lean_inc(x_413); +if (lean_is_exclusive(x_411)) { + lean_ctor_release(x_411, 0); + lean_ctor_release(x_411, 1); + x_414 = x_411; +} else { + lean_dec_ref(x_411); + x_414 = lean_box(0); +} +x_415 = lean_box(0); +x_416 = l_Lean_Elab_Term_toParserDescrAux___main___closed__26; +x_417 = lean_name_mk_numeral(x_416, x_412); +x_418 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; +x_419 = l_Lean_Elab_Term_toParserDescrAux___main___closed__29; +x_420 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_420, 0, x_415); +lean_ctor_set(x_420, 1, x_418); +lean_ctor_set(x_420, 2, x_417); +lean_ctor_set(x_420, 3, x_419); +x_421 = l_Array_empty___closed__1; +x_422 = lean_array_push(x_421, x_420); +x_423 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_424 = lean_array_push(x_422, x_423); +x_425 = l_Lean_mkTermIdFromIdent___closed__2; +x_426 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_426, 0, x_425); +lean_ctor_set(x_426, 1, x_424); +x_427 = lean_array_push(x_421, x_426); +x_428 = lean_array_push(x_421, x_409); +x_429 = l_Lean_nullKind___closed__2; +x_430 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_430, 0, x_429); +lean_ctor_set(x_430, 1, x_428); +x_431 = lean_array_push(x_427, x_430); +x_432 = l_Lean_mkAppStx___closed__8; +x_433 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_433, 0, x_432); +lean_ctor_set(x_433, 1, x_431); +x_434 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_434, 0, x_433); +lean_ctor_set(x_434, 1, x_410); +if (lean_is_scalar(x_414)) { + x_435 = lean_alloc_ctor(0, 2, 0); +} else { + x_435 = x_414; +} +lean_ctor_set(x_435, 0, x_434); +lean_ctor_set(x_435, 1, x_413); +return x_435; +} +} +else +{ +uint8_t x_436; +lean_dec(x_4); +x_436 = !lean_is_exclusive(x_360); +if (x_436 == 0) +{ +return x_360; +} +else +{ +lean_object* x_437; lean_object* x_438; lean_object* x_439; +x_437 = lean_ctor_get(x_360, 0); +x_438 = lean_ctor_get(x_360, 1); +lean_inc(x_438); +lean_inc(x_437); +lean_dec(x_360); +x_439 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_439, 0, x_437); +lean_ctor_set(x_439, 1, x_438); +return x_439; +} +} +} +else +{ +lean_object* x_440; uint8_t x_441; uint8_t x_442; uint8_t x_443; lean_object* x_444; lean_object* x_445; +x_440 = lean_ctor_get(x_2, 0); +x_441 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_442 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_440); +lean_dec(x_2); +x_443 = 0; +x_444 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_444, 0, x_440); +lean_ctor_set_uint8(x_444, sizeof(void*)*1, x_441); +lean_ctor_set_uint8(x_444, sizeof(void*)*1 + 1, x_443); +lean_ctor_set_uint8(x_444, sizeof(void*)*1 + 2, x_442); +lean_inc(x_4); +x_445 = l_Lean_Elab_Term_toParserDescrAux___main(x_357, x_444, x_3, x_4, x_5); +if (lean_obj_tag(x_445) == 0) +{ +lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; lean_object* x_463; lean_object* x_464; lean_object* x_465; lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; lean_object* x_473; lean_object* x_474; lean_object* x_475; +x_446 = lean_ctor_get(x_445, 0); +lean_inc(x_446); +x_447 = lean_ctor_get(x_445, 1); +lean_inc(x_447); +lean_dec(x_445); +x_448 = lean_ctor_get(x_446, 0); +lean_inc(x_448); +x_449 = lean_ctor_get(x_446, 1); +lean_inc(x_449); +if (lean_is_exclusive(x_446)) { + lean_ctor_release(x_446, 0); + lean_ctor_release(x_446, 1); + x_450 = x_446; +} else { + lean_dec_ref(x_446); + x_450 = lean_box(0); +} +x_451 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_447); +lean_dec(x_4); +x_452 = lean_ctor_get(x_451, 0); +lean_inc(x_452); +x_453 = lean_ctor_get(x_451, 1); +lean_inc(x_453); +if (lean_is_exclusive(x_451)) { + lean_ctor_release(x_451, 0); + lean_ctor_release(x_451, 1); + x_454 = x_451; +} else { + lean_dec_ref(x_451); + x_454 = lean_box(0); +} +x_455 = lean_box(0); +x_456 = l_Lean_Elab_Term_toParserDescrAux___main___closed__26; +x_457 = lean_name_mk_numeral(x_456, x_452); +x_458 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; +x_459 = l_Lean_Elab_Term_toParserDescrAux___main___closed__29; +x_460 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_460, 0, x_455); +lean_ctor_set(x_460, 1, x_458); +lean_ctor_set(x_460, 2, x_457); +lean_ctor_set(x_460, 3, x_459); +x_461 = l_Array_empty___closed__1; +x_462 = lean_array_push(x_461, x_460); +x_463 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_464 = lean_array_push(x_462, x_463); +x_465 = l_Lean_mkTermIdFromIdent___closed__2; +x_466 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_466, 0, x_465); +lean_ctor_set(x_466, 1, x_464); +x_467 = lean_array_push(x_461, x_466); +x_468 = lean_array_push(x_461, x_448); +x_469 = l_Lean_nullKind___closed__2; +x_470 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_470, 0, x_469); +lean_ctor_set(x_470, 1, x_468); +x_471 = lean_array_push(x_467, x_470); +x_472 = l_Lean_mkAppStx___closed__8; +x_473 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_473, 0, x_472); +lean_ctor_set(x_473, 1, x_471); +if (lean_is_scalar(x_450)) { + x_474 = lean_alloc_ctor(0, 2, 0); +} else { + x_474 = x_450; +} +lean_ctor_set(x_474, 0, x_473); +lean_ctor_set(x_474, 1, x_449); +if (lean_is_scalar(x_454)) { + x_475 = lean_alloc_ctor(0, 2, 0); +} else { + x_475 = x_454; +} +lean_ctor_set(x_475, 0, x_474); +lean_ctor_set(x_475, 1, x_453); +return x_475; +} +else +{ +lean_object* x_476; lean_object* x_477; lean_object* x_478; lean_object* x_479; +lean_dec(x_4); +x_476 = lean_ctor_get(x_445, 0); +lean_inc(x_476); +x_477 = lean_ctor_get(x_445, 1); +lean_inc(x_477); +if (lean_is_exclusive(x_445)) { + lean_ctor_release(x_445, 0); + lean_ctor_release(x_445, 1); + x_478 = x_445; +} else { + lean_dec_ref(x_445); + x_478 = lean_box(0); +} +if (lean_is_scalar(x_478)) { + x_479 = lean_alloc_ctor(1, 2, 0); +} else { + x_479 = x_478; +} +lean_ctor_set(x_479, 0, x_476); +lean_ctor_set(x_479, 1, x_477); +return x_479; +} +} +} +} +else +{ +lean_object* x_480; lean_object* x_481; uint8_t x_482; +lean_dec(x_6); +x_480 = lean_unsigned_to_nat(1u); +x_481 = l_Lean_Syntax_getArg(x_1, x_480); +x_482 = !lean_is_exclusive(x_2); +if (x_482 == 0) +{ +uint8_t x_483; lean_object* x_484; +x_483 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_483); +lean_inc(x_4); +lean_inc(x_2); +x_484 = l_Lean_Elab_Term_toParserDescrAux___main(x_481, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_484) == 0) +{ +lean_object* x_485; lean_object* x_486; lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; uint8_t x_491; lean_object* x_492; +x_485 = lean_ctor_get(x_484, 0); +lean_inc(x_485); +x_486 = lean_ctor_get(x_484, 1); +lean_inc(x_486); +lean_dec(x_484); +x_487 = lean_ctor_get(x_485, 0); +lean_inc(x_487); +x_488 = lean_ctor_get(x_485, 1); +lean_inc(x_488); +lean_dec(x_485); +x_489 = lean_unsigned_to_nat(2u); +x_490 = l_Lean_Syntax_getArg(x_1, x_489); +lean_dec(x_1); +x_491 = lean_unbox(x_488); +lean_dec(x_488); +lean_inc(x_4); +x_492 = l_Lean_Elab_Term_toParserDescrAux___main(x_490, x_2, x_491, x_4, x_486); +if (lean_obj_tag(x_492) == 0) +{ +lean_object* x_493; lean_object* x_494; uint8_t x_495; +x_493 = lean_ctor_get(x_492, 0); +lean_inc(x_493); +x_494 = lean_ctor_get(x_492, 1); +lean_inc(x_494); +lean_dec(x_492); +x_495 = !lean_is_exclusive(x_493); +if (x_495 == 0) +{ +lean_object* x_496; lean_object* x_497; uint8_t x_498; +x_496 = lean_ctor_get(x_493, 0); +x_497 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_494); +lean_dec(x_4); +x_498 = !lean_is_exclusive(x_497); +if (x_498 == 0) +{ +lean_object* x_499; lean_object* x_500; lean_object* x_501; lean_object* x_502; lean_object* x_503; lean_object* x_504; lean_object* x_505; lean_object* x_506; lean_object* x_507; lean_object* x_508; lean_object* x_509; lean_object* x_510; lean_object* x_511; lean_object* x_512; lean_object* x_513; lean_object* x_514; lean_object* x_515; lean_object* x_516; lean_object* x_517; lean_object* x_518; lean_object* x_519; +x_499 = lean_ctor_get(x_497, 0); +x_500 = lean_box(0); +x_501 = l_Lean_Elab_Term_toParserDescrAux___main___closed__33; +x_502 = lean_name_mk_numeral(x_501, x_499); +x_503 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; +x_504 = l_Lean_Elab_Term_toParserDescrAux___main___closed__36; +x_505 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_505, 0, x_500); +lean_ctor_set(x_505, 1, x_503); +lean_ctor_set(x_505, 2, x_502); +lean_ctor_set(x_505, 3, x_504); +x_506 = l_Array_empty___closed__1; +x_507 = lean_array_push(x_506, x_505); +x_508 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_509 = lean_array_push(x_507, x_508); +x_510 = l_Lean_mkTermIdFromIdent___closed__2; +x_511 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_511, 0, x_510); +lean_ctor_set(x_511, 1, x_509); +x_512 = lean_array_push(x_506, x_511); +x_513 = lean_array_push(x_506, x_487); +x_514 = lean_array_push(x_513, x_496); +x_515 = l_Lean_nullKind___closed__2; +x_516 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_516, 0, x_515); +lean_ctor_set(x_516, 1, x_514); +x_517 = lean_array_push(x_512, x_516); +x_518 = l_Lean_mkAppStx___closed__8; +x_519 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_519, 0, x_518); +lean_ctor_set(x_519, 1, x_517); +lean_ctor_set(x_493, 0, x_519); +lean_ctor_set(x_497, 0, x_493); +return x_497; +} +else +{ +lean_object* x_520; lean_object* x_521; lean_object* x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; lean_object* x_528; lean_object* x_529; lean_object* x_530; lean_object* x_531; lean_object* x_532; lean_object* x_533; lean_object* x_534; lean_object* x_535; lean_object* x_536; lean_object* x_537; lean_object* x_538; lean_object* x_539; lean_object* x_540; lean_object* x_541; lean_object* x_542; +x_520 = lean_ctor_get(x_497, 0); +x_521 = lean_ctor_get(x_497, 1); +lean_inc(x_521); +lean_inc(x_520); +lean_dec(x_497); +x_522 = lean_box(0); +x_523 = l_Lean_Elab_Term_toParserDescrAux___main___closed__33; +x_524 = lean_name_mk_numeral(x_523, x_520); +x_525 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; +x_526 = l_Lean_Elab_Term_toParserDescrAux___main___closed__36; +x_527 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_527, 0, x_522); +lean_ctor_set(x_527, 1, x_525); +lean_ctor_set(x_527, 2, x_524); +lean_ctor_set(x_527, 3, x_526); +x_528 = l_Array_empty___closed__1; +x_529 = lean_array_push(x_528, x_527); +x_530 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_531 = lean_array_push(x_529, x_530); +x_532 = l_Lean_mkTermIdFromIdent___closed__2; +x_533 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_533, 0, x_532); +lean_ctor_set(x_533, 1, x_531); +x_534 = lean_array_push(x_528, x_533); +x_535 = lean_array_push(x_528, x_487); +x_536 = lean_array_push(x_535, x_496); +x_537 = l_Lean_nullKind___closed__2; +x_538 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_538, 0, x_537); +lean_ctor_set(x_538, 1, x_536); +x_539 = lean_array_push(x_534, x_538); +x_540 = l_Lean_mkAppStx___closed__8; +x_541 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_541, 0, x_540); +lean_ctor_set(x_541, 1, x_539); +lean_ctor_set(x_493, 0, x_541); +x_542 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_542, 0, x_493); +lean_ctor_set(x_542, 1, x_521); +return x_542; +} +} +else +{ +lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; lean_object* x_547; lean_object* x_548; lean_object* x_549; lean_object* x_550; lean_object* x_551; lean_object* x_552; lean_object* x_553; lean_object* x_554; lean_object* x_555; lean_object* x_556; lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_object* x_563; lean_object* x_564; lean_object* x_565; lean_object* x_566; lean_object* x_567; lean_object* x_568; lean_object* x_569; lean_object* x_570; +x_543 = lean_ctor_get(x_493, 0); +x_544 = lean_ctor_get(x_493, 1); +lean_inc(x_544); +lean_inc(x_543); +lean_dec(x_493); +x_545 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_494); +lean_dec(x_4); +x_546 = lean_ctor_get(x_545, 0); +lean_inc(x_546); +x_547 = lean_ctor_get(x_545, 1); +lean_inc(x_547); +if (lean_is_exclusive(x_545)) { + lean_ctor_release(x_545, 0); + lean_ctor_release(x_545, 1); + x_548 = x_545; +} else { + lean_dec_ref(x_545); + x_548 = lean_box(0); +} +x_549 = lean_box(0); +x_550 = l_Lean_Elab_Term_toParserDescrAux___main___closed__33; +x_551 = lean_name_mk_numeral(x_550, x_546); +x_552 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; +x_553 = l_Lean_Elab_Term_toParserDescrAux___main___closed__36; +x_554 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_554, 0, x_549); +lean_ctor_set(x_554, 1, x_552); +lean_ctor_set(x_554, 2, x_551); +lean_ctor_set(x_554, 3, x_553); +x_555 = l_Array_empty___closed__1; +x_556 = lean_array_push(x_555, x_554); +x_557 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_558 = lean_array_push(x_556, x_557); +x_559 = l_Lean_mkTermIdFromIdent___closed__2; +x_560 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_560, 0, x_559); +lean_ctor_set(x_560, 1, x_558); +x_561 = lean_array_push(x_555, x_560); +x_562 = lean_array_push(x_555, x_487); +x_563 = lean_array_push(x_562, x_543); +x_564 = l_Lean_nullKind___closed__2; +x_565 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_565, 0, x_564); +lean_ctor_set(x_565, 1, x_563); +x_566 = lean_array_push(x_561, x_565); +x_567 = l_Lean_mkAppStx___closed__8; +x_568 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_568, 0, x_567); +lean_ctor_set(x_568, 1, x_566); +x_569 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_569, 0, x_568); +lean_ctor_set(x_569, 1, x_544); +if (lean_is_scalar(x_548)) { + x_570 = lean_alloc_ctor(0, 2, 0); +} else { + x_570 = x_548; +} +lean_ctor_set(x_570, 0, x_569); +lean_ctor_set(x_570, 1, x_547); +return x_570; +} +} +else +{ +uint8_t x_571; +lean_dec(x_487); +lean_dec(x_4); +x_571 = !lean_is_exclusive(x_492); +if (x_571 == 0) +{ +return x_492; +} +else +{ +lean_object* x_572; lean_object* x_573; lean_object* x_574; +x_572 = lean_ctor_get(x_492, 0); +x_573 = lean_ctor_get(x_492, 1); +lean_inc(x_573); +lean_inc(x_572); +lean_dec(x_492); +x_574 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_574, 0, x_572); +lean_ctor_set(x_574, 1, x_573); +return x_574; +} +} +} +else +{ +uint8_t x_575; +lean_dec(x_2); +lean_dec(x_4); +lean_dec(x_1); +x_575 = !lean_is_exclusive(x_484); +if (x_575 == 0) +{ +return x_484; +} +else +{ +lean_object* x_576; lean_object* x_577; lean_object* x_578; +x_576 = lean_ctor_get(x_484, 0); +x_577 = lean_ctor_get(x_484, 1); +lean_inc(x_577); +lean_inc(x_576); +lean_dec(x_484); +x_578 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_578, 0, x_576); +lean_ctor_set(x_578, 1, x_577); +return x_578; +} +} +} +else +{ +lean_object* x_579; uint8_t x_580; uint8_t x_581; uint8_t x_582; lean_object* x_583; lean_object* x_584; +x_579 = lean_ctor_get(x_2, 0); +x_580 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_581 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_579); +lean_dec(x_2); +x_582 = 0; +x_583 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_583, 0, x_579); +lean_ctor_set_uint8(x_583, sizeof(void*)*1, x_580); +lean_ctor_set_uint8(x_583, sizeof(void*)*1 + 1, x_582); +lean_ctor_set_uint8(x_583, sizeof(void*)*1 + 2, x_581); +lean_inc(x_4); +lean_inc(x_583); +x_584 = l_Lean_Elab_Term_toParserDescrAux___main(x_481, x_583, x_3, x_4, x_5); +if (lean_obj_tag(x_584) == 0) +{ +lean_object* x_585; lean_object* x_586; lean_object* x_587; lean_object* x_588; lean_object* x_589; lean_object* x_590; uint8_t x_591; lean_object* x_592; +x_585 = lean_ctor_get(x_584, 0); +lean_inc(x_585); +x_586 = lean_ctor_get(x_584, 1); +lean_inc(x_586); +lean_dec(x_584); +x_587 = lean_ctor_get(x_585, 0); +lean_inc(x_587); +x_588 = lean_ctor_get(x_585, 1); +lean_inc(x_588); +lean_dec(x_585); +x_589 = lean_unsigned_to_nat(2u); +x_590 = l_Lean_Syntax_getArg(x_1, x_589); +lean_dec(x_1); +x_591 = lean_unbox(x_588); +lean_dec(x_588); +lean_inc(x_4); +x_592 = l_Lean_Elab_Term_toParserDescrAux___main(x_590, x_583, x_591, x_4, x_586); +if (lean_obj_tag(x_592) == 0) +{ +lean_object* x_593; lean_object* x_594; lean_object* x_595; lean_object* x_596; lean_object* x_597; lean_object* x_598; lean_object* x_599; lean_object* x_600; lean_object* x_601; lean_object* x_602; lean_object* x_603; lean_object* x_604; lean_object* x_605; lean_object* x_606; lean_object* x_607; lean_object* x_608; lean_object* x_609; lean_object* x_610; lean_object* x_611; lean_object* x_612; lean_object* x_613; lean_object* x_614; lean_object* x_615; lean_object* x_616; lean_object* x_617; lean_object* x_618; lean_object* x_619; lean_object* x_620; lean_object* x_621; lean_object* x_622; lean_object* x_623; +x_593 = lean_ctor_get(x_592, 0); +lean_inc(x_593); +x_594 = lean_ctor_get(x_592, 1); +lean_inc(x_594); +lean_dec(x_592); +x_595 = lean_ctor_get(x_593, 0); +lean_inc(x_595); +x_596 = lean_ctor_get(x_593, 1); +lean_inc(x_596); +if (lean_is_exclusive(x_593)) { + lean_ctor_release(x_593, 0); + lean_ctor_release(x_593, 1); + x_597 = x_593; +} else { + lean_dec_ref(x_593); + x_597 = lean_box(0); +} +x_598 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_594); +lean_dec(x_4); +x_599 = lean_ctor_get(x_598, 0); +lean_inc(x_599); +x_600 = lean_ctor_get(x_598, 1); +lean_inc(x_600); +if (lean_is_exclusive(x_598)) { + lean_ctor_release(x_598, 0); + lean_ctor_release(x_598, 1); + x_601 = x_598; +} else { + lean_dec_ref(x_598); + x_601 = lean_box(0); +} +x_602 = lean_box(0); +x_603 = l_Lean_Elab_Term_toParserDescrAux___main___closed__33; +x_604 = lean_name_mk_numeral(x_603, x_599); +x_605 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; +x_606 = l_Lean_Elab_Term_toParserDescrAux___main___closed__36; +x_607 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_607, 0, x_602); +lean_ctor_set(x_607, 1, x_605); +lean_ctor_set(x_607, 2, x_604); +lean_ctor_set(x_607, 3, x_606); +x_608 = l_Array_empty___closed__1; +x_609 = lean_array_push(x_608, x_607); +x_610 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_611 = lean_array_push(x_609, x_610); +x_612 = l_Lean_mkTermIdFromIdent___closed__2; +x_613 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_613, 0, x_612); +lean_ctor_set(x_613, 1, x_611); +x_614 = lean_array_push(x_608, x_613); +x_615 = lean_array_push(x_608, x_587); +x_616 = lean_array_push(x_615, x_595); +x_617 = l_Lean_nullKind___closed__2; +x_618 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_618, 0, x_617); +lean_ctor_set(x_618, 1, x_616); +x_619 = lean_array_push(x_614, x_618); +x_620 = l_Lean_mkAppStx___closed__8; +x_621 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_621, 0, x_620); +lean_ctor_set(x_621, 1, x_619); +if (lean_is_scalar(x_597)) { + x_622 = lean_alloc_ctor(0, 2, 0); +} else { + x_622 = x_597; +} +lean_ctor_set(x_622, 0, x_621); +lean_ctor_set(x_622, 1, x_596); +if (lean_is_scalar(x_601)) { + x_623 = lean_alloc_ctor(0, 2, 0); +} else { + x_623 = x_601; +} +lean_ctor_set(x_623, 0, x_622); +lean_ctor_set(x_623, 1, x_600); +return x_623; +} +else +{ +lean_object* x_624; lean_object* x_625; lean_object* x_626; lean_object* x_627; +lean_dec(x_587); +lean_dec(x_4); +x_624 = lean_ctor_get(x_592, 0); +lean_inc(x_624); +x_625 = lean_ctor_get(x_592, 1); +lean_inc(x_625); +if (lean_is_exclusive(x_592)) { + lean_ctor_release(x_592, 0); + lean_ctor_release(x_592, 1); + x_626 = x_592; +} else { + lean_dec_ref(x_592); + x_626 = lean_box(0); +} +if (lean_is_scalar(x_626)) { + x_627 = lean_alloc_ctor(1, 2, 0); +} else { + x_627 = x_626; +} +lean_ctor_set(x_627, 0, x_624); +lean_ctor_set(x_627, 1, x_625); +return x_627; +} +} +else +{ +lean_object* x_628; lean_object* x_629; lean_object* x_630; lean_object* x_631; +lean_dec(x_583); +lean_dec(x_4); +lean_dec(x_1); +x_628 = lean_ctor_get(x_584, 0); +lean_inc(x_628); +x_629 = lean_ctor_get(x_584, 1); +lean_inc(x_629); +if (lean_is_exclusive(x_584)) { + lean_ctor_release(x_584, 0); + lean_ctor_release(x_584, 1); + x_630 = x_584; +} else { + lean_dec_ref(x_584); + x_630 = lean_box(0); +} +if (lean_is_scalar(x_630)) { + x_631 = lean_alloc_ctor(1, 2, 0); +} else { + x_631 = x_630; +} +lean_ctor_set(x_631, 0, x_628); +lean_ctor_set(x_631, 1, x_629); +return x_631; +} +} +} +} +else +{ +lean_object* x_632; lean_object* x_633; uint8_t x_634; +lean_dec(x_6); +x_632 = lean_unsigned_to_nat(1u); +x_633 = l_Lean_Syntax_getArg(x_1, x_632); +x_634 = !lean_is_exclusive(x_2); +if (x_634 == 0) +{ +uint8_t x_635; lean_object* x_636; +x_635 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_635); +lean_inc(x_4); +lean_inc(x_2); +x_636 = l_Lean_Elab_Term_toParserDescrAux___main(x_633, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_636) == 0) +{ +lean_object* x_637; lean_object* x_638; lean_object* x_639; lean_object* x_640; lean_object* x_641; lean_object* x_642; uint8_t x_643; lean_object* x_644; +x_637 = lean_ctor_get(x_636, 0); +lean_inc(x_637); +x_638 = lean_ctor_get(x_636, 1); +lean_inc(x_638); +lean_dec(x_636); +x_639 = lean_ctor_get(x_637, 0); +lean_inc(x_639); +x_640 = lean_ctor_get(x_637, 1); +lean_inc(x_640); +lean_dec(x_637); +x_641 = lean_unsigned_to_nat(2u); +x_642 = l_Lean_Syntax_getArg(x_1, x_641); +lean_dec(x_1); +x_643 = lean_unbox(x_640); +lean_dec(x_640); +lean_inc(x_4); +x_644 = l_Lean_Elab_Term_toParserDescrAux___main(x_642, x_2, x_643, x_4, x_638); +if (lean_obj_tag(x_644) == 0) +{ +lean_object* x_645; lean_object* x_646; uint8_t x_647; +x_645 = lean_ctor_get(x_644, 0); +lean_inc(x_645); +x_646 = lean_ctor_get(x_644, 1); +lean_inc(x_646); +lean_dec(x_644); +x_647 = !lean_is_exclusive(x_645); +if (x_647 == 0) +{ +lean_object* x_648; lean_object* x_649; uint8_t x_650; +x_648 = lean_ctor_get(x_645, 0); +x_649 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_646); +lean_dec(x_4); +x_650 = !lean_is_exclusive(x_649); +if (x_650 == 0) +{ +lean_object* x_651; lean_object* x_652; lean_object* x_653; lean_object* x_654; lean_object* x_655; lean_object* x_656; lean_object* x_657; lean_object* x_658; lean_object* x_659; lean_object* x_660; lean_object* x_661; lean_object* x_662; lean_object* x_663; lean_object* x_664; lean_object* x_665; lean_object* x_666; lean_object* x_667; lean_object* x_668; lean_object* x_669; lean_object* x_670; lean_object* x_671; +x_651 = lean_ctor_get(x_649, 0); +x_652 = lean_box(0); +x_653 = l_Lean_Elab_Term_toParserDescrAux___main___closed__40; +x_654 = lean_name_mk_numeral(x_653, x_651); +x_655 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; +x_656 = l_Lean_Elab_Term_toParserDescrAux___main___closed__43; +x_657 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_657, 0, x_652); +lean_ctor_set(x_657, 1, x_655); +lean_ctor_set(x_657, 2, x_654); +lean_ctor_set(x_657, 3, x_656); +x_658 = l_Array_empty___closed__1; +x_659 = lean_array_push(x_658, x_657); +x_660 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_661 = lean_array_push(x_659, x_660); +x_662 = l_Lean_mkTermIdFromIdent___closed__2; +x_663 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_663, 0, x_662); +lean_ctor_set(x_663, 1, x_661); +x_664 = lean_array_push(x_658, x_663); +x_665 = lean_array_push(x_658, x_639); +x_666 = lean_array_push(x_665, x_648); +x_667 = l_Lean_nullKind___closed__2; +x_668 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_668, 0, x_667); +lean_ctor_set(x_668, 1, x_666); +x_669 = lean_array_push(x_664, x_668); +x_670 = l_Lean_mkAppStx___closed__8; +x_671 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_671, 0, x_670); +lean_ctor_set(x_671, 1, x_669); +lean_ctor_set(x_645, 0, x_671); +lean_ctor_set(x_649, 0, x_645); +return x_649; +} +else +{ +lean_object* x_672; lean_object* x_673; lean_object* x_674; lean_object* x_675; lean_object* x_676; lean_object* x_677; lean_object* x_678; lean_object* x_679; lean_object* x_680; lean_object* x_681; lean_object* x_682; lean_object* x_683; lean_object* x_684; lean_object* x_685; lean_object* x_686; lean_object* x_687; lean_object* x_688; lean_object* x_689; lean_object* x_690; lean_object* x_691; lean_object* x_692; lean_object* x_693; lean_object* x_694; +x_672 = lean_ctor_get(x_649, 0); +x_673 = lean_ctor_get(x_649, 1); +lean_inc(x_673); +lean_inc(x_672); +lean_dec(x_649); +x_674 = lean_box(0); +x_675 = l_Lean_Elab_Term_toParserDescrAux___main___closed__40; +x_676 = lean_name_mk_numeral(x_675, x_672); +x_677 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; +x_678 = l_Lean_Elab_Term_toParserDescrAux___main___closed__43; +x_679 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_679, 0, x_674); +lean_ctor_set(x_679, 1, x_677); +lean_ctor_set(x_679, 2, x_676); +lean_ctor_set(x_679, 3, x_678); +x_680 = l_Array_empty___closed__1; +x_681 = lean_array_push(x_680, x_679); +x_682 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_683 = lean_array_push(x_681, x_682); +x_684 = l_Lean_mkTermIdFromIdent___closed__2; +x_685 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_685, 0, x_684); +lean_ctor_set(x_685, 1, x_683); +x_686 = lean_array_push(x_680, x_685); +x_687 = lean_array_push(x_680, x_639); +x_688 = lean_array_push(x_687, x_648); +x_689 = l_Lean_nullKind___closed__2; +x_690 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_690, 0, x_689); +lean_ctor_set(x_690, 1, x_688); +x_691 = lean_array_push(x_686, x_690); +x_692 = l_Lean_mkAppStx___closed__8; +x_693 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_693, 0, x_692); +lean_ctor_set(x_693, 1, x_691); +lean_ctor_set(x_645, 0, x_693); +x_694 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_694, 0, x_645); +lean_ctor_set(x_694, 1, x_673); +return x_694; +} +} +else +{ +lean_object* x_695; lean_object* x_696; lean_object* x_697; lean_object* x_698; lean_object* x_699; lean_object* x_700; lean_object* x_701; lean_object* x_702; lean_object* x_703; lean_object* x_704; lean_object* x_705; lean_object* x_706; lean_object* x_707; lean_object* x_708; lean_object* x_709; lean_object* x_710; lean_object* x_711; lean_object* x_712; lean_object* x_713; lean_object* x_714; lean_object* x_715; lean_object* x_716; lean_object* x_717; lean_object* x_718; lean_object* x_719; lean_object* x_720; lean_object* x_721; lean_object* x_722; +x_695 = lean_ctor_get(x_645, 0); +x_696 = lean_ctor_get(x_645, 1); +lean_inc(x_696); +lean_inc(x_695); +lean_dec(x_645); +x_697 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_646); +lean_dec(x_4); +x_698 = lean_ctor_get(x_697, 0); +lean_inc(x_698); +x_699 = lean_ctor_get(x_697, 1); +lean_inc(x_699); +if (lean_is_exclusive(x_697)) { + lean_ctor_release(x_697, 0); + lean_ctor_release(x_697, 1); + x_700 = x_697; +} else { + lean_dec_ref(x_697); + x_700 = lean_box(0); +} +x_701 = lean_box(0); +x_702 = l_Lean_Elab_Term_toParserDescrAux___main___closed__40; +x_703 = lean_name_mk_numeral(x_702, x_698); +x_704 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; +x_705 = l_Lean_Elab_Term_toParserDescrAux___main___closed__43; +x_706 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_706, 0, x_701); +lean_ctor_set(x_706, 1, x_704); +lean_ctor_set(x_706, 2, x_703); +lean_ctor_set(x_706, 3, x_705); +x_707 = l_Array_empty___closed__1; +x_708 = lean_array_push(x_707, x_706); +x_709 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_710 = lean_array_push(x_708, x_709); +x_711 = l_Lean_mkTermIdFromIdent___closed__2; +x_712 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_712, 0, x_711); +lean_ctor_set(x_712, 1, x_710); +x_713 = lean_array_push(x_707, x_712); +x_714 = lean_array_push(x_707, x_639); +x_715 = lean_array_push(x_714, x_695); +x_716 = l_Lean_nullKind___closed__2; +x_717 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_717, 0, x_716); +lean_ctor_set(x_717, 1, x_715); +x_718 = lean_array_push(x_713, x_717); +x_719 = l_Lean_mkAppStx___closed__8; +x_720 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_720, 0, x_719); +lean_ctor_set(x_720, 1, x_718); +x_721 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_721, 0, x_720); +lean_ctor_set(x_721, 1, x_696); +if (lean_is_scalar(x_700)) { + x_722 = lean_alloc_ctor(0, 2, 0); +} else { + x_722 = x_700; +} +lean_ctor_set(x_722, 0, x_721); +lean_ctor_set(x_722, 1, x_699); +return x_722; +} +} +else +{ +uint8_t x_723; +lean_dec(x_639); +lean_dec(x_4); +x_723 = !lean_is_exclusive(x_644); +if (x_723 == 0) +{ +return x_644; +} +else +{ +lean_object* x_724; lean_object* x_725; lean_object* x_726; +x_724 = lean_ctor_get(x_644, 0); +x_725 = lean_ctor_get(x_644, 1); +lean_inc(x_725); +lean_inc(x_724); +lean_dec(x_644); +x_726 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_726, 0, x_724); +lean_ctor_set(x_726, 1, x_725); +return x_726; +} +} +} +else +{ +uint8_t x_727; +lean_dec(x_2); +lean_dec(x_4); +lean_dec(x_1); +x_727 = !lean_is_exclusive(x_636); +if (x_727 == 0) +{ +return x_636; +} +else +{ +lean_object* x_728; lean_object* x_729; lean_object* x_730; +x_728 = lean_ctor_get(x_636, 0); +x_729 = lean_ctor_get(x_636, 1); +lean_inc(x_729); +lean_inc(x_728); +lean_dec(x_636); +x_730 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_730, 0, x_728); +lean_ctor_set(x_730, 1, x_729); +return x_730; +} +} +} +else +{ +lean_object* x_731; uint8_t x_732; uint8_t x_733; uint8_t x_734; lean_object* x_735; lean_object* x_736; +x_731 = lean_ctor_get(x_2, 0); +x_732 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_733 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_731); +lean_dec(x_2); +x_734 = 0; +x_735 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_735, 0, x_731); +lean_ctor_set_uint8(x_735, sizeof(void*)*1, x_732); +lean_ctor_set_uint8(x_735, sizeof(void*)*1 + 1, x_734); +lean_ctor_set_uint8(x_735, sizeof(void*)*1 + 2, x_733); +lean_inc(x_4); +lean_inc(x_735); +x_736 = l_Lean_Elab_Term_toParserDescrAux___main(x_633, x_735, x_3, x_4, x_5); +if (lean_obj_tag(x_736) == 0) +{ +lean_object* x_737; lean_object* x_738; lean_object* x_739; lean_object* x_740; lean_object* x_741; lean_object* x_742; uint8_t x_743; lean_object* x_744; +x_737 = lean_ctor_get(x_736, 0); +lean_inc(x_737); +x_738 = lean_ctor_get(x_736, 1); +lean_inc(x_738); +lean_dec(x_736); +x_739 = lean_ctor_get(x_737, 0); +lean_inc(x_739); +x_740 = lean_ctor_get(x_737, 1); +lean_inc(x_740); +lean_dec(x_737); +x_741 = lean_unsigned_to_nat(2u); +x_742 = l_Lean_Syntax_getArg(x_1, x_741); +lean_dec(x_1); +x_743 = lean_unbox(x_740); +lean_dec(x_740); +lean_inc(x_4); +x_744 = l_Lean_Elab_Term_toParserDescrAux___main(x_742, x_735, x_743, x_4, x_738); +if (lean_obj_tag(x_744) == 0) +{ +lean_object* x_745; lean_object* x_746; lean_object* x_747; lean_object* x_748; lean_object* x_749; lean_object* x_750; lean_object* x_751; lean_object* x_752; lean_object* x_753; lean_object* x_754; lean_object* x_755; lean_object* x_756; lean_object* x_757; lean_object* x_758; lean_object* x_759; lean_object* x_760; lean_object* x_761; lean_object* x_762; lean_object* x_763; lean_object* x_764; lean_object* x_765; lean_object* x_766; lean_object* x_767; lean_object* x_768; lean_object* x_769; lean_object* x_770; lean_object* x_771; lean_object* x_772; lean_object* x_773; lean_object* x_774; lean_object* x_775; +x_745 = lean_ctor_get(x_744, 0); +lean_inc(x_745); +x_746 = lean_ctor_get(x_744, 1); +lean_inc(x_746); +lean_dec(x_744); +x_747 = lean_ctor_get(x_745, 0); +lean_inc(x_747); +x_748 = lean_ctor_get(x_745, 1); +lean_inc(x_748); +if (lean_is_exclusive(x_745)) { + lean_ctor_release(x_745, 0); + lean_ctor_release(x_745, 1); + x_749 = x_745; +} else { + lean_dec_ref(x_745); + x_749 = lean_box(0); +} +x_750 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_746); +lean_dec(x_4); +x_751 = lean_ctor_get(x_750, 0); +lean_inc(x_751); +x_752 = lean_ctor_get(x_750, 1); +lean_inc(x_752); +if (lean_is_exclusive(x_750)) { + lean_ctor_release(x_750, 0); + lean_ctor_release(x_750, 1); + x_753 = x_750; +} else { + lean_dec_ref(x_750); + x_753 = lean_box(0); +} +x_754 = lean_box(0); +x_755 = l_Lean_Elab_Term_toParserDescrAux___main___closed__40; +x_756 = lean_name_mk_numeral(x_755, x_751); +x_757 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; +x_758 = l_Lean_Elab_Term_toParserDescrAux___main___closed__43; +x_759 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_759, 0, x_754); +lean_ctor_set(x_759, 1, x_757); +lean_ctor_set(x_759, 2, x_756); +lean_ctor_set(x_759, 3, x_758); +x_760 = l_Array_empty___closed__1; +x_761 = lean_array_push(x_760, x_759); +x_762 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_763 = lean_array_push(x_761, x_762); +x_764 = l_Lean_mkTermIdFromIdent___closed__2; +x_765 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_765, 0, x_764); +lean_ctor_set(x_765, 1, x_763); +x_766 = lean_array_push(x_760, x_765); +x_767 = lean_array_push(x_760, x_739); +x_768 = lean_array_push(x_767, x_747); +x_769 = l_Lean_nullKind___closed__2; +x_770 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_770, 0, x_769); +lean_ctor_set(x_770, 1, x_768); +x_771 = lean_array_push(x_766, x_770); +x_772 = l_Lean_mkAppStx___closed__8; +x_773 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_773, 0, x_772); +lean_ctor_set(x_773, 1, x_771); +if (lean_is_scalar(x_749)) { + x_774 = lean_alloc_ctor(0, 2, 0); +} else { + x_774 = x_749; +} +lean_ctor_set(x_774, 0, x_773); +lean_ctor_set(x_774, 1, x_748); +if (lean_is_scalar(x_753)) { + x_775 = lean_alloc_ctor(0, 2, 0); +} else { + x_775 = x_753; +} +lean_ctor_set(x_775, 0, x_774); +lean_ctor_set(x_775, 1, x_752); +return x_775; +} +else +{ +lean_object* x_776; lean_object* x_777; lean_object* x_778; lean_object* x_779; +lean_dec(x_739); +lean_dec(x_4); +x_776 = lean_ctor_get(x_744, 0); +lean_inc(x_776); +x_777 = lean_ctor_get(x_744, 1); +lean_inc(x_777); +if (lean_is_exclusive(x_744)) { + lean_ctor_release(x_744, 0); + lean_ctor_release(x_744, 1); + x_778 = x_744; +} else { + lean_dec_ref(x_744); + x_778 = lean_box(0); +} +if (lean_is_scalar(x_778)) { + x_779 = lean_alloc_ctor(1, 2, 0); +} else { + x_779 = x_778; +} +lean_ctor_set(x_779, 0, x_776); +lean_ctor_set(x_779, 1, x_777); +return x_779; +} +} +else +{ +lean_object* x_780; lean_object* x_781; lean_object* x_782; lean_object* x_783; +lean_dec(x_735); +lean_dec(x_4); +lean_dec(x_1); +x_780 = lean_ctor_get(x_736, 0); +lean_inc(x_780); +x_781 = lean_ctor_get(x_736, 1); +lean_inc(x_781); +if (lean_is_exclusive(x_736)) { + lean_ctor_release(x_736, 0); + lean_ctor_release(x_736, 1); + x_782 = x_736; +} else { + lean_dec_ref(x_736); + x_782 = lean_box(0); +} +if (lean_is_scalar(x_782)) { + x_783 = lean_alloc_ctor(1, 2, 0); +} else { + x_783 = x_782; +} +lean_ctor_set(x_783, 0, x_780); +lean_ctor_set(x_783, 1, x_781); +return x_783; +} +} +} +} +else +{ +lean_object* x_784; lean_object* x_785; uint8_t x_786; +lean_dec(x_6); +x_784 = lean_unsigned_to_nat(1u); +x_785 = l_Lean_Syntax_getArg(x_1, x_784); +lean_dec(x_1); +x_786 = !lean_is_exclusive(x_2); +if (x_786 == 0) +{ +uint8_t x_787; lean_object* x_788; +x_787 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_787); +lean_inc(x_4); +x_788 = l_Lean_Elab_Term_toParserDescrAux___main(x_785, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_788) == 0) +{ +lean_object* x_789; lean_object* x_790; uint8_t x_791; +x_789 = lean_ctor_get(x_788, 0); +lean_inc(x_789); +x_790 = lean_ctor_get(x_788, 1); +lean_inc(x_790); +lean_dec(x_788); +x_791 = !lean_is_exclusive(x_789); +if (x_791 == 0) +{ +lean_object* x_792; lean_object* x_793; uint8_t x_794; +x_792 = lean_ctor_get(x_789, 0); +x_793 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_790); +lean_dec(x_4); +x_794 = !lean_is_exclusive(x_793); +if (x_794 == 0) +{ +lean_object* x_795; lean_object* x_796; lean_object* x_797; lean_object* x_798; lean_object* x_799; lean_object* x_800; lean_object* x_801; lean_object* x_802; lean_object* x_803; lean_object* x_804; lean_object* x_805; lean_object* x_806; lean_object* x_807; lean_object* x_808; lean_object* x_809; lean_object* x_810; lean_object* x_811; lean_object* x_812; lean_object* x_813; lean_object* x_814; +x_795 = lean_ctor_get(x_793, 0); +x_796 = lean_box(0); +x_797 = l_Lean_Elab_Term_toParserDescrAux___main___closed__47; +x_798 = lean_name_mk_numeral(x_797, x_795); +x_799 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; +x_800 = l_Lean_Elab_Term_toParserDescrAux___main___closed__50; +x_801 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_801, 0, x_796); +lean_ctor_set(x_801, 1, x_799); +lean_ctor_set(x_801, 2, x_798); +lean_ctor_set(x_801, 3, x_800); +x_802 = l_Array_empty___closed__1; +x_803 = lean_array_push(x_802, x_801); +x_804 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_805 = lean_array_push(x_803, x_804); +x_806 = l_Lean_mkTermIdFromIdent___closed__2; +x_807 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_807, 0, x_806); +lean_ctor_set(x_807, 1, x_805); +x_808 = lean_array_push(x_802, x_807); +x_809 = lean_array_push(x_802, x_792); +x_810 = l_Lean_nullKind___closed__2; +x_811 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_811, 0, x_810); +lean_ctor_set(x_811, 1, x_809); +x_812 = lean_array_push(x_808, x_811); +x_813 = l_Lean_mkAppStx___closed__8; +x_814 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_814, 0, x_813); +lean_ctor_set(x_814, 1, x_812); +lean_ctor_set(x_789, 0, x_814); +lean_ctor_set(x_793, 0, x_789); +return x_793; +} +else +{ +lean_object* x_815; lean_object* x_816; lean_object* x_817; lean_object* x_818; lean_object* x_819; lean_object* x_820; lean_object* x_821; lean_object* x_822; lean_object* x_823; lean_object* x_824; lean_object* x_825; lean_object* x_826; lean_object* x_827; lean_object* x_828; lean_object* x_829; lean_object* x_830; lean_object* x_831; lean_object* x_832; lean_object* x_833; lean_object* x_834; lean_object* x_835; lean_object* x_836; +x_815 = lean_ctor_get(x_793, 0); +x_816 = lean_ctor_get(x_793, 1); +lean_inc(x_816); +lean_inc(x_815); +lean_dec(x_793); +x_817 = lean_box(0); +x_818 = l_Lean_Elab_Term_toParserDescrAux___main___closed__47; +x_819 = lean_name_mk_numeral(x_818, x_815); +x_820 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; +x_821 = l_Lean_Elab_Term_toParserDescrAux___main___closed__50; +x_822 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_822, 0, x_817); +lean_ctor_set(x_822, 1, x_820); +lean_ctor_set(x_822, 2, x_819); +lean_ctor_set(x_822, 3, x_821); +x_823 = l_Array_empty___closed__1; +x_824 = lean_array_push(x_823, x_822); +x_825 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_826 = lean_array_push(x_824, x_825); +x_827 = l_Lean_mkTermIdFromIdent___closed__2; +x_828 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_828, 0, x_827); -lean_inc(x_4); -x_829 = l_Lean_Elab_Term_toParserDescrAux___main(x_818, x_828, x_3, x_4, x_5); -if (lean_obj_tag(x_829) == 0) -{ -lean_object* x_830; lean_object* x_831; -x_830 = lean_ctor_get(x_829, 0); -lean_inc(x_830); -x_831 = lean_ctor_get(x_829, 1); -lean_inc(x_831); -lean_dec(x_829); -x_124 = x_830; -x_125 = x_831; -goto block_199; -} -else -{ -lean_object* x_832; lean_object* x_833; lean_object* x_834; lean_object* x_835; -lean_dec(x_4); -x_832 = lean_ctor_get(x_829, 0); -lean_inc(x_832); -x_833 = lean_ctor_get(x_829, 1); -lean_inc(x_833); -if (lean_is_exclusive(x_829)) { - lean_ctor_release(x_829, 0); - lean_ctor_release(x_829, 1); - x_834 = x_829; -} else { - lean_dec_ref(x_829); - x_834 = lean_box(0); -} -if (lean_is_scalar(x_834)) { - x_835 = lean_alloc_ctor(1, 2, 0); -} else { - x_835 = x_834; -} -lean_ctor_set(x_835, 0, x_832); +lean_ctor_set(x_828, 1, x_826); +x_829 = lean_array_push(x_823, x_828); +x_830 = lean_array_push(x_823, x_792); +x_831 = l_Lean_nullKind___closed__2; +x_832 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_832, 0, x_831); +lean_ctor_set(x_832, 1, x_830); +x_833 = lean_array_push(x_829, x_832); +x_834 = l_Lean_mkAppStx___closed__8; +x_835 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_835, 0, x_834); lean_ctor_set(x_835, 1, x_833); -return x_835; -} -} -} -else -{ -lean_object* x_836; -lean_inc(x_4); -x_836 = l_Lean_Elab_Term_toParserDescrAux___main(x_818, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_836) == 0) -{ -lean_object* x_837; lean_object* x_838; -x_837 = lean_ctor_get(x_836, 0); -lean_inc(x_837); -x_838 = lean_ctor_get(x_836, 1); -lean_inc(x_838); -lean_dec(x_836); -x_124 = x_837; -x_125 = x_838; -goto block_199; -} -else -{ -uint8_t x_839; -lean_dec(x_4); -x_839 = !lean_is_exclusive(x_836); -if (x_839 == 0) -{ +lean_ctor_set(x_789, 0, x_835); +x_836 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_836, 0, x_789); +lean_ctor_set(x_836, 1, x_816); return x_836; } +} else { -lean_object* x_840; lean_object* x_841; lean_object* x_842; -x_840 = lean_ctor_get(x_836, 0); -x_841 = lean_ctor_get(x_836, 1); -lean_inc(x_841); +lean_object* x_837; lean_object* x_838; lean_object* x_839; lean_object* x_840; lean_object* x_841; lean_object* x_842; lean_object* x_843; lean_object* x_844; lean_object* x_845; lean_object* x_846; lean_object* x_847; lean_object* x_848; lean_object* x_849; lean_object* x_850; lean_object* x_851; lean_object* x_852; lean_object* x_853; lean_object* x_854; lean_object* x_855; lean_object* x_856; lean_object* x_857; lean_object* x_858; lean_object* x_859; lean_object* x_860; lean_object* x_861; lean_object* x_862; lean_object* x_863; +x_837 = lean_ctor_get(x_789, 0); +x_838 = lean_ctor_get(x_789, 1); +lean_inc(x_838); +lean_inc(x_837); +lean_dec(x_789); +x_839 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_790); +lean_dec(x_4); +x_840 = lean_ctor_get(x_839, 0); lean_inc(x_840); -lean_dec(x_836); -x_842 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_842, 0, x_840); -lean_ctor_set(x_842, 1, x_841); -return x_842; +x_841 = lean_ctor_get(x_839, 1); +lean_inc(x_841); +if (lean_is_exclusive(x_839)) { + lean_ctor_release(x_839, 0); + lean_ctor_release(x_839, 1); + x_842 = x_839; +} else { + lean_dec_ref(x_839); + x_842 = lean_box(0); } -} -} -} -} -else -{ -lean_object* x_843; lean_object* x_844; -lean_dec(x_6); -x_843 = lean_unsigned_to_nat(0u); -x_844 = l_Lean_Syntax_getArg(x_1, x_843); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_845; -x_845 = !lean_is_exclusive(x_2); -if (x_845 == 0) -{ -lean_object* x_846; -lean_ctor_set_tag(x_2, 1); -lean_inc(x_4); -x_846 = l_Lean_Elab_Term_toParserDescrAux___main(x_844, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_846) == 0) -{ -lean_object* x_847; lean_object* x_848; -x_847 = lean_ctor_get(x_846, 0); -lean_inc(x_847); -x_848 = lean_ctor_get(x_846, 1); -lean_inc(x_848); -lean_dec(x_846); -x_200 = x_847; -x_201 = x_848; -goto block_275; -} -else -{ -uint8_t x_849; -lean_dec(x_4); -x_849 = !lean_is_exclusive(x_846); -if (x_849 == 0) -{ -return x_846; -} -else -{ -lean_object* x_850; lean_object* x_851; lean_object* x_852; -x_850 = lean_ctor_get(x_846, 0); -x_851 = lean_ctor_get(x_846, 1); -lean_inc(x_851); -lean_inc(x_850); -lean_dec(x_846); -x_852 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_852, 0, x_850); -lean_ctor_set(x_852, 1, x_851); -return x_852; -} -} -} -else -{ -lean_object* x_853; lean_object* x_854; lean_object* x_855; -x_853 = lean_ctor_get(x_2, 0); -lean_inc(x_853); -lean_dec(x_2); -x_854 = lean_alloc_ctor(1, 1, 0); +x_843 = lean_box(0); +x_844 = l_Lean_Elab_Term_toParserDescrAux___main___closed__47; +x_845 = lean_name_mk_numeral(x_844, x_840); +x_846 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; +x_847 = l_Lean_Elab_Term_toParserDescrAux___main___closed__50; +x_848 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_848, 0, x_843); +lean_ctor_set(x_848, 1, x_846); +lean_ctor_set(x_848, 2, x_845); +lean_ctor_set(x_848, 3, x_847); +x_849 = l_Array_empty___closed__1; +x_850 = lean_array_push(x_849, x_848); +x_851 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_852 = lean_array_push(x_850, x_851); +x_853 = l_Lean_mkTermIdFromIdent___closed__2; +x_854 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_854, 0, x_853); -lean_inc(x_4); -x_855 = l_Lean_Elab_Term_toParserDescrAux___main(x_844, x_854, x_3, x_4, x_5); -if (lean_obj_tag(x_855) == 0) -{ -lean_object* x_856; lean_object* x_857; -x_856 = lean_ctor_get(x_855, 0); -lean_inc(x_856); -x_857 = lean_ctor_get(x_855, 1); -lean_inc(x_857); -lean_dec(x_855); -x_200 = x_856; -x_201 = x_857; -goto block_275; -} -else -{ -lean_object* x_858; lean_object* x_859; lean_object* x_860; lean_object* x_861; -lean_dec(x_4); -x_858 = lean_ctor_get(x_855, 0); -lean_inc(x_858); -x_859 = lean_ctor_get(x_855, 1); -lean_inc(x_859); -if (lean_is_exclusive(x_855)) { - lean_ctor_release(x_855, 0); - lean_ctor_release(x_855, 1); - x_860 = x_855; -} else { - lean_dec_ref(x_855); - x_860 = lean_box(0); -} -if (lean_is_scalar(x_860)) { - x_861 = lean_alloc_ctor(1, 2, 0); -} else { - x_861 = x_860; -} -lean_ctor_set(x_861, 0, x_858); +lean_ctor_set(x_854, 1, x_852); +x_855 = lean_array_push(x_849, x_854); +x_856 = lean_array_push(x_849, x_837); +x_857 = l_Lean_nullKind___closed__2; +x_858 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_858, 0, x_857); +lean_ctor_set(x_858, 1, x_856); +x_859 = lean_array_push(x_855, x_858); +x_860 = l_Lean_mkAppStx___closed__8; +x_861 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_861, 0, x_860); lean_ctor_set(x_861, 1, x_859); -return x_861; +x_862 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_862, 0, x_861); +lean_ctor_set(x_862, 1, x_838); +if (lean_is_scalar(x_842)) { + x_863 = lean_alloc_ctor(0, 2, 0); +} else { + x_863 = x_842; } +lean_ctor_set(x_863, 0, x_862); +lean_ctor_set(x_863, 1, x_841); +return x_863; } } else { -lean_object* x_862; -lean_inc(x_4); -x_862 = l_Lean_Elab_Term_toParserDescrAux___main(x_844, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_862) == 0) -{ -lean_object* x_863; lean_object* x_864; -x_863 = lean_ctor_get(x_862, 0); -lean_inc(x_863); -x_864 = lean_ctor_get(x_862, 1); -lean_inc(x_864); -lean_dec(x_862); -x_200 = x_863; -x_201 = x_864; -goto block_275; -} -else -{ -uint8_t x_865; +uint8_t x_864; lean_dec(x_4); -x_865 = !lean_is_exclusive(x_862); -if (x_865 == 0) +x_864 = !lean_is_exclusive(x_788); +if (x_864 == 0) { -return x_862; +return x_788; } else { -lean_object* x_866; lean_object* x_867; lean_object* x_868; -x_866 = lean_ctor_get(x_862, 0); -x_867 = lean_ctor_get(x_862, 1); -lean_inc(x_867); +lean_object* x_865; lean_object* x_866; lean_object* x_867; +x_865 = lean_ctor_get(x_788, 0); +x_866 = lean_ctor_get(x_788, 1); lean_inc(x_866); -lean_dec(x_862); -x_868 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_868, 0, x_866); -lean_ctor_set(x_868, 1, x_867); -return x_868; -} -} +lean_inc(x_865); +lean_dec(x_788); +x_867 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_867, 0, x_865); +lean_ctor_set(x_867, 1, x_866); +return x_867; } } } else { -lean_object* x_869; lean_object* x_870; -lean_dec(x_6); -x_869 = lean_unsigned_to_nat(1u); -x_870 = l_Lean_Syntax_getArg(x_1, x_869); -if (lean_obj_tag(x_2) == 2) -{ -lean_object* x_871; lean_object* x_872; lean_object* x_873; -x_871 = lean_ctor_get(x_2, 0); -lean_inc(x_871); -x_872 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_872, 0, x_871); +lean_object* x_868; uint8_t x_869; uint8_t x_870; uint8_t x_871; lean_object* x_872; lean_object* x_873; +x_868 = lean_ctor_get(x_2, 0); +x_869 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_870 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_868); +lean_dec(x_2); +x_871 = 0; +x_872 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_872, 0, x_868); +lean_ctor_set_uint8(x_872, sizeof(void*)*1, x_869); +lean_ctor_set_uint8(x_872, sizeof(void*)*1 + 1, x_871); +lean_ctor_set_uint8(x_872, sizeof(void*)*1 + 2, x_870); lean_inc(x_4); -x_873 = l_Lean_Elab_Term_toParserDescrAux___main(x_870, x_872, x_3, x_4, x_5); +x_873 = l_Lean_Elab_Term_toParserDescrAux___main(x_785, x_872, x_3, x_4, x_5); if (lean_obj_tag(x_873) == 0) { -lean_object* x_874; lean_object* x_875; +lean_object* x_874; lean_object* x_875; lean_object* x_876; lean_object* x_877; lean_object* x_878; lean_object* x_879; lean_object* x_880; lean_object* x_881; lean_object* x_882; lean_object* x_883; lean_object* x_884; lean_object* x_885; lean_object* x_886; lean_object* x_887; lean_object* x_888; lean_object* x_889; lean_object* x_890; lean_object* x_891; lean_object* x_892; lean_object* x_893; lean_object* x_894; lean_object* x_895; lean_object* x_896; lean_object* x_897; lean_object* x_898; lean_object* x_899; lean_object* x_900; lean_object* x_901; lean_object* x_902; lean_object* x_903; x_874 = lean_ctor_get(x_873, 0); lean_inc(x_874); x_875 = lean_ctor_get(x_873, 1); lean_inc(x_875); lean_dec(x_873); -x_276 = x_874; -x_277 = x_875; -goto block_388; -} -else -{ -uint8_t x_876; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_876 = !lean_is_exclusive(x_873); -if (x_876 == 0) -{ -return x_873; -} -else -{ -lean_object* x_877; lean_object* x_878; lean_object* x_879; -x_877 = lean_ctor_get(x_873, 0); -x_878 = lean_ctor_get(x_873, 1); -lean_inc(x_878); +x_876 = lean_ctor_get(x_874, 0); +lean_inc(x_876); +x_877 = lean_ctor_get(x_874, 1); lean_inc(x_877); -lean_dec(x_873); -x_879 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_879, 0, x_877); -lean_ctor_set(x_879, 1, x_878); -return x_879; +if (lean_is_exclusive(x_874)) { + lean_ctor_release(x_874, 0); + lean_ctor_release(x_874, 1); + x_878 = x_874; +} else { + lean_dec_ref(x_874); + x_878 = lean_box(0); } -} -} -else -{ -lean_object* x_880; -lean_inc(x_4); -lean_inc(x_2); -x_880 = l_Lean_Elab_Term_toParserDescrAux___main(x_870, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_880) == 0) -{ -lean_object* x_881; lean_object* x_882; -x_881 = lean_ctor_get(x_880, 0); +x_879 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_875); +lean_dec(x_4); +x_880 = lean_ctor_get(x_879, 0); +lean_inc(x_880); +x_881 = lean_ctor_get(x_879, 1); lean_inc(x_881); -x_882 = lean_ctor_get(x_880, 1); -lean_inc(x_882); -lean_dec(x_880); -x_276 = x_881; -x_277 = x_882; -goto block_388; +if (lean_is_exclusive(x_879)) { + lean_ctor_release(x_879, 0); + lean_ctor_release(x_879, 1); + x_882 = x_879; +} else { + lean_dec_ref(x_879); + x_882 = lean_box(0); +} +x_883 = lean_box(0); +x_884 = l_Lean_Elab_Term_toParserDescrAux___main___closed__47; +x_885 = lean_name_mk_numeral(x_884, x_880); +x_886 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; +x_887 = l_Lean_Elab_Term_toParserDescrAux___main___closed__50; +x_888 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_888, 0, x_883); +lean_ctor_set(x_888, 1, x_886); +lean_ctor_set(x_888, 2, x_885); +lean_ctor_set(x_888, 3, x_887); +x_889 = l_Array_empty___closed__1; +x_890 = lean_array_push(x_889, x_888); +x_891 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_892 = lean_array_push(x_890, x_891); +x_893 = l_Lean_mkTermIdFromIdent___closed__2; +x_894 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_894, 0, x_893); +lean_ctor_set(x_894, 1, x_892); +x_895 = lean_array_push(x_889, x_894); +x_896 = lean_array_push(x_889, x_876); +x_897 = l_Lean_nullKind___closed__2; +x_898 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_898, 0, x_897); +lean_ctor_set(x_898, 1, x_896); +x_899 = lean_array_push(x_895, x_898); +x_900 = l_Lean_mkAppStx___closed__8; +x_901 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_901, 0, x_900); +lean_ctor_set(x_901, 1, x_899); +if (lean_is_scalar(x_878)) { + x_902 = lean_alloc_ctor(0, 2, 0); +} else { + x_902 = x_878; +} +lean_ctor_set(x_902, 0, x_901); +lean_ctor_set(x_902, 1, x_877); +if (lean_is_scalar(x_882)) { + x_903 = lean_alloc_ctor(0, 2, 0); +} else { + x_903 = x_882; +} +lean_ctor_set(x_903, 0, x_902); +lean_ctor_set(x_903, 1, x_881); +return x_903; } else { -uint8_t x_883; +lean_object* x_904; lean_object* x_905; lean_object* x_906; lean_object* x_907; lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_883 = !lean_is_exclusive(x_880); -if (x_883 == 0) -{ -return x_880; +x_904 = lean_ctor_get(x_873, 0); +lean_inc(x_904); +x_905 = lean_ctor_get(x_873, 1); +lean_inc(x_905); +if (lean_is_exclusive(x_873)) { + lean_ctor_release(x_873, 0); + lean_ctor_release(x_873, 1); + x_906 = x_873; +} else { + lean_dec_ref(x_873); + x_906 = lean_box(0); } -else -{ -lean_object* x_884; lean_object* x_885; lean_object* x_886; -x_884 = lean_ctor_get(x_880, 0); -x_885 = lean_ctor_get(x_880, 1); -lean_inc(x_885); -lean_inc(x_884); -lean_dec(x_880); -x_886 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_886, 0, x_884); -lean_ctor_set(x_886, 1, x_885); -return x_886; +if (lean_is_scalar(x_906)) { + x_907 = lean_alloc_ctor(1, 2, 0); +} else { + x_907 = x_906; } +lean_ctor_set(x_907, 0, x_904); +lean_ctor_set(x_907, 1, x_905); +return x_907; } } } } else { -lean_object* x_887; lean_object* x_888; +lean_object* x_908; lean_object* x_909; uint8_t x_910; lean_dec(x_6); -x_887 = lean_unsigned_to_nat(1u); -x_888 = l_Lean_Syntax_getArg(x_1, x_887); -if (lean_obj_tag(x_2) == 2) -{ -lean_object* x_889; lean_object* x_890; lean_object* x_891; -x_889 = lean_ctor_get(x_2, 0); -lean_inc(x_889); -x_890 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_890, 0, x_889); -lean_inc(x_4); -x_891 = l_Lean_Elab_Term_toParserDescrAux___main(x_888, x_890, x_3, x_4, x_5); -if (lean_obj_tag(x_891) == 0) -{ -lean_object* x_892; lean_object* x_893; -x_892 = lean_ctor_get(x_891, 0); -lean_inc(x_892); -x_893 = lean_ctor_get(x_891, 1); -lean_inc(x_893); -lean_dec(x_891); -x_389 = x_892; -x_390 = x_893; -goto block_501; -} -else -{ -uint8_t x_894; -lean_dec(x_4); -lean_dec(x_2); +x_908 = lean_unsigned_to_nat(1u); +x_909 = l_Lean_Syntax_getArg(x_1, x_908); lean_dec(x_1); -x_894 = !lean_is_exclusive(x_891); -if (x_894 == 0) +x_910 = !lean_is_exclusive(x_2); +if (x_910 == 0) { -return x_891; -} -else -{ -lean_object* x_895; lean_object* x_896; lean_object* x_897; -x_895 = lean_ctor_get(x_891, 0); -x_896 = lean_ctor_get(x_891, 1); -lean_inc(x_896); -lean_inc(x_895); -lean_dec(x_891); -x_897 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_897, 0, x_895); -lean_ctor_set(x_897, 1, x_896); -return x_897; -} -} -} -else -{ -lean_object* x_898; +uint8_t x_911; lean_object* x_912; +x_911 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_911); lean_inc(x_4); -lean_inc(x_2); -x_898 = l_Lean_Elab_Term_toParserDescrAux___main(x_888, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_898) == 0) +x_912 = l_Lean_Elab_Term_toParserDescrAux___main(x_909, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_912) == 0) { -lean_object* x_899; lean_object* x_900; -x_899 = lean_ctor_get(x_898, 0); -lean_inc(x_899); -x_900 = lean_ctor_get(x_898, 1); -lean_inc(x_900); -lean_dec(x_898); -x_389 = x_899; -x_390 = x_900; -goto block_501; -} -else -{ -uint8_t x_901; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_901 = !lean_is_exclusive(x_898); -if (x_901 == 0) -{ -return x_898; -} -else -{ -lean_object* x_902; lean_object* x_903; lean_object* x_904; -x_902 = lean_ctor_get(x_898, 0); -x_903 = lean_ctor_get(x_898, 1); -lean_inc(x_903); -lean_inc(x_902); -lean_dec(x_898); -x_904 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_904, 0, x_902); -lean_ctor_set(x_904, 1, x_903); -return x_904; -} -} -} -} -} -else -{ -lean_object* x_905; lean_object* x_906; -lean_dec(x_6); -x_905 = lean_unsigned_to_nat(1u); -x_906 = l_Lean_Syntax_getArg(x_1, x_905); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_907; -x_907 = !lean_is_exclusive(x_2); -if (x_907 == 0) -{ -lean_object* x_908; -lean_ctor_set_tag(x_2, 1); -lean_inc(x_4); -x_908 = l_Lean_Elab_Term_toParserDescrAux___main(x_906, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_908) == 0) -{ -lean_object* x_909; lean_object* x_910; -x_909 = lean_ctor_get(x_908, 0); -lean_inc(x_909); -x_910 = lean_ctor_get(x_908, 1); -lean_inc(x_910); -lean_dec(x_908); -x_502 = x_909; -x_503 = x_910; -goto block_577; -} -else -{ -uint8_t x_911; -lean_dec(x_4); -x_911 = !lean_is_exclusive(x_908); -if (x_911 == 0) -{ -return x_908; -} -else -{ -lean_object* x_912; lean_object* x_913; lean_object* x_914; -x_912 = lean_ctor_get(x_908, 0); -x_913 = lean_ctor_get(x_908, 1); +lean_object* x_913; lean_object* x_914; uint8_t x_915; +x_913 = lean_ctor_get(x_912, 0); lean_inc(x_913); -lean_inc(x_912); -lean_dec(x_908); -x_914 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_914, 0, x_912); -lean_ctor_set(x_914, 1, x_913); -return x_914; -} -} -} -else +x_914 = lean_ctor_get(x_912, 1); +lean_inc(x_914); +lean_dec(x_912); +x_915 = !lean_is_exclusive(x_913); +if (x_915 == 0) { -lean_object* x_915; lean_object* x_916; lean_object* x_917; -x_915 = lean_ctor_get(x_2, 0); -lean_inc(x_915); -lean_dec(x_2); -x_916 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_916, 0, x_915); -lean_inc(x_4); -x_917 = l_Lean_Elab_Term_toParserDescrAux___main(x_906, x_916, x_3, x_4, x_5); -if (lean_obj_tag(x_917) == 0) -{ -lean_object* x_918; lean_object* x_919; -x_918 = lean_ctor_get(x_917, 0); -lean_inc(x_918); -x_919 = lean_ctor_get(x_917, 1); -lean_inc(x_919); -lean_dec(x_917); -x_502 = x_918; -x_503 = x_919; -goto block_577; -} -else -{ -lean_object* x_920; lean_object* x_921; lean_object* x_922; lean_object* x_923; +lean_object* x_916; lean_object* x_917; uint8_t x_918; +x_916 = lean_ctor_get(x_913, 0); +x_917 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_914); lean_dec(x_4); -x_920 = lean_ctor_get(x_917, 0); -lean_inc(x_920); -x_921 = lean_ctor_get(x_917, 1); -lean_inc(x_921); -if (lean_is_exclusive(x_917)) { - lean_ctor_release(x_917, 0); - lean_ctor_release(x_917, 1); - x_922 = x_917; -} else { - lean_dec_ref(x_917); - x_922 = lean_box(0); -} -if (lean_is_scalar(x_922)) { - x_923 = lean_alloc_ctor(1, 2, 0); -} else { - x_923 = x_922; -} -lean_ctor_set(x_923, 0, x_920); -lean_ctor_set(x_923, 1, x_921); -return x_923; -} -} +x_918 = !lean_is_exclusive(x_917); +if (x_918 == 0) +{ +lean_object* x_919; lean_object* x_920; lean_object* x_921; lean_object* x_922; lean_object* x_923; lean_object* x_924; lean_object* x_925; lean_object* x_926; lean_object* x_927; lean_object* x_928; lean_object* x_929; lean_object* x_930; lean_object* x_931; lean_object* x_932; lean_object* x_933; lean_object* x_934; lean_object* x_935; lean_object* x_936; lean_object* x_937; lean_object* x_938; +x_919 = lean_ctor_get(x_917, 0); +x_920 = lean_box(0); +x_921 = l_Lean_Elab_Term_toParserDescrAux___main___closed__54; +x_922 = lean_name_mk_numeral(x_921, x_919); +x_923 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; +x_924 = l_Lean_Elab_Term_toParserDescrAux___main___closed__57; +x_925 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_925, 0, x_920); +lean_ctor_set(x_925, 1, x_923); +lean_ctor_set(x_925, 2, x_922); +lean_ctor_set(x_925, 3, x_924); +x_926 = l_Array_empty___closed__1; +x_927 = lean_array_push(x_926, x_925); +x_928 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_929 = lean_array_push(x_927, x_928); +x_930 = l_Lean_mkTermIdFromIdent___closed__2; +x_931 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_931, 0, x_930); +lean_ctor_set(x_931, 1, x_929); +x_932 = lean_array_push(x_926, x_931); +x_933 = lean_array_push(x_926, x_916); +x_934 = l_Lean_nullKind___closed__2; +x_935 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_935, 0, x_934); +lean_ctor_set(x_935, 1, x_933); +x_936 = lean_array_push(x_932, x_935); +x_937 = l_Lean_mkAppStx___closed__8; +x_938 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_938, 0, x_937); +lean_ctor_set(x_938, 1, x_936); +lean_ctor_set(x_913, 0, x_938); +lean_ctor_set(x_917, 0, x_913); +return x_917; } else { -lean_object* x_924; -lean_inc(x_4); -x_924 = l_Lean_Elab_Term_toParserDescrAux___main(x_906, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_924) == 0) -{ -lean_object* x_925; lean_object* x_926; -x_925 = lean_ctor_get(x_924, 0); -lean_inc(x_925); -x_926 = lean_ctor_get(x_924, 1); -lean_inc(x_926); -lean_dec(x_924); -x_502 = x_925; -x_503 = x_926; -goto block_577; -} -else -{ -uint8_t x_927; -lean_dec(x_4); -x_927 = !lean_is_exclusive(x_924); -if (x_927 == 0) -{ -return x_924; -} -else -{ -lean_object* x_928; lean_object* x_929; lean_object* x_930; -x_928 = lean_ctor_get(x_924, 0); -x_929 = lean_ctor_get(x_924, 1); -lean_inc(x_929); -lean_inc(x_928); -lean_dec(x_924); -x_930 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_930, 0, x_928); -lean_ctor_set(x_930, 1, x_929); -return x_930; -} -} -} -} -} -else -{ -lean_object* x_931; lean_object* x_932; -lean_dec(x_6); -x_931 = lean_unsigned_to_nat(1u); -x_932 = l_Lean_Syntax_getArg(x_1, x_931); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_933; -x_933 = !lean_is_exclusive(x_2); -if (x_933 == 0) -{ -lean_object* x_934; -lean_ctor_set_tag(x_2, 1); -lean_inc(x_4); -x_934 = l_Lean_Elab_Term_toParserDescrAux___main(x_932, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_934) == 0) -{ -lean_object* x_935; lean_object* x_936; -x_935 = lean_ctor_get(x_934, 0); -lean_inc(x_935); -x_936 = lean_ctor_get(x_934, 1); -lean_inc(x_936); -lean_dec(x_934); -x_578 = x_935; -x_579 = x_936; -goto block_653; -} -else -{ -uint8_t x_937; -lean_dec(x_4); -x_937 = !lean_is_exclusive(x_934); -if (x_937 == 0) -{ -return x_934; -} -else -{ -lean_object* x_938; lean_object* x_939; lean_object* x_940; -x_938 = lean_ctor_get(x_934, 0); -x_939 = lean_ctor_get(x_934, 1); +lean_object* x_939; lean_object* x_940; lean_object* x_941; lean_object* x_942; lean_object* x_943; lean_object* x_944; lean_object* x_945; lean_object* x_946; lean_object* x_947; lean_object* x_948; lean_object* x_949; lean_object* x_950; lean_object* x_951; lean_object* x_952; lean_object* x_953; lean_object* x_954; lean_object* x_955; lean_object* x_956; lean_object* x_957; lean_object* x_958; lean_object* x_959; lean_object* x_960; +x_939 = lean_ctor_get(x_917, 0); +x_940 = lean_ctor_get(x_917, 1); +lean_inc(x_940); lean_inc(x_939); -lean_inc(x_938); -lean_dec(x_934); -x_940 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_940, 0, x_938); -lean_ctor_set(x_940, 1, x_939); -return x_940; -} -} -} -else -{ -lean_object* x_941; lean_object* x_942; lean_object* x_943; -x_941 = lean_ctor_get(x_2, 0); -lean_inc(x_941); -lean_dec(x_2); -x_942 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_942, 0, x_941); -lean_inc(x_4); -x_943 = l_Lean_Elab_Term_toParserDescrAux___main(x_932, x_942, x_3, x_4, x_5); -if (lean_obj_tag(x_943) == 0) -{ -lean_object* x_944; lean_object* x_945; -x_944 = lean_ctor_get(x_943, 0); -lean_inc(x_944); -x_945 = lean_ctor_get(x_943, 1); -lean_inc(x_945); -lean_dec(x_943); -x_578 = x_944; -x_579 = x_945; -goto block_653; -} -else -{ -lean_object* x_946; lean_object* x_947; lean_object* x_948; lean_object* x_949; -lean_dec(x_4); -x_946 = lean_ctor_get(x_943, 0); -lean_inc(x_946); -x_947 = lean_ctor_get(x_943, 1); -lean_inc(x_947); -if (lean_is_exclusive(x_943)) { - lean_ctor_release(x_943, 0); - lean_ctor_release(x_943, 1); - x_948 = x_943; -} else { - lean_dec_ref(x_943); - x_948 = lean_box(0); -} -if (lean_is_scalar(x_948)) { - x_949 = lean_alloc_ctor(1, 2, 0); -} else { - x_949 = x_948; -} -lean_ctor_set(x_949, 0, x_946); -lean_ctor_set(x_949, 1, x_947); -return x_949; -} -} -} -else -{ -lean_object* x_950; -lean_inc(x_4); -x_950 = l_Lean_Elab_Term_toParserDescrAux___main(x_932, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_950) == 0) -{ -lean_object* x_951; lean_object* x_952; -x_951 = lean_ctor_get(x_950, 0); -lean_inc(x_951); -x_952 = lean_ctor_get(x_950, 1); -lean_inc(x_952); -lean_dec(x_950); -x_578 = x_951; -x_579 = x_952; -goto block_653; -} -else -{ -uint8_t x_953; -lean_dec(x_4); -x_953 = !lean_is_exclusive(x_950); -if (x_953 == 0) -{ -return x_950; -} -else -{ -lean_object* x_954; lean_object* x_955; lean_object* x_956; -x_954 = lean_ctor_get(x_950, 0); -x_955 = lean_ctor_get(x_950, 1); -lean_inc(x_955); -lean_inc(x_954); -lean_dec(x_950); +lean_dec(x_917); +x_941 = lean_box(0); +x_942 = l_Lean_Elab_Term_toParserDescrAux___main___closed__54; +x_943 = lean_name_mk_numeral(x_942, x_939); +x_944 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; +x_945 = l_Lean_Elab_Term_toParserDescrAux___main___closed__57; +x_946 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_946, 0, x_941); +lean_ctor_set(x_946, 1, x_944); +lean_ctor_set(x_946, 2, x_943); +lean_ctor_set(x_946, 3, x_945); +x_947 = l_Array_empty___closed__1; +x_948 = lean_array_push(x_947, x_946); +x_949 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_950 = lean_array_push(x_948, x_949); +x_951 = l_Lean_mkTermIdFromIdent___closed__2; +x_952 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_952, 0, x_951); +lean_ctor_set(x_952, 1, x_950); +x_953 = lean_array_push(x_947, x_952); +x_954 = lean_array_push(x_947, x_916); +x_955 = l_Lean_nullKind___closed__2; x_956 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_956, 0, x_954); -lean_ctor_set(x_956, 1, x_955); -return x_956; -} -} -} -} -} -else -{ -lean_object* x_957; lean_object* x_958; -lean_dec(x_6); -x_957 = lean_unsigned_to_nat(1u); -x_958 = l_Lean_Syntax_getArg(x_1, x_957); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_959; -x_959 = !lean_is_exclusive(x_2); -if (x_959 == 0) -{ -lean_object* x_960; -lean_ctor_set_tag(x_2, 1); -lean_inc(x_4); -x_960 = l_Lean_Elab_Term_toParserDescrAux___main(x_958, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_960) == 0) -{ -lean_object* x_961; lean_object* x_962; -x_961 = lean_ctor_get(x_960, 0); -lean_inc(x_961); -x_962 = lean_ctor_get(x_960, 1); -lean_inc(x_962); -lean_dec(x_960); -x_654 = x_961; -x_655 = x_962; -goto block_729; -} -else -{ -uint8_t x_963; -lean_dec(x_4); -x_963 = !lean_is_exclusive(x_960); -if (x_963 == 0) -{ +lean_ctor_set(x_956, 0, x_955); +lean_ctor_set(x_956, 1, x_954); +x_957 = lean_array_push(x_953, x_956); +x_958 = l_Lean_mkAppStx___closed__8; +x_959 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_959, 0, x_958); +lean_ctor_set(x_959, 1, x_957); +lean_ctor_set(x_913, 0, x_959); +x_960 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_960, 0, x_913); +lean_ctor_set(x_960, 1, x_940); return x_960; } +} else { -lean_object* x_964; lean_object* x_965; lean_object* x_966; -x_964 = lean_ctor_get(x_960, 0); -x_965 = lean_ctor_get(x_960, 1); -lean_inc(x_965); +lean_object* x_961; lean_object* x_962; lean_object* x_963; lean_object* x_964; lean_object* x_965; lean_object* x_966; lean_object* x_967; lean_object* x_968; lean_object* x_969; lean_object* x_970; lean_object* x_971; lean_object* x_972; lean_object* x_973; lean_object* x_974; lean_object* x_975; lean_object* x_976; lean_object* x_977; lean_object* x_978; lean_object* x_979; lean_object* x_980; lean_object* x_981; lean_object* x_982; lean_object* x_983; lean_object* x_984; lean_object* x_985; lean_object* x_986; lean_object* x_987; +x_961 = lean_ctor_get(x_913, 0); +x_962 = lean_ctor_get(x_913, 1); +lean_inc(x_962); +lean_inc(x_961); +lean_dec(x_913); +x_963 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_914); +lean_dec(x_4); +x_964 = lean_ctor_get(x_963, 0); lean_inc(x_964); -lean_dec(x_960); -x_966 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_966, 0, x_964); -lean_ctor_set(x_966, 1, x_965); -return x_966; -} -} -} -else -{ -lean_object* x_967; lean_object* x_968; lean_object* x_969; -x_967 = lean_ctor_get(x_2, 0); -lean_inc(x_967); -lean_dec(x_2); -x_968 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_968, 0, x_967); -lean_inc(x_4); -x_969 = l_Lean_Elab_Term_toParserDescrAux___main(x_958, x_968, x_3, x_4, x_5); -if (lean_obj_tag(x_969) == 0) -{ -lean_object* x_970; lean_object* x_971; -x_970 = lean_ctor_get(x_969, 0); -lean_inc(x_970); -x_971 = lean_ctor_get(x_969, 1); -lean_inc(x_971); -lean_dec(x_969); -x_654 = x_970; -x_655 = x_971; -goto block_729; -} -else -{ -lean_object* x_972; lean_object* x_973; lean_object* x_974; lean_object* x_975; -lean_dec(x_4); -x_972 = lean_ctor_get(x_969, 0); -lean_inc(x_972); -x_973 = lean_ctor_get(x_969, 1); -lean_inc(x_973); -if (lean_is_exclusive(x_969)) { - lean_ctor_release(x_969, 0); - lean_ctor_release(x_969, 1); - x_974 = x_969; +x_965 = lean_ctor_get(x_963, 1); +lean_inc(x_965); +if (lean_is_exclusive(x_963)) { + lean_ctor_release(x_963, 0); + lean_ctor_release(x_963, 1); + x_966 = x_963; } else { - lean_dec_ref(x_969); - x_974 = lean_box(0); + lean_dec_ref(x_963); + x_966 = lean_box(0); } -if (lean_is_scalar(x_974)) { - x_975 = lean_alloc_ctor(1, 2, 0); -} else { - x_975 = x_974; -} -lean_ctor_set(x_975, 0, x_972); -lean_ctor_set(x_975, 1, x_973); -return x_975; -} -} -} -else -{ -lean_object* x_976; -lean_inc(x_4); -x_976 = l_Lean_Elab_Term_toParserDescrAux___main(x_958, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_976) == 0) -{ -lean_object* x_977; lean_object* x_978; -x_977 = lean_ctor_get(x_976, 0); -lean_inc(x_977); -x_978 = lean_ctor_get(x_976, 1); -lean_inc(x_978); -lean_dec(x_976); -x_654 = x_977; -x_655 = x_978; -goto block_729; -} -else -{ -uint8_t x_979; -lean_dec(x_4); -x_979 = !lean_is_exclusive(x_976); -if (x_979 == 0) -{ -return x_976; -} -else -{ -lean_object* x_980; lean_object* x_981; lean_object* x_982; -x_980 = lean_ctor_get(x_976, 0); -x_981 = lean_ctor_get(x_976, 1); -lean_inc(x_981); -lean_inc(x_980); -lean_dec(x_976); +x_967 = lean_box(0); +x_968 = l_Lean_Elab_Term_toParserDescrAux___main___closed__54; +x_969 = lean_name_mk_numeral(x_968, x_964); +x_970 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; +x_971 = l_Lean_Elab_Term_toParserDescrAux___main___closed__57; +x_972 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_972, 0, x_967); +lean_ctor_set(x_972, 1, x_970); +lean_ctor_set(x_972, 2, x_969); +lean_ctor_set(x_972, 3, x_971); +x_973 = l_Array_empty___closed__1; +x_974 = lean_array_push(x_973, x_972); +x_975 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_976 = lean_array_push(x_974, x_975); +x_977 = l_Lean_mkTermIdFromIdent___closed__2; +x_978 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_978, 0, x_977); +lean_ctor_set(x_978, 1, x_976); +x_979 = lean_array_push(x_973, x_978); +x_980 = lean_array_push(x_973, x_961); +x_981 = l_Lean_nullKind___closed__2; x_982 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_982, 0, x_980); -lean_ctor_set(x_982, 1, x_981); -return x_982; -} -} +lean_ctor_set(x_982, 0, x_981); +lean_ctor_set(x_982, 1, x_980); +x_983 = lean_array_push(x_979, x_982); +x_984 = l_Lean_mkAppStx___closed__8; +x_985 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_985, 0, x_984); +lean_ctor_set(x_985, 1, x_983); +x_986 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_986, 0, x_985); +lean_ctor_set(x_986, 1, x_962); +if (lean_is_scalar(x_966)) { + x_987 = lean_alloc_ctor(0, 2, 0); +} else { + x_987 = x_966; } +lean_ctor_set(x_987, 0, x_986); +lean_ctor_set(x_987, 1, x_965); +return x_987; } } else { -lean_object* x_983; uint8_t x_984; -lean_dec(x_6); -lean_dec(x_2); -lean_dec(x_1); -x_983 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +uint8_t x_988; lean_dec(x_4); -x_984 = !lean_is_exclusive(x_983); -if (x_984 == 0) +x_988 = !lean_is_exclusive(x_912); +if (x_988 == 0) { -lean_object* x_985; lean_object* x_986; lean_object* x_987; lean_object* x_988; lean_object* x_989; lean_object* x_990; lean_object* x_991; lean_object* x_992; lean_object* x_993; lean_object* x_994; lean_object* x_995; lean_object* x_996; lean_object* x_997; lean_object* x_998; lean_object* x_999; -x_985 = lean_ctor_get(x_983, 0); -x_986 = lean_box(0); -x_987 = l_Lean_Elab_Term_toParserDescrAux___main___closed__68; -x_988 = lean_name_mk_numeral(x_987, x_985); -x_989 = l_Lean_Elab_Term_toParserDescrAux___main___closed__67; -x_990 = l_Lean_Elab_Term_toParserDescrAux___main___closed__71; -x_991 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_991, 0, x_986); -lean_ctor_set(x_991, 1, x_989); -lean_ctor_set(x_991, 2, x_988); -lean_ctor_set(x_991, 3, x_990); -x_992 = l_Array_empty___closed__1; -x_993 = lean_array_push(x_992, x_991); -x_994 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_995 = lean_array_push(x_993, x_994); -x_996 = l_Lean_mkTermIdFromIdent___closed__2; -x_997 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_997, 0, x_996); -lean_ctor_set(x_997, 1, x_995); -x_998 = lean_box(x_3); -x_999 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_999, 0, x_997); -lean_ctor_set(x_999, 1, x_998); -lean_ctor_set(x_983, 0, x_999); -return x_983; +return x_912; } else { -lean_object* x_1000; lean_object* x_1001; lean_object* x_1002; lean_object* x_1003; lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; lean_object* x_1007; lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; lean_object* x_1011; lean_object* x_1012; lean_object* x_1013; lean_object* x_1014; lean_object* x_1015; lean_object* x_1016; -x_1000 = lean_ctor_get(x_983, 0); -x_1001 = lean_ctor_get(x_983, 1); -lean_inc(x_1001); +lean_object* x_989; lean_object* x_990; lean_object* x_991; +x_989 = lean_ctor_get(x_912, 0); +x_990 = lean_ctor_get(x_912, 1); +lean_inc(x_990); +lean_inc(x_989); +lean_dec(x_912); +x_991 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_991, 0, x_989); +lean_ctor_set(x_991, 1, x_990); +return x_991; +} +} +} +else +{ +lean_object* x_992; uint8_t x_993; uint8_t x_994; uint8_t x_995; lean_object* x_996; lean_object* x_997; +x_992 = lean_ctor_get(x_2, 0); +x_993 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_994 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_992); +lean_dec(x_2); +x_995 = 0; +x_996 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_996, 0, x_992); +lean_ctor_set_uint8(x_996, sizeof(void*)*1, x_993); +lean_ctor_set_uint8(x_996, sizeof(void*)*1 + 1, x_995); +lean_ctor_set_uint8(x_996, sizeof(void*)*1 + 2, x_994); +lean_inc(x_4); +x_997 = l_Lean_Elab_Term_toParserDescrAux___main(x_909, x_996, x_3, x_4, x_5); +if (lean_obj_tag(x_997) == 0) +{ +lean_object* x_998; lean_object* x_999; lean_object* x_1000; lean_object* x_1001; lean_object* x_1002; lean_object* x_1003; lean_object* x_1004; lean_object* x_1005; lean_object* x_1006; lean_object* x_1007; lean_object* x_1008; lean_object* x_1009; lean_object* x_1010; lean_object* x_1011; lean_object* x_1012; lean_object* x_1013; lean_object* x_1014; lean_object* x_1015; lean_object* x_1016; lean_object* x_1017; lean_object* x_1018; lean_object* x_1019; lean_object* x_1020; lean_object* x_1021; lean_object* x_1022; lean_object* x_1023; lean_object* x_1024; lean_object* x_1025; lean_object* x_1026; lean_object* x_1027; +x_998 = lean_ctor_get(x_997, 0); +lean_inc(x_998); +x_999 = lean_ctor_get(x_997, 1); +lean_inc(x_999); +lean_dec(x_997); +x_1000 = lean_ctor_get(x_998, 0); lean_inc(x_1000); -lean_dec(x_983); -x_1002 = lean_box(0); -x_1003 = l_Lean_Elab_Term_toParserDescrAux___main___closed__68; -x_1004 = lean_name_mk_numeral(x_1003, x_1000); -x_1005 = l_Lean_Elab_Term_toParserDescrAux___main___closed__67; -x_1006 = l_Lean_Elab_Term_toParserDescrAux___main___closed__71; -x_1007 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1007, 0, x_1002); -lean_ctor_set(x_1007, 1, x_1005); -lean_ctor_set(x_1007, 2, x_1004); -lean_ctor_set(x_1007, 3, x_1006); -x_1008 = l_Array_empty___closed__1; -x_1009 = lean_array_push(x_1008, x_1007); -x_1010 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1011 = lean_array_push(x_1009, x_1010); -x_1012 = l_Lean_mkTermIdFromIdent___closed__2; -x_1013 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1013, 0, x_1012); -lean_ctor_set(x_1013, 1, x_1011); -x_1014 = lean_box(x_3); -x_1015 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1015, 0, x_1013); -lean_ctor_set(x_1015, 1, x_1014); -x_1016 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1016, 0, x_1015); -lean_ctor_set(x_1016, 1, x_1001); -return x_1016; +x_1001 = lean_ctor_get(x_998, 1); +lean_inc(x_1001); +if (lean_is_exclusive(x_998)) { + lean_ctor_release(x_998, 0); + lean_ctor_release(x_998, 1); + x_1002 = x_998; +} else { + lean_dec_ref(x_998); + x_1002 = lean_box(0); } -} -} -else -{ -lean_object* x_1017; uint8_t x_1018; -lean_dec(x_6); -lean_dec(x_2); -lean_dec(x_1); -x_1017 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +x_1003 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_999); lean_dec(x_4); -x_1018 = !lean_is_exclusive(x_1017); -if (x_1018 == 0) -{ -lean_object* x_1019; lean_object* x_1020; lean_object* x_1021; lean_object* x_1022; lean_object* x_1023; lean_object* x_1024; lean_object* x_1025; lean_object* x_1026; lean_object* x_1027; lean_object* x_1028; lean_object* x_1029; lean_object* x_1030; lean_object* x_1031; lean_object* x_1032; lean_object* x_1033; -x_1019 = lean_ctor_get(x_1017, 0); -x_1020 = lean_box(0); -x_1021 = l_Lean_Elab_Term_toParserDescrAux___main___closed__75; -x_1022 = lean_name_mk_numeral(x_1021, x_1019); -x_1023 = l_Lean_Elab_Term_toParserDescrAux___main___closed__74; -x_1024 = l_Lean_Elab_Term_toParserDescrAux___main___closed__78; -x_1025 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1025, 0, x_1020); +x_1004 = lean_ctor_get(x_1003, 0); +lean_inc(x_1004); +x_1005 = lean_ctor_get(x_1003, 1); +lean_inc(x_1005); +if (lean_is_exclusive(x_1003)) { + lean_ctor_release(x_1003, 0); + lean_ctor_release(x_1003, 1); + x_1006 = x_1003; +} else { + lean_dec_ref(x_1003); + x_1006 = lean_box(0); +} +x_1007 = lean_box(0); +x_1008 = l_Lean_Elab_Term_toParserDescrAux___main___closed__54; +x_1009 = lean_name_mk_numeral(x_1008, x_1004); +x_1010 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; +x_1011 = l_Lean_Elab_Term_toParserDescrAux___main___closed__57; +x_1012 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1012, 0, x_1007); +lean_ctor_set(x_1012, 1, x_1010); +lean_ctor_set(x_1012, 2, x_1009); +lean_ctor_set(x_1012, 3, x_1011); +x_1013 = l_Array_empty___closed__1; +x_1014 = lean_array_push(x_1013, x_1012); +x_1015 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1016 = lean_array_push(x_1014, x_1015); +x_1017 = l_Lean_mkTermIdFromIdent___closed__2; +x_1018 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1018, 0, x_1017); +lean_ctor_set(x_1018, 1, x_1016); +x_1019 = lean_array_push(x_1013, x_1018); +x_1020 = lean_array_push(x_1013, x_1000); +x_1021 = l_Lean_nullKind___closed__2; +x_1022 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1022, 0, x_1021); +lean_ctor_set(x_1022, 1, x_1020); +x_1023 = lean_array_push(x_1019, x_1022); +x_1024 = l_Lean_mkAppStx___closed__8; +x_1025 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1025, 0, x_1024); lean_ctor_set(x_1025, 1, x_1023); -lean_ctor_set(x_1025, 2, x_1022); -lean_ctor_set(x_1025, 3, x_1024); -x_1026 = l_Array_empty___closed__1; -x_1027 = lean_array_push(x_1026, x_1025); -x_1028 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1029 = lean_array_push(x_1027, x_1028); -x_1030 = l_Lean_mkTermIdFromIdent___closed__2; -x_1031 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1031, 0, x_1030); -lean_ctor_set(x_1031, 1, x_1029); -x_1032 = lean_box(x_3); -x_1033 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1033, 0, x_1031); -lean_ctor_set(x_1033, 1, x_1032); -lean_ctor_set(x_1017, 0, x_1033); -return x_1017; +if (lean_is_scalar(x_1002)) { + x_1026 = lean_alloc_ctor(0, 2, 0); +} else { + x_1026 = x_1002; +} +lean_ctor_set(x_1026, 0, x_1025); +lean_ctor_set(x_1026, 1, x_1001); +if (lean_is_scalar(x_1006)) { + x_1027 = lean_alloc_ctor(0, 2, 0); +} else { + x_1027 = x_1006; +} +lean_ctor_set(x_1027, 0, x_1026); +lean_ctor_set(x_1027, 1, x_1005); +return x_1027; } else { -lean_object* x_1034; lean_object* x_1035; lean_object* x_1036; lean_object* x_1037; lean_object* x_1038; lean_object* x_1039; lean_object* x_1040; lean_object* x_1041; lean_object* x_1042; lean_object* x_1043; lean_object* x_1044; lean_object* x_1045; lean_object* x_1046; lean_object* x_1047; lean_object* x_1048; lean_object* x_1049; lean_object* x_1050; -x_1034 = lean_ctor_get(x_1017, 0); -x_1035 = lean_ctor_get(x_1017, 1); -lean_inc(x_1035); -lean_inc(x_1034); -lean_dec(x_1017); -x_1036 = lean_box(0); -x_1037 = l_Lean_Elab_Term_toParserDescrAux___main___closed__75; -x_1038 = lean_name_mk_numeral(x_1037, x_1034); -x_1039 = l_Lean_Elab_Term_toParserDescrAux___main___closed__74; -x_1040 = l_Lean_Elab_Term_toParserDescrAux___main___closed__78; -x_1041 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1041, 0, x_1036); -lean_ctor_set(x_1041, 1, x_1039); -lean_ctor_set(x_1041, 2, x_1038); -lean_ctor_set(x_1041, 3, x_1040); -x_1042 = l_Array_empty___closed__1; -x_1043 = lean_array_push(x_1042, x_1041); -x_1044 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1045 = lean_array_push(x_1043, x_1044); -x_1046 = l_Lean_mkTermIdFromIdent___closed__2; -x_1047 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1047, 0, x_1046); -lean_ctor_set(x_1047, 1, x_1045); -x_1048 = lean_box(x_3); -x_1049 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1049, 0, x_1047); -lean_ctor_set(x_1049, 1, x_1048); -x_1050 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1050, 0, x_1049); -lean_ctor_set(x_1050, 1, x_1035); -return x_1050; -} -} -} -else -{ -lean_object* x_1051; uint8_t x_1052; -lean_dec(x_6); -lean_dec(x_2); -lean_dec(x_1); -x_1051 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_object* x_1028; lean_object* x_1029; lean_object* x_1030; lean_object* x_1031; lean_dec(x_4); -x_1052 = !lean_is_exclusive(x_1051); -if (x_1052 == 0) -{ -lean_object* x_1053; lean_object* x_1054; lean_object* x_1055; lean_object* x_1056; lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; lean_object* x_1060; lean_object* x_1061; lean_object* x_1062; lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; -x_1053 = lean_ctor_get(x_1051, 0); -x_1054 = lean_box(0); -x_1055 = l_Lean_Elab_Term_toParserDescrAux___main___closed__82; -x_1056 = lean_name_mk_numeral(x_1055, x_1053); -x_1057 = l_Lean_Elab_Term_toParserDescrAux___main___closed__81; -x_1058 = l_Lean_Elab_Term_toParserDescrAux___main___closed__85; -x_1059 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1059, 0, x_1054); -lean_ctor_set(x_1059, 1, x_1057); -lean_ctor_set(x_1059, 2, x_1056); -lean_ctor_set(x_1059, 3, x_1058); -x_1060 = l_Array_empty___closed__1; -x_1061 = lean_array_push(x_1060, x_1059); -x_1062 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1063 = lean_array_push(x_1061, x_1062); -x_1064 = l_Lean_mkTermIdFromIdent___closed__2; -x_1065 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1065, 0, x_1064); -lean_ctor_set(x_1065, 1, x_1063); -x_1066 = lean_box(x_3); -x_1067 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1067, 0, x_1065); -lean_ctor_set(x_1067, 1, x_1066); -lean_ctor_set(x_1051, 0, x_1067); -return x_1051; +x_1028 = lean_ctor_get(x_997, 0); +lean_inc(x_1028); +x_1029 = lean_ctor_get(x_997, 1); +lean_inc(x_1029); +if (lean_is_exclusive(x_997)) { + lean_ctor_release(x_997, 0); + lean_ctor_release(x_997, 1); + x_1030 = x_997; +} else { + lean_dec_ref(x_997); + x_1030 = lean_box(0); +} +if (lean_is_scalar(x_1030)) { + x_1031 = lean_alloc_ctor(1, 2, 0); +} else { + x_1031 = x_1030; +} +lean_ctor_set(x_1031, 0, x_1028); +lean_ctor_set(x_1031, 1, x_1029); +return x_1031; +} +} +} } else { -lean_object* x_1068; lean_object* x_1069; lean_object* x_1070; lean_object* x_1071; lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; lean_object* x_1075; lean_object* x_1076; lean_object* x_1077; lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; lean_object* x_1081; lean_object* x_1082; lean_object* x_1083; lean_object* x_1084; -x_1068 = lean_ctor_get(x_1051, 0); -x_1069 = lean_ctor_get(x_1051, 1); -lean_inc(x_1069); -lean_inc(x_1068); -lean_dec(x_1051); -x_1070 = lean_box(0); -x_1071 = l_Lean_Elab_Term_toParserDescrAux___main___closed__82; -x_1072 = lean_name_mk_numeral(x_1071, x_1068); -x_1073 = l_Lean_Elab_Term_toParserDescrAux___main___closed__81; -x_1074 = l_Lean_Elab_Term_toParserDescrAux___main___closed__85; -x_1075 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1075, 0, x_1070); -lean_ctor_set(x_1075, 1, x_1073); -lean_ctor_set(x_1075, 2, x_1072); -lean_ctor_set(x_1075, 3, x_1074); -x_1076 = l_Array_empty___closed__1; -x_1077 = lean_array_push(x_1076, x_1075); -x_1078 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1079 = lean_array_push(x_1077, x_1078); -x_1080 = l_Lean_mkTermIdFromIdent___closed__2; -x_1081 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1081, 0, x_1080); -lean_ctor_set(x_1081, 1, x_1079); -x_1082 = lean_box(x_3); -x_1083 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1083, 0, x_1081); -lean_ctor_set(x_1083, 1, x_1082); +lean_object* x_1032; lean_object* x_1033; uint8_t x_1034; +lean_dec(x_6); +x_1032 = lean_unsigned_to_nat(1u); +x_1033 = l_Lean_Syntax_getArg(x_1, x_1032); +lean_dec(x_1); +x_1034 = !lean_is_exclusive(x_2); +if (x_1034 == 0) +{ +uint8_t x_1035; lean_object* x_1036; +x_1035 = 0; +lean_ctor_set_uint8(x_2, sizeof(void*)*1 + 1, x_1035); +lean_inc(x_4); +x_1036 = l_Lean_Elab_Term_toParserDescrAux___main(x_1033, x_2, x_3, x_4, x_5); +if (lean_obj_tag(x_1036) == 0) +{ +lean_object* x_1037; lean_object* x_1038; uint8_t x_1039; +x_1037 = lean_ctor_get(x_1036, 0); +lean_inc(x_1037); +x_1038 = lean_ctor_get(x_1036, 1); +lean_inc(x_1038); +lean_dec(x_1036); +x_1039 = !lean_is_exclusive(x_1037); +if (x_1039 == 0) +{ +lean_object* x_1040; lean_object* x_1041; uint8_t x_1042; +x_1040 = lean_ctor_get(x_1037, 0); +x_1041 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1038); +lean_dec(x_4); +x_1042 = !lean_is_exclusive(x_1041); +if (x_1042 == 0) +{ +lean_object* x_1043; lean_object* x_1044; lean_object* x_1045; lean_object* x_1046; lean_object* x_1047; lean_object* x_1048; lean_object* x_1049; lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; lean_object* x_1053; lean_object* x_1054; lean_object* x_1055; lean_object* x_1056; lean_object* x_1057; lean_object* x_1058; lean_object* x_1059; lean_object* x_1060; lean_object* x_1061; lean_object* x_1062; +x_1043 = lean_ctor_get(x_1041, 0); +x_1044 = lean_box(0); +x_1045 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; +x_1046 = lean_name_mk_numeral(x_1045, x_1043); +x_1047 = l_Lean_Elab_Term_toParserDescrAux___main___closed__60; +x_1048 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; +x_1049 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1049, 0, x_1044); +lean_ctor_set(x_1049, 1, x_1047); +lean_ctor_set(x_1049, 2, x_1046); +lean_ctor_set(x_1049, 3, x_1048); +x_1050 = l_Array_empty___closed__1; +x_1051 = lean_array_push(x_1050, x_1049); +x_1052 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1053 = lean_array_push(x_1051, x_1052); +x_1054 = l_Lean_mkTermIdFromIdent___closed__2; +x_1055 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1055, 0, x_1054); +lean_ctor_set(x_1055, 1, x_1053); +x_1056 = lean_array_push(x_1050, x_1055); +x_1057 = lean_array_push(x_1050, x_1040); +x_1058 = l_Lean_nullKind___closed__2; +x_1059 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1059, 0, x_1058); +lean_ctor_set(x_1059, 1, x_1057); +x_1060 = lean_array_push(x_1056, x_1059); +x_1061 = l_Lean_mkAppStx___closed__8; +x_1062 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1062, 0, x_1061); +lean_ctor_set(x_1062, 1, x_1060); +lean_ctor_set(x_1037, 0, x_1062); +lean_ctor_set(x_1041, 0, x_1037); +return x_1041; +} +else +{ +lean_object* x_1063; lean_object* x_1064; lean_object* x_1065; lean_object* x_1066; lean_object* x_1067; lean_object* x_1068; lean_object* x_1069; lean_object* x_1070; lean_object* x_1071; lean_object* x_1072; lean_object* x_1073; lean_object* x_1074; lean_object* x_1075; lean_object* x_1076; lean_object* x_1077; lean_object* x_1078; lean_object* x_1079; lean_object* x_1080; lean_object* x_1081; lean_object* x_1082; lean_object* x_1083; lean_object* x_1084; +x_1063 = lean_ctor_get(x_1041, 0); +x_1064 = lean_ctor_get(x_1041, 1); +lean_inc(x_1064); +lean_inc(x_1063); +lean_dec(x_1041); +x_1065 = lean_box(0); +x_1066 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; +x_1067 = lean_name_mk_numeral(x_1066, x_1063); +x_1068 = l_Lean_Elab_Term_toParserDescrAux___main___closed__60; +x_1069 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; +x_1070 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1070, 0, x_1065); +lean_ctor_set(x_1070, 1, x_1068); +lean_ctor_set(x_1070, 2, x_1067); +lean_ctor_set(x_1070, 3, x_1069); +x_1071 = l_Array_empty___closed__1; +x_1072 = lean_array_push(x_1071, x_1070); +x_1073 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1074 = lean_array_push(x_1072, x_1073); +x_1075 = l_Lean_mkTermIdFromIdent___closed__2; +x_1076 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1076, 0, x_1075); +lean_ctor_set(x_1076, 1, x_1074); +x_1077 = lean_array_push(x_1071, x_1076); +x_1078 = lean_array_push(x_1071, x_1040); +x_1079 = l_Lean_nullKind___closed__2; +x_1080 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1080, 0, x_1079); +lean_ctor_set(x_1080, 1, x_1078); +x_1081 = lean_array_push(x_1077, x_1080); +x_1082 = l_Lean_mkAppStx___closed__8; +x_1083 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1083, 0, x_1082); +lean_ctor_set(x_1083, 1, x_1081); +lean_ctor_set(x_1037, 0, x_1083); x_1084 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1084, 0, x_1083); -lean_ctor_set(x_1084, 1, x_1069); +lean_ctor_set(x_1084, 0, x_1037); +lean_ctor_set(x_1084, 1, x_1064); return x_1084; } } -} else { -lean_object* x_1085; uint8_t x_1086; -lean_dec(x_6); -lean_dec(x_2); -lean_dec(x_1); -x_1085 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_object* x_1085; lean_object* x_1086; lean_object* x_1087; lean_object* x_1088; lean_object* x_1089; lean_object* x_1090; lean_object* x_1091; lean_object* x_1092; lean_object* x_1093; lean_object* x_1094; lean_object* x_1095; lean_object* x_1096; lean_object* x_1097; lean_object* x_1098; lean_object* x_1099; lean_object* x_1100; lean_object* x_1101; lean_object* x_1102; lean_object* x_1103; lean_object* x_1104; lean_object* x_1105; lean_object* x_1106; lean_object* x_1107; lean_object* x_1108; lean_object* x_1109; lean_object* x_1110; lean_object* x_1111; +x_1085 = lean_ctor_get(x_1037, 0); +x_1086 = lean_ctor_get(x_1037, 1); +lean_inc(x_1086); +lean_inc(x_1085); +lean_dec(x_1037); +x_1087 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1038); lean_dec(x_4); -x_1086 = !lean_is_exclusive(x_1085); -if (x_1086 == 0) -{ -lean_object* x_1087; lean_object* x_1088; lean_object* x_1089; lean_object* x_1090; lean_object* x_1091; lean_object* x_1092; lean_object* x_1093; lean_object* x_1094; lean_object* x_1095; lean_object* x_1096; lean_object* x_1097; lean_object* x_1098; lean_object* x_1099; lean_object* x_1100; lean_object* x_1101; -x_1087 = lean_ctor_get(x_1085, 0); -x_1088 = lean_box(0); -x_1089 = l_Lean_Elab_Term_toParserDescrAux___main___closed__89; -x_1090 = lean_name_mk_numeral(x_1089, x_1087); -x_1091 = l_Lean_Elab_Term_toParserDescrAux___main___closed__88; -x_1092 = l_Lean_Elab_Term_toParserDescrAux___main___closed__92; -x_1093 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1093, 0, x_1088); -lean_ctor_set(x_1093, 1, x_1091); -lean_ctor_set(x_1093, 2, x_1090); -lean_ctor_set(x_1093, 3, x_1092); -x_1094 = l_Array_empty___closed__1; -x_1095 = lean_array_push(x_1094, x_1093); -x_1096 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1097 = lean_array_push(x_1095, x_1096); -x_1098 = l_Lean_mkTermIdFromIdent___closed__2; -x_1099 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1099, 0, x_1098); -lean_ctor_set(x_1099, 1, x_1097); -x_1100 = lean_box(x_3); -x_1101 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1101, 0, x_1099); -lean_ctor_set(x_1101, 1, x_1100); -lean_ctor_set(x_1085, 0, x_1101); -return x_1085; +x_1088 = lean_ctor_get(x_1087, 0); +lean_inc(x_1088); +x_1089 = lean_ctor_get(x_1087, 1); +lean_inc(x_1089); +if (lean_is_exclusive(x_1087)) { + lean_ctor_release(x_1087, 0); + lean_ctor_release(x_1087, 1); + x_1090 = x_1087; +} else { + lean_dec_ref(x_1087); + x_1090 = lean_box(0); } -else -{ -lean_object* x_1102; lean_object* x_1103; lean_object* x_1104; lean_object* x_1105; lean_object* x_1106; lean_object* x_1107; lean_object* x_1108; lean_object* x_1109; lean_object* x_1110; lean_object* x_1111; lean_object* x_1112; lean_object* x_1113; lean_object* x_1114; lean_object* x_1115; lean_object* x_1116; lean_object* x_1117; lean_object* x_1118; -x_1102 = lean_ctor_get(x_1085, 0); -x_1103 = lean_ctor_get(x_1085, 1); -lean_inc(x_1103); -lean_inc(x_1102); -lean_dec(x_1085); -x_1104 = lean_box(0); -x_1105 = l_Lean_Elab_Term_toParserDescrAux___main___closed__89; -x_1106 = lean_name_mk_numeral(x_1105, x_1102); -x_1107 = l_Lean_Elab_Term_toParserDescrAux___main___closed__88; -x_1108 = l_Lean_Elab_Term_toParserDescrAux___main___closed__92; -x_1109 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1109, 0, x_1104); +x_1091 = lean_box(0); +x_1092 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; +x_1093 = lean_name_mk_numeral(x_1092, x_1088); +x_1094 = l_Lean_Elab_Term_toParserDescrAux___main___closed__60; +x_1095 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; +x_1096 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1096, 0, x_1091); +lean_ctor_set(x_1096, 1, x_1094); +lean_ctor_set(x_1096, 2, x_1093); +lean_ctor_set(x_1096, 3, x_1095); +x_1097 = l_Array_empty___closed__1; +x_1098 = lean_array_push(x_1097, x_1096); +x_1099 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1100 = lean_array_push(x_1098, x_1099); +x_1101 = l_Lean_mkTermIdFromIdent___closed__2; +x_1102 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1102, 0, x_1101); +lean_ctor_set(x_1102, 1, x_1100); +x_1103 = lean_array_push(x_1097, x_1102); +x_1104 = lean_array_push(x_1097, x_1085); +x_1105 = l_Lean_nullKind___closed__2; +x_1106 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1106, 0, x_1105); +lean_ctor_set(x_1106, 1, x_1104); +x_1107 = lean_array_push(x_1103, x_1106); +x_1108 = l_Lean_mkAppStx___closed__8; +x_1109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1109, 0, x_1108); lean_ctor_set(x_1109, 1, x_1107); -lean_ctor_set(x_1109, 2, x_1106); -lean_ctor_set(x_1109, 3, x_1108); -x_1110 = l_Array_empty___closed__1; -x_1111 = lean_array_push(x_1110, x_1109); -x_1112 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1113 = lean_array_push(x_1111, x_1112); -x_1114 = l_Lean_mkTermIdFromIdent___closed__2; +x_1110 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1110, 0, x_1109); +lean_ctor_set(x_1110, 1, x_1086); +if (lean_is_scalar(x_1090)) { + x_1111 = lean_alloc_ctor(0, 2, 0); +} else { + x_1111 = x_1090; +} +lean_ctor_set(x_1111, 0, x_1110); +lean_ctor_set(x_1111, 1, x_1089); +return x_1111; +} +} +else +{ +uint8_t x_1112; +lean_dec(x_4); +x_1112 = !lean_is_exclusive(x_1036); +if (x_1112 == 0) +{ +return x_1036; +} +else +{ +lean_object* x_1113; lean_object* x_1114; lean_object* x_1115; +x_1113 = lean_ctor_get(x_1036, 0); +x_1114 = lean_ctor_get(x_1036, 1); +lean_inc(x_1114); +lean_inc(x_1113); +lean_dec(x_1036); x_1115 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1115, 0, x_1114); -lean_ctor_set(x_1115, 1, x_1113); -x_1116 = lean_box(x_3); -x_1117 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1117, 0, x_1115); -lean_ctor_set(x_1117, 1, x_1116); -x_1118 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1118, 0, x_1117); -lean_ctor_set(x_1118, 1, x_1103); -return x_1118; +lean_ctor_set(x_1115, 0, x_1113); +lean_ctor_set(x_1115, 1, x_1114); +return x_1115; } } } else { -lean_object* x_1119; lean_object* x_1120; lean_object* x_1121; -lean_dec(x_6); +lean_object* x_1116; uint8_t x_1117; uint8_t x_1118; uint8_t x_1119; lean_object* x_1120; lean_object* x_1121; +x_1116 = lean_ctor_get(x_2, 0); +x_1117 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +x_1118 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_inc(x_1116); lean_dec(x_2); -x_1119 = lean_unsigned_to_nat(0u); -x_1120 = l_Lean_Syntax_getArg(x_1, x_1119); -x_1121 = l_Lean_Syntax_isStrLit_x3f(x_1120); -lean_dec(x_1120); +x_1119 = 0; +x_1120 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_1120, 0, x_1116); +lean_ctor_set_uint8(x_1120, sizeof(void*)*1, x_1117); +lean_ctor_set_uint8(x_1120, sizeof(void*)*1 + 1, x_1119); +lean_ctor_set_uint8(x_1120, sizeof(void*)*1 + 2, x_1118); +lean_inc(x_4); +x_1121 = l_Lean_Elab_Term_toParserDescrAux___main(x_1033, x_1120, x_3, x_4, x_5); if (lean_obj_tag(x_1121) == 0) { -lean_object* x_1122; uint8_t x_1123; -lean_dec(x_4); -lean_dec(x_1); -x_1122 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_5); -x_1123 = !lean_is_exclusive(x_1122); -if (x_1123 == 0) -{ -return x_1122; -} -else -{ -lean_object* x_1124; lean_object* x_1125; lean_object* x_1126; +lean_object* x_1122; lean_object* x_1123; lean_object* x_1124; lean_object* x_1125; lean_object* x_1126; lean_object* x_1127; lean_object* x_1128; lean_object* x_1129; lean_object* x_1130; lean_object* x_1131; lean_object* x_1132; lean_object* x_1133; lean_object* x_1134; lean_object* x_1135; lean_object* x_1136; lean_object* x_1137; lean_object* x_1138; lean_object* x_1139; lean_object* x_1140; lean_object* x_1141; lean_object* x_1142; lean_object* x_1143; lean_object* x_1144; lean_object* x_1145; lean_object* x_1146; lean_object* x_1147; lean_object* x_1148; lean_object* x_1149; lean_object* x_1150; lean_object* x_1151; +x_1122 = lean_ctor_get(x_1121, 0); +lean_inc(x_1122); +x_1123 = lean_ctor_get(x_1121, 1); +lean_inc(x_1123); +lean_dec(x_1121); x_1124 = lean_ctor_get(x_1122, 0); +lean_inc(x_1124); x_1125 = lean_ctor_get(x_1122, 1); lean_inc(x_1125); -lean_inc(x_1124); -lean_dec(x_1122); -x_1126 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1126, 0, x_1124); -lean_ctor_set(x_1126, 1, x_1125); -return x_1126; +if (lean_is_exclusive(x_1122)) { + lean_ctor_release(x_1122, 0); + lean_ctor_release(x_1122, 1); + x_1126 = x_1122; +} else { + lean_dec_ref(x_1122); + x_1126 = lean_box(0); } -} -else -{ -lean_object* x_1127; lean_object* x_1128; lean_object* x_1129; lean_object* x_1130; lean_object* x_1131; uint8_t x_1132; -x_1127 = lean_ctor_get(x_1121, 0); -lean_inc(x_1127); -lean_dec(x_1121); -x_1128 = lean_unsigned_to_nat(1u); -x_1129 = l_Lean_Syntax_getArg(x_1, x_1128); -lean_dec(x_1); -x_1130 = l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(x_1129); -lean_dec(x_1129); -x_1131 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +x_1127 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1123); lean_dec(x_4); -x_1132 = !lean_is_exclusive(x_1131); -if (x_1132 == 0) -{ -lean_object* x_1133; lean_object* x_1134; lean_object* x_1135; lean_object* x_1136; lean_object* x_1137; lean_object* x_1138; lean_object* x_1139; lean_object* x_1140; lean_object* x_1141; lean_object* x_1142; lean_object* x_1143; lean_object* x_1144; lean_object* x_1145; lean_object* x_1146; lean_object* x_1147; lean_object* x_1148; lean_object* x_1149; lean_object* x_1150; lean_object* x_1151; lean_object* x_1152; lean_object* x_1153; lean_object* x_1154; lean_object* x_1155; lean_object* x_1156; lean_object* x_1157; lean_object* x_1158; lean_object* x_1159; lean_object* x_1160; lean_object* x_1161; -x_1133 = lean_ctor_get(x_1131, 0); -x_1134 = lean_box(0); -x_1135 = l_Lean_Elab_Term_toParserDescrAux___main___closed__96; -x_1136 = lean_name_mk_numeral(x_1135, x_1133); -x_1137 = l_Lean_Elab_Term_toParserDescrAux___main___closed__95; -x_1138 = l_Lean_Elab_Term_toParserDescrAux___main___closed__99; -x_1139 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1139, 0, x_1134); -lean_ctor_set(x_1139, 1, x_1137); -lean_ctor_set(x_1139, 2, x_1136); -lean_ctor_set(x_1139, 3, x_1138); -x_1140 = l_Array_empty___closed__1; -x_1141 = lean_array_push(x_1140, x_1139); -x_1142 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1143 = lean_array_push(x_1141, x_1142); -x_1144 = l_Lean_mkTermIdFromIdent___closed__2; -x_1145 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1145, 0, x_1144); -lean_ctor_set(x_1145, 1, x_1143); -x_1146 = lean_array_push(x_1140, x_1145); -x_1147 = l_Lean_mkStxStrLit(x_1127, x_1134); -x_1148 = l_Lean_mkOptionalNode___closed__2; -x_1149 = lean_array_push(x_1148, x_1147); -x_1150 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_1151 = lean_alloc_ctor(1, 2, 0); +x_1128 = lean_ctor_get(x_1127, 0); +lean_inc(x_1128); +x_1129 = lean_ctor_get(x_1127, 1); +lean_inc(x_1129); +if (lean_is_exclusive(x_1127)) { + lean_ctor_release(x_1127, 0); + lean_ctor_release(x_1127, 1); + x_1130 = x_1127; +} else { + lean_dec_ref(x_1127); + x_1130 = lean_box(0); +} +x_1131 = lean_box(0); +x_1132 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; +x_1133 = lean_name_mk_numeral(x_1132, x_1128); +x_1134 = l_Lean_Elab_Term_toParserDescrAux___main___closed__60; +x_1135 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; +x_1136 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1136, 0, x_1131); +lean_ctor_set(x_1136, 1, x_1134); +lean_ctor_set(x_1136, 2, x_1133); +lean_ctor_set(x_1136, 3, x_1135); +x_1137 = l_Array_empty___closed__1; +x_1138 = lean_array_push(x_1137, x_1136); +x_1139 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1140 = lean_array_push(x_1138, x_1139); +x_1141 = l_Lean_mkTermIdFromIdent___closed__2; +x_1142 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1142, 0, x_1141); +lean_ctor_set(x_1142, 1, x_1140); +x_1143 = lean_array_push(x_1137, x_1142); +x_1144 = lean_array_push(x_1137, x_1124); +x_1145 = l_Lean_nullKind___closed__2; +x_1146 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1146, 0, x_1145); +lean_ctor_set(x_1146, 1, x_1144); +x_1147 = lean_array_push(x_1143, x_1146); +x_1148 = l_Lean_mkAppStx___closed__8; +x_1149 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1149, 0, x_1148); +lean_ctor_set(x_1149, 1, x_1147); +if (lean_is_scalar(x_1126)) { + x_1150 = lean_alloc_ctor(0, 2, 0); +} else { + x_1150 = x_1126; +} +lean_ctor_set(x_1150, 0, x_1149); +lean_ctor_set(x_1150, 1, x_1125); +if (lean_is_scalar(x_1130)) { + x_1151 = lean_alloc_ctor(0, 2, 0); +} else { + x_1151 = x_1130; +} lean_ctor_set(x_1151, 0, x_1150); -lean_ctor_set(x_1151, 1, x_1149); -x_1152 = lean_array_push(x_1140, x_1151); -x_1153 = l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(x_1130); -x_1154 = lean_array_push(x_1152, x_1153); -x_1155 = l_Lean_nullKind___closed__2; -x_1156 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1156, 0, x_1155); -lean_ctor_set(x_1156, 1, x_1154); -x_1157 = lean_array_push(x_1146, x_1156); -x_1158 = l_Lean_mkAppStx___closed__8; -x_1159 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1159, 0, x_1158); -lean_ctor_set(x_1159, 1, x_1157); -x_1160 = lean_box(x_3); -x_1161 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1161, 0, x_1159); -lean_ctor_set(x_1161, 1, x_1160); -lean_ctor_set(x_1131, 0, x_1161); -return x_1131; +lean_ctor_set(x_1151, 1, x_1129); +return x_1151; } else { -lean_object* x_1162; lean_object* x_1163; lean_object* x_1164; lean_object* x_1165; lean_object* x_1166; lean_object* x_1167; lean_object* x_1168; lean_object* x_1169; lean_object* x_1170; lean_object* x_1171; lean_object* x_1172; lean_object* x_1173; lean_object* x_1174; lean_object* x_1175; lean_object* x_1176; lean_object* x_1177; lean_object* x_1178; lean_object* x_1179; lean_object* x_1180; lean_object* x_1181; lean_object* x_1182; lean_object* x_1183; lean_object* x_1184; lean_object* x_1185; lean_object* x_1186; lean_object* x_1187; lean_object* x_1188; lean_object* x_1189; lean_object* x_1190; lean_object* x_1191; lean_object* x_1192; -x_1162 = lean_ctor_get(x_1131, 0); -x_1163 = lean_ctor_get(x_1131, 1); -lean_inc(x_1163); -lean_inc(x_1162); -lean_dec(x_1131); -x_1164 = lean_box(0); -x_1165 = l_Lean_Elab_Term_toParserDescrAux___main___closed__96; -x_1166 = lean_name_mk_numeral(x_1165, x_1162); -x_1167 = l_Lean_Elab_Term_toParserDescrAux___main___closed__95; -x_1168 = l_Lean_Elab_Term_toParserDescrAux___main___closed__99; -x_1169 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1169, 0, x_1164); -lean_ctor_set(x_1169, 1, x_1167); -lean_ctor_set(x_1169, 2, x_1166); -lean_ctor_set(x_1169, 3, x_1168); -x_1170 = l_Array_empty___closed__1; -x_1171 = lean_array_push(x_1170, x_1169); -x_1172 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1173 = lean_array_push(x_1171, x_1172); -x_1174 = l_Lean_mkTermIdFromIdent___closed__2; -x_1175 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1175, 0, x_1174); -lean_ctor_set(x_1175, 1, x_1173); -x_1176 = lean_array_push(x_1170, x_1175); -x_1177 = l_Lean_mkStxStrLit(x_1127, x_1164); -x_1178 = l_Lean_mkOptionalNode___closed__2; -x_1179 = lean_array_push(x_1178, x_1177); -x_1180 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_1181 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1181, 0, x_1180); -lean_ctor_set(x_1181, 1, x_1179); -x_1182 = lean_array_push(x_1170, x_1181); -x_1183 = l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(x_1130); +lean_object* x_1152; lean_object* x_1153; lean_object* x_1154; lean_object* x_1155; +lean_dec(x_4); +x_1152 = lean_ctor_get(x_1121, 0); +lean_inc(x_1152); +x_1153 = lean_ctor_get(x_1121, 1); +lean_inc(x_1153); +if (lean_is_exclusive(x_1121)) { + lean_ctor_release(x_1121, 0); + lean_ctor_release(x_1121, 1); + x_1154 = x_1121; +} else { + lean_dec_ref(x_1121); + x_1154 = lean_box(0); +} +if (lean_is_scalar(x_1154)) { + x_1155 = lean_alloc_ctor(1, 2, 0); +} else { + x_1155 = x_1154; +} +lean_ctor_set(x_1155, 0, x_1152); +lean_ctor_set(x_1155, 1, x_1153); +return x_1155; +} +} +} +} +else +{ +lean_object* x_1156; uint8_t x_1157; +lean_dec(x_6); +lean_dec(x_2); +lean_dec(x_1); +x_1156 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1157 = !lean_is_exclusive(x_1156); +if (x_1157 == 0) +{ +lean_object* x_1158; lean_object* x_1159; lean_object* x_1160; lean_object* x_1161; lean_object* x_1162; lean_object* x_1163; lean_object* x_1164; lean_object* x_1165; lean_object* x_1166; lean_object* x_1167; lean_object* x_1168; lean_object* x_1169; lean_object* x_1170; lean_object* x_1171; lean_object* x_1172; +x_1158 = lean_ctor_get(x_1156, 0); +x_1159 = lean_box(0); +x_1160 = l_Lean_Elab_Term_toParserDescrAux___main___closed__68; +x_1161 = lean_name_mk_numeral(x_1160, x_1158); +x_1162 = l_Lean_Elab_Term_toParserDescrAux___main___closed__67; +x_1163 = l_Lean_Elab_Term_toParserDescrAux___main___closed__71; +x_1164 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1164, 0, x_1159); +lean_ctor_set(x_1164, 1, x_1162); +lean_ctor_set(x_1164, 2, x_1161); +lean_ctor_set(x_1164, 3, x_1163); +x_1165 = l_Array_empty___closed__1; +x_1166 = lean_array_push(x_1165, x_1164); +x_1167 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1168 = lean_array_push(x_1166, x_1167); +x_1169 = l_Lean_mkTermIdFromIdent___closed__2; +x_1170 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1170, 0, x_1169); +lean_ctor_set(x_1170, 1, x_1168); +x_1171 = lean_box(x_3); +x_1172 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1172, 0, x_1170); +lean_ctor_set(x_1172, 1, x_1171); +lean_ctor_set(x_1156, 0, x_1172); +return x_1156; +} +else +{ +lean_object* x_1173; lean_object* x_1174; lean_object* x_1175; lean_object* x_1176; lean_object* x_1177; lean_object* x_1178; lean_object* x_1179; lean_object* x_1180; lean_object* x_1181; lean_object* x_1182; lean_object* x_1183; lean_object* x_1184; lean_object* x_1185; lean_object* x_1186; lean_object* x_1187; lean_object* x_1188; lean_object* x_1189; +x_1173 = lean_ctor_get(x_1156, 0); +x_1174 = lean_ctor_get(x_1156, 1); +lean_inc(x_1174); +lean_inc(x_1173); +lean_dec(x_1156); +x_1175 = lean_box(0); +x_1176 = l_Lean_Elab_Term_toParserDescrAux___main___closed__68; +x_1177 = lean_name_mk_numeral(x_1176, x_1173); +x_1178 = l_Lean_Elab_Term_toParserDescrAux___main___closed__67; +x_1179 = l_Lean_Elab_Term_toParserDescrAux___main___closed__71; +x_1180 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1180, 0, x_1175); +lean_ctor_set(x_1180, 1, x_1178); +lean_ctor_set(x_1180, 2, x_1177); +lean_ctor_set(x_1180, 3, x_1179); +x_1181 = l_Array_empty___closed__1; +x_1182 = lean_array_push(x_1181, x_1180); +x_1183 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; x_1184 = lean_array_push(x_1182, x_1183); -x_1185 = l_Lean_nullKind___closed__2; +x_1185 = l_Lean_mkTermIdFromIdent___closed__2; x_1186 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_1186, 0, x_1185); lean_ctor_set(x_1186, 1, x_1184); -x_1187 = lean_array_push(x_1176, x_1186); -x_1188 = l_Lean_mkAppStx___closed__8; -x_1189 = lean_alloc_ctor(1, 2, 0); +x_1187 = lean_box(x_3); +x_1188 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1188, 0, x_1186); +lean_ctor_set(x_1188, 1, x_1187); +x_1189 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_1189, 0, x_1188); -lean_ctor_set(x_1189, 1, x_1187); -x_1190 = lean_box(x_3); -x_1191 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1191, 0, x_1189); -lean_ctor_set(x_1191, 1, x_1190); -x_1192 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1192, 0, x_1191); -lean_ctor_set(x_1192, 1, x_1163); -return x_1192; -} +lean_ctor_set(x_1189, 1, x_1174); +return x_1189; } } } else { -lean_object* x_1193; lean_object* x_1194; lean_object* x_1195; lean_object* x_1196; lean_object* x_1197; lean_object* x_1198; lean_object* x_1199; lean_object* x_1200; lean_object* x_1201; lean_object* x_1202; lean_object* x_1203; uint8_t x_1317; +lean_object* x_1190; uint8_t x_1191; lean_dec(x_6); -x_1193 = lean_unsigned_to_nat(0u); -x_1194 = l_Lean_Syntax_getIdAt(x_1, x_1193); -x_1195 = l_Lean_Name_eraseMacroScopes(x_1194); -x_1196 = lean_unsigned_to_nat(1u); -x_1197 = l_Lean_Syntax_getArg(x_1, x_1196); -x_1198 = l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(x_1197); -x_1199 = l_Lean_Elab_Term_getEnv___rarg(x_5); -x_1200 = lean_ctor_get(x_1199, 0); -lean_inc(x_1200); -x_1201 = lean_ctor_get(x_1199, 1); -lean_inc(x_1201); -lean_dec(x_1199); -x_1317 = l_Lean_Parser_isParserCategory(x_1200, x_1195); -lean_dec(x_1200); -if (x_1317 == 0) -{ -lean_object* x_1318; lean_object* x_1319; lean_object* x_1320; lean_object* x_1321; lean_object* x_1322; lean_object* x_1323; lean_object* x_1324; lean_object* x_1325; uint8_t x_1326; -lean_dec(x_1198); -lean_dec(x_1197); lean_dec(x_2); -x_1318 = lean_unsigned_to_nat(3u); -x_1319 = l_Lean_Syntax_getArg(x_1, x_1318); lean_dec(x_1); -x_1320 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1320, 0, x_1195); -x_1321 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118; -x_1322 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1322, 0, x_1321); -lean_ctor_set(x_1322, 1, x_1320); -x_1323 = l_Lean_Elab_Term_mkConst___closed__4; -x_1324 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1324, 0, x_1322); -lean_ctor_set(x_1324, 1, x_1323); -x_1325 = l_Lean_Elab_Term_throwError___rarg(x_1319, x_1324, x_4, x_1201); -lean_dec(x_1319); -x_1326 = !lean_is_exclusive(x_1325); -if (x_1326 == 0) +x_1190 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1191 = !lean_is_exclusive(x_1190); +if (x_1191 == 0) { -return x_1325; +lean_object* x_1192; lean_object* x_1193; lean_object* x_1194; lean_object* x_1195; lean_object* x_1196; lean_object* x_1197; lean_object* x_1198; lean_object* x_1199; lean_object* x_1200; lean_object* x_1201; lean_object* x_1202; lean_object* x_1203; lean_object* x_1204; lean_object* x_1205; lean_object* x_1206; +x_1192 = lean_ctor_get(x_1190, 0); +x_1193 = lean_box(0); +x_1194 = l_Lean_Elab_Term_toParserDescrAux___main___closed__75; +x_1195 = lean_name_mk_numeral(x_1194, x_1192); +x_1196 = l_Lean_Elab_Term_toParserDescrAux___main___closed__74; +x_1197 = l_Lean_Elab_Term_toParserDescrAux___main___closed__78; +x_1198 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1198, 0, x_1193); +lean_ctor_set(x_1198, 1, x_1196); +lean_ctor_set(x_1198, 2, x_1195); +lean_ctor_set(x_1198, 3, x_1197); +x_1199 = l_Array_empty___closed__1; +x_1200 = lean_array_push(x_1199, x_1198); +x_1201 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1202 = lean_array_push(x_1200, x_1201); +x_1203 = l_Lean_mkTermIdFromIdent___closed__2; +x_1204 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1204, 0, x_1203); +lean_ctor_set(x_1204, 1, x_1202); +x_1205 = lean_box(x_3); +x_1206 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1206, 0, x_1204); +lean_ctor_set(x_1206, 1, x_1205); +lean_ctor_set(x_1190, 0, x_1206); +return x_1190; } else { -lean_object* x_1327; lean_object* x_1328; lean_object* x_1329; -x_1327 = lean_ctor_get(x_1325, 0); -x_1328 = lean_ctor_get(x_1325, 1); -lean_inc(x_1328); -lean_inc(x_1327); -lean_dec(x_1325); -x_1329 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1329, 0, x_1327); -lean_ctor_set(x_1329, 1, x_1328); -return x_1329; -} -} -else -{ -lean_object* x_1330; lean_object* x_1331; lean_object* x_1332; -x_1330 = lean_box(0); -x_1331 = lean_box(x_3); -x_1332 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1332, 0, x_1330); -lean_ctor_set(x_1332, 1, x_1331); -x_1202 = x_1332; -x_1203 = x_1201; -goto block_1316; -} -block_1316: -{ -lean_object* x_1204; uint8_t x_1205; lean_object* x_1206; lean_object* x_1207; lean_object* x_1208; lean_object* x_1209; lean_object* x_1210; lean_object* x_1211; lean_object* x_1212; -x_1204 = lean_ctor_get(x_1202, 1); -lean_inc(x_1204); -lean_dec(x_1202); -x_1205 = lean_unbox(x_1204); -lean_dec(x_1204); -x_1206 = l___private_Init_Lean_Elab_Syntax_3__getMode(x_2, x_1205, x_4, x_1203); -x_1207 = lean_ctor_get(x_1206, 0); -lean_inc(x_1207); -x_1208 = lean_ctor_get(x_1206, 1); +lean_object* x_1207; lean_object* x_1208; lean_object* x_1209; lean_object* x_1210; lean_object* x_1211; lean_object* x_1212; lean_object* x_1213; lean_object* x_1214; lean_object* x_1215; lean_object* x_1216; lean_object* x_1217; lean_object* x_1218; lean_object* x_1219; lean_object* x_1220; lean_object* x_1221; lean_object* x_1222; lean_object* x_1223; +x_1207 = lean_ctor_get(x_1190, 0); +x_1208 = lean_ctor_get(x_1190, 1); lean_inc(x_1208); -lean_dec(x_1206); -x_1209 = lean_ctor_get(x_1207, 0); -lean_inc(x_1209); -x_1210 = lean_ctor_get(x_1207, 1); -lean_inc(x_1210); -if (lean_is_exclusive(x_1207)) { - lean_ctor_release(x_1207, 0); - lean_ctor_release(x_1207, 1); - x_1211 = x_1207; -} else { - lean_dec_ref(x_1207); - x_1211 = lean_box(0); -} -switch (lean_obj_tag(x_1209)) { -case 0: -{ -lean_dec(x_1197); -lean_dec(x_1); -if (lean_obj_tag(x_1198) == 0) -{ -x_1212 = x_1193; -goto block_1277; -} -else -{ -lean_object* x_1278; -x_1278 = lean_ctor_get(x_1198, 0); -lean_inc(x_1278); -lean_dec(x_1198); -x_1212 = x_1278; -goto block_1277; -} -} -case 1: -{ -lean_object* x_1279; uint8_t x_1280; -lean_dec(x_1197); -x_1279 = lean_ctor_get(x_1209, 0); -lean_inc(x_1279); -lean_dec(x_1209); -x_1280 = lean_name_eq(x_1195, x_1279); -lean_dec(x_1279); -if (x_1280 == 0) -{ -lean_dec(x_1); -if (lean_obj_tag(x_1198) == 0) -{ -x_1212 = x_1193; -goto block_1277; -} -else -{ -lean_object* x_1281; -x_1281 = lean_ctor_get(x_1198, 0); -lean_inc(x_1281); -lean_dec(x_1198); -x_1212 = x_1281; -goto block_1277; -} -} -else -{ -lean_object* x_1282; lean_object* x_1283; lean_object* x_1284; lean_object* x_1285; lean_object* x_1286; lean_object* x_1287; lean_object* x_1288; lean_object* x_1289; uint8_t x_1290; -lean_dec(x_1211); -lean_dec(x_1210); -lean_dec(x_1198); -x_1282 = lean_unsigned_to_nat(3u); -x_1283 = l_Lean_Syntax_getArg(x_1, x_1282); -lean_dec(x_1); -x_1284 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1284, 0, x_1195); -x_1285 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109; -x_1286 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1286, 0, x_1285); -lean_ctor_set(x_1286, 1, x_1284); -x_1287 = l_Lean_Elab_Term_toParserDescrAux___main___closed__112; -x_1288 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1288, 0, x_1286); -lean_ctor_set(x_1288, 1, x_1287); -x_1289 = l_Lean_Elab_Term_throwError___rarg(x_1283, x_1288, x_4, x_1208); -lean_dec(x_1283); -x_1290 = !lean_is_exclusive(x_1289); -if (x_1290 == 0) -{ -return x_1289; -} -else -{ -lean_object* x_1291; lean_object* x_1292; lean_object* x_1293; -x_1291 = lean_ctor_get(x_1289, 0); -x_1292 = lean_ctor_get(x_1289, 1); -lean_inc(x_1292); -lean_inc(x_1291); -lean_dec(x_1289); -x_1293 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1293, 0, x_1291); -lean_ctor_set(x_1293, 1, x_1292); -return x_1293; -} -} -} -default: -{ -lean_object* x_1294; uint8_t x_1295; -lean_dec(x_1); -x_1294 = lean_ctor_get(x_1209, 0); -lean_inc(x_1294); -lean_dec(x_1209); -x_1295 = lean_name_eq(x_1195, x_1294); -lean_dec(x_1294); -if (x_1295 == 0) -{ -lean_dec(x_1197); -if (lean_obj_tag(x_1198) == 0) -{ -x_1212 = x_1193; -goto block_1277; -} -else -{ -lean_object* x_1296; -x_1296 = lean_ctor_get(x_1198, 0); -lean_inc(x_1296); -lean_dec(x_1198); -x_1212 = x_1296; -goto block_1277; -} -} -else -{ -lean_dec(x_1211); -lean_dec(x_1210); -lean_dec(x_1195); -if (lean_obj_tag(x_1198) == 0) -{ -lean_object* x_1297; lean_object* x_1298; lean_object* x_1299; uint8_t x_1300; -lean_dec(x_1197); -x_1297 = l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg(x_1208); -x_1298 = lean_ctor_get(x_1297, 0); -lean_inc(x_1298); -x_1299 = lean_ctor_get(x_1297, 1); -lean_inc(x_1299); -lean_dec(x_1297); -x_1300 = !lean_is_exclusive(x_1298); -if (x_1300 == 0) -{ -lean_object* x_1301; lean_object* x_1302; lean_object* x_1303; lean_object* x_1304; -x_1301 = lean_ctor_get(x_1298, 0); -lean_dec(x_1301); -x_1302 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1299); -lean_dec(x_4); -x_1303 = lean_ctor_get(x_1302, 0); -lean_inc(x_1303); -x_1304 = lean_ctor_get(x_1302, 1); -lean_inc(x_1304); -lean_dec(x_1302); -lean_ctor_set(x_1298, 0, x_1303); -x_730 = x_1298; -x_731 = x_1304; -goto block_763; -} -else -{ -lean_object* x_1305; lean_object* x_1306; lean_object* x_1307; lean_object* x_1308; lean_object* x_1309; -x_1305 = lean_ctor_get(x_1298, 1); -lean_inc(x_1305); -lean_dec(x_1298); -x_1306 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1299); -lean_dec(x_4); -x_1307 = lean_ctor_get(x_1306, 0); -lean_inc(x_1307); -x_1308 = lean_ctor_get(x_1306, 1); -lean_inc(x_1308); -lean_dec(x_1306); -x_1309 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1309, 0, x_1307); -lean_ctor_set(x_1309, 1, x_1305); -x_730 = x_1309; -x_731 = x_1308; -goto block_763; -} -} -else -{ -lean_object* x_1310; lean_object* x_1311; uint8_t x_1312; -lean_dec(x_1198); -x_1310 = l_Lean_Elab_Term_toParserDescrAux___main___closed__115; -x_1311 = l_Lean_Elab_Term_throwError___rarg(x_1197, x_1310, x_4, x_1208); -lean_dec(x_1197); -x_1312 = !lean_is_exclusive(x_1311); -if (x_1312 == 0) -{ -return x_1311; -} -else -{ -lean_object* x_1313; lean_object* x_1314; lean_object* x_1315; -x_1313 = lean_ctor_get(x_1311, 0); -x_1314 = lean_ctor_get(x_1311, 1); -lean_inc(x_1314); -lean_inc(x_1313); -lean_dec(x_1311); -x_1315 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1315, 0, x_1313); -lean_ctor_set(x_1315, 1, x_1314); -return x_1315; -} -} -} -} -} -block_1277: -{ -lean_object* x_1213; uint8_t x_1214; -x_1213 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1208); -lean_dec(x_4); -x_1214 = !lean_is_exclusive(x_1213); -if (x_1214 == 0) -{ -lean_object* x_1215; lean_object* x_1216; lean_object* x_1217; lean_object* x_1218; lean_object* x_1219; lean_object* x_1220; lean_object* x_1221; lean_object* x_1222; lean_object* x_1223; lean_object* x_1224; lean_object* x_1225; lean_object* x_1226; lean_object* x_1227; lean_object* x_1228; lean_object* x_1229; lean_object* x_1230; lean_object* x_1231; lean_object* x_1232; lean_object* x_1233; lean_object* x_1234; lean_object* x_1235; lean_object* x_1236; lean_object* x_1237; lean_object* x_1238; lean_object* x_1239; lean_object* x_1240; lean_object* x_1241; lean_object* x_1242; lean_object* x_1243; lean_object* x_1244; -x_1215 = lean_ctor_get(x_1213, 0); -x_1216 = lean_box(0); -x_1217 = l_Lean_Elab_Term_toParserDescrAux___main___closed__103; -x_1218 = lean_name_mk_numeral(x_1217, x_1215); -x_1219 = l_Lean_Elab_Term_toParserDescrAux___main___closed__102; -x_1220 = l_Lean_Elab_Term_toParserDescrAux___main___closed__106; -x_1221 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1221, 0, x_1216); -lean_ctor_set(x_1221, 1, x_1219); -lean_ctor_set(x_1221, 2, x_1218); -lean_ctor_set(x_1221, 3, x_1220); -x_1222 = l_Array_empty___closed__1; -x_1223 = lean_array_push(x_1222, x_1221); -x_1224 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1225 = lean_array_push(x_1223, x_1224); -x_1226 = l_Lean_mkTermIdFromIdent___closed__2; -x_1227 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1227, 0, x_1226); -lean_ctor_set(x_1227, 1, x_1225); -x_1228 = lean_array_push(x_1222, x_1227); -x_1229 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_1195); -x_1230 = lean_array_push(x_1222, x_1229); -x_1231 = l_Nat_repr(x_1212); -x_1232 = l_Lean_numLitKind; -x_1233 = l_Lean_mkStxLit(x_1232, x_1231, x_1216); -x_1234 = l_Lean_mkOptionalNode___closed__2; -x_1235 = lean_array_push(x_1234, x_1233); -x_1236 = l_Lean_Parser_Term_num___elambda__1___closed__1; -x_1237 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1237, 0, x_1236); -lean_ctor_set(x_1237, 1, x_1235); -x_1238 = lean_array_push(x_1230, x_1237); -x_1239 = l_Lean_nullKind___closed__2; -x_1240 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1240, 0, x_1239); -lean_ctor_set(x_1240, 1, x_1238); -x_1241 = lean_array_push(x_1228, x_1240); -x_1242 = l_Lean_mkAppStx___closed__8; -x_1243 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1243, 0, x_1242); -lean_ctor_set(x_1243, 1, x_1241); -if (lean_is_scalar(x_1211)) { - x_1244 = lean_alloc_ctor(0, 2, 0); -} else { - x_1244 = x_1211; -} -lean_ctor_set(x_1244, 0, x_1243); -lean_ctor_set(x_1244, 1, x_1210); -lean_ctor_set(x_1213, 0, x_1244); -return x_1213; -} -else -{ -lean_object* x_1245; lean_object* x_1246; lean_object* x_1247; lean_object* x_1248; lean_object* x_1249; lean_object* x_1250; lean_object* x_1251; lean_object* x_1252; lean_object* x_1253; lean_object* x_1254; lean_object* x_1255; lean_object* x_1256; lean_object* x_1257; lean_object* x_1258; lean_object* x_1259; lean_object* x_1260; lean_object* x_1261; lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; lean_object* x_1265; lean_object* x_1266; lean_object* x_1267; lean_object* x_1268; lean_object* x_1269; lean_object* x_1270; lean_object* x_1271; lean_object* x_1272; lean_object* x_1273; lean_object* x_1274; lean_object* x_1275; lean_object* x_1276; -x_1245 = lean_ctor_get(x_1213, 0); -x_1246 = lean_ctor_get(x_1213, 1); -lean_inc(x_1246); -lean_inc(x_1245); -lean_dec(x_1213); -x_1247 = lean_box(0); -x_1248 = l_Lean_Elab_Term_toParserDescrAux___main___closed__103; -x_1249 = lean_name_mk_numeral(x_1248, x_1245); -x_1250 = l_Lean_Elab_Term_toParserDescrAux___main___closed__102; -x_1251 = l_Lean_Elab_Term_toParserDescrAux___main___closed__106; -x_1252 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1252, 0, x_1247); -lean_ctor_set(x_1252, 1, x_1250); -lean_ctor_set(x_1252, 2, x_1249); -lean_ctor_set(x_1252, 3, x_1251); -x_1253 = l_Array_empty___closed__1; -x_1254 = lean_array_push(x_1253, x_1252); -x_1255 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1256 = lean_array_push(x_1254, x_1255); -x_1257 = l_Lean_mkTermIdFromIdent___closed__2; -x_1258 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1258, 0, x_1257); -lean_ctor_set(x_1258, 1, x_1256); -x_1259 = lean_array_push(x_1253, x_1258); -x_1260 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_1195); -x_1261 = lean_array_push(x_1253, x_1260); -x_1262 = l_Nat_repr(x_1212); -x_1263 = l_Lean_numLitKind; -x_1264 = l_Lean_mkStxLit(x_1263, x_1262, x_1247); -x_1265 = l_Lean_mkOptionalNode___closed__2; -x_1266 = lean_array_push(x_1265, x_1264); -x_1267 = l_Lean_Parser_Term_num___elambda__1___closed__1; -x_1268 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1268, 0, x_1267); -lean_ctor_set(x_1268, 1, x_1266); -x_1269 = lean_array_push(x_1261, x_1268); -x_1270 = l_Lean_nullKind___closed__2; -x_1271 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1271, 0, x_1270); -lean_ctor_set(x_1271, 1, x_1269); -x_1272 = lean_array_push(x_1259, x_1271); -x_1273 = l_Lean_mkAppStx___closed__8; -x_1274 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1274, 0, x_1273); -lean_ctor_set(x_1274, 1, x_1272); -if (lean_is_scalar(x_1211)) { - x_1275 = lean_alloc_ctor(0, 2, 0); -} else { - x_1275 = x_1211; -} -lean_ctor_set(x_1275, 0, x_1274); -lean_ctor_set(x_1275, 1, x_1210); -x_1276 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1276, 0, x_1275); -lean_ctor_set(x_1276, 1, x_1246); -return x_1276; -} -} +lean_inc(x_1207); +lean_dec(x_1190); +x_1209 = lean_box(0); +x_1210 = l_Lean_Elab_Term_toParserDescrAux___main___closed__75; +x_1211 = lean_name_mk_numeral(x_1210, x_1207); +x_1212 = l_Lean_Elab_Term_toParserDescrAux___main___closed__74; +x_1213 = l_Lean_Elab_Term_toParserDescrAux___main___closed__78; +x_1214 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1214, 0, x_1209); +lean_ctor_set(x_1214, 1, x_1212); +lean_ctor_set(x_1214, 2, x_1211); +lean_ctor_set(x_1214, 3, x_1213); +x_1215 = l_Array_empty___closed__1; +x_1216 = lean_array_push(x_1215, x_1214); +x_1217 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1218 = lean_array_push(x_1216, x_1217); +x_1219 = l_Lean_mkTermIdFromIdent___closed__2; +x_1220 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1220, 0, x_1219); +lean_ctor_set(x_1220, 1, x_1218); +x_1221 = lean_box(x_3); +x_1222 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1222, 0, x_1220); +lean_ctor_set(x_1222, 1, x_1221); +x_1223 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1223, 0, x_1222); +lean_ctor_set(x_1223, 1, x_1208); +return x_1223; } } } else { -lean_object* x_1333; lean_object* x_1334; +lean_object* x_1224; uint8_t x_1225; lean_dec(x_6); -x_1333 = lean_unsigned_to_nat(1u); -x_1334 = l_Lean_Syntax_getArg(x_1, x_1333); +lean_dec(x_2); lean_dec(x_1); -x_1 = x_1334; +x_1224 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1225 = !lean_is_exclusive(x_1224); +if (x_1225 == 0) +{ +lean_object* x_1226; lean_object* x_1227; lean_object* x_1228; lean_object* x_1229; lean_object* x_1230; lean_object* x_1231; lean_object* x_1232; lean_object* x_1233; lean_object* x_1234; lean_object* x_1235; lean_object* x_1236; lean_object* x_1237; lean_object* x_1238; lean_object* x_1239; lean_object* x_1240; +x_1226 = lean_ctor_get(x_1224, 0); +x_1227 = lean_box(0); +x_1228 = l_Lean_Elab_Term_toParserDescrAux___main___closed__82; +x_1229 = lean_name_mk_numeral(x_1228, x_1226); +x_1230 = l_Lean_Elab_Term_toParserDescrAux___main___closed__81; +x_1231 = l_Lean_Elab_Term_toParserDescrAux___main___closed__85; +x_1232 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1232, 0, x_1227); +lean_ctor_set(x_1232, 1, x_1230); +lean_ctor_set(x_1232, 2, x_1229); +lean_ctor_set(x_1232, 3, x_1231); +x_1233 = l_Array_empty___closed__1; +x_1234 = lean_array_push(x_1233, x_1232); +x_1235 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1236 = lean_array_push(x_1234, x_1235); +x_1237 = l_Lean_mkTermIdFromIdent___closed__2; +x_1238 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1238, 0, x_1237); +lean_ctor_set(x_1238, 1, x_1236); +x_1239 = lean_box(x_3); +x_1240 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1240, 0, x_1238); +lean_ctor_set(x_1240, 1, x_1239); +lean_ctor_set(x_1224, 0, x_1240); +return x_1224; +} +else +{ +lean_object* x_1241; lean_object* x_1242; lean_object* x_1243; lean_object* x_1244; lean_object* x_1245; lean_object* x_1246; lean_object* x_1247; lean_object* x_1248; lean_object* x_1249; lean_object* x_1250; lean_object* x_1251; lean_object* x_1252; lean_object* x_1253; lean_object* x_1254; lean_object* x_1255; lean_object* x_1256; lean_object* x_1257; +x_1241 = lean_ctor_get(x_1224, 0); +x_1242 = lean_ctor_get(x_1224, 1); +lean_inc(x_1242); +lean_inc(x_1241); +lean_dec(x_1224); +x_1243 = lean_box(0); +x_1244 = l_Lean_Elab_Term_toParserDescrAux___main___closed__82; +x_1245 = lean_name_mk_numeral(x_1244, x_1241); +x_1246 = l_Lean_Elab_Term_toParserDescrAux___main___closed__81; +x_1247 = l_Lean_Elab_Term_toParserDescrAux___main___closed__85; +x_1248 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1248, 0, x_1243); +lean_ctor_set(x_1248, 1, x_1246); +lean_ctor_set(x_1248, 2, x_1245); +lean_ctor_set(x_1248, 3, x_1247); +x_1249 = l_Array_empty___closed__1; +x_1250 = lean_array_push(x_1249, x_1248); +x_1251 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1252 = lean_array_push(x_1250, x_1251); +x_1253 = l_Lean_mkTermIdFromIdent___closed__2; +x_1254 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1254, 0, x_1253); +lean_ctor_set(x_1254, 1, x_1252); +x_1255 = lean_box(x_3); +x_1256 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1256, 0, x_1254); +lean_ctor_set(x_1256, 1, x_1255); +x_1257 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1257, 0, x_1256); +lean_ctor_set(x_1257, 1, x_1242); +return x_1257; +} +} +} +else +{ +lean_object* x_1258; uint8_t x_1259; +lean_dec(x_6); +lean_dec(x_2); +lean_dec(x_1); +x_1258 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1259 = !lean_is_exclusive(x_1258); +if (x_1259 == 0) +{ +lean_object* x_1260; lean_object* x_1261; lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; lean_object* x_1265; lean_object* x_1266; lean_object* x_1267; lean_object* x_1268; lean_object* x_1269; lean_object* x_1270; lean_object* x_1271; lean_object* x_1272; lean_object* x_1273; lean_object* x_1274; +x_1260 = lean_ctor_get(x_1258, 0); +x_1261 = lean_box(0); +x_1262 = l_Lean_Elab_Term_toParserDescrAux___main___closed__89; +x_1263 = lean_name_mk_numeral(x_1262, x_1260); +x_1264 = l_Lean_Elab_Term_toParserDescrAux___main___closed__88; +x_1265 = l_Lean_Elab_Term_toParserDescrAux___main___closed__92; +x_1266 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1266, 0, x_1261); +lean_ctor_set(x_1266, 1, x_1264); +lean_ctor_set(x_1266, 2, x_1263); +lean_ctor_set(x_1266, 3, x_1265); +x_1267 = l_Array_empty___closed__1; +x_1268 = lean_array_push(x_1267, x_1266); +x_1269 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1270 = lean_array_push(x_1268, x_1269); +x_1271 = l_Lean_mkTermIdFromIdent___closed__2; +x_1272 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1272, 0, x_1271); +lean_ctor_set(x_1272, 1, x_1270); +x_1273 = lean_box(x_3); +x_1274 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1274, 0, x_1272); +lean_ctor_set(x_1274, 1, x_1273); +lean_ctor_set(x_1258, 0, x_1274); +return x_1258; +} +else +{ +lean_object* x_1275; lean_object* x_1276; lean_object* x_1277; lean_object* x_1278; lean_object* x_1279; lean_object* x_1280; lean_object* x_1281; lean_object* x_1282; lean_object* x_1283; lean_object* x_1284; lean_object* x_1285; lean_object* x_1286; lean_object* x_1287; lean_object* x_1288; lean_object* x_1289; lean_object* x_1290; lean_object* x_1291; +x_1275 = lean_ctor_get(x_1258, 0); +x_1276 = lean_ctor_get(x_1258, 1); +lean_inc(x_1276); +lean_inc(x_1275); +lean_dec(x_1258); +x_1277 = lean_box(0); +x_1278 = l_Lean_Elab_Term_toParserDescrAux___main___closed__89; +x_1279 = lean_name_mk_numeral(x_1278, x_1275); +x_1280 = l_Lean_Elab_Term_toParserDescrAux___main___closed__88; +x_1281 = l_Lean_Elab_Term_toParserDescrAux___main___closed__92; +x_1282 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1282, 0, x_1277); +lean_ctor_set(x_1282, 1, x_1280); +lean_ctor_set(x_1282, 2, x_1279); +lean_ctor_set(x_1282, 3, x_1281); +x_1283 = l_Array_empty___closed__1; +x_1284 = lean_array_push(x_1283, x_1282); +x_1285 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1286 = lean_array_push(x_1284, x_1285); +x_1287 = l_Lean_mkTermIdFromIdent___closed__2; +x_1288 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1288, 0, x_1287); +lean_ctor_set(x_1288, 1, x_1286); +x_1289 = lean_box(x_3); +x_1290 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1290, 0, x_1288); +lean_ctor_set(x_1290, 1, x_1289); +x_1291 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1291, 0, x_1290); +lean_ctor_set(x_1291, 1, x_1276); +return x_1291; +} +} +} +else +{ +lean_object* x_1292; lean_object* x_1293; lean_object* x_1294; +lean_dec(x_6); +x_1292 = lean_unsigned_to_nat(0u); +x_1293 = l_Lean_Syntax_getArg(x_1, x_1292); +x_1294 = l_Lean_Syntax_isStrLit_x3f(x_1293); +lean_dec(x_1293); +if (lean_obj_tag(x_1294) == 0) +{ +lean_object* x_1295; uint8_t x_1296; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_1295 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_5); +x_1296 = !lean_is_exclusive(x_1295); +if (x_1296 == 0) +{ +return x_1295; +} +else +{ +lean_object* x_1297; lean_object* x_1298; lean_object* x_1299; +x_1297 = lean_ctor_get(x_1295, 0); +x_1298 = lean_ctor_get(x_1295, 1); +lean_inc(x_1298); +lean_inc(x_1297); +lean_dec(x_1295); +x_1299 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1299, 0, x_1297); +lean_ctor_set(x_1299, 1, x_1298); +return x_1299; +} +} +else +{ +lean_object* x_1300; lean_object* x_1301; lean_object* x_1302; lean_object* x_1303; lean_object* x_1304; lean_object* x_1305; uint8_t x_1366; +x_1300 = lean_ctor_get(x_1294, 0); +lean_inc(x_1300); +lean_dec(x_1294); +x_1301 = lean_unsigned_to_nat(1u); +x_1302 = l_Lean_Syntax_getArg(x_1, x_1301); +lean_dec(x_1); +x_1303 = l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(x_1302); +lean_dec(x_1302); +x_1366 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 2); +lean_dec(x_2); +if (x_1366 == 0) +{ +lean_object* x_1367; lean_object* x_1368; lean_object* x_1369; lean_object* x_1370; lean_object* x_1371; +x_1367 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1368 = lean_ctor_get(x_1367, 0); +lean_inc(x_1368); +x_1369 = lean_ctor_get(x_1367, 1); +lean_inc(x_1369); +lean_dec(x_1367); +x_1370 = lean_box(x_3); +x_1371 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1371, 0, x_1368); +lean_ctor_set(x_1371, 1, x_1370); +x_1304 = x_1371; +x_1305 = x_1369; +goto block_1365; +} +else +{ +if (lean_obj_tag(x_1303) == 0) +{ +lean_object* x_1372; uint8_t x_1373; +x_1372 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1373 = !lean_is_exclusive(x_1372); +if (x_1373 == 0) +{ +lean_object* x_1374; lean_object* x_1375; lean_object* x_1376; lean_object* x_1377; lean_object* x_1378; lean_object* x_1379; lean_object* x_1380; lean_object* x_1381; lean_object* x_1382; lean_object* x_1383; lean_object* x_1384; lean_object* x_1385; lean_object* x_1386; lean_object* x_1387; lean_object* x_1388; lean_object* x_1389; lean_object* x_1390; lean_object* x_1391; lean_object* x_1392; lean_object* x_1393; lean_object* x_1394; lean_object* x_1395; lean_object* x_1396; lean_object* x_1397; lean_object* x_1398; lean_object* x_1399; lean_object* x_1400; lean_object* x_1401; lean_object* x_1402; lean_object* x_1403; lean_object* x_1404; lean_object* x_1405; lean_object* x_1406; lean_object* x_1407; lean_object* x_1408; lean_object* x_1409; +x_1374 = lean_ctor_get(x_1372, 0); +x_1375 = lean_box(0); +x_1376 = l_Lean_Elab_Term_toParserDescrAux___main___closed__104; +lean_inc(x_1374); +x_1377 = lean_name_mk_numeral(x_1376, x_1374); +x_1378 = l_Lean_Elab_Term_toParserDescrAux___main___closed__102; +x_1379 = l_Lean_Elab_Term_toParserDescrAux___main___closed__107; +x_1380 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1380, 0, x_1375); +lean_ctor_set(x_1380, 1, x_1378); +lean_ctor_set(x_1380, 2, x_1377); +lean_ctor_set(x_1380, 3, x_1379); +x_1381 = l_Array_empty___closed__1; +x_1382 = lean_array_push(x_1381, x_1380); +x_1383 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1384 = lean_array_push(x_1382, x_1383); +x_1385 = l_Lean_mkTermIdFromIdent___closed__2; +x_1386 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1386, 0, x_1385); +lean_ctor_set(x_1386, 1, x_1384); +x_1387 = lean_array_push(x_1381, x_1386); +x_1388 = l_Lean_mkStxStrLit(x_1300, x_1375); +x_1389 = l_Lean_mkOptionalNode___closed__2; +x_1390 = lean_array_push(x_1389, x_1388); +x_1391 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_1392 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1392, 0, x_1391); +lean_ctor_set(x_1392, 1, x_1390); +x_1393 = lean_array_push(x_1381, x_1392); +x_1394 = l_Lean_Elab_Term_toParserDescrAux___main___closed__110; +x_1395 = lean_name_mk_numeral(x_1394, x_1374); +x_1396 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109; +x_1397 = l_Lean_Elab_Term_toParserDescrAux___main___closed__113; +x_1398 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1398, 0, x_1375); +lean_ctor_set(x_1398, 1, x_1396); +lean_ctor_set(x_1398, 2, x_1395); +lean_ctor_set(x_1398, 3, x_1397); +x_1399 = lean_array_push(x_1381, x_1398); +x_1400 = lean_array_push(x_1399, x_1383); +x_1401 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1401, 0, x_1385); +lean_ctor_set(x_1401, 1, x_1400); +x_1402 = lean_array_push(x_1393, x_1401); +x_1403 = l_Lean_nullKind___closed__2; +x_1404 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1404, 0, x_1403); +lean_ctor_set(x_1404, 1, x_1402); +x_1405 = lean_array_push(x_1387, x_1404); +x_1406 = l_Lean_mkAppStx___closed__8; +x_1407 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1407, 0, x_1406); +lean_ctor_set(x_1407, 1, x_1405); +x_1408 = lean_box(x_3); +x_1409 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1409, 0, x_1407); +lean_ctor_set(x_1409, 1, x_1408); +lean_ctor_set(x_1372, 0, x_1409); +return x_1372; +} +else +{ +lean_object* x_1410; lean_object* x_1411; lean_object* x_1412; lean_object* x_1413; lean_object* x_1414; lean_object* x_1415; lean_object* x_1416; lean_object* x_1417; lean_object* x_1418; lean_object* x_1419; lean_object* x_1420; lean_object* x_1421; lean_object* x_1422; lean_object* x_1423; lean_object* x_1424; lean_object* x_1425; lean_object* x_1426; lean_object* x_1427; lean_object* x_1428; lean_object* x_1429; lean_object* x_1430; lean_object* x_1431; lean_object* x_1432; lean_object* x_1433; lean_object* x_1434; lean_object* x_1435; lean_object* x_1436; lean_object* x_1437; lean_object* x_1438; lean_object* x_1439; lean_object* x_1440; lean_object* x_1441; lean_object* x_1442; lean_object* x_1443; lean_object* x_1444; lean_object* x_1445; lean_object* x_1446; lean_object* x_1447; +x_1410 = lean_ctor_get(x_1372, 0); +x_1411 = lean_ctor_get(x_1372, 1); +lean_inc(x_1411); +lean_inc(x_1410); +lean_dec(x_1372); +x_1412 = lean_box(0); +x_1413 = l_Lean_Elab_Term_toParserDescrAux___main___closed__104; +lean_inc(x_1410); +x_1414 = lean_name_mk_numeral(x_1413, x_1410); +x_1415 = l_Lean_Elab_Term_toParserDescrAux___main___closed__102; +x_1416 = l_Lean_Elab_Term_toParserDescrAux___main___closed__107; +x_1417 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1417, 0, x_1412); +lean_ctor_set(x_1417, 1, x_1415); +lean_ctor_set(x_1417, 2, x_1414); +lean_ctor_set(x_1417, 3, x_1416); +x_1418 = l_Array_empty___closed__1; +x_1419 = lean_array_push(x_1418, x_1417); +x_1420 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1421 = lean_array_push(x_1419, x_1420); +x_1422 = l_Lean_mkTermIdFromIdent___closed__2; +x_1423 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1423, 0, x_1422); +lean_ctor_set(x_1423, 1, x_1421); +x_1424 = lean_array_push(x_1418, x_1423); +x_1425 = l_Lean_mkStxStrLit(x_1300, x_1412); +x_1426 = l_Lean_mkOptionalNode___closed__2; +x_1427 = lean_array_push(x_1426, x_1425); +x_1428 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_1429 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1429, 0, x_1428); +lean_ctor_set(x_1429, 1, x_1427); +x_1430 = lean_array_push(x_1418, x_1429); +x_1431 = l_Lean_Elab_Term_toParserDescrAux___main___closed__110; +x_1432 = lean_name_mk_numeral(x_1431, x_1410); +x_1433 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109; +x_1434 = l_Lean_Elab_Term_toParserDescrAux___main___closed__113; +x_1435 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1435, 0, x_1412); +lean_ctor_set(x_1435, 1, x_1433); +lean_ctor_set(x_1435, 2, x_1432); +lean_ctor_set(x_1435, 3, x_1434); +x_1436 = lean_array_push(x_1418, x_1435); +x_1437 = lean_array_push(x_1436, x_1420); +x_1438 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1438, 0, x_1422); +lean_ctor_set(x_1438, 1, x_1437); +x_1439 = lean_array_push(x_1430, x_1438); +x_1440 = l_Lean_nullKind___closed__2; +x_1441 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1441, 0, x_1440); +lean_ctor_set(x_1441, 1, x_1439); +x_1442 = lean_array_push(x_1424, x_1441); +x_1443 = l_Lean_mkAppStx___closed__8; +x_1444 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1444, 0, x_1443); +lean_ctor_set(x_1444, 1, x_1442); +x_1445 = lean_box(x_3); +x_1446 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1446, 0, x_1444); +lean_ctor_set(x_1446, 1, x_1445); +x_1447 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1447, 0, x_1446); +lean_ctor_set(x_1447, 1, x_1411); +return x_1447; +} +} +else +{ +lean_object* x_1448; lean_object* x_1449; lean_object* x_1450; lean_object* x_1451; lean_object* x_1452; +x_1448 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1449 = lean_ctor_get(x_1448, 0); +lean_inc(x_1449); +x_1450 = lean_ctor_get(x_1448, 1); +lean_inc(x_1450); +lean_dec(x_1448); +x_1451 = lean_box(x_3); +x_1452 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1452, 0, x_1449); +lean_ctor_set(x_1452, 1, x_1451); +x_1304 = x_1452; +x_1305 = x_1450; +goto block_1365; +} +} +block_1365: +{ +uint8_t x_1306; +x_1306 = !lean_is_exclusive(x_1304); +if (x_1306 == 0) +{ +lean_object* x_1307; lean_object* x_1308; lean_object* x_1309; lean_object* x_1310; lean_object* x_1311; lean_object* x_1312; lean_object* x_1313; lean_object* x_1314; lean_object* x_1315; lean_object* x_1316; lean_object* x_1317; lean_object* x_1318; lean_object* x_1319; lean_object* x_1320; lean_object* x_1321; lean_object* x_1322; lean_object* x_1323; lean_object* x_1324; lean_object* x_1325; lean_object* x_1326; lean_object* x_1327; lean_object* x_1328; lean_object* x_1329; lean_object* x_1330; lean_object* x_1331; lean_object* x_1332; lean_object* x_1333; lean_object* x_1334; +x_1307 = lean_ctor_get(x_1304, 0); +x_1308 = lean_box(0); +x_1309 = l_Lean_Elab_Term_toParserDescrAux___main___closed__96; +x_1310 = lean_name_mk_numeral(x_1309, x_1307); +x_1311 = l_Lean_Elab_Term_toParserDescrAux___main___closed__95; +x_1312 = l_Lean_Elab_Term_toParserDescrAux___main___closed__99; +x_1313 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1313, 0, x_1308); +lean_ctor_set(x_1313, 1, x_1311); +lean_ctor_set(x_1313, 2, x_1310); +lean_ctor_set(x_1313, 3, x_1312); +x_1314 = l_Array_empty___closed__1; +x_1315 = lean_array_push(x_1314, x_1313); +x_1316 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1317 = lean_array_push(x_1315, x_1316); +x_1318 = l_Lean_mkTermIdFromIdent___closed__2; +x_1319 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1319, 0, x_1318); +lean_ctor_set(x_1319, 1, x_1317); +x_1320 = lean_array_push(x_1314, x_1319); +x_1321 = l_Lean_mkStxStrLit(x_1300, x_1308); +x_1322 = l_Lean_mkOptionalNode___closed__2; +x_1323 = lean_array_push(x_1322, x_1321); +x_1324 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_1325 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1325, 0, x_1324); +lean_ctor_set(x_1325, 1, x_1323); +x_1326 = lean_array_push(x_1314, x_1325); +x_1327 = l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(x_1303); +x_1328 = lean_array_push(x_1326, x_1327); +x_1329 = l_Lean_nullKind___closed__2; +x_1330 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1330, 0, x_1329); +lean_ctor_set(x_1330, 1, x_1328); +x_1331 = lean_array_push(x_1320, x_1330); +x_1332 = l_Lean_mkAppStx___closed__8; +x_1333 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1333, 0, x_1332); +lean_ctor_set(x_1333, 1, x_1331); +lean_ctor_set(x_1304, 0, x_1333); +x_1334 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1334, 0, x_1304); +lean_ctor_set(x_1334, 1, x_1305); +return x_1334; +} +else +{ +lean_object* x_1335; lean_object* x_1336; lean_object* x_1337; lean_object* x_1338; lean_object* x_1339; lean_object* x_1340; lean_object* x_1341; lean_object* x_1342; lean_object* x_1343; lean_object* x_1344; lean_object* x_1345; lean_object* x_1346; lean_object* x_1347; lean_object* x_1348; lean_object* x_1349; lean_object* x_1350; lean_object* x_1351; lean_object* x_1352; lean_object* x_1353; lean_object* x_1354; lean_object* x_1355; lean_object* x_1356; lean_object* x_1357; lean_object* x_1358; lean_object* x_1359; lean_object* x_1360; lean_object* x_1361; lean_object* x_1362; lean_object* x_1363; lean_object* x_1364; +x_1335 = lean_ctor_get(x_1304, 0); +x_1336 = lean_ctor_get(x_1304, 1); +lean_inc(x_1336); +lean_inc(x_1335); +lean_dec(x_1304); +x_1337 = lean_box(0); +x_1338 = l_Lean_Elab_Term_toParserDescrAux___main___closed__96; +x_1339 = lean_name_mk_numeral(x_1338, x_1335); +x_1340 = l_Lean_Elab_Term_toParserDescrAux___main___closed__95; +x_1341 = l_Lean_Elab_Term_toParserDescrAux___main___closed__99; +x_1342 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1342, 0, x_1337); +lean_ctor_set(x_1342, 1, x_1340); +lean_ctor_set(x_1342, 2, x_1339); +lean_ctor_set(x_1342, 3, x_1341); +x_1343 = l_Array_empty___closed__1; +x_1344 = lean_array_push(x_1343, x_1342); +x_1345 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1346 = lean_array_push(x_1344, x_1345); +x_1347 = l_Lean_mkTermIdFromIdent___closed__2; +x_1348 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1348, 0, x_1347); +lean_ctor_set(x_1348, 1, x_1346); +x_1349 = lean_array_push(x_1343, x_1348); +x_1350 = l_Lean_mkStxStrLit(x_1300, x_1337); +x_1351 = l_Lean_mkOptionalNode___closed__2; +x_1352 = lean_array_push(x_1351, x_1350); +x_1353 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_1354 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1354, 0, x_1353); +lean_ctor_set(x_1354, 1, x_1352); +x_1355 = lean_array_push(x_1343, x_1354); +x_1356 = l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(x_1303); +x_1357 = lean_array_push(x_1355, x_1356); +x_1358 = l_Lean_nullKind___closed__2; +x_1359 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1359, 0, x_1358); +lean_ctor_set(x_1359, 1, x_1357); +x_1360 = lean_array_push(x_1349, x_1359); +x_1361 = l_Lean_mkAppStx___closed__8; +x_1362 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1362, 0, x_1361); +lean_ctor_set(x_1362, 1, x_1360); +x_1363 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1363, 0, x_1362); +lean_ctor_set(x_1363, 1, x_1336); +x_1364 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1364, 0, x_1363); +lean_ctor_set(x_1364, 1, x_1305); +return x_1364; +} +} +} +} +} +else +{ +lean_object* x_1453; lean_object* x_1454; lean_object* x_1455; lean_object* x_1456; lean_object* x_1457; lean_object* x_1458; lean_object* x_1459; lean_object* x_1460; lean_object* x_1461; lean_object* x_1462; lean_object* x_1463; uint8_t x_1570; +lean_dec(x_6); +x_1453 = lean_unsigned_to_nat(0u); +x_1454 = l_Lean_Syntax_getIdAt(x_1, x_1453); +x_1455 = l_Lean_Name_eraseMacroScopes(x_1454); +x_1456 = lean_unsigned_to_nat(1u); +x_1457 = l_Lean_Syntax_getArg(x_1, x_1456); +x_1458 = l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(x_1457); +x_1459 = l_Lean_Elab_Term_getEnv___rarg(x_5); +x_1460 = lean_ctor_get(x_1459, 0); +lean_inc(x_1460); +x_1461 = lean_ctor_get(x_1459, 1); +lean_inc(x_1461); +lean_dec(x_1459); +x_1570 = l_Lean_Parser_isParserCategory(x_1460, x_1455); +lean_dec(x_1460); +if (x_1570 == 0) +{ +lean_object* x_1571; lean_object* x_1572; lean_object* x_1573; lean_object* x_1574; lean_object* x_1575; lean_object* x_1576; lean_object* x_1577; lean_object* x_1578; uint8_t x_1579; +lean_dec(x_1458); +lean_dec(x_1457); +lean_dec(x_2); +x_1571 = lean_unsigned_to_nat(3u); +x_1572 = l_Lean_Syntax_getArg(x_1, x_1571); +lean_dec(x_1); +x_1573 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1573, 0, x_1455); +x_1574 = l_Lean_Elab_Term_toParserDescrAux___main___closed__132; +x_1575 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1575, 0, x_1574); +lean_ctor_set(x_1575, 1, x_1573); +x_1576 = l_Lean_Elab_Term_mkConst___closed__4; +x_1577 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1577, 0, x_1575); +lean_ctor_set(x_1577, 1, x_1576); +x_1578 = l_Lean_Elab_Term_throwError___rarg(x_1572, x_1577, x_4, x_1461); +lean_dec(x_1572); +x_1579 = !lean_is_exclusive(x_1578); +if (x_1579 == 0) +{ +return x_1578; +} +else +{ +lean_object* x_1580; lean_object* x_1581; lean_object* x_1582; +x_1580 = lean_ctor_get(x_1578, 0); +x_1581 = lean_ctor_get(x_1578, 1); +lean_inc(x_1581); +lean_inc(x_1580); +lean_dec(x_1578); +x_1582 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1582, 0, x_1580); +lean_ctor_set(x_1582, 1, x_1581); +return x_1582; +} +} +else +{ +lean_object* x_1583; lean_object* x_1584; lean_object* x_1585; +x_1583 = lean_box(0); +x_1584 = lean_box(x_3); +x_1585 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1585, 0, x_1583); +lean_ctor_set(x_1585, 1, x_1584); +x_1462 = x_1585; +x_1463 = x_1461; +goto block_1569; +} +block_1569: +{ +lean_object* x_1464; lean_object* x_1465; lean_object* x_1466; uint8_t x_1532; +x_1464 = lean_ctor_get(x_1462, 1); +lean_inc(x_1464); +if (lean_is_exclusive(x_1462)) { + lean_ctor_release(x_1462, 0); + lean_ctor_release(x_1462, 1); + x_1465 = x_1462; +} else { + lean_dec_ref(x_1462); + x_1465 = lean_box(0); +} +x_1532 = lean_ctor_get_uint8(x_2, sizeof(void*)*1); +if (x_1532 == 0) +{ +lean_dec(x_1457); +lean_dec(x_2); +lean_dec(x_1); +if (lean_obj_tag(x_1458) == 0) +{ +x_1466 = x_1453; +goto block_1531; +} +else +{ +lean_object* x_1533; +x_1533 = lean_ctor_get(x_1458, 0); +lean_inc(x_1533); +lean_dec(x_1458); +x_1466 = x_1533; +goto block_1531; +} +} +else +{ +lean_object* x_1534; uint8_t x_1535; uint8_t x_1536; +x_1534 = lean_ctor_get(x_2, 0); +lean_inc(x_1534); +x_1535 = lean_ctor_get_uint8(x_2, sizeof(void*)*1 + 1); +lean_dec(x_2); +x_1536 = lean_name_eq(x_1455, x_1534); +lean_dec(x_1534); +if (x_1536 == 0) +{ +lean_dec(x_1457); +lean_dec(x_1); +if (lean_obj_tag(x_1458) == 0) +{ +x_1466 = x_1453; +goto block_1531; +} +else +{ +lean_object* x_1537; +x_1537 = lean_ctor_get(x_1458, 0); +lean_inc(x_1537); +lean_dec(x_1458); +x_1466 = x_1537; +goto block_1531; +} +} +else +{ +lean_dec(x_1465); +lean_dec(x_1464); +if (lean_obj_tag(x_1458) == 0) +{ +lean_dec(x_1457); +if (x_1535 == 0) +{ +lean_object* x_1538; lean_object* x_1539; lean_object* x_1540; lean_object* x_1541; lean_object* x_1542; lean_object* x_1543; lean_object* x_1544; lean_object* x_1545; uint8_t x_1546; +x_1538 = lean_unsigned_to_nat(3u); +x_1539 = l_Lean_Syntax_getArg(x_1, x_1538); +lean_dec(x_1); +x_1540 = lean_alloc_ctor(4, 1, 0); +lean_ctor_set(x_1540, 0, x_1455); +x_1541 = l_Lean_Elab_Term_toParserDescrAux___main___closed__123; +x_1542 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1542, 0, x_1541); +lean_ctor_set(x_1542, 1, x_1540); +x_1543 = l_Lean_Elab_Term_toParserDescrAux___main___closed__126; +x_1544 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_1544, 0, x_1542); +lean_ctor_set(x_1544, 1, x_1543); +x_1545 = l_Lean_Elab_Term_throwError___rarg(x_1539, x_1544, x_4, x_1463); +lean_dec(x_1539); +x_1546 = !lean_is_exclusive(x_1545); +if (x_1546 == 0) +{ +return x_1545; +} +else +{ +lean_object* x_1547; lean_object* x_1548; lean_object* x_1549; +x_1547 = lean_ctor_get(x_1545, 0); +x_1548 = lean_ctor_get(x_1545, 1); +lean_inc(x_1548); +lean_inc(x_1547); +lean_dec(x_1545); +x_1549 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1549, 0, x_1547); +lean_ctor_set(x_1549, 1, x_1548); +return x_1549; +} +} +else +{ +lean_object* x_1550; lean_object* x_1551; lean_object* x_1552; uint8_t x_1553; +lean_dec(x_1455); +lean_dec(x_1); +x_1550 = l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg(x_1463); +x_1551 = lean_ctor_get(x_1550, 0); +lean_inc(x_1551); +x_1552 = lean_ctor_get(x_1550, 1); +lean_inc(x_1552); +lean_dec(x_1550); +x_1553 = !lean_is_exclusive(x_1551); +if (x_1553 == 0) +{ +lean_object* x_1554; lean_object* x_1555; lean_object* x_1556; lean_object* x_1557; +x_1554 = lean_ctor_get(x_1551, 0); +lean_dec(x_1554); +x_1555 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1552); +lean_dec(x_4); +x_1556 = lean_ctor_get(x_1555, 0); +lean_inc(x_1556); +x_1557 = lean_ctor_get(x_1555, 1); +lean_inc(x_1557); +lean_dec(x_1555); +lean_ctor_set(x_1551, 0, x_1556); +x_11 = x_1551; +x_12 = x_1557; +goto block_44; +} +else +{ +lean_object* x_1558; lean_object* x_1559; lean_object* x_1560; lean_object* x_1561; lean_object* x_1562; +x_1558 = lean_ctor_get(x_1551, 1); +lean_inc(x_1558); +lean_dec(x_1551); +x_1559 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1552); +lean_dec(x_4); +x_1560 = lean_ctor_get(x_1559, 0); +lean_inc(x_1560); +x_1561 = lean_ctor_get(x_1559, 1); +lean_inc(x_1561); +lean_dec(x_1559); +x_1562 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1562, 0, x_1560); +lean_ctor_set(x_1562, 1, x_1558); +x_11 = x_1562; +x_12 = x_1561; +goto block_44; +} +} +} +else +{ +lean_object* x_1563; lean_object* x_1564; uint8_t x_1565; +lean_dec(x_1458); +lean_dec(x_1455); +lean_dec(x_1); +x_1563 = l_Lean_Elab_Term_toParserDescrAux___main___closed__129; +x_1564 = l_Lean_Elab_Term_throwError___rarg(x_1457, x_1563, x_4, x_1463); +lean_dec(x_1457); +x_1565 = !lean_is_exclusive(x_1564); +if (x_1565 == 0) +{ +return x_1564; +} +else +{ +lean_object* x_1566; lean_object* x_1567; lean_object* x_1568; +x_1566 = lean_ctor_get(x_1564, 0); +x_1567 = lean_ctor_get(x_1564, 1); +lean_inc(x_1567); +lean_inc(x_1566); +lean_dec(x_1564); +x_1568 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1568, 0, x_1566); +lean_ctor_set(x_1568, 1, x_1567); +return x_1568; +} +} +} +} +block_1531: +{ +lean_object* x_1467; uint8_t x_1468; +x_1467 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1463); +lean_dec(x_4); +x_1468 = !lean_is_exclusive(x_1467); +if (x_1468 == 0) +{ +lean_object* x_1469; lean_object* x_1470; lean_object* x_1471; lean_object* x_1472; lean_object* x_1473; lean_object* x_1474; lean_object* x_1475; lean_object* x_1476; lean_object* x_1477; lean_object* x_1478; lean_object* x_1479; lean_object* x_1480; lean_object* x_1481; lean_object* x_1482; lean_object* x_1483; lean_object* x_1484; lean_object* x_1485; lean_object* x_1486; lean_object* x_1487; lean_object* x_1488; lean_object* x_1489; lean_object* x_1490; lean_object* x_1491; lean_object* x_1492; lean_object* x_1493; lean_object* x_1494; lean_object* x_1495; lean_object* x_1496; lean_object* x_1497; lean_object* x_1498; +x_1469 = lean_ctor_get(x_1467, 0); +x_1470 = lean_box(0); +x_1471 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117; +x_1472 = lean_name_mk_numeral(x_1471, x_1469); +x_1473 = l_Lean_Elab_Term_toParserDescrAux___main___closed__116; +x_1474 = l_Lean_Elab_Term_toParserDescrAux___main___closed__120; +x_1475 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1475, 0, x_1470); +lean_ctor_set(x_1475, 1, x_1473); +lean_ctor_set(x_1475, 2, x_1472); +lean_ctor_set(x_1475, 3, x_1474); +x_1476 = l_Array_empty___closed__1; +x_1477 = lean_array_push(x_1476, x_1475); +x_1478 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1479 = lean_array_push(x_1477, x_1478); +x_1480 = l_Lean_mkTermIdFromIdent___closed__2; +x_1481 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1481, 0, x_1480); +lean_ctor_set(x_1481, 1, x_1479); +x_1482 = lean_array_push(x_1476, x_1481); +x_1483 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_1455); +x_1484 = lean_array_push(x_1476, x_1483); +x_1485 = l_Nat_repr(x_1466); +x_1486 = l_Lean_numLitKind; +x_1487 = l_Lean_mkStxLit(x_1486, x_1485, x_1470); +x_1488 = l_Lean_mkOptionalNode___closed__2; +x_1489 = lean_array_push(x_1488, x_1487); +x_1490 = l_Lean_Parser_Term_num___elambda__1___closed__1; +x_1491 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1491, 0, x_1490); +lean_ctor_set(x_1491, 1, x_1489); +x_1492 = lean_array_push(x_1484, x_1491); +x_1493 = l_Lean_nullKind___closed__2; +x_1494 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1494, 0, x_1493); +lean_ctor_set(x_1494, 1, x_1492); +x_1495 = lean_array_push(x_1482, x_1494); +x_1496 = l_Lean_mkAppStx___closed__8; +x_1497 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1497, 0, x_1496); +lean_ctor_set(x_1497, 1, x_1495); +if (lean_is_scalar(x_1465)) { + x_1498 = lean_alloc_ctor(0, 2, 0); +} else { + x_1498 = x_1465; +} +lean_ctor_set(x_1498, 0, x_1497); +lean_ctor_set(x_1498, 1, x_1464); +lean_ctor_set(x_1467, 0, x_1498); +return x_1467; +} +else +{ +lean_object* x_1499; lean_object* x_1500; lean_object* x_1501; lean_object* x_1502; lean_object* x_1503; lean_object* x_1504; lean_object* x_1505; lean_object* x_1506; lean_object* x_1507; lean_object* x_1508; lean_object* x_1509; lean_object* x_1510; lean_object* x_1511; lean_object* x_1512; lean_object* x_1513; lean_object* x_1514; lean_object* x_1515; lean_object* x_1516; lean_object* x_1517; lean_object* x_1518; lean_object* x_1519; lean_object* x_1520; lean_object* x_1521; lean_object* x_1522; lean_object* x_1523; lean_object* x_1524; lean_object* x_1525; lean_object* x_1526; lean_object* x_1527; lean_object* x_1528; lean_object* x_1529; lean_object* x_1530; +x_1499 = lean_ctor_get(x_1467, 0); +x_1500 = lean_ctor_get(x_1467, 1); +lean_inc(x_1500); +lean_inc(x_1499); +lean_dec(x_1467); +x_1501 = lean_box(0); +x_1502 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117; +x_1503 = lean_name_mk_numeral(x_1502, x_1499); +x_1504 = l_Lean_Elab_Term_toParserDescrAux___main___closed__116; +x_1505 = l_Lean_Elab_Term_toParserDescrAux___main___closed__120; +x_1506 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_1506, 0, x_1501); +lean_ctor_set(x_1506, 1, x_1504); +lean_ctor_set(x_1506, 2, x_1503); +lean_ctor_set(x_1506, 3, x_1505); +x_1507 = l_Array_empty___closed__1; +x_1508 = lean_array_push(x_1507, x_1506); +x_1509 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_1510 = lean_array_push(x_1508, x_1509); +x_1511 = l_Lean_mkTermIdFromIdent___closed__2; +x_1512 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1512, 0, x_1511); +lean_ctor_set(x_1512, 1, x_1510); +x_1513 = lean_array_push(x_1507, x_1512); +x_1514 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_1455); +x_1515 = lean_array_push(x_1507, x_1514); +x_1516 = l_Nat_repr(x_1466); +x_1517 = l_Lean_numLitKind; +x_1518 = l_Lean_mkStxLit(x_1517, x_1516, x_1501); +x_1519 = l_Lean_mkOptionalNode___closed__2; +x_1520 = lean_array_push(x_1519, x_1518); +x_1521 = l_Lean_Parser_Term_num___elambda__1___closed__1; +x_1522 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1522, 0, x_1521); +lean_ctor_set(x_1522, 1, x_1520); +x_1523 = lean_array_push(x_1515, x_1522); +x_1524 = l_Lean_nullKind___closed__2; +x_1525 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1525, 0, x_1524); +lean_ctor_set(x_1525, 1, x_1523); +x_1526 = lean_array_push(x_1513, x_1525); +x_1527 = l_Lean_mkAppStx___closed__8; +x_1528 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1528, 0, x_1527); +lean_ctor_set(x_1528, 1, x_1526); +if (lean_is_scalar(x_1465)) { + x_1529 = lean_alloc_ctor(0, 2, 0); +} else { + x_1529 = x_1465; +} +lean_ctor_set(x_1529, 0, x_1528); +lean_ctor_set(x_1529, 1, x_1464); +x_1530 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1530, 0, x_1529); +lean_ctor_set(x_1530, 1, x_1500); +return x_1530; +} +} +} +} +} +else +{ +lean_object* x_1586; lean_object* x_1587; +lean_dec(x_6); +x_1586 = lean_unsigned_to_nat(1u); +x_1587 = l_Lean_Syntax_getArg(x_1, x_1586); +lean_dec(x_1); +x_1 = x_1587; goto _start; } -block_123: +block_44: { -lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_94; lean_object* x_95; -x_13 = lean_ctor_get(x_11, 0); -lean_inc(x_13); -x_14 = lean_ctor_get(x_11, 1); -lean_inc(x_14); +uint8_t x_13; +x_13 = !lean_is_exclusive(x_11); +if (x_13 == 0) +{ +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; +x_14 = lean_ctor_get(x_11, 0); +x_15 = lean_box(0); +x_16 = l_Lean_Elab_Term_toParserDescrAux___main___closed__5; +x_17 = lean_name_mk_numeral(x_16, x_14); +x_18 = l_Lean_Elab_Term_toParserDescrAux___main___closed__3; +x_19 = l_Lean_Elab_Term_toParserDescrAux___main___closed__8; +x_20 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_20, 0, x_15); +lean_ctor_set(x_20, 1, x_18); +lean_ctor_set(x_20, 2, x_17); +lean_ctor_set(x_20, 3, x_19); +x_21 = l_Array_empty___closed__1; +x_22 = lean_array_push(x_21, x_20); +x_23 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_24 = lean_array_push(x_22, x_23); +x_25 = l_Lean_mkTermIdFromIdent___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); +lean_ctor_set(x_11, 0, x_26); +x_27 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_27, 0, x_11); +lean_ctor_set(x_27, 1, x_12); +return x_27; +} +else +{ +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; +x_28 = lean_ctor_get(x_11, 0); +x_29 = lean_ctor_get(x_11, 1); +lean_inc(x_29); +lean_inc(x_28); lean_dec(x_11); -x_94 = lean_unsigned_to_nat(2u); -x_95 = l_Lean_Syntax_getArg(x_1, x_94); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_96; -x_96 = !lean_is_exclusive(x_2); -if (x_96 == 0) -{ -uint8_t x_97; lean_object* x_98; -lean_ctor_set_tag(x_2, 1); -x_97 = lean_unbox(x_14); -lean_dec(x_14); -lean_inc(x_4); -x_98 = l_Lean_Elab_Term_toParserDescrAux___main(x_95, x_2, x_97, x_4, x_12); -if (lean_obj_tag(x_98) == 0) -{ -lean_object* x_99; lean_object* x_100; -x_99 = lean_ctor_get(x_98, 0); -lean_inc(x_99); -x_100 = lean_ctor_get(x_98, 1); -lean_inc(x_100); -lean_dec(x_98); -x_15 = x_99; -x_16 = x_100; -goto block_93; -} -else -{ -uint8_t x_101; -lean_dec(x_13); -lean_dec(x_4); -x_101 = !lean_is_exclusive(x_98); -if (x_101 == 0) -{ -return x_98; -} -else -{ -lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_102 = lean_ctor_get(x_98, 0); -x_103 = lean_ctor_get(x_98, 1); -lean_inc(x_103); -lean_inc(x_102); -lean_dec(x_98); -x_104 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_104, 0, x_102); -lean_ctor_set(x_104, 1, x_103); -return x_104; -} -} -} -else -{ -lean_object* x_105; lean_object* x_106; uint8_t x_107; lean_object* x_108; -x_105 = lean_ctor_get(x_2, 0); -lean_inc(x_105); -lean_dec(x_2); -x_106 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_106, 0, x_105); -x_107 = lean_unbox(x_14); -lean_dec(x_14); -lean_inc(x_4); -x_108 = l_Lean_Elab_Term_toParserDescrAux___main(x_95, x_106, x_107, x_4, x_12); -if (lean_obj_tag(x_108) == 0) -{ -lean_object* x_109; lean_object* x_110; -x_109 = lean_ctor_get(x_108, 0); -lean_inc(x_109); -x_110 = lean_ctor_get(x_108, 1); -lean_inc(x_110); -lean_dec(x_108); -x_15 = x_109; -x_16 = x_110; -goto block_93; -} -else -{ -lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; -lean_dec(x_13); -lean_dec(x_4); -x_111 = lean_ctor_get(x_108, 0); -lean_inc(x_111); -x_112 = lean_ctor_get(x_108, 1); -lean_inc(x_112); -if (lean_is_exclusive(x_108)) { - lean_ctor_release(x_108, 0); - lean_ctor_release(x_108, 1); - x_113 = x_108; -} else { - lean_dec_ref(x_108); - x_113 = lean_box(0); -} -if (lean_is_scalar(x_113)) { - x_114 = lean_alloc_ctor(1, 2, 0); -} else { - x_114 = x_113; -} -lean_ctor_set(x_114, 0, x_111); -lean_ctor_set(x_114, 1, x_112); -return x_114; -} -} -} -else -{ -uint8_t x_115; lean_object* x_116; -x_115 = lean_unbox(x_14); -lean_dec(x_14); -lean_inc(x_4); -x_116 = l_Lean_Elab_Term_toParserDescrAux___main(x_95, x_2, x_115, x_4, x_12); -if (lean_obj_tag(x_116) == 0) -{ -lean_object* x_117; lean_object* x_118; -x_117 = lean_ctor_get(x_116, 0); -lean_inc(x_117); -x_118 = lean_ctor_get(x_116, 1); -lean_inc(x_118); -lean_dec(x_116); -x_15 = x_117; -x_16 = x_118; -goto block_93; -} -else -{ -uint8_t x_119; -lean_dec(x_13); -lean_dec(x_4); -x_119 = !lean_is_exclusive(x_116); -if (x_119 == 0) -{ -return x_116; -} -else -{ -lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_120 = lean_ctor_get(x_116, 0); -x_121 = lean_ctor_get(x_116, 1); -lean_inc(x_121); -lean_inc(x_120); -lean_dec(x_116); -x_122 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_122, 0, x_120); -lean_ctor_set(x_122, 1, x_121); -return x_122; -} -} -} -block_93: -{ -uint8_t x_17; -x_17 = !lean_is_exclusive(x_15); -if (x_17 == 0) -{ -lean_object* x_18; lean_object* x_19; uint8_t x_20; -x_18 = lean_ctor_get(x_15, 0); -x_19 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_16); -lean_dec(x_4); -x_20 = !lean_is_exclusive(x_19); -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; -x_21 = lean_ctor_get(x_19, 0); -x_22 = lean_box(0); -x_23 = l_Lean_Elab_Term_toParserDescrAux___main___closed__4; -x_24 = lean_name_mk_numeral(x_23, x_21); -x_25 = l_Lean_Elab_Term_toParserDescrAux___main___closed__3; -x_26 = l_Lean_Elab_Term_toParserDescrAux___main___closed__7; -x_27 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_27, 0, x_22); -lean_ctor_set(x_27, 1, x_25); -lean_ctor_set(x_27, 2, x_24); -lean_ctor_set(x_27, 3, x_26); -x_28 = l_Array_empty___closed__1; -x_29 = lean_array_push(x_28, x_27); -x_30 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_31 = lean_array_push(x_29, x_30); -x_32 = l_Lean_mkTermIdFromIdent___closed__2; -x_33 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_33, 0, x_32); -lean_ctor_set(x_33, 1, x_31); -x_34 = lean_array_push(x_28, x_33); -x_35 = lean_array_push(x_28, x_13); -x_36 = lean_array_push(x_35, x_18); -x_37 = l_Lean_nullKind___closed__2; -x_38 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_38, 0, x_37); -lean_ctor_set(x_38, 1, x_36); -x_39 = lean_array_push(x_34, x_38); -x_40 = l_Lean_mkAppStx___closed__8; +x_30 = lean_box(0); +x_31 = l_Lean_Elab_Term_toParserDescrAux___main___closed__5; +x_32 = lean_name_mk_numeral(x_31, x_28); +x_33 = l_Lean_Elab_Term_toParserDescrAux___main___closed__3; +x_34 = l_Lean_Elab_Term_toParserDescrAux___main___closed__8; +x_35 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_35, 0, x_30); +lean_ctor_set(x_35, 1, x_33); +lean_ctor_set(x_35, 2, x_32); +lean_ctor_set(x_35, 3, x_34); +x_36 = l_Array_empty___closed__1; +x_37 = lean_array_push(x_36, x_35); +x_38 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_39 = lean_array_push(x_37, x_38); +x_40 = l_Lean_mkTermIdFromIdent___closed__2; x_41 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_41, 0, x_40); lean_ctor_set(x_41, 1, x_39); -lean_ctor_set(x_15, 0, x_41); -lean_ctor_set(x_19, 0, x_15); -return x_19; -} -else -{ -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_42 = lean_ctor_get(x_19, 0); -x_43 = lean_ctor_get(x_19, 1); -lean_inc(x_43); -lean_inc(x_42); -lean_dec(x_19); -x_44 = lean_box(0); -x_45 = l_Lean_Elab_Term_toParserDescrAux___main___closed__4; -x_46 = lean_name_mk_numeral(x_45, x_42); -x_47 = l_Lean_Elab_Term_toParserDescrAux___main___closed__3; -x_48 = l_Lean_Elab_Term_toParserDescrAux___main___closed__7; -x_49 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_49, 0, x_44); -lean_ctor_set(x_49, 1, x_47); -lean_ctor_set(x_49, 2, x_46); -lean_ctor_set(x_49, 3, x_48); -x_50 = l_Array_empty___closed__1; -x_51 = lean_array_push(x_50, x_49); -x_52 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_53 = lean_array_push(x_51, x_52); -x_54 = l_Lean_mkTermIdFromIdent___closed__2; -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_50, x_55); -x_57 = lean_array_push(x_50, x_13); -x_58 = lean_array_push(x_57, x_18); -x_59 = l_Lean_nullKind___closed__2; -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_56, 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); -lean_ctor_set(x_15, 0, x_63); -x_64 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_64, 0, x_15); -lean_ctor_set(x_64, 1, x_43); -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_15, 0); -x_66 = lean_ctor_get(x_15, 1); -lean_inc(x_66); -lean_inc(x_65); -lean_dec(x_15); -x_67 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_16); -lean_dec(x_4); -x_68 = lean_ctor_get(x_67, 0); -lean_inc(x_68); -x_69 = lean_ctor_get(x_67, 1); -lean_inc(x_69); -if (lean_is_exclusive(x_67)) { - lean_ctor_release(x_67, 0); - lean_ctor_release(x_67, 1); - x_70 = x_67; -} else { - lean_dec_ref(x_67); - x_70 = lean_box(0); -} -x_71 = lean_box(0); -x_72 = l_Lean_Elab_Term_toParserDescrAux___main___closed__4; -x_73 = lean_name_mk_numeral(x_72, x_68); -x_74 = l_Lean_Elab_Term_toParserDescrAux___main___closed__3; -x_75 = l_Lean_Elab_Term_toParserDescrAux___main___closed__7; -x_76 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_76, 0, x_71); -lean_ctor_set(x_76, 1, x_74); -lean_ctor_set(x_76, 2, x_73); -lean_ctor_set(x_76, 3, x_75); -x_77 = l_Array_empty___closed__1; -x_78 = lean_array_push(x_77, x_76); -x_79 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_80 = lean_array_push(x_78, x_79); -x_81 = l_Lean_mkTermIdFromIdent___closed__2; -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_77, x_82); -x_84 = lean_array_push(x_77, x_13); -x_85 = lean_array_push(x_84, x_65); -x_86 = l_Lean_nullKind___closed__2; -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_array_push(x_83, x_87); -x_89 = l_Lean_mkAppStx___closed__8; -x_90 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_90, 0, x_89); -lean_ctor_set(x_90, 1, x_88); -x_91 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_91, 0, x_90); -lean_ctor_set(x_91, 1, x_66); -if (lean_is_scalar(x_70)) { - x_92 = lean_alloc_ctor(0, 2, 0); -} else { - x_92 = x_70; -} -lean_ctor_set(x_92, 0, x_91); -lean_ctor_set(x_92, 1, x_69); -return x_92; -} -} -} -block_199: -{ -uint8_t x_126; -x_126 = !lean_is_exclusive(x_124); -if (x_126 == 0) -{ -lean_object* x_127; lean_object* x_128; uint8_t x_129; -x_127 = lean_ctor_get(x_124, 0); -x_128 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_125); -lean_dec(x_4); -x_129 = !lean_is_exclusive(x_128); -if (x_129 == 0) -{ -lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; -x_130 = lean_ctor_get(x_128, 0); -x_131 = lean_box(0); -x_132 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; -x_133 = lean_name_mk_numeral(x_132, x_130); -x_134 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; -x_135 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; -x_136 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_136, 0, x_131); -lean_ctor_set(x_136, 1, x_134); -lean_ctor_set(x_136, 2, x_133); -lean_ctor_set(x_136, 3, x_135); -x_137 = l_Array_empty___closed__1; -x_138 = lean_array_push(x_137, x_136); -x_139 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_140 = lean_array_push(x_138, x_139); -x_141 = l_Lean_mkTermIdFromIdent___closed__2; -x_142 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_142, 0, x_141); -lean_ctor_set(x_142, 1, x_140); -x_143 = lean_array_push(x_137, x_142); -x_144 = lean_array_push(x_137, x_127); -x_145 = l_Lean_nullKind___closed__2; -x_146 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_146, 0, x_145); -lean_ctor_set(x_146, 1, x_144); -x_147 = lean_array_push(x_143, x_146); -x_148 = l_Lean_mkAppStx___closed__8; -x_149 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_149, 0, x_148); -lean_ctor_set(x_149, 1, x_147); -lean_ctor_set(x_124, 0, x_149); -lean_ctor_set(x_128, 0, x_124); -return x_128; -} -else -{ -lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; -x_150 = lean_ctor_get(x_128, 0); -x_151 = lean_ctor_get(x_128, 1); -lean_inc(x_151); -lean_inc(x_150); -lean_dec(x_128); -x_152 = lean_box(0); -x_153 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; -x_154 = lean_name_mk_numeral(x_153, x_150); -x_155 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; -x_156 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; -x_157 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_157, 0, x_152); -lean_ctor_set(x_157, 1, x_155); -lean_ctor_set(x_157, 2, x_154); -lean_ctor_set(x_157, 3, x_156); -x_158 = l_Array_empty___closed__1; -x_159 = lean_array_push(x_158, x_157); -x_160 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_161 = lean_array_push(x_159, x_160); -x_162 = l_Lean_mkTermIdFromIdent___closed__2; -x_163 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_163, 0, x_162); -lean_ctor_set(x_163, 1, x_161); -x_164 = lean_array_push(x_158, x_163); -x_165 = lean_array_push(x_158, x_127); -x_166 = l_Lean_nullKind___closed__2; -x_167 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_167, 0, x_166); -lean_ctor_set(x_167, 1, x_165); -x_168 = lean_array_push(x_164, x_167); -x_169 = l_Lean_mkAppStx___closed__8; -x_170 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_170, 0, x_169); -lean_ctor_set(x_170, 1, x_168); -lean_ctor_set(x_124, 0, x_170); -x_171 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_171, 0, x_124); -lean_ctor_set(x_171, 1, x_151); -return x_171; -} -} -else -{ -lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; -x_172 = lean_ctor_get(x_124, 0); -x_173 = lean_ctor_get(x_124, 1); -lean_inc(x_173); -lean_inc(x_172); -lean_dec(x_124); -x_174 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_125); -lean_dec(x_4); -x_175 = lean_ctor_get(x_174, 0); -lean_inc(x_175); -x_176 = lean_ctor_get(x_174, 1); -lean_inc(x_176); -if (lean_is_exclusive(x_174)) { - lean_ctor_release(x_174, 0); - lean_ctor_release(x_174, 1); - x_177 = x_174; -} else { - lean_dec_ref(x_174); - x_177 = lean_box(0); -} -x_178 = lean_box(0); -x_179 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; -x_180 = lean_name_mk_numeral(x_179, x_175); -x_181 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; -x_182 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; -x_183 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_183, 0, x_178); -lean_ctor_set(x_183, 1, x_181); -lean_ctor_set(x_183, 2, x_180); -lean_ctor_set(x_183, 3, x_182); -x_184 = l_Array_empty___closed__1; -x_185 = lean_array_push(x_184, x_183); -x_186 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_187 = lean_array_push(x_185, x_186); -x_188 = l_Lean_mkTermIdFromIdent___closed__2; -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_188); -lean_ctor_set(x_189, 1, x_187); -x_190 = lean_array_push(x_184, x_189); -x_191 = lean_array_push(x_184, x_172); -x_192 = l_Lean_nullKind___closed__2; -x_193 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_193, 0, x_192); -lean_ctor_set(x_193, 1, x_191); -x_194 = lean_array_push(x_190, x_193); -x_195 = l_Lean_mkAppStx___closed__8; -x_196 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_196, 0, x_195); -lean_ctor_set(x_196, 1, x_194); -x_197 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_197, 0, x_196); -lean_ctor_set(x_197, 1, x_173); -if (lean_is_scalar(x_177)) { - x_198 = lean_alloc_ctor(0, 2, 0); -} else { - x_198 = x_177; -} -lean_ctor_set(x_198, 0, x_197); -lean_ctor_set(x_198, 1, x_176); -return x_198; -} -} -block_275: -{ -uint8_t x_202; -x_202 = !lean_is_exclusive(x_200); -if (x_202 == 0) -{ -lean_object* x_203; lean_object* x_204; uint8_t x_205; -x_203 = lean_ctor_get(x_200, 0); -x_204 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_201); -lean_dec(x_4); -x_205 = !lean_is_exclusive(x_204); -if (x_205 == 0) -{ -lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; -x_206 = lean_ctor_get(x_204, 0); -x_207 = lean_box(0); -x_208 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; -x_209 = lean_name_mk_numeral(x_208, x_206); -x_210 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; -x_211 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; -x_212 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_212, 0, x_207); -lean_ctor_set(x_212, 1, x_210); -lean_ctor_set(x_212, 2, x_209); -lean_ctor_set(x_212, 3, x_211); -x_213 = l_Array_empty___closed__1; -x_214 = lean_array_push(x_213, x_212); -x_215 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_216 = lean_array_push(x_214, x_215); -x_217 = l_Lean_mkTermIdFromIdent___closed__2; -x_218 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_218, 0, x_217); -lean_ctor_set(x_218, 1, x_216); -x_219 = lean_array_push(x_213, x_218); -x_220 = lean_array_push(x_213, x_203); -x_221 = l_Lean_nullKind___closed__2; -x_222 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_222, 0, x_221); -lean_ctor_set(x_222, 1, x_220); -x_223 = lean_array_push(x_219, x_222); -x_224 = l_Lean_mkAppStx___closed__8; -x_225 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_225, 0, x_224); -lean_ctor_set(x_225, 1, x_223); -lean_ctor_set(x_200, 0, x_225); -lean_ctor_set(x_204, 0, x_200); -return x_204; -} -else -{ -lean_object* x_226; lean_object* x_227; lean_object* x_228; lean_object* x_229; lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; -x_226 = lean_ctor_get(x_204, 0); -x_227 = lean_ctor_get(x_204, 1); -lean_inc(x_227); -lean_inc(x_226); -lean_dec(x_204); -x_228 = lean_box(0); -x_229 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; -x_230 = lean_name_mk_numeral(x_229, x_226); -x_231 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; -x_232 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; -x_233 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_233, 0, x_228); -lean_ctor_set(x_233, 1, x_231); -lean_ctor_set(x_233, 2, x_230); -lean_ctor_set(x_233, 3, x_232); -x_234 = l_Array_empty___closed__1; -x_235 = lean_array_push(x_234, x_233); -x_236 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_237 = lean_array_push(x_235, x_236); -x_238 = l_Lean_mkTermIdFromIdent___closed__2; -x_239 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_239, 0, x_238); -lean_ctor_set(x_239, 1, x_237); -x_240 = lean_array_push(x_234, x_239); -x_241 = lean_array_push(x_234, x_203); -x_242 = l_Lean_nullKind___closed__2; -x_243 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_243, 0, x_242); -lean_ctor_set(x_243, 1, x_241); -x_244 = lean_array_push(x_240, x_243); -x_245 = l_Lean_mkAppStx___closed__8; -x_246 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_246, 0, x_245); -lean_ctor_set(x_246, 1, x_244); -lean_ctor_set(x_200, 0, x_246); -x_247 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_247, 0, x_200); -lean_ctor_set(x_247, 1, x_227); -return x_247; -} -} -else -{ -lean_object* x_248; lean_object* x_249; lean_object* x_250; lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; lean_object* x_264; lean_object* x_265; lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; -x_248 = lean_ctor_get(x_200, 0); -x_249 = lean_ctor_get(x_200, 1); -lean_inc(x_249); -lean_inc(x_248); -lean_dec(x_200); -x_250 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_201); -lean_dec(x_4); -x_251 = lean_ctor_get(x_250, 0); -lean_inc(x_251); -x_252 = lean_ctor_get(x_250, 1); -lean_inc(x_252); -if (lean_is_exclusive(x_250)) { - lean_ctor_release(x_250, 0); - lean_ctor_release(x_250, 1); - x_253 = x_250; -} else { - lean_dec_ref(x_250); - x_253 = lean_box(0); -} -x_254 = lean_box(0); -x_255 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; -x_256 = lean_name_mk_numeral(x_255, x_251); -x_257 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; -x_258 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; -x_259 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_259, 0, x_254); -lean_ctor_set(x_259, 1, x_257); -lean_ctor_set(x_259, 2, x_256); -lean_ctor_set(x_259, 3, x_258); -x_260 = l_Array_empty___closed__1; -x_261 = lean_array_push(x_260, x_259); -x_262 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_263 = lean_array_push(x_261, x_262); -x_264 = l_Lean_mkTermIdFromIdent___closed__2; -x_265 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_265, 0, x_264); -lean_ctor_set(x_265, 1, x_263); -x_266 = lean_array_push(x_260, x_265); -x_267 = lean_array_push(x_260, x_248); -x_268 = l_Lean_nullKind___closed__2; -x_269 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_269, 0, x_268); -lean_ctor_set(x_269, 1, x_267); -x_270 = lean_array_push(x_266, x_269); -x_271 = l_Lean_mkAppStx___closed__8; -x_272 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_272, 0, x_271); -lean_ctor_set(x_272, 1, x_270); -x_273 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_273, 0, x_272); -lean_ctor_set(x_273, 1, x_249); -if (lean_is_scalar(x_253)) { - x_274 = lean_alloc_ctor(0, 2, 0); -} else { - x_274 = x_253; -} -lean_ctor_set(x_274, 0, x_273); -lean_ctor_set(x_274, 1, x_252); -return x_274; -} -} -block_388: -{ -lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_359; lean_object* x_360; -x_278 = lean_ctor_get(x_276, 0); -lean_inc(x_278); -x_279 = lean_ctor_get(x_276, 1); -lean_inc(x_279); -lean_dec(x_276); -x_359 = lean_unsigned_to_nat(2u); -x_360 = l_Lean_Syntax_getArg(x_1, x_359); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_361; -x_361 = !lean_is_exclusive(x_2); -if (x_361 == 0) -{ -uint8_t x_362; lean_object* x_363; -lean_ctor_set_tag(x_2, 1); -x_362 = lean_unbox(x_279); -lean_dec(x_279); -lean_inc(x_4); -x_363 = l_Lean_Elab_Term_toParserDescrAux___main(x_360, x_2, x_362, x_4, x_277); -if (lean_obj_tag(x_363) == 0) -{ -lean_object* x_364; lean_object* x_365; -x_364 = lean_ctor_get(x_363, 0); -lean_inc(x_364); -x_365 = lean_ctor_get(x_363, 1); -lean_inc(x_365); -lean_dec(x_363); -x_280 = x_364; -x_281 = x_365; -goto block_358; -} -else -{ -uint8_t x_366; -lean_dec(x_278); -lean_dec(x_4); -x_366 = !lean_is_exclusive(x_363); -if (x_366 == 0) -{ -return x_363; -} -else -{ -lean_object* x_367; lean_object* x_368; lean_object* x_369; -x_367 = lean_ctor_get(x_363, 0); -x_368 = lean_ctor_get(x_363, 1); -lean_inc(x_368); -lean_inc(x_367); -lean_dec(x_363); -x_369 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_369, 0, x_367); -lean_ctor_set(x_369, 1, x_368); -return x_369; +x_42 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_42, 0, x_41); +lean_ctor_set(x_42, 1, x_29); +x_43 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_43, 0, x_42); +lean_ctor_set(x_43, 1, x_12); +return x_43; } } } else { -lean_object* x_370; lean_object* x_371; uint8_t x_372; lean_object* x_373; -x_370 = lean_ctor_get(x_2, 0); -lean_inc(x_370); -lean_dec(x_2); -x_371 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_371, 0, x_370); -x_372 = lean_unbox(x_279); -lean_dec(x_279); -lean_inc(x_4); -x_373 = l_Lean_Elab_Term_toParserDescrAux___main(x_360, x_371, x_372, x_4, x_277); -if (lean_obj_tag(x_373) == 0) -{ -lean_object* x_374; lean_object* x_375; -x_374 = lean_ctor_get(x_373, 0); -lean_inc(x_374); -x_375 = lean_ctor_get(x_373, 1); -lean_inc(x_375); -lean_dec(x_373); -x_280 = x_374; -x_281 = x_375; -goto block_358; -} -else -{ -lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; -lean_dec(x_278); -lean_dec(x_4); -x_376 = lean_ctor_get(x_373, 0); -lean_inc(x_376); -x_377 = lean_ctor_get(x_373, 1); -lean_inc(x_377); -if (lean_is_exclusive(x_373)) { - lean_ctor_release(x_373, 0); - lean_ctor_release(x_373, 1); - x_378 = x_373; -} else { - lean_dec_ref(x_373); - x_378 = lean_box(0); -} -if (lean_is_scalar(x_378)) { - x_379 = lean_alloc_ctor(1, 2, 0); -} else { - x_379 = x_378; -} -lean_ctor_set(x_379, 0, x_376); -lean_ctor_set(x_379, 1, x_377); -return x_379; -} -} -} -else -{ -uint8_t x_380; lean_object* x_381; -x_380 = lean_unbox(x_279); -lean_dec(x_279); -lean_inc(x_4); -x_381 = l_Lean_Elab_Term_toParserDescrAux___main(x_360, x_2, x_380, x_4, x_277); -if (lean_obj_tag(x_381) == 0) -{ -lean_object* x_382; lean_object* x_383; -x_382 = lean_ctor_get(x_381, 0); -lean_inc(x_382); -x_383 = lean_ctor_get(x_381, 1); -lean_inc(x_383); -lean_dec(x_381); -x_280 = x_382; -x_281 = x_383; -goto block_358; -} -else -{ -uint8_t x_384; -lean_dec(x_278); -lean_dec(x_4); -x_384 = !lean_is_exclusive(x_381); -if (x_384 == 0) -{ -return x_381; -} -else -{ -lean_object* x_385; lean_object* x_386; lean_object* x_387; -x_385 = lean_ctor_get(x_381, 0); -x_386 = lean_ctor_get(x_381, 1); -lean_inc(x_386); -lean_inc(x_385); -lean_dec(x_381); -x_387 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_387, 0, x_385); -lean_ctor_set(x_387, 1, x_386); -return x_387; -} -} -} -block_358: -{ -uint8_t x_282; -x_282 = !lean_is_exclusive(x_280); -if (x_282 == 0) -{ -lean_object* x_283; lean_object* x_284; uint8_t x_285; -x_283 = lean_ctor_get(x_280, 0); -x_284 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_281); -lean_dec(x_4); -x_285 = !lean_is_exclusive(x_284); -if (x_285 == 0) -{ -lean_object* x_286; 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_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; -x_286 = lean_ctor_get(x_284, 0); -x_287 = lean_box(0); -x_288 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; -x_289 = lean_name_mk_numeral(x_288, x_286); -x_290 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; -x_291 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; -x_292 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_292, 0, x_287); -lean_ctor_set(x_292, 1, x_290); -lean_ctor_set(x_292, 2, x_289); -lean_ctor_set(x_292, 3, x_291); -x_293 = l_Array_empty___closed__1; -x_294 = lean_array_push(x_293, x_292); -x_295 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_296 = lean_array_push(x_294, x_295); -x_297 = l_Lean_mkTermIdFromIdent___closed__2; -x_298 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_298, 0, x_297); -lean_ctor_set(x_298, 1, x_296); -x_299 = lean_array_push(x_293, x_298); -x_300 = lean_array_push(x_293, x_278); -x_301 = lean_array_push(x_300, x_283); -x_302 = l_Lean_nullKind___closed__2; -x_303 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_303, 0, x_302); -lean_ctor_set(x_303, 1, x_301); -x_304 = lean_array_push(x_299, x_303); -x_305 = l_Lean_mkAppStx___closed__8; -x_306 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_306, 0, x_305); -lean_ctor_set(x_306, 1, x_304); -lean_ctor_set(x_280, 0, x_306); -lean_ctor_set(x_284, 0, x_280); -return x_284; -} -else -{ -lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; -x_307 = lean_ctor_get(x_284, 0); -x_308 = lean_ctor_get(x_284, 1); -lean_inc(x_308); -lean_inc(x_307); -lean_dec(x_284); -x_309 = lean_box(0); -x_310 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; -x_311 = lean_name_mk_numeral(x_310, x_307); -x_312 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; -x_313 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; -x_314 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_314, 0, x_309); -lean_ctor_set(x_314, 1, x_312); -lean_ctor_set(x_314, 2, x_311); -lean_ctor_set(x_314, 3, x_313); -x_315 = l_Array_empty___closed__1; -x_316 = lean_array_push(x_315, x_314); -x_317 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_318 = lean_array_push(x_316, x_317); -x_319 = l_Lean_mkTermIdFromIdent___closed__2; -x_320 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_320, 0, x_319); -lean_ctor_set(x_320, 1, x_318); -x_321 = lean_array_push(x_315, x_320); -x_322 = lean_array_push(x_315, x_278); -x_323 = lean_array_push(x_322, x_283); -x_324 = l_Lean_nullKind___closed__2; -x_325 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_325, 0, x_324); -lean_ctor_set(x_325, 1, x_323); -x_326 = lean_array_push(x_321, x_325); -x_327 = l_Lean_mkAppStx___closed__8; -x_328 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_328, 0, x_327); -lean_ctor_set(x_328, 1, x_326); -lean_ctor_set(x_280, 0, x_328); -x_329 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_329, 0, x_280); -lean_ctor_set(x_329, 1, x_308); -return x_329; -} -} -else -{ -lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; -x_330 = lean_ctor_get(x_280, 0); -x_331 = lean_ctor_get(x_280, 1); -lean_inc(x_331); -lean_inc(x_330); -lean_dec(x_280); -x_332 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_281); -lean_dec(x_4); -x_333 = lean_ctor_get(x_332, 0); -lean_inc(x_333); -x_334 = lean_ctor_get(x_332, 1); -lean_inc(x_334); -if (lean_is_exclusive(x_332)) { - lean_ctor_release(x_332, 0); - lean_ctor_release(x_332, 1); - x_335 = x_332; -} else { - lean_dec_ref(x_332); - x_335 = lean_box(0); -} -x_336 = lean_box(0); -x_337 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; -x_338 = lean_name_mk_numeral(x_337, x_333); -x_339 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; -x_340 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; -x_341 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_341, 0, x_336); -lean_ctor_set(x_341, 1, x_339); -lean_ctor_set(x_341, 2, x_338); -lean_ctor_set(x_341, 3, x_340); -x_342 = l_Array_empty___closed__1; -x_343 = lean_array_push(x_342, x_341); -x_344 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_345 = lean_array_push(x_343, x_344); -x_346 = l_Lean_mkTermIdFromIdent___closed__2; -x_347 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_347, 0, x_346); -lean_ctor_set(x_347, 1, x_345); -x_348 = lean_array_push(x_342, x_347); -x_349 = lean_array_push(x_342, x_278); -x_350 = lean_array_push(x_349, x_330); -x_351 = l_Lean_nullKind___closed__2; -x_352 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_352, 0, x_351); -lean_ctor_set(x_352, 1, x_350); -x_353 = lean_array_push(x_348, x_352); -x_354 = l_Lean_mkAppStx___closed__8; -x_355 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_355, 0, x_354); -lean_ctor_set(x_355, 1, x_353); -x_356 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_356, 0, x_355); -lean_ctor_set(x_356, 1, x_331); -if (lean_is_scalar(x_335)) { - x_357 = lean_alloc_ctor(0, 2, 0); -} else { - x_357 = x_335; -} -lean_ctor_set(x_357, 0, x_356); -lean_ctor_set(x_357, 1, x_334); -return x_357; -} -} -} -block_501: -{ -lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_472; lean_object* x_473; -x_391 = lean_ctor_get(x_389, 0); -lean_inc(x_391); -x_392 = lean_ctor_get(x_389, 1); -lean_inc(x_392); -lean_dec(x_389); -x_472 = lean_unsigned_to_nat(2u); -x_473 = l_Lean_Syntax_getArg(x_1, x_472); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 2) -{ -uint8_t x_474; -x_474 = !lean_is_exclusive(x_2); -if (x_474 == 0) -{ -uint8_t x_475; lean_object* x_476; -lean_ctor_set_tag(x_2, 1); -x_475 = lean_unbox(x_392); -lean_dec(x_392); -lean_inc(x_4); -x_476 = l_Lean_Elab_Term_toParserDescrAux___main(x_473, x_2, x_475, x_4, x_390); -if (lean_obj_tag(x_476) == 0) -{ -lean_object* x_477; lean_object* x_478; -x_477 = lean_ctor_get(x_476, 0); -lean_inc(x_477); -x_478 = lean_ctor_get(x_476, 1); -lean_inc(x_478); -lean_dec(x_476); -x_393 = x_477; -x_394 = x_478; -goto block_471; -} -else -{ -uint8_t x_479; -lean_dec(x_391); -lean_dec(x_4); -x_479 = !lean_is_exclusive(x_476); -if (x_479 == 0) -{ -return x_476; -} -else -{ -lean_object* x_480; lean_object* x_481; lean_object* x_482; -x_480 = lean_ctor_get(x_476, 0); -x_481 = lean_ctor_get(x_476, 1); -lean_inc(x_481); -lean_inc(x_480); -lean_dec(x_476); -x_482 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_482, 0, x_480); -lean_ctor_set(x_482, 1, x_481); -return x_482; -} -} -} -else -{ -lean_object* x_483; lean_object* x_484; uint8_t x_485; lean_object* x_486; -x_483 = lean_ctor_get(x_2, 0); -lean_inc(x_483); -lean_dec(x_2); -x_484 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_484, 0, x_483); -x_485 = lean_unbox(x_392); -lean_dec(x_392); -lean_inc(x_4); -x_486 = l_Lean_Elab_Term_toParserDescrAux___main(x_473, x_484, x_485, x_4, x_390); -if (lean_obj_tag(x_486) == 0) -{ -lean_object* x_487; lean_object* x_488; -x_487 = lean_ctor_get(x_486, 0); -lean_inc(x_487); -x_488 = lean_ctor_get(x_486, 1); -lean_inc(x_488); -lean_dec(x_486); -x_393 = x_487; -x_394 = x_488; -goto block_471; -} -else -{ -lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; -lean_dec(x_391); -lean_dec(x_4); -x_489 = lean_ctor_get(x_486, 0); -lean_inc(x_489); -x_490 = lean_ctor_get(x_486, 1); -lean_inc(x_490); -if (lean_is_exclusive(x_486)) { - lean_ctor_release(x_486, 0); - lean_ctor_release(x_486, 1); - x_491 = x_486; -} else { - lean_dec_ref(x_486); - x_491 = lean_box(0); -} -if (lean_is_scalar(x_491)) { - x_492 = lean_alloc_ctor(1, 2, 0); -} else { - x_492 = x_491; -} -lean_ctor_set(x_492, 0, x_489); -lean_ctor_set(x_492, 1, x_490); -return x_492; -} -} -} -else -{ -uint8_t x_493; lean_object* x_494; -x_493 = lean_unbox(x_392); -lean_dec(x_392); -lean_inc(x_4); -x_494 = l_Lean_Elab_Term_toParserDescrAux___main(x_473, x_2, x_493, x_4, x_390); -if (lean_obj_tag(x_494) == 0) -{ -lean_object* x_495; lean_object* x_496; -x_495 = lean_ctor_get(x_494, 0); -lean_inc(x_495); -x_496 = lean_ctor_get(x_494, 1); -lean_inc(x_496); -lean_dec(x_494); -x_393 = x_495; -x_394 = x_496; -goto block_471; -} -else -{ -uint8_t x_497; -lean_dec(x_391); -lean_dec(x_4); -x_497 = !lean_is_exclusive(x_494); -if (x_497 == 0) -{ -return x_494; -} -else -{ -lean_object* x_498; lean_object* x_499; lean_object* x_500; -x_498 = lean_ctor_get(x_494, 0); -x_499 = lean_ctor_get(x_494, 1); -lean_inc(x_499); -lean_inc(x_498); -lean_dec(x_494); -x_500 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_500, 0, x_498); -lean_ctor_set(x_500, 1, x_499); -return x_500; -} -} -} -block_471: -{ -uint8_t x_395; -x_395 = !lean_is_exclusive(x_393); -if (x_395 == 0) -{ -lean_object* x_396; lean_object* x_397; uint8_t x_398; -x_396 = lean_ctor_get(x_393, 0); -x_397 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_394); -lean_dec(x_4); -x_398 = !lean_is_exclusive(x_397); -if (x_398 == 0) -{ -lean_object* x_399; lean_object* x_400; lean_object* x_401; lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; -x_399 = lean_ctor_get(x_397, 0); -x_400 = lean_box(0); -x_401 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; -x_402 = lean_name_mk_numeral(x_401, x_399); -x_403 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; -x_404 = l_Lean_Elab_Term_toParserDescrAux___main___closed__35; -x_405 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_405, 0, x_400); -lean_ctor_set(x_405, 1, x_403); -lean_ctor_set(x_405, 2, x_402); -lean_ctor_set(x_405, 3, x_404); -x_406 = l_Array_empty___closed__1; -x_407 = lean_array_push(x_406, x_405); -x_408 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_409 = lean_array_push(x_407, x_408); -x_410 = l_Lean_mkTermIdFromIdent___closed__2; -x_411 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_411, 0, x_410); -lean_ctor_set(x_411, 1, x_409); -x_412 = lean_array_push(x_406, x_411); -x_413 = lean_array_push(x_406, x_391); -x_414 = lean_array_push(x_413, x_396); -x_415 = l_Lean_nullKind___closed__2; -x_416 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_416, 0, x_415); -lean_ctor_set(x_416, 1, x_414); -x_417 = lean_array_push(x_412, x_416); -x_418 = l_Lean_mkAppStx___closed__8; -x_419 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_419, 0, x_418); -lean_ctor_set(x_419, 1, x_417); -lean_ctor_set(x_393, 0, x_419); -lean_ctor_set(x_397, 0, x_393); -return x_397; -} -else -{ -lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; lean_object* x_442; -x_420 = lean_ctor_get(x_397, 0); -x_421 = lean_ctor_get(x_397, 1); -lean_inc(x_421); -lean_inc(x_420); -lean_dec(x_397); -x_422 = lean_box(0); -x_423 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; -x_424 = lean_name_mk_numeral(x_423, x_420); -x_425 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; -x_426 = l_Lean_Elab_Term_toParserDescrAux___main___closed__35; -x_427 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_427, 0, x_422); -lean_ctor_set(x_427, 1, x_425); -lean_ctor_set(x_427, 2, x_424); -lean_ctor_set(x_427, 3, x_426); -x_428 = l_Array_empty___closed__1; -x_429 = lean_array_push(x_428, x_427); -x_430 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_431 = lean_array_push(x_429, x_430); -x_432 = l_Lean_mkTermIdFromIdent___closed__2; -x_433 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_433, 0, x_432); -lean_ctor_set(x_433, 1, x_431); -x_434 = lean_array_push(x_428, x_433); -x_435 = lean_array_push(x_428, x_391); -x_436 = lean_array_push(x_435, x_396); -x_437 = l_Lean_nullKind___closed__2; -x_438 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_438, 0, x_437); -lean_ctor_set(x_438, 1, x_436); -x_439 = lean_array_push(x_434, x_438); -x_440 = l_Lean_mkAppStx___closed__8; -x_441 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_441, 0, x_440); -lean_ctor_set(x_441, 1, x_439); -lean_ctor_set(x_393, 0, x_441); -x_442 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_442, 0, x_393); -lean_ctor_set(x_442, 1, x_421); -return x_442; -} -} -else -{ -lean_object* x_443; lean_object* x_444; lean_object* x_445; lean_object* x_446; lean_object* x_447; lean_object* x_448; lean_object* x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; lean_object* x_456; lean_object* x_457; lean_object* x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; lean_object* x_463; lean_object* x_464; lean_object* x_465; lean_object* x_466; lean_object* x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; -x_443 = lean_ctor_get(x_393, 0); -x_444 = lean_ctor_get(x_393, 1); -lean_inc(x_444); -lean_inc(x_443); -lean_dec(x_393); -x_445 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_394); -lean_dec(x_4); -x_446 = lean_ctor_get(x_445, 0); -lean_inc(x_446); -x_447 = lean_ctor_get(x_445, 1); -lean_inc(x_447); -if (lean_is_exclusive(x_445)) { - lean_ctor_release(x_445, 0); - lean_ctor_release(x_445, 1); - x_448 = x_445; -} else { - lean_dec_ref(x_445); - x_448 = lean_box(0); -} -x_449 = lean_box(0); -x_450 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; -x_451 = lean_name_mk_numeral(x_450, x_446); -x_452 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; -x_453 = l_Lean_Elab_Term_toParserDescrAux___main___closed__35; -x_454 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_454, 0, x_449); -lean_ctor_set(x_454, 1, x_452); -lean_ctor_set(x_454, 2, x_451); -lean_ctor_set(x_454, 3, x_453); -x_455 = l_Array_empty___closed__1; -x_456 = lean_array_push(x_455, x_454); -x_457 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_458 = lean_array_push(x_456, x_457); -x_459 = l_Lean_mkTermIdFromIdent___closed__2; -x_460 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_460, 0, x_459); -lean_ctor_set(x_460, 1, x_458); -x_461 = lean_array_push(x_455, x_460); -x_462 = lean_array_push(x_455, x_391); -x_463 = lean_array_push(x_462, x_443); -x_464 = l_Lean_nullKind___closed__2; -x_465 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_465, 0, x_464); -lean_ctor_set(x_465, 1, x_463); -x_466 = lean_array_push(x_461, x_465); -x_467 = l_Lean_mkAppStx___closed__8; -x_468 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_468, 0, x_467); -lean_ctor_set(x_468, 1, x_466); -x_469 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_469, 0, x_468); -lean_ctor_set(x_469, 1, x_444); -if (lean_is_scalar(x_448)) { - x_470 = lean_alloc_ctor(0, 2, 0); -} else { - x_470 = x_448; -} -lean_ctor_set(x_470, 0, x_469); -lean_ctor_set(x_470, 1, x_447); -return x_470; -} -} -} -block_577: -{ -uint8_t x_504; -x_504 = !lean_is_exclusive(x_502); -if (x_504 == 0) -{ -lean_object* x_505; lean_object* x_506; uint8_t x_507; -x_505 = lean_ctor_get(x_502, 0); -x_506 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_503); -lean_dec(x_4); -x_507 = !lean_is_exclusive(x_506); -if (x_507 == 0) -{ -lean_object* x_508; lean_object* x_509; lean_object* x_510; lean_object* x_511; lean_object* x_512; lean_object* x_513; lean_object* x_514; lean_object* x_515; lean_object* x_516; lean_object* x_517; lean_object* x_518; lean_object* x_519; lean_object* x_520; lean_object* x_521; lean_object* x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; -x_508 = lean_ctor_get(x_506, 0); -x_509 = lean_box(0); -x_510 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; -x_511 = lean_name_mk_numeral(x_510, x_508); -x_512 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; -x_513 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; -x_514 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_514, 0, x_509); -lean_ctor_set(x_514, 1, x_512); -lean_ctor_set(x_514, 2, x_511); -lean_ctor_set(x_514, 3, x_513); -x_515 = l_Array_empty___closed__1; -x_516 = lean_array_push(x_515, x_514); -x_517 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_518 = lean_array_push(x_516, x_517); -x_519 = l_Lean_mkTermIdFromIdent___closed__2; -x_520 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_520, 0, x_519); -lean_ctor_set(x_520, 1, x_518); -x_521 = lean_array_push(x_515, x_520); -x_522 = lean_array_push(x_515, x_505); -x_523 = l_Lean_nullKind___closed__2; -x_524 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_524, 0, x_523); -lean_ctor_set(x_524, 1, x_522); -x_525 = lean_array_push(x_521, x_524); -x_526 = l_Lean_mkAppStx___closed__8; -x_527 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_527, 0, x_526); -lean_ctor_set(x_527, 1, x_525); -lean_ctor_set(x_502, 0, x_527); -lean_ctor_set(x_506, 0, x_502); -return x_506; -} -else -{ -lean_object* x_528; lean_object* x_529; lean_object* x_530; lean_object* x_531; lean_object* x_532; lean_object* x_533; lean_object* x_534; lean_object* x_535; lean_object* x_536; lean_object* x_537; lean_object* x_538; lean_object* x_539; lean_object* x_540; lean_object* x_541; lean_object* x_542; lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; lean_object* x_547; lean_object* x_548; lean_object* x_549; -x_528 = lean_ctor_get(x_506, 0); -x_529 = lean_ctor_get(x_506, 1); -lean_inc(x_529); -lean_inc(x_528); -lean_dec(x_506); -x_530 = lean_box(0); -x_531 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; -x_532 = lean_name_mk_numeral(x_531, x_528); -x_533 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; -x_534 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; -x_535 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_535, 0, x_530); -lean_ctor_set(x_535, 1, x_533); -lean_ctor_set(x_535, 2, x_532); -lean_ctor_set(x_535, 3, x_534); -x_536 = l_Array_empty___closed__1; -x_537 = lean_array_push(x_536, x_535); -x_538 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_539 = lean_array_push(x_537, x_538); -x_540 = l_Lean_mkTermIdFromIdent___closed__2; -x_541 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_541, 0, x_540); -lean_ctor_set(x_541, 1, x_539); -x_542 = lean_array_push(x_536, x_541); -x_543 = lean_array_push(x_536, x_505); -x_544 = l_Lean_nullKind___closed__2; -x_545 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_545, 0, x_544); -lean_ctor_set(x_545, 1, x_543); -x_546 = lean_array_push(x_542, x_545); -x_547 = l_Lean_mkAppStx___closed__8; -x_548 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_548, 0, x_547); -lean_ctor_set(x_548, 1, x_546); -lean_ctor_set(x_502, 0, x_548); -x_549 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_549, 0, x_502); -lean_ctor_set(x_549, 1, x_529); -return x_549; -} -} -else -{ -lean_object* x_550; lean_object* x_551; lean_object* x_552; lean_object* x_553; lean_object* x_554; lean_object* x_555; lean_object* x_556; lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_object* x_563; lean_object* x_564; lean_object* x_565; lean_object* x_566; lean_object* x_567; lean_object* x_568; lean_object* x_569; lean_object* x_570; lean_object* x_571; lean_object* x_572; lean_object* x_573; lean_object* x_574; lean_object* x_575; lean_object* x_576; -x_550 = lean_ctor_get(x_502, 0); -x_551 = lean_ctor_get(x_502, 1); -lean_inc(x_551); -lean_inc(x_550); -lean_dec(x_502); -x_552 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_503); -lean_dec(x_4); -x_553 = lean_ctor_get(x_552, 0); -lean_inc(x_553); -x_554 = lean_ctor_get(x_552, 1); -lean_inc(x_554); -if (lean_is_exclusive(x_552)) { - lean_ctor_release(x_552, 0); - lean_ctor_release(x_552, 1); - x_555 = x_552; -} else { - lean_dec_ref(x_552); - x_555 = lean_box(0); -} -x_556 = lean_box(0); -x_557 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; -x_558 = lean_name_mk_numeral(x_557, x_553); -x_559 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; -x_560 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; -x_561 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_561, 0, x_556); -lean_ctor_set(x_561, 1, x_559); -lean_ctor_set(x_561, 2, x_558); -lean_ctor_set(x_561, 3, x_560); -x_562 = l_Array_empty___closed__1; -x_563 = lean_array_push(x_562, x_561); -x_564 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_565 = lean_array_push(x_563, x_564); -x_566 = l_Lean_mkTermIdFromIdent___closed__2; -x_567 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_567, 0, x_566); -lean_ctor_set(x_567, 1, x_565); -x_568 = lean_array_push(x_562, x_567); -x_569 = lean_array_push(x_562, x_550); -x_570 = l_Lean_nullKind___closed__2; -x_571 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_571, 0, x_570); -lean_ctor_set(x_571, 1, x_569); -x_572 = lean_array_push(x_568, x_571); -x_573 = l_Lean_mkAppStx___closed__8; -x_574 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_574, 0, x_573); -lean_ctor_set(x_574, 1, x_572); -x_575 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_575, 0, x_574); -lean_ctor_set(x_575, 1, x_551); -if (lean_is_scalar(x_555)) { - x_576 = lean_alloc_ctor(0, 2, 0); -} else { - x_576 = x_555; -} -lean_ctor_set(x_576, 0, x_575); -lean_ctor_set(x_576, 1, x_554); -return x_576; -} -} -block_653: -{ -uint8_t x_580; -x_580 = !lean_is_exclusive(x_578); -if (x_580 == 0) -{ -lean_object* x_581; lean_object* x_582; uint8_t x_583; -x_581 = lean_ctor_get(x_578, 0); -x_582 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_579); -lean_dec(x_4); -x_583 = !lean_is_exclusive(x_582); -if (x_583 == 0) -{ -lean_object* x_584; lean_object* x_585; lean_object* x_586; lean_object* x_587; lean_object* x_588; lean_object* x_589; lean_object* x_590; lean_object* x_591; lean_object* x_592; lean_object* x_593; lean_object* x_594; lean_object* x_595; lean_object* x_596; lean_object* x_597; lean_object* x_598; lean_object* x_599; lean_object* x_600; lean_object* x_601; lean_object* x_602; lean_object* x_603; -x_584 = lean_ctor_get(x_582, 0); -x_585 = lean_box(0); -x_586 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; -x_587 = lean_name_mk_numeral(x_586, x_584); -x_588 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; -x_589 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -x_590 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_590, 0, x_585); -lean_ctor_set(x_590, 1, x_588); -lean_ctor_set(x_590, 2, x_587); -lean_ctor_set(x_590, 3, x_589); -x_591 = l_Array_empty___closed__1; -x_592 = lean_array_push(x_591, x_590); -x_593 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_594 = lean_array_push(x_592, x_593); -x_595 = l_Lean_mkTermIdFromIdent___closed__2; -x_596 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_596, 0, x_595); -lean_ctor_set(x_596, 1, x_594); -x_597 = lean_array_push(x_591, x_596); -x_598 = lean_array_push(x_591, x_581); -x_599 = l_Lean_nullKind___closed__2; -x_600 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_600, 0, x_599); -lean_ctor_set(x_600, 1, x_598); -x_601 = lean_array_push(x_597, x_600); -x_602 = l_Lean_mkAppStx___closed__8; -x_603 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_603, 0, x_602); -lean_ctor_set(x_603, 1, x_601); -lean_ctor_set(x_578, 0, x_603); -lean_ctor_set(x_582, 0, x_578); -return x_582; -} -else -{ -lean_object* x_604; lean_object* x_605; lean_object* x_606; lean_object* x_607; lean_object* x_608; lean_object* x_609; lean_object* x_610; lean_object* x_611; lean_object* x_612; lean_object* x_613; lean_object* x_614; lean_object* x_615; lean_object* x_616; lean_object* x_617; lean_object* x_618; lean_object* x_619; lean_object* x_620; lean_object* x_621; lean_object* x_622; lean_object* x_623; lean_object* x_624; lean_object* x_625; -x_604 = lean_ctor_get(x_582, 0); -x_605 = lean_ctor_get(x_582, 1); -lean_inc(x_605); -lean_inc(x_604); -lean_dec(x_582); -x_606 = lean_box(0); -x_607 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; -x_608 = lean_name_mk_numeral(x_607, x_604); -x_609 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; -x_610 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -x_611 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_611, 0, x_606); -lean_ctor_set(x_611, 1, x_609); -lean_ctor_set(x_611, 2, x_608); -lean_ctor_set(x_611, 3, x_610); -x_612 = l_Array_empty___closed__1; -x_613 = lean_array_push(x_612, x_611); -x_614 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_615 = lean_array_push(x_613, x_614); -x_616 = l_Lean_mkTermIdFromIdent___closed__2; -x_617 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_617, 0, x_616); -lean_ctor_set(x_617, 1, x_615); -x_618 = lean_array_push(x_612, x_617); -x_619 = lean_array_push(x_612, x_581); -x_620 = l_Lean_nullKind___closed__2; -x_621 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_621, 0, x_620); -lean_ctor_set(x_621, 1, x_619); -x_622 = lean_array_push(x_618, x_621); -x_623 = l_Lean_mkAppStx___closed__8; -x_624 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_624, 0, x_623); -lean_ctor_set(x_624, 1, x_622); -lean_ctor_set(x_578, 0, x_624); -x_625 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_625, 0, x_578); -lean_ctor_set(x_625, 1, x_605); -return x_625; -} -} -else -{ -lean_object* x_626; lean_object* x_627; lean_object* x_628; lean_object* x_629; lean_object* x_630; lean_object* x_631; lean_object* x_632; lean_object* x_633; lean_object* x_634; lean_object* x_635; lean_object* x_636; lean_object* x_637; lean_object* x_638; lean_object* x_639; lean_object* x_640; lean_object* x_641; lean_object* x_642; lean_object* x_643; lean_object* x_644; lean_object* x_645; lean_object* x_646; lean_object* x_647; lean_object* x_648; lean_object* x_649; lean_object* x_650; lean_object* x_651; lean_object* x_652; -x_626 = lean_ctor_get(x_578, 0); -x_627 = lean_ctor_get(x_578, 1); -lean_inc(x_627); -lean_inc(x_626); -lean_dec(x_578); -x_628 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_579); -lean_dec(x_4); -x_629 = lean_ctor_get(x_628, 0); -lean_inc(x_629); -x_630 = lean_ctor_get(x_628, 1); -lean_inc(x_630); -if (lean_is_exclusive(x_628)) { - lean_ctor_release(x_628, 0); - lean_ctor_release(x_628, 1); - x_631 = x_628; -} else { - lean_dec_ref(x_628); - x_631 = lean_box(0); -} -x_632 = lean_box(0); -x_633 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; -x_634 = lean_name_mk_numeral(x_633, x_629); -x_635 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; -x_636 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -x_637 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_637, 0, x_632); -lean_ctor_set(x_637, 1, x_635); -lean_ctor_set(x_637, 2, x_634); -lean_ctor_set(x_637, 3, x_636); -x_638 = l_Array_empty___closed__1; -x_639 = lean_array_push(x_638, x_637); -x_640 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_641 = lean_array_push(x_639, x_640); -x_642 = l_Lean_mkTermIdFromIdent___closed__2; -x_643 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_643, 0, x_642); -lean_ctor_set(x_643, 1, x_641); -x_644 = lean_array_push(x_638, x_643); -x_645 = lean_array_push(x_638, x_626); -x_646 = l_Lean_nullKind___closed__2; -x_647 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_647, 0, x_646); -lean_ctor_set(x_647, 1, x_645); -x_648 = lean_array_push(x_644, x_647); -x_649 = l_Lean_mkAppStx___closed__8; -x_650 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_650, 0, x_649); -lean_ctor_set(x_650, 1, x_648); -x_651 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_651, 0, x_650); -lean_ctor_set(x_651, 1, x_627); -if (lean_is_scalar(x_631)) { - x_652 = lean_alloc_ctor(0, 2, 0); -} else { - x_652 = x_631; -} -lean_ctor_set(x_652, 0, x_651); -lean_ctor_set(x_652, 1, x_630); -return x_652; -} -} -block_729: -{ -uint8_t x_656; -x_656 = !lean_is_exclusive(x_654); -if (x_656 == 0) -{ -lean_object* x_657; lean_object* x_658; uint8_t x_659; -x_657 = lean_ctor_get(x_654, 0); -x_658 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_655); -lean_dec(x_4); -x_659 = !lean_is_exclusive(x_658); -if (x_659 == 0) -{ -lean_object* x_660; lean_object* x_661; lean_object* x_662; lean_object* x_663; lean_object* x_664; lean_object* x_665; lean_object* x_666; lean_object* x_667; lean_object* x_668; lean_object* x_669; lean_object* x_670; lean_object* x_671; lean_object* x_672; lean_object* x_673; lean_object* x_674; lean_object* x_675; lean_object* x_676; lean_object* x_677; lean_object* x_678; lean_object* x_679; -x_660 = lean_ctor_get(x_658, 0); -x_661 = lean_box(0); -x_662 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -x_663 = lean_name_mk_numeral(x_662, x_660); -x_664 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -x_665 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; -x_666 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_666, 0, x_661); -lean_ctor_set(x_666, 1, x_664); -lean_ctor_set(x_666, 2, x_663); -lean_ctor_set(x_666, 3, x_665); -x_667 = l_Array_empty___closed__1; -x_668 = lean_array_push(x_667, x_666); -x_669 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_670 = lean_array_push(x_668, x_669); -x_671 = l_Lean_mkTermIdFromIdent___closed__2; -x_672 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_672, 0, x_671); -lean_ctor_set(x_672, 1, x_670); -x_673 = lean_array_push(x_667, x_672); -x_674 = lean_array_push(x_667, x_657); -x_675 = l_Lean_nullKind___closed__2; -x_676 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_676, 0, x_675); -lean_ctor_set(x_676, 1, x_674); -x_677 = lean_array_push(x_673, x_676); -x_678 = l_Lean_mkAppStx___closed__8; -x_679 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_679, 0, x_678); -lean_ctor_set(x_679, 1, x_677); -lean_ctor_set(x_654, 0, x_679); -lean_ctor_set(x_658, 0, x_654); -return x_658; -} -else -{ -lean_object* x_680; lean_object* x_681; lean_object* x_682; lean_object* x_683; lean_object* x_684; lean_object* x_685; lean_object* x_686; lean_object* x_687; lean_object* x_688; lean_object* x_689; lean_object* x_690; lean_object* x_691; lean_object* x_692; lean_object* x_693; lean_object* x_694; lean_object* x_695; lean_object* x_696; lean_object* x_697; lean_object* x_698; lean_object* x_699; lean_object* x_700; lean_object* x_701; -x_680 = lean_ctor_get(x_658, 0); -x_681 = lean_ctor_get(x_658, 1); -lean_inc(x_681); -lean_inc(x_680); -lean_dec(x_658); -x_682 = lean_box(0); -x_683 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -x_684 = lean_name_mk_numeral(x_683, x_680); -x_685 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -x_686 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; -x_687 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_687, 0, x_682); -lean_ctor_set(x_687, 1, x_685); -lean_ctor_set(x_687, 2, x_684); -lean_ctor_set(x_687, 3, x_686); -x_688 = l_Array_empty___closed__1; -x_689 = lean_array_push(x_688, x_687); -x_690 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_691 = lean_array_push(x_689, x_690); -x_692 = l_Lean_mkTermIdFromIdent___closed__2; -x_693 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_693, 0, x_692); -lean_ctor_set(x_693, 1, x_691); -x_694 = lean_array_push(x_688, x_693); -x_695 = lean_array_push(x_688, x_657); -x_696 = l_Lean_nullKind___closed__2; -x_697 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_697, 0, x_696); -lean_ctor_set(x_697, 1, x_695); -x_698 = lean_array_push(x_694, x_697); -x_699 = l_Lean_mkAppStx___closed__8; -x_700 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_700, 0, x_699); -lean_ctor_set(x_700, 1, x_698); -lean_ctor_set(x_654, 0, x_700); -x_701 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_701, 0, x_654); -lean_ctor_set(x_701, 1, x_681); -return x_701; -} -} -else -{ -lean_object* x_702; lean_object* x_703; lean_object* x_704; lean_object* x_705; lean_object* x_706; lean_object* x_707; lean_object* x_708; lean_object* x_709; lean_object* x_710; lean_object* x_711; lean_object* x_712; lean_object* x_713; lean_object* x_714; lean_object* x_715; lean_object* x_716; lean_object* x_717; lean_object* x_718; lean_object* x_719; lean_object* x_720; lean_object* x_721; lean_object* x_722; lean_object* x_723; lean_object* x_724; lean_object* x_725; lean_object* x_726; lean_object* x_727; lean_object* x_728; -x_702 = lean_ctor_get(x_654, 0); -x_703 = lean_ctor_get(x_654, 1); -lean_inc(x_703); -lean_inc(x_702); -lean_dec(x_654); -x_704 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_655); -lean_dec(x_4); -x_705 = lean_ctor_get(x_704, 0); -lean_inc(x_705); -x_706 = lean_ctor_get(x_704, 1); -lean_inc(x_706); -if (lean_is_exclusive(x_704)) { - lean_ctor_release(x_704, 0); - lean_ctor_release(x_704, 1); - x_707 = x_704; -} else { - lean_dec_ref(x_704); - x_707 = lean_box(0); -} -x_708 = lean_box(0); -x_709 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -x_710 = lean_name_mk_numeral(x_709, x_705); -x_711 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -x_712 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; -x_713 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_713, 0, x_708); -lean_ctor_set(x_713, 1, x_711); -lean_ctor_set(x_713, 2, x_710); -lean_ctor_set(x_713, 3, x_712); -x_714 = l_Array_empty___closed__1; -x_715 = lean_array_push(x_714, x_713); -x_716 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_717 = lean_array_push(x_715, x_716); -x_718 = l_Lean_mkTermIdFromIdent___closed__2; -x_719 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_719, 0, x_718); -lean_ctor_set(x_719, 1, x_717); -x_720 = lean_array_push(x_714, x_719); -x_721 = lean_array_push(x_714, x_702); -x_722 = l_Lean_nullKind___closed__2; -x_723 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_723, 0, x_722); -lean_ctor_set(x_723, 1, x_721); -x_724 = lean_array_push(x_720, x_723); -x_725 = l_Lean_mkAppStx___closed__8; -x_726 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_726, 0, x_725); -lean_ctor_set(x_726, 1, x_724); -x_727 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_727, 0, x_726); -lean_ctor_set(x_727, 1, x_703); -if (lean_is_scalar(x_707)) { - x_728 = lean_alloc_ctor(0, 2, 0); -} else { - x_728 = x_707; -} -lean_ctor_set(x_728, 0, x_727); -lean_ctor_set(x_728, 1, x_706); -return x_728; -} -} -block_763: -{ -uint8_t x_732; -x_732 = !lean_is_exclusive(x_730); -if (x_732 == 0) -{ -lean_object* x_733; lean_object* x_734; lean_object* x_735; lean_object* x_736; lean_object* x_737; lean_object* x_738; lean_object* x_739; lean_object* x_740; lean_object* x_741; lean_object* x_742; lean_object* x_743; lean_object* x_744; lean_object* x_745; lean_object* x_746; -x_733 = lean_ctor_get(x_730, 0); -x_734 = lean_box(0); -x_735 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; -x_736 = lean_name_mk_numeral(x_735, x_733); -x_737 = l_Lean_Elab_Term_toParserDescrAux___main___closed__59; -x_738 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; -x_739 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_739, 0, x_734); -lean_ctor_set(x_739, 1, x_737); -lean_ctor_set(x_739, 2, x_736); -lean_ctor_set(x_739, 3, x_738); -x_740 = l_Array_empty___closed__1; -x_741 = lean_array_push(x_740, x_739); -x_742 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_743 = lean_array_push(x_741, x_742); -x_744 = l_Lean_mkTermIdFromIdent___closed__2; -x_745 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_745, 0, x_744); -lean_ctor_set(x_745, 1, x_743); -lean_ctor_set(x_730, 0, x_745); -x_746 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_746, 0, x_730); -lean_ctor_set(x_746, 1, x_731); -return x_746; -} -else -{ -lean_object* x_747; lean_object* x_748; lean_object* x_749; lean_object* x_750; lean_object* x_751; lean_object* x_752; lean_object* x_753; lean_object* x_754; lean_object* x_755; lean_object* x_756; lean_object* x_757; lean_object* x_758; lean_object* x_759; lean_object* x_760; lean_object* x_761; lean_object* x_762; -x_747 = lean_ctor_get(x_730, 0); -x_748 = lean_ctor_get(x_730, 1); -lean_inc(x_748); -lean_inc(x_747); -lean_dec(x_730); -x_749 = lean_box(0); -x_750 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; -x_751 = lean_name_mk_numeral(x_750, x_747); -x_752 = l_Lean_Elab_Term_toParserDescrAux___main___closed__59; -x_753 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; -x_754 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_754, 0, x_749); -lean_ctor_set(x_754, 1, x_752); -lean_ctor_set(x_754, 2, x_751); -lean_ctor_set(x_754, 3, x_753); -x_755 = l_Array_empty___closed__1; -x_756 = lean_array_push(x_755, x_754); -x_757 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_758 = lean_array_push(x_756, x_757); -x_759 = l_Lean_mkTermIdFromIdent___closed__2; -x_760 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_760, 0, x_759); -lean_ctor_set(x_760, 1, x_758); -x_761 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_761, 0, x_760); -lean_ctor_set(x_761, 1, x_748); -x_762 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_762, 0, x_761); -lean_ctor_set(x_762, 1, x_731); -return x_762; -} -} -} -else -{ -lean_object* x_1336; lean_object* x_1337; +lean_object* x_1589; lean_object* x_1590; lean_dec(x_6); -x_1336 = lean_unsigned_to_nat(0u); -x_1337 = l_Lean_Syntax_getArg(x_1, x_1336); +x_1589 = lean_unsigned_to_nat(0u); +x_1590 = l_Lean_Syntax_getArg(x_1, x_1589); lean_dec(x_1); -x_1 = x_1337; +x_1 = x_1590; goto _start; } } else { -lean_object* x_1339; lean_object* x_1340; lean_object* x_1341; +lean_object* x_1592; lean_object* x_1593; lean_object* x_1594; lean_dec(x_6); -x_1339 = l_Lean_Syntax_getArgs(x_1); +x_1592 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); -x_1340 = lean_unsigned_to_nat(0u); +x_1593 = lean_unsigned_to_nat(0u); lean_inc(x_4); -x_1341 = l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2(x_1340, x_1339, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_1341) == 0) +x_1594 = l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2(x_1593, x_1592, x_2, x_3, x_4, x_5); +lean_dec(x_2); +if (lean_obj_tag(x_1594) == 0) { -lean_object* x_1342; lean_object* x_1343; uint8_t x_1344; -x_1342 = lean_ctor_get(x_1341, 0); -lean_inc(x_1342); -x_1343 = lean_ctor_get(x_1341, 1); -lean_inc(x_1343); -lean_dec(x_1341); -x_1344 = !lean_is_exclusive(x_1342); -if (x_1344 == 0) +lean_object* x_1595; lean_object* x_1596; uint8_t x_1597; +x_1595 = lean_ctor_get(x_1594, 0); +lean_inc(x_1595); +x_1596 = lean_ctor_get(x_1594, 1); +lean_inc(x_1596); +lean_dec(x_1594); +x_1597 = !lean_is_exclusive(x_1595); +if (x_1597 == 0) { -lean_object* x_1345; lean_object* x_1346; lean_object* x_1347; -x_1345 = lean_ctor_get(x_1342, 0); -x_1346 = lean_ctor_get(x_1342, 1); -x_1347 = l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(x_1345, x_4, x_1343); +lean_object* x_1598; lean_object* x_1599; lean_object* x_1600; +x_1598 = lean_ctor_get(x_1595, 0); +x_1599 = lean_ctor_get(x_1595, 1); +x_1600 = l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(x_1598, x_4, x_1596); lean_dec(x_4); -lean_dec(x_1345); -if (lean_obj_tag(x_1347) == 0) +lean_dec(x_1598); +if (lean_obj_tag(x_1600) == 0) { -uint8_t x_1348; -x_1348 = !lean_is_exclusive(x_1347); -if (x_1348 == 0) +uint8_t x_1601; +x_1601 = !lean_is_exclusive(x_1600); +if (x_1601 == 0) { -lean_object* x_1349; -x_1349 = lean_ctor_get(x_1347, 0); -lean_ctor_set(x_1342, 0, x_1349); -lean_ctor_set(x_1347, 0, x_1342); -return x_1347; +lean_object* x_1602; +x_1602 = lean_ctor_get(x_1600, 0); +lean_ctor_set(x_1595, 0, x_1602); +lean_ctor_set(x_1600, 0, x_1595); +return x_1600; } else { -lean_object* x_1350; lean_object* x_1351; lean_object* x_1352; -x_1350 = lean_ctor_get(x_1347, 0); -x_1351 = lean_ctor_get(x_1347, 1); -lean_inc(x_1351); -lean_inc(x_1350); -lean_dec(x_1347); -lean_ctor_set(x_1342, 0, x_1350); -x_1352 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1352, 0, x_1342); -lean_ctor_set(x_1352, 1, x_1351); -return x_1352; +lean_object* x_1603; lean_object* x_1604; lean_object* x_1605; +x_1603 = lean_ctor_get(x_1600, 0); +x_1604 = lean_ctor_get(x_1600, 1); +lean_inc(x_1604); +lean_inc(x_1603); +lean_dec(x_1600); +lean_ctor_set(x_1595, 0, x_1603); +x_1605 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1605, 0, x_1595); +lean_ctor_set(x_1605, 1, x_1604); +return x_1605; } } else { -uint8_t x_1353; -lean_free_object(x_1342); -lean_dec(x_1346); -x_1353 = !lean_is_exclusive(x_1347); -if (x_1353 == 0) +uint8_t x_1606; +lean_free_object(x_1595); +lean_dec(x_1599); +x_1606 = !lean_is_exclusive(x_1600); +if (x_1606 == 0) { -return x_1347; +return x_1600; } else { -lean_object* x_1354; lean_object* x_1355; lean_object* x_1356; -x_1354 = lean_ctor_get(x_1347, 0); -x_1355 = lean_ctor_get(x_1347, 1); -lean_inc(x_1355); -lean_inc(x_1354); -lean_dec(x_1347); -x_1356 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1356, 0, x_1354); -lean_ctor_set(x_1356, 1, x_1355); -return x_1356; +lean_object* x_1607; lean_object* x_1608; lean_object* x_1609; +x_1607 = lean_ctor_get(x_1600, 0); +x_1608 = lean_ctor_get(x_1600, 1); +lean_inc(x_1608); +lean_inc(x_1607); +lean_dec(x_1600); +x_1609 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1609, 0, x_1607); +lean_ctor_set(x_1609, 1, x_1608); +return x_1609; } } } else { -lean_object* x_1357; lean_object* x_1358; lean_object* x_1359; -x_1357 = lean_ctor_get(x_1342, 0); -x_1358 = lean_ctor_get(x_1342, 1); -lean_inc(x_1358); -lean_inc(x_1357); -lean_dec(x_1342); -x_1359 = l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(x_1357, x_4, x_1343); +lean_object* x_1610; lean_object* x_1611; lean_object* x_1612; +x_1610 = lean_ctor_get(x_1595, 0); +x_1611 = lean_ctor_get(x_1595, 1); +lean_inc(x_1611); +lean_inc(x_1610); +lean_dec(x_1595); +x_1612 = l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(x_1610, x_4, x_1596); lean_dec(x_4); -lean_dec(x_1357); -if (lean_obj_tag(x_1359) == 0) +lean_dec(x_1610); +if (lean_obj_tag(x_1612) == 0) { -lean_object* x_1360; lean_object* x_1361; lean_object* x_1362; lean_object* x_1363; lean_object* x_1364; -x_1360 = lean_ctor_get(x_1359, 0); -lean_inc(x_1360); -x_1361 = lean_ctor_get(x_1359, 1); -lean_inc(x_1361); -if (lean_is_exclusive(x_1359)) { - lean_ctor_release(x_1359, 0); - lean_ctor_release(x_1359, 1); - x_1362 = x_1359; +lean_object* x_1613; lean_object* x_1614; lean_object* x_1615; lean_object* x_1616; lean_object* x_1617; +x_1613 = lean_ctor_get(x_1612, 0); +lean_inc(x_1613); +x_1614 = lean_ctor_get(x_1612, 1); +lean_inc(x_1614); +if (lean_is_exclusive(x_1612)) { + lean_ctor_release(x_1612, 0); + lean_ctor_release(x_1612, 1); + x_1615 = x_1612; } else { - lean_dec_ref(x_1359); - x_1362 = lean_box(0); + lean_dec_ref(x_1612); + x_1615 = lean_box(0); } -x_1363 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1363, 0, x_1360); -lean_ctor_set(x_1363, 1, x_1358); -if (lean_is_scalar(x_1362)) { - x_1364 = lean_alloc_ctor(0, 2, 0); +x_1616 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1616, 0, x_1613); +lean_ctor_set(x_1616, 1, x_1611); +if (lean_is_scalar(x_1615)) { + x_1617 = lean_alloc_ctor(0, 2, 0); } else { - x_1364 = x_1362; + x_1617 = x_1615; } -lean_ctor_set(x_1364, 0, x_1363); -lean_ctor_set(x_1364, 1, x_1361); -return x_1364; +lean_ctor_set(x_1617, 0, x_1616); +lean_ctor_set(x_1617, 1, x_1614); +return x_1617; } else { -lean_object* x_1365; lean_object* x_1366; lean_object* x_1367; lean_object* x_1368; -lean_dec(x_1358); -x_1365 = lean_ctor_get(x_1359, 0); -lean_inc(x_1365); -x_1366 = lean_ctor_get(x_1359, 1); -lean_inc(x_1366); -if (lean_is_exclusive(x_1359)) { - lean_ctor_release(x_1359, 0); - lean_ctor_release(x_1359, 1); - x_1367 = x_1359; +lean_object* x_1618; lean_object* x_1619; lean_object* x_1620; lean_object* x_1621; +lean_dec(x_1611); +x_1618 = lean_ctor_get(x_1612, 0); +lean_inc(x_1618); +x_1619 = lean_ctor_get(x_1612, 1); +lean_inc(x_1619); +if (lean_is_exclusive(x_1612)) { + lean_ctor_release(x_1612, 0); + lean_ctor_release(x_1612, 1); + x_1620 = x_1612; } else { - lean_dec_ref(x_1359); - x_1367 = lean_box(0); + lean_dec_ref(x_1612); + x_1620 = lean_box(0); } -if (lean_is_scalar(x_1367)) { - x_1368 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_1620)) { + x_1621 = lean_alloc_ctor(1, 2, 0); } else { - x_1368 = x_1367; + x_1621 = x_1620; } -lean_ctor_set(x_1368, 0, x_1365); -lean_ctor_set(x_1368, 1, x_1366); -return x_1368; +lean_ctor_set(x_1621, 0, x_1618); +lean_ctor_set(x_1621, 1, x_1619); +return x_1621; } } } else { -uint8_t x_1369; +uint8_t x_1622; lean_dec(x_4); -x_1369 = !lean_is_exclusive(x_1341); -if (x_1369 == 0) +x_1622 = !lean_is_exclusive(x_1594); +if (x_1622 == 0) { -return x_1341; +return x_1594; } else { -lean_object* x_1370; lean_object* x_1371; lean_object* x_1372; -x_1370 = lean_ctor_get(x_1341, 0); -x_1371 = lean_ctor_get(x_1341, 1); -lean_inc(x_1371); -lean_inc(x_1370); -lean_dec(x_1341); -x_1372 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1372, 0, x_1370); -lean_ctor_set(x_1372, 1, x_1371); -return x_1372; +lean_object* x_1623; lean_object* x_1624; lean_object* x_1625; +x_1623 = lean_ctor_get(x_1594, 0); +x_1624 = lean_ctor_get(x_1594, 1); +lean_inc(x_1624); +lean_inc(x_1623); +lean_dec(x_1594); +x_1625 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_1625, 0, x_1623); +lean_ctor_set(x_1625, 1, x_1624); +return x_1625; } } } @@ -6383,6 +6864,7 @@ uint8_t x_7; lean_object* x_8; x_7 = lean_unbox(x_4); lean_dec(x_4); x_8 = l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2(x_1, x_2, x_3, x_7, x_5, x_6); +lean_dec(x_3); return x_8; } } @@ -6417,12 +6899,24 @@ return x_7; lean_object* l_Lean_Elab_Term_toParserDescr(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; uint8_t x_6; lean_object* x_7; -x_5 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_5, 0, x_2); -x_6 = 0; -x_7 = l_Lean_Elab_Term_toParserDescrAux___main(x_1, x_5, x_6, x_3, x_4); -return x_7; +lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; uint8_t x_9; lean_object* x_10; uint8_t x_11; lean_object* x_12; +x_5 = l_Lean_Elab_Term_getEnv___rarg(x_4); +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +x_8 = l_Lean_Parser_leadingIdentAsSymbol(x_6, x_2); +lean_dec(x_6); +x_9 = 1; +x_10 = lean_alloc_ctor(0, 1, 3); +lean_ctor_set(x_10, 0, x_2); +lean_ctor_set_uint8(x_10, sizeof(void*)*1, x_9); +lean_ctor_set_uint8(x_10, sizeof(void*)*1 + 1, x_9); +lean_ctor_set_uint8(x_10, sizeof(void*)*1 + 2, x_8); +x_11 = 0; +x_12 = l_Lean_Elab_Term_toParserDescrAux___main(x_1, x_10, x_11, x_3, x_7); +return x_12; } } lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object* x_1, lean_object* x_2, lean_object* x_3) { @@ -6657,7 +7151,7 @@ return x_22; } } } -lean_object* l___private_Init_Lean_Elab_Syntax_7__elabKind(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Elab_Syntax_6__elabKind(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { uint8_t x_5; @@ -6747,11 +7241,11 @@ return x_24; } } } -lean_object* l___private_Init_Lean_Elab_Syntax_7__elabKind___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l___private_Init_Lean_Elab_Syntax_6__elabKind___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l___private_Init_Lean_Elab_Syntax_7__elabKind(x_1, x_2, x_3, x_4); +x_5 = l___private_Init_Lean_Elab_Syntax_6__elabKind(x_1, x_2, x_3, x_4); lean_dec(x_1); return x_5; } @@ -7092,7 +7586,7 @@ x_388 = l_Lean_Syntax_getArg(x_1, x_7); lean_dec(x_1); x_389 = lean_alloc_ctor(4, 1, 0); lean_ctor_set(x_389, 0, x_9); -x_390 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118; +x_390 = l_Lean_Elab_Term_toParserDescrAux___main___closed__132; x_391 = lean_alloc_ctor(9, 2, 0); lean_ctor_set(x_391, 0, x_390); lean_ctor_set(x_391, 1, x_389); @@ -7133,7 +7627,7 @@ x_11 = lean_unsigned_to_nat(1u); x_12 = l_Lean_Syntax_getArg(x_1, x_11); lean_inc(x_2); lean_inc(x_9); -x_13 = l___private_Init_Lean_Elab_Syntax_7__elabKind(x_12, x_9, x_2, x_10); +x_13 = l___private_Init_Lean_Elab_Syntax_6__elabKind(x_12, x_9, x_2, x_10); lean_dec(x_12); if (lean_obj_tag(x_13) == 0) { @@ -9741,7 +10235,7 @@ x_5 = l_Lean_Elab_Command_addBuiltinCommandElab(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -9764,7 +10258,7 @@ x_9 = lean_box(0); x_10 = x_9; x_11 = lean_array_fset(x_3, x_2, x_10); lean_inc(x_8); -x_12 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_1, x_8); +x_12 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_8); x_13 = lean_unsigned_to_nat(1u); x_14 = lean_nat_add(x_2, x_13); x_15 = x_12; @@ -9777,7 +10271,7 @@ goto _start; } } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -9800,7 +10294,7 @@ x_9 = lean_box(0); x_10 = x_9; x_11 = lean_array_fset(x_3, x_2, x_10); lean_inc(x_8); -x_12 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_1, x_8); +x_12 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_8); x_13 = lean_unsigned_to_nat(1u); x_14 = lean_nat_add(x_2, x_13); x_15 = x_12; @@ -9813,7 +10307,7 @@ goto _start; } } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -9836,7 +10330,7 @@ x_9 = lean_box(0); x_10 = x_9; x_11 = lean_array_fset(x_3, x_2, x_10); lean_inc(x_8); -x_12 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_1, x_8); +x_12 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_8); x_13 = lean_unsigned_to_nat(1u); x_14 = lean_nat_add(x_2, x_13); x_15 = x_12; @@ -9849,7 +10343,7 @@ goto _start; } } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -9892,7 +10386,7 @@ return x_14; } } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -9915,7 +10409,7 @@ x_9 = lean_box(0); x_10 = x_9; x_11 = lean_array_fset(x_3, x_2, x_10); lean_inc(x_8); -x_12 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_1, x_8); +x_12 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_8); x_13 = lean_unsigned_to_nat(1u); x_14 = lean_nat_add(x_2, x_13); x_15 = x_12; @@ -9928,7 +10422,7 @@ goto _start; } } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; uint8_t x_5; @@ -9971,7 +10465,7 @@ return x_14; } } } -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___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* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___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) { _start: { lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; @@ -9990,7 +10484,7 @@ lean_ctor_set(x_12, 1, x_6); return x_12; } } -lean_object* _init_l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__1() { +lean_object* _init_l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__1() { _start: { lean_object* x_1; lean_object* x_2; @@ -9999,17 +10493,17 @@ x_2 = l_Lean_mkAtom(x_1); return x_2; } } -lean_object* _init_l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2() { +lean_object* _init_l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = l_PersistentHashMap_mkCollisionNode___rarg___closed__1; -x_2 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__1; +x_2 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__1; x_3 = lean_array_push(x_1, x_2); return x_3; } } -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main(lean_object* x_1, lean_object* x_2) { _start: { uint8_t x_3; lean_object* x_69; uint8_t x_70; @@ -10050,7 +10544,7 @@ if (x_5 == 0) lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = lean_ctor_get(x_2, 1); x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1(x_1, x_7, x_6); +x_8 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1(x_1, x_7, x_6); lean_ctor_set(x_2, 1, x_8); return x_2; } @@ -10063,7 +10557,7 @@ lean_inc(x_10); lean_inc(x_9); lean_dec(x_2); x_11 = lean_unsigned_to_nat(0u); -x_12 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1(x_1, x_11, x_10); +x_12 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1(x_1, x_11, x_10); x_13 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_13, 0, x_9); lean_ctor_set(x_13, 1, x_12); @@ -10095,7 +10589,7 @@ if (x_19 == 0) { lean_object* x_20; lean_object* x_21; x_20 = lean_ctor_get(x_2, 1); -x_21 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2(x_1, x_14, x_20); +x_21 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_14, x_20); lean_ctor_set(x_2, 1, x_21); return x_2; } @@ -10107,7 +10601,7 @@ x_23 = lean_ctor_get(x_2, 1); lean_inc(x_23); lean_inc(x_22); lean_dec(x_2); -x_24 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2(x_1, x_14, x_23); +x_24 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_14, x_23); x_25 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_25, 0, x_22); lean_ctor_set(x_25, 1, x_24); @@ -10143,7 +10637,7 @@ if (x_46 == 0) { lean_object* x_47; lean_object* x_48; x_47 = lean_ctor_get(x_2, 1); -x_48 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3(x_1, x_14, x_47); +x_48 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_14, x_47); lean_ctor_set(x_2, 1, x_48); return x_2; } @@ -10155,7 +10649,7 @@ x_50 = lean_ctor_get(x_2, 1); lean_inc(x_50); lean_inc(x_49); lean_dec(x_2); -x_51 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3(x_1, x_14, x_50); +x_51 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_14, x_50); x_52 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_52, 0, x_49); lean_ctor_set(x_52, 1, x_51); @@ -10170,7 +10664,7 @@ return x_2; else { lean_object* x_53; -x_53 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__4(x_15, x_1, x_14); +x_53 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_15, x_1, x_14); if (lean_obj_tag(x_53) == 0) { lean_dec(x_15); @@ -10208,7 +10702,7 @@ if (x_59 == 0) { lean_object* x_60; lean_object* x_61; x_60 = lean_ctor_get(x_2, 1); -x_61 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5(x_1, x_14, x_60); +x_61 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_14, x_60); lean_ctor_set(x_2, 1, x_61); return x_2; } @@ -10220,7 +10714,7 @@ x_63 = lean_ctor_get(x_2, 1); lean_inc(x_63); lean_inc(x_62); lean_dec(x_2); -x_64 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5(x_1, x_14, x_63); +x_64 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_14, x_63); x_65 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_65, 0, x_62); lean_ctor_set(x_65, 1, x_64); @@ -10235,7 +10729,7 @@ return x_2; else { lean_object* x_66; -x_66 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__6(x_15, x_1, x_14); +x_66 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6(x_15, x_1, x_14); if (lean_obj_tag(x_66) == 0) { lean_dec(x_15); @@ -10258,7 +10752,7 @@ lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean lean_dec(x_28); x_29 = l_Lean_nullKind___closed__2; x_30 = l_Lean_mkTermIdFromIdent___closed__2; -x_31 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_8__antiquote___main___lambda__1___boxed), 6, 3); +x_31 = lean_alloc_closure((void*)(l___private_Init_Lean_Elab_Syntax_7__antiquote___main___lambda__1___boxed), 6, 3); lean_closure_set(x_31, 0, x_15); lean_closure_set(x_31, 1, x_29); lean_closure_set(x_31, 2, x_30); @@ -10267,7 +10761,7 @@ x_33 = lean_alloc_closure((void*)(l_ReaderT_bind___at___private_Init_Lean_Elab_Q lean_closure_set(x_33, 0, x_32); lean_closure_set(x_33, 1, x_31); x_34 = l_Lean_Unhygienic_run___rarg(x_33); -x_35 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2; +x_35 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; x_36 = lean_array_push(x_35, x_34); x_37 = l_Lean_mkOptionalNode___closed__1; x_38 = lean_array_push(x_36, x_37); @@ -10283,94 +10777,94 @@ return x_41; } } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__1(x_1, x_2, x_3); +x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__1(x_1, x_2, x_3); lean_dec(x_1); return x_4; } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__2(x_1, x_2, x_3); +x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(x_1, x_2, x_3); lean_dec(x_1); return x_4; } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__3(x_1, x_2, x_3); +x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__3(x_1, x_2, x_3); lean_dec(x_1); return x_4; } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__4(x_1, x_2, x_3); +x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__4(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); return x_4; } } -lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__5(x_1, x_2, x_3); +x_4 = l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__5(x_1, x_2, x_3); lean_dec(x_1); return x_4; } } -lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { lean_object* x_4; -x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__antiquote___main___spec__6(x_1, x_2, x_3); +x_4 = l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__6(x_1, x_2, x_3); lean_dec(x_2); lean_dec(x_1); return x_4; } } -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___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* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___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) { _start: { lean_object* x_7; -x_7 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___lambda__1(x_1, x_2, x_3, x_4, x_5, x_6); lean_dec(x_5); lean_dec(x_4); return x_7; } } -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___main___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___main___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_1, x_2); +x_3 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_1, x_2); +x_3 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_1, x_2); return x_3; } } -lean_object* l___private_Init_Lean_Elab_Syntax_8__antiquote___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l___private_Init_Lean_Elab_Syntax_7__antiquote___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l___private_Init_Lean_Elab_Syntax_8__antiquote(x_1, x_2); +x_3 = l___private_Init_Lean_Elab_Syntax_7__antiquote(x_1, x_2); lean_dec(x_1); return x_3; } @@ -10623,7 +11117,7 @@ x_19 = lean_unsigned_to_nat(0u); x_20 = l_Lean_Syntax_getArg(x_1, x_19); lean_dec(x_1); x_21 = l_Lean_mkTermIdFromIdent(x_20); -x_22 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2; +x_22 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; x_23 = lean_array_push(x_22, x_21); x_24 = l_Lean_mkOptionalNode___closed__1; x_25 = lean_array_push(x_23, x_24); @@ -11045,7 +11539,7 @@ x_22 = l___regBuiltinParser_Lean_Parser_Command_antiquot___closed__2; lean_inc(x_12); x_23 = l_Array_filterAux___main___at_Lean_Elab_Command_elabNotation___spec__2(x_22, x_12, x_17, x_17); x_24 = l_Array_umapMAux___main___at_Lean_Elab_Command_elabNotation___spec__3(x_17, x_23); -x_25 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main(x_24, x_11); +x_25 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main(x_24, x_11); lean_dec(x_24); x_26 = l_Array_umapMAux___main___at_Lean_Elab_Command_elabNotation___spec__4(x_17, x_12, x_2, x_20); if (lean_obj_tag(x_26) == 0) @@ -11745,7 +12239,7 @@ x_12 = lean_unsigned_to_nat(0u); x_13 = l_Lean_Syntax_getArg(x_1, x_12); lean_dec(x_1); x_14 = l_Lean_mkTermIdFromIdent(x_13); -x_15 = l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2; +x_15 = l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2; x_16 = lean_array_push(x_15, x_14); x_17 = l_Lean_mkOptionalNode___closed__1; x_18 = lean_array_push(x_16, x_17); @@ -12525,7 +13019,7 @@ x_5 = l_Lean_Elab_Command_addBuiltinCommandElab(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l___private_Init_Lean_Elab_Syntax_9__regTraceClasses(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Syntax_8__regTraceClasses(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; @@ -12612,8 +13106,8 @@ l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq__ lean_mark_persistent(l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__8); l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__9 = _init_l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__9(); lean_mark_persistent(l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__9); -l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg___closed__1 = _init_l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg___closed__1); +l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg___closed__1 = _init_l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_Syntax_3__markAsTrailingParser___rarg___closed__1); l_Lean_Elab_Term_toParserDescrAux___main___closed__1 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__1(); lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__1); l_Lean_Elab_Term_toParserDescrAux___main___closed__2 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__2(); @@ -12850,6 +13344,34 @@ l_Lean_Elab_Term_toParserDescrAux___main___closed__117 = _init_l_Lean_Elab_Term_ lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__117); l_Lean_Elab_Term_toParserDescrAux___main___closed__118 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__118(); lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__118); +l_Lean_Elab_Term_toParserDescrAux___main___closed__119 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__119(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__119); +l_Lean_Elab_Term_toParserDescrAux___main___closed__120 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__120(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__120); +l_Lean_Elab_Term_toParserDescrAux___main___closed__121 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__121(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__121); +l_Lean_Elab_Term_toParserDescrAux___main___closed__122 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__122(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__122); +l_Lean_Elab_Term_toParserDescrAux___main___closed__123 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__123(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__123); +l_Lean_Elab_Term_toParserDescrAux___main___closed__124 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__124(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__124); +l_Lean_Elab_Term_toParserDescrAux___main___closed__125 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__125(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__125); +l_Lean_Elab_Term_toParserDescrAux___main___closed__126 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__126(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__126); +l_Lean_Elab_Term_toParserDescrAux___main___closed__127 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__127(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__127); +l_Lean_Elab_Term_toParserDescrAux___main___closed__128 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__128(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__128); +l_Lean_Elab_Term_toParserDescrAux___main___closed__129 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__129(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__129); +l_Lean_Elab_Term_toParserDescrAux___main___closed__130 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__130(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__130); +l_Lean_Elab_Term_toParserDescrAux___main___closed__131 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__131(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__131); +l_Lean_Elab_Term_toParserDescrAux___main___closed__132 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__132(); +lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__132); l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1 = _init_l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1(); lean_mark_persistent(l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1); l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__2 = _init_l___regBuiltinCommandElab_Lean_Elab_Command_elabDeclareSyntaxCat___closed__2(); @@ -13009,10 +13531,10 @@ lean_mark_persistent(l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve___c res = l___regBuiltinCommandElab_Lean_Elab_Command_elabReserve(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__1 = _init_l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__1); -l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2 = _init_l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Elab_Syntax_8__antiquote___main___closed__2); +l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__1 = _init_l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__1); +l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2 = _init_l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Elab_Syntax_7__antiquote___main___closed__2); l_Lean_Elab_Command_elabNotation___lambda__1___closed__1 = _init_l_Lean_Elab_Command_elabNotation___lambda__1___closed__1(); lean_mark_persistent(l_Lean_Elab_Command_elabNotation___lambda__1___closed__1); l_Lean_Elab_Command_elabNotation___lambda__1___closed__2 = _init_l_Lean_Elab_Command_elabNotation___lambda__1___closed__2(); @@ -13049,7 +13571,7 @@ lean_mark_persistent(l___regBuiltinCommandElab_Lean_Elab_Command_elabMacro___clo res = l___regBuiltinCommandElab_Lean_Elab_Command_elabMacro(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -res = l___private_Init_Lean_Elab_Syntax_9__regTraceClasses(lean_io_mk_world()); +res = l___private_Init_Lean_Elab_Syntax_8__regTraceClasses(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); return lean_mk_io_result(lean_box(0)); diff --git a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c index 45994092d9..7f61ff5a16 100644 --- a/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c +++ b/stage0/stdlib/Init/Lean/Elab/Tactic/Basic.c @@ -58,6 +58,7 @@ lean_object* l_Lean_Elab_Tactic_focus(lean_object*); lean_object* l_Lean_Elab_Tactic_getLCtx___boxed(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__2; extern uint8_t l___private_Init_Lean_Elab_Term_4__isCDot___closed__1; +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalIntro___lambda__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftMetaM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalCase___closed__1; @@ -72,15 +73,16 @@ lean_object* l_Lean_Elab_Tactic_resettingSynthInstanceCacheWhen(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCase(lean_object*); lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__1; lean_object* lean_dbg_trace(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___boxed(lean_object*); lean_object* lean_io_mk_ref(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_restore(lean_object*, lean_object*); lean_object* l_Lean_Elab_ElabFnTable_insert___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_ReaderT_bind___at_Lean_Meta_isClassExpensive___main___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_append___rarg(lean_object*, lean_object*); lean_object* lean_io_ref_get(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTactic(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_goalsToMessageData___closed__1; +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___boxed(lean_object*); uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Parser_mkFreshKindAux___main___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_resettingSynthInstanceCacheWhen___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalIntro(lean_object*, lean_object*, lean_object*); @@ -116,10 +118,8 @@ lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__4; lean_object* l_Lean_Elab_Tactic_restore___boxed(lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlock___closed__1; extern lean_object* l_Lean_LocalContext_Inhabited___closed__1; -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses___closed__1; extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__2; lean_object* l_Lean_Elab_Term_trace___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_mkMessageAt___at_Lean_Elab_Tactic_evalTraceState___spec__4(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_tacticElabAttribute___closed__2; extern lean_object* l_Lean_AttributeImpl_inhabited___closed__2; @@ -127,7 +127,9 @@ lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_collectMVars___closed__1; lean_object* l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__1; +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_getMainGoal___closed__2; +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize(lean_object*); lean_object* l_Lean_Elab_Tactic_monadLog___closed__3; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__1; lean_object* l_Lean_Meta_intro(lean_object*, lean_object*, lean_object*, lean_object*); @@ -137,6 +139,7 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCase___closed__2; lean_object* l_Lean_Syntax_getTailWithInfo___main(lean_object*); lean_object* l_List_findM_x3f___main___at_Lean_Elab_Tactic_evalCase___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_isEqvAux___main___at_Lean_Elab_Tactic_withMVarContext___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(lean_object*); lean_object* l_Lean_Elab_getPos___at_Lean_Elab_Tactic_evalTraceState___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__7; extern lean_object* l_Lean_Meta_dbgTrace___rarg___closed__1; @@ -170,7 +173,7 @@ lean_object* l_Lean_Elab_Tactic_EStateM_Backtrackable; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalTraceState(lean_object*); lean_object* l_PersistentHashMap_contains___at_Lean_Elab_Tactic_addBuiltinTactic___spec__4___boxed(lean_object*, lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses___closed__1; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlock___closed__3; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_liftTermElabM(lean_object*); @@ -213,6 +216,7 @@ lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalTraceState___closed__3; lean_object* l_Lean_Elab_Tactic_getMainGoal(lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalCase___closed__3; extern lean_object* l_Lean_Parser_declareBuiltinParser___closed__7; +lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_monadLog___closed__8; extern lean_object* l_Lean_Parser_Tactic_skip___elambda__1___closed__2; extern lean_object* l_Lean_Options_empty; @@ -234,12 +238,12 @@ lean_object* l_Lean_Elab_Term_ensureHasType___boxed(lean_object*, lean_object*, lean_object* l_Lean_Elab_mkElabAttribute___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_save___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___closed__5; -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses(lean_object*); lean_object* l_mkHashMapImp___rarg(lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalIntro___closed__3; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalIntros___closed__3; lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__1; lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__6; +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses(lean_object*); lean_object* l_Lean_Elab_Term_reportUnsolvedGoals___closed__4; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalTraceState___closed__2; extern lean_object* l_Lean_PersistentEnvExtension_inhabited___rarg___closed__3; @@ -276,16 +280,16 @@ lean_object* l_Lean_Elab_goalsToMessageData(lean_object*); lean_object* l_Lean_Elab_Term_liftMetaM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_Lean_MetavarContext_isAnonymousMVar(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_registerBuiltinTacticAttr___lambda__1___closed__4; -lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalAssumption___lambda__1(lean_object*, lean_object*, lean_object*); +lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_declareBuiltinTactic___closed__4; extern lean_object* l_Lean_Elab_Exception_inhabited; lean_object* l_Lean_Elab_Tactic_liftTermElabM___rarg___closed__1; lean_object* l_Lean_Elab_Tactic_evalAssumption___closed__1; lean_object* l_Lean_Elab_Tactic_isExprMVarAssigned(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_modifyMCtx___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main___boxed(lean_object*); lean_object* l_Lean_Elab_Tactic_evalParen(lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Elab_macroAttribute; lean_object* l_Lean_Elab_Tactic_liftMetaTactic(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalTactic___main___closed__1; lean_object* l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed(lean_object*, lean_object*); @@ -356,6 +360,7 @@ lean_object* l_Array_toList___rarg(lean_object*); lean_object* l_Lean_Elab_Tactic_ensureHasType(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_withMacroExpansion___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2; lean_object* l_Lean_Elab_Tactic_instantiateMVars(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_reportUnsolvedGoals(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_AssocList_find___main___at_Lean_Elab_Tactic_evalTactic___main___spec__6(lean_object*, lean_object*); @@ -373,6 +378,7 @@ lean_object* l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg(lean_object*, lean uint8_t l_AssocList_contains___main___at_Lean_Elab_Tactic_addBuiltinTactic___spec__3(lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalIntros___closed__1; lean_object* l_Lean_Elab_Tactic_getMVarDecl(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; lean_object* l_Lean_Elab_Tactic_evalTactic___main___lambda__1(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalIntros(lean_object*, lean_object*, lean_object*); @@ -413,12 +419,11 @@ extern lean_object* l_Lean_Parser_Tactic_seq___elambda__1___closed__1; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalNestedTacticBlockCurly___closed__2; extern lean_object* l_HashMap_Inhabited___closed__1; lean_object* l_Lean_Elab_Tactic_throwUnsupportedSyntax___rarg___closed__1; -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize(lean_object*); lean_object* l_List_foldl___main___at_Lean_Elab_Tactic_tagUntaggedGoals___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_indentExpr(lean_object*); extern lean_object* l_Lean_Parser_Tactic_traceState___elambda__1___closed__2; lean_object* l_Lean_Elab_Tactic_monadQuotation___closed__3; -extern lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +lean_object* l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(lean_object*, lean_object*); lean_object* l_IO_ofExcept___at___private_Init_Lean_Elab_Util_6__ElabAttribute_add___spec__1(lean_object*, lean_object*); lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalSkip(lean_object*); lean_object* l_Lean_mkConst(lean_object*, lean_object*); @@ -433,6 +438,7 @@ extern lean_object* l_Lean_initAttr; lean_object* l_Lean_Elab_syntaxNodeKindOfAttrParam(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getLCtx(lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__1; +lean_object* l_Lean_Elab_Tactic_expandTacticMacro(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_getEnv___boxed(lean_object*); extern lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___elambda__1___closed__2; lean_object* l___regBuiltinTactic_Lean_Elab_Tactic_evalParen___closed__2; @@ -446,7 +452,6 @@ lean_object* l_mkHashMap___at_Lean_Elab_Tactic_mkBuiltinTacticTable___spec__2(le lean_object* l_Lean_Elab_Tactic_monadLog___closed__9; uint8_t lean_string_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalIntros___lambda__2___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_expandMacro(lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l_Lean_Elab_Tactic_evalSkip___rarg(lean_object*); lean_object* l_Lean_Elab_Tactic_withIncRecDepth(lean_object*); @@ -3506,7 +3511,7 @@ lean_dec(x_13); lean_dec(x_11); lean_dec(x_2); lean_dec(x_1); -x_25 = l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +x_25 = l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___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_12); @@ -4034,8 +4039,9 @@ x_19 = lean_ctor_get(x_18, 0); lean_inc(x_19); if (lean_obj_tag(x_19) == 0) { +if (lean_obj_tag(x_16) == 0) +{ uint8_t x_20; -lean_dec(x_16); lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); @@ -4067,6 +4073,21 @@ return x_26; } else { +lean_dec(x_19); +lean_dec(x_18); +lean_dec(x_17); +lean_inc(x_1); +{ +lean_object* _tmp_2 = x_16; +lean_object* _tmp_4 = x_1; +x_3 = _tmp_2; +x_5 = _tmp_4; +} +goto _start; +} +} +else +{ lean_dec(x_18); lean_dec(x_17); lean_inc(x_1); @@ -4243,6 +4264,184 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_withMacroExpansion___rarg), return x_2; } } +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +if (lean_obj_tag(x_3) == 0) +{ +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_dec(x_1); +lean_inc(x_2); +x_6 = l_Lean_Syntax_getKind(x_2); +x_7 = l_System_FilePath_dirName___closed__1; +x_8 = l_Lean_Name_toStringWithSep___main(x_7, x_6); +x_9 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_9, 0, x_8); +x_10 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_10, 0, x_9); +x_11 = l_Lean_Meta_Exception_toMessageData___closed__45; +x_12 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_12, 0, x_11); +lean_ctor_set(x_12, 1, x_10); +x_13 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_14 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_14, 0, x_12); +lean_ctor_set(x_14, 1, x_13); +x_15 = l_Lean_Elab_Tactic_throwError___rarg(x_2, x_14, x_4, x_5); +return x_15; +} +else +{ +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +x_16 = lean_ctor_get(x_3, 0); +lean_inc(x_16); +x_17 = lean_ctor_get(x_3, 1); +lean_inc(x_17); +lean_dec(x_3); +x_18 = l_Lean_Elab_Tactic_getCurrMacroScope(x_4, x_5); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_ctor_get(x_18, 1); +lean_inc(x_20); +lean_dec(x_18); +lean_inc(x_2); +x_21 = lean_apply_2(x_16, x_2, x_19); +if (lean_obj_tag(x_21) == 0) +{ +x_3 = x_17; +x_5 = x_20; +goto _start; +} +else +{ +lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_23 = lean_ctor_get(x_21, 0); +lean_inc(x_23); +lean_dec(x_21); +x_24 = l_Lean_Elab_Tactic_save(x_20); +lean_inc(x_1); +lean_inc(x_4); +x_25 = lean_apply_3(x_1, x_23, x_4, x_20); +if (lean_obj_tag(x_25) == 0) +{ +lean_dec(x_24); +lean_dec(x_17); +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +return x_25; +} +else +{ +uint8_t x_26; +x_26 = !lean_is_exclusive(x_25); +if (x_26 == 0) +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; +x_27 = lean_ctor_get(x_25, 0); +x_28 = lean_ctor_get(x_25, 1); +x_29 = l_Lean_Elab_Tactic_restore(x_28, x_24); +lean_dec(x_24); +if (lean_obj_tag(x_17) == 0) +{ +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +lean_ctor_set(x_25, 1, x_29); +return x_25; +} +else +{ +lean_free_object(x_25); +lean_dec(x_27); +x_3 = x_17; +x_5 = x_29; +goto _start; +} +} +else +{ +lean_object* x_31; lean_object* x_32; lean_object* x_33; +x_31 = lean_ctor_get(x_25, 0); +x_32 = lean_ctor_get(x_25, 1); +lean_inc(x_32); +lean_inc(x_31); +lean_dec(x_25); +x_33 = l_Lean_Elab_Tactic_restore(x_32, x_24); +lean_dec(x_24); +if (lean_obj_tag(x_17) == 0) +{ +lean_object* x_34; +lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); +x_34 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_34, 0, x_31); +lean_ctor_set(x_34, 1, x_33); +return x_34; +} +else +{ +lean_dec(x_31); +x_3 = x_17; +x_5 = x_33; +goto _start; +} +} +} +} +} +} +} +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; +x_6 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(x_1, x_2, x_3, x_4, x_5); +return x_6; +} +} +lean_object* l_Lean_Elab_Tactic_expandTacticMacro(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_5 = l_Lean_Elab_Tactic_getEnv___rarg(x_4); +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_ctor_get(x_5, 1); +lean_inc(x_7); +lean_dec(x_5); +lean_inc(x_2); +x_8 = l_Lean_Syntax_getKind(x_2); +x_9 = l_Lean_Elab_macroAttribute; +x_10 = lean_ctor_get(x_9, 1); +lean_inc(x_10); +x_11 = l_Lean_PersistentEnvExtension_getState___rarg(x_10, x_6); +lean_dec(x_6); +lean_dec(x_10); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_12, x_8); +lean_dec(x_8); +if (lean_obj_tag(x_13) == 0) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_box(0); +x_15 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(x_1, x_2, x_14, x_3, x_7); +return x_15; +} +else +{ +lean_object* x_16; lean_object* x_17; +x_16 = lean_ctor_get(x_13, 0); +lean_inc(x_16); +lean_dec(x_13); +x_17 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main(x_1, x_2, x_16, x_3, x_7); +return x_17; +} +} +} lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { @@ -4461,7 +4660,131 @@ return x_9; } } } -lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(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_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +if (lean_obj_tag(x_2) == 0) +{ +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_inc(x_1); +x_5 = l_Lean_Syntax_getKind(x_1); +x_6 = l_System_FilePath_dirName___closed__1; +x_7 = l_Lean_Name_toStringWithSep___main(x_6, x_5); +x_8 = lean_alloc_ctor(2, 1, 0); +lean_ctor_set(x_8, 0, x_7); +x_9 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_9, 0, x_8); +x_10 = l_Lean_Meta_Exception_toMessageData___closed__45; +x_11 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_11, 0, x_10); +lean_ctor_set(x_11, 1, x_9); +x_12 = l_Lean_Elab_Term_elabTermAux___main___closed__6; +x_13 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_13, 0, x_11); +lean_ctor_set(x_13, 1, x_12); +x_14 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_13, x_3, x_4); +return x_14; +} +else +{ +lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +x_15 = lean_ctor_get(x_2, 0); +lean_inc(x_15); +x_16 = lean_ctor_get(x_2, 1); +lean_inc(x_16); +lean_dec(x_2); +x_17 = l_Lean_Elab_Tactic_getCurrMacroScope(x_3, x_4); +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +x_19 = lean_ctor_get(x_17, 1); +lean_inc(x_19); +lean_dec(x_17); +lean_inc(x_1); +x_20 = lean_apply_2(x_15, x_1, x_18); +if (lean_obj_tag(x_20) == 0) +{ +x_2 = x_16; +x_4 = x_19; +goto _start; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_22 = lean_ctor_get(x_20, 0); +lean_inc(x_22); +lean_dec(x_20); +x_23 = l_Lean_Elab_Tactic_save(x_19); +lean_inc(x_3); +x_24 = l_Lean_Elab_Tactic_evalTactic___main(x_22, x_3, x_19); +if (lean_obj_tag(x_24) == 0) +{ +lean_dec(x_23); +lean_dec(x_16); +lean_dec(x_3); +lean_dec(x_1); +return x_24; +} +else +{ +uint8_t x_25; +x_25 = !lean_is_exclusive(x_24); +if (x_25 == 0) +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_24, 0); +x_27 = lean_ctor_get(x_24, 1); +x_28 = l_Lean_Elab_Tactic_restore(x_27, x_23); +lean_dec(x_23); +if (lean_obj_tag(x_16) == 0) +{ +lean_dec(x_3); +lean_dec(x_1); +lean_ctor_set(x_24, 1, x_28); +return x_24; +} +else +{ +lean_free_object(x_24); +lean_dec(x_26); +x_2 = x_16; +x_4 = x_28; +goto _start; +} +} +else +{ +lean_object* x_30; lean_object* x_31; lean_object* x_32; +x_30 = lean_ctor_get(x_24, 0); +x_31 = lean_ctor_get(x_24, 1); +lean_inc(x_31); +lean_inc(x_30); +lean_dec(x_24); +x_32 = l_Lean_Elab_Tactic_restore(x_31, x_23); +lean_dec(x_23); +if (lean_obj_tag(x_16) == 0) +{ +lean_object* x_33; +lean_dec(x_3); +lean_dec(x_1); +x_33 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_33, 0, x_30); +lean_ctor_set(x_33, 1, x_32); +return x_33; +} +else +{ +lean_dec(x_30); +x_2 = x_16; +x_4 = x_32; +goto _start; +} +} +} +} +} +} +} +lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___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) { _start: { lean_object* x_7; uint8_t x_8; @@ -4567,67 +4890,67 @@ return x_2; lean_object* l_Lean_Elab_Tactic_evalTactic___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_451; lean_object* x_452; lean_object* x_453; lean_object* x_454; uint8_t x_455; -x_451 = lean_ctor_get(x_2, 0); -lean_inc(x_451); -x_452 = lean_ctor_get(x_451, 0); -lean_inc(x_452); -lean_dec(x_451); -x_453 = lean_ctor_get(x_452, 3); -lean_inc(x_453); -x_454 = lean_ctor_get(x_452, 4); -lean_inc(x_454); -lean_dec(x_452); -x_455 = lean_nat_dec_eq(x_453, x_454); -lean_dec(x_454); -lean_dec(x_453); -if (x_455 == 0) +lean_object* x_4; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; uint8_t x_389; +x_385 = lean_ctor_get(x_2, 0); +lean_inc(x_385); +x_386 = lean_ctor_get(x_385, 0); +lean_inc(x_386); +lean_dec(x_385); +x_387 = lean_ctor_get(x_386, 3); +lean_inc(x_387); +x_388 = lean_ctor_get(x_386, 4); +lean_inc(x_388); +lean_dec(x_386); +x_389 = lean_nat_dec_eq(x_387, x_388); +lean_dec(x_388); +lean_dec(x_387); +if (x_389 == 0) { x_4 = x_3; -goto block_450; +goto block_384; } else { -lean_object* x_456; lean_object* x_457; -x_456 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; +lean_object* x_390; lean_object* x_391; +x_390 = l_Lean_Elab_Term_withIncRecDepth___rarg___closed__2; lean_inc(x_2); lean_inc(x_1); -x_457 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_456, x_2, x_3); -if (lean_obj_tag(x_457) == 0) +x_391 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_390, x_2, x_3); +if (lean_obj_tag(x_391) == 0) { -lean_object* x_458; -x_458 = lean_ctor_get(x_457, 1); -lean_inc(x_458); -lean_dec(x_457); -x_4 = x_458; -goto block_450; +lean_object* x_392; +x_392 = lean_ctor_get(x_391, 1); +lean_inc(x_392); +lean_dec(x_391); +x_4 = x_392; +goto block_384; } else { -uint8_t x_459; +uint8_t x_393; lean_dec(x_2); lean_dec(x_1); -x_459 = !lean_is_exclusive(x_457); -if (x_459 == 0) +x_393 = !lean_is_exclusive(x_391); +if (x_393 == 0) { -return x_457; +return x_391; } else { -lean_object* x_460; lean_object* x_461; lean_object* x_462; -x_460 = lean_ctor_get(x_457, 0); -x_461 = lean_ctor_get(x_457, 1); -lean_inc(x_461); -lean_inc(x_460); -lean_dec(x_457); -x_462 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_462, 0, x_460); -lean_ctor_set(x_462, 1, x_461); -return x_462; +lean_object* x_394; lean_object* x_395; lean_object* x_396; +x_394 = lean_ctor_get(x_391, 0); +x_395 = lean_ctor_get(x_391, 1); +lean_inc(x_395); +lean_inc(x_394); +lean_dec(x_391); +x_396 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_396, 0, x_394); +lean_ctor_set(x_396, 1, x_395); +return x_396; } } } -block_450: +block_384: { lean_object* x_5; lean_object* x_6; uint8_t x_7; x_5 = lean_ctor_get(x_2, 0); @@ -4637,1618 +4960,1071 @@ lean_inc(x_6); x_7 = !lean_is_exclusive(x_2); if (x_7 == 0) { -lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_11; -x_8 = lean_ctor_get(x_2, 1); -x_9 = lean_ctor_get(x_2, 2); -x_10 = lean_ctor_get(x_2, 0); +lean_object* x_8; uint8_t x_9; +x_8 = lean_ctor_get(x_2, 0); +lean_dec(x_8); +x_9 = !lean_is_exclusive(x_5); +if (x_9 == 0) +{ +lean_object* x_10; lean_object* x_11; uint8_t x_12; +x_10 = lean_ctor_get(x_5, 9); lean_dec(x_10); -x_11 = !lean_is_exclusive(x_5); -if (x_11 == 0) +x_11 = lean_ctor_get(x_5, 0); +lean_dec(x_11); +x_12 = !lean_is_exclusive(x_6); +if (x_12 == 0) { -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; uint8_t x_21; lean_object* x_22; lean_object* x_23; uint8_t x_24; -x_12 = lean_ctor_get(x_5, 1); -x_13 = lean_ctor_get(x_5, 2); -x_14 = lean_ctor_get(x_5, 3); -x_15 = lean_ctor_get(x_5, 4); -x_16 = lean_ctor_get(x_5, 5); -x_17 = lean_ctor_get(x_5, 6); -x_18 = lean_ctor_get(x_5, 7); -x_19 = lean_ctor_get(x_5, 8); -x_20 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); -x_21 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); -x_22 = lean_ctor_get(x_5, 9); -lean_dec(x_22); -x_23 = lean_ctor_get(x_5, 0); -lean_dec(x_23); -x_24 = !lean_is_exclusive(x_6); -if (x_24 == 0) +lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; +x_13 = lean_ctor_get(x_6, 3); +x_14 = lean_unsigned_to_nat(1u); +x_15 = lean_nat_add(x_13, x_14); +lean_dec(x_13); +lean_ctor_set(x_6, 3, x_15); +x_16 = !lean_is_exclusive(x_4); +if (x_16 == 0) { -lean_object* x_25; lean_object* x_26; lean_object* x_27; uint8_t x_28; -x_25 = lean_ctor_get(x_6, 3); -x_26 = lean_unsigned_to_nat(1u); -x_27 = lean_nat_add(x_25, x_26); -lean_dec(x_25); -lean_ctor_set(x_6, 3, x_27); -x_28 = !lean_is_exclusive(x_4); -if (x_28 == 0) +lean_object* x_17; uint8_t x_18; +x_17 = lean_ctor_get(x_4, 0); +x_18 = !lean_is_exclusive(x_17); +if (x_18 == 0) { -lean_object* x_29; uint8_t x_30; -x_29 = lean_ctor_get(x_4, 0); -x_30 = !lean_is_exclusive(x_29); -if (x_30 == 0) -{ -lean_object* x_31; lean_object* x_32; -x_31 = lean_ctor_get(x_29, 5); -x_32 = lean_nat_add(x_31, x_26); -lean_ctor_set(x_29, 5, x_32); -lean_inc(x_31); -lean_inc(x_19); -lean_inc(x_18); -lean_inc(x_17); -lean_inc(x_16); -lean_inc(x_15); -lean_inc(x_14); -lean_inc(x_13); -lean_inc(x_12); -lean_inc(x_6); -lean_ctor_set(x_5, 9, x_31); -lean_inc(x_9); -lean_inc(x_8); +lean_object* x_19; lean_object* x_20; +x_19 = lean_ctor_get(x_17, 5); +x_20 = lean_nat_add(x_19, x_14); +lean_ctor_set(x_17, 5, x_20); +lean_ctor_set(x_5, 9, x_19); if (lean_obj_tag(x_1) == 1) { -lean_object* x_33; lean_object* x_34; uint8_t x_35; -x_33 = lean_ctor_get(x_1, 0); -lean_inc(x_33); -x_34 = l_Lean_nullKind; -x_35 = lean_name_eq(x_33, x_34); -lean_dec(x_33); -if (x_35 == 0) +lean_object* x_21; lean_object* x_22; uint8_t x_23; +x_21 = lean_ctor_get(x_1, 0); +lean_inc(x_21); +x_22 = l_Lean_nullKind; +x_23 = lean_name_eq(x_21, x_22); +lean_dec(x_21); +if (x_23 == 0) { -lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; +lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_inc(x_1); -x_36 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); -lean_closure_set(x_36, 0, x_1); -x_37 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; +x_24 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); +lean_closure_set(x_24, 0, x_1); +x_25 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; lean_inc(x_1); -x_38 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); -lean_closure_set(x_38, 0, x_37); -lean_closure_set(x_38, 1, x_1); -lean_closure_set(x_38, 2, x_36); +x_26 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); +lean_closure_set(x_26, 0, x_25); +lean_closure_set(x_26, 1, x_1); +lean_closure_set(x_26, 2, x_24); lean_inc(x_2); -x_39 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_38, x_2, x_4); -if (lean_obj_tag(x_39) == 0) +x_27 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_26, x_2, x_4); +if (lean_obj_tag(x_27) == 0) { -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; -x_40 = lean_ctor_get(x_39, 1); +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_28 = lean_ctor_get(x_27, 1); +lean_inc(x_28); +lean_dec(x_27); +x_29 = l_Lean_Elab_Tactic_tacticElabAttribute; +x_30 = lean_ctor_get(x_29, 1); +lean_inc(x_30); +x_31 = lean_ctor_get(x_28, 0); +lean_inc(x_31); +x_32 = lean_ctor_get(x_31, 0); +lean_inc(x_32); +lean_dec(x_31); +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +lean_dec(x_32); +x_34 = l_Lean_PersistentEnvExtension_getState___rarg(x_30, x_33); +lean_dec(x_33); +lean_dec(x_30); +x_35 = lean_ctor_get(x_34, 1); +lean_inc(x_35); +lean_dec(x_34); +lean_inc(x_1); +x_36 = l_Lean_Syntax_getKind(x_1); +x_37 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_35, x_36); +if (lean_obj_tag(x_37) == 0) +{ +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; +x_38 = l_Lean_Elab_Tactic_getEnv___rarg(x_28); +x_39 = lean_ctor_get(x_38, 0); +lean_inc(x_39); +x_40 = lean_ctor_get(x_38, 1); lean_inc(x_40); -lean_dec(x_39); -x_41 = l_Lean_Elab_Tactic_tacticElabAttribute; +lean_dec(x_38); +x_41 = l_Lean_Elab_macroAttribute; x_42 = lean_ctor_get(x_41, 1); lean_inc(x_42); -x_43 = lean_ctor_get(x_40, 0); -lean_inc(x_43); -x_44 = lean_ctor_get(x_43, 0); +x_43 = l_Lean_PersistentEnvExtension_getState___rarg(x_42, x_39); +lean_dec(x_39); +lean_dec(x_42); +x_44 = lean_ctor_get(x_43, 1); lean_inc(x_44); lean_dec(x_43); -x_45 = lean_ctor_get(x_44, 0); -lean_inc(x_45); -lean_dec(x_44); -x_46 = l_Lean_PersistentEnvExtension_getState___rarg(x_42, x_45); +x_45 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_44, x_36); +lean_dec(x_36); +if (lean_obj_tag(x_45) == 0) +{ +lean_object* x_46; lean_object* x_47; +x_46 = lean_box(0); +x_47 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_46, x_2, x_40); +return x_47; +} +else +{ +lean_object* x_48; lean_object* x_49; +x_48 = lean_ctor_get(x_45, 0); +lean_inc(x_48); lean_dec(x_45); -lean_dec(x_42); -x_47 = lean_ctor_get(x_46, 1); -lean_inc(x_47); -lean_dec(x_46); -lean_inc(x_1); -x_48 = l_Lean_Syntax_getKind(x_1); -x_49 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_47, x_48); -if (lean_obj_tag(x_49) == 0) -{ -lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; -x_50 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_40); -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 = l_Lean_Elab_Tactic_getEnv___rarg(x_52); -x_54 = lean_ctor_get(x_53, 0); -lean_inc(x_54); -x_55 = lean_ctor_get(x_53, 1); -lean_inc(x_55); -lean_dec(x_53); -lean_inc(x_1); -x_56 = l_Lean_Elab_expandMacro(x_54, x_1, x_51); -lean_dec(x_54); -if (lean_obj_tag(x_56) == 0) -{ -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_dec(x_31); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_57 = l_System_FilePath_dirName___closed__1; -x_58 = l_Lean_Name_toStringWithSep___main(x_57, x_48); -x_59 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_59, 0, x_58); -x_60 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_60, 0, x_59); -x_61 = l_Lean_Meta_Exception_toMessageData___closed__45; -x_62 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_62, 0, x_61); -lean_ctor_set(x_62, 1, x_60); -x_63 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_64 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_64, 0, x_62); -lean_ctor_set(x_64, 1, x_63); -x_65 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_64, x_2, x_55); -return x_65; +x_49 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_48, x_2, x_40); +return x_49; +} } else { -lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; -lean_dec(x_48); +lean_object* x_50; lean_object* x_51; +lean_dec(x_36); +x_50 = lean_ctor_get(x_37, 0); +lean_inc(x_50); +lean_dec(x_37); +lean_inc(x_28); +x_51 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_28, x_1, x_50, x_2, x_28); +return x_51; +} +} +else +{ +uint8_t x_52; lean_dec(x_2); -x_66 = lean_ctor_get(x_56, 0); -lean_inc(x_66); -lean_dec(x_56); -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_1); -lean_ctor_set(x_67, 1, x_19); -x_68 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_68, 0, x_6); -lean_ctor_set(x_68, 1, x_12); -lean_ctor_set(x_68, 2, x_13); -lean_ctor_set(x_68, 3, x_14); -lean_ctor_set(x_68, 4, x_15); -lean_ctor_set(x_68, 5, x_16); -lean_ctor_set(x_68, 6, x_17); -lean_ctor_set(x_68, 7, x_18); -lean_ctor_set(x_68, 8, x_67); -lean_ctor_set(x_68, 9, x_31); -lean_ctor_set_uint8(x_68, sizeof(void*)*10, x_20); -lean_ctor_set_uint8(x_68, sizeof(void*)*10 + 1, x_21); -x_69 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_69, 0, x_68); -lean_ctor_set(x_69, 1, x_8); -lean_ctor_set(x_69, 2, x_9); -x_1 = x_66; -x_2 = x_69; -x_3 = x_55; -goto _start; -} -} -else -{ -lean_object* x_71; lean_object* x_72; -lean_dec(x_48); -lean_dec(x_31); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_71 = lean_ctor_get(x_49, 0); -lean_inc(x_71); -lean_dec(x_49); -lean_inc(x_40); -x_72 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_40, x_1, x_71, x_2, x_40); -return x_72; -} -} -else -{ -uint8_t x_73; -lean_dec(x_2); -lean_dec(x_31); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); lean_dec(x_1); -x_73 = !lean_is_exclusive(x_39); +x_52 = !lean_is_exclusive(x_27); +if (x_52 == 0) +{ +return x_27; +} +else +{ +lean_object* x_53; lean_object* x_54; lean_object* x_55; +x_53 = lean_ctor_get(x_27, 0); +x_54 = lean_ctor_get(x_27, 1); +lean_inc(x_54); +lean_inc(x_53); +lean_dec(x_27); +x_55 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_55, 0, x_53); +lean_ctor_set(x_55, 1, x_54); +return x_55; +} +} +} +else +{ +lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; +x_56 = l_Lean_Syntax_getArgs(x_1); +lean_dec(x_1); +x_57 = lean_unsigned_to_nat(2u); +x_58 = lean_unsigned_to_nat(0u); +x_59 = lean_box(0); +x_60 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_57, x_56, x_58, x_59, x_2, x_4); +lean_dec(x_56); +return x_60; +} +} +else +{ +lean_object* x_61; lean_object* x_62; +x_61 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_62 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_61, x_2, x_4); +return x_62; +} +} +else +{ +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_63 = lean_ctor_get(x_17, 0); +x_64 = lean_ctor_get(x_17, 1); +x_65 = lean_ctor_get(x_17, 2); +x_66 = lean_ctor_get(x_17, 3); +x_67 = lean_ctor_get(x_17, 4); +x_68 = lean_ctor_get(x_17, 5); +lean_inc(x_68); +lean_inc(x_67); +lean_inc(x_66); +lean_inc(x_65); +lean_inc(x_64); +lean_inc(x_63); +lean_dec(x_17); +x_69 = lean_nat_add(x_68, x_14); +x_70 = lean_alloc_ctor(0, 6, 0); +lean_ctor_set(x_70, 0, x_63); +lean_ctor_set(x_70, 1, x_64); +lean_ctor_set(x_70, 2, x_65); +lean_ctor_set(x_70, 3, x_66); +lean_ctor_set(x_70, 4, x_67); +lean_ctor_set(x_70, 5, x_69); +lean_ctor_set(x_4, 0, x_70); +lean_ctor_set(x_5, 9, x_68); +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_71; lean_object* x_72; uint8_t x_73; +x_71 = lean_ctor_get(x_1, 0); +lean_inc(x_71); +x_72 = l_Lean_nullKind; +x_73 = lean_name_eq(x_71, x_72); +lean_dec(x_71); if (x_73 == 0) { -return x_39; -} -else +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; +lean_inc(x_1); +x_74 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); +lean_closure_set(x_74, 0, x_1); +x_75 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; +lean_inc(x_1); +x_76 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); +lean_closure_set(x_76, 0, x_75); +lean_closure_set(x_76, 1, x_1); +lean_closure_set(x_76, 2, x_74); +lean_inc(x_2); +x_77 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_76, x_2, x_4); +if (lean_obj_tag(x_77) == 0) { -lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_74 = lean_ctor_get(x_39, 0); -x_75 = lean_ctor_get(x_39, 1); -lean_inc(x_75); -lean_inc(x_74); -lean_dec(x_39); -x_76 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_76, 0, x_74); -lean_ctor_set(x_76, 1, x_75); -return x_76; -} -} -} -else -{ -lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; -lean_dec(x_31); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_77 = l_Lean_Syntax_getArgs(x_1); -lean_dec(x_1); -x_78 = lean_unsigned_to_nat(2u); -x_79 = lean_unsigned_to_nat(0u); -x_80 = lean_box(0); -x_81 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_78, x_77, x_79, x_80, x_2, x_4); +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; +x_78 = lean_ctor_get(x_77, 1); +lean_inc(x_78); lean_dec(x_77); -return x_81; -} -} -else -{ -lean_object* x_82; lean_object* x_83; -lean_dec(x_31); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_82 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_83 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_82, x_2, x_4); -return x_83; -} -} -else -{ -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; -x_84 = lean_ctor_get(x_29, 0); -x_85 = lean_ctor_get(x_29, 1); -x_86 = lean_ctor_get(x_29, 2); -x_87 = lean_ctor_get(x_29, 3); -x_88 = lean_ctor_get(x_29, 4); -x_89 = lean_ctor_get(x_29, 5); -lean_inc(x_89); -lean_inc(x_88); -lean_inc(x_87); -lean_inc(x_86); +x_79 = l_Lean_Elab_Tactic_tacticElabAttribute; +x_80 = lean_ctor_get(x_79, 1); +lean_inc(x_80); +x_81 = lean_ctor_get(x_78, 0); +lean_inc(x_81); +x_82 = lean_ctor_get(x_81, 0); +lean_inc(x_82); +lean_dec(x_81); +x_83 = lean_ctor_get(x_82, 0); +lean_inc(x_83); +lean_dec(x_82); +x_84 = l_Lean_PersistentEnvExtension_getState___rarg(x_80, x_83); +lean_dec(x_83); +lean_dec(x_80); +x_85 = lean_ctor_get(x_84, 1); lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_29); -x_90 = lean_nat_add(x_89, x_26); -x_91 = lean_alloc_ctor(0, 6, 0); -lean_ctor_set(x_91, 0, x_84); -lean_ctor_set(x_91, 1, x_85); -lean_ctor_set(x_91, 2, x_86); -lean_ctor_set(x_91, 3, x_87); -lean_ctor_set(x_91, 4, x_88); -lean_ctor_set(x_91, 5, x_90); -lean_ctor_set(x_4, 0, x_91); +lean_dec(x_84); +lean_inc(x_1); +x_86 = l_Lean_Syntax_getKind(x_1); +x_87 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_85, x_86); +if (lean_obj_tag(x_87) == 0) +{ +lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; +x_88 = l_Lean_Elab_Tactic_getEnv___rarg(x_78); +x_89 = lean_ctor_get(x_88, 0); lean_inc(x_89); -lean_inc(x_19); -lean_inc(x_18); -lean_inc(x_17); -lean_inc(x_16); -lean_inc(x_15); -lean_inc(x_14); -lean_inc(x_13); -lean_inc(x_12); -lean_inc(x_6); -lean_ctor_set(x_5, 9, x_89); -lean_inc(x_9); -lean_inc(x_8); -if (lean_obj_tag(x_1) == 1) -{ -lean_object* x_92; lean_object* x_93; uint8_t x_94; -x_92 = lean_ctor_get(x_1, 0); +x_90 = lean_ctor_get(x_88, 1); +lean_inc(x_90); +lean_dec(x_88); +x_91 = l_Lean_Elab_macroAttribute; +x_92 = lean_ctor_get(x_91, 1); lean_inc(x_92); -x_93 = l_Lean_nullKind; -x_94 = lean_name_eq(x_92, x_93); +x_93 = l_Lean_PersistentEnvExtension_getState___rarg(x_92, x_89); +lean_dec(x_89); lean_dec(x_92); -if (x_94 == 0) +x_94 = lean_ctor_get(x_93, 1); +lean_inc(x_94); +lean_dec(x_93); +x_95 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_94, x_86); +lean_dec(x_86); +if (lean_obj_tag(x_95) == 0) { -lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; -lean_inc(x_1); -x_95 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); -lean_closure_set(x_95, 0, x_1); -x_96 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; -lean_inc(x_1); -x_97 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); -lean_closure_set(x_97, 0, x_96); -lean_closure_set(x_97, 1, x_1); -lean_closure_set(x_97, 2, x_95); -lean_inc(x_2); -x_98 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_97, x_2, x_4); -if (lean_obj_tag(x_98) == 0) +lean_object* x_96; lean_object* x_97; +x_96 = lean_box(0); +x_97 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_96, x_2, x_90); +return x_97; +} +else { -lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_99 = lean_ctor_get(x_98, 1); -lean_inc(x_99); -lean_dec(x_98); -x_100 = l_Lean_Elab_Tactic_tacticElabAttribute; -x_101 = lean_ctor_get(x_100, 1); -lean_inc(x_101); -x_102 = lean_ctor_get(x_99, 0); +lean_object* x_98; lean_object* x_99; +x_98 = lean_ctor_get(x_95, 0); +lean_inc(x_98); +lean_dec(x_95); +x_99 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_98, x_2, x_90); +return x_99; +} +} +else +{ +lean_object* x_100; lean_object* x_101; +lean_dec(x_86); +x_100 = lean_ctor_get(x_87, 0); +lean_inc(x_100); +lean_dec(x_87); +lean_inc(x_78); +x_101 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_78, x_1, x_100, x_2, x_78); +return x_101; +} +} +else +{ +lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; +lean_dec(x_2); +lean_dec(x_1); +x_102 = lean_ctor_get(x_77, 0); lean_inc(x_102); -x_103 = lean_ctor_get(x_102, 0); +x_103 = lean_ctor_get(x_77, 1); lean_inc(x_103); -lean_dec(x_102); -x_104 = lean_ctor_get(x_103, 0); -lean_inc(x_104); -lean_dec(x_103); -x_105 = l_Lean_PersistentEnvExtension_getState___rarg(x_101, x_104); -lean_dec(x_104); -lean_dec(x_101); -x_106 = lean_ctor_get(x_105, 1); -lean_inc(x_106); -lean_dec(x_105); -lean_inc(x_1); -x_107 = l_Lean_Syntax_getKind(x_1); -x_108 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_106, x_107); -if (lean_obj_tag(x_108) == 0) +if (lean_is_exclusive(x_77)) { + lean_ctor_release(x_77, 0); + lean_ctor_release(x_77, 1); + x_104 = x_77; +} else { + lean_dec_ref(x_77); + x_104 = lean_box(0); +} +if (lean_is_scalar(x_104)) { + x_105 = lean_alloc_ctor(1, 2, 0); +} else { + x_105 = x_104; +} +lean_ctor_set(x_105, 0, x_102); +lean_ctor_set(x_105, 1, x_103); +return x_105; +} +} +else { -lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_object* x_115; -x_109 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_99); -x_110 = lean_ctor_get(x_109, 0); -lean_inc(x_110); -x_111 = lean_ctor_get(x_109, 1); -lean_inc(x_111); -lean_dec(x_109); -x_112 = l_Lean_Elab_Tactic_getEnv___rarg(x_111); -x_113 = lean_ctor_get(x_112, 0); -lean_inc(x_113); -x_114 = lean_ctor_get(x_112, 1); +lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; +x_106 = l_Lean_Syntax_getArgs(x_1); +lean_dec(x_1); +x_107 = lean_unsigned_to_nat(2u); +x_108 = lean_unsigned_to_nat(0u); +x_109 = lean_box(0); +x_110 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_107, x_106, x_108, x_109, x_2, x_4); +lean_dec(x_106); +return x_110; +} +} +else +{ +lean_object* x_111; lean_object* x_112; +x_111 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_112 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_111, x_2, x_4); +return x_112; +} +} +} +else +{ +lean_object* x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; +x_113 = lean_ctor_get(x_4, 0); +x_114 = lean_ctor_get(x_4, 1); lean_inc(x_114); -lean_dec(x_112); -lean_inc(x_1); -x_115 = l_Lean_Elab_expandMacro(x_113, x_1, x_110); -lean_dec(x_113); -if (lean_obj_tag(x_115) == 0) -{ -lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124; -lean_dec(x_89); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_116 = l_System_FilePath_dirName___closed__1; -x_117 = l_Lean_Name_toStringWithSep___main(x_116, x_107); -x_118 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_118, 0, x_117); -x_119 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_119, 0, x_118); -x_120 = l_Lean_Meta_Exception_toMessageData___closed__45; -x_121 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_121, 0, x_120); -lean_ctor_set(x_121, 1, x_119); -x_122 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_123 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_123, 0, x_121); -lean_ctor_set(x_123, 1, x_122); -x_124 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_123, x_2, x_114); -return x_124; -} -else -{ -lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; -lean_dec(x_107); -lean_dec(x_2); -x_125 = lean_ctor_get(x_115, 0); -lean_inc(x_125); -lean_dec(x_115); -x_126 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_126, 0, x_1); -lean_ctor_set(x_126, 1, x_19); -x_127 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_127, 0, x_6); -lean_ctor_set(x_127, 1, x_12); -lean_ctor_set(x_127, 2, x_13); -lean_ctor_set(x_127, 3, x_14); -lean_ctor_set(x_127, 4, x_15); -lean_ctor_set(x_127, 5, x_16); -lean_ctor_set(x_127, 6, x_17); -lean_ctor_set(x_127, 7, x_18); -lean_ctor_set(x_127, 8, x_126); -lean_ctor_set(x_127, 9, x_89); -lean_ctor_set_uint8(x_127, sizeof(void*)*10, x_20); -lean_ctor_set_uint8(x_127, sizeof(void*)*10 + 1, x_21); -x_128 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_128, 0, x_127); -lean_ctor_set(x_128, 1, x_8); -lean_ctor_set(x_128, 2, x_9); -x_1 = x_125; -x_2 = x_128; -x_3 = x_114; -goto _start; -} -} -else -{ -lean_object* x_130; lean_object* x_131; -lean_dec(x_107); -lean_dec(x_89); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_130 = lean_ctor_get(x_108, 0); -lean_inc(x_130); -lean_dec(x_108); -lean_inc(x_99); -x_131 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_99, x_1, x_130, x_2, x_99); -return x_131; -} -} -else -{ -lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; -lean_dec(x_2); -lean_dec(x_89); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_1); -x_132 = lean_ctor_get(x_98, 0); -lean_inc(x_132); -x_133 = lean_ctor_get(x_98, 1); -lean_inc(x_133); -if (lean_is_exclusive(x_98)) { - lean_ctor_release(x_98, 0); - lean_ctor_release(x_98, 1); - x_134 = x_98; -} else { - lean_dec_ref(x_98); - x_134 = lean_box(0); -} -if (lean_is_scalar(x_134)) { - x_135 = lean_alloc_ctor(1, 2, 0); -} else { - x_135 = x_134; -} -lean_ctor_set(x_135, 0, x_132); -lean_ctor_set(x_135, 1, x_133); -return x_135; -} -} -else -{ -lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; -lean_dec(x_89); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_136 = l_Lean_Syntax_getArgs(x_1); -lean_dec(x_1); -x_137 = lean_unsigned_to_nat(2u); -x_138 = lean_unsigned_to_nat(0u); -x_139 = lean_box(0); -x_140 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_137, x_136, x_138, x_139, x_2, x_4); -lean_dec(x_136); -return x_140; -} -} -else -{ -lean_object* x_141; lean_object* x_142; -lean_dec(x_89); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_141 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_142 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_141, x_2, x_4); -return x_142; -} -} -} -else -{ -lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; -x_143 = lean_ctor_get(x_4, 0); -x_144 = lean_ctor_get(x_4, 1); -lean_inc(x_144); -lean_inc(x_143); +lean_inc(x_113); lean_dec(x_4); -x_145 = lean_ctor_get(x_143, 0); -lean_inc(x_145); -x_146 = lean_ctor_get(x_143, 1); -lean_inc(x_146); -x_147 = lean_ctor_get(x_143, 2); -lean_inc(x_147); -x_148 = lean_ctor_get(x_143, 3); -lean_inc(x_148); -x_149 = lean_ctor_get(x_143, 4); -lean_inc(x_149); -x_150 = lean_ctor_get(x_143, 5); -lean_inc(x_150); -if (lean_is_exclusive(x_143)) { - lean_ctor_release(x_143, 0); - lean_ctor_release(x_143, 1); - lean_ctor_release(x_143, 2); - lean_ctor_release(x_143, 3); - lean_ctor_release(x_143, 4); - lean_ctor_release(x_143, 5); - x_151 = x_143; +x_115 = lean_ctor_get(x_113, 0); +lean_inc(x_115); +x_116 = lean_ctor_get(x_113, 1); +lean_inc(x_116); +x_117 = lean_ctor_get(x_113, 2); +lean_inc(x_117); +x_118 = lean_ctor_get(x_113, 3); +lean_inc(x_118); +x_119 = lean_ctor_get(x_113, 4); +lean_inc(x_119); +x_120 = lean_ctor_get(x_113, 5); +lean_inc(x_120); +if (lean_is_exclusive(x_113)) { + lean_ctor_release(x_113, 0); + lean_ctor_release(x_113, 1); + lean_ctor_release(x_113, 2); + lean_ctor_release(x_113, 3); + lean_ctor_release(x_113, 4); + lean_ctor_release(x_113, 5); + x_121 = x_113; } else { - lean_dec_ref(x_143); - x_151 = lean_box(0); + lean_dec_ref(x_113); + x_121 = lean_box(0); } -x_152 = lean_nat_add(x_150, x_26); -if (lean_is_scalar(x_151)) { - x_153 = lean_alloc_ctor(0, 6, 0); +x_122 = lean_nat_add(x_120, x_14); +if (lean_is_scalar(x_121)) { + x_123 = lean_alloc_ctor(0, 6, 0); } else { - x_153 = x_151; + x_123 = x_121; } -lean_ctor_set(x_153, 0, x_145); -lean_ctor_set(x_153, 1, x_146); -lean_ctor_set(x_153, 2, x_147); -lean_ctor_set(x_153, 3, x_148); -lean_ctor_set(x_153, 4, x_149); -lean_ctor_set(x_153, 5, x_152); -x_154 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_154, 0, x_153); -lean_ctor_set(x_154, 1, x_144); -lean_inc(x_150); -lean_inc(x_19); -lean_inc(x_18); -lean_inc(x_17); -lean_inc(x_16); -lean_inc(x_15); -lean_inc(x_14); -lean_inc(x_13); -lean_inc(x_12); -lean_inc(x_6); -lean_ctor_set(x_5, 9, x_150); -lean_inc(x_9); -lean_inc(x_8); +lean_ctor_set(x_123, 0, x_115); +lean_ctor_set(x_123, 1, x_116); +lean_ctor_set(x_123, 2, x_117); +lean_ctor_set(x_123, 3, x_118); +lean_ctor_set(x_123, 4, x_119); +lean_ctor_set(x_123, 5, x_122); +x_124 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_124, 0, x_123); +lean_ctor_set(x_124, 1, x_114); +lean_ctor_set(x_5, 9, x_120); if (lean_obj_tag(x_1) == 1) { -lean_object* x_155; lean_object* x_156; uint8_t x_157; -x_155 = lean_ctor_get(x_1, 0); -lean_inc(x_155); -x_156 = l_Lean_nullKind; -x_157 = lean_name_eq(x_155, x_156); -lean_dec(x_155); -if (x_157 == 0) +lean_object* x_125; lean_object* x_126; uint8_t x_127; +x_125 = lean_ctor_get(x_1, 0); +lean_inc(x_125); +x_126 = l_Lean_nullKind; +x_127 = lean_name_eq(x_125, x_126); +lean_dec(x_125); +if (x_127 == 0) { -lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; +lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_inc(x_1); -x_158 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); -lean_closure_set(x_158, 0, x_1); -x_159 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; +x_128 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); +lean_closure_set(x_128, 0, x_1); +x_129 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; lean_inc(x_1); -x_160 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); -lean_closure_set(x_160, 0, x_159); -lean_closure_set(x_160, 1, x_1); -lean_closure_set(x_160, 2, x_158); +x_130 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); +lean_closure_set(x_130, 0, x_129); +lean_closure_set(x_130, 1, x_1); +lean_closure_set(x_130, 2, x_128); lean_inc(x_2); -x_161 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_160, x_2, x_154); -if (lean_obj_tag(x_161) == 0) +x_131 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_130, x_2, x_124); +if (lean_obj_tag(x_131) == 0) { -lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; -x_162 = lean_ctor_get(x_161, 1); -lean_inc(x_162); -lean_dec(x_161); -x_163 = l_Lean_Elab_Tactic_tacticElabAttribute; -x_164 = lean_ctor_get(x_163, 1); -lean_inc(x_164); -x_165 = lean_ctor_get(x_162, 0); -lean_inc(x_165); -x_166 = lean_ctor_get(x_165, 0); -lean_inc(x_166); -lean_dec(x_165); -x_167 = lean_ctor_get(x_166, 0); -lean_inc(x_167); -lean_dec(x_166); -x_168 = l_Lean_PersistentEnvExtension_getState___rarg(x_164, x_167); -lean_dec(x_167); -lean_dec(x_164); -x_169 = lean_ctor_get(x_168, 1); +lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; lean_object* x_137; lean_object* x_138; lean_object* x_139; lean_object* x_140; lean_object* x_141; +x_132 = lean_ctor_get(x_131, 1); +lean_inc(x_132); +lean_dec(x_131); +x_133 = l_Lean_Elab_Tactic_tacticElabAttribute; +x_134 = lean_ctor_get(x_133, 1); +lean_inc(x_134); +x_135 = lean_ctor_get(x_132, 0); +lean_inc(x_135); +x_136 = lean_ctor_get(x_135, 0); +lean_inc(x_136); +lean_dec(x_135); +x_137 = lean_ctor_get(x_136, 0); +lean_inc(x_137); +lean_dec(x_136); +x_138 = l_Lean_PersistentEnvExtension_getState___rarg(x_134, x_137); +lean_dec(x_137); +lean_dec(x_134); +x_139 = lean_ctor_get(x_138, 1); +lean_inc(x_139); +lean_dec(x_138); +lean_inc(x_1); +x_140 = l_Lean_Syntax_getKind(x_1); +x_141 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_139, x_140); +if (lean_obj_tag(x_141) == 0) +{ +lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; +x_142 = l_Lean_Elab_Tactic_getEnv___rarg(x_132); +x_143 = lean_ctor_get(x_142, 0); +lean_inc(x_143); +x_144 = lean_ctor_get(x_142, 1); +lean_inc(x_144); +lean_dec(x_142); +x_145 = l_Lean_Elab_macroAttribute; +x_146 = lean_ctor_get(x_145, 1); +lean_inc(x_146); +x_147 = l_Lean_PersistentEnvExtension_getState___rarg(x_146, x_143); +lean_dec(x_143); +lean_dec(x_146); +x_148 = lean_ctor_get(x_147, 1); +lean_inc(x_148); +lean_dec(x_147); +x_149 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_148, x_140); +lean_dec(x_140); +if (lean_obj_tag(x_149) == 0) +{ +lean_object* x_150; lean_object* x_151; +x_150 = lean_box(0); +x_151 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_150, x_2, x_144); +return x_151; +} +else +{ +lean_object* x_152; lean_object* x_153; +x_152 = lean_ctor_get(x_149, 0); +lean_inc(x_152); +lean_dec(x_149); +x_153 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_152, x_2, x_144); +return x_153; +} +} +else +{ +lean_object* x_154; lean_object* x_155; +lean_dec(x_140); +x_154 = lean_ctor_get(x_141, 0); +lean_inc(x_154); +lean_dec(x_141); +lean_inc(x_132); +x_155 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_132, x_1, x_154, x_2, x_132); +return x_155; +} +} +else +{ +lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; +lean_dec(x_2); +lean_dec(x_1); +x_156 = lean_ctor_get(x_131, 0); +lean_inc(x_156); +x_157 = lean_ctor_get(x_131, 1); +lean_inc(x_157); +if (lean_is_exclusive(x_131)) { + lean_ctor_release(x_131, 0); + lean_ctor_release(x_131, 1); + x_158 = x_131; +} else { + lean_dec_ref(x_131); + x_158 = lean_box(0); +} +if (lean_is_scalar(x_158)) { + x_159 = lean_alloc_ctor(1, 2, 0); +} else { + x_159 = x_158; +} +lean_ctor_set(x_159, 0, x_156); +lean_ctor_set(x_159, 1, x_157); +return x_159; +} +} +else +{ +lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; +x_160 = l_Lean_Syntax_getArgs(x_1); +lean_dec(x_1); +x_161 = lean_unsigned_to_nat(2u); +x_162 = lean_unsigned_to_nat(0u); +x_163 = lean_box(0); +x_164 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_161, x_160, x_162, x_163, x_2, x_124); +lean_dec(x_160); +return x_164; +} +} +else +{ +lean_object* x_165; lean_object* x_166; +x_165 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_166 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_165, x_2, x_124); +return x_166; +} +} +} +else +{ +lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; +x_167 = lean_ctor_get(x_6, 0); +x_168 = lean_ctor_get(x_6, 1); +x_169 = lean_ctor_get(x_6, 2); +x_170 = lean_ctor_get(x_6, 3); +x_171 = lean_ctor_get(x_6, 4); +lean_inc(x_171); +lean_inc(x_170); lean_inc(x_169); -lean_dec(x_168); -lean_inc(x_1); -x_170 = l_Lean_Syntax_getKind(x_1); -x_171 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_169, x_170); -if (lean_obj_tag(x_171) == 0) -{ -lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; -x_172 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_162); -x_173 = lean_ctor_get(x_172, 0); -lean_inc(x_173); -x_174 = lean_ctor_get(x_172, 1); -lean_inc(x_174); -lean_dec(x_172); -x_175 = l_Lean_Elab_Tactic_getEnv___rarg(x_174); -x_176 = lean_ctor_get(x_175, 0); +lean_inc(x_168); +lean_inc(x_167); +lean_dec(x_6); +x_172 = lean_unsigned_to_nat(1u); +x_173 = lean_nat_add(x_170, x_172); +lean_dec(x_170); +x_174 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_174, 0, x_167); +lean_ctor_set(x_174, 1, x_168); +lean_ctor_set(x_174, 2, x_169); +lean_ctor_set(x_174, 3, x_173); +lean_ctor_set(x_174, 4, x_171); +x_175 = lean_ctor_get(x_4, 0); +lean_inc(x_175); +x_176 = lean_ctor_get(x_4, 1); lean_inc(x_176); -x_177 = lean_ctor_get(x_175, 1); -lean_inc(x_177); -lean_dec(x_175); -lean_inc(x_1); -x_178 = l_Lean_Elab_expandMacro(x_176, x_1, x_173); -lean_dec(x_176); -if (lean_obj_tag(x_178) == 0) -{ -lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; -lean_dec(x_150); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_179 = l_System_FilePath_dirName___closed__1; -x_180 = l_Lean_Name_toStringWithSep___main(x_179, x_170); -x_181 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_181, 0, x_180); -x_182 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_182, 0, x_181); -x_183 = l_Lean_Meta_Exception_toMessageData___closed__45; -x_184 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_184, 0, x_183); -lean_ctor_set(x_184, 1, x_182); -x_185 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_186 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_186, 0, x_184); -lean_ctor_set(x_186, 1, x_185); -x_187 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_186, x_2, x_177); -return x_187; -} -else -{ -lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; -lean_dec(x_170); -lean_dec(x_2); -x_188 = lean_ctor_get(x_178, 0); -lean_inc(x_188); -lean_dec(x_178); -x_189 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_189, 0, x_1); -lean_ctor_set(x_189, 1, x_19); -x_190 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_190, 0, x_6); -lean_ctor_set(x_190, 1, x_12); -lean_ctor_set(x_190, 2, x_13); -lean_ctor_set(x_190, 3, x_14); -lean_ctor_set(x_190, 4, x_15); -lean_ctor_set(x_190, 5, x_16); -lean_ctor_set(x_190, 6, x_17); -lean_ctor_set(x_190, 7, x_18); -lean_ctor_set(x_190, 8, x_189); -lean_ctor_set(x_190, 9, x_150); -lean_ctor_set_uint8(x_190, sizeof(void*)*10, x_20); -lean_ctor_set_uint8(x_190, sizeof(void*)*10 + 1, x_21); -x_191 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_191, 0, x_190); -lean_ctor_set(x_191, 1, x_8); -lean_ctor_set(x_191, 2, x_9); -x_1 = x_188; -x_2 = x_191; -x_3 = x_177; -goto _start; -} -} -else -{ -lean_object* x_193; lean_object* x_194; -lean_dec(x_170); -lean_dec(x_150); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_193 = lean_ctor_get(x_171, 0); -lean_inc(x_193); -lean_dec(x_171); -lean_inc(x_162); -x_194 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_162, x_1, x_193, x_2, x_162); -return x_194; -} -} -else -{ -lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; -lean_dec(x_2); -lean_dec(x_150); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_1); -x_195 = lean_ctor_get(x_161, 0); -lean_inc(x_195); -x_196 = lean_ctor_get(x_161, 1); -lean_inc(x_196); -if (lean_is_exclusive(x_161)) { - lean_ctor_release(x_161, 0); - lean_ctor_release(x_161, 1); - x_197 = x_161; -} else { - lean_dec_ref(x_161); - x_197 = lean_box(0); -} -if (lean_is_scalar(x_197)) { - x_198 = lean_alloc_ctor(1, 2, 0); -} else { - x_198 = x_197; -} -lean_ctor_set(x_198, 0, x_195); -lean_ctor_set(x_198, 1, x_196); -return x_198; -} -} -else -{ -lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; -lean_dec(x_150); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_199 = l_Lean_Syntax_getArgs(x_1); -lean_dec(x_1); -x_200 = lean_unsigned_to_nat(2u); -x_201 = lean_unsigned_to_nat(0u); -x_202 = lean_box(0); -x_203 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_200, x_199, x_201, x_202, x_2, x_154); -lean_dec(x_199); -return x_203; -} -} -else -{ -lean_object* x_204; lean_object* x_205; -lean_dec(x_150); -lean_dec(x_6); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_204 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_205 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_204, x_2, x_154); -return x_205; -} -} -} -else -{ -lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; lean_object* x_213; lean_object* x_214; lean_object* x_215; lean_object* x_216; lean_object* x_217; lean_object* x_218; lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; -x_206 = lean_ctor_get(x_6, 0); -x_207 = lean_ctor_get(x_6, 1); -x_208 = lean_ctor_get(x_6, 2); -x_209 = lean_ctor_get(x_6, 3); -x_210 = lean_ctor_get(x_6, 4); -lean_inc(x_210); -lean_inc(x_209); -lean_inc(x_208); -lean_inc(x_207); -lean_inc(x_206); -lean_dec(x_6); -x_211 = lean_unsigned_to_nat(1u); -x_212 = lean_nat_add(x_209, x_211); -lean_dec(x_209); -x_213 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_213, 0, x_206); -lean_ctor_set(x_213, 1, x_207); -lean_ctor_set(x_213, 2, x_208); -lean_ctor_set(x_213, 3, x_212); -lean_ctor_set(x_213, 4, x_210); -x_214 = lean_ctor_get(x_4, 0); -lean_inc(x_214); -x_215 = lean_ctor_get(x_4, 1); -lean_inc(x_215); if (lean_is_exclusive(x_4)) { lean_ctor_release(x_4, 0); lean_ctor_release(x_4, 1); - x_216 = x_4; + x_177 = x_4; } else { lean_dec_ref(x_4); - x_216 = lean_box(0); + x_177 = lean_box(0); } -x_217 = lean_ctor_get(x_214, 0); -lean_inc(x_217); -x_218 = lean_ctor_get(x_214, 1); -lean_inc(x_218); -x_219 = lean_ctor_get(x_214, 2); -lean_inc(x_219); -x_220 = lean_ctor_get(x_214, 3); -lean_inc(x_220); -x_221 = lean_ctor_get(x_214, 4); -lean_inc(x_221); -x_222 = lean_ctor_get(x_214, 5); -lean_inc(x_222); -if (lean_is_exclusive(x_214)) { - lean_ctor_release(x_214, 0); - lean_ctor_release(x_214, 1); - lean_ctor_release(x_214, 2); - lean_ctor_release(x_214, 3); - lean_ctor_release(x_214, 4); - lean_ctor_release(x_214, 5); - x_223 = x_214; +x_178 = lean_ctor_get(x_175, 0); +lean_inc(x_178); +x_179 = lean_ctor_get(x_175, 1); +lean_inc(x_179); +x_180 = lean_ctor_get(x_175, 2); +lean_inc(x_180); +x_181 = lean_ctor_get(x_175, 3); +lean_inc(x_181); +x_182 = lean_ctor_get(x_175, 4); +lean_inc(x_182); +x_183 = lean_ctor_get(x_175, 5); +lean_inc(x_183); +if (lean_is_exclusive(x_175)) { + lean_ctor_release(x_175, 0); + lean_ctor_release(x_175, 1); + lean_ctor_release(x_175, 2); + lean_ctor_release(x_175, 3); + lean_ctor_release(x_175, 4); + lean_ctor_release(x_175, 5); + x_184 = x_175; } else { - lean_dec_ref(x_214); - x_223 = lean_box(0); + lean_dec_ref(x_175); + x_184 = lean_box(0); } -x_224 = lean_nat_add(x_222, x_211); -if (lean_is_scalar(x_223)) { - x_225 = lean_alloc_ctor(0, 6, 0); +x_185 = lean_nat_add(x_183, x_172); +if (lean_is_scalar(x_184)) { + x_186 = lean_alloc_ctor(0, 6, 0); } else { - x_225 = x_223; + x_186 = x_184; } -lean_ctor_set(x_225, 0, x_217); -lean_ctor_set(x_225, 1, x_218); -lean_ctor_set(x_225, 2, x_219); -lean_ctor_set(x_225, 3, x_220); -lean_ctor_set(x_225, 4, x_221); -lean_ctor_set(x_225, 5, x_224); -if (lean_is_scalar(x_216)) { - x_226 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_186, 0, x_178); +lean_ctor_set(x_186, 1, x_179); +lean_ctor_set(x_186, 2, x_180); +lean_ctor_set(x_186, 3, x_181); +lean_ctor_set(x_186, 4, x_182); +lean_ctor_set(x_186, 5, x_185); +if (lean_is_scalar(x_177)) { + x_187 = lean_alloc_ctor(0, 2, 0); } else { - x_226 = x_216; + x_187 = x_177; } -lean_ctor_set(x_226, 0, x_225); -lean_ctor_set(x_226, 1, x_215); -lean_inc(x_222); -lean_inc(x_19); -lean_inc(x_18); -lean_inc(x_17); -lean_inc(x_16); -lean_inc(x_15); -lean_inc(x_14); -lean_inc(x_13); -lean_inc(x_12); -lean_inc(x_213); -lean_ctor_set(x_5, 9, x_222); -lean_ctor_set(x_5, 0, x_213); -lean_inc(x_9); -lean_inc(x_8); +lean_ctor_set(x_187, 0, x_186); +lean_ctor_set(x_187, 1, x_176); +lean_ctor_set(x_5, 9, x_183); +lean_ctor_set(x_5, 0, x_174); if (lean_obj_tag(x_1) == 1) { -lean_object* x_227; lean_object* x_228; uint8_t x_229; -x_227 = lean_ctor_get(x_1, 0); -lean_inc(x_227); -x_228 = l_Lean_nullKind; -x_229 = lean_name_eq(x_227, x_228); -lean_dec(x_227); -if (x_229 == 0) +lean_object* x_188; lean_object* x_189; uint8_t x_190; +x_188 = lean_ctor_get(x_1, 0); +lean_inc(x_188); +x_189 = l_Lean_nullKind; +x_190 = lean_name_eq(x_188, x_189); +lean_dec(x_188); +if (x_190 == 0) { -lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; +lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_inc(x_1); -x_230 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); -lean_closure_set(x_230, 0, x_1); -x_231 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; +x_191 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); +lean_closure_set(x_191, 0, x_1); +x_192 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; lean_inc(x_1); -x_232 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); -lean_closure_set(x_232, 0, x_231); -lean_closure_set(x_232, 1, x_1); -lean_closure_set(x_232, 2, x_230); +x_193 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); +lean_closure_set(x_193, 0, x_192); +lean_closure_set(x_193, 1, x_1); +lean_closure_set(x_193, 2, x_191); lean_inc(x_2); -x_233 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_232, x_2, x_226); -if (lean_obj_tag(x_233) == 0) +x_194 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_193, x_2, x_187); +if (lean_obj_tag(x_194) == 0) { -lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; lean_object* x_238; lean_object* x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; -x_234 = lean_ctor_get(x_233, 1); -lean_inc(x_234); -lean_dec(x_233); -x_235 = l_Lean_Elab_Tactic_tacticElabAttribute; -x_236 = lean_ctor_get(x_235, 1); -lean_inc(x_236); -x_237 = lean_ctor_get(x_234, 0); +lean_object* x_195; lean_object* x_196; lean_object* x_197; lean_object* x_198; lean_object* x_199; lean_object* x_200; lean_object* x_201; lean_object* x_202; lean_object* x_203; lean_object* x_204; +x_195 = lean_ctor_get(x_194, 1); +lean_inc(x_195); +lean_dec(x_194); +x_196 = l_Lean_Elab_Tactic_tacticElabAttribute; +x_197 = lean_ctor_get(x_196, 1); +lean_inc(x_197); +x_198 = lean_ctor_get(x_195, 0); +lean_inc(x_198); +x_199 = lean_ctor_get(x_198, 0); +lean_inc(x_199); +lean_dec(x_198); +x_200 = lean_ctor_get(x_199, 0); +lean_inc(x_200); +lean_dec(x_199); +x_201 = l_Lean_PersistentEnvExtension_getState___rarg(x_197, x_200); +lean_dec(x_200); +lean_dec(x_197); +x_202 = lean_ctor_get(x_201, 1); +lean_inc(x_202); +lean_dec(x_201); +lean_inc(x_1); +x_203 = l_Lean_Syntax_getKind(x_1); +x_204 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_202, x_203); +if (lean_obj_tag(x_204) == 0) +{ +lean_object* x_205; lean_object* x_206; lean_object* x_207; lean_object* x_208; lean_object* x_209; lean_object* x_210; lean_object* x_211; lean_object* x_212; +x_205 = l_Lean_Elab_Tactic_getEnv___rarg(x_195); +x_206 = lean_ctor_get(x_205, 0); +lean_inc(x_206); +x_207 = lean_ctor_get(x_205, 1); +lean_inc(x_207); +lean_dec(x_205); +x_208 = l_Lean_Elab_macroAttribute; +x_209 = lean_ctor_get(x_208, 1); +lean_inc(x_209); +x_210 = l_Lean_PersistentEnvExtension_getState___rarg(x_209, x_206); +lean_dec(x_206); +lean_dec(x_209); +x_211 = lean_ctor_get(x_210, 1); +lean_inc(x_211); +lean_dec(x_210); +x_212 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_211, x_203); +lean_dec(x_203); +if (lean_obj_tag(x_212) == 0) +{ +lean_object* x_213; lean_object* x_214; +x_213 = lean_box(0); +x_214 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_213, x_2, x_207); +return x_214; +} +else +{ +lean_object* x_215; lean_object* x_216; +x_215 = lean_ctor_get(x_212, 0); +lean_inc(x_215); +lean_dec(x_212); +x_216 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_215, x_2, x_207); +return x_216; +} +} +else +{ +lean_object* x_217; lean_object* x_218; +lean_dec(x_203); +x_217 = lean_ctor_get(x_204, 0); +lean_inc(x_217); +lean_dec(x_204); +lean_inc(x_195); +x_218 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_195, x_1, x_217, x_2, x_195); +return x_218; +} +} +else +{ +lean_object* x_219; lean_object* x_220; lean_object* x_221; lean_object* x_222; +lean_dec(x_2); +lean_dec(x_1); +x_219 = lean_ctor_get(x_194, 0); +lean_inc(x_219); +x_220 = lean_ctor_get(x_194, 1); +lean_inc(x_220); +if (lean_is_exclusive(x_194)) { + lean_ctor_release(x_194, 0); + lean_ctor_release(x_194, 1); + x_221 = x_194; +} else { + lean_dec_ref(x_194); + x_221 = lean_box(0); +} +if (lean_is_scalar(x_221)) { + x_222 = lean_alloc_ctor(1, 2, 0); +} else { + x_222 = x_221; +} +lean_ctor_set(x_222, 0, x_219); +lean_ctor_set(x_222, 1, x_220); +return x_222; +} +} +else +{ +lean_object* x_223; lean_object* x_224; lean_object* x_225; lean_object* x_226; lean_object* x_227; +x_223 = l_Lean_Syntax_getArgs(x_1); +lean_dec(x_1); +x_224 = lean_unsigned_to_nat(2u); +x_225 = lean_unsigned_to_nat(0u); +x_226 = lean_box(0); +x_227 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_224, x_223, x_225, x_226, x_2, x_187); +lean_dec(x_223); +return x_227; +} +} +else +{ +lean_object* x_228; lean_object* x_229; +x_228 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_229 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_228, x_2, x_187); +return x_229; +} +} +} +else +{ +lean_object* x_230; lean_object* x_231; lean_object* x_232; lean_object* x_233; lean_object* x_234; lean_object* x_235; lean_object* x_236; lean_object* x_237; uint8_t x_238; uint8_t x_239; lean_object* x_240; lean_object* x_241; lean_object* x_242; lean_object* x_243; lean_object* x_244; 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_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; lean_object* x_260; lean_object* x_261; lean_object* x_262; +x_230 = lean_ctor_get(x_5, 1); +x_231 = lean_ctor_get(x_5, 2); +x_232 = lean_ctor_get(x_5, 3); +x_233 = lean_ctor_get(x_5, 4); +x_234 = lean_ctor_get(x_5, 5); +x_235 = lean_ctor_get(x_5, 6); +x_236 = lean_ctor_get(x_5, 7); +x_237 = lean_ctor_get(x_5, 8); +x_238 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); +x_239 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); lean_inc(x_237); -x_238 = lean_ctor_get(x_237, 0); -lean_inc(x_238); -lean_dec(x_237); -x_239 = lean_ctor_get(x_238, 0); -lean_inc(x_239); -lean_dec(x_238); -x_240 = l_Lean_PersistentEnvExtension_getState___rarg(x_236, x_239); -lean_dec(x_239); -lean_dec(x_236); -x_241 = lean_ctor_get(x_240, 1); -lean_inc(x_241); -lean_dec(x_240); -lean_inc(x_1); -x_242 = l_Lean_Syntax_getKind(x_1); -x_243 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_241, x_242); -if (lean_obj_tag(x_243) == 0) -{ -lean_object* x_244; lean_object* x_245; lean_object* x_246; lean_object* x_247; lean_object* x_248; lean_object* x_249; lean_object* x_250; -x_244 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_234); -x_245 = lean_ctor_get(x_244, 0); -lean_inc(x_245); -x_246 = lean_ctor_get(x_244, 1); -lean_inc(x_246); -lean_dec(x_244); -x_247 = l_Lean_Elab_Tactic_getEnv___rarg(x_246); -x_248 = lean_ctor_get(x_247, 0); -lean_inc(x_248); -x_249 = lean_ctor_get(x_247, 1); -lean_inc(x_249); -lean_dec(x_247); -lean_inc(x_1); -x_250 = l_Lean_Elab_expandMacro(x_248, x_1, x_245); -lean_dec(x_248); -if (lean_obj_tag(x_250) == 0) -{ -lean_object* x_251; lean_object* x_252; lean_object* x_253; lean_object* x_254; lean_object* x_255; lean_object* x_256; lean_object* x_257; lean_object* x_258; lean_object* x_259; -lean_dec(x_222); -lean_dec(x_213); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_251 = l_System_FilePath_dirName___closed__1; -x_252 = l_Lean_Name_toStringWithSep___main(x_251, x_242); -x_253 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_253, 0, x_252); -x_254 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_254, 0, x_253); -x_255 = l_Lean_Meta_Exception_toMessageData___closed__45; -x_256 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_256, 0, x_255); -lean_ctor_set(x_256, 1, x_254); -x_257 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_258 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_258, 0, x_256); -lean_ctor_set(x_258, 1, x_257); -x_259 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_258, x_2, x_249); -return x_259; -} -else -{ -lean_object* x_260; lean_object* x_261; lean_object* x_262; lean_object* x_263; -lean_dec(x_242); -lean_dec(x_2); -x_260 = lean_ctor_get(x_250, 0); -lean_inc(x_260); -lean_dec(x_250); -x_261 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_261, 0, x_1); -lean_ctor_set(x_261, 1, x_19); -x_262 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_262, 0, x_213); -lean_ctor_set(x_262, 1, x_12); -lean_ctor_set(x_262, 2, x_13); -lean_ctor_set(x_262, 3, x_14); -lean_ctor_set(x_262, 4, x_15); -lean_ctor_set(x_262, 5, x_16); -lean_ctor_set(x_262, 6, x_17); -lean_ctor_set(x_262, 7, x_18); -lean_ctor_set(x_262, 8, x_261); -lean_ctor_set(x_262, 9, x_222); -lean_ctor_set_uint8(x_262, sizeof(void*)*10, x_20); -lean_ctor_set_uint8(x_262, sizeof(void*)*10 + 1, x_21); -x_263 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_263, 0, x_262); -lean_ctor_set(x_263, 1, x_8); -lean_ctor_set(x_263, 2, x_9); -x_1 = x_260; -x_2 = x_263; -x_3 = x_249; -goto _start; -} -} -else -{ -lean_object* x_265; lean_object* x_266; -lean_dec(x_242); -lean_dec(x_222); -lean_dec(x_213); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_265 = lean_ctor_get(x_243, 0); -lean_inc(x_265); -lean_dec(x_243); +lean_inc(x_236); +lean_inc(x_235); lean_inc(x_234); -x_266 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_234, x_1, x_265, x_2, x_234); -return x_266; -} -} -else -{ -lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_object* x_270; -lean_dec(x_2); -lean_dec(x_222); -lean_dec(x_213); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -lean_dec(x_1); -x_267 = lean_ctor_get(x_233, 0); -lean_inc(x_267); -x_268 = lean_ctor_get(x_233, 1); -lean_inc(x_268); -if (lean_is_exclusive(x_233)) { - lean_ctor_release(x_233, 0); - lean_ctor_release(x_233, 1); - x_269 = x_233; -} else { - lean_dec_ref(x_233); - x_269 = lean_box(0); -} -if (lean_is_scalar(x_269)) { - x_270 = lean_alloc_ctor(1, 2, 0); -} else { - x_270 = x_269; -} -lean_ctor_set(x_270, 0, x_267); -lean_ctor_set(x_270, 1, x_268); -return x_270; -} -} -else -{ -lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; -lean_dec(x_222); -lean_dec(x_213); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_271 = l_Lean_Syntax_getArgs(x_1); -lean_dec(x_1); -x_272 = lean_unsigned_to_nat(2u); -x_273 = lean_unsigned_to_nat(0u); -x_274 = lean_box(0); -x_275 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_272, x_271, x_273, x_274, x_2, x_226); -lean_dec(x_271); -return x_275; -} -} -else -{ -lean_object* x_276; lean_object* x_277; -lean_dec(x_222); -lean_dec(x_213); -lean_dec(x_19); -lean_dec(x_18); -lean_dec(x_17); -lean_dec(x_16); -lean_dec(x_15); -lean_dec(x_14); -lean_dec(x_13); -lean_dec(x_12); -lean_dec(x_9); -lean_dec(x_8); -x_276 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_277 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_276, x_2, x_226); -return x_277; -} -} -} -else -{ -lean_object* x_278; lean_object* x_279; lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; uint8_t x_286; uint8_t 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_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; lean_object* x_303; lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; -x_278 = lean_ctor_get(x_5, 1); -x_279 = lean_ctor_get(x_5, 2); -x_280 = lean_ctor_get(x_5, 3); -x_281 = lean_ctor_get(x_5, 4); -x_282 = lean_ctor_get(x_5, 5); -x_283 = lean_ctor_get(x_5, 6); -x_284 = lean_ctor_get(x_5, 7); -x_285 = lean_ctor_get(x_5, 8); -x_286 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); -x_287 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); -lean_inc(x_285); -lean_inc(x_284); -lean_inc(x_283); -lean_inc(x_282); -lean_inc(x_281); -lean_inc(x_280); -lean_inc(x_279); -lean_inc(x_278); +lean_inc(x_233); +lean_inc(x_232); +lean_inc(x_231); +lean_inc(x_230); lean_dec(x_5); -x_288 = lean_ctor_get(x_6, 0); -lean_inc(x_288); -x_289 = lean_ctor_get(x_6, 1); -lean_inc(x_289); -x_290 = lean_ctor_get(x_6, 2); -lean_inc(x_290); -x_291 = lean_ctor_get(x_6, 3); -lean_inc(x_291); -x_292 = lean_ctor_get(x_6, 4); -lean_inc(x_292); +x_240 = lean_ctor_get(x_6, 0); +lean_inc(x_240); +x_241 = lean_ctor_get(x_6, 1); +lean_inc(x_241); +x_242 = lean_ctor_get(x_6, 2); +lean_inc(x_242); +x_243 = lean_ctor_get(x_6, 3); +lean_inc(x_243); +x_244 = lean_ctor_get(x_6, 4); +lean_inc(x_244); if (lean_is_exclusive(x_6)) { lean_ctor_release(x_6, 0); lean_ctor_release(x_6, 1); lean_ctor_release(x_6, 2); lean_ctor_release(x_6, 3); lean_ctor_release(x_6, 4); - x_293 = x_6; + x_245 = x_6; } else { lean_dec_ref(x_6); - x_293 = lean_box(0); + x_245 = lean_box(0); } -x_294 = lean_unsigned_to_nat(1u); -x_295 = lean_nat_add(x_291, x_294); -lean_dec(x_291); -if (lean_is_scalar(x_293)) { - x_296 = lean_alloc_ctor(0, 5, 0); +x_246 = lean_unsigned_to_nat(1u); +x_247 = lean_nat_add(x_243, x_246); +lean_dec(x_243); +if (lean_is_scalar(x_245)) { + x_248 = lean_alloc_ctor(0, 5, 0); } else { - x_296 = x_293; + x_248 = x_245; } -lean_ctor_set(x_296, 0, x_288); -lean_ctor_set(x_296, 1, x_289); -lean_ctor_set(x_296, 2, x_290); -lean_ctor_set(x_296, 3, x_295); -lean_ctor_set(x_296, 4, x_292); -x_297 = lean_ctor_get(x_4, 0); -lean_inc(x_297); -x_298 = lean_ctor_get(x_4, 1); -lean_inc(x_298); +lean_ctor_set(x_248, 0, x_240); +lean_ctor_set(x_248, 1, x_241); +lean_ctor_set(x_248, 2, x_242); +lean_ctor_set(x_248, 3, x_247); +lean_ctor_set(x_248, 4, x_244); +x_249 = lean_ctor_get(x_4, 0); +lean_inc(x_249); +x_250 = lean_ctor_get(x_4, 1); +lean_inc(x_250); if (lean_is_exclusive(x_4)) { lean_ctor_release(x_4, 0); lean_ctor_release(x_4, 1); - x_299 = x_4; + x_251 = x_4; } else { lean_dec_ref(x_4); - x_299 = lean_box(0); + x_251 = lean_box(0); } -x_300 = lean_ctor_get(x_297, 0); -lean_inc(x_300); -x_301 = lean_ctor_get(x_297, 1); -lean_inc(x_301); -x_302 = lean_ctor_get(x_297, 2); -lean_inc(x_302); -x_303 = lean_ctor_get(x_297, 3); -lean_inc(x_303); -x_304 = lean_ctor_get(x_297, 4); -lean_inc(x_304); -x_305 = lean_ctor_get(x_297, 5); -lean_inc(x_305); -if (lean_is_exclusive(x_297)) { - lean_ctor_release(x_297, 0); - lean_ctor_release(x_297, 1); - lean_ctor_release(x_297, 2); - lean_ctor_release(x_297, 3); - lean_ctor_release(x_297, 4); - lean_ctor_release(x_297, 5); - x_306 = x_297; +x_252 = lean_ctor_get(x_249, 0); +lean_inc(x_252); +x_253 = lean_ctor_get(x_249, 1); +lean_inc(x_253); +x_254 = lean_ctor_get(x_249, 2); +lean_inc(x_254); +x_255 = lean_ctor_get(x_249, 3); +lean_inc(x_255); +x_256 = lean_ctor_get(x_249, 4); +lean_inc(x_256); +x_257 = lean_ctor_get(x_249, 5); +lean_inc(x_257); +if (lean_is_exclusive(x_249)) { + lean_ctor_release(x_249, 0); + lean_ctor_release(x_249, 1); + lean_ctor_release(x_249, 2); + lean_ctor_release(x_249, 3); + lean_ctor_release(x_249, 4); + lean_ctor_release(x_249, 5); + x_258 = x_249; } else { - lean_dec_ref(x_297); - x_306 = lean_box(0); + lean_dec_ref(x_249); + x_258 = lean_box(0); } -x_307 = lean_nat_add(x_305, x_294); -if (lean_is_scalar(x_306)) { - x_308 = lean_alloc_ctor(0, 6, 0); +x_259 = lean_nat_add(x_257, x_246); +if (lean_is_scalar(x_258)) { + x_260 = lean_alloc_ctor(0, 6, 0); } else { - x_308 = x_306; + x_260 = x_258; } -lean_ctor_set(x_308, 0, x_300); -lean_ctor_set(x_308, 1, x_301); -lean_ctor_set(x_308, 2, x_302); -lean_ctor_set(x_308, 3, x_303); -lean_ctor_set(x_308, 4, x_304); -lean_ctor_set(x_308, 5, x_307); -if (lean_is_scalar(x_299)) { - x_309 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_260, 0, x_252); +lean_ctor_set(x_260, 1, x_253); +lean_ctor_set(x_260, 2, x_254); +lean_ctor_set(x_260, 3, x_255); +lean_ctor_set(x_260, 4, x_256); +lean_ctor_set(x_260, 5, x_259); +if (lean_is_scalar(x_251)) { + x_261 = lean_alloc_ctor(0, 2, 0); } else { - x_309 = x_299; + x_261 = x_251; } -lean_ctor_set(x_309, 0, x_308); -lean_ctor_set(x_309, 1, x_298); -lean_inc(x_305); -lean_inc(x_285); -lean_inc(x_284); -lean_inc(x_283); -lean_inc(x_282); -lean_inc(x_281); -lean_inc(x_280); -lean_inc(x_279); -lean_inc(x_278); -lean_inc(x_296); -x_310 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_310, 0, x_296); -lean_ctor_set(x_310, 1, x_278); -lean_ctor_set(x_310, 2, x_279); -lean_ctor_set(x_310, 3, x_280); -lean_ctor_set(x_310, 4, x_281); -lean_ctor_set(x_310, 5, x_282); -lean_ctor_set(x_310, 6, x_283); -lean_ctor_set(x_310, 7, x_284); -lean_ctor_set(x_310, 8, x_285); -lean_ctor_set(x_310, 9, x_305); -lean_ctor_set_uint8(x_310, sizeof(void*)*10, x_286); -lean_ctor_set_uint8(x_310, sizeof(void*)*10 + 1, x_287); -lean_inc(x_9); -lean_inc(x_8); -lean_ctor_set(x_2, 0, x_310); +lean_ctor_set(x_261, 0, x_260); +lean_ctor_set(x_261, 1, x_250); +x_262 = lean_alloc_ctor(0, 10, 2); +lean_ctor_set(x_262, 0, x_248); +lean_ctor_set(x_262, 1, x_230); +lean_ctor_set(x_262, 2, x_231); +lean_ctor_set(x_262, 3, x_232); +lean_ctor_set(x_262, 4, x_233); +lean_ctor_set(x_262, 5, x_234); +lean_ctor_set(x_262, 6, x_235); +lean_ctor_set(x_262, 7, x_236); +lean_ctor_set(x_262, 8, x_237); +lean_ctor_set(x_262, 9, x_257); +lean_ctor_set_uint8(x_262, sizeof(void*)*10, x_238); +lean_ctor_set_uint8(x_262, sizeof(void*)*10 + 1, x_239); +lean_ctor_set(x_2, 0, x_262); if (lean_obj_tag(x_1) == 1) { -lean_object* x_311; lean_object* x_312; uint8_t x_313; -x_311 = lean_ctor_get(x_1, 0); -lean_inc(x_311); -x_312 = l_Lean_nullKind; -x_313 = lean_name_eq(x_311, x_312); -lean_dec(x_311); -if (x_313 == 0) +lean_object* x_263; lean_object* x_264; uint8_t x_265; +x_263 = lean_ctor_get(x_1, 0); +lean_inc(x_263); +x_264 = l_Lean_nullKind; +x_265 = lean_name_eq(x_263, x_264); +lean_dec(x_263); +if (x_265 == 0) { -lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; +lean_object* x_266; lean_object* x_267; lean_object* x_268; lean_object* x_269; lean_inc(x_1); -x_314 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); -lean_closure_set(x_314, 0, x_1); -x_315 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; +x_266 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); +lean_closure_set(x_266, 0, x_1); +x_267 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; lean_inc(x_1); -x_316 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); -lean_closure_set(x_316, 0, x_315); -lean_closure_set(x_316, 1, x_1); -lean_closure_set(x_316, 2, x_314); +x_268 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); +lean_closure_set(x_268, 0, x_267); +lean_closure_set(x_268, 1, x_1); +lean_closure_set(x_268, 2, x_266); lean_inc(x_2); -x_317 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_316, x_2, x_309); -if (lean_obj_tag(x_317) == 0) +x_269 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_268, x_2, x_261); +if (lean_obj_tag(x_269) == 0) { -lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; -x_318 = lean_ctor_get(x_317, 1); -lean_inc(x_318); -lean_dec(x_317); -x_319 = l_Lean_Elab_Tactic_tacticElabAttribute; -x_320 = lean_ctor_get(x_319, 1); -lean_inc(x_320); -x_321 = lean_ctor_get(x_318, 0); -lean_inc(x_321); -x_322 = lean_ctor_get(x_321, 0); -lean_inc(x_322); -lean_dec(x_321); -x_323 = lean_ctor_get(x_322, 0); -lean_inc(x_323); -lean_dec(x_322); -x_324 = l_Lean_PersistentEnvExtension_getState___rarg(x_320, x_323); -lean_dec(x_323); -lean_dec(x_320); -x_325 = lean_ctor_get(x_324, 1); -lean_inc(x_325); -lean_dec(x_324); +lean_object* x_270; lean_object* x_271; lean_object* x_272; lean_object* x_273; lean_object* x_274; lean_object* x_275; lean_object* x_276; lean_object* x_277; lean_object* x_278; lean_object* x_279; +x_270 = lean_ctor_get(x_269, 1); +lean_inc(x_270); +lean_dec(x_269); +x_271 = l_Lean_Elab_Tactic_tacticElabAttribute; +x_272 = lean_ctor_get(x_271, 1); +lean_inc(x_272); +x_273 = lean_ctor_get(x_270, 0); +lean_inc(x_273); +x_274 = lean_ctor_get(x_273, 0); +lean_inc(x_274); +lean_dec(x_273); +x_275 = lean_ctor_get(x_274, 0); +lean_inc(x_275); +lean_dec(x_274); +x_276 = l_Lean_PersistentEnvExtension_getState___rarg(x_272, x_275); +lean_dec(x_275); +lean_dec(x_272); +x_277 = lean_ctor_get(x_276, 1); +lean_inc(x_277); +lean_dec(x_276); lean_inc(x_1); -x_326 = l_Lean_Syntax_getKind(x_1); -x_327 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_325, x_326); -if (lean_obj_tag(x_327) == 0) +x_278 = l_Lean_Syntax_getKind(x_1); +x_279 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_277, x_278); +if (lean_obj_tag(x_279) == 0) { -lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; -x_328 = l_Lean_Elab_Tactic_getCurrMacroScope(x_2, x_318); -x_329 = lean_ctor_get(x_328, 0); -lean_inc(x_329); -x_330 = lean_ctor_get(x_328, 1); -lean_inc(x_330); -lean_dec(x_328); -x_331 = l_Lean_Elab_Tactic_getEnv___rarg(x_330); -x_332 = lean_ctor_get(x_331, 0); -lean_inc(x_332); -x_333 = lean_ctor_get(x_331, 1); -lean_inc(x_333); -lean_dec(x_331); -lean_inc(x_1); -x_334 = l_Lean_Elab_expandMacro(x_332, x_1, x_329); -lean_dec(x_332); -if (lean_obj_tag(x_334) == 0) -{ -lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; lean_object* x_343; -lean_dec(x_305); -lean_dec(x_296); -lean_dec(x_285); -lean_dec(x_284); -lean_dec(x_283); -lean_dec(x_282); -lean_dec(x_281); +lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; lean_object* x_285; lean_object* x_286; lean_object* x_287; +x_280 = l_Lean_Elab_Tactic_getEnv___rarg(x_270); +x_281 = lean_ctor_get(x_280, 0); +lean_inc(x_281); +x_282 = lean_ctor_get(x_280, 1); +lean_inc(x_282); lean_dec(x_280); -lean_dec(x_279); +x_283 = l_Lean_Elab_macroAttribute; +x_284 = lean_ctor_get(x_283, 1); +lean_inc(x_284); +x_285 = l_Lean_PersistentEnvExtension_getState___rarg(x_284, x_281); +lean_dec(x_281); +lean_dec(x_284); +x_286 = lean_ctor_get(x_285, 1); +lean_inc(x_286); +lean_dec(x_285); +x_287 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_286, x_278); lean_dec(x_278); -lean_dec(x_9); -lean_dec(x_8); -x_335 = l_System_FilePath_dirName___closed__1; -x_336 = l_Lean_Name_toStringWithSep___main(x_335, x_326); -x_337 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_337, 0, x_336); -x_338 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_338, 0, x_337); -x_339 = l_Lean_Meta_Exception_toMessageData___closed__45; -x_340 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_340, 0, x_339); -lean_ctor_set(x_340, 1, x_338); -x_341 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_342 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_342, 0, x_340); -lean_ctor_set(x_342, 1, x_341); -x_343 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_342, x_2, x_333); -return x_343; +if (lean_obj_tag(x_287) == 0) +{ +lean_object* x_288; lean_object* x_289; +x_288 = lean_box(0); +x_289 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_288, x_2, x_282); +return x_289; } else { -lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; -lean_dec(x_326); +lean_object* x_290; lean_object* x_291; +x_290 = lean_ctor_get(x_287, 0); +lean_inc(x_290); +lean_dec(x_287); +x_291 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_290, x_2, x_282); +return x_291; +} +} +else +{ +lean_object* x_292; lean_object* x_293; +lean_dec(x_278); +x_292 = lean_ctor_get(x_279, 0); +lean_inc(x_292); +lean_dec(x_279); +lean_inc(x_270); +x_293 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_270, x_1, x_292, x_2, x_270); +return x_293; +} +} +else +{ +lean_object* x_294; lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_dec(x_2); -x_344 = lean_ctor_get(x_334, 0); -lean_inc(x_344); -lean_dec(x_334); -x_345 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_345, 0, x_1); -lean_ctor_set(x_345, 1, x_285); -x_346 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_346, 0, x_296); -lean_ctor_set(x_346, 1, x_278); -lean_ctor_set(x_346, 2, x_279); -lean_ctor_set(x_346, 3, x_280); -lean_ctor_set(x_346, 4, x_281); -lean_ctor_set(x_346, 5, x_282); -lean_ctor_set(x_346, 6, x_283); -lean_ctor_set(x_346, 7, x_284); -lean_ctor_set(x_346, 8, x_345); -lean_ctor_set(x_346, 9, x_305); -lean_ctor_set_uint8(x_346, sizeof(void*)*10, x_286); -lean_ctor_set_uint8(x_346, sizeof(void*)*10 + 1, x_287); -x_347 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_347, 0, x_346); -lean_ctor_set(x_347, 1, x_8); -lean_ctor_set(x_347, 2, x_9); -x_1 = x_344; -x_2 = x_347; -x_3 = x_333; -goto _start; -} -} -else -{ -lean_object* x_349; lean_object* x_350; -lean_dec(x_326); -lean_dec(x_305); -lean_dec(x_296); -lean_dec(x_285); -lean_dec(x_284); -lean_dec(x_283); -lean_dec(x_282); -lean_dec(x_281); -lean_dec(x_280); -lean_dec(x_279); -lean_dec(x_278); -lean_dec(x_9); -lean_dec(x_8); -x_349 = lean_ctor_get(x_327, 0); -lean_inc(x_349); -lean_dec(x_327); -lean_inc(x_318); -x_350 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_318, x_1, x_349, x_2, x_318); -return x_350; -} -} -else -{ -lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; -lean_dec(x_2); -lean_dec(x_305); -lean_dec(x_296); -lean_dec(x_285); -lean_dec(x_284); -lean_dec(x_283); -lean_dec(x_282); -lean_dec(x_281); -lean_dec(x_280); -lean_dec(x_279); -lean_dec(x_278); -lean_dec(x_9); -lean_dec(x_8); lean_dec(x_1); -x_351 = lean_ctor_get(x_317, 0); -lean_inc(x_351); -x_352 = lean_ctor_get(x_317, 1); -lean_inc(x_352); -if (lean_is_exclusive(x_317)) { - lean_ctor_release(x_317, 0); - lean_ctor_release(x_317, 1); - x_353 = x_317; +x_294 = lean_ctor_get(x_269, 0); +lean_inc(x_294); +x_295 = lean_ctor_get(x_269, 1); +lean_inc(x_295); +if (lean_is_exclusive(x_269)) { + lean_ctor_release(x_269, 0); + lean_ctor_release(x_269, 1); + x_296 = x_269; } else { - lean_dec_ref(x_317); - x_353 = lean_box(0); + lean_dec_ref(x_269); + x_296 = lean_box(0); } -if (lean_is_scalar(x_353)) { - x_354 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_296)) { + x_297 = lean_alloc_ctor(1, 2, 0); } else { - x_354 = x_353; + x_297 = x_296; } -lean_ctor_set(x_354, 0, x_351); -lean_ctor_set(x_354, 1, x_352); -return x_354; +lean_ctor_set(x_297, 0, x_294); +lean_ctor_set(x_297, 1, x_295); +return x_297; } } else { -lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; -lean_dec(x_305); -lean_dec(x_296); -lean_dec(x_285); -lean_dec(x_284); -lean_dec(x_283); -lean_dec(x_282); -lean_dec(x_281); -lean_dec(x_280); -lean_dec(x_279); -lean_dec(x_278); -lean_dec(x_9); -lean_dec(x_8); -x_355 = l_Lean_Syntax_getArgs(x_1); +lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; +x_298 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); -x_356 = lean_unsigned_to_nat(2u); -x_357 = lean_unsigned_to_nat(0u); -x_358 = lean_box(0); -x_359 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_356, x_355, x_357, x_358, x_2, x_309); -lean_dec(x_355); -return x_359; +x_299 = lean_unsigned_to_nat(2u); +x_300 = lean_unsigned_to_nat(0u); +x_301 = lean_box(0); +x_302 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_299, x_298, x_300, x_301, x_2, x_261); +lean_dec(x_298); +return x_302; } } else { -lean_object* x_360; lean_object* x_361; -lean_dec(x_305); -lean_dec(x_296); -lean_dec(x_285); -lean_dec(x_284); -lean_dec(x_283); -lean_dec(x_282); -lean_dec(x_281); -lean_dec(x_280); -lean_dec(x_279); -lean_dec(x_278); -lean_dec(x_9); -lean_dec(x_8); -x_360 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_361 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_360, x_2, x_309); -return x_361; +lean_object* x_303; lean_object* x_304; +x_303 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_304 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_303, x_2, x_261); +return x_304; } } } else { -lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; uint8_t x_372; uint8_t x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; -x_362 = lean_ctor_get(x_2, 1); -x_363 = lean_ctor_get(x_2, 2); -lean_inc(x_363); -lean_inc(x_362); +lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; lean_object* x_314; uint8_t x_315; uint8_t x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; lean_object* x_332; lean_object* x_333; lean_object* x_334; lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; +x_305 = lean_ctor_get(x_2, 1); +x_306 = lean_ctor_get(x_2, 2); +lean_inc(x_306); +lean_inc(x_305); lean_dec(x_2); -x_364 = lean_ctor_get(x_5, 1); -lean_inc(x_364); -x_365 = lean_ctor_get(x_5, 2); -lean_inc(x_365); -x_366 = lean_ctor_get(x_5, 3); -lean_inc(x_366); -x_367 = lean_ctor_get(x_5, 4); -lean_inc(x_367); -x_368 = lean_ctor_get(x_5, 5); -lean_inc(x_368); -x_369 = lean_ctor_get(x_5, 6); -lean_inc(x_369); -x_370 = lean_ctor_get(x_5, 7); -lean_inc(x_370); -x_371 = lean_ctor_get(x_5, 8); -lean_inc(x_371); -x_372 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); -x_373 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); +x_307 = lean_ctor_get(x_5, 1); +lean_inc(x_307); +x_308 = lean_ctor_get(x_5, 2); +lean_inc(x_308); +x_309 = lean_ctor_get(x_5, 3); +lean_inc(x_309); +x_310 = lean_ctor_get(x_5, 4); +lean_inc(x_310); +x_311 = lean_ctor_get(x_5, 5); +lean_inc(x_311); +x_312 = lean_ctor_get(x_5, 6); +lean_inc(x_312); +x_313 = lean_ctor_get(x_5, 7); +lean_inc(x_313); +x_314 = lean_ctor_get(x_5, 8); +lean_inc(x_314); +x_315 = lean_ctor_get_uint8(x_5, sizeof(void*)*10); +x_316 = lean_ctor_get_uint8(x_5, sizeof(void*)*10 + 1); if (lean_is_exclusive(x_5)) { lean_ctor_release(x_5, 0); lean_ctor_release(x_5, 1); @@ -6260,371 +6036,264 @@ if (lean_is_exclusive(x_5)) { lean_ctor_release(x_5, 7); lean_ctor_release(x_5, 8); lean_ctor_release(x_5, 9); - x_374 = x_5; + x_317 = x_5; } else { lean_dec_ref(x_5); - x_374 = lean_box(0); + x_317 = lean_box(0); } -x_375 = lean_ctor_get(x_6, 0); -lean_inc(x_375); -x_376 = lean_ctor_get(x_6, 1); -lean_inc(x_376); -x_377 = lean_ctor_get(x_6, 2); -lean_inc(x_377); -x_378 = lean_ctor_get(x_6, 3); -lean_inc(x_378); -x_379 = lean_ctor_get(x_6, 4); -lean_inc(x_379); +x_318 = lean_ctor_get(x_6, 0); +lean_inc(x_318); +x_319 = lean_ctor_get(x_6, 1); +lean_inc(x_319); +x_320 = lean_ctor_get(x_6, 2); +lean_inc(x_320); +x_321 = lean_ctor_get(x_6, 3); +lean_inc(x_321); +x_322 = lean_ctor_get(x_6, 4); +lean_inc(x_322); if (lean_is_exclusive(x_6)) { lean_ctor_release(x_6, 0); lean_ctor_release(x_6, 1); lean_ctor_release(x_6, 2); lean_ctor_release(x_6, 3); lean_ctor_release(x_6, 4); - x_380 = x_6; + x_323 = x_6; } else { lean_dec_ref(x_6); - x_380 = lean_box(0); + x_323 = lean_box(0); } -x_381 = lean_unsigned_to_nat(1u); -x_382 = lean_nat_add(x_378, x_381); -lean_dec(x_378); -if (lean_is_scalar(x_380)) { - x_383 = lean_alloc_ctor(0, 5, 0); +x_324 = lean_unsigned_to_nat(1u); +x_325 = lean_nat_add(x_321, x_324); +lean_dec(x_321); +if (lean_is_scalar(x_323)) { + x_326 = lean_alloc_ctor(0, 5, 0); } else { - x_383 = x_380; + x_326 = x_323; } -lean_ctor_set(x_383, 0, x_375); -lean_ctor_set(x_383, 1, x_376); -lean_ctor_set(x_383, 2, x_377); -lean_ctor_set(x_383, 3, x_382); -lean_ctor_set(x_383, 4, x_379); -x_384 = lean_ctor_get(x_4, 0); -lean_inc(x_384); -x_385 = lean_ctor_get(x_4, 1); -lean_inc(x_385); +lean_ctor_set(x_326, 0, x_318); +lean_ctor_set(x_326, 1, x_319); +lean_ctor_set(x_326, 2, x_320); +lean_ctor_set(x_326, 3, x_325); +lean_ctor_set(x_326, 4, x_322); +x_327 = lean_ctor_get(x_4, 0); +lean_inc(x_327); +x_328 = lean_ctor_get(x_4, 1); +lean_inc(x_328); if (lean_is_exclusive(x_4)) { lean_ctor_release(x_4, 0); lean_ctor_release(x_4, 1); - x_386 = x_4; + x_329 = x_4; } else { lean_dec_ref(x_4); - x_386 = lean_box(0); + x_329 = lean_box(0); } -x_387 = lean_ctor_get(x_384, 0); -lean_inc(x_387); -x_388 = lean_ctor_get(x_384, 1); -lean_inc(x_388); -x_389 = lean_ctor_get(x_384, 2); -lean_inc(x_389); -x_390 = lean_ctor_get(x_384, 3); -lean_inc(x_390); -x_391 = lean_ctor_get(x_384, 4); -lean_inc(x_391); -x_392 = lean_ctor_get(x_384, 5); -lean_inc(x_392); -if (lean_is_exclusive(x_384)) { - lean_ctor_release(x_384, 0); - lean_ctor_release(x_384, 1); - lean_ctor_release(x_384, 2); - lean_ctor_release(x_384, 3); - lean_ctor_release(x_384, 4); - lean_ctor_release(x_384, 5); - x_393 = x_384; +x_330 = lean_ctor_get(x_327, 0); +lean_inc(x_330); +x_331 = lean_ctor_get(x_327, 1); +lean_inc(x_331); +x_332 = lean_ctor_get(x_327, 2); +lean_inc(x_332); +x_333 = lean_ctor_get(x_327, 3); +lean_inc(x_333); +x_334 = lean_ctor_get(x_327, 4); +lean_inc(x_334); +x_335 = lean_ctor_get(x_327, 5); +lean_inc(x_335); +if (lean_is_exclusive(x_327)) { + lean_ctor_release(x_327, 0); + lean_ctor_release(x_327, 1); + lean_ctor_release(x_327, 2); + lean_ctor_release(x_327, 3); + lean_ctor_release(x_327, 4); + lean_ctor_release(x_327, 5); + x_336 = x_327; } else { - lean_dec_ref(x_384); - x_393 = lean_box(0); + lean_dec_ref(x_327); + x_336 = lean_box(0); } -x_394 = lean_nat_add(x_392, x_381); -if (lean_is_scalar(x_393)) { - x_395 = lean_alloc_ctor(0, 6, 0); +x_337 = lean_nat_add(x_335, x_324); +if (lean_is_scalar(x_336)) { + x_338 = lean_alloc_ctor(0, 6, 0); } else { - x_395 = x_393; + x_338 = x_336; } -lean_ctor_set(x_395, 0, x_387); -lean_ctor_set(x_395, 1, x_388); -lean_ctor_set(x_395, 2, x_389); -lean_ctor_set(x_395, 3, x_390); -lean_ctor_set(x_395, 4, x_391); -lean_ctor_set(x_395, 5, x_394); -if (lean_is_scalar(x_386)) { - x_396 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_338, 0, x_330); +lean_ctor_set(x_338, 1, x_331); +lean_ctor_set(x_338, 2, x_332); +lean_ctor_set(x_338, 3, x_333); +lean_ctor_set(x_338, 4, x_334); +lean_ctor_set(x_338, 5, x_337); +if (lean_is_scalar(x_329)) { + x_339 = lean_alloc_ctor(0, 2, 0); } else { - x_396 = x_386; + x_339 = x_329; } -lean_ctor_set(x_396, 0, x_395); -lean_ctor_set(x_396, 1, x_385); -lean_inc(x_392); -lean_inc(x_371); -lean_inc(x_370); -lean_inc(x_369); -lean_inc(x_368); -lean_inc(x_367); -lean_inc(x_366); -lean_inc(x_365); -lean_inc(x_364); -lean_inc(x_383); -if (lean_is_scalar(x_374)) { - x_397 = lean_alloc_ctor(0, 10, 2); +lean_ctor_set(x_339, 0, x_338); +lean_ctor_set(x_339, 1, x_328); +if (lean_is_scalar(x_317)) { + x_340 = lean_alloc_ctor(0, 10, 2); } else { - x_397 = x_374; + x_340 = x_317; } -lean_ctor_set(x_397, 0, x_383); -lean_ctor_set(x_397, 1, x_364); -lean_ctor_set(x_397, 2, x_365); -lean_ctor_set(x_397, 3, x_366); -lean_ctor_set(x_397, 4, x_367); -lean_ctor_set(x_397, 5, x_368); -lean_ctor_set(x_397, 6, x_369); -lean_ctor_set(x_397, 7, x_370); -lean_ctor_set(x_397, 8, x_371); -lean_ctor_set(x_397, 9, x_392); -lean_ctor_set_uint8(x_397, sizeof(void*)*10, x_372); -lean_ctor_set_uint8(x_397, sizeof(void*)*10 + 1, x_373); -lean_inc(x_363); -lean_inc(x_362); -x_398 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_398, 0, x_397); -lean_ctor_set(x_398, 1, x_362); -lean_ctor_set(x_398, 2, x_363); +lean_ctor_set(x_340, 0, x_326); +lean_ctor_set(x_340, 1, x_307); +lean_ctor_set(x_340, 2, x_308); +lean_ctor_set(x_340, 3, x_309); +lean_ctor_set(x_340, 4, x_310); +lean_ctor_set(x_340, 5, x_311); +lean_ctor_set(x_340, 6, x_312); +lean_ctor_set(x_340, 7, x_313); +lean_ctor_set(x_340, 8, x_314); +lean_ctor_set(x_340, 9, x_335); +lean_ctor_set_uint8(x_340, sizeof(void*)*10, x_315); +lean_ctor_set_uint8(x_340, sizeof(void*)*10 + 1, x_316); +x_341 = lean_alloc_ctor(0, 3, 0); +lean_ctor_set(x_341, 0, x_340); +lean_ctor_set(x_341, 1, x_305); +lean_ctor_set(x_341, 2, x_306); if (lean_obj_tag(x_1) == 1) { -lean_object* x_399; lean_object* x_400; uint8_t x_401; -x_399 = lean_ctor_get(x_1, 0); -lean_inc(x_399); -x_400 = l_Lean_nullKind; -x_401 = lean_name_eq(x_399, x_400); -lean_dec(x_399); -if (x_401 == 0) +lean_object* x_342; lean_object* x_343; uint8_t x_344; +x_342 = lean_ctor_get(x_1, 0); +lean_inc(x_342); +x_343 = l_Lean_nullKind; +x_344 = lean_name_eq(x_342, x_343); +lean_dec(x_342); +if (x_344 == 0) { -lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; +lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_inc(x_1); -x_402 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); -lean_closure_set(x_402, 0, x_1); -x_403 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; +x_345 = lean_alloc_closure((void*)(l_Lean_Elab_Tactic_evalTactic___main___lambda__1___boxed), 2, 1); +lean_closure_set(x_345, 0, x_1); +x_346 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__4; lean_inc(x_1); -x_404 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); -lean_closure_set(x_404, 0, x_403); -lean_closure_set(x_404, 1, x_1); -lean_closure_set(x_404, 2, x_402); -lean_inc(x_398); -x_405 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_404, x_398, x_396); -if (lean_obj_tag(x_405) == 0) +x_347 = lean_alloc_closure((void*)(l_Lean_Elab_Term_trace___boxed), 5, 3); +lean_closure_set(x_347, 0, x_346); +lean_closure_set(x_347, 1, x_1); +lean_closure_set(x_347, 2, x_345); +lean_inc(x_341); +x_348 = l_Lean_Elab_Tactic_liftTermElabM___rarg(x_347, x_341, x_339); +if (lean_obj_tag(x_348) == 0) { -lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; lean_object* x_415; -x_406 = lean_ctor_get(x_405, 1); -lean_inc(x_406); -lean_dec(x_405); -x_407 = l_Lean_Elab_Tactic_tacticElabAttribute; -x_408 = lean_ctor_get(x_407, 1); -lean_inc(x_408); -x_409 = lean_ctor_get(x_406, 0); -lean_inc(x_409); -x_410 = lean_ctor_get(x_409, 0); -lean_inc(x_410); -lean_dec(x_409); -x_411 = lean_ctor_get(x_410, 0); -lean_inc(x_411); -lean_dec(x_410); -x_412 = l_Lean_PersistentEnvExtension_getState___rarg(x_408, x_411); -lean_dec(x_411); -lean_dec(x_408); -x_413 = lean_ctor_get(x_412, 1); -lean_inc(x_413); -lean_dec(x_412); +lean_object* x_349; lean_object* x_350; lean_object* x_351; lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; +x_349 = lean_ctor_get(x_348, 1); +lean_inc(x_349); +lean_dec(x_348); +x_350 = l_Lean_Elab_Tactic_tacticElabAttribute; +x_351 = lean_ctor_get(x_350, 1); +lean_inc(x_351); +x_352 = lean_ctor_get(x_349, 0); +lean_inc(x_352); +x_353 = lean_ctor_get(x_352, 0); +lean_inc(x_353); +lean_dec(x_352); +x_354 = lean_ctor_get(x_353, 0); +lean_inc(x_354); +lean_dec(x_353); +x_355 = l_Lean_PersistentEnvExtension_getState___rarg(x_351, x_354); +lean_dec(x_354); +lean_dec(x_351); +x_356 = lean_ctor_get(x_355, 1); +lean_inc(x_356); +lean_dec(x_355); lean_inc(x_1); -x_414 = l_Lean_Syntax_getKind(x_1); -x_415 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_413, x_414); -if (lean_obj_tag(x_415) == 0) +x_357 = l_Lean_Syntax_getKind(x_1); +x_358 = l_Lean_SMap_find_x3f___at_Lean_Elab_Tactic_evalTactic___main___spec__1(x_356, x_357); +if (lean_obj_tag(x_358) == 0) { -lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; -x_416 = l_Lean_Elab_Tactic_getCurrMacroScope(x_398, x_406); -x_417 = lean_ctor_get(x_416, 0); -lean_inc(x_417); -x_418 = lean_ctor_get(x_416, 1); -lean_inc(x_418); -lean_dec(x_416); -x_419 = l_Lean_Elab_Tactic_getEnv___rarg(x_418); -x_420 = lean_ctor_get(x_419, 0); -lean_inc(x_420); -x_421 = lean_ctor_get(x_419, 1); -lean_inc(x_421); -lean_dec(x_419); -lean_inc(x_1); -x_422 = l_Lean_Elab_expandMacro(x_420, x_1, x_417); -lean_dec(x_420); -if (lean_obj_tag(x_422) == 0) -{ -lean_object* x_423; lean_object* x_424; lean_object* x_425; lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; -lean_dec(x_392); -lean_dec(x_383); -lean_dec(x_371); -lean_dec(x_370); -lean_dec(x_369); -lean_dec(x_368); -lean_dec(x_367); -lean_dec(x_366); -lean_dec(x_365); -lean_dec(x_364); +lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; +x_359 = l_Lean_Elab_Tactic_getEnv___rarg(x_349); +x_360 = lean_ctor_get(x_359, 0); +lean_inc(x_360); +x_361 = lean_ctor_get(x_359, 1); +lean_inc(x_361); +lean_dec(x_359); +x_362 = l_Lean_Elab_macroAttribute; +x_363 = lean_ctor_get(x_362, 1); +lean_inc(x_363); +x_364 = l_Lean_PersistentEnvExtension_getState___rarg(x_363, x_360); +lean_dec(x_360); lean_dec(x_363); -lean_dec(x_362); -x_423 = l_System_FilePath_dirName___closed__1; -x_424 = l_Lean_Name_toStringWithSep___main(x_423, x_414); -x_425 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_425, 0, x_424); -x_426 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_426, 0, x_425); -x_427 = l_Lean_Meta_Exception_toMessageData___closed__45; -x_428 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_428, 0, x_427); -lean_ctor_set(x_428, 1, x_426); -x_429 = l_Lean_Elab_Term_elabTermAux___main___closed__6; -x_430 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_430, 0, x_428); -lean_ctor_set(x_430, 1, x_429); -x_431 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_430, x_398, x_421); -return x_431; +x_365 = lean_ctor_get(x_364, 1); +lean_inc(x_365); +lean_dec(x_364); +x_366 = l_Lean_SMap_find_x3f___at_Lean_Elab_expandMacro___spec__1(x_365, x_357); +lean_dec(x_357); +if (lean_obj_tag(x_366) == 0) +{ +lean_object* x_367; lean_object* x_368; +x_367 = lean_box(0); +x_368 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_367, x_341, x_361); +return x_368; } else { -lean_object* x_432; lean_object* x_433; lean_object* x_434; lean_object* x_435; -lean_dec(x_414); -lean_dec(x_398); -x_432 = lean_ctor_get(x_422, 0); -lean_inc(x_432); -lean_dec(x_422); -x_433 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_433, 0, x_1); -lean_ctor_set(x_433, 1, x_371); -x_434 = lean_alloc_ctor(0, 10, 2); -lean_ctor_set(x_434, 0, x_383); -lean_ctor_set(x_434, 1, x_364); -lean_ctor_set(x_434, 2, x_365); -lean_ctor_set(x_434, 3, x_366); -lean_ctor_set(x_434, 4, x_367); -lean_ctor_set(x_434, 5, x_368); -lean_ctor_set(x_434, 6, x_369); -lean_ctor_set(x_434, 7, x_370); -lean_ctor_set(x_434, 8, x_433); -lean_ctor_set(x_434, 9, x_392); -lean_ctor_set_uint8(x_434, sizeof(void*)*10, x_372); -lean_ctor_set_uint8(x_434, sizeof(void*)*10 + 1, x_373); -x_435 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_435, 0, x_434); -lean_ctor_set(x_435, 1, x_362); -lean_ctor_set(x_435, 2, x_363); -x_1 = x_432; -x_2 = x_435; -x_3 = x_421; -goto _start; +lean_object* x_369; lean_object* x_370; +x_369 = lean_ctor_get(x_366, 0); +lean_inc(x_369); +lean_dec(x_366); +x_370 = l___private_Init_Lean_Elab_Tactic_Basic_2__expandTacticMacroFns___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_369, x_341, x_361); +return x_370; } } else { -lean_object* x_437; lean_object* x_438; -lean_dec(x_414); -lean_dec(x_392); -lean_dec(x_383); -lean_dec(x_371); -lean_dec(x_370); -lean_dec(x_369); -lean_dec(x_368); -lean_dec(x_367); -lean_dec(x_366); -lean_dec(x_365); -lean_dec(x_364); -lean_dec(x_363); -lean_dec(x_362); -x_437 = lean_ctor_get(x_415, 0); -lean_inc(x_437); -lean_dec(x_415); -lean_inc(x_406); -x_438 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_406, x_1, x_437, x_398, x_406); -return x_438; +lean_object* x_371; lean_object* x_372; +lean_dec(x_357); +x_371 = lean_ctor_get(x_358, 0); +lean_inc(x_371); +lean_dec(x_358); +lean_inc(x_349); +x_372 = l___private_Init_Lean_Elab_Tactic_Basic_1__evalTacticUsing___main(x_349, x_1, x_371, x_341, x_349); +return x_372; } } else { -lean_object* x_439; lean_object* x_440; lean_object* x_441; lean_object* x_442; -lean_dec(x_398); -lean_dec(x_392); -lean_dec(x_383); -lean_dec(x_371); -lean_dec(x_370); -lean_dec(x_369); -lean_dec(x_368); -lean_dec(x_367); -lean_dec(x_366); -lean_dec(x_365); -lean_dec(x_364); -lean_dec(x_363); -lean_dec(x_362); +lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; +lean_dec(x_341); lean_dec(x_1); -x_439 = lean_ctor_get(x_405, 0); -lean_inc(x_439); -x_440 = lean_ctor_get(x_405, 1); -lean_inc(x_440); -if (lean_is_exclusive(x_405)) { - lean_ctor_release(x_405, 0); - lean_ctor_release(x_405, 1); - x_441 = x_405; +x_373 = lean_ctor_get(x_348, 0); +lean_inc(x_373); +x_374 = lean_ctor_get(x_348, 1); +lean_inc(x_374); +if (lean_is_exclusive(x_348)) { + lean_ctor_release(x_348, 0); + lean_ctor_release(x_348, 1); + x_375 = x_348; } else { - lean_dec_ref(x_405); - x_441 = lean_box(0); + lean_dec_ref(x_348); + x_375 = lean_box(0); } -if (lean_is_scalar(x_441)) { - x_442 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_375)) { + x_376 = lean_alloc_ctor(1, 2, 0); } else { - x_442 = x_441; + x_376 = x_375; } -lean_ctor_set(x_442, 0, x_439); -lean_ctor_set(x_442, 1, x_440); -return x_442; +lean_ctor_set(x_376, 0, x_373); +lean_ctor_set(x_376, 1, x_374); +return x_376; } } else { -lean_object* x_443; lean_object* x_444; lean_object* x_445; lean_object* x_446; lean_object* x_447; -lean_dec(x_392); -lean_dec(x_383); -lean_dec(x_371); -lean_dec(x_370); -lean_dec(x_369); -lean_dec(x_368); -lean_dec(x_367); -lean_dec(x_366); -lean_dec(x_365); -lean_dec(x_364); -lean_dec(x_363); -lean_dec(x_362); -x_443 = l_Lean_Syntax_getArgs(x_1); +lean_object* x_377; lean_object* x_378; lean_object* x_379; lean_object* x_380; lean_object* x_381; +x_377 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); -x_444 = lean_unsigned_to_nat(2u); -x_445 = lean_unsigned_to_nat(0u); -x_446 = lean_box(0); -x_447 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_444, x_443, x_445, x_446, x_398, x_396); -lean_dec(x_443); -return x_447; +x_378 = lean_unsigned_to_nat(2u); +x_379 = lean_unsigned_to_nat(0u); +x_380 = lean_box(0); +x_381 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_378, x_377, x_379, x_380, x_341, x_339); +lean_dec(x_377); +return x_381; } } else { -lean_object* x_448; lean_object* x_449; -lean_dec(x_392); -lean_dec(x_383); -lean_dec(x_371); -lean_dec(x_370); -lean_dec(x_369); -lean_dec(x_368); -lean_dec(x_367); -lean_dec(x_366); -lean_dec(x_365); -lean_dec(x_364); -lean_dec(x_363); -lean_dec(x_362); -x_448 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; -x_449 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_448, x_398, x_396); -return x_449; +lean_object* x_382; lean_object* x_383; +x_382 = l_Lean_Elab_Tactic_evalTactic___main___closed__3; +x_383 = l_Lean_Elab_Tactic_throwError___rarg(x_1, x_382, x_341, x_339); +return x_383; } } } @@ -6690,11 +6359,11 @@ lean_dec(x_2); return x_3; } } -lean_object* l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7___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_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8___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_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_1, x_2, x_3, x_4, x_5, x_6); +x_7 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_1, x_2, x_3, x_4, x_5, x_6); lean_dec(x_2); lean_dec(x_1); return x_7; @@ -12385,7 +12054,7 @@ x_6 = l_Lean_Syntax_getArgs(x_5); lean_dec(x_5); x_7 = lean_unsigned_to_nat(2u); x_8 = lean_box(0); -x_9 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__7(x_7, x_6, x_4, x_8, x_2, x_3); +x_9 = l_Array_foldlStepMAux___main___at_Lean_Elab_Tactic_evalTactic___main___spec__8(x_7, x_6, x_4, x_8, x_2, x_3); lean_dec(x_6); return x_9; } @@ -13677,7 +13346,7 @@ x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(lean_object* x_1) { _start: { switch (lean_obj_tag(x_1)) { @@ -13685,7 +13354,7 @@ case 7: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = lean_ctor_get(x_1, 2); -x_3 = l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(x_2); +x_3 = l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(x_2); x_4 = lean_unsigned_to_nat(1u); x_5 = lean_nat_add(x_3, x_4); lean_dec(x_3); @@ -13695,7 +13364,7 @@ case 8: { lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; x_6 = lean_ctor_get(x_1, 3); -x_7 = l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(x_6); +x_7 = l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(x_6); x_8 = lean_unsigned_to_nat(1u); x_9 = lean_nat_add(x_7, x_8); lean_dec(x_7); @@ -13710,28 +13379,28 @@ return x_10; } } } -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main___boxed(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(x_1); +x_2 = l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(x_1); lean_dec(x_1); return x_2; } } -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(x_1); +x_2 = l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(x_1); return x_2; } } -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___boxed(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___boxed(lean_object* x_1) { _start: { lean_object* x_2; -x_2 = l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize(x_1); +x_2 = l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize(x_1); lean_dec(x_1); return x_2; } @@ -13864,7 +13533,7 @@ lean_inc(x_8); x_9 = lean_ctor_get(x_7, 1); lean_inc(x_9); lean_dec(x_7); -x_10 = l___private_Init_Lean_Elab_Tactic_Basic_2__getIntrosSize___main(x_8); +x_10 = l___private_Init_Lean_Elab_Tactic_Basic_3__getIntrosSize___main(x_8); lean_dec(x_8); x_11 = lean_box(0); x_12 = l_Lean_Meta_introNCore___at_Lean_Meta_introN___spec__1(x_1, x_10, x_11, x_2, x_9); @@ -14905,7 +14574,7 @@ x_5 = l_Lean_Elab_Tactic_addBuiltinTactic(x_2, x_3, x_4, x_1); return x_5; } } -lean_object* _init_l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses___closed__1() { +lean_object* _init_l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses___closed__1() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; @@ -14915,11 +14584,11 @@ x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses(lean_object* x_1) { +lean_object* l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; -x_2 = l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses___closed__1; +x_2 = l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses___closed__1; x_3 = l_Lean_registerTraceClass(x_2, x_1); if (lean_obj_tag(x_3) == 0) { @@ -15250,9 +14919,9 @@ lean_mark_persistent(l___regBuiltinTactic_Lean_Elab_Tactic_evalOrelse___closed__ res = l___regBuiltinTactic_Lean_Elab_Tactic_evalOrelse(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses___closed__1 = _init_l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses___closed__1); -res = l___private_Init_Lean_Elab_Tactic_Basic_3__regTraceClasses(lean_io_mk_world()); +l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses___closed__1 = _init_l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses___closed__1); +res = l___private_Init_Lean_Elab_Tactic_Basic_4__regTraceClasses(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); return lean_mk_io_result(lean_box(0)); diff --git a/stage0/stdlib/Init/Lean/Elab/Term.c b/stage0/stdlib/Init/Lean/Elab/Term.c index f793a0b86e..0daa9c21d2 100644 --- a/stage0/stdlib/Init/Lean/Elab/Term.c +++ b/stage0/stdlib/Init/Lean/Elab/Term.c @@ -657,6 +657,7 @@ lean_object* l_Lean_Elab_Term_monadLog___closed__11; lean_object* l_Lean_Elab_Term_mkTacticMVar___closed__2; extern lean_object* l_Lean_Expr_Inhabited; lean_object* l_Lean_Meta_instantiateMVars(lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2; lean_object* l_Lean_Elab_Term_addBuiltinTermElab(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_mkExplicitBinder___closed__1; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabStr(lean_object*); @@ -757,7 +758,6 @@ lean_object* l_Lean_Elab_Term_elabRawNumLit___closed__5; lean_object* l_Lean_Elab_Term_mkExplicitBinder___closed__6; lean_object* l___private_Init_Lean_Elab_Term_9__mkPairsAux___main___closed__1; lean_object* l_Lean_Elab_Term_resolveName___closed__1; -extern lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; lean_object* l___regBuiltinTermElab_Lean_Elab_Term_elabHole___closed__2; lean_object* l_IO_ofExcept___at___private_Init_Lean_Elab_Util_6__ElabAttribute_add___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_resettingSynthInstanceCache(lean_object*); @@ -3122,7 +3122,7 @@ lean_dec(x_13); lean_dec(x_11); lean_dec(x_2); lean_dec(x_1); -x_25 = l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +x_25 = l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___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_12); diff --git a/stage0/stdlib/Init/Lean/Hygiene.c b/stage0/stdlib/Init/Lean/Hygiene.c index 374a757976..aea0716c92 100644 --- a/stage0/stdlib/Init/Lean/Hygiene.c +++ b/stage0/stdlib/Init/Lean/Hygiene.c @@ -13,12 +13,8 @@ #ifdef __cplusplus extern "C" { #endif -lean_object* l_List_reverse___rarg(lean_object*); lean_object* l_Lean_Unhygienic_MonadQuotation___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_extractMacroScopes(lean_object*); lean_object* l_Lean_Unhygienic_MonadQuotation___closed__3; -lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); -lean_object* l___private_Init_Lean_Hygiene_1__extractMacroScopesAux(lean_object*, lean_object*); lean_object* l_Lean_Unhygienic_run(lean_object*); lean_object* l_Lean_monadQuotationTrans___rarg(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_add(lean_object*, lean_object*); @@ -32,7 +28,6 @@ lean_object* l_Lean_Unhygienic_MonadQuotation; lean_object* l_Lean_Unhygienic_MonadQuotation___closed__1; lean_object* l_Lean_monadQuotationTrans___rarg___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Unhygienic_MonadQuotation___closed__2; -lean_object* l___private_Init_Lean_Hygiene_1__extractMacroScopesAux___main(lean_object*, lean_object*); lean_object* l_ReaderT_read___at_Lean_Unhygienic_MonadQuotation___spec__1(lean_object* x_1, lean_object* x_2) { _start: { @@ -119,63 +114,6 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Unhygienic_run___rarg), 1, 0); return x_2; } } -lean_object* l___private_Init_Lean_Hygiene_1__extractMacroScopesAux___main(lean_object* x_1, lean_object* x_2) { -_start: -{ -if (lean_obj_tag(x_1) == 2) -{ -lean_object* x_3; lean_object* x_4; lean_object* x_5; -x_3 = lean_ctor_get(x_1, 0); -lean_inc(x_3); -x_4 = lean_ctor_get(x_1, 1); -lean_inc(x_4); -lean_dec(x_1); -x_5 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_5, 0, x_4); -lean_ctor_set(x_5, 1, x_2); -x_1 = x_3; -x_2 = x_5; -goto _start; -} -else -{ -lean_object* x_7; lean_object* x_8; -x_7 = l_List_reverse___rarg(x_2); -x_8 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_8, 0, x_1); -lean_ctor_set(x_8, 1, x_7); -return x_8; -} -} -} -lean_object* l___private_Init_Lean_Hygiene_1__extractMacroScopesAux(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l___private_Init_Lean_Hygiene_1__extractMacroScopesAux___main(x_1, x_2); -return x_3; -} -} -lean_object* l_Lean_extractMacroScopes(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; -x_2 = lean_box(0); -x_3 = l___private_Init_Lean_Hygiene_1__extractMacroScopesAux___main(x_1, x_2); -return x_3; -} -} -lean_object* l_Lean_Name_eraseMacroScopes(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; -x_2 = l_Lean_extractMacroScopes(x_1); -x_3 = lean_ctor_get(x_2, 0); -lean_inc(x_3); -lean_dec(x_2); -return x_3; -} -} lean_object* l_Lean_monadQuotationTrans___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { diff --git a/stage0/stdlib/Init/Lean/Meta/Offset.c b/stage0/stdlib/Init/Lean/Meta/Offset.c index 8ae7b9370f..1e5cf3cfc8 100644 --- a/stage0/stdlib/Init/Lean/Meta/Offset.c +++ b/stage0/stdlib/Init/Lean/Meta/Offset.c @@ -13,7 +13,6 @@ #ifdef __cplusplus extern "C" { #endif -extern lean_object* l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1; lean_object* l___private_Init_Lean_Meta_Offset_1__getOffsetAux___main___boxed(lean_object*, lean_object*); uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Lean_Meta_isExprDefEqAux(lean_object*, lean_object*, lean_object*, lean_object*); @@ -30,6 +29,7 @@ lean_object* l_Lean_Meta_evalNat___main___closed__11; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Meta_evalNat___main(lean_object*); lean_object* l_Lean_Meta_isDefEqOffset(lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l___private_Init_LeanInit_7__decodeNatLitVal___closed__1; lean_object* l_Lean_Meta_evalNat___main___closed__12; lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_Lean_Literal_type___closed__1; @@ -233,7 +233,7 @@ return x_12; else { lean_object* x_13; -x_13 = l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1; +x_13 = l___private_Init_LeanInit_7__decodeNatLitVal___closed__1; return x_13; } } diff --git a/stage0/stdlib/Init/Lean/Parser/Command.c b/stage0/stdlib/Init/Lean/Parser/Command.c index e098821012..83a34d3cda 100644 --- a/stage0/stdlib/Init/Lean/Parser/Command.c +++ b/stage0/stdlib/Init/Lean/Parser/Command.c @@ -305,7 +305,6 @@ lean_object* l_Lean_Parser_Command_namespace___closed__3; lean_object* l_Lean_Parser_Command_openHiding___closed__3; lean_object* l_Lean_Parser_Command_init__quot___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__1; -extern lean_object* l_Lean_Parser_strLit___closed__1; lean_object* l_Lean_Parser_Command_openHiding___closed__5; lean_object* l_Lean_Parser_Command_protected___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_introRule___elambda__1___closed__3; @@ -342,7 +341,6 @@ lean_object* l_Lean_Parser_Command_attrInstance___closed__2; lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_universe___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_variables___elambda__1___closed__8; -extern lean_object* l_Lean_Parser_numLit___closed__1; lean_object* l_Lean_Parser_Command_structure; lean_object* l_Lean_Parser_Command_declModifiers___closed__6; lean_object* l___regBuiltinParser_Lean_Parser_Command_declaration(lean_object*); @@ -351,6 +349,7 @@ lean_object* l_Lean_Parser_Command_openRenamingItem___closed__7; extern lean_object* l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; lean_object* l_Lean_Parser_Command_attribute___elambda__1___closed__10; lean_object* l_Lean_Parser_Command_protected___elambda__1___closed__9; +extern lean_object* l_Lean_Parser_Term_str___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_check___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_set__option___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_set__option___elambda__1___closed__8; @@ -546,6 +545,7 @@ lean_object* l_Lean_Parser_Command_example___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_variable___elambda__1___closed__8; lean_object* l_Lean_Parser_Command_strictInferMod___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_partial___closed__3; +extern lean_object* l_Lean_Parser_Level_num___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_structExplicitBinder___closed__2; lean_object* l_Lean_Parser_Command_openRenaming___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_stxQuot___closed__2; @@ -887,7 +887,6 @@ lean_object* l_Lean_Parser_Command_section___closed__7; lean_object* l_Lean_Parser_Command_noncomputable___elambda__1___closed__8; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Command_declValEqns___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_structure___closed__9; -lean_object* l_Lean_Parser_strLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_declaration___closed__2; lean_object* l_Lean_Parser_Command_end___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_constant___elambda__1___closed__8; @@ -1093,7 +1092,6 @@ lean_object* l_Lean_Parser_regCommandParserAttribute(lean_object*); lean_object* l_Lean_Parser_Command_variables___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_declaration___closed__13; lean_object* l_Lean_Parser_Command_namespace___closed__6; -lean_object* l_Lean_Parser_numLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_init__quot___closed__4; lean_object* l_Lean_Parser_Command_structure___closed__5; lean_object* l_Lean_Parser_Command_abbrev___closed__6; @@ -2330,100 +2328,118 @@ return x_1; lean_object* l_Lean_Parser_Command_attrArg___elambda__1(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; -x_4 = l_Lean_Parser_Level_ident___elambda__1___closed__4; +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; +x_4 = l_Lean_Parser_Term_str___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); -lean_inc(x_8); -lean_inc(x_2); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); +x_6 = l_Lean_Parser_Level_num___elambda__1___closed__5; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = l_Lean_Parser_Level_ident___elambda__1___closed__4; +x_9 = lean_ctor_get(x_8, 1); +lean_inc(x_9); +x_10 = lean_ctor_get(x_3, 0); lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); +x_11 = lean_array_get_size(x_10); lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +x_12 = lean_ctor_get(x_3, 1); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); -lean_dec(x_12); -if (x_13 == 0) +lean_inc(x_2); +lean_inc(x_1); +x_13 = lean_apply_3(x_9, x_1, x_2, x_3); +x_14 = lean_ctor_get(x_13, 3); +lean_inc(x_14); +if (lean_obj_tag(x_14) == 0) { +lean_dec(x_12); lean_dec(x_11); -lean_dec(x_8); lean_dec(x_7); +lean_dec(x_5); lean_dec(x_2); -return x_9; +lean_dec(x_1); +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_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); +lean_object* x_15; lean_object* x_16; uint8_t x_17; x_15 = lean_ctor_get(x_14, 0); lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); -lean_inc(x_2); -x_17 = l_Lean_Parser_strLitFn___rarg(x_2, x_14); -x_18 = lean_ctor_get(x_17, 3); -lean_inc(x_18); -if (lean_obj_tag(x_18) == 0) -{ -lean_object* x_19; +lean_dec(x_14); +x_16 = lean_ctor_get(x_13, 1); +lean_inc(x_16); +x_17 = lean_nat_dec_eq(x_16, x_12); lean_dec(x_16); +if (x_17 == 0) +{ +lean_dec(x_15); +lean_dec(x_12); +lean_dec(x_11); +lean_dec(x_7); +lean_dec(x_5); lean_dec(x_2); -x_19 = l_Lean_Parser_mergeOrElseErrors(x_17, x_11, x_8); -lean_dec(x_8); -return x_19; +lean_dec(x_1); +return x_13; } else { -lean_object* x_20; lean_object* x_21; uint8_t x_22; -x_20 = lean_ctor_get(x_18, 0); -lean_inc(x_20); -lean_dec(x_18); -x_21 = lean_ctor_get(x_17, 1); -lean_inc(x_21); -x_22 = lean_nat_dec_eq(x_21, x_8); -lean_dec(x_21); -if (x_22 == 0) +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; +lean_inc(x_12); +x_18 = l_Lean_Parser_ParserState_restore(x_13, x_11, x_12); +lean_dec(x_11); +x_19 = lean_ctor_get(x_18, 0); +lean_inc(x_19); +x_20 = lean_array_get_size(x_19); +lean_dec(x_19); +lean_inc(x_2); +lean_inc(x_1); +x_21 = lean_apply_3(x_5, x_1, x_2, x_18); +x_22 = lean_ctor_get(x_21, 3); +lean_inc(x_22); +if (lean_obj_tag(x_22) == 0) { lean_object* x_23; lean_dec(x_20); -lean_dec(x_16); +lean_dec(x_7); lean_dec(x_2); -x_23 = l_Lean_Parser_mergeOrElseErrors(x_17, x_11, x_8); -lean_dec(x_8); +lean_dec(x_1); +x_23 = l_Lean_Parser_mergeOrElseErrors(x_21, x_15, x_12); +lean_dec(x_12); return x_23; } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; -lean_inc(x_8); -x_24 = l_Lean_Parser_ParserState_restore(x_17, x_16, x_8); -lean_dec(x_16); -x_25 = l_Lean_Parser_numLitFn___rarg(x_2, x_24); -x_26 = l_Lean_Parser_mergeOrElseErrors(x_25, x_20, x_8); -x_27 = l_Lean_Parser_mergeOrElseErrors(x_26, x_11, x_8); -lean_dec(x_8); +lean_object* x_24; lean_object* x_25; uint8_t x_26; +x_24 = lean_ctor_get(x_22, 0); +lean_inc(x_24); +lean_dec(x_22); +x_25 = lean_ctor_get(x_21, 1); +lean_inc(x_25); +x_26 = lean_nat_dec_eq(x_25, x_12); +lean_dec(x_25); +if (x_26 == 0) +{ +lean_object* x_27; +lean_dec(x_24); +lean_dec(x_20); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_27 = l_Lean_Parser_mergeOrElseErrors(x_21, x_15, x_12); +lean_dec(x_12); return x_27; } +else +{ +lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; +lean_inc(x_12); +x_28 = l_Lean_Parser_ParserState_restore(x_21, x_20, x_12); +lean_dec(x_20); +x_29 = lean_apply_3(x_7, x_1, x_2, x_28); +x_30 = l_Lean_Parser_mergeOrElseErrors(x_29, x_24, x_12); +x_31 = l_Lean_Parser_mergeOrElseErrors(x_30, x_15, x_12); +lean_dec(x_12); +return x_31; +} } } } @@ -2432,11 +2448,15 @@ return x_27; lean_object* _init_l_Lean_Parser_Command_attrArg___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_strLit___closed__1; -x_2 = l_Lean_Parser_numLit___closed__1; -x_3 = l_Lean_Parser_orelseInfo(x_1, x_2); -return x_3; +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_str___elambda__1___closed__5; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Level_num___elambda__1___closed__5; +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; } } lean_object* _init_l_Lean_Parser_Command_attrArg___closed__2() { @@ -21235,334 +21255,367 @@ return x_3; lean_object* l_Lean_Parser_Command_set__option___elambda__1(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; -x_4 = l_Lean_Parser_Level_ident___elambda__1___closed__4; +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; +x_4 = l_Lean_Parser_Term_str___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = l_Lean_Parser_Command_set__option___elambda__1___closed__4; +x_6 = l_Lean_Parser_Level_num___elambda__1___closed__5; x_7 = lean_ctor_get(x_6, 1); lean_inc(x_7); -x_8 = lean_ctor_get(x_3, 0); -lean_inc(x_8); -x_9 = lean_array_get_size(x_8); -lean_dec(x_8); -x_10 = lean_ctor_get(x_3, 1); -lean_inc(x_10); +x_8 = l_Lean_Parser_Level_ident___elambda__1___closed__4; +x_9 = lean_ctor_get(x_8, 1); +lean_inc(x_9); +x_10 = l_Lean_Parser_Command_set__option___elambda__1___closed__4; +x_11 = lean_ctor_get(x_10, 1); +lean_inc(x_11); +x_12 = lean_ctor_get(x_3, 0); +lean_inc(x_12); +x_13 = lean_array_get_size(x_12); +lean_dec(x_12); +x_14 = lean_ctor_get(x_3, 1); +lean_inc(x_14); lean_inc(x_2); lean_inc(x_1); -x_11 = lean_apply_3(x_7, x_1, x_2, x_3); -x_12 = lean_ctor_get(x_11, 3); -lean_inc(x_12); -if (lean_obj_tag(x_12) == 0) +x_15 = lean_apply_3(x_11, x_1, x_2, x_3); +x_16 = lean_ctor_get(x_15, 3); +lean_inc(x_16); +if (lean_obj_tag(x_16) == 0) { -lean_dec(x_10); -lean_dec(x_9); -lean_dec(x_5); -lean_dec(x_2); -lean_dec(x_1); -return x_11; -} -else -{ -lean_object* x_13; lean_object* x_14; uint8_t x_15; -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); -lean_dec(x_12); -x_14 = lean_ctor_get(x_11, 1); -lean_inc(x_14); -x_15 = lean_nat_dec_eq(x_14, x_10); lean_dec(x_14); -if (x_15 == 0) -{ lean_dec(x_13); -lean_dec(x_10); lean_dec(x_9); +lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -return x_11; +return x_15; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_90; lean_object* x_91; -lean_inc(x_10); -x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); -lean_dec(x_9); +lean_object* x_17; lean_object* x_18; uint8_t x_19; x_17 = lean_ctor_get(x_16, 0); lean_inc(x_17); -x_18 = lean_array_get_size(x_17); +lean_dec(x_16); +x_18 = lean_ctor_get(x_15, 1); +lean_inc(x_18); +x_19 = lean_nat_dec_eq(x_18, x_14); +lean_dec(x_18); +if (x_19 == 0) +{ lean_dec(x_17); -lean_inc(x_2); -x_90 = l_Lean_Parser_tokenFn(x_2, x_16); -x_91 = lean_ctor_get(x_90, 3); -lean_inc(x_91); -if (lean_obj_tag(x_91) == 0) -{ -lean_object* x_92; lean_object* x_93; -x_92 = lean_ctor_get(x_90, 0); -lean_inc(x_92); -x_93 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_92); -lean_dec(x_92); -if (lean_obj_tag(x_93) == 2) -{ -lean_object* x_94; lean_object* x_95; uint8_t x_96; -x_94 = lean_ctor_get(x_93, 1); -lean_inc(x_94); -lean_dec(x_93); -x_95 = l_Lean_Parser_Command_set__option___elambda__1___closed__6; -x_96 = lean_string_dec_eq(x_94, x_95); -lean_dec(x_94); -if (x_96 == 0) -{ -lean_object* x_97; lean_object* x_98; -x_97 = l_Lean_Parser_Command_set__option___elambda__1___closed__15; -lean_inc(x_10); -x_98 = l_Lean_Parser_ParserState_mkErrorsAt(x_90, x_97, x_10); -x_19 = x_98; -goto block_89; -} -else -{ -x_19 = x_90; -goto block_89; -} -} -else -{ -lean_object* x_99; lean_object* x_100; -lean_dec(x_93); -x_99 = l_Lean_Parser_Command_set__option___elambda__1___closed__15; -lean_inc(x_10); -x_100 = l_Lean_Parser_ParserState_mkErrorsAt(x_90, x_99, x_10); -x_19 = x_100; -goto block_89; -} -} -else -{ -lean_object* x_101; lean_object* x_102; -lean_dec(x_91); -x_101 = l_Lean_Parser_Command_set__option___elambda__1___closed__15; -lean_inc(x_10); -x_102 = l_Lean_Parser_ParserState_mkErrorsAt(x_90, x_101, x_10); -x_19 = x_102; -goto block_89; -} -block_89: -{ -lean_object* x_20; -x_20 = lean_ctor_get(x_19, 3); -lean_inc(x_20); -if (lean_obj_tag(x_20) == 0) -{ -lean_object* x_21; lean_object* x_22; -lean_inc(x_2); -x_21 = lean_apply_3(x_5, x_1, x_2, x_19); -x_22 = lean_ctor_get(x_21, 3); -lean_inc(x_22); -if (lean_obj_tag(x_22) == 0) -{ -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; -x_23 = lean_ctor_get(x_21, 0); -lean_inc(x_23); -x_24 = lean_array_get_size(x_23); -lean_dec(x_23); -x_25 = lean_ctor_get(x_21, 1); -lean_inc(x_25); -x_26 = l_Lean_Parser_Command_set__option___elambda__1___closed__7; -x_27 = l_Lean_Parser_Command_set__option___elambda__1___closed__10; -lean_inc(x_2); -x_28 = l_Lean_Parser_nonReservedSymbolFnAux(x_26, x_27, x_2, x_21); -x_29 = lean_ctor_get(x_28, 3); -lean_inc(x_29); -if (lean_obj_tag(x_29) == 0) -{ -lean_object* x_30; lean_object* x_31; lean_object* x_32; -lean_dec(x_25); -lean_dec(x_24); -lean_dec(x_2); -x_30 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_31 = l_Lean_Parser_ParserState_mkNode(x_28, x_30, x_18); -x_32 = l_Lean_Parser_mergeOrElseErrors(x_31, x_13, x_10); -lean_dec(x_10); -return x_32; -} -else -{ -lean_object* x_33; lean_object* x_34; uint8_t x_35; -x_33 = lean_ctor_get(x_29, 0); -lean_inc(x_33); -lean_dec(x_29); -x_34 = lean_ctor_get(x_28, 1); -lean_inc(x_34); -x_35 = lean_nat_dec_eq(x_34, x_25); -lean_dec(x_34); -if (x_35 == 0) -{ -lean_object* x_36; lean_object* x_37; lean_object* x_38; -lean_dec(x_33); -lean_dec(x_25); -lean_dec(x_24); -lean_dec(x_2); -x_36 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_37 = l_Lean_Parser_ParserState_mkNode(x_28, x_36, x_18); -x_38 = l_Lean_Parser_mergeOrElseErrors(x_37, x_13, x_10); -lean_dec(x_10); -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_inc(x_25); -x_39 = l_Lean_Parser_ParserState_restore(x_28, x_24, x_25); -lean_dec(x_24); -x_40 = lean_ctor_get(x_39, 0); -lean_inc(x_40); -x_41 = lean_array_get_size(x_40); -lean_dec(x_40); -x_42 = l_Lean_Parser_Command_set__option___elambda__1___closed__8; -x_43 = l_Lean_Parser_Command_set__option___elambda__1___closed__12; -lean_inc(x_2); -x_44 = l_Lean_Parser_nonReservedSymbolFnAux(x_42, x_43, x_2, x_39); -x_45 = lean_ctor_get(x_44, 3); -lean_inc(x_45); -if (lean_obj_tag(x_45) == 0) -{ -lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; -lean_dec(x_41); -lean_dec(x_2); -x_46 = l_Lean_Parser_mergeOrElseErrors(x_44, x_33, x_25); -lean_dec(x_25); -x_47 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_48 = l_Lean_Parser_ParserState_mkNode(x_46, x_47, x_18); -x_49 = l_Lean_Parser_mergeOrElseErrors(x_48, x_13, x_10); -lean_dec(x_10); -return x_49; -} -else -{ -lean_object* x_50; lean_object* x_51; uint8_t x_52; -x_50 = lean_ctor_get(x_45, 0); -lean_inc(x_50); -lean_dec(x_45); -x_51 = lean_ctor_get(x_44, 1); -lean_inc(x_51); -x_52 = lean_nat_dec_eq(x_51, x_25); -lean_dec(x_51); -if (x_52 == 0) -{ -lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; -lean_dec(x_50); -lean_dec(x_41); -lean_dec(x_2); -x_53 = l_Lean_Parser_mergeOrElseErrors(x_44, x_33, x_25); -lean_dec(x_25); -x_54 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_55 = l_Lean_Parser_ParserState_mkNode(x_53, x_54, x_18); -x_56 = l_Lean_Parser_mergeOrElseErrors(x_55, x_13, x_10); -lean_dec(x_10); -return x_56; -} -else -{ -lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; -lean_inc(x_25); -x_57 = l_Lean_Parser_ParserState_restore(x_44, x_41, x_25); -lean_dec(x_41); -x_58 = lean_ctor_get(x_57, 0); -lean_inc(x_58); -x_59 = lean_array_get_size(x_58); -lean_dec(x_58); -lean_inc(x_2); -x_60 = l_Lean_Parser_strLitFn___rarg(x_2, x_57); -x_61 = lean_ctor_get(x_60, 3); -lean_inc(x_61); -if (lean_obj_tag(x_61) == 0) -{ -lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; -lean_dec(x_59); -lean_dec(x_2); -x_62 = l_Lean_Parser_mergeOrElseErrors(x_60, x_50, x_25); -x_63 = l_Lean_Parser_mergeOrElseErrors(x_62, x_33, x_25); -lean_dec(x_25); -x_64 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_65 = l_Lean_Parser_ParserState_mkNode(x_63, x_64, x_18); -x_66 = l_Lean_Parser_mergeOrElseErrors(x_65, x_13, x_10); -lean_dec(x_10); -return x_66; -} -else -{ -lean_object* x_67; lean_object* x_68; uint8_t x_69; -x_67 = lean_ctor_get(x_61, 0); -lean_inc(x_67); -lean_dec(x_61); -x_68 = lean_ctor_get(x_60, 1); -lean_inc(x_68); -x_69 = lean_nat_dec_eq(x_68, x_25); -lean_dec(x_68); -if (x_69 == 0) -{ -lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; -lean_dec(x_67); -lean_dec(x_59); -lean_dec(x_2); -x_70 = l_Lean_Parser_mergeOrElseErrors(x_60, x_50, x_25); -x_71 = l_Lean_Parser_mergeOrElseErrors(x_70, x_33, x_25); -lean_dec(x_25); -x_72 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_73 = l_Lean_Parser_ParserState_mkNode(x_71, x_72, x_18); -x_74 = l_Lean_Parser_mergeOrElseErrors(x_73, x_13, x_10); -lean_dec(x_10); -return x_74; -} -else -{ -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_inc(x_25); -x_75 = l_Lean_Parser_ParserState_restore(x_60, x_59, x_25); -lean_dec(x_59); -x_76 = l_Lean_Parser_numLitFn___rarg(x_2, x_75); -x_77 = l_Lean_Parser_mergeOrElseErrors(x_76, x_67, x_25); -x_78 = l_Lean_Parser_mergeOrElseErrors(x_77, x_50, x_25); -x_79 = l_Lean_Parser_mergeOrElseErrors(x_78, x_33, x_25); -lean_dec(x_25); -x_80 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_81 = l_Lean_Parser_ParserState_mkNode(x_79, x_80, x_18); -x_82 = l_Lean_Parser_mergeOrElseErrors(x_81, x_13, x_10); -lean_dec(x_10); -return x_82; -} -} -} -} -} -} -} -else -{ -lean_object* x_83; lean_object* x_84; lean_object* x_85; -lean_dec(x_22); -lean_dec(x_2); -x_83 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_84 = l_Lean_Parser_ParserState_mkNode(x_21, x_83, x_18); -x_85 = l_Lean_Parser_mergeOrElseErrors(x_84, x_13, x_10); -lean_dec(x_10); -return x_85; -} -} -else -{ -lean_object* x_86; lean_object* x_87; lean_object* x_88; -lean_dec(x_20); +lean_dec(x_14); +lean_dec(x_13); +lean_dec(x_9); +lean_dec(x_7); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_86 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; -x_87 = l_Lean_Parser_ParserState_mkNode(x_19, x_86, x_18); -x_88 = l_Lean_Parser_mergeOrElseErrors(x_87, x_13, x_10); -lean_dec(x_10); -return x_88; +return x_15; +} +else +{ +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_94; lean_object* x_95; +lean_inc(x_14); +x_20 = l_Lean_Parser_ParserState_restore(x_15, x_13, x_14); +lean_dec(x_13); +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +x_22 = lean_array_get_size(x_21); +lean_dec(x_21); +lean_inc(x_2); +x_94 = l_Lean_Parser_tokenFn(x_2, x_20); +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; +x_96 = lean_ctor_get(x_94, 0); +lean_inc(x_96); +x_97 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_96); +lean_dec(x_96); +if (lean_obj_tag(x_97) == 2) +{ +lean_object* x_98; lean_object* x_99; uint8_t x_100; +x_98 = lean_ctor_get(x_97, 1); +lean_inc(x_98); +lean_dec(x_97); +x_99 = l_Lean_Parser_Command_set__option___elambda__1___closed__6; +x_100 = lean_string_dec_eq(x_98, x_99); +lean_dec(x_98); +if (x_100 == 0) +{ +lean_object* x_101; lean_object* x_102; +x_101 = l_Lean_Parser_Command_set__option___elambda__1___closed__15; +lean_inc(x_14); +x_102 = l_Lean_Parser_ParserState_mkErrorsAt(x_94, x_101, x_14); +x_23 = x_102; +goto block_93; +} +else +{ +x_23 = x_94; +goto block_93; +} +} +else +{ +lean_object* x_103; lean_object* x_104; +lean_dec(x_97); +x_103 = l_Lean_Parser_Command_set__option___elambda__1___closed__15; +lean_inc(x_14); +x_104 = l_Lean_Parser_ParserState_mkErrorsAt(x_94, x_103, x_14); +x_23 = x_104; +goto block_93; +} +} +else +{ +lean_object* x_105; lean_object* x_106; +lean_dec(x_95); +x_105 = l_Lean_Parser_Command_set__option___elambda__1___closed__15; +lean_inc(x_14); +x_106 = l_Lean_Parser_ParserState_mkErrorsAt(x_94, x_105, x_14); +x_23 = x_106; +goto block_93; +} +block_93: +{ +lean_object* x_24; +x_24 = lean_ctor_get(x_23, 3); +lean_inc(x_24); +if (lean_obj_tag(x_24) == 0) +{ +lean_object* x_25; lean_object* x_26; +lean_inc(x_2); +lean_inc(x_1); +x_25 = lean_apply_3(x_9, x_1, x_2, x_23); +x_26 = lean_ctor_get(x_25, 3); +lean_inc(x_26); +if (lean_obj_tag(x_26) == 0) +{ +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_27 = lean_ctor_get(x_25, 0); +lean_inc(x_27); +x_28 = lean_array_get_size(x_27); +lean_dec(x_27); +x_29 = lean_ctor_get(x_25, 1); +lean_inc(x_29); +x_30 = l_Lean_Parser_Command_set__option___elambda__1___closed__7; +x_31 = l_Lean_Parser_Command_set__option___elambda__1___closed__10; +lean_inc(x_2); +x_32 = l_Lean_Parser_nonReservedSymbolFnAux(x_30, x_31, x_2, x_25); +x_33 = lean_ctor_get(x_32, 3); +lean_inc(x_33); +if (lean_obj_tag(x_33) == 0) +{ +lean_object* x_34; lean_object* x_35; lean_object* x_36; +lean_dec(x_29); +lean_dec(x_28); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_34 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_35 = l_Lean_Parser_ParserState_mkNode(x_32, x_34, x_22); +x_36 = l_Lean_Parser_mergeOrElseErrors(x_35, x_17, x_14); +lean_dec(x_14); +return x_36; +} +else +{ +lean_object* x_37; lean_object* x_38; uint8_t x_39; +x_37 = lean_ctor_get(x_33, 0); +lean_inc(x_37); +lean_dec(x_33); +x_38 = lean_ctor_get(x_32, 1); +lean_inc(x_38); +x_39 = lean_nat_dec_eq(x_38, x_29); +lean_dec(x_38); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; +lean_dec(x_37); +lean_dec(x_29); +lean_dec(x_28); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_40 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_41 = l_Lean_Parser_ParserState_mkNode(x_32, x_40, x_22); +x_42 = l_Lean_Parser_mergeOrElseErrors(x_41, x_17, x_14); +lean_dec(x_14); +return x_42; +} +else +{ +lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; +lean_inc(x_29); +x_43 = l_Lean_Parser_ParserState_restore(x_32, x_28, x_29); +lean_dec(x_28); +x_44 = lean_ctor_get(x_43, 0); +lean_inc(x_44); +x_45 = lean_array_get_size(x_44); +lean_dec(x_44); +x_46 = l_Lean_Parser_Command_set__option___elambda__1___closed__8; +x_47 = l_Lean_Parser_Command_set__option___elambda__1___closed__12; +lean_inc(x_2); +x_48 = l_Lean_Parser_nonReservedSymbolFnAux(x_46, x_47, x_2, x_43); +x_49 = lean_ctor_get(x_48, 3); +lean_inc(x_49); +if (lean_obj_tag(x_49) == 0) +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; +lean_dec(x_45); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_50 = l_Lean_Parser_mergeOrElseErrors(x_48, x_37, x_29); +lean_dec(x_29); +x_51 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_52 = l_Lean_Parser_ParserState_mkNode(x_50, x_51, x_22); +x_53 = l_Lean_Parser_mergeOrElseErrors(x_52, x_17, x_14); +lean_dec(x_14); +return x_53; +} +else +{ +lean_object* x_54; lean_object* x_55; uint8_t x_56; +x_54 = lean_ctor_get(x_49, 0); +lean_inc(x_54); +lean_dec(x_49); +x_55 = lean_ctor_get(x_48, 1); +lean_inc(x_55); +x_56 = lean_nat_dec_eq(x_55, x_29); +lean_dec(x_55); +if (x_56 == 0) +{ +lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; +lean_dec(x_54); +lean_dec(x_45); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_57 = l_Lean_Parser_mergeOrElseErrors(x_48, x_37, x_29); +lean_dec(x_29); +x_58 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_59 = l_Lean_Parser_ParserState_mkNode(x_57, x_58, x_22); +x_60 = l_Lean_Parser_mergeOrElseErrors(x_59, x_17, x_14); +lean_dec(x_14); +return x_60; +} +else +{ +lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; +lean_inc(x_29); +x_61 = l_Lean_Parser_ParserState_restore(x_48, x_45, x_29); +lean_dec(x_45); +x_62 = lean_ctor_get(x_61, 0); +lean_inc(x_62); +x_63 = lean_array_get_size(x_62); +lean_dec(x_62); +lean_inc(x_2); +lean_inc(x_1); +x_64 = lean_apply_3(x_5, x_1, x_2, x_61); +x_65 = lean_ctor_get(x_64, 3); +lean_inc(x_65); +if (lean_obj_tag(x_65) == 0) +{ +lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; +lean_dec(x_63); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_66 = l_Lean_Parser_mergeOrElseErrors(x_64, x_54, x_29); +x_67 = l_Lean_Parser_mergeOrElseErrors(x_66, x_37, x_29); +lean_dec(x_29); +x_68 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_69 = l_Lean_Parser_ParserState_mkNode(x_67, x_68, x_22); +x_70 = l_Lean_Parser_mergeOrElseErrors(x_69, x_17, x_14); +lean_dec(x_14); +return x_70; +} +else +{ +lean_object* x_71; lean_object* x_72; uint8_t x_73; +x_71 = lean_ctor_get(x_65, 0); +lean_inc(x_71); +lean_dec(x_65); +x_72 = lean_ctor_get(x_64, 1); +lean_inc(x_72); +x_73 = lean_nat_dec_eq(x_72, x_29); +lean_dec(x_72); +if (x_73 == 0) +{ +lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; +lean_dec(x_71); +lean_dec(x_63); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +x_74 = l_Lean_Parser_mergeOrElseErrors(x_64, x_54, x_29); +x_75 = l_Lean_Parser_mergeOrElseErrors(x_74, x_37, x_29); +lean_dec(x_29); +x_76 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_77 = l_Lean_Parser_ParserState_mkNode(x_75, x_76, x_22); +x_78 = l_Lean_Parser_mergeOrElseErrors(x_77, x_17, x_14); +lean_dec(x_14); +return x_78; +} +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_29); +x_79 = l_Lean_Parser_ParserState_restore(x_64, x_63, x_29); +lean_dec(x_63); +x_80 = lean_apply_3(x_7, x_1, x_2, x_79); +x_81 = l_Lean_Parser_mergeOrElseErrors(x_80, x_71, x_29); +x_82 = l_Lean_Parser_mergeOrElseErrors(x_81, x_54, x_29); +x_83 = l_Lean_Parser_mergeOrElseErrors(x_82, x_37, x_29); +lean_dec(x_29); +x_84 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_85 = l_Lean_Parser_ParserState_mkNode(x_83, x_84, x_22); +x_86 = l_Lean_Parser_mergeOrElseErrors(x_85, x_17, x_14); +lean_dec(x_14); +return x_86; +} +} +} +} +} +} +} +else +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; +lean_dec(x_26); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_87 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_88 = l_Lean_Parser_ParserState_mkNode(x_25, x_87, x_22); +x_89 = l_Lean_Parser_mergeOrElseErrors(x_88, x_17, x_14); +lean_dec(x_14); +return x_89; +} +} +else +{ +lean_object* x_90; lean_object* x_91; lean_object* x_92; +lean_dec(x_24); +lean_dec(x_9); +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_90 = l_Lean_Parser_Command_set__option___elambda__1___closed__2; +x_91 = l_Lean_Parser_ParserState_mkNode(x_23, x_90, x_22); +x_92 = l_Lean_Parser_mergeOrElseErrors(x_91, x_17, x_14); +lean_dec(x_14); +return x_92; } } } diff --git a/stage0/stdlib/Init/Lean/Parser/Level.c b/stage0/stdlib/Init/Lean/Parser/Level.c index d21be24aff..2fb8dadee7 100644 --- a/stage0/stdlib/Init/Lean/Parser/Level.c +++ b/stage0/stdlib/Init/Lean/Parser/Level.c @@ -62,7 +62,6 @@ lean_object* l_Lean_Parser_ParserState_mkErrorsAt(lean_object*, lean_object*, le lean_object* l_Lean_Parser_Level_imax___closed__3; lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__6; lean_object* l_Lean_Parser_Level_max___elambda__1___closed__2; -extern lean_object* l_Lean_Parser_numLit___closed__1; lean_object* l_Lean_Parser_Level_max___closed__3; lean_object* l_Lean_Parser_Level_max___elambda__1___closed__4; lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__4; @@ -95,6 +94,7 @@ lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Level_max___elambda__ extern lean_object* l___private_Init_Lean_Parser_Parser_12__antiquotNestedExpr___closed__1; lean_object* l_Lean_Parser_Level_num___elambda__1___closed__3; lean_object* lean_name_mk_string(lean_object*, lean_object*); +lean_object* l_Lean_Parser_Level_num___elambda__1___closed__5; lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__11; lean_object* l_Lean_Parser_Level_imax___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Level_ident___closed__1; @@ -120,6 +120,7 @@ extern lean_object* l___private_Init_Lean_Parser_Parser_12__antiquotNestedExpr__ lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__3; lean_object* l_Lean_Parser_Level_max___closed__4; lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__5; +lean_object* l_Lean_Parser_numLit(uint8_t); lean_object* l_Lean_Parser_Level_ident___elambda__1___closed__2; lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__3; lean_object* l_Lean_Parser_mergeOrElseErrors(lean_object*, lean_object*, lean_object*); @@ -163,7 +164,6 @@ lean_object* l_Lean_Parser_ParserState_mkUnexpectedError(lean_object*, lean_obje lean_object* l_Lean_Parser_Level_paren___closed__6; lean_object* l___regBuiltinParser_Lean_Parser_Level_imax(lean_object*); lean_object* l_Lean_Parser_Level_imax___closed__4; -lean_object* l_Lean_Parser_numLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__7; lean_object* l_Lean_Parser_Level_paren___closed__8; lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__4; @@ -175,6 +175,7 @@ lean_object* l_Lean_Parser_Level_paren___closed__1; uint8_t lean_string_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Parser_Level_max___closed__2; lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__6; +lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__7; lean_object* _init_l_Lean_Parser_regBuiltinLevelParserAttr___closed__1() { _start: { @@ -1691,64 +1692,81 @@ x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); return x_5; } } +lean_object* _init_l_Lean_Parser_Level_num___elambda__1___closed__5() { +_start: +{ +uint8_t x_1; lean_object* x_2; +x_1 = 0; +x_2 = l_Lean_Parser_numLit(x_1); +return x_2; +} +} lean_object* l_Lean_Parser_Level_num___elambda__1(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; -x_4 = l_Lean_Parser_Level_num___elambda__1___closed__4; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_4 = l_Lean_Parser_Level_num___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); +x_6 = l_Lean_Parser_Level_num___elambda__1___closed__4; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 0); lean_inc(x_8); -lean_inc(x_2); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_ctor_get(x_3, 1); lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_2); +lean_inc(x_1); +x_11 = lean_apply_3(x_7, x_1, x_2, x_3); +x_12 = lean_ctor_get(x_11, 3); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); -lean_dec(x_12); -if (x_13 == 0) +if (lean_obj_tag(x_12) == 0) { -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_7); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_2); -return x_9; +lean_dec(x_1); +return x_11; } 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_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); -x_17 = l_Lean_Parser_numLitFn___rarg(x_2, x_14); -x_18 = l_Lean_Parser_Level_num___elambda__1___closed__2; -x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_16); -x_20 = l_Lean_Parser_mergeOrElseErrors(x_19, x_11, x_8); -lean_dec(x_8); -return x_20; +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +lean_dec(x_12); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_nat_dec_eq(x_14, x_10); +lean_dec(x_14); +if (x_15 == 0) +{ +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_11; +} +else +{ +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_inc(x_10); +x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); +lean_dec(x_9); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_apply_3(x_5, x_1, x_2, x_16); +x_20 = l_Lean_Parser_Level_num___elambda__1___closed__2; +x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_18); +x_22 = l_Lean_Parser_mergeOrElseErrors(x_21, x_13, x_10); +lean_dec(x_10); +return x_22; } } } @@ -1756,11 +1774,13 @@ return x_20; lean_object* _init_l_Lean_Parser_Level_num___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_num___elambda__1___closed__2; -x_2 = l_Lean_Parser_numLit___closed__1; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Level_num___elambda__1___closed__5; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Level_num___elambda__1___closed__2; +x_4 = l_Lean_Parser_nodeInfo(x_3, x_2); +return x_4; } } lean_object* _init_l_Lean_Parser_Level_num___closed__2() { @@ -2020,19 +2040,18 @@ return x_2; lean_object* _init_l_Lean_Parser_Level_addLit___elambda__1___closed__4() { _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_Level_addLit___elambda__1___closed__3; -x_3 = lean_string_append(x_1, x_2); -return x_3; +uint8_t x_1; lean_object* x_2; +x_1 = 1; +x_2 = l_Lean_Parser_numLit(x_1); +return x_2; } } lean_object* _init_l_Lean_Parser_Level_addLit___elambda__1___closed__5() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_addLit___elambda__1___closed__4; -x_2 = l_Char_HasRepr___closed__1; +x_1 = l_Char_HasRepr___closed__1; +x_2 = l_Lean_Parser_Level_addLit___elambda__1___closed__3; x_3 = lean_string_append(x_1, x_2); return x_3; } @@ -2041,8 +2060,18 @@ lean_object* _init_l_Lean_Parser_Level_addLit___elambda__1___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Level_addLit___elambda__1___closed__5; +x_2 = l_Char_HasRepr___closed__1; +x_3 = lean_string_append(x_1, x_2); +return x_3; +} +} +lean_object* _init_l_Lean_Parser_Level_addLit___elambda__1___closed__7() { +_start: +{ +lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Parser_Level_addLit___elambda__1___closed__5; +x_2 = l_Lean_Parser_Level_addLit___elambda__1___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); @@ -2052,94 +2081,106 @@ return x_3; lean_object* l_Lean_Parser_Level_addLit___elambda__1(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; -x_4 = lean_ctor_get(x_3, 0); -lean_inc(x_4); -x_5 = lean_array_get_size(x_4); -lean_dec(x_4); +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_4 = l_Lean_Parser_Level_addLit___elambda__1___closed__4; +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_3, 0); +lean_inc(x_6); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +lean_inc(x_1); lean_inc(x_3); -x_6 = l_Lean_Parser_ParserState_pushSyntax(x_3, x_1); -x_7 = lean_ctor_get(x_3, 3); -lean_inc(x_7); -if (lean_obj_tag(x_7) == 0) +x_8 = l_Lean_Parser_ParserState_pushSyntax(x_3, x_1); +x_9 = lean_ctor_get(x_3, 3); +lean_inc(x_9); +if (lean_obj_tag(x_9) == 0) { -lean_object* x_8; lean_object* x_9; lean_object* x_10; -x_8 = lean_ctor_get(x_3, 1); -lean_inc(x_8); +lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_10 = lean_ctor_get(x_3, 1); +lean_inc(x_10); lean_dec(x_3); lean_inc(x_2); -x_9 = l_Lean_Parser_tokenFn(x_2, x_6); -x_10 = lean_ctor_get(x_9, 3); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) +x_11 = l_Lean_Parser_tokenFn(x_2, x_8); +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; -x_11 = lean_ctor_get(x_9, 0); -lean_inc(x_11); -x_12 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_11); -lean_dec(x_11); -if (lean_obj_tag(x_12) == 2) -{ -lean_object* x_13; lean_object* x_14; uint8_t x_15; -x_13 = lean_ctor_get(x_12, 1); +lean_object* x_13; lean_object* x_14; +x_13 = lean_ctor_get(x_11, 0); lean_inc(x_13); -lean_dec(x_12); -x_14 = l_Lean_Parser_Level_addLit___elambda__1___closed__3; -x_15 = lean_string_dec_eq(x_13, x_14); +x_14 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_13); lean_dec(x_13); -if (x_15 == 0) +if (lean_obj_tag(x_14) == 2) { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; +lean_object* x_15; lean_object* x_16; uint8_t x_17; +x_15 = lean_ctor_get(x_14, 1); +lean_inc(x_15); +lean_dec(x_14); +x_16 = l_Lean_Parser_Level_addLit___elambda__1___closed__3; +x_17 = lean_string_dec_eq(x_15, x_16); +lean_dec(x_15); +if (x_17 == 0) +{ +lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; +lean_dec(x_5); lean_dec(x_2); -x_16 = l_Lean_Parser_Level_addLit___elambda__1___closed__6; -x_17 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_16, x_8); -x_18 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; -x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_5); -return x_19; +lean_dec(x_1); +x_18 = l_Lean_Parser_Level_addLit___elambda__1___closed__7; +x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_18, x_10); +x_20 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; +x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_7); +return x_21; } else { -lean_object* x_20; lean_object* x_21; lean_object* x_22; -lean_dec(x_8); -x_20 = l_Lean_Parser_numLitFn___rarg(x_2, x_9); -x_21 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; -x_22 = l_Lean_Parser_ParserState_mkNode(x_20, x_21, x_5); -return x_22; -} -} -else -{ -lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -lean_dec(x_12); -lean_dec(x_2); -x_23 = l_Lean_Parser_Level_addLit___elambda__1___closed__6; -x_24 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_23, x_8); -x_25 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; -x_26 = l_Lean_Parser_ParserState_mkNode(x_24, x_25, x_5); -return x_26; -} -} -else -{ -lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_dec(x_10); -lean_dec(x_2); -x_27 = l_Lean_Parser_Level_addLit___elambda__1___closed__6; -x_28 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_27, x_8); -x_29 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; -x_30 = l_Lean_Parser_ParserState_mkNode(x_28, x_29, x_5); -return x_30; +x_22 = lean_apply_3(x_5, x_1, x_2, x_11); +x_23 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; +x_24 = l_Lean_Parser_ParserState_mkNode(x_22, x_23, x_7); +return x_24; } } else { -lean_object* x_31; lean_object* x_32; -lean_dec(x_7); +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; +lean_dec(x_14); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_25 = l_Lean_Parser_Level_addLit___elambda__1___closed__7; +x_26 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_25, x_10); +x_27 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; +x_28 = l_Lean_Parser_ParserState_mkNode(x_26, x_27, x_7); +return x_28; +} +} +else +{ +lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; +lean_dec(x_12); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +x_29 = l_Lean_Parser_Level_addLit___elambda__1___closed__7; +x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_29, x_10); +x_31 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; +x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_7); +return x_32; +} +} +else +{ +lean_object* x_33; lean_object* x_34; +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_3); lean_dec(x_2); -x_31 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; -x_32 = l_Lean_Parser_ParserState_mkNode(x_6, x_31, x_5); -return x_32; +lean_dec(x_1); +x_33 = l_Lean_Parser_Level_addLit___elambda__1___closed__2; +x_34 = l_Lean_Parser_ParserState_mkNode(x_8, x_33, x_7); +return x_34; } } } @@ -2166,11 +2207,13 @@ return x_3; lean_object* _init_l_Lean_Parser_Level_addLit___closed__3() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Level_addLit___closed__2; -x_2 = l_Lean_Parser_numLit___closed__1; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Level_addLit___elambda__1___closed__4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Level_addLit___closed__2; +x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); +return x_4; } } lean_object* _init_l_Lean_Parser_Level_addLit___closed__4() { @@ -2399,6 +2442,8 @@ l_Lean_Parser_Level_num___elambda__1___closed__3 = _init_l_Lean_Parser_Level_num lean_mark_persistent(l_Lean_Parser_Level_num___elambda__1___closed__3); l_Lean_Parser_Level_num___elambda__1___closed__4 = _init_l_Lean_Parser_Level_num___elambda__1___closed__4(); lean_mark_persistent(l_Lean_Parser_Level_num___elambda__1___closed__4); +l_Lean_Parser_Level_num___elambda__1___closed__5 = _init_l_Lean_Parser_Level_num___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Level_num___elambda__1___closed__5); l_Lean_Parser_Level_num___closed__1 = _init_l_Lean_Parser_Level_num___closed__1(); lean_mark_persistent(l_Lean_Parser_Level_num___closed__1); l_Lean_Parser_Level_num___closed__2 = _init_l_Lean_Parser_Level_num___closed__2(); @@ -2445,6 +2490,8 @@ l_Lean_Parser_Level_addLit___elambda__1___closed__5 = _init_l_Lean_Parser_Level_ lean_mark_persistent(l_Lean_Parser_Level_addLit___elambda__1___closed__5); l_Lean_Parser_Level_addLit___elambda__1___closed__6 = _init_l_Lean_Parser_Level_addLit___elambda__1___closed__6(); lean_mark_persistent(l_Lean_Parser_Level_addLit___elambda__1___closed__6); +l_Lean_Parser_Level_addLit___elambda__1___closed__7 = _init_l_Lean_Parser_Level_addLit___elambda__1___closed__7(); +lean_mark_persistent(l_Lean_Parser_Level_addLit___elambda__1___closed__7); l_Lean_Parser_Level_addLit___closed__1 = _init_l_Lean_Parser_Level_addLit___closed__1(); lean_mark_persistent(l_Lean_Parser_Level_addLit___closed__1); l_Lean_Parser_Level_addLit___closed__2 = _init_l_Lean_Parser_Level_addLit___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Parser/Parser.c b/stage0/stdlib/Init/Lean/Parser/Parser.c index 4e70aead5f..dbc16eeae9 100644 --- a/stage0/stdlib/Init/Lean/Parser/Parser.c +++ b/stage0/stdlib/Init/Lean/Parser/Parser.c @@ -57,6 +57,7 @@ lean_object* l_Lean_Parser_unicodeSymbolInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_prattParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawFn___rarg(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*); +lean_object* l_Lean_Parser_leadingIdentAsSymbol___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldSepRevArgs___rarg(lean_object*, lean_object*, lean_object*); extern lean_object* l___private_Init_Lean_Compiler_InitAttr_2__isUnitType___closed__1; extern lean_object* l___private_Init_Lean_Environment_8__persistentEnvExtensionsRef; @@ -88,6 +89,7 @@ lean_object* l_Lean_Parser_mkParserExtension___closed__2; lean_object* l_RBNode_find___main___at_Lean_Parser_indexed___spec__3___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_andthenAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolCheckPrecFnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_strLitNoAntiquot(uint8_t); lean_object* l_Lean_Parser_octalNumberFn___closed__1; lean_object* l_Lean_Parser_many1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_many(uint8_t, lean_object*); @@ -99,6 +101,7 @@ lean_object* l_Lean_Syntax_getOptional_x3f(lean_object*); lean_object* l_Lean_Parser_strAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_rawCh___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); uint8_t l_PersistentHashMap_contains___at_Lean_Parser_mkFreshKindAux___main___spec__1(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawFn___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__1; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_identFnAux___main___spec__2___boxed(lean_object*, lean_object*); @@ -110,6 +113,7 @@ lean_object* l_Lean_Syntax_foldSepRevArgs(lean_object*); lean_object* l_Lean_Parser_binNumberFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_List_foldlM___main___at_Lean_Parser_addParserTokens___spec__1(lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgsM___spec__1___boxed(lean_object*, lean_object*); +lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_many___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_numberFnAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_TokenConfig_HasToString___closed__1; @@ -123,13 +127,16 @@ lean_object* l_Lean_Parser_hexNumberFn___boxed(lean_object*, lean_object*, lean_ lean_object* l_Lean_Parser_trailingLoop___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_foldlM___at_Lean_Parser_getSyntaxNodeKinds___spec__1(lean_object*, lean_object*); extern size_t l_PersistentHashMap_insertAux___main___rarg___closed__2; +lean_object* l_Lean_Parser_strLit___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldSepBy___rarg(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_1__expectedToString___main(lean_object*); lean_object* l_Lean_Parser_longestMatchFn(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_13__antiquotExpr___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2; lean_object* l_Lean_Parser_registerBuiltinParserAttribute___closed__1; lean_object* l_Lean_Parser_parserExtension___elambda__1___boxed(lean_object*); lean_object* l_Lean_Syntax_foldSepArgs___rarg(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2; lean_object* l_IO_ofExcept___at___private_Init_Lean_Parser_Parser_16__addBuiltinParserCategory___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserExtension___closed__4; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_decimalNumberFn___spec__2(lean_object*, lean_object*); @@ -162,7 +169,6 @@ lean_object* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__6___ra size_t l_USize_sub(size_t, size_t); extern lean_object* l_Array_empty___closed__1; lean_object* l_Lean_Parser_regTermParserAttribute(lean_object*); -lean_object* l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1; lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Parser_addLeadingParser___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_pushSyntax(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__17; @@ -174,6 +180,7 @@ lean_object* l_Lean_Parser_parserExtension; lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_forSepArgsM___spec__1___boxed(lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotId___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_group(uint8_t, lean_object*); +lean_object* l_Lean_Parser_charLit___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__2; lean_object* l_Lean_Parser_dollarSymbol___closed__1; lean_object* l_Lean_Parser_ident(uint8_t); @@ -190,6 +197,7 @@ lean_object* l_List_foldl___main___at___private_Init_Lean_Parser_Parser_20__addT lean_object* l_Lean_Parser_checkColGe(uint8_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_dollarSymbol___boxed(lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolFn(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_26__ParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); uint8_t l_Char_isDigit(uint32_t); lean_object* l_Lean_Parser_ParserState_mkNode(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserState(lean_object*); @@ -222,7 +230,6 @@ uint8_t l_PersistentHashMap_containsAtAux___main___at_Lean_Parser_mkFreshKindAux lean_object* l_Lean_Parser_symbolNoWsFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_unquotedSymbolFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_unquotedSymbol___elambda__1___rarg(lean_object*, lean_object*); -lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_finishCommentBlock___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_try___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__4; @@ -231,10 +238,14 @@ lean_object* l_Lean_Parser_addBuiltinParser___boxed(lean_object*, lean_object*, lean_object* l_Lean_Parser_addBuiltinParser(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_array_push(lean_object*, lean_object*); lean_object* l_Lean_Parser_rawCh___elambda__1(uint8_t); +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__3; lean_object* lean_array_get_size(lean_object*); extern lean_object* l_Lean_charLitKind___closed__1; +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__1; lean_object* lean_string_append(lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsFn(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__1; lean_object* l_Lean_Parser_tokenFn(lean_object*, lean_object*); lean_object* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__7(lean_object*); lean_object* l_Lean_Parser_mkAtomicInfo(lean_object*); @@ -250,6 +261,7 @@ lean_object* l_Lean_Parser_categoryParserFnImpl(lean_object*, lean_object*, lean lean_object* l_Lean_Parser_withPosition(uint8_t, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__11; lean_object* l_Lean_Parser_charLitFnAux(lean_object*, lean_object*, lean_object*); +lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3(lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__3; lean_object* l_Lean_Parser_mkAntiquot___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolCheckPrecFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -265,6 +277,7 @@ lean_object* l_Lean_Parser_symbolInfo___elambda__1(lean_object*); lean_object* l_Lean_Parser_nonReservedSymbol(uint8_t, lean_object*, uint8_t); lean_object* l_Lean_Parser_symbolFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkNodeToken___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_initCacheForInput___boxed(lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_forArgsM___spec__1(lean_object*); lean_object* l_Lean_Parser_symbolNoWs___boxed(lean_object*, lean_object*); @@ -298,6 +311,7 @@ lean_object* l_Lean_Parser_categoryParserFnExtension___closed__1; lean_object* l_Lean_Parser_strLit___closed__1; extern lean_object* l_Lean_LocalContext_Inhabited___closed__1; lean_object* l_Lean_Parser_symbolFn___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_binNumberFn___spec__3___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_pushLeading___closed__1; lean_object* l_Array_anyRangeMAux___main___at_Lean_Parser_mkParserExtension___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -319,7 +333,6 @@ lean_object* l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(lean_object*, l lean_object* l_Lean_Parser_addParserCategory(lean_object*, lean_object*, uint8_t); lean_object* l_Lean_Parser_many1Fn(uint8_t, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_satisfyFn(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3; lean_object* l_Lean_Parser_symbolNoWsInfo___elambda__1(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolCheckPrecFn___closed__2; lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_forSepArgsM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -332,6 +345,7 @@ lean_object* l_Lean_Parser_parserExtension___closed__3; lean_object* l_Lean_Parser_parserExtension___elambda__2___boxed(lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Syntax_foldSepRevArgs___spec__1(lean_object*); lean_object* l_Lean_Parser_numLit___boxed(lean_object*); +lean_object* l_Lean_Parser_numLitNoAntiquot___boxed(lean_object*); lean_object* l_Lean_Parser_identFn___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_declareTrailingBuiltinParser___closed__1; lean_object* l___private_Init_Lean_Parser_Parser_18__mergePrecendences(lean_object*, lean_object*, lean_object*, lean_object*); @@ -344,9 +358,12 @@ lean_object* l_Lean_Parser_numLit___closed__1; lean_object* l_Lean_Parser_rawIdentFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_12__antiquotNestedExpr(uint8_t); +uint8_t l_Lean_Parser_leadingIdentAsSymbol(lean_object*, lean_object*); lean_object* l_Lean_Parser_indexed(lean_object*); +lean_object* l_Lean_Parser_strLit___elambda__1(uint8_t); extern lean_object* l_Lean_mkTermIdFromIdent___closed__2; lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgs___spec__1(lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; lean_object* lean_string_utf8_next(lean_object*, lean_object*); extern lean_object* l_Lean_mkAttributeImplOfConstant___closed__1; @@ -367,6 +384,7 @@ lean_object* l_Lean_Parser_PrattParsingTables_inhabited___closed__1; lean_object* l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1; lean_object* l_Lean_Parser_unquotedSymbol___boxed(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolCheckPrecFn___closed__1; +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_quotedSymbolFn___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn(lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgsM___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -407,7 +425,6 @@ lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_forSepArgsM___spec__1 lean_object* l_Lean_Parser_quotedCharFn(lean_object*, lean_object*); lean_object* l_Lean_Parser_checkNoWsBeforeFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder(lean_object*); lean_object* l_Lean_Parser_mkAtomicInfo___elambda__2(lean_object*); lean_object* l_Lean_Parser_manyAux___main(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main(uint8_t, lean_object*, lean_object*, uint8_t, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); @@ -417,7 +434,8 @@ lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_rawCh___elambda__1___spec_ uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_HasBeq___closed__1; lean_object* l_Lean_Parser_nonReservedSymbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1; +lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__1; +lean_object* l_Lean_Parser_charLit___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldSepArgsM___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Parser_inhabited(uint8_t); lean_object* l_Lean_Parser_dollarSymbol___elambda__1___boxed(lean_object*, lean_object*); @@ -427,6 +445,7 @@ lean_object* l___private_Init_Lean_Parser_Parser_8__mkResult(lean_object*, lean_ lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_quotedSymbolFn___spec__2(uint32_t, lean_object*, lean_object*); lean_object* l_IO_ofExcept___at___private_Init_Lean_Parser_Parser_16__addBuiltinParserCategory___spec__1___boxed(lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_23__ParserExtension_addImported___spec__3(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_identFnAux___main___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchFnAux(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_lookaheadFn(uint8_t); @@ -441,12 +460,14 @@ lean_object* l_Lean_Parser_quotedSymbol___elambda__1___rarg___boxed(lean_object* lean_object* l_Lean_Parser_symbolFn___boxed(lean_object*); extern lean_object* l_Lean_numLitKind; lean_object* l_Lean_Parser_mkAntiquot___elambda__2___boxed(lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_EStateM_bind___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldArgsM___boxed(lean_object*, lean_object*); lean_object* l_PersistentHashMap_findAux___main___at_Lean_Parser_addLeadingParser___spec__2___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___rarg___closed__3; lean_object* l_Lean_Parser_quotedSymbol(uint8_t); +lean_object* l_Lean_Parser_numLitNoAntiquot___closed__1; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_keepLatest(lean_object*, lean_object*); lean_object* l_Lean_Parser_checkLeadingFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -519,6 +540,7 @@ lean_object* l___private_Init_Lean_Parser_Parser_1__expectedToString___main___cl lean_object* l_Lean_Parser_binNumberFn(lean_object*, lean_object*, lean_object*); lean_object* l_List_lengthAux___main___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserOfConstant___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_strLit___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_Error_HasBeq; lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__3; extern lean_object* l___private_Init_Lean_Compiler_InitAttr_1__getIOTypeArg___closed__1; @@ -535,6 +557,7 @@ lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgsM___spec__1___r lean_object* l_Lean_Parser_andthenFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_longestMatchStep(uint8_t); lean_object* l_Lean_Parser_addLeadingParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_charLitNoAntiquot___boxed(lean_object*); lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_23__ParserExtension_addImported___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strLitFn(uint8_t, lean_object*); lean_object* l_Lean_Parser_mkParserExtension___lambda__2___boxed(lean_object*); @@ -555,7 +578,6 @@ lean_object* l_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef(lean_object*); lean_object* l_Lean_Parser_registerBuiltinParserAttribute___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkWsBefore(uint8_t, lean_object*); lean_object* l_Lean_Parser_checkNoWsBeforeFn(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_25__ParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_4__isToken___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_setCache(lean_object*, lean_object*); lean_object* l_Lean_Parser_strAux___main(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -568,6 +590,7 @@ lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_decimalNumberFn___spec__ lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_octalNumberFn___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_orelseInfo(lean_object*, lean_object*); lean_object* l_Lean_Parser_dollarSymbol___elambda__1___rarg(lean_object*, lean_object*); +lean_object* l_Lean_Parser_strLitNoAntiquot___closed__1; lean_object* l_Lean_Parser_sepByFn(uint8_t, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdx___closed__2; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_chFn___spec__1(uint32_t, lean_object*, lean_object*, lean_object*); @@ -576,8 +599,10 @@ lean_object* l___private_Init_Lean_Parser_Parser_16__addBuiltinParserCategory(le lean_object* l___private_Init_Lean_Parser_Parser_12__antiquotNestedExpr___closed__1; lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_PersistentHashMap_insertAux___main___rarg___closed__3; +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1(lean_object*); lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* l_Lean_Parser_rawCh___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_strLitNoAntiquot___boxed(lean_object*); lean_object* l_Lean_Parser_mkParserAttributeImpl___closed__1; lean_object* l_Lean_Parser_termParser___closed__2; lean_object* l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1___boxed(lean_object*); @@ -595,7 +620,6 @@ lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_hexNumberFn___spe lean_object* l___private_Init_Lean_Parser_Parser_12__antiquotNestedExpr___closed__4; lean_object* l_Lean_Parser_TokenMap_Inhabited(lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension___elambda__1___rarg___boxed(lean_object*); -lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_regTermParserAttribute___closed__2; lean_object* l_Lean_Parser_rawIdent(uint8_t); lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepByM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -618,7 +642,6 @@ lean_object* l_Lean_Parser_declareTrailingBuiltinParser(lean_object*, lean_objec lean_object* l_Lean_Parser_hashAndthen(uint8_t); lean_object* l_Lean_Parser_nonReservedSymbolInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_setCategoryParserFnRef___closed__1; -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_insertAux___main___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__2(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotId___boxed(lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_octalNumberFn___spec__3___boxed(lean_object*, lean_object*); @@ -648,6 +671,7 @@ lean_object* l___private_Init_Lean_Parser_Parser_13__antiquotExpr___elambda__1__ lean_object* l_Lean_Parser_identFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_addParserCategory___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_registerBuiltinParserAttribute(lean_object*, lean_object*, uint8_t, lean_object*); +lean_object* l_Lean_Parser_charLitNoAntiquot___closed__1; lean_object* l_Lean_Parser_compileParserDescr___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension___closed__3; extern lean_object* l___private_Init_Lean_Environment_5__envExtensionsRef; @@ -657,6 +681,7 @@ lean_object* l_Lean_Parser_checkTailNoWs___boxed(lean_object*); lean_object* l_Lean_Parser_symbolNoWsAux___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolNoWsInfo(lean_object*, lean_object*); +lean_object* l_Lean_Parser_categoryParserFnImplAux(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_epsilonInfo___elambda__1___boxed(lean_object*); lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*); lean_object* l_Lean_Parser_rawIdent___elambda__1___boxed(lean_object*); @@ -666,10 +691,10 @@ lean_object* l_Lean_Parser_anyOfFn(uint8_t, lean_object*, lean_object*, lean_obj lean_object* l_Lean_Parser_lookaheadFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotId___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_mkEmptySubstringAt(lean_object*, lean_object*); +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_binNumberFn___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_strLitFnAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_toString___closed__2; -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Data_Trie_3__findAux___main___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgs___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__6; @@ -691,7 +716,9 @@ lean_object* l___private_Init_Lean_Parser_Parser_19__addTokenConfig___closed__1; lean_object* l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(lean_object*); lean_object* l_Lean_Parser_ParserState_restore(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolAux(uint8_t, lean_object*, lean_object*); +lean_object* l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1___closed__1; lean_object* l_Lean_Parser_isValidSyntaxNodeKind___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_24__catNameToString(lean_object*); lean_object* l_Lean_Parser_sepBy1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserExtension(lean_object*); lean_object* l_Lean_Parser_ParserState_popSyntax(lean_object*); @@ -717,7 +744,6 @@ uint8_t l_Lean_isIdEndEscape(uint32_t); lean_object* l_Lean_Parser_addBuiltinLeadingParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_foldSepArgsM___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserExtension___closed__7; -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1(lean_object*); lean_object* l_Lean_Parser_dollarSymbol___elambda__1___rarg___closed__1; lean_object* l_Lean_Parser_regBuiltinTermParserAttr___closed__1; lean_object* l___private_Init_Lean_Parser_Parser_19__addTokenConfig___closed__2; @@ -727,7 +753,6 @@ size_t l_USize_land(size_t, size_t); lean_object* l_Lean_Parser_parserExtension___elambda__4___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_dollarSymbol___elambda__1___rarg___closed__4; lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Syntax_foldSepRevArgsM___spec__2___boxed(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1; lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkParserExtension___spec__3___closed__1; lean_object* l_Lean_Parser_mkAntiquot___elambda__2(uint8_t); extern lean_object* l_Lean_registerTagAttribute___lambda__4___closed__2; @@ -786,6 +811,7 @@ lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lea lean_object* l_Lean_Parser_symbol___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgs___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkNoWsBefore___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Parser_charLit___elambda__1(uint8_t); uint8_t l_UInt32_decEq(uint32_t, uint32_t); extern lean_object* l_Lean_Syntax_inhabited; lean_object* l_Lean_Parser_unquotedSymbolFn(uint8_t, lean_object*); @@ -802,6 +828,7 @@ lean_object* l_Lean_Parser_FirstTokens_HasToString___closed__1; lean_object* l_Lean_Parser_FirstTokens_HasToString; lean_object* l_Lean_Parser_pushLeading; lean_object* l___private_Init_Lean_Parser_Parser_12__antiquotNestedExpr___elambda__1___rarg___closed__2; +lean_object* l_Lean_Parser_numLit___elambda__1(uint8_t); lean_object* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1(lean_object*); lean_object* l_Lean_Parser_Error_toString(lean_object*); lean_object* l_Lean_Parser_categoryParserOfStackFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -840,7 +867,6 @@ lean_object* l_RBNode_find___main___at_Lean_Parser_TokenMap_insert___spec__1___r lean_object* l_Lean_Parser_categoryParser(uint8_t, lean_object*, lean_object*); lean_object* l_Lean_nameToExprAux___main(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolCheckPrecFn(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; lean_object* l_Lean_Parser_categoryParser___elambda__1___boxed(lean_object*); lean_object* l_Lean_Syntax_getArgs(lean_object*); lean_object* l_Array_foldSepByM___boxed(lean_object*, lean_object*); @@ -850,6 +876,7 @@ lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_many1Indent___spec__1 lean_object* l_Lean_Parser_chFn___boxed(lean_object*); lean_object* l_Lean_Parser_mkFreshKind___closed__1; uint8_t l_Lean_Parser_isValidSyntaxNodeKind(lean_object*, lean_object*); +lean_object* l_Lean_Parser_numLitNoAntiquot(uint8_t); lean_object* l_Lean_Parser_dollarSymbol___elambda__1___rarg___closed__2; lean_object* l_Lean_Parser_Error_beq___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_orelseInfo___elambda__1(lean_object*, lean_object*, lean_object*); @@ -859,7 +886,6 @@ lean_object* l_Lean_Parser_runParserCategory(lean_object*, lean_object*, lean_ob lean_object* l_Array_iterateMAux___main___at_Lean_Parser_getSyntaxNodeKinds___spec__4(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_addLeadingParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___boxed(lean_object*); -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__5___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_IO_ofExcept___at___private_Init_Lean_Parser_Parser_23__ParserExtension_addImported___spec__1___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_13__antiquotExpr___elambda__1(uint8_t); lean_object* l_Lean_Parser_mkParserExtension___closed__5; @@ -912,7 +938,6 @@ lean_object* l_Lean_Parser_dollarSymbol___elambda__1(uint8_t, lean_object*); lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_many1Indent___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_toTrailing___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_hexNumberFn___spec__2___boxed(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; lean_object* l_Lean_Parser_checkNoWsBefore___elambda__1(uint8_t); lean_object* l_RBNode_setBlack___rarg(lean_object*); lean_object* l_Lean_Parser_noFirstTokenInfo___elambda__2(lean_object*, lean_object*); @@ -941,7 +966,6 @@ lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__7; lean_object* l_Lean_Parser_epsilonInfo___closed__1; lean_object* lean_io_ref_set(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1___boxed(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1; lean_object* l_PersistentHashMap_insertAux___main___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__4(lean_object*, size_t, size_t, lean_object*, lean_object*); lean_object* l_Lean_Parser_andthen___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_FileMap_Inhabited___closed__1; @@ -964,13 +988,13 @@ lean_object* l_Lean_Parser_nodeFn(uint8_t); lean_object* l___private_Init_Lean_Parser_Parser_5__tokenFnAux(lean_object*, lean_object*); lean_object* l_Lean_Parser_checkWsBeforeFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_optionalFn(uint8_t); +lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2; lean_object* lean_array_pop(lean_object*); lean_object* l_Lean_Parser_TokenMap_insert___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbolFn___rarg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___closed__4; uint8_t l_Lean_isIdFirst(uint32_t); -lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_registerEnvExtensionUnsafe___rarg___closed__3; uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*); @@ -993,6 +1017,7 @@ lean_object* l_Lean_Parser_checkNoWsBefore___elambda__1___rarg___boxed(lean_obje lean_object* l_Lean_Parser_mkAntiquot___closed__6; lean_object* l_Lean_Parser_parserExtension___elambda__1(lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_7__pickNonNone(lean_object*); +lean_object* l_Lean_Parser_numLit___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Parser_mkParserExtension___spec__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_getSyntaxNodeKinds(lean_object*); lean_object* l_Lean_Parser_addBuiltinTrailingParser(lean_object*, lean_object*, lean_object*, lean_object*); @@ -1030,7 +1055,6 @@ lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_2 lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgsM___spec__1___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_chFn___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getOptional_x3f___boxed(lean_object*); -lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_9__noImmediateColon___elambda__1___rarg(lean_object*, lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Syntax_foldSepRevArgsM___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_sepBy1Info___elambda__2(lean_object*, lean_object*, lean_object*); @@ -1071,7 +1095,6 @@ lean_object* l___private_Init_Lean_Parser_Parser_17__ParserExtension_mkInitial(l lean_object* l_Lean_Parser_mkCategoryParserFnRef___closed__1; lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_identFnAux___main___spec__2(lean_object*, lean_object*); lean_object* lean_usize_to_nat(size_t); -lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_PersistentHashMap_insertAtCollisionNodeAux___main___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__5(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkTokenAndFixPos(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_20__addTrailingParserAux(lean_object*, lean_object*); @@ -1102,7 +1125,6 @@ lean_object* l_Lean_Syntax_foldSepArgs(lean_object*); lean_object* l_Lean_Parser_ParserState_keepPrevError(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_checkWsBefore___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_ParserFn_inhabited___rarg___boxed(lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(lean_object*); lean_object* l_Lean_Parser_orelseFn___boxed(lean_object*); lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__3; @@ -1115,7 +1137,6 @@ lean_object* l_Lean_Parser_checkColGe___lambda__1___boxed(lean_object*, lean_obj lean_object* l_Lean_Parser_categoryParser___elambda__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_numLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_unicodeSymbolFn___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; lean_object* l_Lean_Parser_mkParserOfConstantUnsafe___closed__5; lean_object* l___private_Init_Lean_Data_Trie_2__insertAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_identFnAux___main___spec__1___boxed(lean_object*, lean_object*); @@ -1133,6 +1154,7 @@ lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Parser_addLeadingPar lean_object* l___private_Init_Lean_Parser_Parser_18__mergePrecendences___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_18__mergePrecendences___closed__1; lean_object* l_Lean_Parser_mkAntiquot___closed__2; +lean_object* l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Parser_inhabited___closed__1; lean_object* l_Lean_Parser_checkWsBefore___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getTailInfo___main(lean_object*); @@ -1147,6 +1169,7 @@ lean_object* l_RBNode_ins___main___at_Lean_Parser_TokenMap_insert___spec__3(lean lean_object* l_Lean_Parser_TokenConfig_HasBeq; lean_object* l_Lean_Parser_Parser_inhabited___boxed(lean_object*); lean_object* l___private_Init_Data_Array_Basic_3__iterateRevMAux___main___at_Lean_Syntax_foldSepRevArgs___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_charLitNoAntiquot(uint8_t); lean_object* l_Lean_Parser_strLitFnAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkErrorStringWithPos(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_insert___at_Lean_Parser_SyntaxNodeKindSet_insert___spec__1(lean_object*, lean_object*, lean_object*); @@ -1162,7 +1185,6 @@ lean_object* l_Lean_Parser_many1Indent___boxed(lean_object*, lean_object*, lean_ lean_object* l___private_Init_Lean_Parser_Parser_9__noImmediateColon(uint8_t); lean_object* l_Lean_Parser_sepBy1Info___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_rawIdent___elambda__1(uint8_t); -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_strLit(uint8_t); lean_object* l_Lean_Parser_rawIdentNoAntiquot___lambda__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_many1(uint8_t, lean_object*, uint8_t); @@ -1171,17 +1193,17 @@ lean_object* l_Lean_Parser_sepBy___boxed(lean_object*, lean_object*, lean_object lean_object* l_Lean_Parser_trailingLoop___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_quotedSymbol___boxed(lean_object*); lean_object* l_Lean_Parser_nonReservedSymbolInfo___boxed(lean_object*, lean_object*); -lean_object* l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mergeErrors(lean_object*, lean_object*, lean_object*); uint8_t l_Lean_isIdRest(uint32_t); lean_object* l_Lean_Parser_numberFnAux___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Parser_numLit___elambda__1___boxed(lean_object*); lean_object* l_Lean_Parser_parserExtension___elambda__3(lean_object*, lean_object*); lean_object* l_Lean_Parser_fieldIdxFn(lean_object*, lean_object*); +lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_forArgsM___spec__1___boxed(lean_object*); lean_object* l_Lean_Parser_mkIdent(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_withPosition___boxed(lean_object*, lean_object*); uint8_t lean_string_dec_eq(lean_object*, lean_object*); -lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_registerParserCategory___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___boxed(lean_object*, lean_object*, lean_object*, lean_object*); @@ -11347,7 +11369,7 @@ lean_dec(x_2); return x_4; } } -lean_object* _init_l_Lean_Parser_numLit___closed__1() { +lean_object* _init_l_Lean_Parser_numLitNoAntiquot___closed__1() { _start: { lean_object* x_1; lean_object* x_2; @@ -11356,27 +11378,27 @@ x_2 = l_Lean_Parser_mkAtomicInfo(x_1); return x_2; } } -lean_object* l_Lean_Parser_numLit(uint8_t x_1) { +lean_object* l_Lean_Parser_numLitNoAntiquot(uint8_t x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = lean_box(x_1); x_3 = lean_alloc_closure((void*)(l_Lean_Parser_numLitFn___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = l_Lean_Parser_numLit___closed__1; +x_4 = l_Lean_Parser_numLitNoAntiquot___closed__1; x_5 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_5, 0, x_4); lean_ctor_set(x_5, 1, x_3); return x_5; } } -lean_object* l_Lean_Parser_numLit___boxed(lean_object* x_1) { +lean_object* l_Lean_Parser_numLitNoAntiquot___boxed(lean_object* x_1) { _start: { uint8_t x_2; lean_object* x_3; x_2 = lean_unbox(x_1); lean_dec(x_1); -x_3 = l_Lean_Parser_numLit(x_2); +x_3 = l_Lean_Parser_numLitNoAntiquot(x_2); return x_3; } } @@ -11448,7 +11470,7 @@ lean_dec(x_2); return x_4; } } -lean_object* _init_l_Lean_Parser_strLit___closed__1() { +lean_object* _init_l_Lean_Parser_strLitNoAntiquot___closed__1() { _start: { lean_object* x_1; lean_object* x_2; @@ -11457,27 +11479,27 @@ x_2 = l_Lean_Parser_mkAtomicInfo(x_1); return x_2; } } -lean_object* l_Lean_Parser_strLit(uint8_t x_1) { +lean_object* l_Lean_Parser_strLitNoAntiquot(uint8_t x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = lean_box(x_1); x_3 = lean_alloc_closure((void*)(l_Lean_Parser_strLitFn___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = l_Lean_Parser_strLit___closed__1; +x_4 = l_Lean_Parser_strLitNoAntiquot___closed__1; x_5 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_5, 0, x_4); lean_ctor_set(x_5, 1, x_3); return x_5; } } -lean_object* l_Lean_Parser_strLit___boxed(lean_object* x_1) { +lean_object* l_Lean_Parser_strLitNoAntiquot___boxed(lean_object* x_1) { _start: { uint8_t x_2; lean_object* x_3; x_2 = lean_unbox(x_1); lean_dec(x_1); -x_3 = l_Lean_Parser_strLit(x_2); +x_3 = l_Lean_Parser_strLitNoAntiquot(x_2); return x_3; } } @@ -11549,7 +11571,7 @@ lean_dec(x_2); return x_4; } } -lean_object* _init_l_Lean_Parser_charLit___closed__1() { +lean_object* _init_l_Lean_Parser_charLitNoAntiquot___closed__1() { _start: { lean_object* x_1; lean_object* x_2; @@ -11558,27 +11580,27 @@ x_2 = l_Lean_Parser_mkAtomicInfo(x_1); return x_2; } } -lean_object* l_Lean_Parser_charLit(uint8_t x_1) { +lean_object* l_Lean_Parser_charLitNoAntiquot(uint8_t x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; x_2 = lean_box(x_1); x_3 = lean_alloc_closure((void*)(l_Lean_Parser_charLitFn___boxed), 2, 1); lean_closure_set(x_3, 0, x_2); -x_4 = l_Lean_Parser_charLit___closed__1; +x_4 = l_Lean_Parser_charLitNoAntiquot___closed__1; x_5 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_5, 0, x_4); lean_ctor_set(x_5, 1, x_3); return x_5; } } -lean_object* l_Lean_Parser_charLit___boxed(lean_object* x_1) { +lean_object* l_Lean_Parser_charLitNoAntiquot___boxed(lean_object* x_1) { _start: { uint8_t x_2; lean_object* x_3; x_2 = lean_unbox(x_1); lean_dec(x_1); -x_3 = l_Lean_Parser_charLit(x_2); +x_3 = l_Lean_Parser_charLitNoAntiquot(x_2); return x_3; } } @@ -27170,6 +27192,375 @@ x_3 = l_Lean_Parser_rawIdent(x_2); return x_3; } } +lean_object* l_Lean_Parser_numLit___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +x_8 = lean_ctor_get(x_5, 1); +lean_inc(x_8); +lean_inc(x_4); +lean_inc(x_3); +x_9 = lean_apply_3(x_2, x_3, x_4, x_5); +x_10 = lean_ctor_get(x_9, 3); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 0) +{ +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +x_13 = lean_nat_dec_eq(x_12, x_8); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_dec(x_11); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_inc(x_8); +x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); +lean_dec(x_7); +x_15 = lean_apply_3(x_1, x_3, x_4, x_14); +x_16 = l_Lean_Parser_mergeOrElseErrors(x_15, x_11, x_8); +lean_dec(x_8); +return x_16; +} +} +} +} +lean_object* l_Lean_Parser_numLit___elambda__1(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_numLit___elambda__1___rarg), 5, 0); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_numLit___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_numLitKind; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Parser_numLit(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t 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; +x_2 = l_Lean_numLitKind___closed__1; +x_3 = l_Lean_Parser_numLit___closed__1; +x_4 = 1; +x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); +x_6 = lean_box(x_1); +x_7 = lean_alloc_closure((void*)(l_Lean_Parser_numLitFn___boxed), 2, 1); +lean_closure_set(x_7, 0, x_6); +x_8 = lean_ctor_get(x_5, 0); +lean_inc(x_8); +x_9 = l_Lean_Parser_numLitNoAntiquot___closed__1; +x_10 = l_Lean_Parser_orelseInfo(x_8, x_9); +x_11 = lean_ctor_get(x_5, 1); +lean_inc(x_11); +lean_dec(x_5); +x_12 = lean_alloc_closure((void*)(l_Lean_Parser_numLit___elambda__1___rarg), 5, 2); +lean_closure_set(x_12, 0, x_7); +lean_closure_set(x_12, 1, x_11); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_10); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +lean_object* l_Lean_Parser_numLit___elambda__1___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Parser_numLit___elambda__1(x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_numLit___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Parser_numLit(x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_strLit___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +x_8 = lean_ctor_get(x_5, 1); +lean_inc(x_8); +lean_inc(x_4); +lean_inc(x_3); +x_9 = lean_apply_3(x_2, x_3, x_4, x_5); +x_10 = lean_ctor_get(x_9, 3); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 0) +{ +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +x_13 = lean_nat_dec_eq(x_12, x_8); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_dec(x_11); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_inc(x_8); +x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); +lean_dec(x_7); +x_15 = lean_apply_3(x_1, x_3, x_4, x_14); +x_16 = l_Lean_Parser_mergeOrElseErrors(x_15, x_11, x_8); +lean_dec(x_8); +return x_16; +} +} +} +} +lean_object* l_Lean_Parser_strLit___elambda__1(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_strLit___elambda__1___rarg), 5, 0); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_strLit___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_strLitKind; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Parser_strLit(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t 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; +x_2 = l_Lean_strLitKind___closed__1; +x_3 = l_Lean_Parser_strLit___closed__1; +x_4 = 1; +x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); +x_6 = lean_box(x_1); +x_7 = lean_alloc_closure((void*)(l_Lean_Parser_strLitFn___boxed), 2, 1); +lean_closure_set(x_7, 0, x_6); +x_8 = lean_ctor_get(x_5, 0); +lean_inc(x_8); +x_9 = l_Lean_Parser_strLitNoAntiquot___closed__1; +x_10 = l_Lean_Parser_orelseInfo(x_8, x_9); +x_11 = lean_ctor_get(x_5, 1); +lean_inc(x_11); +lean_dec(x_5); +x_12 = lean_alloc_closure((void*)(l_Lean_Parser_strLit___elambda__1___rarg), 5, 2); +lean_closure_set(x_12, 0, x_7); +lean_closure_set(x_12, 1, x_11); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_10); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +lean_object* l_Lean_Parser_strLit___elambda__1___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Parser_strLit___elambda__1(x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_strLit___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Parser_strLit(x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_charLit___elambda__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +_start: +{ +lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; +x_6 = lean_ctor_get(x_5, 0); +lean_inc(x_6); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +x_8 = lean_ctor_get(x_5, 1); +lean_inc(x_8); +lean_inc(x_4); +lean_inc(x_3); +x_9 = lean_apply_3(x_2, x_3, x_4, x_5); +x_10 = lean_ctor_get(x_9, 3); +lean_inc(x_10); +if (lean_obj_tag(x_10) == 0) +{ +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +x_13 = lean_nat_dec_eq(x_12, x_8); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_dec(x_11); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_4); +lean_dec(x_3); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_inc(x_8); +x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); +lean_dec(x_7); +x_15 = lean_apply_3(x_1, x_3, x_4, x_14); +x_16 = l_Lean_Parser_mergeOrElseErrors(x_15, x_11, x_8); +lean_dec(x_8); +return x_16; +} +} +} +} +lean_object* l_Lean_Parser_charLit___elambda__1(uint8_t x_1) { +_start: +{ +lean_object* x_2; +x_2 = lean_alloc_closure((void*)(l_Lean_Parser_charLit___elambda__1___rarg), 5, 0); +return x_2; +} +} +lean_object* _init_l_Lean_Parser_charLit___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = l_Lean_charLitKind; +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l_Lean_Parser_charLit(uint8_t x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t 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; +x_2 = l_Lean_charLitKind___closed__1; +x_3 = l_Lean_Parser_charLit___closed__1; +x_4 = 1; +x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); +x_6 = lean_box(x_1); +x_7 = lean_alloc_closure((void*)(l_Lean_Parser_charLitFn___boxed), 2, 1); +lean_closure_set(x_7, 0, x_6); +x_8 = lean_ctor_get(x_5, 0); +lean_inc(x_8); +x_9 = l_Lean_Parser_charLitNoAntiquot___closed__1; +x_10 = l_Lean_Parser_orelseInfo(x_8, x_9); +x_11 = lean_ctor_get(x_5, 1); +lean_inc(x_11); +lean_dec(x_5); +x_12 = lean_alloc_closure((void*)(l_Lean_Parser_charLit___elambda__1___rarg), 5, 2); +lean_closure_set(x_12, 0, x_7); +lean_closure_set(x_12, 1, x_11); +x_13 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_13, 0, x_10); +lean_ctor_set(x_13, 1, x_12); +return x_13; +} +} +lean_object* l_Lean_Parser_charLit___elambda__1___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Parser_charLit___elambda__1(x_2); +return x_3; +} +} +lean_object* l_Lean_Parser_charLit___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = lean_unbox(x_1); +lean_dec(x_1); +x_3 = l_Lean_Parser_charLit(x_2); +return x_3; +} +} lean_object* _init_l_Lean_Parser_categoryParserOfStackFn___closed__1() { _start: { @@ -31374,86 +31765,68 @@ return x_279; } case 12: { -lean_object* x_280; lean_object* x_281; lean_object* x_282; lean_object* x_283; lean_object* x_284; +lean_object* x_280; lean_object* x_281; lean_dec(x_3); lean_dec(x_1); -x_280 = lean_box(x_2); -x_281 = lean_alloc_closure((void*)(l_Lean_Parser_numLitFn___boxed), 2, 1); -lean_closure_set(x_281, 0, x_280); -x_282 = l_Lean_Parser_numLit___closed__1; -x_283 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_283, 0, x_282); -lean_ctor_set(x_283, 1, x_281); -x_284 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_284, 0, x_283); -return x_284; +x_280 = l_Lean_Parser_numLit(x_2); +x_281 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_281, 0, x_280); +return x_281; } case 13: { -lean_object* x_285; lean_object* x_286; lean_object* x_287; lean_object* x_288; lean_object* x_289; +lean_object* x_282; lean_object* x_283; lean_dec(x_3); lean_dec(x_1); -x_285 = lean_box(x_2); -x_286 = lean_alloc_closure((void*)(l_Lean_Parser_strLitFn___boxed), 2, 1); -lean_closure_set(x_286, 0, x_285); -x_287 = l_Lean_Parser_strLit___closed__1; -x_288 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_288, 0, x_287); -lean_ctor_set(x_288, 1, x_286); -x_289 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_289, 0, x_288); -return x_289; +x_282 = l_Lean_Parser_strLit(x_2); +x_283 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_283, 0, x_282); +return x_283; } case 14: { -lean_object* x_290; lean_object* x_291; lean_object* x_292; lean_object* x_293; lean_object* x_294; +lean_object* x_284; lean_object* x_285; lean_dec(x_3); lean_dec(x_1); -x_290 = lean_box(x_2); -x_291 = lean_alloc_closure((void*)(l_Lean_Parser_charLitFn___boxed), 2, 1); -lean_closure_set(x_291, 0, x_290); -x_292 = l_Lean_Parser_charLit___closed__1; -x_293 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_293, 0, x_292); -lean_ctor_set(x_293, 1, x_291); -x_294 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_294, 0, x_293); -return x_294; +x_284 = l_Lean_Parser_charLit(x_2); +x_285 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_285, 0, x_284); +return x_285; } case 15: { -lean_object* x_295; lean_object* x_296; +lean_object* x_286; lean_object* x_287; lean_dec(x_3); lean_dec(x_1); -x_295 = l_Lean_Parser_ident(x_2); -x_296 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_296, 0, x_295); -return x_296; +x_286 = l_Lean_Parser_ident(x_2); +x_287 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_287, 0, x_286); +return x_287; } default: { -lean_object* x_297; lean_object* x_298; lean_object* x_299; -x_297 = lean_ctor_get(x_3, 0); -lean_inc(x_297); -x_298 = lean_ctor_get(x_3, 1); -lean_inc(x_298); +lean_object* x_288; lean_object* x_289; lean_object* x_290; +x_288 = lean_ctor_get(x_3, 0); +lean_inc(x_288); +x_289 = lean_ctor_get(x_3, 1); +lean_inc(x_289); lean_dec(x_3); -x_299 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_1, x_297); -if (lean_obj_tag(x_299) == 0) +x_290 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_1, x_288); +if (lean_obj_tag(x_290) == 0) { -lean_object* x_300; -lean_dec(x_298); -x_300 = l_Lean_Parser_throwUnknownParserCategory___rarg(x_297); -return x_300; +lean_object* x_291; +lean_dec(x_289); +x_291 = l_Lean_Parser_throwUnknownParserCategory___rarg(x_288); +return x_291; } else { -lean_object* x_301; lean_object* x_302; -lean_dec(x_299); -x_301 = l_Lean_Parser_categoryParser(x_2, x_297, x_298); -x_302 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_302, 0, x_301); -return x_302; +lean_object* x_292; lean_object* x_293; +lean_dec(x_290); +x_292 = l_Lean_Parser_categoryParser(x_2, x_288, x_289); +x_293 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_293, 0, x_292); +return x_293; } } } @@ -31463,1124 +31836,1106 @@ else switch (lean_obj_tag(x_3)) { case 0: { -lean_object* x_303; lean_object* x_304; lean_object* x_305; -x_303 = lean_ctor_get(x_3, 0); -lean_inc(x_303); -x_304 = lean_ctor_get(x_3, 1); -lean_inc(x_304); +lean_object* x_294; lean_object* x_295; lean_object* x_296; +x_294 = lean_ctor_get(x_3, 0); +lean_inc(x_294); +x_295 = lean_ctor_get(x_3, 1); +lean_inc(x_295); lean_dec(x_3); lean_inc(x_1); -x_305 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_303); -if (lean_obj_tag(x_305) == 0) +x_296 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_294); +if (lean_obj_tag(x_296) == 0) { -uint8_t x_306; -lean_dec(x_304); +uint8_t x_297; +lean_dec(x_295); lean_dec(x_1); -x_306 = !lean_is_exclusive(x_305); -if (x_306 == 0) +x_297 = !lean_is_exclusive(x_296); +if (x_297 == 0) { -return x_305; +return x_296; } else { -lean_object* x_307; lean_object* x_308; -x_307 = lean_ctor_get(x_305, 0); +lean_object* x_298; lean_object* x_299; +x_298 = lean_ctor_get(x_296, 0); +lean_inc(x_298); +lean_dec(x_296); +x_299 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_299, 0, x_298); +return x_299; +} +} +else +{ +lean_object* x_300; lean_object* x_301; +x_300 = lean_ctor_get(x_296, 0); +lean_inc(x_300); +lean_dec(x_296); +x_301 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_295); +if (lean_obj_tag(x_301) == 0) +{ +uint8_t x_302; +lean_dec(x_300); +x_302 = !lean_is_exclusive(x_301); +if (x_302 == 0) +{ +return x_301; +} +else +{ +lean_object* x_303; lean_object* x_304; +x_303 = lean_ctor_get(x_301, 0); +lean_inc(x_303); +lean_dec(x_301); +x_304 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_304, 0, x_303); +return x_304; +} +} +else +{ +uint8_t x_305; +x_305 = !lean_is_exclusive(x_301); +if (x_305 == 0) +{ +lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; lean_object* x_311; lean_object* x_312; lean_object* x_313; +x_306 = lean_ctor_get(x_301, 0); +x_307 = lean_ctor_get(x_300, 0); lean_inc(x_307); -lean_dec(x_305); -x_308 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_308, 0, x_307); -return x_308; -} +x_308 = lean_ctor_get(x_306, 0); +lean_inc(x_308); +x_309 = l_Lean_Parser_andthenInfo(x_307, x_308); +x_310 = lean_ctor_get(x_300, 1); +lean_inc(x_310); +lean_dec(x_300); +x_311 = lean_ctor_get(x_306, 1); +lean_inc(x_311); +lean_dec(x_306); +x_312 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_312, 0, x_310); +lean_closure_set(x_312, 1, x_311); +x_313 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_313, 0, x_309); +lean_ctor_set(x_313, 1, x_312); +lean_ctor_set(x_301, 0, x_313); +return x_301; } else { -lean_object* x_309; lean_object* x_310; -x_309 = lean_ctor_get(x_305, 0); -lean_inc(x_309); -lean_dec(x_305); -x_310 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_304); -if (lean_obj_tag(x_310) == 0) -{ -uint8_t x_311; -lean_dec(x_309); -x_311 = !lean_is_exclusive(x_310); -if (x_311 == 0) -{ -return x_310; -} -else -{ -lean_object* x_312; lean_object* x_313; -x_312 = lean_ctor_get(x_310, 0); -lean_inc(x_312); -lean_dec(x_310); -x_313 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_313, 0, x_312); -return x_313; -} -} -else -{ -uint8_t x_314; -x_314 = !lean_is_exclusive(x_310); -if (x_314 == 0) -{ -lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; -x_315 = lean_ctor_get(x_310, 0); -x_316 = lean_ctor_get(x_309, 0); +lean_object* x_314; lean_object* x_315; lean_object* x_316; lean_object* x_317; lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; +x_314 = lean_ctor_get(x_301, 0); +lean_inc(x_314); +lean_dec(x_301); +x_315 = lean_ctor_get(x_300, 0); +lean_inc(x_315); +x_316 = lean_ctor_get(x_314, 0); lean_inc(x_316); -x_317 = lean_ctor_get(x_315, 0); -lean_inc(x_317); -x_318 = l_Lean_Parser_andthenInfo(x_316, x_317); -x_319 = lean_ctor_get(x_309, 1); +x_317 = l_Lean_Parser_andthenInfo(x_315, x_316); +x_318 = lean_ctor_get(x_300, 1); +lean_inc(x_318); +lean_dec(x_300); +x_319 = lean_ctor_get(x_314, 1); lean_inc(x_319); -lean_dec(x_309); -x_320 = lean_ctor_get(x_315, 1); -lean_inc(x_320); -lean_dec(x_315); -x_321 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_321, 0, x_319); -lean_closure_set(x_321, 1, x_320); -x_322 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_322, 0, x_318); -lean_ctor_set(x_322, 1, x_321); -lean_ctor_set(x_310, 0, x_322); -return x_310; -} -else -{ -lean_object* x_323; lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; lean_object* x_330; lean_object* x_331; -x_323 = lean_ctor_get(x_310, 0); -lean_inc(x_323); -lean_dec(x_310); -x_324 = lean_ctor_get(x_309, 0); -lean_inc(x_324); -x_325 = lean_ctor_get(x_323, 0); -lean_inc(x_325); -x_326 = l_Lean_Parser_andthenInfo(x_324, x_325); -x_327 = lean_ctor_get(x_309, 1); -lean_inc(x_327); -lean_dec(x_309); -x_328 = lean_ctor_get(x_323, 1); -lean_inc(x_328); -lean_dec(x_323); -x_329 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); -lean_closure_set(x_329, 0, x_327); -lean_closure_set(x_329, 1, x_328); -x_330 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_330, 0, x_326); -lean_ctor_set(x_330, 1, x_329); -x_331 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_331, 0, x_330); -return x_331; +lean_dec(x_314); +x_320 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn___rarg), 5, 2); +lean_closure_set(x_320, 0, x_318); +lean_closure_set(x_320, 1, x_319); +x_321 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_321, 0, x_317); +lean_ctor_set(x_321, 1, x_320); +x_322 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_322, 0, x_321); +return x_322; } } } } case 1: { -lean_object* x_332; lean_object* x_333; lean_object* x_334; -x_332 = lean_ctor_get(x_3, 0); -lean_inc(x_332); -x_333 = lean_ctor_get(x_3, 1); -lean_inc(x_333); +lean_object* x_323; lean_object* x_324; lean_object* x_325; +x_323 = lean_ctor_get(x_3, 0); +lean_inc(x_323); +x_324 = lean_ctor_get(x_3, 1); +lean_inc(x_324); lean_dec(x_3); lean_inc(x_1); -x_334 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_332); -if (lean_obj_tag(x_334) == 0) +x_325 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_323); +if (lean_obj_tag(x_325) == 0) { -uint8_t x_335; -lean_dec(x_333); +uint8_t x_326; +lean_dec(x_324); lean_dec(x_1); -x_335 = !lean_is_exclusive(x_334); -if (x_335 == 0) +x_326 = !lean_is_exclusive(x_325); +if (x_326 == 0) { -return x_334; +return x_325; } else { -lean_object* x_336; lean_object* x_337; -x_336 = lean_ctor_get(x_334, 0); +lean_object* x_327; lean_object* x_328; +x_327 = lean_ctor_get(x_325, 0); +lean_inc(x_327); +lean_dec(x_325); +x_328 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_328, 0, x_327); +return x_328; +} +} +else +{ +lean_object* x_329; lean_object* x_330; +x_329 = lean_ctor_get(x_325, 0); +lean_inc(x_329); +lean_dec(x_325); +x_330 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_324); +if (lean_obj_tag(x_330) == 0) +{ +uint8_t x_331; +lean_dec(x_329); +x_331 = !lean_is_exclusive(x_330); +if (x_331 == 0) +{ +return x_330; +} +else +{ +lean_object* x_332; lean_object* x_333; +x_332 = lean_ctor_get(x_330, 0); +lean_inc(x_332); +lean_dec(x_330); +x_333 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_333, 0, x_332); +return x_333; +} +} +else +{ +uint8_t x_334; +x_334 = !lean_is_exclusive(x_330); +if (x_334 == 0) +{ +lean_object* x_335; lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; +x_335 = lean_ctor_get(x_330, 0); +x_336 = lean_ctor_get(x_329, 0); lean_inc(x_336); -lean_dec(x_334); -x_337 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_337, 0, x_336); -return x_337; -} +x_337 = lean_ctor_get(x_335, 0); +lean_inc(x_337); +x_338 = l_Lean_Parser_orelseInfo(x_336, x_337); +x_339 = lean_ctor_get(x_329, 1); +lean_inc(x_339); +lean_dec(x_329); +x_340 = lean_ctor_get(x_335, 1); +lean_inc(x_340); +lean_dec(x_335); +x_341 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn___rarg), 5, 2); +lean_closure_set(x_341, 0, x_339); +lean_closure_set(x_341, 1, x_340); +x_342 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_342, 0, x_338); +lean_ctor_set(x_342, 1, x_341); +lean_ctor_set(x_330, 0, x_342); +return x_330; } else { -lean_object* x_338; lean_object* x_339; -x_338 = lean_ctor_get(x_334, 0); -lean_inc(x_338); -lean_dec(x_334); -x_339 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_333); -if (lean_obj_tag(x_339) == 0) -{ -uint8_t x_340; -lean_dec(x_338); -x_340 = !lean_is_exclusive(x_339); -if (x_340 == 0) -{ -return x_339; -} -else -{ -lean_object* x_341; lean_object* x_342; -x_341 = lean_ctor_get(x_339, 0); -lean_inc(x_341); -lean_dec(x_339); -x_342 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_342, 0, x_341); -return x_342; -} -} -else -{ -uint8_t x_343; -x_343 = !lean_is_exclusive(x_339); -if (x_343 == 0) -{ -lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; -x_344 = lean_ctor_get(x_339, 0); -x_345 = lean_ctor_get(x_338, 0); +lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; lean_object* x_348; lean_object* x_349; lean_object* x_350; lean_object* x_351; +x_343 = lean_ctor_get(x_330, 0); +lean_inc(x_343); +lean_dec(x_330); +x_344 = lean_ctor_get(x_329, 0); +lean_inc(x_344); +x_345 = lean_ctor_get(x_343, 0); lean_inc(x_345); -x_346 = lean_ctor_get(x_344, 0); -lean_inc(x_346); -x_347 = l_Lean_Parser_orelseInfo(x_345, x_346); -x_348 = lean_ctor_get(x_338, 1); +x_346 = l_Lean_Parser_orelseInfo(x_344, x_345); +x_347 = lean_ctor_get(x_329, 1); +lean_inc(x_347); +lean_dec(x_329); +x_348 = lean_ctor_get(x_343, 1); lean_inc(x_348); -lean_dec(x_338); -x_349 = lean_ctor_get(x_344, 1); -lean_inc(x_349); -lean_dec(x_344); -x_350 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn___rarg), 5, 2); -lean_closure_set(x_350, 0, x_348); -lean_closure_set(x_350, 1, x_349); -x_351 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_351, 0, x_347); -lean_ctor_set(x_351, 1, x_350); -lean_ctor_set(x_339, 0, x_351); -return x_339; -} -else -{ -lean_object* x_352; lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; lean_object* x_360; -x_352 = lean_ctor_get(x_339, 0); -lean_inc(x_352); -lean_dec(x_339); -x_353 = lean_ctor_get(x_338, 0); -lean_inc(x_353); -x_354 = lean_ctor_get(x_352, 0); -lean_inc(x_354); -x_355 = l_Lean_Parser_orelseInfo(x_353, x_354); -x_356 = lean_ctor_get(x_338, 1); -lean_inc(x_356); -lean_dec(x_338); -x_357 = lean_ctor_get(x_352, 1); -lean_inc(x_357); -lean_dec(x_352); -x_358 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn___rarg), 5, 2); -lean_closure_set(x_358, 0, x_356); -lean_closure_set(x_358, 1, x_357); -x_359 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_359, 0, x_355); -lean_ctor_set(x_359, 1, x_358); -x_360 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_360, 0, x_359); -return x_360; +lean_dec(x_343); +x_349 = lean_alloc_closure((void*)(l_Lean_Parser_orelseFn___rarg), 5, 2); +lean_closure_set(x_349, 0, x_347); +lean_closure_set(x_349, 1, x_348); +x_350 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_350, 0, x_346); +lean_ctor_set(x_350, 1, x_349); +x_351 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_351, 0, x_350); +return x_351; } } } } case 2: { -lean_object* x_361; lean_object* x_362; -x_361 = lean_ctor_get(x_3, 0); -lean_inc(x_361); +lean_object* x_352; lean_object* x_353; +x_352 = lean_ctor_get(x_3, 0); +lean_inc(x_352); lean_dec(x_3); -x_362 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_361); -if (lean_obj_tag(x_362) == 0) +x_353 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_352); +if (lean_obj_tag(x_353) == 0) { -uint8_t x_363; -x_363 = !lean_is_exclusive(x_362); -if (x_363 == 0) +uint8_t x_354; +x_354 = !lean_is_exclusive(x_353); +if (x_354 == 0) { -return x_362; +return x_353; } else { -lean_object* x_364; lean_object* x_365; -x_364 = lean_ctor_get(x_362, 0); +lean_object* x_355; lean_object* x_356; +x_355 = lean_ctor_get(x_353, 0); +lean_inc(x_355); +lean_dec(x_353); +x_356 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_356, 0, x_355); +return x_356; +} +} +else +{ +uint8_t x_357; +x_357 = !lean_is_exclusive(x_353); +if (x_357 == 0) +{ +lean_object* x_358; lean_object* x_359; lean_object* x_360; lean_object* x_361; lean_object* x_362; lean_object* x_363; +x_358 = lean_ctor_get(x_353, 0); +x_359 = lean_ctor_get(x_358, 0); +lean_inc(x_359); +x_360 = l_Lean_Parser_optionaInfo(x_359); +x_361 = lean_ctor_get(x_358, 1); +lean_inc(x_361); +lean_dec(x_358); +x_362 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn___rarg), 4, 1); +lean_closure_set(x_362, 0, x_361); +x_363 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_363, 0, x_360); +lean_ctor_set(x_363, 1, x_362); +lean_ctor_set(x_353, 0, x_363); +return x_353; +} +else +{ +lean_object* x_364; lean_object* x_365; lean_object* x_366; lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; +x_364 = lean_ctor_get(x_353, 0); lean_inc(x_364); -lean_dec(x_362); -x_365 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_365, 0, x_364); -return x_365; -} -} -else -{ -uint8_t x_366; -x_366 = !lean_is_exclusive(x_362); -if (x_366 == 0) -{ -lean_object* x_367; lean_object* x_368; lean_object* x_369; lean_object* x_370; lean_object* x_371; lean_object* x_372; -x_367 = lean_ctor_get(x_362, 0); -x_368 = lean_ctor_get(x_367, 0); -lean_inc(x_368); -x_369 = l_Lean_Parser_optionaInfo(x_368); -x_370 = lean_ctor_get(x_367, 1); -lean_inc(x_370); -lean_dec(x_367); -x_371 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn___rarg), 4, 1); -lean_closure_set(x_371, 0, x_370); -x_372 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_372, 0, x_369); -lean_ctor_set(x_372, 1, x_371); -lean_ctor_set(x_362, 0, x_372); -return x_362; -} -else -{ -lean_object* x_373; lean_object* x_374; lean_object* x_375; lean_object* x_376; lean_object* x_377; lean_object* x_378; lean_object* x_379; -x_373 = lean_ctor_get(x_362, 0); -lean_inc(x_373); -lean_dec(x_362); -x_374 = lean_ctor_get(x_373, 0); -lean_inc(x_374); -x_375 = l_Lean_Parser_optionaInfo(x_374); -x_376 = lean_ctor_get(x_373, 1); -lean_inc(x_376); -lean_dec(x_373); -x_377 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn___rarg), 4, 1); -lean_closure_set(x_377, 0, x_376); -x_378 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_378, 0, x_375); -lean_ctor_set(x_378, 1, x_377); -x_379 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_379, 0, x_378); -return x_379; +lean_dec(x_353); +x_365 = lean_ctor_get(x_364, 0); +lean_inc(x_365); +x_366 = l_Lean_Parser_optionaInfo(x_365); +x_367 = lean_ctor_get(x_364, 1); +lean_inc(x_367); +lean_dec(x_364); +x_368 = lean_alloc_closure((void*)(l_Lean_Parser_optionalFn___rarg), 4, 1); +lean_closure_set(x_368, 0, x_367); +x_369 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_369, 0, x_366); +lean_ctor_set(x_369, 1, x_368); +x_370 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_370, 0, x_369); +return x_370; } } } case 3: { -lean_object* x_380; lean_object* x_381; -x_380 = lean_ctor_get(x_3, 0); -lean_inc(x_380); +lean_object* x_371; lean_object* x_372; +x_371 = lean_ctor_get(x_3, 0); +lean_inc(x_371); lean_dec(x_3); -x_381 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_380); -if (lean_obj_tag(x_381) == 0) +x_372 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_371); +if (lean_obj_tag(x_372) == 0) { -uint8_t x_382; -x_382 = !lean_is_exclusive(x_381); -if (x_382 == 0) +uint8_t x_373; +x_373 = !lean_is_exclusive(x_372); +if (x_373 == 0) { -return x_381; +return x_372; } else { -lean_object* x_383; lean_object* x_384; -x_383 = lean_ctor_get(x_381, 0); -lean_inc(x_383); -lean_dec(x_381); -x_384 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_384, 0, x_383); -return x_384; +lean_object* x_374; lean_object* x_375; +x_374 = lean_ctor_get(x_372, 0); +lean_inc(x_374); +lean_dec(x_372); +x_375 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_375, 0, x_374); +return x_375; } } else { -uint8_t x_385; -x_385 = !lean_is_exclusive(x_381); -if (x_385 == 0) +uint8_t x_376; +x_376 = !lean_is_exclusive(x_372); +if (x_376 == 0) { -lean_object* x_386; uint8_t x_387; -x_386 = lean_ctor_get(x_381, 0); -x_387 = !lean_is_exclusive(x_386); -if (x_387 == 0) +lean_object* x_377; uint8_t x_378; +x_377 = lean_ctor_get(x_372, 0); +x_378 = !lean_is_exclusive(x_377); +if (x_378 == 0) { -lean_object* x_388; lean_object* x_389; -x_388 = lean_ctor_get(x_386, 1); +lean_object* x_379; lean_object* x_380; +x_379 = lean_ctor_get(x_377, 1); +x_380 = lean_alloc_closure((void*)(l_Lean_Parser_lookaheadFn___rarg), 4, 1); +lean_closure_set(x_380, 0, x_379); +lean_ctor_set(x_377, 1, x_380); +return x_372; +} +else +{ +lean_object* x_381; lean_object* x_382; lean_object* x_383; lean_object* x_384; +x_381 = lean_ctor_get(x_377, 0); +x_382 = lean_ctor_get(x_377, 1); +lean_inc(x_382); +lean_inc(x_381); +lean_dec(x_377); +x_383 = lean_alloc_closure((void*)(l_Lean_Parser_lookaheadFn___rarg), 4, 1); +lean_closure_set(x_383, 0, x_382); +x_384 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_384, 0, x_381); +lean_ctor_set(x_384, 1, x_383); +lean_ctor_set(x_372, 0, x_384); +return x_372; +} +} +else +{ +lean_object* x_385; lean_object* x_386; lean_object* x_387; lean_object* x_388; lean_object* x_389; lean_object* x_390; lean_object* x_391; +x_385 = lean_ctor_get(x_372, 0); +lean_inc(x_385); +lean_dec(x_372); +x_386 = lean_ctor_get(x_385, 0); +lean_inc(x_386); +x_387 = lean_ctor_get(x_385, 1); +lean_inc(x_387); +if (lean_is_exclusive(x_385)) { + lean_ctor_release(x_385, 0); + lean_ctor_release(x_385, 1); + x_388 = x_385; +} else { + lean_dec_ref(x_385); + x_388 = lean_box(0); +} x_389 = lean_alloc_closure((void*)(l_Lean_Parser_lookaheadFn___rarg), 4, 1); -lean_closure_set(x_389, 0, x_388); -lean_ctor_set(x_386, 1, x_389); -return x_381; -} -else -{ -lean_object* x_390; lean_object* x_391; lean_object* x_392; lean_object* x_393; -x_390 = lean_ctor_get(x_386, 0); -x_391 = lean_ctor_get(x_386, 1); -lean_inc(x_391); -lean_inc(x_390); -lean_dec(x_386); -x_392 = lean_alloc_closure((void*)(l_Lean_Parser_lookaheadFn___rarg), 4, 1); -lean_closure_set(x_392, 0, x_391); -x_393 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_393, 0, x_390); -lean_ctor_set(x_393, 1, x_392); -lean_ctor_set(x_381, 0, x_393); -return x_381; -} -} -else -{ -lean_object* x_394; lean_object* x_395; lean_object* x_396; lean_object* x_397; lean_object* x_398; lean_object* x_399; lean_object* x_400; -x_394 = lean_ctor_get(x_381, 0); -lean_inc(x_394); -lean_dec(x_381); -x_395 = lean_ctor_get(x_394, 0); -lean_inc(x_395); -x_396 = lean_ctor_get(x_394, 1); -lean_inc(x_396); -if (lean_is_exclusive(x_394)) { - lean_ctor_release(x_394, 0); - lean_ctor_release(x_394, 1); - x_397 = x_394; +lean_closure_set(x_389, 0, x_387); +if (lean_is_scalar(x_388)) { + x_390 = lean_alloc_ctor(0, 2, 0); } else { - lean_dec_ref(x_394); - x_397 = lean_box(0); + x_390 = x_388; } -x_398 = lean_alloc_closure((void*)(l_Lean_Parser_lookaheadFn___rarg), 4, 1); -lean_closure_set(x_398, 0, x_396); -if (lean_is_scalar(x_397)) { - x_399 = lean_alloc_ctor(0, 2, 0); -} else { - x_399 = x_397; -} -lean_ctor_set(x_399, 0, x_395); -lean_ctor_set(x_399, 1, x_398); -x_400 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_400, 0, x_399); -return x_400; +lean_ctor_set(x_390, 0, x_386); +lean_ctor_set(x_390, 1, x_389); +x_391 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_391, 0, x_390); +return x_391; } } } case 4: { -lean_object* x_401; lean_object* x_402; -x_401 = lean_ctor_get(x_3, 0); -lean_inc(x_401); +lean_object* x_392; lean_object* x_393; +x_392 = lean_ctor_get(x_3, 0); +lean_inc(x_392); lean_dec(x_3); -x_402 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_401); -if (lean_obj_tag(x_402) == 0) +x_393 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_392); +if (lean_obj_tag(x_393) == 0) { -uint8_t x_403; -x_403 = !lean_is_exclusive(x_402); -if (x_403 == 0) +uint8_t x_394; +x_394 = !lean_is_exclusive(x_393); +if (x_394 == 0) { -return x_402; +return x_393; } else { -lean_object* x_404; lean_object* x_405; -x_404 = lean_ctor_get(x_402, 0); -lean_inc(x_404); -lean_dec(x_402); -x_405 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_405, 0, x_404); -return x_405; +lean_object* x_395; lean_object* x_396; +x_395 = lean_ctor_get(x_393, 0); +lean_inc(x_395); +lean_dec(x_393); +x_396 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_396, 0, x_395); +return x_396; } } else { -uint8_t x_406; -x_406 = !lean_is_exclusive(x_402); -if (x_406 == 0) +uint8_t x_397; +x_397 = !lean_is_exclusive(x_393); +if (x_397 == 0) { -lean_object* x_407; uint8_t x_408; -x_407 = lean_ctor_get(x_402, 0); -x_408 = !lean_is_exclusive(x_407); -if (x_408 == 0) +lean_object* x_398; uint8_t x_399; +x_398 = lean_ctor_get(x_393, 0); +x_399 = !lean_is_exclusive(x_398); +if (x_399 == 0) { -lean_object* x_409; lean_object* x_410; -x_409 = lean_ctor_get(x_407, 1); +lean_object* x_400; lean_object* x_401; +x_400 = lean_ctor_get(x_398, 1); +x_401 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); +lean_closure_set(x_401, 0, x_400); +lean_ctor_set(x_398, 1, x_401); +return x_393; +} +else +{ +lean_object* x_402; lean_object* x_403; lean_object* x_404; lean_object* x_405; +x_402 = lean_ctor_get(x_398, 0); +x_403 = lean_ctor_get(x_398, 1); +lean_inc(x_403); +lean_inc(x_402); +lean_dec(x_398); +x_404 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); +lean_closure_set(x_404, 0, x_403); +x_405 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_405, 0, x_402); +lean_ctor_set(x_405, 1, x_404); +lean_ctor_set(x_393, 0, x_405); +return x_393; +} +} +else +{ +lean_object* x_406; lean_object* x_407; lean_object* x_408; lean_object* x_409; lean_object* x_410; lean_object* x_411; lean_object* x_412; +x_406 = lean_ctor_get(x_393, 0); +lean_inc(x_406); +lean_dec(x_393); +x_407 = lean_ctor_get(x_406, 0); +lean_inc(x_407); +x_408 = lean_ctor_get(x_406, 1); +lean_inc(x_408); +if (lean_is_exclusive(x_406)) { + lean_ctor_release(x_406, 0); + lean_ctor_release(x_406, 1); + x_409 = x_406; +} else { + lean_dec_ref(x_406); + x_409 = lean_box(0); +} x_410 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); -lean_closure_set(x_410, 0, x_409); -lean_ctor_set(x_407, 1, x_410); -return x_402; -} -else -{ -lean_object* x_411; lean_object* x_412; lean_object* x_413; lean_object* x_414; -x_411 = lean_ctor_get(x_407, 0); -x_412 = lean_ctor_get(x_407, 1); -lean_inc(x_412); -lean_inc(x_411); -lean_dec(x_407); -x_413 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); -lean_closure_set(x_413, 0, x_412); -x_414 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_414, 0, x_411); -lean_ctor_set(x_414, 1, x_413); -lean_ctor_set(x_402, 0, x_414); -return x_402; -} -} -else -{ -lean_object* x_415; lean_object* x_416; lean_object* x_417; lean_object* x_418; lean_object* x_419; lean_object* x_420; lean_object* x_421; -x_415 = lean_ctor_get(x_402, 0); -lean_inc(x_415); -lean_dec(x_402); -x_416 = lean_ctor_get(x_415, 0); -lean_inc(x_416); -x_417 = lean_ctor_get(x_415, 1); -lean_inc(x_417); -if (lean_is_exclusive(x_415)) { - lean_ctor_release(x_415, 0); - lean_ctor_release(x_415, 1); - x_418 = x_415; +lean_closure_set(x_410, 0, x_408); +if (lean_is_scalar(x_409)) { + x_411 = lean_alloc_ctor(0, 2, 0); } else { - lean_dec_ref(x_415); - x_418 = lean_box(0); + x_411 = x_409; } -x_419 = lean_alloc_closure((void*)(l_Lean_Parser_tryFn___rarg), 4, 1); -lean_closure_set(x_419, 0, x_417); -if (lean_is_scalar(x_418)) { - x_420 = lean_alloc_ctor(0, 2, 0); -} else { - x_420 = x_418; -} -lean_ctor_set(x_420, 0, x_416); -lean_ctor_set(x_420, 1, x_419); -x_421 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_421, 0, x_420); -return x_421; +lean_ctor_set(x_411, 0, x_407); +lean_ctor_set(x_411, 1, x_410); +x_412 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_412, 0, x_411); +return x_412; } } } case 5: { -lean_object* x_422; lean_object* x_423; -x_422 = lean_ctor_get(x_3, 0); -lean_inc(x_422); +lean_object* x_413; lean_object* x_414; +x_413 = lean_ctor_get(x_3, 0); +lean_inc(x_413); lean_dec(x_3); -x_423 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_422); -if (lean_obj_tag(x_423) == 0) +x_414 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_413); +if (lean_obj_tag(x_414) == 0) { -uint8_t x_424; -x_424 = !lean_is_exclusive(x_423); -if (x_424 == 0) +uint8_t x_415; +x_415 = !lean_is_exclusive(x_414); +if (x_415 == 0) { -return x_423; +return x_414; } else { -lean_object* x_425; lean_object* x_426; -x_425 = lean_ctor_get(x_423, 0); -lean_inc(x_425); -lean_dec(x_423); -x_426 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_426, 0, x_425); -return x_426; +lean_object* x_416; lean_object* x_417; +x_416 = lean_ctor_get(x_414, 0); +lean_inc(x_416); +lean_dec(x_414); +x_417 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_417, 0, x_416); +return x_417; } } else { -uint8_t x_427; -x_427 = !lean_is_exclusive(x_423); -if (x_427 == 0) +uint8_t x_418; +x_418 = !lean_is_exclusive(x_414); +if (x_418 == 0) { -lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; lean_object* x_434; -x_428 = lean_ctor_get(x_423, 0); -x_429 = lean_ctor_get(x_428, 0); +lean_object* x_419; lean_object* x_420; lean_object* x_421; lean_object* x_422; lean_object* x_423; lean_object* x_424; lean_object* x_425; +x_419 = lean_ctor_get(x_414, 0); +x_420 = lean_ctor_get(x_419, 0); +lean_inc(x_420); +x_421 = l_Lean_Parser_noFirstTokenInfo(x_420); +x_422 = lean_ctor_get(x_419, 1); +lean_inc(x_422); +lean_dec(x_419); +x_423 = lean_box(x_2); +x_424 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn___boxed), 5, 2); +lean_closure_set(x_424, 0, x_423); +lean_closure_set(x_424, 1, x_422); +x_425 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_425, 0, x_421); +lean_ctor_set(x_425, 1, x_424); +lean_ctor_set(x_414, 0, x_425); +return x_414; +} +else +{ +lean_object* x_426; lean_object* x_427; lean_object* x_428; lean_object* x_429; lean_object* x_430; lean_object* x_431; lean_object* x_432; lean_object* x_433; +x_426 = lean_ctor_get(x_414, 0); +lean_inc(x_426); +lean_dec(x_414); +x_427 = lean_ctor_get(x_426, 0); +lean_inc(x_427); +x_428 = l_Lean_Parser_noFirstTokenInfo(x_427); +x_429 = lean_ctor_get(x_426, 1); lean_inc(x_429); -x_430 = l_Lean_Parser_noFirstTokenInfo(x_429); -x_431 = lean_ctor_get(x_428, 1); -lean_inc(x_431); -lean_dec(x_428); -x_432 = lean_box(x_2); -x_433 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn___boxed), 5, 2); -lean_closure_set(x_433, 0, x_432); -lean_closure_set(x_433, 1, x_431); -x_434 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_434, 0, x_430); -lean_ctor_set(x_434, 1, x_433); -lean_ctor_set(x_423, 0, x_434); -return x_423; -} -else -{ -lean_object* x_435; lean_object* x_436; lean_object* x_437; lean_object* x_438; lean_object* x_439; lean_object* x_440; lean_object* x_441; lean_object* x_442; -x_435 = lean_ctor_get(x_423, 0); -lean_inc(x_435); -lean_dec(x_423); -x_436 = lean_ctor_get(x_435, 0); -lean_inc(x_436); -x_437 = l_Lean_Parser_noFirstTokenInfo(x_436); -x_438 = lean_ctor_get(x_435, 1); -lean_inc(x_438); -lean_dec(x_435); -x_439 = lean_box(x_2); -x_440 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn___boxed), 5, 2); -lean_closure_set(x_440, 0, x_439); -lean_closure_set(x_440, 1, x_438); -x_441 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_441, 0, x_437); -lean_ctor_set(x_441, 1, x_440); -x_442 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_442, 0, x_441); -return x_442; +lean_dec(x_426); +x_430 = lean_box(x_2); +x_431 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn___boxed), 5, 2); +lean_closure_set(x_431, 0, x_430); +lean_closure_set(x_431, 1, x_429); +x_432 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_432, 0, x_428); +lean_ctor_set(x_432, 1, x_431); +x_433 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_433, 0, x_432); +return x_433; } } } case 6: { -lean_object* x_443; lean_object* x_444; -x_443 = lean_ctor_get(x_3, 0); -lean_inc(x_443); +lean_object* x_434; lean_object* x_435; +x_434 = lean_ctor_get(x_3, 0); +lean_inc(x_434); lean_dec(x_3); -x_444 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_443); -if (lean_obj_tag(x_444) == 0) +x_435 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_434); +if (lean_obj_tag(x_435) == 0) { -uint8_t x_445; -x_445 = !lean_is_exclusive(x_444); -if (x_445 == 0) +uint8_t x_436; +x_436 = !lean_is_exclusive(x_435); +if (x_436 == 0) { -return x_444; +return x_435; } else { -lean_object* x_446; lean_object* x_447; -x_446 = lean_ctor_get(x_444, 0); -lean_inc(x_446); -lean_dec(x_444); -x_447 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_447, 0, x_446); -return x_447; +lean_object* x_437; lean_object* x_438; +x_437 = lean_ctor_get(x_435, 0); +lean_inc(x_437); +lean_dec(x_435); +x_438 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_438, 0, x_437); +return x_438; } } else { -uint8_t x_448; -x_448 = !lean_is_exclusive(x_444); -if (x_448 == 0) +uint8_t x_439; +x_439 = !lean_is_exclusive(x_435); +if (x_439 == 0) { -lean_object* x_449; uint8_t x_450; -x_449 = lean_ctor_get(x_444, 0); -x_450 = !lean_is_exclusive(x_449); -if (x_450 == 0) +lean_object* x_440; uint8_t x_441; +x_440 = lean_ctor_get(x_435, 0); +x_441 = !lean_is_exclusive(x_440); +if (x_441 == 0) { -lean_object* x_451; uint8_t x_452; lean_object* x_453; lean_object* x_454; lean_object* x_455; -x_451 = lean_ctor_get(x_449, 1); -x_452 = 0; -x_453 = lean_box(x_2); -x_454 = lean_box(x_452); -x_455 = lean_alloc_closure((void*)(l_Lean_Parser_many1Fn___boxed), 6, 3); -lean_closure_set(x_455, 0, x_453); -lean_closure_set(x_455, 1, x_451); -lean_closure_set(x_455, 2, x_454); -lean_ctor_set(x_449, 1, x_455); -return x_444; +lean_object* x_442; uint8_t x_443; lean_object* x_444; lean_object* x_445; lean_object* x_446; +x_442 = lean_ctor_get(x_440, 1); +x_443 = 0; +x_444 = lean_box(x_2); +x_445 = lean_box(x_443); +x_446 = lean_alloc_closure((void*)(l_Lean_Parser_many1Fn___boxed), 6, 3); +lean_closure_set(x_446, 0, x_444); +lean_closure_set(x_446, 1, x_442); +lean_closure_set(x_446, 2, x_445); +lean_ctor_set(x_440, 1, x_446); +return x_435; } else { -lean_object* x_456; lean_object* x_457; uint8_t x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; -x_456 = lean_ctor_get(x_449, 0); -x_457 = lean_ctor_get(x_449, 1); -lean_inc(x_457); +lean_object* x_447; lean_object* x_448; uint8_t x_449; lean_object* x_450; lean_object* x_451; lean_object* x_452; lean_object* x_453; +x_447 = lean_ctor_get(x_440, 0); +x_448 = lean_ctor_get(x_440, 1); +lean_inc(x_448); +lean_inc(x_447); +lean_dec(x_440); +x_449 = 0; +x_450 = lean_box(x_2); +x_451 = lean_box(x_449); +x_452 = lean_alloc_closure((void*)(l_Lean_Parser_many1Fn___boxed), 6, 3); +lean_closure_set(x_452, 0, x_450); +lean_closure_set(x_452, 1, x_448); +lean_closure_set(x_452, 2, x_451); +x_453 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_453, 0, x_447); +lean_ctor_set(x_453, 1, x_452); +lean_ctor_set(x_435, 0, x_453); +return x_435; +} +} +else +{ +lean_object* x_454; lean_object* x_455; lean_object* x_456; lean_object* x_457; uint8_t x_458; lean_object* x_459; lean_object* x_460; lean_object* x_461; lean_object* x_462; lean_object* x_463; +x_454 = lean_ctor_get(x_435, 0); +lean_inc(x_454); +lean_dec(x_435); +x_455 = lean_ctor_get(x_454, 0); +lean_inc(x_455); +x_456 = lean_ctor_get(x_454, 1); lean_inc(x_456); -lean_dec(x_449); +if (lean_is_exclusive(x_454)) { + lean_ctor_release(x_454, 0); + lean_ctor_release(x_454, 1); + x_457 = x_454; +} else { + lean_dec_ref(x_454); + x_457 = lean_box(0); +} x_458 = 0; x_459 = lean_box(x_2); x_460 = lean_box(x_458); x_461 = lean_alloc_closure((void*)(l_Lean_Parser_many1Fn___boxed), 6, 3); lean_closure_set(x_461, 0, x_459); -lean_closure_set(x_461, 1, x_457); +lean_closure_set(x_461, 1, x_456); lean_closure_set(x_461, 2, x_460); -x_462 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_462, 0, x_456); +if (lean_is_scalar(x_457)) { + x_462 = lean_alloc_ctor(0, 2, 0); +} else { + x_462 = x_457; +} +lean_ctor_set(x_462, 0, x_455); lean_ctor_set(x_462, 1, x_461); -lean_ctor_set(x_444, 0, x_462); -return x_444; -} -} -else -{ -lean_object* x_463; lean_object* x_464; lean_object* x_465; lean_object* x_466; uint8_t x_467; lean_object* x_468; lean_object* x_469; lean_object* x_470; lean_object* x_471; lean_object* x_472; -x_463 = lean_ctor_get(x_444, 0); -lean_inc(x_463); -lean_dec(x_444); -x_464 = lean_ctor_get(x_463, 0); -lean_inc(x_464); -x_465 = lean_ctor_get(x_463, 1); -lean_inc(x_465); -if (lean_is_exclusive(x_463)) { - lean_ctor_release(x_463, 0); - lean_ctor_release(x_463, 1); - x_466 = x_463; -} else { - lean_dec_ref(x_463); - x_466 = lean_box(0); -} -x_467 = 0; -x_468 = lean_box(x_2); -x_469 = lean_box(x_467); -x_470 = lean_alloc_closure((void*)(l_Lean_Parser_many1Fn___boxed), 6, 3); -lean_closure_set(x_470, 0, x_468); -lean_closure_set(x_470, 1, x_465); -lean_closure_set(x_470, 2, x_469); -if (lean_is_scalar(x_466)) { - x_471 = lean_alloc_ctor(0, 2, 0); -} else { - x_471 = x_466; -} -lean_ctor_set(x_471, 0, x_464); -lean_ctor_set(x_471, 1, x_470); -x_472 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_472, 0, x_471); -return x_472; +x_463 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_463, 0, x_462); +return x_463; } } } case 7: { -lean_object* x_473; lean_object* x_474; lean_object* x_475; -x_473 = lean_ctor_get(x_3, 0); -lean_inc(x_473); -x_474 = lean_ctor_get(x_3, 1); -lean_inc(x_474); +lean_object* x_464; lean_object* x_465; lean_object* x_466; +x_464 = lean_ctor_get(x_3, 0); +lean_inc(x_464); +x_465 = lean_ctor_get(x_3, 1); +lean_inc(x_465); lean_dec(x_3); lean_inc(x_1); -x_475 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_473); -if (lean_obj_tag(x_475) == 0) +x_466 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_464); +if (lean_obj_tag(x_466) == 0) { -uint8_t x_476; -lean_dec(x_474); +uint8_t x_467; +lean_dec(x_465); lean_dec(x_1); -x_476 = !lean_is_exclusive(x_475); -if (x_476 == 0) +x_467 = !lean_is_exclusive(x_466); +if (x_467 == 0) { -return x_475; +return x_466; } else { -lean_object* x_477; lean_object* x_478; -x_477 = lean_ctor_get(x_475, 0); +lean_object* x_468; lean_object* x_469; +x_468 = lean_ctor_get(x_466, 0); +lean_inc(x_468); +lean_dec(x_466); +x_469 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_469, 0, x_468); +return x_469; +} +} +else +{ +lean_object* x_470; lean_object* x_471; +x_470 = lean_ctor_get(x_466, 0); +lean_inc(x_470); +lean_dec(x_466); +x_471 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_465); +if (lean_obj_tag(x_471) == 0) +{ +uint8_t x_472; +lean_dec(x_470); +x_472 = !lean_is_exclusive(x_471); +if (x_472 == 0) +{ +return x_471; +} +else +{ +lean_object* x_473; lean_object* x_474; +x_473 = lean_ctor_get(x_471, 0); +lean_inc(x_473); +lean_dec(x_471); +x_474 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_474, 0, x_473); +return x_474; +} +} +else +{ +uint8_t x_475; +x_475 = !lean_is_exclusive(x_471); +if (x_475 == 0) +{ +lean_object* x_476; lean_object* x_477; lean_object* x_478; lean_object* x_479; lean_object* x_480; lean_object* x_481; uint8_t x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; +x_476 = lean_ctor_get(x_471, 0); +x_477 = lean_ctor_get(x_470, 0); lean_inc(x_477); -lean_dec(x_475); -x_478 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_478, 0, x_477); -return x_478; -} +x_478 = lean_ctor_get(x_476, 0); +lean_inc(x_478); +x_479 = l_Lean_Parser_sepByInfo(x_477, x_478); +x_480 = lean_ctor_get(x_470, 1); +lean_inc(x_480); +lean_dec(x_470); +x_481 = lean_ctor_get(x_476, 1); +lean_inc(x_481); +lean_dec(x_476); +x_482 = 0; +x_483 = lean_box(x_2); +x_484 = lean_box(x_482); +x_485 = lean_alloc_closure((void*)(l_Lean_Parser_sepByFn___boxed), 7, 4); +lean_closure_set(x_485, 0, x_483); +lean_closure_set(x_485, 1, x_484); +lean_closure_set(x_485, 2, x_480); +lean_closure_set(x_485, 3, x_481); +x_486 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_486, 0, x_479); +lean_ctor_set(x_486, 1, x_485); +lean_ctor_set(x_471, 0, x_486); +return x_471; } else { -lean_object* x_479; lean_object* x_480; -x_479 = lean_ctor_get(x_475, 0); -lean_inc(x_479); -lean_dec(x_475); -x_480 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_474); -if (lean_obj_tag(x_480) == 0) -{ -uint8_t x_481; -lean_dec(x_479); -x_481 = !lean_is_exclusive(x_480); -if (x_481 == 0) -{ -return x_480; -} -else -{ -lean_object* x_482; lean_object* x_483; -x_482 = lean_ctor_get(x_480, 0); -lean_inc(x_482); -lean_dec(x_480); -x_483 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_483, 0, x_482); -return x_483; -} -} -else -{ -uint8_t x_484; -x_484 = !lean_is_exclusive(x_480); -if (x_484 == 0) -{ -lean_object* x_485; lean_object* x_486; lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; uint8_t x_491; lean_object* x_492; lean_object* x_493; lean_object* x_494; lean_object* x_495; -x_485 = lean_ctor_get(x_480, 0); -x_486 = lean_ctor_get(x_479, 0); -lean_inc(x_486); -x_487 = lean_ctor_get(x_485, 0); +lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; uint8_t x_493; lean_object* x_494; lean_object* x_495; lean_object* x_496; lean_object* x_497; lean_object* x_498; +x_487 = lean_ctor_get(x_471, 0); lean_inc(x_487); -x_488 = l_Lean_Parser_sepByInfo(x_486, x_487); -x_489 = lean_ctor_get(x_479, 1); +lean_dec(x_471); +x_488 = lean_ctor_get(x_470, 0); +lean_inc(x_488); +x_489 = lean_ctor_get(x_487, 0); lean_inc(x_489); -lean_dec(x_479); -x_490 = lean_ctor_get(x_485, 1); -lean_inc(x_490); -lean_dec(x_485); -x_491 = 0; -x_492 = lean_box(x_2); -x_493 = lean_box(x_491); -x_494 = lean_alloc_closure((void*)(l_Lean_Parser_sepByFn___boxed), 7, 4); -lean_closure_set(x_494, 0, x_492); -lean_closure_set(x_494, 1, x_493); -lean_closure_set(x_494, 2, x_489); -lean_closure_set(x_494, 3, x_490); -x_495 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_495, 0, x_488); -lean_ctor_set(x_495, 1, x_494); -lean_ctor_set(x_480, 0, x_495); -return x_480; -} -else -{ -lean_object* x_496; lean_object* x_497; lean_object* x_498; lean_object* x_499; lean_object* x_500; lean_object* x_501; uint8_t x_502; lean_object* x_503; lean_object* x_504; lean_object* x_505; lean_object* x_506; lean_object* x_507; -x_496 = lean_ctor_get(x_480, 0); -lean_inc(x_496); -lean_dec(x_480); -x_497 = lean_ctor_get(x_479, 0); -lean_inc(x_497); -x_498 = lean_ctor_get(x_496, 0); -lean_inc(x_498); -x_499 = l_Lean_Parser_sepByInfo(x_497, x_498); -x_500 = lean_ctor_get(x_479, 1); -lean_inc(x_500); -lean_dec(x_479); -x_501 = lean_ctor_get(x_496, 1); -lean_inc(x_501); -lean_dec(x_496); -x_502 = 0; -x_503 = lean_box(x_2); -x_504 = lean_box(x_502); -x_505 = lean_alloc_closure((void*)(l_Lean_Parser_sepByFn___boxed), 7, 4); -lean_closure_set(x_505, 0, x_503); -lean_closure_set(x_505, 1, x_504); -lean_closure_set(x_505, 2, x_500); -lean_closure_set(x_505, 3, x_501); -x_506 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_506, 0, x_499); -lean_ctor_set(x_506, 1, x_505); -x_507 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_507, 0, x_506); -return x_507; +x_490 = l_Lean_Parser_sepByInfo(x_488, x_489); +x_491 = lean_ctor_get(x_470, 1); +lean_inc(x_491); +lean_dec(x_470); +x_492 = lean_ctor_get(x_487, 1); +lean_inc(x_492); +lean_dec(x_487); +x_493 = 0; +x_494 = lean_box(x_2); +x_495 = lean_box(x_493); +x_496 = lean_alloc_closure((void*)(l_Lean_Parser_sepByFn___boxed), 7, 4); +lean_closure_set(x_496, 0, x_494); +lean_closure_set(x_496, 1, x_495); +lean_closure_set(x_496, 2, x_491); +lean_closure_set(x_496, 3, x_492); +x_497 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_497, 0, x_490); +lean_ctor_set(x_497, 1, x_496); +x_498 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_498, 0, x_497); +return x_498; } } } } case 8: { -lean_object* x_508; lean_object* x_509; lean_object* x_510; -x_508 = lean_ctor_get(x_3, 0); -lean_inc(x_508); -x_509 = lean_ctor_get(x_3, 1); -lean_inc(x_509); +lean_object* x_499; lean_object* x_500; lean_object* x_501; +x_499 = lean_ctor_get(x_3, 0); +lean_inc(x_499); +x_500 = lean_ctor_get(x_3, 1); +lean_inc(x_500); lean_dec(x_3); lean_inc(x_1); -x_510 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_508); -if (lean_obj_tag(x_510) == 0) +x_501 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_499); +if (lean_obj_tag(x_501) == 0) { -uint8_t x_511; -lean_dec(x_509); +uint8_t x_502; +lean_dec(x_500); lean_dec(x_1); -x_511 = !lean_is_exclusive(x_510); -if (x_511 == 0) +x_502 = !lean_is_exclusive(x_501); +if (x_502 == 0) { -return x_510; +return x_501; } else { -lean_object* x_512; lean_object* x_513; -x_512 = lean_ctor_get(x_510, 0); +lean_object* x_503; lean_object* x_504; +x_503 = lean_ctor_get(x_501, 0); +lean_inc(x_503); +lean_dec(x_501); +x_504 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_504, 0, x_503); +return x_504; +} +} +else +{ +lean_object* x_505; lean_object* x_506; +x_505 = lean_ctor_get(x_501, 0); +lean_inc(x_505); +lean_dec(x_501); +x_506 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_500); +if (lean_obj_tag(x_506) == 0) +{ +uint8_t x_507; +lean_dec(x_505); +x_507 = !lean_is_exclusive(x_506); +if (x_507 == 0) +{ +return x_506; +} +else +{ +lean_object* x_508; lean_object* x_509; +x_508 = lean_ctor_get(x_506, 0); +lean_inc(x_508); +lean_dec(x_506); +x_509 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_509, 0, x_508); +return x_509; +} +} +else +{ +uint8_t x_510; +x_510 = !lean_is_exclusive(x_506); +if (x_510 == 0) +{ +lean_object* x_511; lean_object* x_512; lean_object* x_513; lean_object* x_514; lean_object* x_515; lean_object* x_516; uint8_t x_517; lean_object* x_518; lean_object* x_519; lean_object* x_520; lean_object* x_521; lean_object* x_522; +x_511 = lean_ctor_get(x_506, 0); +x_512 = lean_ctor_get(x_505, 0); lean_inc(x_512); -lean_dec(x_510); -x_513 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_513, 0, x_512); -return x_513; -} +x_513 = lean_ctor_get(x_511, 0); +lean_inc(x_513); +x_514 = l_Lean_Parser_sepBy1Info(x_512, x_513); +x_515 = lean_ctor_get(x_505, 1); +lean_inc(x_515); +lean_dec(x_505); +x_516 = lean_ctor_get(x_511, 1); +lean_inc(x_516); +lean_dec(x_511); +x_517 = 0; +x_518 = lean_box(x_2); +x_519 = lean_box(x_517); +x_520 = lean_box(x_517); +x_521 = lean_alloc_closure((void*)(l_Lean_Parser_sepBy1Fn___boxed), 8, 5); +lean_closure_set(x_521, 0, x_518); +lean_closure_set(x_521, 1, x_519); +lean_closure_set(x_521, 2, x_515); +lean_closure_set(x_521, 3, x_516); +lean_closure_set(x_521, 4, x_520); +x_522 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_522, 0, x_514); +lean_ctor_set(x_522, 1, x_521); +lean_ctor_set(x_506, 0, x_522); +return x_506; } else { -lean_object* x_514; lean_object* x_515; -x_514 = lean_ctor_get(x_510, 0); -lean_inc(x_514); -lean_dec(x_510); -x_515 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_509); -if (lean_obj_tag(x_515) == 0) -{ -uint8_t x_516; -lean_dec(x_514); -x_516 = !lean_is_exclusive(x_515); -if (x_516 == 0) -{ -return x_515; -} -else -{ -lean_object* x_517; lean_object* x_518; -x_517 = lean_ctor_get(x_515, 0); -lean_inc(x_517); -lean_dec(x_515); -x_518 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_518, 0, x_517); -return x_518; -} -} -else -{ -uint8_t x_519; -x_519 = !lean_is_exclusive(x_515); -if (x_519 == 0) -{ -lean_object* x_520; lean_object* x_521; lean_object* x_522; lean_object* x_523; lean_object* x_524; lean_object* x_525; uint8_t x_526; lean_object* x_527; lean_object* x_528; lean_object* x_529; lean_object* x_530; lean_object* x_531; -x_520 = lean_ctor_get(x_515, 0); -x_521 = lean_ctor_get(x_514, 0); -lean_inc(x_521); -x_522 = lean_ctor_get(x_520, 0); -lean_inc(x_522); -x_523 = l_Lean_Parser_sepBy1Info(x_521, x_522); -x_524 = lean_ctor_get(x_514, 1); +lean_object* x_523; lean_object* x_524; lean_object* x_525; lean_object* x_526; lean_object* x_527; lean_object* x_528; uint8_t x_529; lean_object* x_530; lean_object* x_531; lean_object* x_532; lean_object* x_533; lean_object* x_534; lean_object* x_535; +x_523 = lean_ctor_get(x_506, 0); +lean_inc(x_523); +lean_dec(x_506); +x_524 = lean_ctor_get(x_505, 0); lean_inc(x_524); -lean_dec(x_514); -x_525 = lean_ctor_get(x_520, 1); +x_525 = lean_ctor_get(x_523, 0); lean_inc(x_525); -lean_dec(x_520); -x_526 = 0; -x_527 = lean_box(x_2); -x_528 = lean_box(x_526); -x_529 = lean_box(x_526); -x_530 = lean_alloc_closure((void*)(l_Lean_Parser_sepBy1Fn___boxed), 8, 5); -lean_closure_set(x_530, 0, x_527); -lean_closure_set(x_530, 1, x_528); -lean_closure_set(x_530, 2, x_524); -lean_closure_set(x_530, 3, x_525); -lean_closure_set(x_530, 4, x_529); -x_531 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_531, 0, x_523); -lean_ctor_set(x_531, 1, x_530); -lean_ctor_set(x_515, 0, x_531); -return x_515; -} -else -{ -lean_object* x_532; lean_object* x_533; lean_object* x_534; lean_object* x_535; lean_object* x_536; lean_object* x_537; uint8_t x_538; lean_object* x_539; lean_object* x_540; lean_object* x_541; lean_object* x_542; lean_object* x_543; lean_object* x_544; -x_532 = lean_ctor_get(x_515, 0); -lean_inc(x_532); -lean_dec(x_515); -x_533 = lean_ctor_get(x_514, 0); -lean_inc(x_533); -x_534 = lean_ctor_get(x_532, 0); -lean_inc(x_534); -x_535 = l_Lean_Parser_sepBy1Info(x_533, x_534); -x_536 = lean_ctor_get(x_514, 1); -lean_inc(x_536); -lean_dec(x_514); -x_537 = lean_ctor_get(x_532, 1); -lean_inc(x_537); -lean_dec(x_532); -x_538 = 0; -x_539 = lean_box(x_2); -x_540 = lean_box(x_538); -x_541 = lean_box(x_538); -x_542 = lean_alloc_closure((void*)(l_Lean_Parser_sepBy1Fn___boxed), 8, 5); -lean_closure_set(x_542, 0, x_539); -lean_closure_set(x_542, 1, x_540); -lean_closure_set(x_542, 2, x_536); -lean_closure_set(x_542, 3, x_537); -lean_closure_set(x_542, 4, x_541); -x_543 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_543, 0, x_535); -lean_ctor_set(x_543, 1, x_542); -x_544 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_544, 0, x_543); -return x_544; +x_526 = l_Lean_Parser_sepBy1Info(x_524, x_525); +x_527 = lean_ctor_get(x_505, 1); +lean_inc(x_527); +lean_dec(x_505); +x_528 = lean_ctor_get(x_523, 1); +lean_inc(x_528); +lean_dec(x_523); +x_529 = 0; +x_530 = lean_box(x_2); +x_531 = lean_box(x_529); +x_532 = lean_box(x_529); +x_533 = lean_alloc_closure((void*)(l_Lean_Parser_sepBy1Fn___boxed), 8, 5); +lean_closure_set(x_533, 0, x_530); +lean_closure_set(x_533, 1, x_531); +lean_closure_set(x_533, 2, x_527); +lean_closure_set(x_533, 3, x_528); +lean_closure_set(x_533, 4, x_532); +x_534 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_534, 0, x_526); +lean_ctor_set(x_534, 1, x_533); +x_535 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_535, 0, x_534); +return x_535; } } } } case 9: { -lean_object* x_545; lean_object* x_546; lean_object* x_547; -x_545 = lean_ctor_get(x_3, 0); -lean_inc(x_545); -x_546 = lean_ctor_get(x_3, 1); -lean_inc(x_546); +lean_object* x_536; lean_object* x_537; lean_object* x_538; +x_536 = lean_ctor_get(x_3, 0); +lean_inc(x_536); +x_537 = lean_ctor_get(x_3, 1); +lean_inc(x_537); lean_dec(x_3); -x_547 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_546); -if (lean_obj_tag(x_547) == 0) +x_538 = l_Lean_Parser_compileParserDescr___main(x_1, x_2, x_537); +if (lean_obj_tag(x_538) == 0) { -uint8_t x_548; -lean_dec(x_545); -x_548 = !lean_is_exclusive(x_547); -if (x_548 == 0) +uint8_t x_539; +lean_dec(x_536); +x_539 = !lean_is_exclusive(x_538); +if (x_539 == 0) { -return x_547; +return x_538; } else { -lean_object* x_549; lean_object* x_550; -x_549 = lean_ctor_get(x_547, 0); +lean_object* x_540; lean_object* x_541; +x_540 = lean_ctor_get(x_538, 0); +lean_inc(x_540); +lean_dec(x_538); +x_541 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_541, 0, x_540); +return x_541; +} +} +else +{ +uint8_t x_542; +x_542 = !lean_is_exclusive(x_538); +if (x_542 == 0) +{ +lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; lean_object* x_547; lean_object* x_548; +x_543 = lean_ctor_get(x_538, 0); +x_544 = lean_ctor_get(x_543, 0); +lean_inc(x_544); +lean_inc(x_536); +x_545 = l_Lean_Parser_nodeInfo(x_536, x_544); +x_546 = lean_ctor_get(x_543, 1); +lean_inc(x_546); +lean_dec(x_543); +x_547 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn___rarg), 5, 2); +lean_closure_set(x_547, 0, x_536); +lean_closure_set(x_547, 1, x_546); +x_548 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_548, 0, x_545); +lean_ctor_set(x_548, 1, x_547); +lean_ctor_set(x_538, 0, x_548); +return x_538; +} +else +{ +lean_object* x_549; lean_object* x_550; lean_object* x_551; lean_object* x_552; lean_object* x_553; lean_object* x_554; lean_object* x_555; +x_549 = lean_ctor_get(x_538, 0); lean_inc(x_549); -lean_dec(x_547); -x_550 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_550, 0, x_549); -return x_550; -} -} -else -{ -uint8_t x_551; -x_551 = !lean_is_exclusive(x_547); -if (x_551 == 0) -{ -lean_object* x_552; lean_object* x_553; lean_object* x_554; lean_object* x_555; lean_object* x_556; lean_object* x_557; -x_552 = lean_ctor_get(x_547, 0); -x_553 = lean_ctor_get(x_552, 0); -lean_inc(x_553); -lean_inc(x_545); -x_554 = l_Lean_Parser_nodeInfo(x_545, x_553); -x_555 = lean_ctor_get(x_552, 1); -lean_inc(x_555); -lean_dec(x_552); -x_556 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn___rarg), 5, 2); -lean_closure_set(x_556, 0, x_545); -lean_closure_set(x_556, 1, x_555); -x_557 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_557, 0, x_554); -lean_ctor_set(x_557, 1, x_556); -lean_ctor_set(x_547, 0, x_557); -return x_547; -} -else -{ -lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_object* x_563; lean_object* x_564; -x_558 = lean_ctor_get(x_547, 0); -lean_inc(x_558); -lean_dec(x_547); -x_559 = lean_ctor_get(x_558, 0); -lean_inc(x_559); -lean_inc(x_545); -x_560 = l_Lean_Parser_nodeInfo(x_545, x_559); -x_561 = lean_ctor_get(x_558, 1); -lean_inc(x_561); -lean_dec(x_558); -x_562 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn___rarg), 5, 2); -lean_closure_set(x_562, 0, x_545); -lean_closure_set(x_562, 1, x_561); -x_563 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_563, 0, x_560); -lean_ctor_set(x_563, 1, x_562); -x_564 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_564, 0, x_563); -return x_564; +lean_dec(x_538); +x_550 = lean_ctor_get(x_549, 0); +lean_inc(x_550); +lean_inc(x_536); +x_551 = l_Lean_Parser_nodeInfo(x_536, x_550); +x_552 = lean_ctor_get(x_549, 1); +lean_inc(x_552); +lean_dec(x_549); +x_553 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn___rarg), 5, 2); +lean_closure_set(x_553, 0, x_536); +lean_closure_set(x_553, 1, x_552); +x_554 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_554, 0, x_551); +lean_ctor_set(x_554, 1, x_553); +x_555 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_555, 0, x_554); +return x_555; } } } case 10: { -lean_object* x_565; lean_object* x_566; lean_object* x_567; lean_object* x_568; lean_object* x_569; lean_object* x_570; lean_object* x_571; +lean_object* x_556; lean_object* x_557; lean_object* x_558; lean_object* x_559; lean_object* x_560; lean_object* x_561; lean_object* x_562; lean_dec(x_1); -x_565 = lean_ctor_get(x_3, 0); -lean_inc(x_565); -x_566 = lean_ctor_get(x_3, 1); -lean_inc(x_566); +x_556 = lean_ctor_get(x_3, 0); +lean_inc(x_556); +x_557 = lean_ctor_get(x_3, 1); +lean_inc(x_557); lean_dec(x_3); -x_567 = l_String_trim(x_565); -lean_dec(x_565); -lean_inc(x_567); -x_568 = l_Lean_Parser_symbolInfo(x_567, x_566); -x_569 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); -lean_closure_set(x_569, 0, x_567); -x_570 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_570, 0, x_568); -lean_ctor_set(x_570, 1, x_569); -x_571 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_571, 0, x_570); -return x_571; +x_558 = l_String_trim(x_556); +lean_dec(x_556); +lean_inc(x_558); +x_559 = l_Lean_Parser_symbolInfo(x_558, x_557); +x_560 = lean_alloc_closure((void*)(l_Lean_Parser_symbolFn___rarg___boxed), 4, 1); +lean_closure_set(x_560, 0, x_558); +x_561 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_561, 0, x_559); +lean_ctor_set(x_561, 1, x_560); +x_562 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_562, 0, x_561); +return x_562; } case 12: { -lean_object* x_572; lean_object* x_573; lean_object* x_574; lean_object* x_575; lean_object* x_576; +lean_object* x_563; lean_object* x_564; lean_dec(x_3); lean_dec(x_1); -x_572 = lean_box(x_2); -x_573 = lean_alloc_closure((void*)(l_Lean_Parser_numLitFn___boxed), 2, 1); -lean_closure_set(x_573, 0, x_572); -x_574 = l_Lean_Parser_numLit___closed__1; -x_575 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_575, 0, x_574); -lean_ctor_set(x_575, 1, x_573); -x_576 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_576, 0, x_575); -return x_576; +x_563 = l_Lean_Parser_numLit(x_2); +x_564 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_564, 0, x_563); +return x_564; } case 13: { -lean_object* x_577; lean_object* x_578; lean_object* x_579; lean_object* x_580; lean_object* x_581; +lean_object* x_565; lean_object* x_566; lean_dec(x_3); lean_dec(x_1); -x_577 = lean_box(x_2); -x_578 = lean_alloc_closure((void*)(l_Lean_Parser_strLitFn___boxed), 2, 1); -lean_closure_set(x_578, 0, x_577); -x_579 = l_Lean_Parser_strLit___closed__1; -x_580 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_580, 0, x_579); -lean_ctor_set(x_580, 1, x_578); -x_581 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_581, 0, x_580); -return x_581; +x_565 = l_Lean_Parser_strLit(x_2); +x_566 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_566, 0, x_565); +return x_566; } case 14: { -lean_object* x_582; lean_object* x_583; lean_object* x_584; lean_object* x_585; lean_object* x_586; +lean_object* x_567; lean_object* x_568; lean_dec(x_3); lean_dec(x_1); -x_582 = lean_box(x_2); -x_583 = lean_alloc_closure((void*)(l_Lean_Parser_charLitFn___boxed), 2, 1); -lean_closure_set(x_583, 0, x_582); -x_584 = l_Lean_Parser_charLit___closed__1; -x_585 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_585, 0, x_584); -lean_ctor_set(x_585, 1, x_583); -x_586 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_586, 0, x_585); -return x_586; +x_567 = l_Lean_Parser_charLit(x_2); +x_568 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_568, 0, x_567); +return x_568; } case 15: { -lean_object* x_587; lean_object* x_588; +lean_object* x_569; lean_object* x_570; lean_dec(x_3); lean_dec(x_1); -x_587 = l_Lean_Parser_ident(x_2); -x_588 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_588, 0, x_587); -return x_588; +x_569 = l_Lean_Parser_ident(x_2); +x_570 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_570, 0, x_569); +return x_570; } case 16: { -lean_object* x_589; +lean_object* x_571; lean_dec(x_1); -x_589 = l_Lean_Parser_compileParserDescr___main___closed__1; -return x_589; +x_571 = l_Lean_Parser_compileParserDescr___main___closed__1; +return x_571; } default: { -lean_object* x_590; lean_object* x_591; lean_object* x_592; -x_590 = lean_ctor_get(x_3, 0); -lean_inc(x_590); -x_591 = lean_ctor_get(x_3, 1); -lean_inc(x_591); +lean_object* x_572; lean_object* x_573; lean_object* x_574; +x_572 = lean_ctor_get(x_3, 0); +lean_inc(x_572); +x_573 = lean_ctor_get(x_3, 1); +lean_inc(x_573); lean_dec(x_3); -x_592 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_1, x_590); -if (lean_obj_tag(x_592) == 0) +x_574 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_1, x_572); +if (lean_obj_tag(x_574) == 0) { -lean_object* x_593; -lean_dec(x_591); -x_593 = l_Lean_Parser_throwUnknownParserCategory___rarg(x_590); -return x_593; +lean_object* x_575; +lean_dec(x_573); +x_575 = l_Lean_Parser_throwUnknownParserCategory___rarg(x_572); +return x_575; } else { -lean_object* x_594; lean_object* x_595; -lean_dec(x_592); -x_594 = l_Lean_Parser_categoryParser(x_2, x_590, x_591); -x_595 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_595, 0, x_594); -return x_595; +lean_object* x_576; lean_object* x_577; +lean_dec(x_574); +x_576 = l_Lean_Parser_categoryParser(x_2, x_572, x_573); +x_577 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_577, 0, x_576); +return x_577; } } } @@ -35609,7 +35964,46 @@ x_5 = l_Lean_Parser_addParserCategory(x_1, x_2, x_4); return x_5; } } -lean_object* l_Lean_Parser_categoryParserFnImpl(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +uint8_t l_Lean_Parser_leadingIdentAsSymbol(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_3 = l_Lean_Parser_parserExtension; +x_4 = l_Lean_PersistentEnvExtension_getState___rarg(x_3, x_1); +x_5 = lean_ctor_get(x_4, 2); +lean_inc(x_5); +lean_dec(x_4); +x_6 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_5, x_2); +if (lean_obj_tag(x_6) == 0) +{ +uint8_t x_7; +x_7 = 0; +return x_7; +} +else +{ +lean_object* x_8; uint8_t x_9; +x_8 = lean_ctor_get(x_6, 0); +lean_inc(x_8); +lean_dec(x_6); +x_9 = lean_ctor_get_uint8(x_8, sizeof(void*)*1); +lean_dec(x_8); +return x_9; +} +} +} +lean_object* l_Lean_Parser_leadingIdentAsSymbol___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint8_t x_3; lean_object* x_4; +x_3 = l_Lean_Parser_leadingIdentAsSymbol(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +x_4 = lean_box(x_3); +return x_4; +} +} +lean_object* l_Lean_Parser_categoryParserFnImplAux(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; @@ -35652,6 +36046,120 @@ return x_20; } } } +lean_object* l___private_Init_Lean_Parser_Parser_24__catNameToString(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_2; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +if (lean_obj_tag(x_2) == 0) +{ +lean_object* x_3; +x_3 = lean_ctor_get(x_1, 1); +lean_inc(x_3); +lean_dec(x_1); +return x_3; +} +else +{ +lean_object* x_4; lean_object* x_5; +lean_dec(x_2); +x_4 = l_Lean_Name_toString___closed__1; +x_5 = l_Lean_Name_toStringWithSep___main(x_4, x_1); +return x_5; +} +} +else +{ +lean_object* x_6; lean_object* x_7; +x_6 = l_Lean_Name_toString___closed__1; +x_7 = l_Lean_Name_toStringWithSep___main(x_6, x_1); +return x_7; +} +} +} +lean_object* l_Lean_Parser_categoryParserFnImpl(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; uint8_t x_6; +x_5 = l_Lean_Parser_termParser___closed__2; +x_6 = lean_name_eq(x_1, x_5); +if (x_6 == 0) +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; uint8_t 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_inc(x_1); +x_7 = l___private_Init_Lean_Parser_Parser_24__catNameToString(x_1); +x_8 = lean_box(0); +x_9 = 0; +x_10 = 0; +x_11 = l_Lean_Parser_mkAntiquot(x_9, x_7, x_8, x_10); +lean_dec(x_7); +x_12 = lean_ctor_get(x_11, 1); +lean_inc(x_12); +lean_dec(x_11); +x_13 = lean_ctor_get(x_4, 0); +lean_inc(x_13); +x_14 = lean_array_get_size(x_13); +lean_dec(x_13); +x_15 = lean_ctor_get(x_4, 1); +lean_inc(x_15); +lean_inc(x_3); +lean_inc(x_2); +x_16 = lean_apply_3(x_12, x_2, x_3, x_4); +x_17 = lean_ctor_get(x_16, 3); +lean_inc(x_17); +if (lean_obj_tag(x_17) == 0) +{ +lean_dec(x_15); +lean_dec(x_14); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_16; +} +else +{ +lean_object* x_18; lean_object* x_19; uint8_t x_20; +x_18 = lean_ctor_get(x_17, 0); +lean_inc(x_18); +lean_dec(x_17); +x_19 = lean_ctor_get(x_16, 1); +lean_inc(x_19); +x_20 = lean_nat_dec_eq(x_19, x_15); +lean_dec(x_19); +if (x_20 == 0) +{ +lean_dec(x_18); +lean_dec(x_15); +lean_dec(x_14); +lean_dec(x_3); +lean_dec(x_2); +lean_dec(x_1); +return x_16; +} +else +{ +lean_object* x_21; lean_object* x_22; lean_object* x_23; +lean_inc(x_15); +x_21 = l_Lean_Parser_ParserState_restore(x_16, x_14, x_15); +lean_dec(x_14); +x_22 = l_Lean_Parser_categoryParserFnImplAux(x_1, x_2, x_3, x_21); +x_23 = l_Lean_Parser_mergeOrElseErrors(x_22, x_18, x_15); +lean_dec(x_15); +return x_23; +} +} +} +else +{ +lean_object* x_24; +x_24 = l_Lean_Parser_categoryParserFnImplAux(x_1, x_2, x_3, x_4); +return x_24; +} +} +} lean_object* _init_l_Lean_Parser_setCategoryParserFnRef___closed__1() { _start: { @@ -36337,7 +36845,7 @@ x_6 = l_Lean_Parser_declareBuiltinParser(x_1, x_5, x_2, x_3, x_4); return x_6; } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__1() { _start: { lean_object* x_1; @@ -36345,7 +36853,7 @@ x_1 = lean_mk_string("' (`Parser` or `TrailingParser` expected"); return x_1; } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2() { _start: { lean_object* x_1; lean_object* x_2; @@ -36355,7 +36863,7 @@ lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { +lean_object* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { _start: { uint8_t x_8; @@ -36395,7 +36903,7 @@ lean_object* x_28; lean_object* x_29; lean_dec(x_4); lean_dec(x_3); lean_dec(x_2); -x_28 = l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2; +x_28 = l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___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_7); @@ -36874,7 +37382,7 @@ x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_4); x_20 = l_Lean_Parser_mkParserOfConstantUnsafe___closed__1; x_21 = lean_string_append(x_20, x_19); lean_dec(x_19); -x_22 = l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1; +x_22 = l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__1; x_23 = lean_string_append(x_21, x_22); x_24 = lean_alloc_ctor(18, 1, 0); lean_ctor_set(x_24, 0, x_23); @@ -36907,13 +37415,13 @@ return x_104; } } } -lean_object* l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___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* l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___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: { uint8_t x_8; lean_object* x_9; x_8 = lean_unbox(x_6); lean_dec(x_6); -x_9 = l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); +x_9 = l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); lean_dec(x_5); return x_9; } @@ -36939,7 +37447,7 @@ x_6 = lean_ctor_get(x_5, 1); lean_inc(x_6); lean_dec(x_5); lean_inc(x_1); -x_7 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___boxed), 7, 2); +x_7 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___boxed), 7, 2); lean_closure_set(x_7, 0, x_1); lean_closure_set(x_7, 1, x_2); x_8 = l_Lean_Parser_registerBuiltinParserAttribute___closed__1; @@ -36988,7 +37496,7 @@ x_6 = l_Lean_Parser_registerBuiltinParserAttribute(x_1, x_2, x_5, x_4); return x_6; } } -lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1() { +lean_object* _init_l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1___closed__1() { _start: { lean_object* x_1; @@ -36996,7 +37504,7 @@ x_1 = lean_mk_string("invalid parser '"); return x_1; } } -lean_object* l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { if (lean_obj_tag(x_3) == 0) @@ -37026,7 +37534,7 @@ lean_inc(x_9); lean_dec(x_8); x_10 = l_Lean_Name_toString___closed__1; x_11 = l_Lean_Name_toStringWithSep___main(x_10, x_1); -x_12 = l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1; +x_12 = l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1___closed__1; x_13 = lean_string_append(x_12, x_11); lean_dec(x_11); x_14 = l_Lean_registerTagAttribute___lambda__4___closed__3; @@ -37053,7 +37561,7 @@ goto _start; } } } -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; uint8_t x_6; @@ -37090,7 +37598,7 @@ lean_object* x_13; lean_object* x_14; x_13 = lean_ctor_get(x_7, 0); lean_inc(x_13); lean_dec(x_7); -x_14 = l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(x_13, x_4); +x_14 = l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3(x_13, x_4); lean_dec(x_13); x_3 = x_9; x_4 = x_14; @@ -37105,7 +37613,7 @@ goto _start; } } } -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; uint8_t x_6; @@ -37131,7 +37639,7 @@ goto _start; } } } -lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(lean_object* x_1, lean_object* x_2) { +lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3(lean_object* x_1, lean_object* x_2) { _start: { if (lean_obj_tag(x_1) == 0) @@ -37139,7 +37647,7 @@ if (lean_obj_tag(x_1) == 0) lean_object* x_3; lean_object* x_4; lean_object* x_5; x_3 = lean_ctor_get(x_1, 0); x_4 = lean_unsigned_to_nat(0u); -x_5 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(x_3, x_3, x_4, x_2); +x_5 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__4(x_3, x_3, x_4, x_2); return x_5; } else @@ -37147,21 +37655,21 @@ else lean_object* x_6; lean_object* x_7; lean_object* x_8; x_6 = lean_ctor_get(x_1, 0); x_7 = lean_unsigned_to_nat(0u); -x_8 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(x_6, x_6, x_7, x_2); +x_8 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__5(x_6, x_6, x_7, x_2); return x_8; } } } -lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(lean_object* x_1, lean_object* x_2) { +lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; lean_object* x_4; x_3 = lean_ctor_get(x_1, 0); -x_4 = l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(x_3, x_2); +x_4 = l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3(x_3, x_2); return x_4; } } -lean_object* l___private_Init_Lean_Parser_Parser_25__ParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { +lean_object* l___private_Init_Lean_Parser_Parser_26__ParserAttribute_add(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, uint8_t x_6, lean_object* x_7) { _start: { uint8_t x_8; @@ -37214,7 +37722,7 @@ lean_inc(x_20); x_21 = lean_box(0); x_22 = lean_apply_1(x_20, x_21); lean_inc(x_4); -x_23 = l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1(x_4, x_3, x_22, x_7); +x_23 = l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1(x_4, x_3, x_22, x_7); if (lean_obj_tag(x_23) == 0) { uint8_t x_24; @@ -37228,7 +37736,7 @@ lean_inc(x_26); lean_dec(x_19); x_27 = l_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef___spec__1; x_28 = lean_apply_1(x_26, x_27); -x_29 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(x_28, x_25); +x_29 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2(x_28, x_25); lean_dec(x_28); x_30 = lean_unbox(x_17); lean_inc(x_18); @@ -37280,7 +37788,7 @@ lean_inc(x_39); lean_dec(x_19); x_40 = l_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef___spec__1; x_41 = lean_apply_1(x_39, x_40); -x_42 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(x_41, x_37); +x_42 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2(x_41, x_37); lean_dec(x_41); x_43 = lean_unbox(x_17); lean_inc(x_18); @@ -37375,51 +37883,51 @@ return x_63; } } } -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__4(x_1, x_2, x_3, x_4); +x_5 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__4(x_1, x_2, x_3, x_4); lean_dec(x_2); lean_dec(x_1); return x_5; } } -lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { lean_object* x_5; -x_5 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__5(x_1, x_2, x_3, x_4); +x_5 = l_Array_iterateMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__5(x_1, x_2, x_3, x_4); lean_dec(x_2); lean_dec(x_1); return x_5; } } -lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__3(x_1, x_2); +x_3 = l_PersistentHashMap_foldlMAux___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__3(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2___boxed(lean_object* x_1, lean_object* x_2) { +lean_object* l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2___boxed(lean_object* x_1, lean_object* x_2) { _start: { lean_object* x_3; -x_3 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__2(x_1, x_2); +x_3 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__2(x_1, x_2); lean_dec(x_1); return x_3; } } -lean_object* l___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___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* l___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___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: { uint8_t x_8; lean_object* x_9; x_8 = lean_unbox(x_6); lean_dec(x_6); -x_9 = l___private_Init_Lean_Parser_Parser_25__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); +x_9 = l___private_Init_Lean_Parser_Parser_26__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_8, x_7); lean_dec(x_5); return x_9; } @@ -37428,7 +37936,7 @@ lean_object* l_Lean_Parser_mkParserAttributeImpl___elambda__1(lean_object* x_1, _start: { lean_object* x_8; -x_8 = l___private_Init_Lean_Parser_Parser_25__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_6, x_7); +x_8 = l___private_Init_Lean_Parser_Parser_26__ParserAttribute_add(x_1, x_2, x_3, x_4, x_5, x_6, x_7); return x_8; } } @@ -37478,7 +37986,7 @@ x_5 = l_Lean_registerBuiltinAttribute(x_4, x_3); return x_5; } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__1() { _start: { lean_object* x_1; @@ -37486,23 +37994,23 @@ x_1 = lean_mk_string("invalid parser attribute implementation builder arguments" return x_1; } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2() { _start: { lean_object* x_1; lean_object* x_2; -x_1 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1; +x_1 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__1; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } } -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1(lean_object* x_1) { +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1(lean_object* x_1) { _start: { if (lean_obj_tag(x_1) == 0) { lean_object* x_2; -x_2 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_2 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_2; } else @@ -37520,7 +38028,7 @@ if (lean_obj_tag(x_4) == 0) { lean_object* x_5; lean_dec(x_3); -x_5 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_5 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_5; } else @@ -37554,7 +38062,7 @@ lean_object* x_12; lean_dec(x_7); lean_dec(x_6); lean_dec(x_3); -x_12 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_12 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_12; } } @@ -37564,7 +38072,7 @@ lean_object* x_13; lean_dec(x_6); lean_dec(x_4); lean_dec(x_3); -x_13 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_13 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_13; } } @@ -37574,13 +38082,13 @@ else lean_object* x_14; lean_dec(x_3); lean_dec(x_1); -x_14 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2; +x_14 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2; return x_14; } } } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__1() { _start: { lean_object* x_1; @@ -37588,30 +38096,30 @@ x_1 = lean_mk_string("parserAttr"); return x_1; } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1; +x_2 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__1; x_3 = lean_name_mk_string(x_1, x_2); return x_3; } } -lean_object* _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3() { +lean_object* _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__3() { _start: { lean_object* x_1; -x_1 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1), 1, 0); +x_1 = lean_alloc_closure((void*)(l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1), 1, 0); return x_1; } } -lean_object* l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder(lean_object* x_1) { +lean_object* l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder(lean_object* x_1) { _start: { lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_2 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; -x_3 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3; +x_2 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2; +x_3 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__3; x_4 = l_Lean_registerAttributeImplBuilder(x_2, x_3, x_1); return x_4; } @@ -37643,7 +38151,7 @@ lean_ctor_set(x_13, 1, x_12); x_14 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_14, 0, x_10); lean_ctor_set(x_14, 1, x_13); -x_15 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; +x_15 = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2; x_16 = l_Lean_registerAttributeOfBuilder(x_8, x_15, x_14, x_9); return x_16; } @@ -39002,16 +39510,16 @@ l_Lean_Parser_mkAtomicInfo___closed__1 = _init_l_Lean_Parser_mkAtomicInfo___clos lean_mark_persistent(l_Lean_Parser_mkAtomicInfo___closed__1); l_Lean_Parser_mkAtomicInfo___closed__2 = _init_l_Lean_Parser_mkAtomicInfo___closed__2(); lean_mark_persistent(l_Lean_Parser_mkAtomicInfo___closed__2); -l_Lean_Parser_numLit___closed__1 = _init_l_Lean_Parser_numLit___closed__1(); -lean_mark_persistent(l_Lean_Parser_numLit___closed__1); +l_Lean_Parser_numLitNoAntiquot___closed__1 = _init_l_Lean_Parser_numLitNoAntiquot___closed__1(); +lean_mark_persistent(l_Lean_Parser_numLitNoAntiquot___closed__1); l_Lean_Parser_strLitFn___rarg___closed__1 = _init_l_Lean_Parser_strLitFn___rarg___closed__1(); lean_mark_persistent(l_Lean_Parser_strLitFn___rarg___closed__1); -l_Lean_Parser_strLit___closed__1 = _init_l_Lean_Parser_strLit___closed__1(); -lean_mark_persistent(l_Lean_Parser_strLit___closed__1); +l_Lean_Parser_strLitNoAntiquot___closed__1 = _init_l_Lean_Parser_strLitNoAntiquot___closed__1(); +lean_mark_persistent(l_Lean_Parser_strLitNoAntiquot___closed__1); l_Lean_Parser_charLitFn___rarg___closed__1 = _init_l_Lean_Parser_charLitFn___rarg___closed__1(); lean_mark_persistent(l_Lean_Parser_charLitFn___rarg___closed__1); -l_Lean_Parser_charLit___closed__1 = _init_l_Lean_Parser_charLit___closed__1(); -lean_mark_persistent(l_Lean_Parser_charLit___closed__1); +l_Lean_Parser_charLitNoAntiquot___closed__1 = _init_l_Lean_Parser_charLitNoAntiquot___closed__1(); +lean_mark_persistent(l_Lean_Parser_charLitNoAntiquot___closed__1); l_Lean_Parser_identFn___rarg___closed__1 = _init_l_Lean_Parser_identFn___rarg___closed__1(); lean_mark_persistent(l_Lean_Parser_identFn___rarg___closed__1); l_Lean_Parser_identNoAntiquot___closed__1 = _init_l_Lean_Parser_identNoAntiquot___closed__1(); @@ -39140,6 +39648,12 @@ l_Lean_Parser_mkAntiquot___closed__17 = _init_l_Lean_Parser_mkAntiquot___closed_ lean_mark_persistent(l_Lean_Parser_mkAntiquot___closed__17); l_Lean_Parser_ident___closed__1 = _init_l_Lean_Parser_ident___closed__1(); lean_mark_persistent(l_Lean_Parser_ident___closed__1); +l_Lean_Parser_numLit___closed__1 = _init_l_Lean_Parser_numLit___closed__1(); +lean_mark_persistent(l_Lean_Parser_numLit___closed__1); +l_Lean_Parser_strLit___closed__1 = _init_l_Lean_Parser_strLit___closed__1(); +lean_mark_persistent(l_Lean_Parser_strLit___closed__1); +l_Lean_Parser_charLit___closed__1 = _init_l_Lean_Parser_charLit___closed__1(); +lean_mark_persistent(l_Lean_Parser_charLit___closed__1); l_Lean_Parser_categoryParserOfStackFn___closed__1 = _init_l_Lean_Parser_categoryParserOfStackFn___closed__1(); lean_mark_persistent(l_Lean_Parser_categoryParserOfStackFn___closed__1); l_Lean_Parser_categoryParserOfStackFn___closed__2 = _init_l_Lean_Parser_categoryParserOfStackFn___closed__2(); @@ -39273,27 +39787,27 @@ l_Lean_Parser_declareTrailingBuiltinParser___closed__1 = _init_l_Lean_Parser_dec lean_mark_persistent(l_Lean_Parser_declareTrailingBuiltinParser___closed__1); l_Lean_Parser_declareTrailingBuiltinParser___closed__2 = _init_l_Lean_Parser_declareTrailingBuiltinParser___closed__2(); lean_mark_persistent(l_Lean_Parser_declareTrailingBuiltinParser___closed__2); -l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1 = _init_l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__1); -l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2 = _init_l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_24__BuiltinParserAttribute_add___closed__2); +l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__1 = _init_l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__1); +l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2 = _init_l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_25__BuiltinParserAttribute_add___closed__2); l_Lean_Parser_registerBuiltinParserAttribute___closed__1 = _init_l_Lean_Parser_registerBuiltinParserAttribute___closed__1(); lean_mark_persistent(l_Lean_Parser_registerBuiltinParserAttribute___closed__1); -l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1 = _init_l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1(); -lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__ParserAttribute_add___spec__1___closed__1); +l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1___closed__1 = _init_l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1___closed__1(); +lean_mark_persistent(l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_26__ParserAttribute_add___spec__1___closed__1); l_Lean_Parser_mkParserAttributeImpl___closed__1 = _init_l_Lean_Parser_mkParserAttributeImpl___closed__1(); lean_mark_persistent(l_Lean_Parser_mkParserAttributeImpl___closed__1); -l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1 = _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__1); -l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2 = _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___lambda__1___closed__2); -l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1 = _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__1); -l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2 = _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2); -l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3 = _init_l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3(); -lean_mark_persistent(l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__3); -res = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder(lean_io_mk_world()); +l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__1 = _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__1); +l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2 = _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___lambda__1___closed__2); +l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__1 = _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__1(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__1); +l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2 = _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__2); +l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__3 = _init_l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__3(); +lean_mark_persistent(l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder___closed__3); +res = l___private_Init_Lean_Parser_Parser_27__registerParserAttributeImplBuilder(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); l_Lean_Parser_regBuiltinTermParserAttr___closed__1 = _init_l_Lean_Parser_regBuiltinTermParserAttr___closed__1(); diff --git a/stage0/stdlib/Init/Lean/Parser/Syntax.c b/stage0/stdlib/Init/Lean/Parser/Syntax.c index 49d411b3b8..590a9ae4c2 100644 --- a/stage0/stdlib/Init/Lean/Parser/Syntax.c +++ b/stage0/stdlib/Init/Lean/Parser/Syntax.c @@ -163,13 +163,11 @@ lean_object* l_Lean_Parser_Command_macroArgType___elambda__1(lean_object*, lean_ lean_object* l_Lean_Parser_Command_infix; lean_object* l_Lean_Parser_Command_mixfix___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__2; -extern lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__6; lean_object* l___regBuiltinParser_Lean_Parser_Command_reserve(lean_object*); lean_object* l_Lean_Parser_Command_syntax___closed__12; extern lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__6; lean_object* l_Lean_Parser_Command_identPrec; lean_object* l_Lean_Parser_Command_infixl___closed__2; -extern lean_object* l_Lean_Parser_strLit___closed__1; lean_object* l_Lean_Parser_Syntax_many1___closed__4; lean_object* l_Lean_Parser_precedence___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_infixl___elambda__1___closed__1; @@ -195,7 +193,6 @@ lean_object* l_Lean_Parser_Command_mixfix___closed__8; lean_object* l_Lean_Parser_Syntax_ident___closed__3; lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_macro__rules___closed__6; -extern lean_object* l_Lean_Parser_numLit___closed__1; lean_object* l_Lean_Parser_Syntax_ident___closed__5; lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__6; lean_object* l_Lean_Parser_Command_macroTailDefault___closed__5; @@ -209,6 +206,7 @@ lean_object* l_Lean_Parser_Command_macroArg; lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__1; extern lean_object* l_Lean_Parser_mkAntiquot___closed__5; lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__2; +extern lean_object* l_Lean_Parser_Term_str___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_infix___closed__4; lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_prefix___closed__4; @@ -341,6 +339,7 @@ lean_object* l_Lean_Parser_Command_macroTailTactic; lean_object* l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__3; extern lean_object* l_Lean_Parser_termParser___closed__2; lean_object* lean_name_mk_string(lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Level_num___elambda__1___closed__5; extern lean_object* l_Lean_Parser_Term_stxQuot___closed__2; lean_object* l_Lean_Parser_Command_infix___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_maxPrec; @@ -528,7 +527,6 @@ lean_object* l_Lean_Parser_regBuiltinSyntaxParserAttr___closed__3; lean_object* l_Lean_Parser_Command_identPrec___closed__2; lean_object* l_Lean_Parser_Syntax_sepBy1___closed__6; lean_object* l_Lean_Parser_Command_macroArgSimple___closed__7; -lean_object* l_Lean_Parser_strLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__1; lean_object* l_Lean_Parser_Syntax_ident___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_mixfixSymbol; @@ -651,7 +649,6 @@ lean_object* l_Lean_Parser_Syntax_optional___closed__1; lean_object* l_Lean_Parser_Syntax_cat___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__3; -lean_object* l_Lean_Parser_numLitFn___rarg(lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Syntax_optional(lean_object*); lean_object* l_Lean_Parser_Command_infixr___elambda__1___closed__8; lean_object* l_Lean_Parser_Syntax_many1___elambda__1(lean_object*, lean_object*, lean_object*); @@ -706,6 +703,7 @@ lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_macro___closed__9; lean_object* l_Lean_Parser_Command_syntax___closed__4; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Command_macro__rules___elambda__1___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); +extern lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__7; lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1___closed__4; lean_object* l_Lean_Parser_syntaxParser(uint8_t, lean_object*); lean_object* l_Lean_Parser_Command_macro__rules___closed__5; @@ -971,54 +969,58 @@ return x_1; lean_object* l_Lean_Parser_precedenceLit___elambda__1(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; -x_4 = lean_ctor_get(x_3, 0); -lean_inc(x_4); -x_5 = lean_array_get_size(x_4); -lean_dec(x_4); -x_6 = lean_ctor_get(x_3, 1); +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; +x_4 = l_Lean_Parser_Level_num___elambda__1___closed__5; +x_5 = lean_ctor_get(x_4, 1); +lean_inc(x_5); +x_6 = lean_ctor_get(x_3, 0); lean_inc(x_6); -lean_inc(x_2); -x_7 = l_Lean_Parser_numLitFn___rarg(x_2, x_3); -x_8 = lean_ctor_get(x_7, 3); +x_7 = lean_array_get_size(x_6); +lean_dec(x_6); +x_8 = lean_ctor_get(x_3, 1); lean_inc(x_8); -if (lean_obj_tag(x_8) == 0) -{ -lean_dec(x_6); -lean_dec(x_5); -lean_dec(x_2); -lean_dec(x_1); -return x_7; -} -else -{ -lean_object* x_9; lean_object* x_10; uint8_t x_11; -x_9 = lean_ctor_get(x_8, 0); -lean_inc(x_9); -lean_dec(x_8); -x_10 = lean_ctor_get(x_7, 1); +lean_inc(x_2); +lean_inc(x_1); +x_9 = lean_apply_3(x_5, x_1, x_2, x_3); +x_10 = lean_ctor_get(x_9, 3); lean_inc(x_10); -x_11 = lean_nat_dec_eq(x_10, x_6); -lean_dec(x_10); -if (x_11 == 0) +if (lean_obj_tag(x_10) == 0) { -lean_dec(x_9); -lean_dec(x_6); -lean_dec(x_5); +lean_dec(x_8); +lean_dec(x_7); lean_dec(x_2); lean_dec(x_1); -return x_7; +return x_9; } else { -lean_object* x_12; lean_object* x_13; lean_object* x_14; -lean_inc(x_6); -x_12 = l_Lean_Parser_ParserState_restore(x_7, x_5, x_6); -lean_dec(x_5); -x_13 = l_Lean_Parser_maxPrec___elambda__1(x_1, x_2, x_12); -x_14 = l_Lean_Parser_mergeOrElseErrors(x_13, x_9, x_6); -lean_dec(x_6); -return x_14; +lean_object* x_11; lean_object* x_12; uint8_t x_13; +x_11 = lean_ctor_get(x_10, 0); +lean_inc(x_11); +lean_dec(x_10); +x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_12); +x_13 = lean_nat_dec_eq(x_12, x_8); +lean_dec(x_12); +if (x_13 == 0) +{ +lean_dec(x_11); +lean_dec(x_8); +lean_dec(x_7); +lean_dec(x_2); +lean_dec(x_1); +return x_9; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +lean_inc(x_8); +x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); +lean_dec(x_7); +x_15 = l_Lean_Parser_maxPrec___elambda__1(x_1, x_2, x_14); +x_16 = l_Lean_Parser_mergeOrElseErrors(x_15, x_11, x_8); +lean_dec(x_8); +return x_16; } } } @@ -1026,13 +1028,15 @@ return x_14; lean_object* _init_l_Lean_Parser_precedenceLit___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_maxPrec; +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_Level_num___elambda__1___closed__5; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_numLit___closed__1; -x_4 = l_Lean_Parser_orelseInfo(x_3, x_2); -return x_4; +x_3 = l_Lean_Parser_maxPrec; +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; } } lean_object* _init_l_Lean_Parser_precedenceLit___closed__2() { @@ -2198,83 +2202,89 @@ return x_5; lean_object* l_Lean_Parser_Syntax_atom___elambda__1(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; -x_4 = l_Lean_Parser_Syntax_atom___elambda__1___closed__4; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_4 = l_Lean_Parser_Term_str___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); +x_6 = l_Lean_Parser_Syntax_atom___elambda__1___closed__4; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 0); lean_inc(x_8); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_ctor_get(x_3, 1); +lean_inc(x_10); lean_inc(x_2); lean_inc(x_1); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +x_11 = lean_apply_3(x_7, x_1, x_2, x_3); +x_12 = lean_ctor_get(x_11, 3); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); +if (lean_obj_tag(x_12) == 0) +{ +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_11; +} +else +{ +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); lean_dec(x_12); -if (x_13 == 0) +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_nat_dec_eq(x_14, x_10); +lean_dec(x_14); +if (x_15 == 0) { -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_7); +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -return x_9; +return x_11; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -lean_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +lean_inc(x_10); +x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); +lean_dec(x_9); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); lean_inc(x_2); -x_17 = l_Lean_Parser_strLitFn___rarg(x_2, x_14); -x_18 = lean_ctor_get(x_17, 3); -lean_inc(x_18); -if (lean_obj_tag(x_18) == 0) +lean_inc(x_1); +x_19 = lean_apply_3(x_5, x_1, x_2, x_16); +x_20 = lean_ctor_get(x_19, 3); +lean_inc(x_20); +if (lean_obj_tag(x_20) == 0) { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = l_Lean_Parser_optPrecedence___elambda__1(x_1, x_2, x_17); -x_20 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_16); -x_22 = l_Lean_Parser_mergeOrElseErrors(x_21, x_11, x_8); -lean_dec(x_8); -return x_22; +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_21 = l_Lean_Parser_optPrecedence___elambda__1(x_1, x_2, x_19); +x_22 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_23 = l_Lean_Parser_ParserState_mkNode(x_21, x_22, x_18); +x_24 = l_Lean_Parser_mergeOrElseErrors(x_23, x_13, x_10); +lean_dec(x_10); +return x_24; } else { -lean_object* x_23; lean_object* x_24; lean_object* x_25; -lean_dec(x_18); +lean_object* x_25; lean_object* x_26; lean_object* x_27; +lean_dec(x_20); lean_dec(x_2); lean_dec(x_1); -x_23 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_24 = l_Lean_Parser_ParserState_mkNode(x_17, x_23, x_16); -x_25 = l_Lean_Parser_mergeOrElseErrors(x_24, x_11, x_8); -lean_dec(x_8); -return x_25; +x_25 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; +x_26 = l_Lean_Parser_ParserState_mkNode(x_19, x_25, x_18); +x_27 = l_Lean_Parser_mergeOrElseErrors(x_26, x_13, x_10); +lean_dec(x_10); +return x_27; } } } @@ -2283,13 +2293,15 @@ return x_25; lean_object* _init_l_Lean_Parser_Syntax_atom___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_optPrecedence; +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_str___elambda__1___closed__5; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_strLit___closed__1; -x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); -return x_4; +x_3 = l_Lean_Parser_optPrecedence; +x_4 = lean_ctor_get(x_3, 0); +lean_inc(x_4); +x_5 = l_Lean_Parser_andthenInfo(x_2, x_4); +return x_5; } } lean_object* _init_l_Lean_Parser_Syntax_atom___closed__2() { @@ -4665,7 +4677,7 @@ lean_dec(x_13); if (x_15 == 0) { lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_16 = l_Lean_Parser_Level_addLit___elambda__1___closed__6; +x_16 = l_Lean_Parser_Level_addLit___elambda__1___closed__7; x_17 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_16, x_8); x_18 = l_Lean_Parser_Syntax_many1___elambda__1___closed__2; x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_5); @@ -4684,7 +4696,7 @@ else { lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_dec(x_12); -x_22 = l_Lean_Parser_Level_addLit___elambda__1___closed__6; +x_22 = l_Lean_Parser_Level_addLit___elambda__1___closed__7; x_23 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_22, x_8); x_24 = l_Lean_Parser_Syntax_many1___elambda__1___closed__2; x_25 = l_Lean_Parser_ParserState_mkNode(x_23, x_24, x_5); @@ -4695,7 +4707,7 @@ else { lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_dec(x_10); -x_26 = l_Lean_Parser_Level_addLit___elambda__1___closed__6; +x_26 = l_Lean_Parser_Level_addLit___elambda__1___closed__7; x_27 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_26, x_8); x_28 = l_Lean_Parser_Syntax_many1___elambda__1___closed__2; x_29 = l_Lean_Parser_ParserState_mkNode(x_27, x_28, x_5); @@ -7669,83 +7681,89 @@ return x_5; lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1(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; -x_4 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__4; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_4 = l_Lean_Parser_Term_str___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); +x_6 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__4; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 0); lean_inc(x_8); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_ctor_get(x_3, 1); +lean_inc(x_10); lean_inc(x_2); lean_inc(x_1); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); -lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -lean_dec(x_1); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +x_11 = lean_apply_3(x_7, x_1, x_2, x_3); +x_12 = lean_ctor_get(x_11, 3); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); +if (lean_obj_tag(x_12) == 0) +{ +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_11; +} +else +{ +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); lean_dec(x_12); -if (x_13 == 0) +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_nat_dec_eq(x_14, x_10); +lean_dec(x_14); +if (x_15 == 0) { -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_7); +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -return x_9; +return x_11; } else { -lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; -lean_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; +lean_inc(x_10); +x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); +lean_dec(x_9); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); lean_inc(x_2); -x_17 = l_Lean_Parser_strLitFn___rarg(x_2, x_14); -x_18 = lean_ctor_get(x_17, 3); -lean_inc(x_18); -if (lean_obj_tag(x_18) == 0) +lean_inc(x_1); +x_19 = lean_apply_3(x_5, x_1, x_2, x_16); +x_20 = lean_ctor_get(x_19, 3); +lean_inc(x_20); +if (lean_obj_tag(x_20) == 0) { -lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; -x_19 = l_Lean_Parser_optPrecedence___elambda__1(x_1, x_2, x_17); -x_20 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; -x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_16); -x_22 = l_Lean_Parser_mergeOrElseErrors(x_21, x_11, x_8); -lean_dec(x_8); -return x_22; +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_21 = l_Lean_Parser_optPrecedence___elambda__1(x_1, x_2, x_19); +x_22 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; +x_23 = l_Lean_Parser_ParserState_mkNode(x_21, x_22, x_18); +x_24 = l_Lean_Parser_mergeOrElseErrors(x_23, x_13, x_10); +lean_dec(x_10); +return x_24; } else { -lean_object* x_23; lean_object* x_24; lean_object* x_25; -lean_dec(x_18); +lean_object* x_25; lean_object* x_26; lean_object* x_27; +lean_dec(x_20); lean_dec(x_2); lean_dec(x_1); -x_23 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; -x_24 = l_Lean_Parser_ParserState_mkNode(x_17, x_23, x_16); -x_25 = l_Lean_Parser_mergeOrElseErrors(x_24, x_11, x_8); -lean_dec(x_8); -return x_25; +x_25 = l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; +x_26 = l_Lean_Parser_ParserState_mkNode(x_19, x_25, x_18); +x_27 = l_Lean_Parser_mergeOrElseErrors(x_26, x_13, x_10); +lean_dec(x_10); +return x_27; } } } diff --git a/stage0/stdlib/Init/Lean/Parser/Term.c b/stage0/stdlib/Init/Lean/Parser/Term.c index 6e70fecb3e..e0ef07e1ff 100644 --- a/stage0/stdlib/Init/Lean/Parser/Term.c +++ b/stage0/stdlib/Init/Lean/Parser/Term.c @@ -33,7 +33,6 @@ lean_object* l_Lean_Parser_Term_not; extern lean_object* l_Lean_Name_toString___closed__1; lean_object* l_Lean_Parser_Term_letIdDecl; lean_object* l_Lean_Parser_Term_heq___elambda__1___closed__4; -extern lean_object* l_Lean_Parser_charLit___closed__1; lean_object* l_Lean_Parser_Term_parser_x21___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_infixL___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___regBuiltinParser_Lean_Parser_Term_iff(lean_object*); @@ -189,6 +188,7 @@ lean_object* l_Lean_Parser_Term_tparser_x21___elambda__1___closed__4; lean_object* l___regBuiltinParser_Lean_Parser_Term_lt(lean_object*); lean_object* l_Lean_Parser_Term_explicitUniv; extern lean_object* l_Int_repr___closed__1; +lean_object* l_Lean_Parser_charLit(uint8_t); lean_object* l_Lean_Parser_Term_bnot___closed__1; lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_inaccessible___closed__4; @@ -470,7 +470,6 @@ lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___rarg___closed__9; lean_object* l_Lean_Parser_Term_prod___closed__3; lean_object* l_Lean_Parser_Term_doId___closed__4; lean_object* l_Lean_Parser_Term_lt___elambda__1___closed__2; -extern lean_object* l_Lean_Parser_strLit___closed__1; lean_object* l_Lean_Parser_darrow___elambda__1___rarg___closed__8; lean_object* l_Lean_Parser_Term_pow___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_uminus___closed__7; @@ -530,7 +529,6 @@ lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_ lean_object* l_Lean_Parser_Term_leftArrow___elambda__1___rarg___closed__2; lean_object* l___regBuiltinParser_Lean_Parser_Term_sorry(lean_object*); lean_object* l_Lean_Parser_Term_nomatch___closed__4; -extern lean_object* l_Lean_Parser_numLit___closed__1; lean_object* l_Lean_Parser_Term_or___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_listLit___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_ge___closed__1; @@ -551,6 +549,7 @@ lean_object* l_Lean_Parser_Term_mul___elambda__1___closed__3; lean_object* l_Lean_Syntax_isSimpleTermId_x3f(lean_object*); lean_object* l_Lean_Parser_Term_prop___elambda__1___closed__9; extern lean_object* l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; +lean_object* l_Lean_Parser_Term_str___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_listLit___closed__6; lean_object* l_Lean_Parser_Term_proj___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_paren___closed__1; @@ -905,6 +904,7 @@ lean_object* l_Lean_Parser_Term_fun___elambda__1(lean_object*, lean_object*, lea lean_object* l_Lean_Parser_Term_fromTerm___elambda__1___closed__8; lean_object* l_Lean_Parser_Term_letEqns___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__9; +lean_object* l_Lean_Parser_Term_char___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_cdot___closed__5; lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Term_tupleTail___elambda__1___spec__1(uint8_t, uint8_t, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_num___closed__1; @@ -943,6 +943,7 @@ lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__2; lean_object* l_Lean_Parser_Term_match___closed__2; lean_object* l_Lean_Parser_Term_binderIdent___closed__2; +extern lean_object* l_Lean_Parser_Level_num___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_instBinder___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_append___closed__1; @@ -1519,7 +1520,6 @@ lean_object* l_Lean_Parser_Term_binderType___closed__4; lean_object* l___private_Init_Lean_Parser_Parser_2__sepByFnAux___main___at_Lean_Parser_Term_explicitUniv___elambda__1___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_let___elambda__1___closed__4; lean_object* l_Lean_Parser_Term_bne___closed__2; -lean_object* l_Lean_Parser_strLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_where___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_subtype___closed__10; lean_object* l_Lean_Parser_Term_append___elambda__1(lean_object*, lean_object*, lean_object*); @@ -1832,7 +1832,6 @@ lean_object* l_Lean_Parser_Term_antiquot___closed__1; lean_object* l_Lean_Parser_Term_doPat___closed__5; lean_object* l_Lean_Parser_categoryParser___elambda__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__4; -lean_object* l_Lean_Parser_numLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_binderDefault___closed__3; lean_object* l_Lean_Parser_Term_cdot___elambda__1___closed__6; lean_object* l_Lean_Parser_Term_borrowed___elambda__1___closed__5; @@ -1841,7 +1840,6 @@ lean_object* l_Lean_Parser_Term_structInst___closed__11; lean_object* l_Lean_Parser_Term_mapConstRev___closed__1; lean_object* l_Lean_Parser_Term_sorry___elambda__1___closed__5; lean_object* l_Lean_Parser_Term_forall___elambda__1___closed__8; -lean_object* l_Lean_Parser_charLitFn___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_bindOp___elambda__1___closed__2; lean_object* l_Lean_Parser_Term_do___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Term_letDecl___closed__3; @@ -1891,6 +1889,7 @@ extern lean_object* l_addParenHeuristic___closed__1; lean_object* l_Lean_Parser_Term_borrowed___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_instBinder___closed__6; lean_object* l_Lean_Parser_Term_bnot___elambda__1___closed__7; +lean_object* l_Lean_Parser_strLit(uint8_t); lean_object* l_Lean_Parser_Term_equiv___elambda__1___closed__3; lean_object* l_Lean_Parser_Term_dollar___elambda__1___closed__1; lean_object* l_Lean_Parser_Term_char___elambda__1___closed__1; @@ -3866,61 +3865,69 @@ return x_5; lean_object* l_Lean_Parser_Term_num___elambda__1(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; -x_4 = l_Lean_Parser_Term_num___elambda__1___closed__3; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_4 = l_Lean_Parser_Level_num___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); +x_6 = l_Lean_Parser_Term_num___elambda__1___closed__3; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 0); lean_inc(x_8); -lean_inc(x_2); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_ctor_get(x_3, 1); lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_2); +lean_inc(x_1); +x_11 = lean_apply_3(x_7, x_1, x_2, x_3); +x_12 = lean_ctor_get(x_11, 3); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); -lean_dec(x_12); -if (x_13 == 0) +if (lean_obj_tag(x_12) == 0) { -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_7); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_2); -return x_9; +lean_dec(x_1); +return x_11; } 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_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); -x_17 = l_Lean_Parser_numLitFn___rarg(x_2, x_14); -x_18 = l_Lean_Parser_Term_num___elambda__1___closed__1; -x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_16); -x_20 = l_Lean_Parser_mergeOrElseErrors(x_19, x_11, x_8); -lean_dec(x_8); -return x_20; +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +lean_dec(x_12); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_nat_dec_eq(x_14, x_10); +lean_dec(x_14); +if (x_15 == 0) +{ +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_11; +} +else +{ +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_inc(x_10); +x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); +lean_dec(x_9); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_apply_3(x_5, x_1, x_2, x_16); +x_20 = l_Lean_Parser_Term_num___elambda__1___closed__1; +x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_18); +x_22 = l_Lean_Parser_mergeOrElseErrors(x_21, x_13, x_10); +lean_dec(x_10); +return x_22; } } } @@ -3928,11 +3935,13 @@ return x_20; lean_object* _init_l_Lean_Parser_Term_num___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_num___elambda__1___closed__1; -x_2 = l_Lean_Parser_numLit___closed__1; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Level_num___elambda__1___closed__5; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_num___elambda__1___closed__1; +x_4 = l_Lean_Parser_nodeInfo(x_3, x_2); +return x_4; } } lean_object* _init_l_Lean_Parser_Term_num___closed__2() { @@ -4027,64 +4036,81 @@ x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); return x_5; } } +lean_object* _init_l_Lean_Parser_Term_str___elambda__1___closed__5() { +_start: +{ +uint8_t x_1; lean_object* x_2; +x_1 = 0; +x_2 = l_Lean_Parser_strLit(x_1); +return x_2; +} +} lean_object* l_Lean_Parser_Term_str___elambda__1(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; -x_4 = l_Lean_Parser_Term_str___elambda__1___closed__4; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_4 = l_Lean_Parser_Term_str___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); +x_6 = l_Lean_Parser_Term_str___elambda__1___closed__4; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 0); lean_inc(x_8); -lean_inc(x_2); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_ctor_get(x_3, 1); lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_2); +lean_inc(x_1); +x_11 = lean_apply_3(x_7, x_1, x_2, x_3); +x_12 = lean_ctor_get(x_11, 3); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); -lean_dec(x_12); -if (x_13 == 0) +if (lean_obj_tag(x_12) == 0) { -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_7); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_2); -return x_9; +lean_dec(x_1); +return x_11; } 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_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); -x_17 = l_Lean_Parser_strLitFn___rarg(x_2, x_14); -x_18 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_16); -x_20 = l_Lean_Parser_mergeOrElseErrors(x_19, x_11, x_8); -lean_dec(x_8); -return x_20; +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +lean_dec(x_12); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_nat_dec_eq(x_14, x_10); +lean_dec(x_14); +if (x_15 == 0) +{ +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_11; +} +else +{ +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_inc(x_10); +x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); +lean_dec(x_9); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_apply_3(x_5, x_1, x_2, x_16); +x_20 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_18); +x_22 = l_Lean_Parser_mergeOrElseErrors(x_21, x_13, x_10); +lean_dec(x_10); +return x_22; } } } @@ -4092,11 +4118,13 @@ return x_20; lean_object* _init_l_Lean_Parser_Term_str___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_2 = l_Lean_Parser_strLit___closed__1; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_str___elambda__1___closed__5; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_str___elambda__1___closed__2; +x_4 = l_Lean_Parser_nodeInfo(x_3, x_2); +return x_4; } } lean_object* _init_l_Lean_Parser_Term_str___closed__2() { @@ -4191,64 +4219,81 @@ x_5 = l_Lean_Parser_mkAntiquot(x_1, x_2, x_3, x_4); return x_5; } } +lean_object* _init_l_Lean_Parser_Term_char___elambda__1___closed__5() { +_start: +{ +uint8_t x_1; lean_object* x_2; +x_1 = 0; +x_2 = l_Lean_Parser_charLit(x_1); +return x_2; +} +} lean_object* l_Lean_Parser_Term_char___elambda__1(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; -x_4 = l_Lean_Parser_Term_char___elambda__1___closed__4; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_4 = l_Lean_Parser_Term_char___elambda__1___closed__5; x_5 = lean_ctor_get(x_4, 1); lean_inc(x_5); -x_6 = lean_ctor_get(x_3, 0); -lean_inc(x_6); -x_7 = lean_array_get_size(x_6); -lean_dec(x_6); -x_8 = lean_ctor_get(x_3, 1); +x_6 = l_Lean_Parser_Term_char___elambda__1___closed__4; +x_7 = lean_ctor_get(x_6, 1); +lean_inc(x_7); +x_8 = lean_ctor_get(x_3, 0); lean_inc(x_8); -lean_inc(x_2); -x_9 = lean_apply_3(x_5, x_1, x_2, x_3); -x_10 = lean_ctor_get(x_9, 3); +x_9 = lean_array_get_size(x_8); +lean_dec(x_8); +x_10 = lean_ctor_get(x_3, 1); lean_inc(x_10); -if (lean_obj_tag(x_10) == 0) -{ -lean_dec(x_8); -lean_dec(x_7); -lean_dec(x_2); -return x_9; -} -else -{ -lean_object* x_11; lean_object* x_12; uint8_t x_13; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -lean_dec(x_10); -x_12 = lean_ctor_get(x_9, 1); +lean_inc(x_2); +lean_inc(x_1); +x_11 = lean_apply_3(x_7, x_1, x_2, x_3); +x_12 = lean_ctor_get(x_11, 3); lean_inc(x_12); -x_13 = lean_nat_dec_eq(x_12, x_8); -lean_dec(x_12); -if (x_13 == 0) +if (lean_obj_tag(x_12) == 0) { -lean_dec(x_11); -lean_dec(x_8); -lean_dec(x_7); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); lean_dec(x_2); -return x_9; +lean_dec(x_1); +return x_11; } 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_inc(x_8); -x_14 = l_Lean_Parser_ParserState_restore(x_9, x_7, x_8); -lean_dec(x_7); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -x_16 = lean_array_get_size(x_15); -lean_dec(x_15); -x_17 = l_Lean_Parser_charLitFn___rarg(x_2, x_14); -x_18 = l_Lean_Parser_Term_char___elambda__1___closed__2; -x_19 = l_Lean_Parser_ParserState_mkNode(x_17, x_18, x_16); -x_20 = l_Lean_Parser_mergeOrElseErrors(x_19, x_11, x_8); -lean_dec(x_8); -return x_20; +lean_object* x_13; lean_object* x_14; uint8_t x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +lean_dec(x_12); +x_14 = lean_ctor_get(x_11, 1); +lean_inc(x_14); +x_15 = lean_nat_dec_eq(x_14, x_10); +lean_dec(x_14); +if (x_15 == 0) +{ +lean_dec(x_13); +lean_dec(x_10); +lean_dec(x_9); +lean_dec(x_5); +lean_dec(x_2); +lean_dec(x_1); +return x_11; +} +else +{ +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_inc(x_10); +x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); +lean_dec(x_9); +x_17 = lean_ctor_get(x_16, 0); +lean_inc(x_17); +x_18 = lean_array_get_size(x_17); +lean_dec(x_17); +x_19 = lean_apply_3(x_5, x_1, x_2, x_16); +x_20 = l_Lean_Parser_Term_char___elambda__1___closed__2; +x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_18); +x_22 = l_Lean_Parser_mergeOrElseErrors(x_21, x_13, x_10); +lean_dec(x_10); +return x_22; } } } @@ -4256,11 +4301,13 @@ return x_20; lean_object* _init_l_Lean_Parser_Term_char___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Term_char___elambda__1___closed__2; -x_2 = l_Lean_Parser_charLit___closed__1; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; +lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_1 = l_Lean_Parser_Term_char___elambda__1___closed__5; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Term_char___elambda__1___closed__2; +x_4 = l_Lean_Parser_nodeInfo(x_3, x_2); +return x_4; } } lean_object* _init_l_Lean_Parser_Term_char___closed__2() { @@ -37355,6 +37402,8 @@ l_Lean_Parser_Term_str___elambda__1___closed__3 = _init_l_Lean_Parser_Term_str__ lean_mark_persistent(l_Lean_Parser_Term_str___elambda__1___closed__3); l_Lean_Parser_Term_str___elambda__1___closed__4 = _init_l_Lean_Parser_Term_str___elambda__1___closed__4(); lean_mark_persistent(l_Lean_Parser_Term_str___elambda__1___closed__4); +l_Lean_Parser_Term_str___elambda__1___closed__5 = _init_l_Lean_Parser_Term_str___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_str___elambda__1___closed__5); l_Lean_Parser_Term_str___closed__1 = _init_l_Lean_Parser_Term_str___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_str___closed__1); l_Lean_Parser_Term_str___closed__2 = _init_l_Lean_Parser_Term_str___closed__2(); @@ -37376,6 +37425,8 @@ l_Lean_Parser_Term_char___elambda__1___closed__3 = _init_l_Lean_Parser_Term_char lean_mark_persistent(l_Lean_Parser_Term_char___elambda__1___closed__3); l_Lean_Parser_Term_char___elambda__1___closed__4 = _init_l_Lean_Parser_Term_char___elambda__1___closed__4(); lean_mark_persistent(l_Lean_Parser_Term_char___elambda__1___closed__4); +l_Lean_Parser_Term_char___elambda__1___closed__5 = _init_l_Lean_Parser_Term_char___elambda__1___closed__5(); +lean_mark_persistent(l_Lean_Parser_Term_char___elambda__1___closed__5); l_Lean_Parser_Term_char___closed__1 = _init_l_Lean_Parser_Term_char___closed__1(); lean_mark_persistent(l_Lean_Parser_Term_char___closed__1); l_Lean_Parser_Term_char___closed__2 = _init_l_Lean_Parser_Term_char___closed__2(); diff --git a/stage0/stdlib/Init/Lean/Syntax.c b/stage0/stdlib/Init/Lean/Syntax.c index 868db1dcd9..46c45c7efd 100644 --- a/stage0/stdlib/Init/Lean/Syntax.c +++ b/stage0/stdlib/Init/Lean/Syntax.c @@ -15,21 +15,13 @@ extern "C" { #endif lean_object* l_Lean_Syntax_reprint___main___closed__1; lean_object* l_Lean_Syntax_formatStxAux___boxed(lean_object*, lean_object*, lean_object*); -lean_object* lean_string_push(lean_object*, uint32_t); lean_object* l_Lean_Syntax_reprint___main___boxed(lean_object*); -lean_object* l_Lean_Syntax_isIdOrAtom_x3f___boxed(lean_object*); lean_object* lean_array_set(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_reprint___main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Syntax_4__reprintLeaf(lean_object*, lean_object*); -extern lean_object* l_Lean_fieldIdxKind; -lean_object* l_Lean_Syntax_isNatLit_x3f___boxed(lean_object*); lean_object* l___private_Init_Lean_Syntax_1__updateInfo(lean_object*, lean_object*); lean_object* l_Lean_Syntax_setTailInfoAux(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1; lean_object* l_Lean_Syntax_reprint___boxed(lean_object*); -lean_object* l___private_Init_Lean_Syntax_10__decodeNatLitVal___boxed(lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_nullKind; lean_object* l_Lean_Syntax_modifyArg(lean_object*, lean_object*, lean_object*); @@ -41,16 +33,10 @@ lean_object* l_Array_findRevMAux___main___at_Lean_Syntax_getTailWithInfo___main_ lean_object* l_Lean_Syntax_mrewriteBottomUp___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getIdAt(lean_object*, lean_object*); lean_object* l_Array_findRevMAux___main___at_Lean_Syntax_getTailWithInfo___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_toNat___boxed(lean_object*); -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_HasToString; -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux___main___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Array_empty___closed__1; lean_object* l_Lean_SyntaxNode_withArgs(lean_object*); -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main___boxed(lean_object*); -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar(lean_object*, lean_object*); -uint8_t l_Char_isDigit(uint32_t); lean_object* l___private_Init_Lean_Syntax_4__reprintLeaf___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_reprint___main(lean_object*); lean_object* l_Lean_Syntax_mrewriteBottomUp___main___rarg(lean_object*, lean_object*, lean_object*); @@ -65,13 +51,10 @@ lean_object* l_Lean_Syntax_setTailInfo(lean_object*, lean_object*); lean_object* lean_string_utf8_extract(lean_object*, lean_object*, lean_object*); extern lean_object* l_String_splitAux___main___closed__1; lean_object* l_Lean_SyntaxNode_getArg___boxed(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getNumArgs___boxed(lean_object*); lean_object* l___private_Init_Lean_Syntax_3__updateLast___main___at_Lean_Syntax_setTailInfoAux___main___spec__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_mkAppStx___closed__4; lean_object* l_Lean_mkAtom(lean_object*); -lean_object* l_Lean_Syntax_decodeStrLitAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main(lean_object*); lean_object* l_Lean_Syntax_Lean_HasFormat(lean_object*); lean_object* l_Lean_Syntax_mreplace___rarg(lean_object*, lean_object*, lean_object*); @@ -80,48 +63,32 @@ lean_object* l___private_Init_Lean_Syntax_3__updateLast___main___rarg(lean_objec lean_object* l_Lean_Syntax_mrewriteBottomUp___main___boxed(lean_object*); lean_object* l_Lean_Syntax_modifyArg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__1; -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed(lean_object*, lean_object*); extern lean_object* l_Lean_Format_sbracket___closed__2; lean_object* l_Lean_SyntaxNode_getKind(lean_object*); lean_object* l_Lean_SyntaxNode_getArgs(lean_object*); lean_object* l_Lean_Syntax_rewriteBottomUp(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux___main(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__3; lean_object* l_Lean_Syntax_formatStxAux___main___closed__8; -lean_object* lean_string_utf8_next(lean_object*, lean_object*); lean_object* l_Lean_Syntax_ifNode(lean_object*); -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux___main___boxed(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__4; -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__1; -lean_object* l_Lean_Syntax_hasArgs___boxed(lean_object*); lean_object* l_Lean_Syntax_getTailWithInfo___main(lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__4; lean_object* l_Array_findRevMAux___main___at_Lean_Syntax_getTailInfo___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_getIdAt(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_7__decodeHexDigit___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_isCharLit_x3f(lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_getKind___boxed(lean_object*); -lean_object* l_Lean_Syntax_isNatLit_x3f(lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__2; uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_Syntax_updateTrailing(lean_object*, lean_object*); extern lean_object* l_Lean_numLitKind; lean_object* l_Lean_Syntax_mreplace___main___rarg(lean_object*, lean_object*, lean_object*); lean_object* lean_nat_sub(lean_object*, lean_object*); -extern lean_object* l_Lean_strLitKind; -lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_reprint___main___spec__1(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getId___boxed(lean_object*); -lean_object* l_Lean_Syntax_isFieldIdx_x3f(lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_unreachIsNodeMissing(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getIdAt___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_decodeCharLit___boxed(lean_object*); lean_object* l_Lean_Syntax_formatStx___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_isNatLitAux___boxed(lean_object*, lean_object*); lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Syntax_3__updateLast(lean_object*); lean_object* l_Lean_Syntax_updateLeading(lean_object*); @@ -131,59 +98,46 @@ lean_object* l_Lean_Syntax_setArgs(lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main___rarg___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__9; -lean_object* l___private_Init_Lean_Syntax_7__decodeHexDigit(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getId(lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); extern lean_object* l_Lean_choiceKind; -extern lean_object* l_Lean_charLitKind; lean_object* l_Lean_SourceInfo_truncateTrailing(lean_object*); lean_object* l_Lean_Syntax_formatStx(lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Syntax_rewriteBottomUp___spec__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_isMissing___boxed(lean_object*); -uint32_t lean_string_utf8_get(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace(lean_object*); lean_object* l___private_Init_Lean_Syntax_3__updateLast___main(lean_object*); -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_modifyArgs(lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_getArgs___boxed(lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_unreachIsNodeIdent___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_String_Iterator_HasRepr___closed__2; lean_object* l_Lean_SourceInfo_appendToLeading(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_isCharLit_x3f___boxed(lean_object*); lean_object* l_Lean_Syntax_getTailInfo___main___boxed(lean_object*); -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__2; lean_object* l_Lean_Syntax_ifNode___rarg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_asNode___boxed(lean_object*); -lean_object* l_Lean_Syntax_decodeStrLit___boxed(lean_object*); lean_object* l_Lean_Syntax_mreplace___main___at_Lean_Syntax_updateLeading___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Name_replacePrefix___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__11; lean_object* l_Lean_SyntaxNode_getNumArgs___boxed(lean_object*); -lean_object* l_Lean_Syntax_decodeCharLit(lean_object*); lean_object* l_Lean_Syntax_mrewriteBottomUp___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_updateTrailing___main(lean_object*, lean_object*); uint8_t l_Lean_Syntax_isAtom(lean_object*); lean_object* l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2(lean_object*, lean_object*); extern lean_object* l_Lean_Format_sbracket___closed__3; -lean_object* l_Lean_Syntax_isStrLit_x3f___boxed(lean_object*); -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_unreachIsNodeAtom(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main___rarg___lambda__3(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getHeadInfo___main(lean_object*); extern lean_object* l_Lean_formatDataValue___closed__2; uint8_t l_Lean_Syntax_isMissing(lean_object*); lean_object* l_Array_umapMAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_isIdOrAtom_x3f(lean_object*); extern lean_object* l_Lean_HasRepr___closed__1; lean_object* l_Lean_Syntax_setArg___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SourceInfo_appendToTrailing(lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_getNumArgs(lean_object*); -uint8_t l_UInt32_decEq(uint32_t, uint32_t); extern lean_object* l_Lean_Format_paren___closed__1; extern lean_object* l_Lean_Syntax_inhabited; lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__3(lean_object*, lean_object*, lean_object*); @@ -191,9 +145,7 @@ lean_object* l_Lean_Syntax_getNumArgs(lean_object*); lean_object* l_Lean_Syntax_mrewriteBottomUp___boxed(lean_object*); lean_object* l_Lean_Syntax_setArg(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SourceInfo_updateTrailing(lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Syntax_2__updateLeadingAux(lean_object*, lean_object*); -uint8_t l_Lean_Syntax_hasArgs(lean_object*); lean_object* l_Lean_Syntax_getTailWithInfo(lean_object*); lean_object* l_String_quote(lean_object*); lean_object* l_Lean_Syntax_HasToString___closed__2; @@ -207,11 +159,8 @@ lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__4___ lean_object* l_Lean_Syntax_setTailInfoAux___main(lean_object*, lean_object*); lean_object* lean_format_group(lean_object*); lean_object* l_Lean_mkStxStrLit(lean_object*, lean_object*); -lean_object* lean_nat_mul(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getPos(lean_object*); -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* lean_mk_syntax_atom(lean_object*); -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* lean_mk_syntax_num_lit(lean_object*); lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_reprint___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Syntax_updateLeading___spec__2(lean_object*, lean_object*, lean_object*); @@ -225,19 +174,13 @@ lean_object* l_Lean_Syntax_HasToString___lambda__1(lean_object*); lean_object* l_Array_toList___rarg(lean_object*); lean_object* l_Lean_Syntax_mrewriteBottomUp___main___at_Lean_Syntax_rewriteBottomUp___spec__1(lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__5(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_decodeStrLit(lean_object*); lean_object* lean_mk_syntax_list(lean_object*); lean_object* l_Lean_Syntax_getTailInfo___boxed(lean_object*); -lean_object* l___private_Init_Lean_Syntax_10__decodeNatLitVal(lean_object*); -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__5; lean_object* l_Lean_Syntax_mreplace___main___rarg___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* lean_string_length(lean_object*); lean_object* l_Lean_Syntax_mreplace___boxed(lean_object*); lean_object* lean_mk_syntax_str_lit(lean_object*); lean_object* l_Lean_mkStxLit(lean_object*, lean_object*, lean_object*); -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_toNat(lean_object*); extern lean_object* l_Lean_Format_paren___closed__3; lean_object* l_Lean_Syntax_formatStxAux___main___closed__10; lean_object* l_Lean_Syntax_asNode(lean_object*); @@ -245,30 +188,21 @@ lean_object* l_Lean_Syntax_formatStxAux___main(lean_object*, lean_object*, lean_ lean_object* l_Lean_unreachIsNodeIdent(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_System_FilePath_dirName___closed__1; lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_decodeStrLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_Syntax_mrewriteBottomUp___main___rarg___lambda__2(lean_object*, lean_object*, lean_object*); -uint8_t l_UInt32_decLe(uint32_t, uint32_t); lean_object* l_Lean_Syntax_ifNodeKind___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Syntax_decodeStrLitAux(lean_object*, lean_object*, lean_object*); -uint8_t lean_string_utf8_at_end(lean_object*, lean_object*); lean_object* l_Lean_Syntax_modifyArgs(lean_object*, lean_object*); lean_object* l_Lean_mkNode(lean_object*, lean_object*); -lean_object* lean_uint32_to_nat(uint32_t); lean_object* l_Lean_Syntax_getTailInfo___main(lean_object*); -lean_object* l_Lean_Syntax_decodeStrLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_SyntaxNode_getArg(lean_object*, lean_object*); lean_object* l_Lean_Format_joinSep___main___at_Lean_Syntax_formatStxAux___main___spec__2___boxed(lean_object*, lean_object*); -lean_object* l_Lean_Syntax_isFieldIdx_x3f___boxed(lean_object*); lean_object* l_Lean_Syntax_formatStxAux___main___closed__7; lean_object* l_Lean_Syntax_formatStxAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_reprint(lean_object*); -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_mreplace___main___rarg___lambda__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_isIdent___boxed(lean_object*); uint8_t lean_string_dec_eq(lean_object*, lean_object*); -uint32_t l_Char_ofNat(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); uint8_t l_Lean_Syntax_isIdent(lean_object*); lean_object* l_Lean_SourceInfo_updateTrailing(lean_object* x_1, lean_object* x_2) { @@ -4236,1718 +4170,6 @@ x_5 = l_Lean_mkStxLit(x_4, x_2, x_3); return x_5; } } -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint8_t x_4; -x_4 = lean_string_utf8_at_end(x_1, x_2); -if (x_4 == 0) -{ -uint32_t x_5; uint32_t x_6; uint8_t x_7; -x_5 = lean_string_utf8_get(x_1, x_2); -x_6 = 48; -x_7 = x_5 == x_6; -if (x_7 == 0) -{ -uint32_t x_8; uint8_t x_9; -x_8 = 49; -x_9 = x_5 == x_8; -if (x_9 == 0) -{ -lean_object* x_10; -lean_dec(x_3); -lean_dec(x_2); -x_10 = lean_box(0); -return x_10; -} -else -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_11 = lean_string_utf8_next(x_1, x_2); -lean_dec(x_2); -x_12 = lean_unsigned_to_nat(2u); -x_13 = lean_nat_mul(x_12, x_3); -lean_dec(x_3); -x_14 = lean_unsigned_to_nat(1u); -x_15 = lean_nat_add(x_13, x_14); -lean_dec(x_13); -x_2 = x_11; -x_3 = x_15; -goto _start; -} -} -else -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_string_utf8_next(x_1, x_2); -lean_dec(x_2); -x_18 = lean_unsigned_to_nat(2u); -x_19 = lean_nat_mul(x_18, x_3); -lean_dec(x_3); -x_2 = x_17; -x_3 = x_19; -goto _start; -} -} -else -{ -lean_object* x_21; -lean_dec(x_2); -x_21 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_21, 0, x_3); -return x_21; -} -} -} -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_5__decodeBinLitAux___main(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_5__decodeBinLitAux___main(x_1, x_2, x_3); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_5__decodeBinLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_5__decodeBinLitAux(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint8_t x_4; -x_4 = lean_string_utf8_at_end(x_1, x_2); -if (x_4 == 0) -{ -uint32_t x_5; uint32_t x_6; uint8_t x_7; -x_5 = lean_string_utf8_get(x_1, x_2); -x_6 = 48; -x_7 = x_6 <= x_5; -if (x_7 == 0) -{ -lean_object* x_8; -lean_dec(x_3); -lean_dec(x_2); -x_8 = lean_box(0); -return x_8; -} -else -{ -uint32_t x_9; uint8_t x_10; -x_9 = 55; -x_10 = x_5 <= x_9; -if (x_10 == 0) -{ -lean_object* x_11; -lean_dec(x_3); -lean_dec(x_2); -x_11 = lean_box(0); -return x_11; -} -else -{ -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; -x_12 = lean_string_utf8_next(x_1, x_2); -lean_dec(x_2); -x_13 = lean_unsigned_to_nat(8u); -x_14 = lean_nat_mul(x_13, x_3); -lean_dec(x_3); -x_15 = lean_uint32_to_nat(x_5); -x_16 = lean_nat_add(x_14, x_15); -lean_dec(x_15); -lean_dec(x_14); -x_17 = lean_unsigned_to_nat(48u); -x_18 = lean_nat_sub(x_16, x_17); -lean_dec(x_16); -x_2 = x_12; -x_3 = x_18; -goto _start; -} -} -} -else -{ -lean_object* x_20; -lean_dec(x_2); -x_20 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_20, 0, x_3); -return x_20; -} -} -} -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main(x_1, x_2, x_3); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_6__decodeOctalLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_6__decodeOctalLitAux(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_7__decodeHexDigit(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint32_t x_3; lean_object* x_4; lean_object* x_5; uint32_t x_44; uint8_t x_45; -x_3 = lean_string_utf8_get(x_1, x_2); -x_4 = lean_string_utf8_next(x_1, x_2); -x_44 = 48; -x_45 = x_44 <= x_3; -if (x_45 == 0) -{ -lean_object* x_46; -x_46 = lean_box(0); -x_5 = x_46; -goto block_43; -} -else -{ -uint32_t x_47; uint8_t x_48; -x_47 = 57; -x_48 = x_3 <= x_47; -if (x_48 == 0) -{ -lean_object* x_49; -x_49 = lean_box(0); -x_5 = x_49; -goto block_43; -} -else -{ -lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; -x_50 = lean_uint32_to_nat(x_3); -x_51 = lean_unsigned_to_nat(48u); -x_52 = lean_nat_sub(x_50, x_51); -lean_dec(x_50); -x_53 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_53, 0, x_52); -lean_ctor_set(x_53, 1, x_4); -x_54 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_54, 0, x_53); -return x_54; -} -} -block_43: -{ -uint32_t x_6; uint8_t x_7; -lean_dec(x_5); -x_6 = 97; -x_7 = x_6 <= x_3; -if (x_7 == 0) -{ -uint32_t x_8; uint8_t x_9; -x_8 = 65; -x_9 = x_8 <= x_3; -if (x_9 == 0) -{ -lean_object* x_10; -lean_dec(x_4); -x_10 = lean_box(0); -return x_10; -} -else -{ -uint32_t x_11; uint8_t x_12; -x_11 = 70; -x_12 = x_3 <= x_11; -if (x_12 == 0) -{ -lean_object* x_13; -lean_dec(x_4); -x_13 = lean_box(0); -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; -x_14 = lean_uint32_to_nat(x_3); -x_15 = lean_unsigned_to_nat(10u); -x_16 = lean_nat_add(x_15, x_14); -lean_dec(x_14); -x_17 = lean_unsigned_to_nat(65u); -x_18 = lean_nat_sub(x_16, x_17); -lean_dec(x_16); -x_19 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_19, 0, x_18); -lean_ctor_set(x_19, 1, x_4); -x_20 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_20, 0, x_19); -return x_20; -} -} -} -else -{ -uint32_t x_21; uint8_t x_22; -x_21 = 102; -x_22 = x_3 <= x_21; -if (x_22 == 0) -{ -uint32_t x_23; uint8_t x_24; -x_23 = 65; -x_24 = x_23 <= x_3; -if (x_24 == 0) -{ -lean_object* x_25; -lean_dec(x_4); -x_25 = lean_box(0); -return x_25; -} -else -{ -uint32_t x_26; uint8_t x_27; -x_26 = 70; -x_27 = x_3 <= x_26; -if (x_27 == 0) -{ -lean_object* x_28; -lean_dec(x_4); -x_28 = lean_box(0); -return x_28; -} -else -{ -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_29 = lean_uint32_to_nat(x_3); -x_30 = lean_unsigned_to_nat(10u); -x_31 = lean_nat_add(x_30, x_29); -lean_dec(x_29); -x_32 = lean_unsigned_to_nat(65u); -x_33 = lean_nat_sub(x_31, x_32); -lean_dec(x_31); -x_34 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_34, 0, x_33); -lean_ctor_set(x_34, 1, x_4); -x_35 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_35, 0, x_34); -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; -x_36 = lean_uint32_to_nat(x_3); -x_37 = lean_unsigned_to_nat(10u); -x_38 = lean_nat_add(x_37, x_36); -lean_dec(x_36); -x_39 = lean_unsigned_to_nat(97u); -x_40 = lean_nat_sub(x_38, x_39); -lean_dec(x_38); -x_41 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_4); -x_42 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_42, 0, x_41); -return x_42; -} -} -} -} -} -lean_object* l___private_Init_Lean_Syntax_7__decodeHexDigit___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint8_t x_4; -x_4 = lean_string_utf8_at_end(x_1, x_2); -if (x_4 == 0) -{ -lean_object* x_5; -x_5 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_2); -lean_dec(x_2); -if (lean_obj_tag(x_5) == 0) -{ -lean_object* x_6; -lean_dec(x_3); -x_6 = lean_box(0); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; -x_7 = lean_ctor_get(x_5, 0); -lean_inc(x_7); -lean_dec(x_5); -x_8 = lean_ctor_get(x_7, 0); -lean_inc(x_8); -x_9 = lean_ctor_get(x_7, 1); -lean_inc(x_9); -lean_dec(x_7); -x_10 = lean_unsigned_to_nat(16u); -x_11 = lean_nat_mul(x_10, x_3); -lean_dec(x_3); -x_12 = lean_nat_add(x_11, x_8); -lean_dec(x_8); -lean_dec(x_11); -x_2 = x_9; -x_3 = x_12; -goto _start; -} -} -else -{ -lean_object* x_14; -lean_dec(x_2); -x_14 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_14, 0, x_3); -return x_14; -} -} -} -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_8__decodeHexLitAux___main(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_8__decodeHexLitAux___main(x_1, x_2, x_3); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_8__decodeHexLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_8__decodeHexLitAux(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint8_t x_4; -x_4 = lean_string_utf8_at_end(x_1, x_2); -if (x_4 == 0) -{ -uint32_t x_5; uint32_t x_6; uint8_t x_7; -x_5 = lean_string_utf8_get(x_1, x_2); -x_6 = 48; -x_7 = x_6 <= x_5; -if (x_7 == 0) -{ -lean_object* x_8; -lean_dec(x_3); -lean_dec(x_2); -x_8 = lean_box(0); -return x_8; -} -else -{ -uint32_t x_9; uint8_t x_10; -x_9 = 57; -x_10 = x_5 <= x_9; -if (x_10 == 0) -{ -lean_object* x_11; -lean_dec(x_3); -lean_dec(x_2); -x_11 = lean_box(0); -return x_11; -} -else -{ -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; -x_12 = lean_string_utf8_next(x_1, x_2); -lean_dec(x_2); -x_13 = lean_unsigned_to_nat(10u); -x_14 = lean_nat_mul(x_13, x_3); -lean_dec(x_3); -x_15 = lean_uint32_to_nat(x_5); -x_16 = lean_nat_add(x_14, x_15); -lean_dec(x_15); -lean_dec(x_14); -x_17 = lean_unsigned_to_nat(48u); -x_18 = lean_nat_sub(x_16, x_17); -lean_dec(x_16); -x_2 = x_12; -x_3 = x_18; -goto _start; -} -} -} -else -{ -lean_object* x_20; -lean_dec(x_2); -x_20 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_20, 0, x_3); -return x_20; -} -} -} -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main(x_1, x_2, x_3); -return x_4; -} -} -lean_object* l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l___private_Init_Lean_Syntax_9__decodeDecimalLitAux(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* _init_l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = lean_unsigned_to_nat(0u); -x_2 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} -lean_object* l___private_Init_Lean_Syntax_10__decodeNatLitVal(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; uint8_t x_4; -x_2 = lean_string_length(x_1); -x_3 = lean_unsigned_to_nat(0u); -x_4 = lean_nat_dec_eq(x_2, x_3); -if (x_4 == 0) -{ -uint32_t x_5; uint32_t x_6; uint8_t x_7; -x_5 = lean_string_utf8_get(x_1, x_3); -x_6 = 48; -x_7 = x_5 == x_6; -if (x_7 == 0) -{ -uint8_t x_8; -lean_dec(x_2); -x_8 = l_Char_isDigit(x_5); -if (x_8 == 0) -{ -lean_object* x_9; -x_9 = lean_box(0); -return x_9; -} -else -{ -lean_object* x_10; -x_10 = l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main(x_1, x_3, x_3); -return x_10; -} -} -else -{ -lean_object* x_11; uint8_t x_12; -x_11 = lean_unsigned_to_nat(1u); -x_12 = lean_nat_dec_eq(x_2, x_11); -lean_dec(x_2); -if (x_12 == 0) -{ -uint32_t x_13; uint32_t x_14; uint8_t x_15; -x_13 = lean_string_utf8_get(x_1, x_11); -x_14 = 120; -x_15 = x_13 == x_14; -if (x_15 == 0) -{ -uint32_t x_16; uint8_t x_17; -x_16 = 88; -x_17 = x_13 == x_16; -if (x_17 == 0) -{ -uint32_t x_18; uint8_t x_19; uint8_t x_38; -x_18 = 98; -x_38 = x_13 == x_18; -if (x_38 == 0) -{ -uint8_t x_39; -x_39 = 0; -x_19 = x_39; -goto block_37; -} -else -{ -uint8_t x_40; -x_40 = 1; -x_19 = x_40; -goto block_37; -} -block_37: -{ -if (x_19 == 0) -{ -uint32_t x_20; uint8_t x_21; -x_20 = 66; -x_21 = x_13 == x_20; -if (x_21 == 0) -{ -uint32_t x_22; uint8_t x_23; -x_22 = 111; -x_23 = x_13 == x_22; -if (x_23 == 0) -{ -uint32_t x_24; uint8_t x_25; -x_24 = 79; -x_25 = x_13 == x_24; -if (x_25 == 0) -{ -uint8_t x_26; -x_26 = l_Char_isDigit(x_13); -if (x_26 == 0) -{ -lean_object* x_27; -x_27 = lean_box(0); -return x_27; -} -else -{ -lean_object* x_28; -x_28 = l___private_Init_Lean_Syntax_9__decodeDecimalLitAux___main(x_1, x_3, x_3); -return x_28; -} -} -else -{ -lean_object* x_29; lean_object* x_30; -x_29 = lean_unsigned_to_nat(2u); -x_30 = l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main(x_1, x_29, x_3); -return x_30; -} -} -else -{ -lean_object* x_31; lean_object* x_32; -x_31 = lean_unsigned_to_nat(2u); -x_32 = l___private_Init_Lean_Syntax_6__decodeOctalLitAux___main(x_1, x_31, x_3); -return x_32; -} -} -else -{ -lean_object* x_33; lean_object* x_34; -x_33 = lean_unsigned_to_nat(2u); -x_34 = l___private_Init_Lean_Syntax_5__decodeBinLitAux___main(x_1, x_33, x_3); -return x_34; -} -} -else -{ -lean_object* x_35; lean_object* x_36; -x_35 = lean_unsigned_to_nat(2u); -x_36 = l___private_Init_Lean_Syntax_5__decodeBinLitAux___main(x_1, x_35, x_3); -return x_36; -} -} -} -else -{ -lean_object* x_41; lean_object* x_42; -x_41 = lean_unsigned_to_nat(2u); -x_42 = l___private_Init_Lean_Syntax_8__decodeHexLitAux___main(x_1, x_41, x_3); -return x_42; -} -} -else -{ -lean_object* x_43; lean_object* x_44; -x_43 = lean_unsigned_to_nat(2u); -x_44 = l___private_Init_Lean_Syntax_8__decodeHexLitAux___main(x_1, x_43, x_3); -return x_44; -} -} -else -{ -lean_object* x_45; -x_45 = l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1; -return x_45; -} -} -} -else -{ -lean_object* x_46; -lean_dec(x_2); -x_46 = lean_box(0); -return x_46; -} -} -} -lean_object* l___private_Init_Lean_Syntax_10__decodeNatLitVal___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l___private_Init_Lean_Syntax_10__decodeNatLitVal(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_isNatLitAux(lean_object* x_1, lean_object* x_2) { -_start: -{ -if (lean_obj_tag(x_2) == 1) -{ -lean_object* x_3; lean_object* x_4; uint8_t x_5; -x_3 = lean_ctor_get(x_2, 0); -x_4 = lean_ctor_get(x_2, 1); -x_5 = lean_name_eq(x_3, x_1); -if (x_5 == 0) -{ -lean_object* x_6; -x_6 = lean_box(0); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; uint8_t x_9; -x_7 = lean_array_get_size(x_4); -x_8 = lean_unsigned_to_nat(1u); -x_9 = lean_nat_dec_eq(x_7, x_8); -lean_dec(x_7); -if (x_9 == 0) -{ -lean_object* x_10; -x_10 = lean_box(0); -return x_10; -} -else -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_11 = l_Lean_Syntax_inhabited; -x_12 = lean_unsigned_to_nat(0u); -x_13 = lean_array_get(x_11, x_4, x_12); -if (lean_obj_tag(x_13) == 2) -{ -lean_object* x_14; lean_object* x_15; -x_14 = lean_ctor_get(x_13, 1); -lean_inc(x_14); -lean_dec(x_13); -x_15 = l___private_Init_Lean_Syntax_10__decodeNatLitVal(x_14); -lean_dec(x_14); -return x_15; -} -else -{ -lean_object* x_16; -lean_dec(x_13); -x_16 = lean_box(0); -return x_16; -} -} -} -} -else -{ -lean_object* x_17; -x_17 = lean_box(0); -return x_17; -} -} -} -lean_object* l_Lean_Syntax_isNatLitAux___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l_Lean_Syntax_isNatLitAux(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_Lean_Syntax_isNatLit_x3f(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; -x_2 = l_Lean_numLitKind; -x_3 = l_Lean_Syntax_isNatLitAux(x_2, x_1); -return x_3; -} -} -lean_object* l_Lean_Syntax_isNatLit_x3f___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_isNatLit_x3f(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_isFieldIdx_x3f(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; -x_2 = l_Lean_fieldIdxKind; -x_3 = l_Lean_Syntax_isNatLitAux(x_2, x_1); -return x_3; -} -} -lean_object* l_Lean_Syntax_isFieldIdx_x3f___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_isFieldIdx_x3f(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_isIdOrAtom_x3f(lean_object* x_1) { -_start: -{ -switch (lean_obj_tag(x_1)) { -case 2: -{ -lean_object* x_2; lean_object* x_3; -x_2 = lean_ctor_get(x_1, 1); -lean_inc(x_2); -x_3 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_3, 0, x_2); -return x_3; -} -case 3: -{ -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_4 = lean_ctor_get(x_1, 1); -x_5 = lean_ctor_get(x_4, 0); -x_6 = lean_ctor_get(x_4, 1); -x_7 = lean_ctor_get(x_4, 2); -x_8 = lean_string_utf8_extract(x_5, x_6, x_7); -x_9 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_9, 0, x_8); -return x_9; -} -default: -{ -lean_object* x_10; -x_10 = lean_box(0); -return x_10; -} -} -} -} -lean_object* l_Lean_Syntax_isIdOrAtom_x3f___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_isIdOrAtom_x3f(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_toNat(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; -x_2 = l_Lean_numLitKind; -x_3 = l_Lean_Syntax_isNatLitAux(x_2, x_1); -if (lean_obj_tag(x_3) == 0) -{ -lean_object* x_4; -x_4 = lean_unsigned_to_nat(0u); -return x_4; -} -else -{ -lean_object* x_5; -x_5 = lean_ctor_get(x_3, 0); -lean_inc(x_5); -lean_dec(x_3); -return x_5; -} -} -} -lean_object* l_Lean_Syntax_toNat___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_toNat(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__1() { -_start: -{ -uint32_t x_1; lean_object* x_2; -x_1 = 9; -x_2 = lean_box_uint32(x_1); -return x_2; -} -} -lean_object* _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__2() { -_start: -{ -uint32_t x_1; lean_object* x_2; -x_1 = 10; -x_2 = lean_box_uint32(x_1); -return x_2; -} -} -lean_object* _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__3() { -_start: -{ -uint32_t x_1; lean_object* x_2; -x_1 = 39; -x_2 = lean_box_uint32(x_1); -return x_2; -} -} -lean_object* _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__4() { -_start: -{ -uint32_t x_1; lean_object* x_2; -x_1 = 34; -x_2 = lean_box_uint32(x_1); -return x_2; -} -} -lean_object* _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__5() { -_start: -{ -uint32_t x_1; lean_object* x_2; -x_1 = 92; -x_2 = lean_box_uint32(x_1); -return x_2; -} -} -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint32_t x_3; lean_object* x_4; uint32_t x_5; uint8_t x_6; -x_3 = lean_string_utf8_get(x_1, x_2); -x_4 = lean_string_utf8_next(x_1, x_2); -x_5 = 92; -x_6 = x_3 == x_5; -if (x_6 == 0) -{ -uint32_t x_7; uint8_t x_8; -x_7 = 34; -x_8 = x_3 == x_7; -if (x_8 == 0) -{ -uint32_t x_9; uint8_t x_10; -x_9 = 39; -x_10 = x_3 == x_9; -if (x_10 == 0) -{ -uint32_t x_11; uint8_t x_12; -x_11 = 110; -x_12 = x_3 == x_11; -if (x_12 == 0) -{ -uint32_t x_13; uint8_t x_14; -x_13 = 116; -x_14 = x_3 == x_13; -if (x_14 == 0) -{ -uint32_t x_15; uint8_t x_16; -x_15 = 120; -x_16 = x_3 == x_15; -if (x_16 == 0) -{ -uint32_t x_17; uint8_t x_18; -x_17 = 117; -x_18 = x_3 == x_17; -if (x_18 == 0) -{ -lean_object* x_19; -lean_dec(x_4); -x_19 = lean_box(0); -return x_19; -} -else -{ -lean_object* x_20; -x_20 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_4); -lean_dec(x_4); -if (lean_obj_tag(x_20) == 0) -{ -lean_object* x_21; -x_21 = lean_box(0); -return x_21; -} -else -{ -lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; -x_22 = lean_ctor_get(x_20, 0); -lean_inc(x_22); -lean_dec(x_20); -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_25 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_24); -lean_dec(x_24); -if (lean_obj_tag(x_25) == 0) -{ -lean_object* x_26; -lean_dec(x_23); -x_26 = lean_box(0); -return x_26; -} -else -{ -lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; -x_27 = lean_ctor_get(x_25, 0); -lean_inc(x_27); -lean_dec(x_25); -x_28 = lean_ctor_get(x_27, 0); -lean_inc(x_28); -x_29 = lean_ctor_get(x_27, 1); -lean_inc(x_29); -lean_dec(x_27); -x_30 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_29); -lean_dec(x_29); -if (lean_obj_tag(x_30) == 0) -{ -lean_object* x_31; -lean_dec(x_28); -lean_dec(x_23); -x_31 = lean_box(0); -return x_31; -} -else -{ -lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; -x_32 = lean_ctor_get(x_30, 0); -lean_inc(x_32); -lean_dec(x_30); -x_33 = lean_ctor_get(x_32, 0); -lean_inc(x_33); -x_34 = lean_ctor_get(x_32, 1); -lean_inc(x_34); -lean_dec(x_32); -x_35 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_34); -lean_dec(x_34); -if (lean_obj_tag(x_35) == 0) -{ -lean_object* x_36; -lean_dec(x_33); -lean_dec(x_28); -lean_dec(x_23); -x_36 = lean_box(0); -return x_36; -} -else -{ -uint8_t x_37; -x_37 = !lean_is_exclusive(x_35); -if (x_37 == 0) -{ -lean_object* x_38; uint8_t x_39; -x_38 = lean_ctor_get(x_35, 0); -x_39 = !lean_is_exclusive(x_38); -if (x_39 == 0) -{ -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; uint32_t x_48; lean_object* x_49; -x_40 = lean_ctor_get(x_38, 0); -x_41 = lean_unsigned_to_nat(16u); -x_42 = lean_nat_mul(x_41, x_23); -lean_dec(x_23); -x_43 = lean_nat_add(x_42, x_28); -lean_dec(x_28); -lean_dec(x_42); -x_44 = lean_nat_mul(x_41, x_43); -lean_dec(x_43); -x_45 = lean_nat_add(x_44, x_33); -lean_dec(x_33); -lean_dec(x_44); -x_46 = lean_nat_mul(x_41, x_45); -lean_dec(x_45); -x_47 = lean_nat_add(x_46, x_40); -lean_dec(x_40); -lean_dec(x_46); -x_48 = l_Char_ofNat(x_47); -lean_dec(x_47); -x_49 = lean_box_uint32(x_48); -lean_ctor_set(x_38, 0, x_49); -return x_35; -} -else -{ -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; uint32_t x_59; lean_object* x_60; lean_object* x_61; -x_50 = lean_ctor_get(x_38, 0); -x_51 = lean_ctor_get(x_38, 1); -lean_inc(x_51); -lean_inc(x_50); -lean_dec(x_38); -x_52 = lean_unsigned_to_nat(16u); -x_53 = lean_nat_mul(x_52, x_23); -lean_dec(x_23); -x_54 = lean_nat_add(x_53, x_28); -lean_dec(x_28); -lean_dec(x_53); -x_55 = lean_nat_mul(x_52, x_54); -lean_dec(x_54); -x_56 = lean_nat_add(x_55, x_33); -lean_dec(x_33); -lean_dec(x_55); -x_57 = lean_nat_mul(x_52, x_56); -lean_dec(x_56); -x_58 = lean_nat_add(x_57, x_50); -lean_dec(x_50); -lean_dec(x_57); -x_59 = l_Char_ofNat(x_58); -lean_dec(x_58); -x_60 = lean_box_uint32(x_59); -x_61 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_61, 0, x_60); -lean_ctor_set(x_61, 1, x_51); -lean_ctor_set(x_35, 0, x_61); -return x_35; -} -} -else -{ -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; uint32_t x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; -x_62 = lean_ctor_get(x_35, 0); -lean_inc(x_62); -lean_dec(x_35); -x_63 = lean_ctor_get(x_62, 0); -lean_inc(x_63); -x_64 = lean_ctor_get(x_62, 1); -lean_inc(x_64); -if (lean_is_exclusive(x_62)) { - lean_ctor_release(x_62, 0); - lean_ctor_release(x_62, 1); - x_65 = x_62; -} else { - lean_dec_ref(x_62); - x_65 = lean_box(0); -} -x_66 = lean_unsigned_to_nat(16u); -x_67 = lean_nat_mul(x_66, x_23); -lean_dec(x_23); -x_68 = lean_nat_add(x_67, x_28); -lean_dec(x_28); -lean_dec(x_67); -x_69 = lean_nat_mul(x_66, x_68); -lean_dec(x_68); -x_70 = lean_nat_add(x_69, x_33); -lean_dec(x_33); -lean_dec(x_69); -x_71 = lean_nat_mul(x_66, x_70); -lean_dec(x_70); -x_72 = lean_nat_add(x_71, x_63); -lean_dec(x_63); -lean_dec(x_71); -x_73 = l_Char_ofNat(x_72); -lean_dec(x_72); -x_74 = lean_box_uint32(x_73); -if (lean_is_scalar(x_65)) { - x_75 = lean_alloc_ctor(0, 2, 0); -} else { - x_75 = x_65; -} -lean_ctor_set(x_75, 0, x_74); -lean_ctor_set(x_75, 1, x_64); -x_76 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_76, 0, x_75); -return x_76; -} -} -} -} -} -} -} -else -{ -lean_object* x_77; -x_77 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_4); -lean_dec(x_4); -if (lean_obj_tag(x_77) == 0) -{ -lean_object* x_78; -x_78 = lean_box(0); -return x_78; -} -else -{ -lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; -x_79 = lean_ctor_get(x_77, 0); -lean_inc(x_79); -lean_dec(x_77); -x_80 = lean_ctor_get(x_79, 0); -lean_inc(x_80); -x_81 = lean_ctor_get(x_79, 1); -lean_inc(x_81); -lean_dec(x_79); -x_82 = l___private_Init_Lean_Syntax_7__decodeHexDigit(x_1, x_81); -lean_dec(x_81); -if (lean_obj_tag(x_82) == 0) -{ -lean_object* x_83; -lean_dec(x_80); -x_83 = lean_box(0); -return x_83; -} -else -{ -uint8_t x_84; -x_84 = !lean_is_exclusive(x_82); -if (x_84 == 0) -{ -lean_object* x_85; uint8_t x_86; -x_85 = lean_ctor_get(x_82, 0); -x_86 = !lean_is_exclusive(x_85); -if (x_86 == 0) -{ -lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint32_t x_91; lean_object* x_92; -x_87 = lean_ctor_get(x_85, 0); -x_88 = lean_unsigned_to_nat(16u); -x_89 = lean_nat_mul(x_88, x_80); -lean_dec(x_80); -x_90 = lean_nat_add(x_89, x_87); -lean_dec(x_87); -lean_dec(x_89); -x_91 = l_Char_ofNat(x_90); -lean_dec(x_90); -x_92 = lean_box_uint32(x_91); -lean_ctor_set(x_85, 0, x_92); -return x_82; -} -else -{ -lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint32_t x_98; lean_object* x_99; lean_object* x_100; -x_93 = lean_ctor_get(x_85, 0); -x_94 = lean_ctor_get(x_85, 1); -lean_inc(x_94); -lean_inc(x_93); -lean_dec(x_85); -x_95 = lean_unsigned_to_nat(16u); -x_96 = lean_nat_mul(x_95, x_80); -lean_dec(x_80); -x_97 = lean_nat_add(x_96, x_93); -lean_dec(x_93); -lean_dec(x_96); -x_98 = l_Char_ofNat(x_97); -lean_dec(x_97); -x_99 = lean_box_uint32(x_98); -x_100 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_100, 0, x_99); -lean_ctor_set(x_100, 1, x_94); -lean_ctor_set(x_82, 0, x_100); -return x_82; -} -} -else -{ -lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint32_t x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; -x_101 = lean_ctor_get(x_82, 0); -lean_inc(x_101); -lean_dec(x_82); -x_102 = lean_ctor_get(x_101, 0); -lean_inc(x_102); -x_103 = lean_ctor_get(x_101, 1); -lean_inc(x_103); -if (lean_is_exclusive(x_101)) { - lean_ctor_release(x_101, 0); - lean_ctor_release(x_101, 1); - x_104 = x_101; -} else { - lean_dec_ref(x_101); - x_104 = lean_box(0); -} -x_105 = lean_unsigned_to_nat(16u); -x_106 = lean_nat_mul(x_105, x_80); -lean_dec(x_80); -x_107 = lean_nat_add(x_106, x_102); -lean_dec(x_102); -lean_dec(x_106); -x_108 = l_Char_ofNat(x_107); -lean_dec(x_107); -x_109 = lean_box_uint32(x_108); -if (lean_is_scalar(x_104)) { - x_110 = lean_alloc_ctor(0, 2, 0); -} else { - x_110 = x_104; -} -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_103); -x_111 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_111, 0, x_110); -return x_111; -} -} -} -} -} -else -{ -lean_object* x_112; lean_object* x_113; lean_object* x_114; -x_112 = l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__1; -x_113 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_113, 0, x_112); -lean_ctor_set(x_113, 1, x_4); -x_114 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_114, 0, x_113); -return x_114; -} -} -else -{ -lean_object* x_115; lean_object* x_116; lean_object* x_117; -x_115 = l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__2; -x_116 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_116, 0, x_115); -lean_ctor_set(x_116, 1, x_4); -x_117 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_117, 0, x_116); -return x_117; -} -} -else -{ -lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_118 = l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__3; -x_119 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_119, 0, x_118); -lean_ctor_set(x_119, 1, x_4); -x_120 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_120, 0, x_119); -return x_120; -} -} -else -{ -lean_object* x_121; lean_object* x_122; lean_object* x_123; -x_121 = l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__4; -x_122 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_122, 0, x_121); -lean_ctor_set(x_122, 1, x_4); -x_123 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_123, 0, x_122); -return x_123; -} -} -else -{ -lean_object* x_124; lean_object* x_125; lean_object* x_126; -x_124 = l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__5; -x_125 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_125, 0, x_124); -lean_ctor_set(x_125, 1, x_4); -x_126 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_126, 0, x_125); -return x_126; -} -} -} -lean_object* l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -lean_object* x_3; -x_3 = l___private_Init_Lean_Syntax_11__decodeQuotedChar(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -return x_3; -} -} -lean_object* l_Lean_Syntax_decodeStrLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -uint32_t x_4; lean_object* x_5; uint32_t x_6; uint8_t x_7; -x_4 = lean_string_utf8_get(x_1, x_2); -x_5 = lean_string_utf8_next(x_1, x_2); -lean_dec(x_2); -x_6 = 34; -x_7 = x_4 == x_6; -if (x_7 == 0) -{ -uint32_t x_8; uint8_t x_9; -x_8 = 92; -x_9 = x_4 == x_8; -if (x_9 == 0) -{ -lean_object* x_10; -x_10 = lean_string_push(x_3, x_4); -x_2 = x_5; -x_3 = x_10; -goto _start; -} -else -{ -lean_object* x_12; -x_12 = l___private_Init_Lean_Syntax_11__decodeQuotedChar(x_1, x_5); -lean_dec(x_5); -if (lean_obj_tag(x_12) == 0) -{ -lean_object* x_13; -lean_dec(x_3); -x_13 = lean_box(0); -return x_13; -} -else -{ -lean_object* x_14; lean_object* x_15; lean_object* x_16; uint32_t x_17; lean_object* x_18; -x_14 = lean_ctor_get(x_12, 0); -lean_inc(x_14); -lean_dec(x_12); -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_17 = lean_unbox_uint32(x_15); -lean_dec(x_15); -x_18 = lean_string_push(x_3, x_17); -x_2 = x_16; -x_3 = x_18; -goto _start; -} -} -} -else -{ -lean_object* x_20; -lean_dec(x_5); -x_20 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_20, 0, x_3); -return x_20; -} -} -} -lean_object* l_Lean_Syntax_decodeStrLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_Lean_Syntax_decodeStrLitAux___main(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l_Lean_Syntax_decodeStrLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_Lean_Syntax_decodeStrLitAux___main(x_1, x_2, x_3); -return x_4; -} -} -lean_object* l_Lean_Syntax_decodeStrLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { -_start: -{ -lean_object* x_4; -x_4 = l_Lean_Syntax_decodeStrLitAux(x_1, x_2, x_3); -lean_dec(x_1); -return x_4; -} -} -lean_object* l_Lean_Syntax_decodeStrLit(lean_object* x_1) { -_start: -{ -lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_2 = lean_unsigned_to_nat(1u); -x_3 = l_String_splitAux___main___closed__1; -x_4 = l_Lean_Syntax_decodeStrLitAux___main(x_1, x_2, x_3); -return x_4; -} -} -lean_object* l_Lean_Syntax_decodeStrLit___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_decodeStrLit(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object* x_1) { -_start: -{ -if (lean_obj_tag(x_1) == 1) -{ -lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; -x_2 = lean_ctor_get(x_1, 0); -x_3 = lean_ctor_get(x_1, 1); -x_4 = l_Lean_strLitKind; -x_5 = lean_name_eq(x_2, x_4); -if (x_5 == 0) -{ -lean_object* x_6; -x_6 = lean_box(0); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; uint8_t x_9; -x_7 = lean_array_get_size(x_3); -x_8 = lean_unsigned_to_nat(1u); -x_9 = lean_nat_dec_eq(x_7, x_8); -lean_dec(x_7); -if (x_9 == 0) -{ -lean_object* x_10; -x_10 = lean_box(0); -return x_10; -} -else -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_11 = l_Lean_Syntax_inhabited; -x_12 = lean_unsigned_to_nat(0u); -x_13 = lean_array_get(x_11, x_3, x_12); -if (lean_obj_tag(x_13) == 2) -{ -lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_14 = lean_ctor_get(x_13, 1); -lean_inc(x_14); -lean_dec(x_13); -x_15 = l_String_splitAux___main___closed__1; -x_16 = l_Lean_Syntax_decodeStrLitAux___main(x_14, x_8, x_15); -lean_dec(x_14); -return x_16; -} -else -{ -lean_object* x_17; -lean_dec(x_13); -x_17 = lean_box(0); -return x_17; -} -} -} -} -else -{ -lean_object* x_18; -x_18 = lean_box(0); -return x_18; -} -} -} -lean_object* l_Lean_Syntax_isStrLit_x3f___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_isStrLit_x3f(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_decodeCharLit(lean_object* x_1) { -_start: -{ -lean_object* x_2; uint32_t x_3; uint32_t x_4; uint8_t x_5; -x_2 = lean_unsigned_to_nat(1u); -x_3 = lean_string_utf8_get(x_1, x_2); -x_4 = 92; -x_5 = x_3 == x_4; -if (x_5 == 0) -{ -lean_object* x_6; lean_object* x_7; -x_6 = lean_box_uint32(x_3); -x_7 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_7, 0, x_6); -return x_7; -} -else -{ -lean_object* x_8; lean_object* x_9; -x_8 = lean_unsigned_to_nat(2u); -x_9 = l___private_Init_Lean_Syntax_11__decodeQuotedChar(x_1, x_8); -if (lean_obj_tag(x_9) == 0) -{ -lean_object* x_10; -x_10 = lean_box(0); -return x_10; -} -else -{ -uint8_t x_11; -x_11 = !lean_is_exclusive(x_9); -if (x_11 == 0) -{ -lean_object* x_12; lean_object* x_13; -x_12 = lean_ctor_get(x_9, 0); -x_13 = lean_ctor_get(x_12, 0); -lean_inc(x_13); -lean_dec(x_12); -lean_ctor_set(x_9, 0, x_13); -return x_9; -} -else -{ -lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_14 = lean_ctor_get(x_9, 0); -lean_inc(x_14); -lean_dec(x_9); -x_15 = lean_ctor_get(x_14, 0); -lean_inc(x_15); -lean_dec(x_14); -x_16 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_16, 0, x_15); -return x_16; -} -} -} -} -} -lean_object* l_Lean_Syntax_decodeCharLit___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_decodeCharLit(x_1); -lean_dec(x_1); -return x_2; -} -} -lean_object* l_Lean_Syntax_isCharLit_x3f(lean_object* x_1) { -_start: -{ -if (lean_obj_tag(x_1) == 1) -{ -lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; -x_2 = lean_ctor_get(x_1, 0); -x_3 = lean_ctor_get(x_1, 1); -x_4 = l_Lean_charLitKind; -x_5 = lean_name_eq(x_2, x_4); -if (x_5 == 0) -{ -lean_object* x_6; -x_6 = lean_box(0); -return x_6; -} -else -{ -lean_object* x_7; lean_object* x_8; uint8_t x_9; -x_7 = lean_array_get_size(x_3); -x_8 = lean_unsigned_to_nat(1u); -x_9 = lean_nat_dec_eq(x_7, x_8); -lean_dec(x_7); -if (x_9 == 0) -{ -lean_object* x_10; -x_10 = lean_box(0); -return x_10; -} -else -{ -lean_object* x_11; lean_object* x_12; lean_object* x_13; -x_11 = l_Lean_Syntax_inhabited; -x_12 = lean_unsigned_to_nat(0u); -x_13 = lean_array_get(x_11, x_3, x_12); -if (lean_obj_tag(x_13) == 2) -{ -lean_object* x_14; lean_object* x_15; -x_14 = lean_ctor_get(x_13, 1); -lean_inc(x_14); -lean_dec(x_13); -x_15 = l_Lean_Syntax_decodeCharLit(x_14); -lean_dec(x_14); -return x_15; -} -else -{ -lean_object* x_16; -lean_dec(x_13); -x_16 = lean_box(0); -return x_16; -} -} -} -} -else -{ -lean_object* x_17; -x_17 = lean_box(0); -return x_17; -} -} -} -lean_object* l_Lean_Syntax_isCharLit_x3f___boxed(lean_object* x_1) { -_start: -{ -lean_object* x_2; -x_2 = l_Lean_Syntax_isCharLit_x3f(x_1); -lean_dec(x_1); -return x_2; -} -} -uint8_t l_Lean_Syntax_hasArgs(lean_object* x_1) { -_start: -{ -if (lean_obj_tag(x_1) == 1) -{ -lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; -x_2 = lean_ctor_get(x_1, 1); -x_3 = lean_array_get_size(x_2); -x_4 = lean_unsigned_to_nat(0u); -x_5 = lean_nat_dec_lt(x_4, x_3); -lean_dec(x_3); -return x_5; -} -else -{ -uint8_t x_6; -x_6 = 0; -return x_6; -} -} -} -lean_object* l_Lean_Syntax_hasArgs___boxed(lean_object* x_1) { -_start: -{ -uint8_t x_2; lean_object* x_3; -x_2 = l_Lean_Syntax_hasArgs(x_1); -lean_dec(x_1); -x_3 = lean_box(x_2); -return x_3; -} -} lean_object* initialize_Init_Data_Array(lean_object*); lean_object* initialize_Init_Lean_Data_Name(lean_object*); lean_object* initialize_Init_Lean_Data_Format(lean_object*); @@ -5995,18 +4217,6 @@ l_Lean_Syntax_HasToString___closed__2 = _init_l_Lean_Syntax_HasToString___closed lean_mark_persistent(l_Lean_Syntax_HasToString___closed__2); l_Lean_Syntax_HasToString = _init_l_Lean_Syntax_HasToString(); lean_mark_persistent(l_Lean_Syntax_HasToString); -l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1 = _init_l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1(); -lean_mark_persistent(l___private_Init_Lean_Syntax_10__decodeNatLitVal___closed__1); -l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__1 = _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__1(); -lean_mark_persistent(l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__1); -l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__2 = _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__2(); -lean_mark_persistent(l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__2); -l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__3 = _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__3(); -lean_mark_persistent(l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__3); -l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__4 = _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__4(); -lean_mark_persistent(l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__4); -l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__5 = _init_l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__5(); -lean_mark_persistent(l___private_Init_Lean_Syntax_11__decodeQuotedChar___boxed__const__5); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus diff --git a/stage0/stdlib/Init/LeanInit.c b/stage0/stdlib/Init/LeanInit.c index c47f1e3b67..b4f972656a 100644 --- a/stage0/stdlib/Init/LeanInit.c +++ b/stage0/stdlib/Init/LeanInit.c @@ -13,32 +13,48 @@ #ifdef __cplusplus extern "C" { #endif +lean_object* l_List_reverse___rarg(lean_object*); lean_object* l_Array_getSepElems___rarg___boxed(lean_object*); lean_object* l_Lean_mkTermId(lean_object*); lean_object* l_Lean_mkHole___closed__3; lean_object* l_Lean_mkCIdentFrom(lean_object*, lean_object*); lean_object* l_Lean_mkCTermIdFrom___boxed(lean_object*, lean_object*); +lean_object* lean_string_push(lean_object*, uint32_t); lean_object* l_Lean_Name_toString___closed__1; +lean_object* l_Lean_Syntax_isIdOrAtom_x3f___boxed(lean_object*); +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppStx(lean_object*, lean_object*); +lean_object* l_Lean_extractMacroScopes(lean_object*); lean_object* l_Lean_ParserDescr_pushLeading; lean_object* l_Lean_fieldIdxKind; +lean_object* l_Lean_Syntax_isNatLit_x3f___boxed(lean_object*); lean_object* l_Lean_MacroM_monadQuotation; +lean_object* l_Lean_Name_eraseMacroScopes(lean_object*); +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_isNatLitAux(lean_object*, lean_object*); lean_object* l_Array_findMAux___main___at_Lean_Syntax_getHeadInfo___main___spec__1___boxed(lean_object*, lean_object*); lean_object* lean_mk_empty_array_with_capacity(lean_object*); lean_object* l_Lean_mkTermIdFromIdent(lean_object*); lean_object* l_unreachable_x21___rarg(lean_object*); lean_object* l_Lean_nullKind; lean_object* l_Lean_Name_HasAppend; +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__1; +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__4; lean_object* l_Lean_fieldIdxKind___closed__2; lean_object* l_Lean_ParserDescr_orelse(uint8_t, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_7__decodeNatLitVal(lean_object*); uint8_t lean_name_eq(lean_object*, lean_object*); lean_object* l_Array_findMAux___main___at_Lean_Syntax_getHeadInfo___main___spec__1(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_4__decodeHexDigit___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_4__decodeHexDigit(lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_optional(uint8_t, lean_object*); +lean_object* l_Lean_Syntax_toNat___boxed(lean_object*); lean_object* l_Lean_ParserDescr_lookahead(uint8_t, lean_object*); extern lean_object* l_Array_empty___closed__1; lean_object* l_Lean_Syntax_isOfKind___boxed(lean_object*, lean_object*); lean_object* l_Lean_Name_HasBeq; lean_object* l_Lean_fieldIdxKind___closed__1; +uint8_t l_Char_isDigit(uint32_t); lean_object* l_Lean_charLitKind___closed__2; lean_object* l_Lean_ParserDescr_many(uint8_t, lean_object*); lean_object* l_Lean_mkIdentFrom(lean_object*, lean_object*); @@ -49,16 +65,20 @@ lean_object* l_Lean_mkHole___boxed(lean_object*); lean_object* l_Lean_ParserDescr_andthen___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_char(uint8_t); lean_object* lean_array_push(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux(lean_object*, lean_object*, lean_object*); lean_object* lean_array_get_size(lean_object*); lean_object* l_Lean_charLitKind___closed__1; lean_object* lean_string_append(lean_object*, lean_object*); +lean_object* lean_string_utf8_extract(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_inhabited; extern lean_object* l_String_splitAux___main___closed__1; +lean_object* l_Lean_Syntax_identToStrLit(lean_object*); lean_object* l_Lean_Name_hashable___closed__1; lean_object* lean_string_utf8_byte_size(lean_object*); lean_object* l_Lean_Syntax_getHeadInfo___main___boxed(lean_object*); lean_object* l_Lean_mkAppStx___closed__4; lean_object* l_Lean_mkIdentFrom___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_decodeStrLitAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkTermIdFromIdent___closed__1; lean_object* l_Lean_ParserDescr_try(uint8_t, lean_object*); lean_object* l_Lean_mkAppStx___closed__8; @@ -67,36 +87,52 @@ lean_object* lean_nat_add(lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Array_getSepElems___spec__1(lean_object*); lean_object* l_Lean_Name_toStringWithSep(lean_object*, lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Array_getSepElems___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getKind___closed__2; lean_object* l_Lean_Syntax_getKind___closed__1; lean_object* l_Lean_Name_hashable; lean_object* l_Lean_mkTermIdFromIdent___closed__2; +lean_object* lean_string_utf8_next(lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_str(uint8_t); +lean_object* l___private_Init_LeanInit_7__decodeNatLitVal___boxed(lean_object*); +lean_object* l_Lean_Syntax_strLitToAtom(lean_object*); +lean_object* l_Lean_Syntax_hasArgs___boxed(lean_object*); lean_object* l_Lean_mkStxNumLit(lean_object*, lean_object*); lean_object* l_Lean_ParserDescrCore_inhabited(uint8_t); lean_object* l_Lean_Name_HasAppend___closed__1; +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getKind___closed__4; lean_object* l_Lean_ParserDescr_many1(uint8_t, lean_object*); +lean_object* l_Lean_Syntax_isCharLit_x3f(lean_object*); lean_object* lean_array_fget(lean_object*, lean_object*); extern lean_object* l_optional___rarg___closed__1; +lean_object* l_Lean_Syntax_isNatLit_x3f(lean_object*); lean_object* l_Array_foldlStepMAux___main___at_Array_getSepElems___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*); +uint8_t lean_nat_dec_eq(lean_object*, lean_object*); lean_object* l_Lean_numLitKind; lean_object* l_Lean_ParserDescr_many___boxed(lean_object*, lean_object*); lean_object* l_Lean_choiceKind___closed__1; +lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_choiceKind___closed__2; lean_object* l_Lean_ParserDescr_num___boxed(lean_object*); lean_object* l_Lean_strLitKind; +lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object*); lean_object* l_Array_getSepElems(lean_object*); lean_object* l_Lean_Name_append___main(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_isFieldIdx_x3f(lean_object*); lean_object* l_Lean_ParserDescr_many1___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkTermIdFrom___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getHeadInfo(lean_object*); lean_object* l_Lean_Name_toString(lean_object*); lean_object* lean_array_get(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_numLitKind___closed__1; +lean_object* l_Lean_Syntax_decodeCharLit___boxed(lean_object*); lean_object* l_Lean_strLitKind___closed__1; +lean_object* l_Lean_Syntax_isNatLitAux___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getArgs___boxed(lean_object*); lean_object* l_Array_getSepElems___rarg(lean_object*); +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__5; lean_object* l_Lean_mkNullNode(lean_object*); lean_object* l_Lean_strLitKind___closed__2; size_t l_Lean_Name_hash(lean_object*); @@ -104,7 +140,9 @@ lean_object* l_Lean_ParserDescr_parser(uint8_t, lean_object*, lean_object*); lean_object* l_Nat_repr(lean_object*); lean_object* l_Lean_Name_HasToString; lean_object* l_Lean_ParserDescr_lookahead___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_7__decodeNatLitVal___closed__1; lean_object* l_Lean_ParserDescr_sepBy(uint8_t, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_1__extractMacroScopesAux___main(lean_object*, lean_object*); lean_object* lean_name_mk_string(lean_object*, lean_object*); lean_object* l_Lean_choiceKind; lean_object* l_Lean_charLitKind; @@ -112,78 +150,115 @@ lean_object* l_Lean_ParserDescr_andthen(uint8_t, lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_symbol___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_numLitKind___closed__2; lean_object* l_Lean_ParserDescr_node(uint8_t, lean_object*, lean_object*); +uint32_t lean_string_utf8_get(lean_object*, lean_object*); lean_object* l_Lean_mkAppStx___closed__6; lean_object* l_Lean_ParserDescr_try___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_ident___boxed(lean_object*); +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__2; lean_object* l_Lean_mkOptionalNode(lean_object*); lean_object* l_Lean_ParserDescr_str___boxed(lean_object*); lean_object* l_Lean_Name_toStringWithSep___boxed(lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_node___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_parser___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_isCharLit_x3f___boxed(lean_object*); size_t lean_usize_of_nat(lean_object*); lean_object* l_Lean_nullKind___closed__1; +lean_object* l_Lean_Syntax_decodeStrLit___boxed(lean_object*); lean_object* l_Lean_addMacroScope(lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_nonReservedSymbol___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_decodeCharLit(lean_object*); lean_object* l_Lean_Name_toStringWithSep___main___boxed(lean_object*, lean_object*); lean_object* l_Lean_nullKind___closed__2; +lean_object* l_Lean_Syntax_isStrLit_x3f___boxed(lean_object*); +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main___closed__1; lean_object* l_Lean_mkAtomFrom(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getHeadInfo___main(lean_object*); lean_object* l_Lean_mkAppStx___closed__3; +lean_object* l_Lean_Syntax_isIdOrAtom_x3f(lean_object*); lean_object* l_Lean_ParserDescrCore_inhabited___boxed(lean_object*); lean_object* l_Lean_ParserDescr_sepBy1(uint8_t, lean_object*, lean_object*); lean_object* l_Lean_mkCTermId(lean_object*); +uint8_t l_UInt32_decEq(uint32_t, uint32_t); lean_object* l_Lean_Syntax_inhabited; +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppStx___closed__5; +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux___main___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkHole(lean_object*); lean_object* l_Lean_ParserDescr_char___boxed(lean_object*); +uint8_t l_Lean_Syntax_hasArgs(lean_object*); lean_object* l_String_quote(lean_object*); lean_object* l_Lean_Syntax_getArgs(lean_object*); +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_append(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getKind(lean_object*); lean_object* l_Lean_Syntax_getArg___boxed(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_identToAtom(lean_object*); lean_object* l_Lean_Name_Name_beq___boxed(lean_object*, lean_object*); lean_object* l_Lean_Syntax_getHeadInfo___boxed(lean_object*); +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkHole___closed__1; lean_object* l_Lean_mkStxStrLit(lean_object*, lean_object*); +lean_object* lean_nat_mul(lean_object*, lean_object*); lean_object* l_Lean_addMacroScopes(lean_object*, lean_object*); lean_object* l_Lean_mkCAppStx(lean_object*, lean_object*); lean_object* l_Lean_mkAppStx___closed__9; lean_object* l_Lean_Name_HasBeq___closed__1; lean_object* l_Lean_Name_append___main___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux___main(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkTermIdFrom(lean_object*, lean_object*); lean_object* l_Lean_mkOptionalNode___closed__1; lean_object* l_Lean_ParserDescr_orelse___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_1__extractMacroScopesAux(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_decodeStrLit(lean_object*); uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); size_t lean_usize_mix_hash(size_t, size_t); lean_object* l_Lean_mkCIdentFrom___boxed(lean_object*, lean_object*); lean_object* l_Lean_mkHole___closed__2; lean_object* l_Lean_mkCIdentFrom___closed__1; +lean_object* lean_string_length(lean_object*); lean_object* l_Lean_MacroM_monadQuotation___closed__1; lean_object* l_Lean_Syntax_getKind___closed__3; lean_object* l_Lean_ParserDescr_sepBy___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_List_foldl___main___at_Lean_addMacroScopes___spec__1(lean_object*, lean_object*); lean_object* lean_mk_syntax_ident(lean_object*); lean_object* l_Lean_mkStxLit(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Syntax_getArg(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_toNat(lean_object*); lean_object* l_Lean_mkOptionalNode___closed__2; lean_object* l_Lean_ParserDescr_num(uint8_t); lean_object* l_Lean_mkCIdentFrom___closed__2; lean_object* l_Lean_mkCTermIdFrom(lean_object*, lean_object*); +lean_object* l_Lean_Syntax_strLitToAtom___boxed(lean_object*); +lean_object* l_Lean_Syntax_decodeStrLitAux___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAtomFrom___boxed(lean_object*, lean_object*); lean_object* l_Lean_Name_toStringWithSep___main(lean_object*, lean_object*); lean_object* l_Lean_ParserDescr_symbol(uint8_t, lean_object*, lean_object*); lean_object* l_Lean_MacroM_monadQuotation___lambda__1(lean_object*, lean_object*, lean_object*); +uint8_t l_UInt32_decLe(uint32_t, uint32_t); lean_object* l_Lean_ParserDescr_optional___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_mkAppStx___closed__2; lean_object* l_Lean_ParserDescr_nonReservedSymbol(lean_object*, uint8_t); lean_object* l_Lean_Name_hash___boxed(lean_object*); +lean_object* l_Lean_Syntax_decodeStrLitAux(lean_object*, lean_object*, lean_object*); +uint8_t lean_string_utf8_at_end(lean_object*, lean_object*); lean_object* l_Lean_MacroM_monadQuotation___closed__2; +lean_object* lean_uint32_to_nat(uint32_t); +lean_object* l_Lean_Syntax_decodeStrLitAux___main(lean_object*, lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux___main___boxed(lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Syntax_isFieldIdx_x3f___boxed(lean_object*); lean_object* lean_name_mk_numeral(lean_object*, lean_object*); lean_object* l_Lean_mkAppStx___closed__1; size_t lean_string_hash(lean_object*); lean_object* l_Lean_ParserDescr_sepBy1___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Name_append___boxed(lean_object*, lean_object*); +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__3; +uint32_t l_Char_ofNat(lean_object*); uint8_t lean_nat_dec_lt(lean_object*, lean_object*); lean_object* _init_l_Lean_Name_inhabited() { _start: @@ -1191,6 +1266,63 @@ x_3 = l_List_foldl___main___at_Lean_addMacroScopes___spec__1(x_1, x_2); return x_3; } } +lean_object* l___private_Init_LeanInit_1__extractMacroScopesAux___main(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_1) == 2) +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_1, 0); +lean_inc(x_3); +x_4 = lean_ctor_get(x_1, 1); +lean_inc(x_4); +lean_dec(x_1); +x_5 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_2); +x_1 = x_3; +x_2 = x_5; +goto _start; +} +else +{ +lean_object* x_7; lean_object* x_8; +x_7 = l_List_reverse___rarg(x_2); +x_8 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_8, 0, x_1); +lean_ctor_set(x_8, 1, x_7); +return x_8; +} +} +} +lean_object* l___private_Init_LeanInit_1__extractMacroScopesAux(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l___private_Init_LeanInit_1__extractMacroScopesAux___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_extractMacroScopes(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = lean_box(0); +x_3 = l___private_Init_LeanInit_1__extractMacroScopesAux___main(x_1, x_2); +return x_3; +} +} +lean_object* l_Lean_Name_eraseMacroScopes(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_extractMacroScopes(x_1); +x_3 = lean_ctor_get(x_2, 0); +lean_inc(x_3); +lean_dec(x_2); +return x_3; +} +} lean_object* l_Lean_MacroM_monadQuotation___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -1494,6 +1626,31 @@ lean_dec(x_1); return x_3; } } +lean_object* l_Lean_Syntax_identToAtom(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 3) +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = lean_ctor_get(x_1, 2); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Lean_Name_eraseMacroScopes(x_3); +x_5 = l_Lean_Name_toString___closed__1; +x_6 = l_Lean_Name_toStringWithSep___main(x_5, x_4); +x_7 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_7, 0, x_2); +lean_ctor_set(x_7, 1, x_6); +return x_7; +} +else +{ +return x_1; +} +} +} lean_object* lean_mk_syntax_ident(lean_object* x_1) { _start: { @@ -1865,6 +2022,1773 @@ x_4 = l_Lean_mkStxLit(x_3, x_1, x_2); return x_4; } } +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = lean_string_utf8_at_end(x_1, x_2); +if (x_4 == 0) +{ +uint32_t x_5; uint32_t x_6; uint8_t x_7; +x_5 = lean_string_utf8_get(x_1, x_2); +x_6 = 48; +x_7 = x_5 == x_6; +if (x_7 == 0) +{ +uint32_t x_8; uint8_t x_9; +x_8 = 49; +x_9 = x_5 == x_8; +if (x_9 == 0) +{ +lean_object* x_10; +lean_dec(x_3); +lean_dec(x_2); +x_10 = lean_box(0); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_11 = lean_string_utf8_next(x_1, x_2); +lean_dec(x_2); +x_12 = lean_unsigned_to_nat(2u); +x_13 = lean_nat_mul(x_12, x_3); +lean_dec(x_3); +x_14 = lean_unsigned_to_nat(1u); +x_15 = lean_nat_add(x_13, x_14); +lean_dec(x_13); +x_2 = x_11; +x_3 = x_15; +goto _start; +} +} +else +{ +lean_object* x_17; lean_object* x_18; lean_object* x_19; +x_17 = lean_string_utf8_next(x_1, x_2); +lean_dec(x_2); +x_18 = lean_unsigned_to_nat(2u); +x_19 = lean_nat_mul(x_18, x_3); +lean_dec(x_3); +x_2 = x_17; +x_3 = x_19; +goto _start; +} +} +else +{ +lean_object* x_21; +lean_dec(x_2); +x_21 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_21, 0, x_3); +return x_21; +} +} +} +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_2__decodeBinLitAux___main(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_2__decodeBinLitAux___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_2__decodeBinLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_2__decodeBinLitAux(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = lean_string_utf8_at_end(x_1, x_2); +if (x_4 == 0) +{ +uint32_t x_5; uint32_t x_6; uint8_t x_7; +x_5 = lean_string_utf8_get(x_1, x_2); +x_6 = 48; +x_7 = x_6 <= x_5; +if (x_7 == 0) +{ +lean_object* x_8; +lean_dec(x_3); +lean_dec(x_2); +x_8 = lean_box(0); +return x_8; +} +else +{ +uint32_t x_9; uint8_t x_10; +x_9 = 55; +x_10 = x_5 <= x_9; +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_3); +lean_dec(x_2); +x_11 = lean_box(0); +return x_11; +} +else +{ +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; +x_12 = lean_string_utf8_next(x_1, x_2); +lean_dec(x_2); +x_13 = lean_unsigned_to_nat(8u); +x_14 = lean_nat_mul(x_13, x_3); +lean_dec(x_3); +x_15 = lean_uint32_to_nat(x_5); +x_16 = lean_nat_add(x_14, x_15); +lean_dec(x_15); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(48u); +x_18 = lean_nat_sub(x_16, x_17); +lean_dec(x_16); +x_2 = x_12; +x_3 = x_18; +goto _start; +} +} +} +else +{ +lean_object* x_20; +lean_dec(x_2); +x_20 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_20, 0, x_3); +return x_20; +} +} +} +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_3__decodeOctalLitAux___main(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_3__decodeOctalLitAux___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_3__decodeOctalLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_3__decodeOctalLitAux(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_4__decodeHexDigit(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint32_t x_3; lean_object* x_4; lean_object* x_5; uint32_t x_44; uint8_t x_45; +x_3 = lean_string_utf8_get(x_1, x_2); +x_4 = lean_string_utf8_next(x_1, x_2); +x_44 = 48; +x_45 = x_44 <= x_3; +if (x_45 == 0) +{ +lean_object* x_46; +x_46 = lean_box(0); +x_5 = x_46; +goto block_43; +} +else +{ +uint32_t x_47; uint8_t x_48; +x_47 = 57; +x_48 = x_3 <= x_47; +if (x_48 == 0) +{ +lean_object* x_49; +x_49 = lean_box(0); +x_5 = x_49; +goto block_43; +} +else +{ +lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; +x_50 = lean_uint32_to_nat(x_3); +x_51 = lean_unsigned_to_nat(48u); +x_52 = lean_nat_sub(x_50, x_51); +lean_dec(x_50); +x_53 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_53, 0, x_52); +lean_ctor_set(x_53, 1, x_4); +x_54 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_54, 0, x_53); +return x_54; +} +} +block_43: +{ +uint32_t x_6; uint8_t x_7; +lean_dec(x_5); +x_6 = 97; +x_7 = x_6 <= x_3; +if (x_7 == 0) +{ +uint32_t x_8; uint8_t x_9; +x_8 = 65; +x_9 = x_8 <= x_3; +if (x_9 == 0) +{ +lean_object* x_10; +lean_dec(x_4); +x_10 = lean_box(0); +return x_10; +} +else +{ +uint32_t x_11; uint8_t x_12; +x_11 = 70; +x_12 = x_3 <= x_11; +if (x_12 == 0) +{ +lean_object* x_13; +lean_dec(x_4); +x_13 = lean_box(0); +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; +x_14 = lean_uint32_to_nat(x_3); +x_15 = lean_unsigned_to_nat(10u); +x_16 = lean_nat_add(x_15, x_14); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(65u); +x_18 = lean_nat_sub(x_16, x_17); +lean_dec(x_16); +x_19 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_19, 1, x_4); +x_20 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_20, 0, x_19); +return x_20; +} +} +} +else +{ +uint32_t x_21; uint8_t x_22; +x_21 = 102; +x_22 = x_3 <= x_21; +if (x_22 == 0) +{ +uint32_t x_23; uint8_t x_24; +x_23 = 65; +x_24 = x_23 <= x_3; +if (x_24 == 0) +{ +lean_object* x_25; +lean_dec(x_4); +x_25 = lean_box(0); +return x_25; +} +else +{ +uint32_t x_26; uint8_t x_27; +x_26 = 70; +x_27 = x_3 <= x_26; +if (x_27 == 0) +{ +lean_object* x_28; +lean_dec(x_4); +x_28 = lean_box(0); +return x_28; +} +else +{ +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_29 = lean_uint32_to_nat(x_3); +x_30 = lean_unsigned_to_nat(10u); +x_31 = lean_nat_add(x_30, x_29); +lean_dec(x_29); +x_32 = lean_unsigned_to_nat(65u); +x_33 = lean_nat_sub(x_31, x_32); +lean_dec(x_31); +x_34 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_34, 0, x_33); +lean_ctor_set(x_34, 1, x_4); +x_35 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_35, 0, x_34); +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; +x_36 = lean_uint32_to_nat(x_3); +x_37 = lean_unsigned_to_nat(10u); +x_38 = lean_nat_add(x_37, x_36); +lean_dec(x_36); +x_39 = lean_unsigned_to_nat(97u); +x_40 = lean_nat_sub(x_38, x_39); +lean_dec(x_38); +x_41 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_41, 0, x_40); +lean_ctor_set(x_41, 1, x_4); +x_42 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_42, 0, x_41); +return x_42; +} +} +} +} +} +lean_object* l___private_Init_LeanInit_4__decodeHexDigit___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = lean_string_utf8_at_end(x_1, x_2); +if (x_4 == 0) +{ +lean_object* x_5; +x_5 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_2); +lean_dec(x_2); +if (lean_obj_tag(x_5) == 0) +{ +lean_object* x_6; +lean_dec(x_3); +x_6 = lean_box(0); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; +x_7 = lean_ctor_get(x_5, 0); +lean_inc(x_7); +lean_dec(x_5); +x_8 = lean_ctor_get(x_7, 0); +lean_inc(x_8); +x_9 = lean_ctor_get(x_7, 1); +lean_inc(x_9); +lean_dec(x_7); +x_10 = lean_unsigned_to_nat(16u); +x_11 = lean_nat_mul(x_10, x_3); +lean_dec(x_3); +x_12 = lean_nat_add(x_11, x_8); +lean_dec(x_8); +lean_dec(x_11); +x_2 = x_9; +x_3 = x_12; +goto _start; +} +} +else +{ +lean_object* x_14; +lean_dec(x_2); +x_14 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_14, 0, x_3); +return x_14; +} +} +} +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_5__decodeHexLitAux___main(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_5__decodeHexLitAux___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_5__decodeHexLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_5__decodeHexLitAux(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint8_t x_4; +x_4 = lean_string_utf8_at_end(x_1, x_2); +if (x_4 == 0) +{ +uint32_t x_5; uint32_t x_6; uint8_t x_7; +x_5 = lean_string_utf8_get(x_1, x_2); +x_6 = 48; +x_7 = x_6 <= x_5; +if (x_7 == 0) +{ +lean_object* x_8; +lean_dec(x_3); +lean_dec(x_2); +x_8 = lean_box(0); +return x_8; +} +else +{ +uint32_t x_9; uint8_t x_10; +x_9 = 57; +x_10 = x_5 <= x_9; +if (x_10 == 0) +{ +lean_object* x_11; +lean_dec(x_3); +lean_dec(x_2); +x_11 = lean_box(0); +return x_11; +} +else +{ +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; +x_12 = lean_string_utf8_next(x_1, x_2); +lean_dec(x_2); +x_13 = lean_unsigned_to_nat(10u); +x_14 = lean_nat_mul(x_13, x_3); +lean_dec(x_3); +x_15 = lean_uint32_to_nat(x_5); +x_16 = lean_nat_add(x_14, x_15); +lean_dec(x_15); +lean_dec(x_14); +x_17 = lean_unsigned_to_nat(48u); +x_18 = lean_nat_sub(x_16, x_17); +lean_dec(x_16); +x_2 = x_12; +x_3 = x_18; +goto _start; +} +} +} +else +{ +lean_object* x_20; +lean_dec(x_2); +x_20 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_20, 0, x_3); +return x_20; +} +} +} +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_6__decodeDecimalLitAux___main(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_6__decodeDecimalLitAux___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l___private_Init_LeanInit_6__decodeDecimalLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l___private_Init_LeanInit_6__decodeDecimalLitAux(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* _init_l___private_Init_LeanInit_7__decodeNatLitVal___closed__1() { +_start: +{ +lean_object* x_1; lean_object* x_2; +x_1 = lean_unsigned_to_nat(0u); +x_2 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_2, 0, x_1); +return x_2; +} +} +lean_object* l___private_Init_LeanInit_7__decodeNatLitVal(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; uint8_t x_4; +x_2 = lean_string_length(x_1); +x_3 = lean_unsigned_to_nat(0u); +x_4 = lean_nat_dec_eq(x_2, x_3); +if (x_4 == 0) +{ +uint32_t x_5; uint32_t x_6; uint8_t x_7; +x_5 = lean_string_utf8_get(x_1, x_3); +x_6 = 48; +x_7 = x_5 == x_6; +if (x_7 == 0) +{ +uint8_t x_8; +lean_dec(x_2); +x_8 = l_Char_isDigit(x_5); +if (x_8 == 0) +{ +lean_object* x_9; +x_9 = lean_box(0); +return x_9; +} +else +{ +lean_object* x_10; +x_10 = l___private_Init_LeanInit_6__decodeDecimalLitAux___main(x_1, x_3, x_3); +return x_10; +} +} +else +{ +lean_object* x_11; uint8_t x_12; +x_11 = lean_unsigned_to_nat(1u); +x_12 = lean_nat_dec_eq(x_2, x_11); +lean_dec(x_2); +if (x_12 == 0) +{ +uint32_t x_13; uint32_t x_14; uint8_t x_15; +x_13 = lean_string_utf8_get(x_1, x_11); +x_14 = 120; +x_15 = x_13 == x_14; +if (x_15 == 0) +{ +uint32_t x_16; uint8_t x_17; +x_16 = 88; +x_17 = x_13 == x_16; +if (x_17 == 0) +{ +uint32_t x_18; uint8_t x_19; uint8_t x_38; +x_18 = 98; +x_38 = x_13 == x_18; +if (x_38 == 0) +{ +uint8_t x_39; +x_39 = 0; +x_19 = x_39; +goto block_37; +} +else +{ +uint8_t x_40; +x_40 = 1; +x_19 = x_40; +goto block_37; +} +block_37: +{ +if (x_19 == 0) +{ +uint32_t x_20; uint8_t x_21; +x_20 = 66; +x_21 = x_13 == x_20; +if (x_21 == 0) +{ +uint32_t x_22; uint8_t x_23; +x_22 = 111; +x_23 = x_13 == x_22; +if (x_23 == 0) +{ +uint32_t x_24; uint8_t x_25; +x_24 = 79; +x_25 = x_13 == x_24; +if (x_25 == 0) +{ +uint8_t x_26; +x_26 = l_Char_isDigit(x_13); +if (x_26 == 0) +{ +lean_object* x_27; +x_27 = lean_box(0); +return x_27; +} +else +{ +lean_object* x_28; +x_28 = l___private_Init_LeanInit_6__decodeDecimalLitAux___main(x_1, x_3, x_3); +return x_28; +} +} +else +{ +lean_object* x_29; lean_object* x_30; +x_29 = lean_unsigned_to_nat(2u); +x_30 = l___private_Init_LeanInit_3__decodeOctalLitAux___main(x_1, x_29, x_3); +return x_30; +} +} +else +{ +lean_object* x_31; lean_object* x_32; +x_31 = lean_unsigned_to_nat(2u); +x_32 = l___private_Init_LeanInit_3__decodeOctalLitAux___main(x_1, x_31, x_3); +return x_32; +} +} +else +{ +lean_object* x_33; lean_object* x_34; +x_33 = lean_unsigned_to_nat(2u); +x_34 = l___private_Init_LeanInit_2__decodeBinLitAux___main(x_1, x_33, x_3); +return x_34; +} +} +else +{ +lean_object* x_35; lean_object* x_36; +x_35 = lean_unsigned_to_nat(2u); +x_36 = l___private_Init_LeanInit_2__decodeBinLitAux___main(x_1, x_35, x_3); +return x_36; +} +} +} +else +{ +lean_object* x_41; lean_object* x_42; +x_41 = lean_unsigned_to_nat(2u); +x_42 = l___private_Init_LeanInit_5__decodeHexLitAux___main(x_1, x_41, x_3); +return x_42; +} +} +else +{ +lean_object* x_43; lean_object* x_44; +x_43 = lean_unsigned_to_nat(2u); +x_44 = l___private_Init_LeanInit_5__decodeHexLitAux___main(x_1, x_43, x_3); +return x_44; +} +} +else +{ +lean_object* x_45; +x_45 = l___private_Init_LeanInit_7__decodeNatLitVal___closed__1; +return x_45; +} +} +} +else +{ +lean_object* x_46; +lean_dec(x_2); +x_46 = lean_box(0); +return x_46; +} +} +} +lean_object* l___private_Init_LeanInit_7__decodeNatLitVal___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l___private_Init_LeanInit_7__decodeNatLitVal(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_isNatLitAux(lean_object* x_1, lean_object* x_2) { +_start: +{ +if (lean_obj_tag(x_2) == 1) +{ +lean_object* x_3; lean_object* x_4; uint8_t x_5; +x_3 = lean_ctor_get(x_2, 0); +x_4 = lean_ctor_get(x_2, 1); +x_5 = lean_name_eq(x_3, x_1); +if (x_5 == 0) +{ +lean_object* x_6; +x_6 = lean_box(0); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = lean_array_get_size(x_4); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_dec_eq(x_7, x_8); +lean_dec(x_7); +if (x_9 == 0) +{ +lean_object* x_10; +x_10 = lean_box(0); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = l_Lean_Syntax_inhabited; +x_12 = lean_unsigned_to_nat(0u); +x_13 = lean_array_get(x_11, x_4, x_12); +if (lean_obj_tag(x_13) == 2) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_13, 1); +lean_inc(x_14); +lean_dec(x_13); +x_15 = l___private_Init_LeanInit_7__decodeNatLitVal(x_14); +lean_dec(x_14); +return x_15; +} +else +{ +lean_object* x_16; +lean_dec(x_13); +x_16 = lean_box(0); +return x_16; +} +} +} +} +else +{ +lean_object* x_17; +x_17 = lean_box(0); +return x_17; +} +} +} +lean_object* l_Lean_Syntax_isNatLitAux___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l_Lean_Syntax_isNatLitAux(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Syntax_isNatLit_x3f(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_numLitKind; +x_3 = l_Lean_Syntax_isNatLitAux(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_Syntax_isNatLit_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_isNatLit_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_isFieldIdx_x3f(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_fieldIdxKind; +x_3 = l_Lean_Syntax_isNatLitAux(x_2, x_1); +return x_3; +} +} +lean_object* l_Lean_Syntax_isFieldIdx_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_isFieldIdx_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_isIdOrAtom_x3f(lean_object* x_1) { +_start: +{ +switch (lean_obj_tag(x_1)) { +case 2: +{ +lean_object* x_2; lean_object* x_3; +x_2 = lean_ctor_get(x_1, 1); +lean_inc(x_2); +x_3 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_3, 0, x_2); +return x_3; +} +case 3: +{ +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; +x_4 = lean_ctor_get(x_1, 1); +x_5 = lean_ctor_get(x_4, 0); +x_6 = lean_ctor_get(x_4, 1); +x_7 = lean_ctor_get(x_4, 2); +x_8 = lean_string_utf8_extract(x_5, x_6, x_7); +x_9 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_9, 0, x_8); +return x_9; +} +default: +{ +lean_object* x_10; +x_10 = lean_box(0); +return x_10; +} +} +} +} +lean_object* l_Lean_Syntax_isIdOrAtom_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_isIdOrAtom_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_toNat(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; +x_2 = l_Lean_numLitKind; +x_3 = l_Lean_Syntax_isNatLitAux(x_2, x_1); +if (lean_obj_tag(x_3) == 0) +{ +lean_object* x_4; +x_4 = lean_unsigned_to_nat(0u); +return x_4; +} +else +{ +lean_object* x_5; +x_5 = lean_ctor_get(x_3, 0); +lean_inc(x_5); +lean_dec(x_3); +return x_5; +} +} +} +lean_object* l_Lean_Syntax_toNat___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_toNat(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__1() { +_start: +{ +uint32_t x_1; lean_object* x_2; +x_1 = 9; +x_2 = lean_box_uint32(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__2() { +_start: +{ +uint32_t x_1; lean_object* x_2; +x_1 = 10; +x_2 = lean_box_uint32(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__3() { +_start: +{ +uint32_t x_1; lean_object* x_2; +x_1 = 39; +x_2 = lean_box_uint32(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__4() { +_start: +{ +uint32_t x_1; lean_object* x_2; +x_1 = 34; +x_2 = lean_box_uint32(x_1); +return x_2; +} +} +lean_object* _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__5() { +_start: +{ +uint32_t x_1; lean_object* x_2; +x_1 = 92; +x_2 = lean_box_uint32(x_1); +return x_2; +} +} +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar(lean_object* x_1, lean_object* x_2) { +_start: +{ +uint32_t x_3; lean_object* x_4; uint32_t x_5; uint8_t x_6; +x_3 = lean_string_utf8_get(x_1, x_2); +x_4 = lean_string_utf8_next(x_1, x_2); +x_5 = 92; +x_6 = x_3 == x_5; +if (x_6 == 0) +{ +uint32_t x_7; uint8_t x_8; +x_7 = 34; +x_8 = x_3 == x_7; +if (x_8 == 0) +{ +uint32_t x_9; uint8_t x_10; +x_9 = 39; +x_10 = x_3 == x_9; +if (x_10 == 0) +{ +uint32_t x_11; uint8_t x_12; +x_11 = 110; +x_12 = x_3 == x_11; +if (x_12 == 0) +{ +uint32_t x_13; uint8_t x_14; +x_13 = 116; +x_14 = x_3 == x_13; +if (x_14 == 0) +{ +uint32_t x_15; uint8_t x_16; +x_15 = 120; +x_16 = x_3 == x_15; +if (x_16 == 0) +{ +uint32_t x_17; uint8_t x_18; +x_17 = 117; +x_18 = x_3 == x_17; +if (x_18 == 0) +{ +lean_object* x_19; +lean_dec(x_4); +x_19 = lean_box(0); +return x_19; +} +else +{ +lean_object* x_20; +x_20 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_4); +lean_dec(x_4); +if (lean_obj_tag(x_20) == 0) +{ +lean_object* x_21; +x_21 = lean_box(0); +return x_21; +} +else +{ +lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; +x_22 = lean_ctor_get(x_20, 0); +lean_inc(x_22); +lean_dec(x_20); +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_25 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_24); +lean_dec(x_24); +if (lean_obj_tag(x_25) == 0) +{ +lean_object* x_26; +lean_dec(x_23); +x_26 = lean_box(0); +return x_26; +} +else +{ +lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; +x_27 = lean_ctor_get(x_25, 0); +lean_inc(x_27); +lean_dec(x_25); +x_28 = lean_ctor_get(x_27, 0); +lean_inc(x_28); +x_29 = lean_ctor_get(x_27, 1); +lean_inc(x_29); +lean_dec(x_27); +x_30 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_29); +lean_dec(x_29); +if (lean_obj_tag(x_30) == 0) +{ +lean_object* x_31; +lean_dec(x_28); +lean_dec(x_23); +x_31 = lean_box(0); +return x_31; +} +else +{ +lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_32 = lean_ctor_get(x_30, 0); +lean_inc(x_32); +lean_dec(x_30); +x_33 = lean_ctor_get(x_32, 0); +lean_inc(x_33); +x_34 = lean_ctor_get(x_32, 1); +lean_inc(x_34); +lean_dec(x_32); +x_35 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_34); +lean_dec(x_34); +if (lean_obj_tag(x_35) == 0) +{ +lean_object* x_36; +lean_dec(x_33); +lean_dec(x_28); +lean_dec(x_23); +x_36 = lean_box(0); +return x_36; +} +else +{ +uint8_t x_37; +x_37 = !lean_is_exclusive(x_35); +if (x_37 == 0) +{ +lean_object* x_38; uint8_t x_39; +x_38 = lean_ctor_get(x_35, 0); +x_39 = !lean_is_exclusive(x_38); +if (x_39 == 0) +{ +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; uint32_t x_48; lean_object* x_49; +x_40 = lean_ctor_get(x_38, 0); +x_41 = lean_unsigned_to_nat(16u); +x_42 = lean_nat_mul(x_41, x_23); +lean_dec(x_23); +x_43 = lean_nat_add(x_42, x_28); +lean_dec(x_28); +lean_dec(x_42); +x_44 = lean_nat_mul(x_41, x_43); +lean_dec(x_43); +x_45 = lean_nat_add(x_44, x_33); +lean_dec(x_33); +lean_dec(x_44); +x_46 = lean_nat_mul(x_41, x_45); +lean_dec(x_45); +x_47 = lean_nat_add(x_46, x_40); +lean_dec(x_40); +lean_dec(x_46); +x_48 = l_Char_ofNat(x_47); +lean_dec(x_47); +x_49 = lean_box_uint32(x_48); +lean_ctor_set(x_38, 0, x_49); +return x_35; +} +else +{ +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; uint32_t x_59; lean_object* x_60; lean_object* x_61; +x_50 = lean_ctor_get(x_38, 0); +x_51 = lean_ctor_get(x_38, 1); +lean_inc(x_51); +lean_inc(x_50); +lean_dec(x_38); +x_52 = lean_unsigned_to_nat(16u); +x_53 = lean_nat_mul(x_52, x_23); +lean_dec(x_23); +x_54 = lean_nat_add(x_53, x_28); +lean_dec(x_28); +lean_dec(x_53); +x_55 = lean_nat_mul(x_52, x_54); +lean_dec(x_54); +x_56 = lean_nat_add(x_55, x_33); +lean_dec(x_33); +lean_dec(x_55); +x_57 = lean_nat_mul(x_52, x_56); +lean_dec(x_56); +x_58 = lean_nat_add(x_57, x_50); +lean_dec(x_50); +lean_dec(x_57); +x_59 = l_Char_ofNat(x_58); +lean_dec(x_58); +x_60 = lean_box_uint32(x_59); +x_61 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_61, 0, x_60); +lean_ctor_set(x_61, 1, x_51); +lean_ctor_set(x_35, 0, x_61); +return x_35; +} +} +else +{ +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; uint32_t x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; +x_62 = lean_ctor_get(x_35, 0); +lean_inc(x_62); +lean_dec(x_35); +x_63 = lean_ctor_get(x_62, 0); +lean_inc(x_63); +x_64 = lean_ctor_get(x_62, 1); +lean_inc(x_64); +if (lean_is_exclusive(x_62)) { + lean_ctor_release(x_62, 0); + lean_ctor_release(x_62, 1); + x_65 = x_62; +} else { + lean_dec_ref(x_62); + x_65 = lean_box(0); +} +x_66 = lean_unsigned_to_nat(16u); +x_67 = lean_nat_mul(x_66, x_23); +lean_dec(x_23); +x_68 = lean_nat_add(x_67, x_28); +lean_dec(x_28); +lean_dec(x_67); +x_69 = lean_nat_mul(x_66, x_68); +lean_dec(x_68); +x_70 = lean_nat_add(x_69, x_33); +lean_dec(x_33); +lean_dec(x_69); +x_71 = lean_nat_mul(x_66, x_70); +lean_dec(x_70); +x_72 = lean_nat_add(x_71, x_63); +lean_dec(x_63); +lean_dec(x_71); +x_73 = l_Char_ofNat(x_72); +lean_dec(x_72); +x_74 = lean_box_uint32(x_73); +if (lean_is_scalar(x_65)) { + x_75 = lean_alloc_ctor(0, 2, 0); +} else { + x_75 = x_65; +} +lean_ctor_set(x_75, 0, x_74); +lean_ctor_set(x_75, 1, x_64); +x_76 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_76, 0, x_75); +return x_76; +} +} +} +} +} +} +} +else +{ +lean_object* x_77; +x_77 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_4); +lean_dec(x_4); +if (lean_obj_tag(x_77) == 0) +{ +lean_object* x_78; +x_78 = lean_box(0); +return x_78; +} +else +{ +lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; +x_79 = lean_ctor_get(x_77, 0); +lean_inc(x_79); +lean_dec(x_77); +x_80 = lean_ctor_get(x_79, 0); +lean_inc(x_80); +x_81 = lean_ctor_get(x_79, 1); +lean_inc(x_81); +lean_dec(x_79); +x_82 = l___private_Init_LeanInit_4__decodeHexDigit(x_1, x_81); +lean_dec(x_81); +if (lean_obj_tag(x_82) == 0) +{ +lean_object* x_83; +lean_dec(x_80); +x_83 = lean_box(0); +return x_83; +} +else +{ +uint8_t x_84; +x_84 = !lean_is_exclusive(x_82); +if (x_84 == 0) +{ +lean_object* x_85; uint8_t x_86; +x_85 = lean_ctor_get(x_82, 0); +x_86 = !lean_is_exclusive(x_85); +if (x_86 == 0) +{ +lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; uint32_t x_91; lean_object* x_92; +x_87 = lean_ctor_get(x_85, 0); +x_88 = lean_unsigned_to_nat(16u); +x_89 = lean_nat_mul(x_88, x_80); +lean_dec(x_80); +x_90 = lean_nat_add(x_89, x_87); +lean_dec(x_87); +lean_dec(x_89); +x_91 = l_Char_ofNat(x_90); +lean_dec(x_90); +x_92 = lean_box_uint32(x_91); +lean_ctor_set(x_85, 0, x_92); +return x_82; +} +else +{ +lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; uint32_t x_98; lean_object* x_99; lean_object* x_100; +x_93 = lean_ctor_get(x_85, 0); +x_94 = lean_ctor_get(x_85, 1); +lean_inc(x_94); +lean_inc(x_93); +lean_dec(x_85); +x_95 = lean_unsigned_to_nat(16u); +x_96 = lean_nat_mul(x_95, x_80); +lean_dec(x_80); +x_97 = lean_nat_add(x_96, x_93); +lean_dec(x_93); +lean_dec(x_96); +x_98 = l_Char_ofNat(x_97); +lean_dec(x_97); +x_99 = lean_box_uint32(x_98); +x_100 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_100, 0, x_99); +lean_ctor_set(x_100, 1, x_94); +lean_ctor_set(x_82, 0, x_100); +return x_82; +} +} +else +{ +lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; uint32_t x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; +x_101 = lean_ctor_get(x_82, 0); +lean_inc(x_101); +lean_dec(x_82); +x_102 = lean_ctor_get(x_101, 0); +lean_inc(x_102); +x_103 = lean_ctor_get(x_101, 1); +lean_inc(x_103); +if (lean_is_exclusive(x_101)) { + lean_ctor_release(x_101, 0); + lean_ctor_release(x_101, 1); + x_104 = x_101; +} else { + lean_dec_ref(x_101); + x_104 = lean_box(0); +} +x_105 = lean_unsigned_to_nat(16u); +x_106 = lean_nat_mul(x_105, x_80); +lean_dec(x_80); +x_107 = lean_nat_add(x_106, x_102); +lean_dec(x_102); +lean_dec(x_106); +x_108 = l_Char_ofNat(x_107); +lean_dec(x_107); +x_109 = lean_box_uint32(x_108); +if (lean_is_scalar(x_104)) { + x_110 = lean_alloc_ctor(0, 2, 0); +} else { + x_110 = x_104; +} +lean_ctor_set(x_110, 0, x_109); +lean_ctor_set(x_110, 1, x_103); +x_111 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_111, 0, x_110); +return x_111; +} +} +} +} +} +else +{ +lean_object* x_112; lean_object* x_113; lean_object* x_114; +x_112 = l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__1; +x_113 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_113, 0, x_112); +lean_ctor_set(x_113, 1, x_4); +x_114 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_114, 0, x_113); +return x_114; +} +} +else +{ +lean_object* x_115; lean_object* x_116; lean_object* x_117; +x_115 = l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__2; +x_116 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_116, 0, x_115); +lean_ctor_set(x_116, 1, x_4); +x_117 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_117, 0, x_116); +return x_117; +} +} +else +{ +lean_object* x_118; lean_object* x_119; lean_object* x_120; +x_118 = l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__3; +x_119 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_119, 0, x_118); +lean_ctor_set(x_119, 1, x_4); +x_120 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_120, 0, x_119); +return x_120; +} +} +else +{ +lean_object* x_121; lean_object* x_122; lean_object* x_123; +x_121 = l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__4; +x_122 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_122, 0, x_121); +lean_ctor_set(x_122, 1, x_4); +x_123 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_123, 0, x_122); +return x_123; +} +} +else +{ +lean_object* x_124; lean_object* x_125; lean_object* x_126; +x_124 = l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__5; +x_125 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_125, 0, x_124); +lean_ctor_set(x_125, 1, x_4); +x_126 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_126, 0, x_125); +return x_126; +} +} +} +lean_object* l___private_Init_LeanInit_8__decodeQuotedChar___boxed(lean_object* x_1, lean_object* x_2) { +_start: +{ +lean_object* x_3; +x_3 = l___private_Init_LeanInit_8__decodeQuotedChar(x_1, x_2); +lean_dec(x_2); +lean_dec(x_1); +return x_3; +} +} +lean_object* l_Lean_Syntax_decodeStrLitAux___main(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +uint32_t x_4; lean_object* x_5; uint32_t x_6; uint8_t x_7; +x_4 = lean_string_utf8_get(x_1, x_2); +x_5 = lean_string_utf8_next(x_1, x_2); +lean_dec(x_2); +x_6 = 34; +x_7 = x_4 == x_6; +if (x_7 == 0) +{ +uint32_t x_8; uint8_t x_9; +x_8 = 92; +x_9 = x_4 == x_8; +if (x_9 == 0) +{ +lean_object* x_10; +x_10 = lean_string_push(x_3, x_4); +x_2 = x_5; +x_3 = x_10; +goto _start; +} +else +{ +lean_object* x_12; +x_12 = l___private_Init_LeanInit_8__decodeQuotedChar(x_1, x_5); +lean_dec(x_5); +if (lean_obj_tag(x_12) == 0) +{ +lean_object* x_13; +lean_dec(x_3); +x_13 = lean_box(0); +return x_13; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; uint32_t x_17; lean_object* x_18; +x_14 = lean_ctor_get(x_12, 0); +lean_inc(x_14); +lean_dec(x_12); +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_17 = lean_unbox_uint32(x_15); +lean_dec(x_15); +x_18 = lean_string_push(x_3, x_17); +x_2 = x_16; +x_3 = x_18; +goto _start; +} +} +} +else +{ +lean_object* x_20; +lean_dec(x_5); +x_20 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_20, 0, x_3); +return x_20; +} +} +} +lean_object* l_Lean_Syntax_decodeStrLitAux___main___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_decodeStrLitAux___main(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Syntax_decodeStrLitAux(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_decodeStrLitAux___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Syntax_decodeStrLitAux___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +_start: +{ +lean_object* x_4; +x_4 = l_Lean_Syntax_decodeStrLitAux(x_1, x_2, x_3); +lean_dec(x_1); +return x_4; +} +} +lean_object* l_Lean_Syntax_decodeStrLit(lean_object* x_1) { +_start: +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; +x_2 = lean_unsigned_to_nat(1u); +x_3 = l_String_splitAux___main___closed__1; +x_4 = l_Lean_Syntax_decodeStrLitAux___main(x_1, x_2, x_3); +return x_4; +} +} +lean_object* l_Lean_Syntax_decodeStrLit___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_decodeStrLit(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; +x_2 = lean_ctor_get(x_1, 0); +x_3 = lean_ctor_get(x_1, 1); +x_4 = l_Lean_strLitKind; +x_5 = lean_name_eq(x_2, x_4); +if (x_5 == 0) +{ +lean_object* x_6; +x_6 = lean_box(0); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = lean_array_get_size(x_3); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_dec_eq(x_7, x_8); +lean_dec(x_7); +if (x_9 == 0) +{ +lean_object* x_10; +x_10 = lean_box(0); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = l_Lean_Syntax_inhabited; +x_12 = lean_unsigned_to_nat(0u); +x_13 = lean_array_get(x_11, x_3, x_12); +if (lean_obj_tag(x_13) == 2) +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_13, 1); +lean_inc(x_14); +lean_dec(x_13); +x_15 = l_String_splitAux___main___closed__1; +x_16 = l_Lean_Syntax_decodeStrLitAux___main(x_14, x_8, x_15); +lean_dec(x_14); +return x_16; +} +else +{ +lean_object* x_17; +lean_dec(x_13); +x_17 = lean_box(0); +return x_17; +} +} +} +} +else +{ +lean_object* x_18; +x_18 = lean_box(0); +return x_18; +} +} +} +lean_object* l_Lean_Syntax_isStrLit_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_isStrLit_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_decodeCharLit(lean_object* x_1) { +_start: +{ +lean_object* x_2; uint32_t x_3; uint32_t x_4; uint8_t x_5; +x_2 = lean_unsigned_to_nat(1u); +x_3 = lean_string_utf8_get(x_1, x_2); +x_4 = 92; +x_5 = x_3 == x_4; +if (x_5 == 0) +{ +lean_object* x_6; lean_object* x_7; +x_6 = lean_box_uint32(x_3); +x_7 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_7, 0, x_6); +return x_7; +} +else +{ +lean_object* x_8; lean_object* x_9; +x_8 = lean_unsigned_to_nat(2u); +x_9 = l___private_Init_LeanInit_8__decodeQuotedChar(x_1, x_8); +if (lean_obj_tag(x_9) == 0) +{ +lean_object* x_10; +x_10 = lean_box(0); +return x_10; +} +else +{ +uint8_t x_11; +x_11 = !lean_is_exclusive(x_9); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; +x_12 = lean_ctor_get(x_9, 0); +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +lean_dec(x_12); +lean_ctor_set(x_9, 0, x_13); +return x_9; +} +else +{ +lean_object* x_14; lean_object* x_15; lean_object* x_16; +x_14 = lean_ctor_get(x_9, 0); +lean_inc(x_14); +lean_dec(x_9); +x_15 = lean_ctor_get(x_14, 0); +lean_inc(x_15); +lean_dec(x_14); +x_16 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_16, 0, x_15); +return x_16; +} +} +} +} +} +lean_object* l_Lean_Syntax_decodeCharLit___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_decodeCharLit(x_1); +lean_dec(x_1); +return x_2; +} +} +lean_object* l_Lean_Syntax_isCharLit_x3f(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; +x_2 = lean_ctor_get(x_1, 0); +x_3 = lean_ctor_get(x_1, 1); +x_4 = l_Lean_charLitKind; +x_5 = lean_name_eq(x_2, x_4); +if (x_5 == 0) +{ +lean_object* x_6; +x_6 = lean_box(0); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; uint8_t x_9; +x_7 = lean_array_get_size(x_3); +x_8 = lean_unsigned_to_nat(1u); +x_9 = lean_nat_dec_eq(x_7, x_8); +lean_dec(x_7); +if (x_9 == 0) +{ +lean_object* x_10; +x_10 = lean_box(0); +return x_10; +} +else +{ +lean_object* x_11; lean_object* x_12; lean_object* x_13; +x_11 = l_Lean_Syntax_inhabited; +x_12 = lean_unsigned_to_nat(0u); +x_13 = lean_array_get(x_11, x_3, x_12); +if (lean_obj_tag(x_13) == 2) +{ +lean_object* x_14; lean_object* x_15; +x_14 = lean_ctor_get(x_13, 1); +lean_inc(x_14); +lean_dec(x_13); +x_15 = l_Lean_Syntax_decodeCharLit(x_14); +lean_dec(x_14); +return x_15; +} +else +{ +lean_object* x_16; +lean_dec(x_13); +x_16 = lean_box(0); +return x_16; +} +} +} +} +else +{ +lean_object* x_17; +x_17 = lean_box(0); +return x_17; +} +} +} +lean_object* l_Lean_Syntax_isCharLit_x3f___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_isCharLit_x3f(x_1); +lean_dec(x_1); +return x_2; +} +} +uint8_t l_Lean_Syntax_hasArgs(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 1) +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; uint8_t x_5; +x_2 = lean_ctor_get(x_1, 1); +x_3 = lean_array_get_size(x_2); +x_4 = lean_unsigned_to_nat(0u); +x_5 = lean_nat_dec_lt(x_4, x_3); +lean_dec(x_3); +return x_5; +} +else +{ +uint8_t x_6; +x_6 = 0; +return x_6; +} +} +} +lean_object* l_Lean_Syntax_hasArgs___boxed(lean_object* x_1) { +_start: +{ +uint8_t x_2; lean_object* x_3; +x_2 = l_Lean_Syntax_hasArgs(x_1); +lean_dec(x_1); +x_3 = lean_box(x_2); +return x_3; +} +} +lean_object* l_Lean_Syntax_identToStrLit(lean_object* x_1) { +_start: +{ +if (lean_obj_tag(x_1) == 3) +{ +lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = lean_ctor_get(x_1, 2); +lean_inc(x_3); +lean_dec(x_1); +x_4 = l_Lean_Name_toString___closed__1; +x_5 = l_Lean_Name_toStringWithSep___main(x_4, x_3); +x_6 = l_Lean_mkStxStrLit(x_5, x_2); +return x_6; +} +else +{ +return x_1; +} +} +} +lean_object* l_Lean_Syntax_strLitToAtom(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_isStrLit_x3f(x_1); +if (lean_obj_tag(x_2) == 0) +{ +lean_inc(x_1); +return x_1; +} +else +{ +lean_object* x_3; lean_object* x_4; lean_object* x_5; +x_3 = lean_ctor_get(x_2, 0); +lean_inc(x_3); +lean_dec(x_2); +x_4 = l_Lean_Syntax_getHeadInfo___main(x_1); +x_5 = lean_alloc_ctor(2, 2, 0); +lean_ctor_set(x_5, 0, x_4); +lean_ctor_set(x_5, 1, x_3); +return x_5; +} +} +} +lean_object* l_Lean_Syntax_strLitToAtom___boxed(lean_object* x_1) { +_start: +{ +lean_object* x_2; +x_2 = l_Lean_Syntax_strLitToAtom(x_1); +lean_dec(x_1); +return x_2; +} +} lean_object* l_Array_foldlStepMAux___main___at_Array_getSepElems___spec__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -2077,6 +4001,18 @@ l_Lean_mkTermIdFromIdent___closed__1 = _init_l_Lean_mkTermIdFromIdent___closed__ lean_mark_persistent(l_Lean_mkTermIdFromIdent___closed__1); l_Lean_mkTermIdFromIdent___closed__2 = _init_l_Lean_mkTermIdFromIdent___closed__2(); lean_mark_persistent(l_Lean_mkTermIdFromIdent___closed__2); +l___private_Init_LeanInit_7__decodeNatLitVal___closed__1 = _init_l___private_Init_LeanInit_7__decodeNatLitVal___closed__1(); +lean_mark_persistent(l___private_Init_LeanInit_7__decodeNatLitVal___closed__1); +l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__1 = _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__1(); +lean_mark_persistent(l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__1); +l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__2 = _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__2(); +lean_mark_persistent(l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__2); +l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__3 = _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__3(); +lean_mark_persistent(l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__3); +l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__4 = _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__4(); +lean_mark_persistent(l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__4); +l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__5 = _init_l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__5(); +lean_mark_persistent(l___private_Init_LeanInit_8__decodeQuotedChar___boxed__const__5); return lean_mk_io_result(lean_box(0)); } #ifdef __cplusplus