diff --git a/stage0/src/Init/Lean/Elab/Syntax.lean b/stage0/src/Init/Lean/Elab/Syntax.lean index 525eb38652..a462c84314 100644 --- a/stage0/src/Init/Lean/Elab/Syntax.lean +++ b/stage0/src/Init/Lean/Elab/Syntax.lean @@ -34,7 +34,6 @@ else /- 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 -| noCat -- Node kind `Lean.Parser.Syntax.cat` is not 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` @@ -49,8 +48,8 @@ fun mode => match mode, first with @[inline] private def withNoPushLeading {α} (x : ToParserDescrM α) : ToParserDescrM α := fun mode => match mode with - | ToParserDescrMode.toPushLeading _ => x ToParserDescrMode.noCat - | mode => x mode + | ToParserDescrMode.toPushLeading cat => x (ToParserDescrMode.exceptCat cat) + | mode => x mode partial def toParserDescrAux : Syntax → ToParserDescrM Syntax | stx => @@ -75,18 +74,17 @@ partial def toParserDescrAux : Syntax → ToParserDescrM Syntax markAsTrailingParser; -- mark as trailing par `(ParserDescr.pushLeading) else - liftM $ throwError (stx.getArg 3) ("invalid occurrence of '" ++ cat ++ "', '" ++ cat' ++ "', atom, or literal expected") + let rbp := rbp?.getD 0; + `(ParserDescr.parser $(quote cat) $(quote rbp)) | ToParserDescrMode.anyCat => 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 ++ "', simple parser categories do not allow left recursion (try `pratt` category)") + 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)) - | ToParserDescrMode.noCat => - liftM $ throwError (stx.getArg 3) ("invalid occurrence of '" ++ cat ++ "', atom or literal expected") else if kind == `Lean.Parser.Syntax.atom then do match (stx.getArg 0).isStrLit? with | some atom => @@ -135,8 +133,8 @@ 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) (isSimpleCategory : Bool) : TermElabM (Syntax × Bool) := -let mode := if isSimpleCategory then ToParserDescrMode.exceptCat catName else ToParserDescrMode.toPushLeading catName; +def toParserDescr (stx : Syntax) (catName : Name) : TermElabM (Syntax × Bool) := +let mode := ToParserDescrMode.toPushLeading catName; (toParserDescrAux stx mode).run false end Term @@ -146,20 +144,9 @@ namespace Command @[builtinCommandElab syntaxCat] def elabDeclareSyntaxCat : CommandElab := fun stx => do let catName := stx.getIdAt 1; - -- kind is of the form `optional (":" >> (nonReservedSymbol "simple" <|> nonReservedSymbol "pratt"))` - let kind := stx.getArg 2; - let isSimple := - if kind.isNone then true - else match kind.getArg 1 with - | Syntax.atom _ "simple" => true - | _ => false; let attrName := catName.appendAfter "Parser"; env ← getEnv; - env ← liftIO stx $ - if isSimple then - Parser.registerSimpleParserCategory env attrName catName - else - Parser.registerPrattParserCategory env attrName catName; + env ← liftIO stx $ Parser.registerParserCategory env attrName catName; setEnv env def mkFreshKind (catName : Name) : CommandElabM Name := do @@ -185,10 +172,9 @@ fun stx => do env ← getEnv; let cat := (stx.getIdAt 4).eraseMacroScopes; unless (Parser.isParserCategory env cat) $ throwError (stx.getArg 4) ("unknown category '" ++ cat ++ "'"); - let isSimpleCategory := Parser.isSimpleParserCategory env cat; kind ← elabKind (stx.getArg 1) cat; let catParserId := mkIdentFrom stx (cat.appendAfter "Parser"); - (val, trailingParser) ← runTermElabM none $ fun _ => Term.toParserDescr (stx.getArg 2) cat isSimpleCategory; + (val, trailingParser) ← runTermElabM none $ fun _ => Term.toParserDescr (stx.getArg 2) cat; type ← if trailingParser then `(Lean.TrailingParserDescr) else `(Lean.ParserDescr); -- TODO: meaningful, unhygienic def name for selective parser `open`ing? d ← `(@[$catParserId:ident] def myParser : $type := ParserDescr.node $(quote kind) $val); diff --git a/stage0/src/Init/Lean/Parser/Parser.lean b/stage0/src/Init/Lean/Parser/Parser.lean index a2d2bf1bf8..a184fcd825 100644 --- a/stage0/src/Init/Lean/Parser/Parser.lean +++ b/stage0/src/Init/Lean/Parser/Parser.lean @@ -1276,46 +1276,36 @@ end TokenMap structure PrattParsingTables := (leadingTable : TokenMap Parser := {}) +(leadingParsers : List Parser := []) -- for supporting parsers we cannot obtain first token (trailingTable : TokenMap TrailingParser := {}) (trailingParsers : List TrailingParser := []) -- for supporting parsers such as function application instance PrattParsingTables.inhabited : Inhabited PrattParsingTables := ⟨{}⟩ /-- - Each parser category is implemented using Pratt's parser or a sequence of parsers (`simple` constructor). + Each parser category is implemented using Pratt's parser. The system comes equipped with the following categories: `level`, `term`, `tactic`, and `command`. Users and plugins may define extra categories. - We current support two kinds of parser categories. - - `pratt` which is ideal for implementing big categories and supports left-recursion, - but each parser is left recursive or starts with an atom. - A parser `syntax term "<=" ident "<" term : index` is not allowed here because - it doesn't start with atom nor with the `index` catagory. + The field `leadingIdentAsSymbol` specifies how the parsing table + lookup function behaves for identifiers. The function `prattParser` + uses two tables `leadingTable` and `trailingTable`. They map tokens + to parsers. If `leadingIdentAsSymbol == false` and the leading token + is an identifier, then `prattParser` just executes the parsers + associated with the auxiliary token "ident". If + `leadingIdentAsSymbol == true` and the leading token is an + identifier ``, then `prattParser` combines the parsers + associated with the token `` with the parsers associated with + the auxiliary token "ident". We use this feature and the + `nonReservedSymbol` parser to implement the `tactic` parsers. We + use this approach to avoid creating a reserved symbol for each + builtin tactic (e.g., `apply`, `assumption`, etc.). That is, users + may still use these symbols as identifiers (e.g., naming a + function). -/ +structure ParserCategory := +(tables : PrattParsingTables) (leadingIdentAsSymbol : Bool) - The field `leadingIdentAsSymbol` specifies how the parsing table - lookup function behaves for identifiers. The function - `prattParser` uses two tables `leadingTable` and - `trailingTable`. They map tokens to parsers. If - `leadingIdentAsSymbol == false` and the leading token is an - identifier, then `prattParser` just executes the parsers - associated with the auxiliary token "ident". If - `leadingIdentAsSymbol == true` and the leading token is an - identifier ``, then `prattParser` combines the parsers - associated with the token `` with the parsers associated - with the auxiliary token "ident". We use this feature and the - `nonReservedSymbol` parser to implement the `tactic` parsers. We - use this approach to avoid creating a reserved symbol for each - builtin tactic (e.g., `apply`, `assumption`, etc.). That is, - users may still use these symbols as identifiers (e.g., naming a - function). - - - `simple` which is ideal for small categories which are not left recursive. - This kind of category is implemented using the longestMatch combinator. -/ -inductive ParserCategory -| pratt (tables : PrattParsingTables) (leadingIdentAsSymbol : Bool) : ParserCategory -| simple (parsers : List Parser) : ParserCategory - -instance ParserCategory.inhabited : Inhabited ParserCategory := ⟨ParserCategory.simple []⟩ +instance ParserCategory.inhabited : Inhabited ParserCategory := ⟨{ tables := {}, leadingIdentAsSymbol := false }⟩ abbrev ParserCategories := PersistentHashMap Name ParserCategory @@ -1364,6 +1354,7 @@ def leadingParser (kind : Name) (tables : PrattParsingTables) (leadingIdentAsSym fun a c s => let iniSz := s.stackSize; let (s, ps) := indexed tables.leadingTable c s leadingIdentAsSymbol; + let ps := tables.leadingParsers ++ ps; if ps.isEmpty then s.mkError (toString kind) else @@ -1520,22 +1511,20 @@ else /-- All builtin parser categories are Pratt's parsers -/ private def addBuiltinParserCategory (catName : Name) (leadingIdentAsSymbol : Bool) : IO Unit := do categories ← builtinParserCategoriesRef.get; -categories ← IO.ofExcept $ addParserCategoryCore categories catName $ ParserCategory.pratt {} leadingIdentAsSymbol; +categories ← IO.ofExcept $ addParserCategoryCore categories catName { tables := {}, leadingIdentAsSymbol := leadingIdentAsSymbol}; builtinParserCategoriesRef.set categories inductive ParserExtensionOleanEntry -| token (val : TokenConfig) : ParserExtensionOleanEntry -| kind (val : SyntaxNodeKind) : ParserExtensionOleanEntry -| prattCategory (catName : Name) (leadingIdentAsSymbol : Bool) -| simpleCategory (catName : Name) -| parser (catName : Name) (declName : Name) : ParserExtensionOleanEntry +| token (val : TokenConfig) : ParserExtensionOleanEntry +| kind (val : SyntaxNodeKind) : ParserExtensionOleanEntry +| category (catName : Name) (leadingIdentAsSymbol : Bool) +| parser (catName : Name) (declName : Name) : ParserExtensionOleanEntry inductive ParserExtensionEntry -| token (val : TokenConfig) : ParserExtensionEntry -| kind (val : SyntaxNodeKind) : ParserExtensionEntry -| prattCategory (catName : Name) (leadingIdentAsSymbol : Bool) -| simpleCategory (catName : Name) -| parser (catName : Name) (declName : Name) (k : ParserKind) (p : Parser k) : ParserExtensionEntry +| token (val : TokenConfig) : ParserExtensionEntry +| kind (val : SyntaxNodeKind) : ParserExtensionEntry +| category (catName : Name) (leadingIdentAsSymbol : Bool) +| parser (catName : Name) (declName : Name) (k : ParserKind) (p : Parser k) : ParserExtensionEntry structure ParserExtensionState := (tokens : TokenTable := {}) @@ -1576,19 +1565,19 @@ throw ("unknown parser category '" ++ toString catName ++ "'") def addLeadingParser (categories : ParserCategories) (catName : Name) (parserName : Name) (p : Parser) : Except String ParserCategories := match categories.find? catName with -| none => +| none => throwUnknownParserCategory catName -| some (ParserCategory.simple parsers) => - pure $ categories.insert catName (ParserCategory.simple (p::parsers)) -| some (ParserCategory.pratt tables i) => +| some cat => let addTokens (tks : List TokenConfig) : Except String ParserCategories := let tks := tks.map $ fun tk => mkNameSimple tk.val; - let tables := tks.eraseDups.foldl (fun (tables : PrattParsingTables) tk => { leadingTable := tables.leadingTable.insert tk p, .. tables }) tables; - pure $ categories.insert catName (ParserCategory.pratt tables i); + let tables := tks.eraseDups.foldl (fun (tables : PrattParsingTables) tk => { leadingTable := tables.leadingTable.insert tk p, .. tables }) cat.tables; + pure $ categories.insert catName { tables := tables, .. cat }; match p.info.firstTokens with | FirstTokens.tokens tks => addTokens tks | FirstTokens.optTokens tks => addTokens tks - | _ => throw ("invalid parser '" ++ toString parserName ++ "', initial token is not statically known") + | _ => + let tables := { leadingParsers := p :: cat.tables.leadingParsers, .. cat.tables }; + pure $ categories.insert catName { tables := tables, .. cat } private def addTrailingParserAux (tables : PrattParsingTables) (p : TrailingParser) : PrattParsingTables := let addTokens (tks : List TokenConfig) : PrattParsingTables := @@ -1601,9 +1590,8 @@ match p.info.firstTokens with def addTrailingParser (categories : ParserCategories) (catName : Name) (p : TrailingParser) : Except String ParserCategories := match categories.find? catName with -| none => throwUnknownParserCategory catName -| some (ParserCategory.simple _) => throw ("parser category '" ++ toString catName ++ "' does not support trailing parsers") -| some (ParserCategory.pratt tables i) => pure $ categories.insert catName $ ParserCategory.pratt (addTrailingParserAux tables p) i +| none => throwUnknownParserCategory catName +| some cat => pure $ categories.insert catName { tables := addTrailingParserAux cat.tables p, .. cat } def addParser {k} (categories : ParserCategories) (catName : Name) (declName : Name) (p : Parser k) : Except String ParserCategories := match k, p with @@ -1641,14 +1629,10 @@ match e with | _ => unreachable! | ParserExtensionEntry.kind k => { kinds := s.kinds.insert k, newEntries := ParserExtensionOleanEntry.kind k :: s.newEntries, .. s } -| ParserExtensionEntry.prattCategory catName leadingIdentAsSymbol => +| ParserExtensionEntry.category catName leadingIdentAsSymbol => if s.categories.contains catName then s - else { categories := s.categories.insert catName (ParserCategory.pratt {} leadingIdentAsSymbol), - newEntries := ParserExtensionOleanEntry.prattCategory catName leadingIdentAsSymbol :: s.newEntries, .. s } -| ParserExtensionEntry.simpleCategory catName => - if s.categories.contains catName then s - else { categories := s.categories.insert catName (ParserCategory.simple []), - newEntries := ParserExtensionOleanEntry.simpleCategory catName :: s.newEntries, .. s } + else { categories := s.categories.insert catName { tables := {}, leadingIdentAsSymbol := leadingIdentAsSymbol }, + newEntries := ParserExtensionOleanEntry.category catName leadingIdentAsSymbol :: s.newEntries, .. s } | ParserExtensionEntry.parser catName declName _ parser => match addParser s.categories catName declName parser with | Except.ok categories => { categories := categories, newEntries := ParserExtensionOleanEntry.parser catName declName :: s.newEntries, .. s } @@ -1716,11 +1700,8 @@ es.foldlM pure { tokens := tokens, .. s } | ParserExtensionOleanEntry.kind k => pure { kinds := s.kinds.insert k, .. s } - | ParserExtensionOleanEntry.prattCategory catName leadingIdentAsSymbol => do - categories ← IO.ofExcept (addParserCategoryCore s.categories catName (ParserCategory.pratt {} leadingIdentAsSymbol)); - pure { categories := categories, .. s } - | ParserExtensionOleanEntry.simpleCategory catName => do - categories ← IO.ofExcept (addParserCategoryCore s.categories catName (ParserCategory.simple [])); + | ParserExtensionOleanEntry.category catName leadingIdentAsSymbol => do + categories ← IO.ofExcept (addParserCategoryCore s.categories catName { tables := {}, leadingIdentAsSymbol := leadingIdentAsSymbol}); pure { categories := categories, .. s } | ParserExtensionOleanEntry.parser catName declName => match mkParserOfConstant env s.categories declName with @@ -1760,35 +1741,18 @@ let env := parserExtension.setState env { nextKindIdx := idx+1, .. s }; def isParserCategory (env : Environment) (catName : Name) : Bool := (parserExtension.getState env).categories.contains catName -def isSimpleParserCategory (env : Environment) (catName : Name) : Bool := -match (parserExtension.getState env).categories.find? catName with -| some (ParserCategory.simple _) => true -| _ => false - -def isPrattParserCategory (env : Environment) (catName : Name) : Bool := -match (parserExtension.getState env).categories.find? catName with -| some (ParserCategory.pratt _ _) => true -| _ => false - -def addPrattParserCategory (env : Environment) (catName : Name) (leadingIdentAsSymbol : Bool) : Except String Environment := do +def addParserCategory (env : Environment) (catName : Name) (leadingIdentAsSymbol : Bool) : Except String Environment := do if isParserCategory env catName then throwParserCategoryAlreadyDefined catName else - pure $ parserExtension.addEntry env $ ParserExtensionEntry.prattCategory catName leadingIdentAsSymbol - -def addSimpleParserCategory (env : Environment) (catName : Name) : Except String Environment := do -if isParserCategory env catName then - throwParserCategoryAlreadyDefined catName -else - pure $ parserExtension.addEntry env $ ParserExtensionEntry.simpleCategory catName + pure $ parserExtension.addEntry env $ ParserExtensionEntry.category catName leadingIdentAsSymbol def categoryParserFnImpl (catName : Name) : ParserFn leading := fun rbp ctx s => let categories := (parserExtension.getState ctx.env).categories; match categories.find? catName with - | some (ParserCategory.pratt tables leadingIdentAsSymbol) => prattParser catName tables leadingIdentAsSymbol rbp ctx s - | some (ParserCategory.simple parsers) => longestMatchFn parsers rbp ctx s - | none => s.mkUnexpectedError ("unknown parser category '" ++ toString catName ++ "'") + | some cat => prattParser catName cat.tables cat.leadingIdentAsSymbol rbp ctx s + | none => s.mkUnexpectedError ("unknown parser category '" ++ toString catName ++ "'") @[init] def setCategoryParserFnRef : IO Unit := categoryParserFnRef.set categoryParserFnImpl @@ -1829,16 +1793,15 @@ def mkParserState (input : String) : ParserState := def runParserCategory (env : Environment) (catName : Name) (input : String) (fileName := "") : Except String Syntax := let categories := (parserExtension.getState env).categories; match categories.find? catName with -| some (ParserCategory.pratt tables leadingIdentAsSymbol) => +| some cat => let c := mkParserContext env (mkInputContext input fileName); let s := mkParserState input; let s := whitespace c s; - let s := prattParser catName tables leadingIdentAsSymbol (0 : Nat) c s; + let s := prattParser catName cat.tables cat.leadingIdentAsSymbol (0 : Nat) c s; if s.hasError then Except.error (s.toErrorMsg c) else Except.ok s.stxStack.back -| some _ => throw "runParserCategory does not support simple parsers yet" | none => throwUnknownParserCategory catName def declareBuiltinParser (env : Environment) (addFnName : Name) (catName : Name) (declName : Name) : IO Environment := @@ -1922,12 +1885,8 @@ registerAttributeImplBuilder `parserAttr $ fun args => | [DataValue.ofName attrName, DataValue.ofName catName] => pure $ mkParserAttributeImpl attrName catName | _ => throw ("invalid parser attribute implementation builder arguments") -def registerPrattParserCategory (env : Environment) (attrName : Name) (catName : Name) (leadingIdentAsSymbol := false) : IO Environment := do -env ← IO.ofExcept $ addPrattParserCategory env catName leadingIdentAsSymbol; -registerAttributeOfBuilder env `parserAttr [DataValue.ofName attrName, DataValue.ofName catName] - -def registerSimpleParserCategory (env : Environment) (attrName : Name) (catName : Name) : IO Environment := do -env ← IO.ofExcept $ addSimpleParserCategory env catName; +def registerParserCategory (env : Environment) (attrName : Name) (catName : Name) (leadingIdentAsSymbol := false) : IO Environment := do +env ← IO.ofExcept $ addParserCategory env catName leadingIdentAsSymbol; registerAttributeOfBuilder env `parserAttr [DataValue.ofName attrName, DataValue.ofName catName] -- declare `termParser` here since it is used everywhere via antiquotations diff --git a/stage0/src/Init/Lean/Parser/Syntax.lean b/stage0/src/Init/Lean/Parser/Syntax.lean index d9dbbcc00b..f9f46ae6e4 100644 --- a/stage0/src/Init/Lean/Parser/Syntax.lean +++ b/stage0/src/Init/Lean/Parser/Syntax.lean @@ -63,7 +63,7 @@ def identPrec := parser! ident >> optPrecedence @[builtinCommandParser] def «notation» := parser! "notation" >> many (strLitPrec <|> quotedSymbolPrec <|> identPrec) >> (" := " <|> darrow) >> termParser @[builtinCommandParser] def «macro_rules» := parser! "macro_rules" >> many1Indent Term.matchAlt "'match' alternatives must be indented" @[builtinCommandParser] def «syntax» := parser! "syntax " >> optional ("[" >> ident >> "]") >> many1 syntaxParser >> " : " >> ident -@[builtinCommandParser] def syntaxCat := parser! "declare_syntax_cat " >> ident >> optional (":" >> (nonReservedSymbol "simple" <|> nonReservedSymbol "pratt")) +@[builtinCommandParser] def syntaxCat := parser! "declare_syntax_cat " >> ident def macroArgType := nonReservedSymbol "ident" <|> nonReservedSymbol "num" <|> nonReservedSymbol "str" <|> nonReservedSymbol "char" <|> (ident >> optPrecedence) def macroArgSimple := parser! ident >> checkNoWsBefore "no space before ':'" >> ":" >> macroArgType def macroArg := try strLitPrec <|> try macroArgSimple diff --git a/stage0/stdlib/Init/Lean/Elab/Syntax.c b/stage0/stdlib/Init/Lean/Elab/Syntax.c index 8dcd71971d..3542d176f1 100644 --- a/stage0/stdlib/Init/Lean/Elab/Syntax.c +++ b/stage0/stdlib/Init/Lean/Elab/Syntax.c @@ -91,13 +91,12 @@ 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*); -extern lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__7; 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*); +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*); @@ -114,7 +113,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux(lean_object*, lean_object*, uint8 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; @@ -132,7 +130,6 @@ lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__1; 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*); @@ -144,7 +141,6 @@ 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; @@ -153,7 +149,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__16; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__23; extern lean_object* l_Lean_Parser_Command_macro__rules___elambda__1___closed__1; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -extern lean_object* l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; 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*); @@ -246,7 +241,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__33; lean_object* l_Lean_Elab_Command_elabSyntax___closed__22; extern lean_object* l_Lean_Parser_Term_fun___elambda__1___closed__2; lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabMacro___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_registerSimpleParserCategory(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__25; extern lean_object* l___regBuiltinParser_Lean_Parser_Command_antiquot___closed__2; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__1; @@ -258,13 +252,11 @@ 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; extern lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__1; lean_object* l___regBuiltinCommandElab_Lean_Elab_Command_elabMacroRules(lean_object*); -lean_object* l_Lean_Parser_registerPrattParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__89; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__47; lean_object* l_Lean_Elab_Term_toParserDescrAux___main(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*); @@ -319,7 +311,7 @@ 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; @@ -346,7 +338,6 @@ 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*); @@ -358,7 +349,6 @@ 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_Lean_Elab_Term_toParserDescr___boxed(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; @@ -377,14 +367,14 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__64; lean_object* l_Lean_Elab_Command_elabMacroRules___lambda__1___closed__1; lean_object* l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence___boxed(lean_object*); lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_elabMacro___spec__2(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__2; lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__5; 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_Lean_Elab_Term_toParserDescr(lean_object*, lean_object*, uint8_t, 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*); extern lean_object* l_Lean_Parser_regBuiltinSyntaxParserAttr___closed__3; @@ -418,7 +408,6 @@ lean_object* l_Array_findIdxAux___main___at___private_Init_Lean_Elab_Syntax_8__a 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_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; @@ -426,9 +415,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__65; lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__109; uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__62; -uint8_t l_Lean_Parser_isSimpleParserCategory(lean_object*, lean_object*); 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*); @@ -905,21 +892,37 @@ 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) { _start: { -if (lean_obj_tag(x_2) == 3) +if (lean_obj_tag(x_2) == 2) { -lean_object* x_6; lean_object* x_7; lean_object* x_8; -lean_dec(x_2); -x_6 = lean_box(1); +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_6, x_7, x_4, x_5); +x_8 = lean_apply_4(x_1, x_2, x_7, x_4, x_5); return x_8; } else { -lean_object* x_9; lean_object* x_10; -x_9 = lean_box(x_3); -x_10 = lean_apply_4(x_1, x_2, x_9, x_4, x_5); -return x_10; +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_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; } } } @@ -2298,7 +2301,7 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__110() { _start: { lean_object* x_1; -x_1 = lean_mk_string("', atom or literal expected"); +x_1 = lean_mk_string("', parser algorithm does not allow this form of left recursion"); return x_1; } } @@ -2326,7 +2329,7 @@ lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__113() { _start: { lean_object* x_1; -x_1 = lean_mk_string("', simple parser categories do not allow left recursion (try `pratt` category)"); +x_1 = lean_mk_string("invalid occurrence of ':' modifier in head"); return x_1; } } @@ -2353,11 +2356,9 @@ return x_2; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__116() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_unicodeSymbolFn___rarg___closed__1; -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("unknown category '"); +return x_1; } } lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__117() { @@ -2365,7 +2366,7 @@ _start: { lean_object* x_1; lean_object* x_2; x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__116; -x_2 = lean_alloc_ctor(0, 1, 0); +x_2 = lean_alloc_ctor(2, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; } @@ -2373,82 +2374,8 @@ return x_2; lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__118() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("', atom, or literal expected"); -return x_1; -} -} -lean_object* _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__119() { -_start: -{ lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__118; -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__120() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__119; -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__121() { -_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__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__124() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("unknown category '"); -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_1 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117; x_2 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_2, 0, x_1); return x_2; @@ -2469,667 +2396,489 @@ 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_114; lean_object* x_115; lean_object* x_190; lean_object* x_191; lean_object* x_266; lean_object* x_267; lean_object* x_369; lean_object* x_370; lean_object* x_472; lean_object* x_473; lean_object* x_548; lean_object* x_549; lean_object* x_624; lean_object* x_625; lean_object* x_700; lean_object* x_701; lean_object* x_734; uint8_t x_735; -x_734 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3; -x_735 = lean_name_eq(x_6, x_734); -if (x_735 == 0) -{ -lean_object* x_736; uint8_t x_737; -x_736 = l_Lean_Parser_Syntax_cat___elambda__1___closed__2; -x_737 = lean_name_eq(x_6, x_736); -if (x_737 == 0) -{ -lean_object* x_738; uint8_t x_739; -x_738 = l_Lean_Parser_Syntax_atom___elambda__1___closed__2; -x_739 = lean_name_eq(x_6, x_738); -if (x_739 == 0) -{ -lean_object* x_740; uint8_t x_741; -x_740 = l_Lean_Parser_Syntax_num___elambda__1___closed__1; -x_741 = lean_name_eq(x_6, x_740); -if (x_741 == 0) -{ -lean_object* x_742; uint8_t x_743; -x_742 = l_Lean_Parser_Syntax_str___elambda__1___closed__1; -x_743 = lean_name_eq(x_6, x_742); -if (x_743 == 0) -{ -lean_object* x_744; uint8_t x_745; -x_744 = l_Lean_Parser_Syntax_char___elambda__1___closed__1; -x_745 = lean_name_eq(x_6, x_744); -if (x_745 == 0) -{ -lean_object* x_746; uint8_t x_747; -x_746 = l_Lean_Parser_Syntax_ident___elambda__1___closed__1; -x_747 = lean_name_eq(x_6, x_746); -if (x_747 == 0) -{ -lean_object* x_748; uint8_t x_749; -x_748 = l_Lean_Parser_Syntax_try___elambda__1___closed__2; -x_749 = lean_name_eq(x_6, x_748); -if (x_749 == 0) -{ -lean_object* x_750; uint8_t x_751; -x_750 = l_Lean_Parser_Syntax_lookahead___elambda__1___closed__2; -x_751 = lean_name_eq(x_6, x_750); -if (x_751 == 0) -{ -lean_object* x_752; uint8_t x_753; -x_752 = l_Lean_Parser_Syntax_optional___elambda__1___closed__2; -x_753 = lean_name_eq(x_6, x_752); -if (x_753 == 0) -{ -lean_object* x_754; uint8_t x_755; -x_754 = l_Lean_Parser_Syntax_sepBy___elambda__1___closed__2; -x_755 = lean_name_eq(x_6, x_754); -if (x_755 == 0) -{ -lean_object* x_756; uint8_t x_757; -x_756 = l_Lean_Parser_Syntax_sepBy1___elambda__1___closed__2; -x_757 = lean_name_eq(x_6, x_756); -if (x_757 == 0) -{ -lean_object* x_758; uint8_t x_759; -x_758 = l_Lean_Parser_Syntax_many___elambda__1___closed__2; -x_759 = lean_name_eq(x_6, x_758); -if (x_759 == 0) -{ -lean_object* x_760; uint8_t x_761; -x_760 = l_Lean_Parser_Syntax_many1___elambda__1___closed__2; -x_761 = lean_name_eq(x_6, x_760); -if (x_761 == 0) -{ -lean_object* x_762; uint8_t x_763; -x_762 = l_Lean_Parser_Syntax_orelse___elambda__1___closed__1; -x_763 = lean_name_eq(x_6, x_762); -lean_dec(x_6); -if (x_763 == 0) -{ -lean_object* x_764; uint8_t x_765; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_764 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_5); -x_765 = !lean_is_exclusive(x_764); +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) { -return x_764; -} -else +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_766; lean_object* x_767; lean_object* x_768; -x_766 = lean_ctor_get(x_764, 0); -x_767 = lean_ctor_get(x_764, 1); -lean_inc(x_767); -lean_inc(x_766); -lean_dec(x_764); -x_768 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_768, 0, x_766); -lean_ctor_set(x_768, 1, x_767); -return x_768; -} -} -else +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_769; lean_object* x_770; -x_769 = lean_unsigned_to_nat(0u); -x_770 = l_Lean_Syntax_getArg(x_1, x_769); -if (lean_obj_tag(x_2) == 3) +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_771; lean_object* x_772; -x_771 = lean_box(1); -lean_inc(x_4); -x_772 = l_Lean_Elab_Term_toParserDescrAux___main(x_770, x_771, x_3, x_4, x_5); -if (lean_obj_tag(x_772) == 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_773; lean_object* x_774; -x_773 = lean_ctor_get(x_772, 0); -lean_inc(x_773); -x_774 = lean_ctor_get(x_772, 1); -lean_inc(x_774); -lean_dec(x_772); -x_11 = x_773; -x_12 = x_774; -goto block_113; -} -else -{ -uint8_t x_775; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_775 = !lean_is_exclusive(x_772); +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) { -return x_772; +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_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_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_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_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_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_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_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_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_dec(x_6); +if (x_793 == 0) +{ +lean_object* x_794; uint8_t x_795; +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) +{ +return x_794; } else { -lean_object* x_776; lean_object* x_777; lean_object* x_778; -x_776 = lean_ctor_get(x_772, 0); -x_777 = lean_ctor_get(x_772, 1); -lean_inc(x_777); -lean_inc(x_776); -lean_dec(x_772); -x_778 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_778, 0, x_776); -lean_ctor_set(x_778, 1, x_777); -return x_778; +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; +} +} +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_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_779; +lean_object* x_810; lean_inc(x_4); lean_inc(x_2); -x_779 = l_Lean_Elab_Term_toParserDescrAux___main(x_770, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_779) == 0) +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) { -lean_object* x_780; lean_object* x_781; -x_780 = lean_ctor_get(x_779, 0); -lean_inc(x_780); -x_781 = lean_ctor_get(x_779, 1); -lean_inc(x_781); -lean_dec(x_779); -x_11 = x_780; -x_12 = x_781; -goto block_113; -} -else -{ -uint8_t x_782; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_782 = !lean_is_exclusive(x_779); -if (x_782 == 0) -{ -return x_779; -} -else -{ -lean_object* x_783; lean_object* x_784; lean_object* x_785; -x_783 = lean_ctor_get(x_779, 0); -x_784 = lean_ctor_get(x_779, 1); -lean_inc(x_784); -lean_inc(x_783); -lean_dec(x_779); -x_785 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_785, 0, x_783); -lean_ctor_set(x_785, 1, x_784); -return x_785; -} -} -} -} -} -else -{ -lean_object* x_786; lean_object* x_787; -lean_dec(x_6); -x_786 = lean_unsigned_to_nat(0u); -x_787 = l_Lean_Syntax_getArg(x_1, x_786); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) -{ -lean_object* x_788; lean_object* x_789; -lean_dec(x_2); -x_788 = lean_box(1); -lean_inc(x_4); -x_789 = l_Lean_Elab_Term_toParserDescrAux___main(x_787, x_788, x_3, x_4, x_5); -if (lean_obj_tag(x_789) == 0) -{ -lean_object* x_790; lean_object* x_791; -x_790 = lean_ctor_get(x_789, 0); -lean_inc(x_790); -x_791 = lean_ctor_get(x_789, 1); -lean_inc(x_791); -lean_dec(x_789); -x_114 = x_790; -x_115 = x_791; -goto block_189; -} -else -{ -uint8_t x_792; -lean_dec(x_4); -x_792 = !lean_is_exclusive(x_789); -if (x_792 == 0) -{ -return x_789; -} -else -{ -lean_object* x_793; lean_object* x_794; lean_object* x_795; -x_793 = lean_ctor_get(x_789, 0); -x_794 = lean_ctor_get(x_789, 1); -lean_inc(x_794); -lean_inc(x_793); -lean_dec(x_789); -x_795 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_795, 0, x_793); -lean_ctor_set(x_795, 1, x_794); -return x_795; -} -} -} -else -{ -lean_object* x_796; -lean_inc(x_4); -x_796 = l_Lean_Elab_Term_toParserDescrAux___main(x_787, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_796) == 0) -{ -lean_object* x_797; lean_object* x_798; -x_797 = lean_ctor_get(x_796, 0); -lean_inc(x_797); -x_798 = lean_ctor_get(x_796, 1); -lean_inc(x_798); -lean_dec(x_796); -x_114 = x_797; -x_115 = x_798; -goto block_189; -} -else -{ -uint8_t x_799; -lean_dec(x_4); -x_799 = !lean_is_exclusive(x_796); -if (x_799 == 0) -{ -return x_796; -} -else -{ -lean_object* x_800; lean_object* x_801; lean_object* x_802; -x_800 = lean_ctor_get(x_796, 0); -x_801 = lean_ctor_get(x_796, 1); -lean_inc(x_801); -lean_inc(x_800); -lean_dec(x_796); -x_802 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_802, 0, x_800); -lean_ctor_set(x_802, 1, x_801); -return x_802; -} -} -} -} -} -else -{ -lean_object* x_803; lean_object* x_804; -lean_dec(x_6); -x_803 = lean_unsigned_to_nat(0u); -x_804 = l_Lean_Syntax_getArg(x_1, x_803); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) -{ -lean_object* x_805; lean_object* x_806; -lean_dec(x_2); -x_805 = lean_box(1); -lean_inc(x_4); -x_806 = l_Lean_Elab_Term_toParserDescrAux___main(x_804, x_805, x_3, x_4, x_5); -if (lean_obj_tag(x_806) == 0) -{ -lean_object* x_807; lean_object* x_808; -x_807 = lean_ctor_get(x_806, 0); -lean_inc(x_807); -x_808 = lean_ctor_get(x_806, 1); -lean_inc(x_808); -lean_dec(x_806); -x_190 = x_807; -x_191 = x_808; -goto block_265; -} -else -{ -uint8_t x_809; -lean_dec(x_4); -x_809 = !lean_is_exclusive(x_806); -if (x_809 == 0) -{ -return x_806; -} -else -{ -lean_object* x_810; lean_object* x_811; lean_object* x_812; -x_810 = lean_ctor_get(x_806, 0); -x_811 = lean_ctor_get(x_806, 1); +lean_object* x_811; lean_object* x_812; +x_811 = lean_ctor_get(x_810, 0); lean_inc(x_811); -lean_inc(x_810); -lean_dec(x_806); -x_812 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_812, 0, x_810); -lean_ctor_set(x_812, 1, x_811); -return x_812; -} -} +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 { -lean_object* x_813; -lean_inc(x_4); -x_813 = l_Lean_Elab_Term_toParserDescrAux___main(x_804, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_813) == 0) -{ -lean_object* x_814; lean_object* x_815; -x_814 = lean_ctor_get(x_813, 0); -lean_inc(x_814); -x_815 = lean_ctor_get(x_813, 1); -lean_inc(x_815); -lean_dec(x_813); -x_190 = x_814; -x_191 = x_815; -goto block_265; -} -else -{ -uint8_t x_816; -lean_dec(x_4); -x_816 = !lean_is_exclusive(x_813); -if (x_816 == 0) -{ -return x_813; -} -else -{ -lean_object* x_817; lean_object* x_818; lean_object* x_819; -x_817 = lean_ctor_get(x_813, 0); -x_818 = lean_ctor_get(x_813, 1); -lean_inc(x_818); -lean_inc(x_817); -lean_dec(x_813); -x_819 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_819, 0, x_817); -lean_ctor_set(x_819, 1, x_818); -return x_819; -} -} -} -} -} -else -{ -lean_object* x_820; lean_object* x_821; -lean_dec(x_6); -x_820 = lean_unsigned_to_nat(1u); -x_821 = l_Lean_Syntax_getArg(x_1, x_820); -if (lean_obj_tag(x_2) == 3) -{ -lean_object* x_822; lean_object* x_823; -x_822 = lean_box(1); -lean_inc(x_4); -x_823 = l_Lean_Elab_Term_toParserDescrAux___main(x_821, x_822, x_3, x_4, x_5); -if (lean_obj_tag(x_823) == 0) -{ -lean_object* x_824; lean_object* x_825; -x_824 = lean_ctor_get(x_823, 0); -lean_inc(x_824); -x_825 = lean_ctor_get(x_823, 1); -lean_inc(x_825); -lean_dec(x_823); -x_266 = x_824; -x_267 = x_825; -goto block_368; -} -else -{ -uint8_t x_826; +uint8_t x_813; lean_dec(x_4); lean_dec(x_2); lean_dec(x_1); -x_826 = !lean_is_exclusive(x_823); -if (x_826 == 0) +x_813 = !lean_is_exclusive(x_810); +if (x_813 == 0) { -return x_823; +return x_810; +} +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; +} +} +} +} +} +else +{ +lean_object* x_817; lean_object* x_818; +lean_dec(x_6); +x_817 = lean_unsigned_to_nat(0u); +x_818 = l_Lean_Syntax_getArg(x_1, x_817); +lean_dec(x_1); +if (lean_obj_tag(x_2) == 2) +{ +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); +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) +{ +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 +{ +uint8_t x_823; +lean_dec(x_4); +x_823 = !lean_is_exclusive(x_820); +if (x_823 == 0) +{ +return x_820; +} +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; +} +} } else { lean_object* x_827; lean_object* x_828; lean_object* x_829; -x_827 = lean_ctor_get(x_823, 0); -x_828 = lean_ctor_get(x_823, 1); -lean_inc(x_828); +x_827 = lean_ctor_get(x_2, 0); lean_inc(x_827); -lean_dec(x_823); -x_829 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_829, 0, x_827); -lean_ctor_set(x_829, 1, x_828); -return x_829; -} -} -} -else -{ -lean_object* x_830; -lean_inc(x_4); -lean_inc(x_2); -x_830 = l_Lean_Elab_Term_toParserDescrAux___main(x_821, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_830) == 0) -{ -lean_object* x_831; lean_object* x_832; -x_831 = lean_ctor_get(x_830, 0); -lean_inc(x_831); -x_832 = lean_ctor_get(x_830, 1); -lean_inc(x_832); -lean_dec(x_830); -x_266 = x_831; -x_267 = x_832; -goto block_368; -} -else -{ -uint8_t x_833; -lean_dec(x_4); lean_dec(x_2); -lean_dec(x_1); -x_833 = !lean_is_exclusive(x_830); -if (x_833 == 0) +x_828 = lean_alloc_ctor(1, 1, 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) { -return x_830; +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_834; lean_object* x_835; lean_object* x_836; -x_834 = lean_ctor_get(x_830, 0); -x_835 = lean_ctor_get(x_830, 1); -lean_inc(x_835); -lean_inc(x_834); -lean_dec(x_830); -x_836 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_836, 0, x_834); -lean_ctor_set(x_836, 1, x_835); -return x_836; +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_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; -lean_dec(x_6); -x_837 = lean_unsigned_to_nat(1u); -x_838 = l_Lean_Syntax_getArg(x_1, x_837); -if (lean_obj_tag(x_2) == 3) -{ -lean_object* x_839; lean_object* x_840; -x_839 = lean_box(1); -lean_inc(x_4); -x_840 = l_Lean_Elab_Term_toParserDescrAux___main(x_838, x_839, x_3, x_4, x_5); -if (lean_obj_tag(x_840) == 0) -{ -lean_object* x_841; lean_object* x_842; -x_841 = lean_ctor_get(x_840, 0); -lean_inc(x_841); -x_842 = lean_ctor_get(x_840, 1); -lean_inc(x_842); -lean_dec(x_840); -x_369 = x_841; -x_370 = x_842; -goto block_471; +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_843; +uint8_t x_839; lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_843 = !lean_is_exclusive(x_840); -if (x_843 == 0) +x_839 = !lean_is_exclusive(x_836); +if (x_839 == 0) { -return x_840; +return x_836; } else { -lean_object* x_844; lean_object* x_845; lean_object* x_846; -x_844 = lean_ctor_get(x_840, 0); -x_845 = lean_ctor_get(x_840, 1); -lean_inc(x_845); -lean_inc(x_844); -lean_dec(x_840); -x_846 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_846, 0, x_844); -lean_ctor_set(x_846, 1, x_845); +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_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; +} +} +} +} +} +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_847; -lean_inc(x_4); -lean_inc(x_2); -x_847 = l_Lean_Elab_Term_toParserDescrAux___main(x_838, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_847) == 0) -{ -lean_object* x_848; lean_object* x_849; -x_848 = lean_ctor_get(x_847, 0); -lean_inc(x_848); -x_849 = lean_ctor_get(x_847, 1); -lean_inc(x_849); -lean_dec(x_847); -x_369 = x_848; -x_370 = x_849; -goto block_471; -} -else -{ -uint8_t x_850; -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_850 = !lean_is_exclusive(x_847); -if (x_850 == 0) -{ -return x_847; -} -else -{ -lean_object* x_851; lean_object* x_852; lean_object* x_853; -x_851 = lean_ctor_get(x_847, 0); -x_852 = lean_ctor_get(x_847, 1); -lean_inc(x_852); +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_dec(x_847); -x_853 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_853, 0, x_851); -lean_ctor_set(x_853, 1, x_852); -return x_853; -} -} +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_854; lean_object* x_855; -lean_dec(x_6); -x_854 = lean_unsigned_to_nat(1u); -x_855 = l_Lean_Syntax_getArg(x_1, x_854); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) +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); +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; -lean_dec(x_2); -x_856 = lean_box(1); -lean_inc(x_4); -x_857 = l_Lean_Elab_Term_toParserDescrAux___main(x_855, x_856, x_3, x_4, x_5); -if (lean_obj_tag(x_857) == 0) +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; -x_858 = lean_ctor_get(x_857, 0); +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_857, 1); +x_859 = lean_ctor_get(x_855, 1); lean_inc(x_859); -lean_dec(x_857); -x_472 = x_858; -x_473 = x_859; -goto block_547; +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); } -else -{ -uint8_t x_860; -lean_dec(x_4); -x_860 = !lean_is_exclusive(x_857); -if (x_860 == 0) -{ -return x_857; +if (lean_is_scalar(x_860)) { + x_861 = lean_alloc_ctor(1, 2, 0); +} else { + x_861 = x_860; } -else -{ -lean_object* x_861; lean_object* x_862; lean_object* x_863; -x_861 = lean_ctor_get(x_857, 0); -x_862 = lean_ctor_get(x_857, 1); -lean_inc(x_862); -lean_inc(x_861); -lean_dec(x_857); -x_863 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_863, 0, x_861); -lean_ctor_set(x_863, 1, x_862); -return x_863; +lean_ctor_set(x_861, 0, x_858); +lean_ctor_set(x_861, 1, x_859); +return x_861; } } } else { -lean_object* x_864; +lean_object* x_862; lean_inc(x_4); -x_864 = l_Lean_Elab_Term_toParserDescrAux___main(x_855, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_864) == 0) +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_865; lean_object* x_866; -x_865 = lean_ctor_get(x_864, 0); -lean_inc(x_865); -x_866 = lean_ctor_get(x_864, 1); +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; +lean_dec(x_4); +x_865 = !lean_is_exclusive(x_862); +if (x_865 == 0) +{ +return x_862; +} +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_inc(x_866); -lean_dec(x_864); -x_472 = x_865; -x_473 = x_866; -goto block_547; -} -else -{ -uint8_t x_867; -lean_dec(x_4); -x_867 = !lean_is_exclusive(x_864); -if (x_867 == 0) -{ -return x_864; -} -else -{ -lean_object* x_868; lean_object* x_869; lean_object* x_870; -x_868 = lean_ctor_get(x_864, 0); -x_869 = lean_ctor_get(x_864, 1); -lean_inc(x_869); -lean_inc(x_868); -lean_dec(x_864); -x_870 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_870, 0, x_868); -lean_ctor_set(x_870, 1, x_869); -return x_870; +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; } } } @@ -3137,92 +2886,98 @@ return x_870; } else { -lean_object* x_871; lean_object* x_872; +lean_object* x_869; lean_object* x_870; lean_dec(x_6); -x_871 = lean_unsigned_to_nat(1u); -x_872 = l_Lean_Syntax_getArg(x_1, x_871); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) +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_873; lean_object* x_874; -lean_dec(x_2); -x_873 = lean_box(1); +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_inc(x_4); -x_874 = l_Lean_Elab_Term_toParserDescrAux___main(x_872, x_873, x_3, x_4, x_5); -if (lean_obj_tag(x_874) == 0) +x_873 = l_Lean_Elab_Term_toParserDescrAux___main(x_870, x_872, x_3, x_4, x_5); +if (lean_obj_tag(x_873) == 0) { -lean_object* x_875; lean_object* x_876; -x_875 = lean_ctor_get(x_874, 0); +lean_object* x_874; lean_object* x_875; +x_874 = lean_ctor_get(x_873, 0); +lean_inc(x_874); +x_875 = lean_ctor_get(x_873, 1); lean_inc(x_875); -x_876 = lean_ctor_get(x_874, 1); -lean_inc(x_876); -lean_dec(x_874); -x_548 = x_875; -x_549 = x_876; -goto block_623; +lean_dec(x_873); +x_276 = x_874; +x_277 = x_875; +goto block_388; } else { -uint8_t x_877; +uint8_t x_876; lean_dec(x_4); -x_877 = !lean_is_exclusive(x_874); -if (x_877 == 0) +lean_dec(x_2); +lean_dec(x_1); +x_876 = !lean_is_exclusive(x_873); +if (x_876 == 0) { -return x_874; +return x_873; } else { -lean_object* x_878; lean_object* x_879; lean_object* x_880; -x_878 = lean_ctor_get(x_874, 0); -x_879 = lean_ctor_get(x_874, 1); -lean_inc(x_879); +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); -lean_dec(x_874); -x_880 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_880, 0, x_878); -lean_ctor_set(x_880, 1, x_879); +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; +} +} +} +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); +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; +} +else +{ +uint8_t x_883; +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; } -} -} else { -lean_object* x_881; -lean_inc(x_4); -x_881 = l_Lean_Elab_Term_toParserDescrAux___main(x_872, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_881) == 0) -{ -lean_object* x_882; lean_object* x_883; -x_882 = lean_ctor_get(x_881, 0); -lean_inc(x_882); -x_883 = lean_ctor_get(x_881, 1); -lean_inc(x_883); -lean_dec(x_881); -x_548 = x_882; -x_549 = x_883; -goto block_623; -} -else -{ -uint8_t x_884; -lean_dec(x_4); -x_884 = !lean_is_exclusive(x_881); -if (x_884 == 0) -{ -return x_881; -} -else -{ -lean_object* x_885; lean_object* x_886; lean_object* x_887; -x_885 = lean_ctor_get(x_881, 0); -x_886 = lean_ctor_get(x_881, 1); -lean_inc(x_886); +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_dec(x_881); -x_887 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_887, 0, x_885); -lean_ctor_set(x_887, 1, x_886); -return x_887; +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; } } } @@ -3230,18 +2985,19 @@ return x_887; } else { -lean_object* x_888; lean_object* x_889; +lean_object* x_887; lean_object* x_888; lean_dec(x_6); -x_888 = lean_unsigned_to_nat(1u); -x_889 = l_Lean_Syntax_getArg(x_1, x_888); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) +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_890; lean_object* x_891; -lean_dec(x_2); -x_890 = lean_box(1); +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_889, x_890, x_3, x_4, x_5); +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; @@ -3250,14 +3006,16 @@ lean_inc(x_892); x_893 = lean_ctor_get(x_891, 1); lean_inc(x_893); lean_dec(x_891); -x_624 = x_892; -x_625 = x_893; -goto block_699; +x_389 = x_892; +x_390 = x_893; +goto block_501; } else { uint8_t x_894; lean_dec(x_4); +lean_dec(x_2); +lean_dec(x_1); x_894 = !lean_is_exclusive(x_891); if (x_894 == 0) { @@ -3282,7 +3040,8 @@ else { lean_object* x_898; lean_inc(x_4); -x_898 = l_Lean_Elab_Term_toParserDescrAux___main(x_889, x_2, x_3, x_4, x_5); +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) { lean_object* x_899; lean_object* x_900; @@ -3291,14 +3050,16 @@ lean_inc(x_899); x_900 = lean_ctor_get(x_898, 1); lean_inc(x_900); lean_dec(x_898); -x_624 = x_899; -x_625 = x_900; -goto block_699; +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) { @@ -3323,391 +3084,650 @@ return x_904; } else { -lean_object* x_905; uint8_t x_906; +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_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 +{ +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_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; +} +} +} +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_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); +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) +{ +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_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; +} else { + lean_dec_ref(x_969); + x_974 = 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_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; +} +} +} +} +} +else +{ +lean_object* x_983; uint8_t x_984; lean_dec(x_6); lean_dec(x_2); lean_dec(x_1); -x_905 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +x_983 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); lean_dec(x_4); -x_906 = !lean_is_exclusive(x_905); -if (x_906 == 0) +x_984 = !lean_is_exclusive(x_983); +if (x_984 == 0) { -lean_object* x_907; lean_object* x_908; lean_object* x_909; lean_object* x_910; lean_object* x_911; lean_object* x_912; lean_object* x_913; lean_object* x_914; lean_object* x_915; lean_object* x_916; lean_object* x_917; lean_object* x_918; lean_object* x_919; lean_object* x_920; lean_object* x_921; -x_907 = lean_ctor_get(x_905, 0); -x_908 = lean_box(0); -x_909 = l_Lean_Elab_Term_toParserDescrAux___main___closed__68; -x_910 = lean_name_mk_numeral(x_909, x_907); -x_911 = l_Lean_Elab_Term_toParserDescrAux___main___closed__67; -x_912 = l_Lean_Elab_Term_toParserDescrAux___main___closed__71; -x_913 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_913, 0, x_908); -lean_ctor_set(x_913, 1, x_911); -lean_ctor_set(x_913, 2, x_910); -lean_ctor_set(x_913, 3, x_912); -x_914 = l_Array_empty___closed__1; -x_915 = lean_array_push(x_914, x_913); -x_916 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_917 = lean_array_push(x_915, x_916); -x_918 = l_Lean_mkTermIdFromIdent___closed__2; -x_919 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_919, 0, x_918); -lean_ctor_set(x_919, 1, x_917); -x_920 = lean_box(x_3); -x_921 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_921, 0, x_919); -lean_ctor_set(x_921, 1, x_920); -lean_ctor_set(x_905, 0, x_921); -return x_905; -} -else -{ -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_922 = lean_ctor_get(x_905, 0); -x_923 = lean_ctor_get(x_905, 1); -lean_inc(x_923); -lean_inc(x_922); -lean_dec(x_905); -x_924 = lean_box(0); -x_925 = l_Lean_Elab_Term_toParserDescrAux___main___closed__68; -x_926 = lean_name_mk_numeral(x_925, x_922); -x_927 = l_Lean_Elab_Term_toParserDescrAux___main___closed__67; -x_928 = l_Lean_Elab_Term_toParserDescrAux___main___closed__71; -x_929 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_929, 0, x_924); -lean_ctor_set(x_929, 1, x_927); -lean_ctor_set(x_929, 2, x_926); -lean_ctor_set(x_929, 3, x_928); -x_930 = l_Array_empty___closed__1; -x_931 = lean_array_push(x_930, x_929); -x_932 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_933 = lean_array_push(x_931, x_932); -x_934 = l_Lean_mkTermIdFromIdent___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_box(x_3); -x_937 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_937, 0, x_935); -lean_ctor_set(x_937, 1, x_936); -x_938 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_938, 0, x_937); -lean_ctor_set(x_938, 1, x_923); -return x_938; -} -} -} -else -{ -lean_object* x_939; uint8_t x_940; -lean_dec(x_6); -lean_dec(x_2); -lean_dec(x_1); -x_939 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); -lean_dec(x_4); -x_940 = !lean_is_exclusive(x_939); -if (x_940 == 0) -{ -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; -x_941 = lean_ctor_get(x_939, 0); -x_942 = lean_box(0); -x_943 = l_Lean_Elab_Term_toParserDescrAux___main___closed__75; -x_944 = lean_name_mk_numeral(x_943, x_941); -x_945 = l_Lean_Elab_Term_toParserDescrAux___main___closed__74; -x_946 = l_Lean_Elab_Term_toParserDescrAux___main___closed__78; -x_947 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_947, 0, x_942); -lean_ctor_set(x_947, 1, x_945); -lean_ctor_set(x_947, 2, x_944); -lean_ctor_set(x_947, 3, x_946); -x_948 = l_Array_empty___closed__1; -x_949 = lean_array_push(x_948, x_947); -x_950 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_951 = lean_array_push(x_949, x_950); -x_952 = l_Lean_mkTermIdFromIdent___closed__2; -x_953 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_953, 0, x_952); -lean_ctor_set(x_953, 1, x_951); -x_954 = lean_box(x_3); -x_955 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_955, 0, x_953); -lean_ctor_set(x_955, 1, x_954); -lean_ctor_set(x_939, 0, x_955); -return x_939; -} -else -{ -lean_object* x_956; lean_object* x_957; lean_object* x_958; lean_object* x_959; lean_object* x_960; 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; -x_956 = lean_ctor_get(x_939, 0); -x_957 = lean_ctor_get(x_939, 1); -lean_inc(x_957); -lean_inc(x_956); -lean_dec(x_939); -x_958 = lean_box(0); -x_959 = l_Lean_Elab_Term_toParserDescrAux___main___closed__75; -x_960 = lean_name_mk_numeral(x_959, x_956); -x_961 = l_Lean_Elab_Term_toParserDescrAux___main___closed__74; -x_962 = l_Lean_Elab_Term_toParserDescrAux___main___closed__78; -x_963 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_963, 0, x_958); -lean_ctor_set(x_963, 1, x_961); -lean_ctor_set(x_963, 2, x_960); -lean_ctor_set(x_963, 3, x_962); -x_964 = l_Array_empty___closed__1; -x_965 = lean_array_push(x_964, x_963); -x_966 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_967 = lean_array_push(x_965, x_966); -x_968 = l_Lean_mkTermIdFromIdent___closed__2; -x_969 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_969, 0, x_968); -lean_ctor_set(x_969, 1, x_967); -x_970 = lean_box(x_3); -x_971 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_971, 0, x_969); -lean_ctor_set(x_971, 1, x_970); -x_972 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_972, 0, x_971); -lean_ctor_set(x_972, 1, x_957); -return x_972; -} -} -} -else -{ -lean_object* x_973; uint8_t x_974; -lean_dec(x_6); -lean_dec(x_2); -lean_dec(x_1); -x_973 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); -lean_dec(x_4); -x_974 = !lean_is_exclusive(x_973); -if (x_974 == 0) -{ -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; lean_object* x_988; lean_object* x_989; -x_975 = lean_ctor_get(x_973, 0); -x_976 = lean_box(0); -x_977 = l_Lean_Elab_Term_toParserDescrAux___main___closed__82; -x_978 = lean_name_mk_numeral(x_977, x_975); -x_979 = l_Lean_Elab_Term_toParserDescrAux___main___closed__81; -x_980 = l_Lean_Elab_Term_toParserDescrAux___main___closed__85; -x_981 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_981, 0, x_976); -lean_ctor_set(x_981, 1, x_979); -lean_ctor_set(x_981, 2, x_978); -lean_ctor_set(x_981, 3, x_980); -x_982 = l_Array_empty___closed__1; -x_983 = lean_array_push(x_982, x_981); -x_984 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_985 = lean_array_push(x_983, x_984); -x_986 = l_Lean_mkTermIdFromIdent___closed__2; -x_987 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_987, 0, x_986); -lean_ctor_set(x_987, 1, x_985); -x_988 = lean_box(x_3); -x_989 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_989, 0, x_987); -lean_ctor_set(x_989, 1, x_988); -lean_ctor_set(x_973, 0, x_989); -return x_973; -} -else -{ -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; 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; -x_990 = lean_ctor_get(x_973, 0); -x_991 = lean_ctor_get(x_973, 1); -lean_inc(x_991); -lean_inc(x_990); -lean_dec(x_973); -x_992 = lean_box(0); -x_993 = l_Lean_Elab_Term_toParserDescrAux___main___closed__82; -x_994 = lean_name_mk_numeral(x_993, x_990); -x_995 = l_Lean_Elab_Term_toParserDescrAux___main___closed__81; -x_996 = l_Lean_Elab_Term_toParserDescrAux___main___closed__85; -x_997 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_997, 0, x_992); +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); -lean_ctor_set(x_997, 2, x_994); -lean_ctor_set(x_997, 3, x_996); -x_998 = l_Array_empty___closed__1; -x_999 = lean_array_push(x_998, x_997); -x_1000 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1001 = lean_array_push(x_999, x_1000); -x_1002 = l_Lean_mkTermIdFromIdent___closed__2; -x_1003 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1003, 0, x_1002); -lean_ctor_set(x_1003, 1, x_1001); -x_1004 = lean_box(x_3); -x_1005 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1005, 0, x_1003); -lean_ctor_set(x_1005, 1, x_1004); -x_1006 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1006, 0, x_1005); -lean_ctor_set(x_1006, 1, x_991); -return x_1006; +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; +} +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_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; } } } else { -lean_object* x_1007; uint8_t x_1008; +lean_object* x_1017; uint8_t x_1018; lean_dec(x_6); lean_dec(x_2); lean_dec(x_1); -x_1007 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +x_1017 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); lean_dec(x_4); -x_1008 = !lean_is_exclusive(x_1007); -if (x_1008 == 0) +x_1018 = !lean_is_exclusive(x_1017); +if (x_1018 == 0) { -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; -x_1009 = lean_ctor_get(x_1007, 0); -x_1010 = lean_box(0); -x_1011 = l_Lean_Elab_Term_toParserDescrAux___main___closed__89; -x_1012 = lean_name_mk_numeral(x_1011, x_1009); -x_1013 = l_Lean_Elab_Term_toParserDescrAux___main___closed__88; -x_1014 = l_Lean_Elab_Term_toParserDescrAux___main___closed__92; -x_1015 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1015, 0, x_1010); -lean_ctor_set(x_1015, 1, x_1013); -lean_ctor_set(x_1015, 2, x_1012); -lean_ctor_set(x_1015, 3, x_1014); -x_1016 = l_Array_empty___closed__1; -x_1017 = lean_array_push(x_1016, x_1015); -x_1018 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1019 = lean_array_push(x_1017, x_1018); -x_1020 = l_Lean_mkTermIdFromIdent___closed__2; -x_1021 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1021, 0, x_1020); -lean_ctor_set(x_1021, 1, x_1019); -x_1022 = lean_box(x_3); -x_1023 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1023, 0, x_1021); -lean_ctor_set(x_1023, 1, x_1022); -lean_ctor_set(x_1007, 0, x_1023); -return x_1007; -} -else -{ -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; 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; -x_1024 = lean_ctor_get(x_1007, 0); -x_1025 = lean_ctor_get(x_1007, 1); -lean_inc(x_1025); -lean_inc(x_1024); -lean_dec(x_1007); -x_1026 = lean_box(0); -x_1027 = l_Lean_Elab_Term_toParserDescrAux___main___closed__89; -x_1028 = lean_name_mk_numeral(x_1027, x_1024); -x_1029 = l_Lean_Elab_Term_toParserDescrAux___main___closed__88; -x_1030 = l_Lean_Elab_Term_toParserDescrAux___main___closed__92; -x_1031 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1031, 0, x_1026); +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); +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); -lean_ctor_set(x_1031, 2, x_1028); -lean_ctor_set(x_1031, 3, x_1030); -x_1032 = l_Array_empty___closed__1; -x_1033 = lean_array_push(x_1032, x_1031); -x_1034 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1035 = lean_array_push(x_1033, x_1034); -x_1036 = l_Lean_mkTermIdFromIdent___closed__2; -x_1037 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1037, 0, x_1036); -lean_ctor_set(x_1037, 1, x_1035); -x_1038 = lean_box(x_3); -x_1039 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1039, 0, x_1037); -lean_ctor_set(x_1039, 1, x_1038); -x_1040 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1040, 0, x_1039); -lean_ctor_set(x_1040, 1, x_1025); -return x_1040; +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; +} +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_1041; lean_object* x_1042; lean_object* x_1043; +lean_object* x_1051; uint8_t x_1052; lean_dec(x_6); lean_dec(x_2); -x_1041 = lean_unsigned_to_nat(0u); -x_1042 = l_Lean_Syntax_getArg(x_1, x_1041); -x_1043 = l_Lean_Syntax_isStrLit_x3f(x_1042); -lean_dec(x_1042); -if (lean_obj_tag(x_1043) == 0) -{ -lean_object* x_1044; uint8_t x_1045; +lean_dec(x_1); +x_1051 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); lean_dec(x_4); -lean_dec(x_1); -x_1044 = l_Lean_Elab_Term_throwUnsupportedSyntax___rarg(x_5); -x_1045 = !lean_is_exclusive(x_1044); -if (x_1045 == 0) +x_1052 = !lean_is_exclusive(x_1051); +if (x_1052 == 0) { -return x_1044; +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; } else { -lean_object* x_1046; lean_object* x_1047; lean_object* x_1048; -x_1046 = lean_ctor_get(x_1044, 0); -x_1047 = lean_ctor_get(x_1044, 1); -lean_inc(x_1047); -lean_inc(x_1046); -lean_dec(x_1044); -x_1048 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1048, 0, x_1046); -lean_ctor_set(x_1048, 1, x_1047); -return x_1048; -} -} -else -{ -lean_object* x_1049; lean_object* x_1050; lean_object* x_1051; lean_object* x_1052; lean_object* x_1053; uint8_t x_1054; -x_1049 = lean_ctor_get(x_1043, 0); -lean_inc(x_1049); -lean_dec(x_1043); -x_1050 = lean_unsigned_to_nat(1u); -x_1051 = l_Lean_Syntax_getArg(x_1, x_1050); -lean_dec(x_1); -x_1052 = l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(x_1051); +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_1053 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); -lean_dec(x_4); -x_1054 = !lean_is_exclusive(x_1053); -if (x_1054 == 0) -{ -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; 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; -x_1055 = lean_ctor_get(x_1053, 0); -x_1056 = lean_box(0); -x_1057 = l_Lean_Elab_Term_toParserDescrAux___main___closed__96; -x_1058 = lean_name_mk_numeral(x_1057, x_1055); -x_1059 = l_Lean_Elab_Term_toParserDescrAux___main___closed__95; -x_1060 = l_Lean_Elab_Term_toParserDescrAux___main___closed__99; -x_1061 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1061, 0, x_1056); -lean_ctor_set(x_1061, 1, x_1059); -lean_ctor_set(x_1061, 2, x_1058); -lean_ctor_set(x_1061, 3, x_1060); -x_1062 = l_Array_empty___closed__1; -x_1063 = lean_array_push(x_1062, x_1061); -x_1064 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1065 = lean_array_push(x_1063, x_1064); -x_1066 = l_Lean_mkTermIdFromIdent___closed__2; -x_1067 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1067, 0, x_1066); -lean_ctor_set(x_1067, 1, x_1065); -x_1068 = lean_array_push(x_1062, x_1067); -x_1069 = l_Lean_mkStxStrLit(x_1049, x_1056); -x_1070 = l_Lean_mkOptionalNode___closed__2; -x_1071 = lean_array_push(x_1070, x_1069); -x_1072 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_1073 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1073, 0, x_1072); -lean_ctor_set(x_1073, 1, x_1071); -x_1074 = lean_array_push(x_1062, x_1073); -x_1075 = l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(x_1052); -x_1076 = lean_array_push(x_1074, x_1075); -x_1077 = l_Lean_nullKind___closed__2; -x_1078 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1078, 0, x_1077); -lean_ctor_set(x_1078, 1, x_1076); -x_1079 = lean_array_push(x_1068, x_1078); -x_1080 = l_Lean_mkAppStx___closed__8; +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); @@ -3715,551 +3735,656 @@ 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_ctor_set(x_1053, 0, x_1083); -return x_1053; -} -else -{ -lean_object* x_1084; 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; lean_object* x_1112; lean_object* x_1113; lean_object* x_1114; -x_1084 = lean_ctor_get(x_1053, 0); -x_1085 = lean_ctor_get(x_1053, 1); -lean_inc(x_1085); -lean_inc(x_1084); -lean_dec(x_1053); -x_1086 = lean_box(0); -x_1087 = l_Lean_Elab_Term_toParserDescrAux___main___closed__96; -x_1088 = lean_name_mk_numeral(x_1087, x_1084); -x_1089 = l_Lean_Elab_Term_toParserDescrAux___main___closed__95; -x_1090 = l_Lean_Elab_Term_toParserDescrAux___main___closed__99; -x_1091 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1091, 0, x_1086); -lean_ctor_set(x_1091, 1, x_1089); -lean_ctor_set(x_1091, 2, x_1088); -lean_ctor_set(x_1091, 3, x_1090); -x_1092 = l_Array_empty___closed__1; -x_1093 = lean_array_push(x_1092, x_1091); -x_1094 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1095 = lean_array_push(x_1093, x_1094); -x_1096 = l_Lean_mkTermIdFromIdent___closed__2; -x_1097 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1097, 0, x_1096); -lean_ctor_set(x_1097, 1, x_1095); -x_1098 = lean_array_push(x_1092, x_1097); -x_1099 = l_Lean_mkStxStrLit(x_1049, x_1086); -x_1100 = l_Lean_mkOptionalNode___closed__2; -x_1101 = lean_array_push(x_1100, x_1099); -x_1102 = l_Lean_Parser_Term_str___elambda__1___closed__2; -x_1103 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1103, 0, x_1102); -lean_ctor_set(x_1103, 1, x_1101); -x_1104 = lean_array_push(x_1092, x_1103); -x_1105 = l___private_Init_Lean_Elab_Quotation_3__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(x_1052); -x_1106 = lean_array_push(x_1104, x_1105); -x_1107 = l_Lean_nullKind___closed__2; -x_1108 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1108, 0, x_1107); -lean_ctor_set(x_1108, 1, x_1106); -x_1109 = lean_array_push(x_1098, x_1108); -x_1110 = l_Lean_mkAppStx___closed__8; -x_1111 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1111, 0, x_1110); -lean_ctor_set(x_1111, 1, x_1109); -x_1112 = lean_box(x_3); -x_1113 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1113, 0, x_1111); -lean_ctor_set(x_1113, 1, x_1112); -x_1114 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1114, 0, x_1113); -lean_ctor_set(x_1114, 1, x_1085); -return x_1114; -} +x_1084 = lean_alloc_ctor(0, 2, 0); +lean_ctor_set(x_1084, 0, x_1083); +lean_ctor_set(x_1084, 1, x_1069); +return x_1084; } } } else { -lean_object* x_1115; lean_object* x_1116; lean_object* x_1117; lean_object* x_1118; lean_object* x_1119; lean_object* x_1120; lean_object* x_1121; lean_object* x_1122; lean_object* x_1123; lean_object* x_1124; lean_object* x_1125; uint8_t x_1266; +lean_object* x_1085; uint8_t x_1086; lean_dec(x_6); -x_1115 = lean_unsigned_to_nat(0u); -x_1116 = l_Lean_Syntax_getIdAt(x_1, x_1115); -x_1117 = l_Lean_Name_eraseMacroScopes(x_1116); -x_1118 = lean_unsigned_to_nat(1u); -x_1119 = l_Lean_Syntax_getArg(x_1, x_1118); -x_1120 = l___private_Init_Lean_Elab_Syntax_1__expandOptPrecedence(x_1119); -x_1121 = l_Lean_Elab_Term_getEnv___rarg(x_5); -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_1266 = l_Lean_Parser_isParserCategory(x_1122, x_1117); -lean_dec(x_1122); -if (x_1266 == 0) -{ -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; uint8_t x_1275; -lean_dec(x_1120); -lean_dec(x_1119); lean_dec(x_2); -x_1267 = lean_unsigned_to_nat(3u); -x_1268 = l_Lean_Syntax_getArg(x_1, x_1267); lean_dec(x_1); -x_1269 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1269, 0, x_1117); -x_1270 = l_Lean_Elab_Term_toParserDescrAux___main___closed__126; -x_1271 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1271, 0, x_1270); -lean_ctor_set(x_1271, 1, x_1269); -x_1272 = l_Lean_Elab_Term_mkConst___closed__4; -x_1273 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1273, 0, x_1271); -lean_ctor_set(x_1273, 1, x_1272); -x_1274 = l_Lean_Elab_Term_throwError___rarg(x_1268, x_1273, x_4, x_1123); -lean_dec(x_1268); -x_1275 = !lean_is_exclusive(x_1274); -if (x_1275 == 0) +x_1085 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_5); +lean_dec(x_4); +x_1086 = !lean_is_exclusive(x_1085); +if (x_1086 == 0) { -return x_1274; +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; } else { -lean_object* x_1276; lean_object* x_1277; lean_object* x_1278; -x_1276 = lean_ctor_get(x_1274, 0); -x_1277 = lean_ctor_get(x_1274, 1); -lean_inc(x_1277); -lean_inc(x_1276); -lean_dec(x_1274); -x_1278 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1278, 0, x_1276); -lean_ctor_set(x_1278, 1, x_1277); -return x_1278; +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); +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_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; +} } } else { -lean_object* x_1279; lean_object* x_1280; lean_object* x_1281; -x_1279 = lean_box(0); -x_1280 = lean_box(x_3); -x_1281 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1281, 0, x_1279); -lean_ctor_set(x_1281, 1, x_1280); -x_1124 = x_1281; -x_1125 = x_1123; -goto block_1265; -} -block_1265: +lean_object* x_1119; lean_object* x_1120; lean_object* x_1121; +lean_dec(x_6); +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); +if (lean_obj_tag(x_1121) == 0) { -lean_object* x_1126; uint8_t 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; -x_1126 = lean_ctor_get(x_1124, 1); -lean_inc(x_1126); -lean_dec(x_1124); -x_1127 = lean_unbox(x_1126); -lean_dec(x_1126); -x_1128 = l___private_Init_Lean_Elab_Syntax_3__getMode(x_2, x_1127, x_4, x_1125); -x_1129 = lean_ctor_get(x_1128, 0); -lean_inc(x_1129); -x_1130 = lean_ctor_get(x_1128, 1); -lean_inc(x_1130); -lean_dec(x_1128); -x_1131 = lean_ctor_get(x_1129, 0); -lean_inc(x_1131); -x_1132 = lean_ctor_get(x_1129, 1); -lean_inc(x_1132); -if (lean_is_exclusive(x_1129)) { - lean_ctor_release(x_1129, 0); - lean_ctor_release(x_1129, 1); - x_1133 = x_1129; +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; +x_1124 = lean_ctor_get(x_1122, 0); +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; +} +} +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); +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); +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; +} +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); +x_1184 = lean_array_push(x_1182, x_1183); +x_1185 = l_Lean_nullKind___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); +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; +} +} +} +} +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_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) +{ +return x_1325; +} +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_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_1129); - x_1133 = lean_box(0); + lean_dec_ref(x_1207); + x_1211 = lean_box(0); } -switch (lean_obj_tag(x_1131)) { +switch (lean_obj_tag(x_1209)) { case 0: { -lean_dec(x_1119); +lean_dec(x_1197); lean_dec(x_1); -if (lean_obj_tag(x_1120) == 0) +if (lean_obj_tag(x_1198) == 0) { -x_1134 = x_1115; -goto block_1199; +x_1212 = x_1193; +goto block_1277; } else { -lean_object* x_1200; -x_1200 = lean_ctor_get(x_1120, 0); -lean_inc(x_1200); -lean_dec(x_1120); -x_1134 = x_1200; -goto block_1199; +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_1201; lean_object* x_1202; lean_object* x_1203; lean_object* x_1204; lean_object* x_1205; lean_object* x_1206; lean_object* x_1207; lean_object* x_1208; uint8_t x_1209; -lean_dec(x_1133); -lean_dec(x_1132); -lean_dec(x_1120); -lean_dec(x_1119); -x_1201 = lean_unsigned_to_nat(3u); -x_1202 = l_Lean_Syntax_getArg(x_1, x_1201); -lean_dec(x_1); -x_1203 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1203, 0, x_1117); -x_1204 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109; -x_1205 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1205, 0, x_1204); -lean_ctor_set(x_1205, 1, x_1203); -x_1206 = l_Lean_Elab_Term_toParserDescrAux___main___closed__112; -x_1207 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1207, 0, x_1205); -lean_ctor_set(x_1207, 1, x_1206); -x_1208 = l_Lean_Elab_Term_throwError___rarg(x_1202, x_1207, x_4, x_1130); -lean_dec(x_1202); -x_1209 = !lean_is_exclusive(x_1208); -if (x_1209 == 0) -{ -return x_1208; -} -else -{ -lean_object* x_1210; lean_object* x_1211; lean_object* x_1212; -x_1210 = lean_ctor_get(x_1208, 0); -x_1211 = lean_ctor_get(x_1208, 1); -lean_inc(x_1211); -lean_inc(x_1210); -lean_dec(x_1208); -x_1212 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1212, 0, x_1210); -lean_ctor_set(x_1212, 1, x_1211); -return x_1212; -} -} -case 2: -{ -lean_object* x_1213; uint8_t x_1214; -lean_dec(x_1119); -x_1213 = lean_ctor_get(x_1131, 0); -lean_inc(x_1213); -lean_dec(x_1131); -x_1214 = lean_name_eq(x_1117, x_1213); -lean_dec(x_1213); -if (x_1214 == 0) +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_1120) == 0) +if (lean_obj_tag(x_1198) == 0) { -x_1134 = x_1115; -goto block_1199; +x_1212 = x_1193; +goto block_1277; } else { -lean_object* x_1215; -x_1215 = lean_ctor_get(x_1120, 0); -lean_inc(x_1215); -lean_dec(x_1120); -x_1134 = x_1215; -goto block_1199; +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_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; uint8_t x_1224; -lean_dec(x_1133); -lean_dec(x_1132); -lean_dec(x_1120); -x_1216 = lean_unsigned_to_nat(3u); -x_1217 = l_Lean_Syntax_getArg(x_1, x_1216); +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_1218 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1218, 0, x_1117); -x_1219 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109; -x_1220 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1220, 0, x_1219); -lean_ctor_set(x_1220, 1, x_1218); -x_1221 = l_Lean_Elab_Term_toParserDescrAux___main___closed__115; -x_1222 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1222, 0, x_1220); -lean_ctor_set(x_1222, 1, x_1221); -x_1223 = l_Lean_Elab_Term_throwError___rarg(x_1217, x_1222, x_4, x_1130); -lean_dec(x_1217); -x_1224 = !lean_is_exclusive(x_1223); -if (x_1224 == 0) +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_1223; +return x_1289; } else { -lean_object* x_1225; lean_object* x_1226; lean_object* x_1227; -x_1225 = lean_ctor_get(x_1223, 0); -x_1226 = lean_ctor_get(x_1223, 1); -lean_inc(x_1226); -lean_inc(x_1225); -lean_dec(x_1223); -x_1227 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1227, 0, x_1225); -lean_ctor_set(x_1227, 1, x_1226); -return x_1227; +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_1228; uint8_t x_1229; -lean_dec(x_1133); -lean_dec(x_1132); -x_1228 = lean_ctor_get(x_1131, 0); -lean_inc(x_1228); -lean_dec(x_1131); -x_1229 = lean_name_eq(x_1117, x_1228); -if (x_1229 == 0) -{ -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; uint8_t x_1242; -lean_dec(x_1120); -lean_dec(x_1119); -x_1230 = lean_unsigned_to_nat(3u); -x_1231 = l_Lean_Syntax_getArg(x_1, x_1230); +lean_object* x_1294; uint8_t x_1295; lean_dec(x_1); -x_1232 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1232, 0, x_1117); -x_1233 = l_Lean_Elab_Term_toParserDescrAux___main___closed__109; -x_1234 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1234, 0, x_1233); -lean_ctor_set(x_1234, 1, x_1232); -x_1235 = l_Lean_Elab_Term_toParserDescrAux___main___closed__117; -x_1236 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1236, 0, x_1234); -lean_ctor_set(x_1236, 1, x_1235); -x_1237 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_1237, 0, x_1228); -x_1238 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1238, 0, x_1236); -lean_ctor_set(x_1238, 1, x_1237); -x_1239 = l_Lean_Elab_Term_toParserDescrAux___main___closed__120; -x_1240 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_1240, 0, x_1238); -lean_ctor_set(x_1240, 1, x_1239); -x_1241 = l_Lean_Elab_Term_throwError___rarg(x_1231, x_1240, x_4, x_1130); -lean_dec(x_1231); -x_1242 = !lean_is_exclusive(x_1241); -if (x_1242 == 0) +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) { -return x_1241; +lean_dec(x_1197); +if (lean_obj_tag(x_1198) == 0) +{ +x_1212 = x_1193; +goto block_1277; } else { -lean_object* x_1243; lean_object* x_1244; lean_object* x_1245; -x_1243 = lean_ctor_get(x_1241, 0); -x_1244 = lean_ctor_get(x_1241, 1); -lean_inc(x_1244); -lean_inc(x_1243); -lean_dec(x_1241); -x_1245 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1245, 0, x_1243); -lean_ctor_set(x_1245, 1, x_1244); -return x_1245; +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_1228); -lean_dec(x_1117); -lean_dec(x_1); -if (lean_obj_tag(x_1120) == 0) +lean_dec(x_1211); +lean_dec(x_1210); +lean_dec(x_1195); +if (lean_obj_tag(x_1198) == 0) { -lean_object* x_1246; lean_object* x_1247; lean_object* x_1248; uint8_t x_1249; -lean_dec(x_1119); -x_1246 = l___private_Init_Lean_Elab_Syntax_4__markAsTrailingParser___rarg(x_1130); -x_1247 = lean_ctor_get(x_1246, 0); -lean_inc(x_1247); -x_1248 = lean_ctor_get(x_1246, 1); -lean_inc(x_1248); -lean_dec(x_1246); -x_1249 = !lean_is_exclusive(x_1247); -if (x_1249 == 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_1250; lean_object* x_1251; lean_object* x_1252; lean_object* x_1253; -x_1250 = lean_ctor_get(x_1247, 0); -lean_dec(x_1250); -x_1251 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1248); +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_1252 = lean_ctor_get(x_1251, 0); -lean_inc(x_1252); -x_1253 = lean_ctor_get(x_1251, 1); -lean_inc(x_1253); -lean_dec(x_1251); -lean_ctor_set(x_1247, 0, x_1252); -x_700 = x_1247; -x_701 = x_1253; -goto block_733; +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_1254; lean_object* x_1255; lean_object* x_1256; lean_object* x_1257; lean_object* x_1258; -x_1254 = lean_ctor_get(x_1247, 1); -lean_inc(x_1254); -lean_dec(x_1247); -x_1255 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1248); +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_1256 = lean_ctor_get(x_1255, 0); -lean_inc(x_1256); -x_1257 = lean_ctor_get(x_1255, 1); -lean_inc(x_1257); -lean_dec(x_1255); -x_1258 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1258, 0, x_1256); -lean_ctor_set(x_1258, 1, x_1254); -x_700 = x_1258; -x_701 = x_1257; -goto block_733; +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_1259; lean_object* x_1260; uint8_t x_1261; -lean_dec(x_1120); -x_1259 = l_Lean_Elab_Term_toParserDescrAux___main___closed__123; -x_1260 = l_Lean_Elab_Term_throwError___rarg(x_1119, x_1259, x_4, x_1130); -lean_dec(x_1119); -x_1261 = !lean_is_exclusive(x_1260); -if (x_1261 == 0) +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_1260; +return x_1311; } else { -lean_object* x_1262; lean_object* x_1263; lean_object* x_1264; -x_1262 = lean_ctor_get(x_1260, 0); -x_1263 = lean_ctor_get(x_1260, 1); -lean_inc(x_1263); -lean_inc(x_1262); -lean_dec(x_1260); -x_1264 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1264, 0, x_1262); -lean_ctor_set(x_1264, 1, x_1263); -return x_1264; +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_1199: +block_1277: { -lean_object* x_1135; uint8_t x_1136; -x_1135 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1130); +lean_object* x_1213; uint8_t x_1214; +x_1213 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_1208); lean_dec(x_4); -x_1136 = !lean_is_exclusive(x_1135); -if (x_1136 == 0) +x_1214 = !lean_is_exclusive(x_1213); +if (x_1214 == 0) { -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; lean_object* x_1162; lean_object* x_1163; lean_object* x_1164; lean_object* x_1165; lean_object* x_1166; -x_1137 = lean_ctor_get(x_1135, 0); -x_1138 = lean_box(0); -x_1139 = l_Lean_Elab_Term_toParserDescrAux___main___closed__103; -x_1140 = lean_name_mk_numeral(x_1139, x_1137); -x_1141 = l_Lean_Elab_Term_toParserDescrAux___main___closed__102; -x_1142 = l_Lean_Elab_Term_toParserDescrAux___main___closed__106; -x_1143 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1143, 0, x_1138); -lean_ctor_set(x_1143, 1, x_1141); -lean_ctor_set(x_1143, 2, x_1140); -lean_ctor_set(x_1143, 3, x_1142); -x_1144 = l_Array_empty___closed__1; -x_1145 = lean_array_push(x_1144, x_1143); -x_1146 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1147 = lean_array_push(x_1145, x_1146); -x_1148 = l_Lean_mkTermIdFromIdent___closed__2; -x_1149 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1149, 0, x_1148); -lean_ctor_set(x_1149, 1, x_1147); -x_1150 = lean_array_push(x_1144, x_1149); -x_1151 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_1117); -x_1152 = lean_array_push(x_1144, x_1151); -x_1153 = l_Nat_repr(x_1134); -x_1154 = l_Lean_numLitKind; -x_1155 = l_Lean_mkStxLit(x_1154, x_1153, x_1138); -x_1156 = l_Lean_mkOptionalNode___closed__2; -x_1157 = lean_array_push(x_1156, x_1155); -x_1158 = l_Lean_Parser_Term_num___elambda__1___closed__1; -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_array_push(x_1152, x_1159); -x_1161 = l_Lean_nullKind___closed__2; -x_1162 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1162, 0, x_1161); -lean_ctor_set(x_1162, 1, x_1160); -x_1163 = lean_array_push(x_1150, x_1162); -x_1164 = l_Lean_mkAppStx___closed__8; -x_1165 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1165, 0, x_1164); -lean_ctor_set(x_1165, 1, x_1163); -if (lean_is_scalar(x_1133)) { - x_1166 = lean_alloc_ctor(0, 2, 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_1166 = x_1133; + x_1244 = x_1211; } -lean_ctor_set(x_1166, 0, x_1165); -lean_ctor_set(x_1166, 1, x_1132); -lean_ctor_set(x_1135, 0, x_1166); -return x_1135; +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_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; lean_object* x_1193; lean_object* x_1194; lean_object* x_1195; lean_object* x_1196; lean_object* x_1197; lean_object* x_1198; -x_1167 = lean_ctor_get(x_1135, 0); -x_1168 = lean_ctor_get(x_1135, 1); -lean_inc(x_1168); -lean_inc(x_1167); -lean_dec(x_1135); -x_1169 = lean_box(0); -x_1170 = l_Lean_Elab_Term_toParserDescrAux___main___closed__103; -x_1171 = lean_name_mk_numeral(x_1170, x_1167); -x_1172 = l_Lean_Elab_Term_toParserDescrAux___main___closed__102; -x_1173 = l_Lean_Elab_Term_toParserDescrAux___main___closed__106; -x_1174 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_1174, 0, x_1169); -lean_ctor_set(x_1174, 1, x_1172); -lean_ctor_set(x_1174, 2, x_1171); -lean_ctor_set(x_1174, 3, x_1173); -x_1175 = l_Array_empty___closed__1; -x_1176 = lean_array_push(x_1175, x_1174); -x_1177 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_1178 = lean_array_push(x_1176, x_1177); -x_1179 = l_Lean_mkTermIdFromIdent___closed__2; -x_1180 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1180, 0, x_1179); -lean_ctor_set(x_1180, 1, x_1178); -x_1181 = lean_array_push(x_1175, x_1180); -x_1182 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_1117); -x_1183 = lean_array_push(x_1175, x_1182); -x_1184 = l_Nat_repr(x_1134); -x_1185 = l_Lean_numLitKind; -x_1186 = l_Lean_mkStxLit(x_1185, x_1184, x_1169); -x_1187 = l_Lean_mkOptionalNode___closed__2; -x_1188 = lean_array_push(x_1187, x_1186); -x_1189 = l_Lean_Parser_Term_num___elambda__1___closed__1; -x_1190 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1190, 0, x_1189); -lean_ctor_set(x_1190, 1, x_1188); -x_1191 = lean_array_push(x_1183, x_1190); -x_1192 = l_Lean_nullKind___closed__2; -x_1193 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1193, 0, x_1192); -lean_ctor_set(x_1193, 1, x_1191); -x_1194 = lean_array_push(x_1181, x_1193); -x_1195 = l_Lean_mkAppStx___closed__8; -x_1196 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1196, 0, x_1195); -lean_ctor_set(x_1196, 1, x_1194); -if (lean_is_scalar(x_1133)) { - x_1197 = lean_alloc_ctor(0, 2, 0); +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_1197 = x_1133; + x_1275 = x_1211; } -lean_ctor_set(x_1197, 0, x_1196); -lean_ctor_set(x_1197, 1, x_1132); -x_1198 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1198, 0, x_1197); -lean_ctor_set(x_1198, 1, x_1168); -return x_1198; +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; } } } @@ -4267,15 +4392,15 @@ return x_1198; } else { -lean_object* x_1282; lean_object* x_1283; +lean_object* x_1333; lean_object* x_1334; lean_dec(x_6); -x_1282 = lean_unsigned_to_nat(1u); -x_1283 = l_Lean_Syntax_getArg(x_1, x_1282); +x_1333 = lean_unsigned_to_nat(1u); +x_1334 = l_Lean_Syntax_getArg(x_1, x_1333); lean_dec(x_1); -x_1 = x_1283; +x_1 = x_1334; goto _start; } -block_113: +block_123: { 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); @@ -4286,15 +4411,18 @@ 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) == 3) +if (lean_obj_tag(x_2) == 2) { -lean_object* x_96; uint8_t x_97; lean_object* x_98; -lean_dec(x_2); -x_96 = lean_box(1); +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_96, x_97, x_4, x_12); +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; @@ -4334,45 +4462,97 @@ return x_104; } else { -uint8_t x_105; lean_object* x_106; -x_105 = lean_unbox(x_14); +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_106 = l_Lean_Elab_Term_toParserDescrAux___main(x_95, x_2, x_105, x_4, x_12); -if (lean_obj_tag(x_106) == 0) +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_107; lean_object* x_108; -x_107 = lean_ctor_get(x_106, 0); -lean_inc(x_107); -x_108 = lean_ctor_get(x_106, 1); -lean_inc(x_108); -lean_dec(x_106); -x_15 = x_107; -x_16 = x_108; +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 { -uint8_t x_109; +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_109 = !lean_is_exclusive(x_106); -if (x_109 == 0) -{ -return x_106; +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 { -lean_object* x_110; lean_object* x_111; lean_object* x_112; -x_110 = lean_ctor_get(x_106, 0); -x_111 = lean_ctor_get(x_106, 1); -lean_inc(x_111); -lean_inc(x_110); -lean_dec(x_106); -x_112 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_112, 0, x_110); -lean_ctor_set(x_112, 1, x_111); -return x_112; +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; } } } @@ -4536,1551 +4716,1661 @@ return x_92; } } } -block_189: +block_199: { -uint8_t x_116; -x_116 = !lean_is_exclusive(x_114); -if (x_116 == 0) +uint8_t x_126; +x_126 = !lean_is_exclusive(x_124); +if (x_126 == 0) { -lean_object* x_117; lean_object* x_118; uint8_t x_119; -x_117 = lean_ctor_get(x_114, 0); -x_118 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_115); +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_119 = !lean_is_exclusive(x_118); -if (x_119 == 0) +x_129 = !lean_is_exclusive(x_128); +if (x_129 == 0) { -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; -x_120 = lean_ctor_get(x_118, 0); -x_121 = lean_box(0); -x_122 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; -x_123 = lean_name_mk_numeral(x_122, x_120); -x_124 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; -x_125 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; -x_126 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_126, 0, x_121); -lean_ctor_set(x_126, 1, x_124); -lean_ctor_set(x_126, 2, x_123); -lean_ctor_set(x_126, 3, x_125); -x_127 = l_Array_empty___closed__1; -x_128 = lean_array_push(x_127, x_126); -x_129 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_130 = lean_array_push(x_128, x_129); -x_131 = l_Lean_mkTermIdFromIdent___closed__2; -x_132 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_132, 0, x_131); -lean_ctor_set(x_132, 1, x_130); -x_133 = lean_array_push(x_127, x_132); -x_134 = lean_array_push(x_127, x_117); -x_135 = l_Lean_nullKind___closed__2; -x_136 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_136, 0, x_135); +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); -x_137 = lean_array_push(x_133, x_136); -x_138 = l_Lean_mkAppStx___closed__8; -x_139 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_139, 0, x_138); -lean_ctor_set(x_139, 1, x_137); -lean_ctor_set(x_114, 0, x_139); -lean_ctor_set(x_118, 0, x_114); -return x_118; +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_140; lean_object* x_141; lean_object* x_142; lean_object* x_143; lean_object* x_144; lean_object* x_145; lean_object* x_146; lean_object* x_147; lean_object* x_148; lean_object* x_149; lean_object* x_150; lean_object* x_151; lean_object* x_152; lean_object* x_153; lean_object* x_154; lean_object* x_155; lean_object* x_156; lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; -x_140 = lean_ctor_get(x_118, 0); -x_141 = lean_ctor_get(x_118, 1); -lean_inc(x_141); -lean_inc(x_140); -lean_dec(x_118); -x_142 = lean_box(0); -x_143 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; -x_144 = lean_name_mk_numeral(x_143, x_140); -x_145 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; -x_146 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; -x_147 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_147, 0, x_142); -lean_ctor_set(x_147, 1, x_145); -lean_ctor_set(x_147, 2, x_144); -lean_ctor_set(x_147, 3, x_146); -x_148 = l_Array_empty___closed__1; -x_149 = lean_array_push(x_148, x_147); -x_150 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_151 = lean_array_push(x_149, x_150); -x_152 = l_Lean_mkTermIdFromIdent___closed__2; -x_153 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_153, 0, x_152); -lean_ctor_set(x_153, 1, x_151); -x_154 = lean_array_push(x_148, x_153); -x_155 = lean_array_push(x_148, x_117); -x_156 = l_Lean_nullKind___closed__2; -x_157 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_157, 0, x_156); +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); -x_158 = lean_array_push(x_154, x_157); -x_159 = l_Lean_mkAppStx___closed__8; -x_160 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_160, 0, x_159); -lean_ctor_set(x_160, 1, x_158); -lean_ctor_set(x_114, 0, x_160); -x_161 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_161, 0, x_114); -lean_ctor_set(x_161, 1, x_141); -return x_161; +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_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; -x_162 = lean_ctor_get(x_114, 0); -x_163 = lean_ctor_get(x_114, 1); -lean_inc(x_163); -lean_inc(x_162); -lean_dec(x_114); -x_164 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_115); +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_165 = lean_ctor_get(x_164, 0); -lean_inc(x_165); -x_166 = lean_ctor_get(x_164, 1); -lean_inc(x_166); -if (lean_is_exclusive(x_164)) { - lean_ctor_release(x_164, 0); - lean_ctor_release(x_164, 1); - x_167 = x_164; +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_164); - x_167 = lean_box(0); + lean_dec_ref(x_174); + x_177 = lean_box(0); } -x_168 = lean_box(0); -x_169 = l_Lean_Elab_Term_toParserDescrAux___main___closed__11; -x_170 = lean_name_mk_numeral(x_169, x_165); -x_171 = l_Lean_Elab_Term_toParserDescrAux___main___closed__10; -x_172 = l_Lean_Elab_Term_toParserDescrAux___main___closed__14; -x_173 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_173, 0, x_168); -lean_ctor_set(x_173, 1, x_171); -lean_ctor_set(x_173, 2, x_170); -lean_ctor_set(x_173, 3, x_172); -x_174 = l_Array_empty___closed__1; -x_175 = lean_array_push(x_174, x_173); -x_176 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_177 = lean_array_push(x_175, x_176); -x_178 = l_Lean_mkTermIdFromIdent___closed__2; -x_179 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_179, 0, x_178); -lean_ctor_set(x_179, 1, x_177); -x_180 = lean_array_push(x_174, x_179); -x_181 = lean_array_push(x_174, x_162); -x_182 = l_Lean_nullKind___closed__2; -x_183 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_183, 0, x_182); +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); -x_184 = lean_array_push(x_180, x_183); -x_185 = l_Lean_mkAppStx___closed__8; -x_186 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_186, 0, x_185); -lean_ctor_set(x_186, 1, x_184); -x_187 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_187, 0, x_186); -lean_ctor_set(x_187, 1, x_163); -if (lean_is_scalar(x_167)) { - x_188 = lean_alloc_ctor(0, 2, 0); +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_188 = x_167; + x_198 = x_177; } -lean_ctor_set(x_188, 0, x_187); -lean_ctor_set(x_188, 1, x_166); -return x_188; +lean_ctor_set(x_198, 0, x_197); +lean_ctor_set(x_198, 1, x_176); +return x_198; } } -block_265: +block_275: { -uint8_t x_192; -x_192 = !lean_is_exclusive(x_190); -if (x_192 == 0) +uint8_t x_202; +x_202 = !lean_is_exclusive(x_200); +if (x_202 == 0) { -lean_object* x_193; lean_object* x_194; uint8_t x_195; -x_193 = lean_ctor_get(x_190, 0); -x_194 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_191); +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_195 = !lean_is_exclusive(x_194); -if (x_195 == 0) +x_205 = !lean_is_exclusive(x_204); +if (x_205 == 0) { -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; -x_196 = lean_ctor_get(x_194, 0); -x_197 = lean_box(0); -x_198 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; -x_199 = lean_name_mk_numeral(x_198, x_196); -x_200 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; -x_201 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; -x_202 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_202, 0, x_197); -lean_ctor_set(x_202, 1, x_200); -lean_ctor_set(x_202, 2, x_199); -lean_ctor_set(x_202, 3, x_201); -x_203 = l_Array_empty___closed__1; -x_204 = lean_array_push(x_203, x_202); -x_205 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_206 = lean_array_push(x_204, x_205); -x_207 = l_Lean_mkTermIdFromIdent___closed__2; -x_208 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_208, 0, x_207); -lean_ctor_set(x_208, 1, x_206); -x_209 = lean_array_push(x_203, x_208); -x_210 = lean_array_push(x_203, x_193); -x_211 = l_Lean_nullKind___closed__2; -x_212 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_212, 0, x_211); +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); -x_213 = lean_array_push(x_209, x_212); -x_214 = l_Lean_mkAppStx___closed__8; -x_215 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_215, 0, x_214); -lean_ctor_set(x_215, 1, x_213); -lean_ctor_set(x_190, 0, x_215); -lean_ctor_set(x_194, 0, x_190); -return x_194; +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_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; 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; -x_216 = lean_ctor_get(x_194, 0); -x_217 = lean_ctor_get(x_194, 1); -lean_inc(x_217); -lean_inc(x_216); -lean_dec(x_194); -x_218 = lean_box(0); -x_219 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; -x_220 = lean_name_mk_numeral(x_219, x_216); -x_221 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; -x_222 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; -x_223 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_223, 0, x_218); -lean_ctor_set(x_223, 1, x_221); -lean_ctor_set(x_223, 2, x_220); -lean_ctor_set(x_223, 3, x_222); -x_224 = l_Array_empty___closed__1; -x_225 = lean_array_push(x_224, x_223); -x_226 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_227 = lean_array_push(x_225, x_226); -x_228 = l_Lean_mkTermIdFromIdent___closed__2; -x_229 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_229, 0, x_228); -lean_ctor_set(x_229, 1, x_227); -x_230 = lean_array_push(x_224, x_229); -x_231 = lean_array_push(x_224, x_193); -x_232 = l_Lean_nullKind___closed__2; -x_233 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_233, 0, x_232); +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); -x_234 = lean_array_push(x_230, x_233); -x_235 = l_Lean_mkAppStx___closed__8; -x_236 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_236, 0, x_235); -lean_ctor_set(x_236, 1, x_234); -lean_ctor_set(x_190, 0, x_236); -x_237 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_237, 0, x_190); -lean_ctor_set(x_237, 1, x_217); -return x_237; +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_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; 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; -x_238 = lean_ctor_get(x_190, 0); -x_239 = lean_ctor_get(x_190, 1); -lean_inc(x_239); -lean_inc(x_238); -lean_dec(x_190); -x_240 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_191); +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_241 = lean_ctor_get(x_240, 0); -lean_inc(x_241); -x_242 = lean_ctor_get(x_240, 1); -lean_inc(x_242); -if (lean_is_exclusive(x_240)) { - lean_ctor_release(x_240, 0); - lean_ctor_release(x_240, 1); - x_243 = x_240; +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_240); - x_243 = lean_box(0); + lean_dec_ref(x_250); + x_253 = lean_box(0); } -x_244 = lean_box(0); -x_245 = l_Lean_Elab_Term_toParserDescrAux___main___closed__18; -x_246 = lean_name_mk_numeral(x_245, x_241); -x_247 = l_Lean_Elab_Term_toParserDescrAux___main___closed__17; -x_248 = l_Lean_Elab_Term_toParserDescrAux___main___closed__21; -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_238); -x_258 = l_Lean_nullKind___closed__2; -x_259 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_259, 0, x_258); +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); -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); -x_263 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_263, 0, x_262); -lean_ctor_set(x_263, 1, x_239); -if (lean_is_scalar(x_243)) { - x_264 = lean_alloc_ctor(0, 2, 0); +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_264 = x_243; + x_274 = x_253; } -lean_ctor_set(x_264, 0, x_263); -lean_ctor_set(x_264, 1, x_242); -return x_264; -} -} -block_368: -{ -lean_object* x_268; lean_object* x_269; lean_object* x_270; lean_object* x_271; lean_object* x_349; lean_object* x_350; -x_268 = lean_ctor_get(x_266, 0); -lean_inc(x_268); -x_269 = lean_ctor_get(x_266, 1); -lean_inc(x_269); -lean_dec(x_266); -x_349 = lean_unsigned_to_nat(2u); -x_350 = l_Lean_Syntax_getArg(x_1, x_349); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) -{ -lean_object* x_351; uint8_t x_352; lean_object* x_353; -lean_dec(x_2); -x_351 = lean_box(1); -x_352 = lean_unbox(x_269); -lean_dec(x_269); -lean_inc(x_4); -x_353 = l_Lean_Elab_Term_toParserDescrAux___main(x_350, x_351, x_352, x_4, x_267); -if (lean_obj_tag(x_353) == 0) -{ -lean_object* x_354; lean_object* x_355; -x_354 = lean_ctor_get(x_353, 0); -lean_inc(x_354); -x_355 = lean_ctor_get(x_353, 1); -lean_inc(x_355); -lean_dec(x_353); -x_270 = x_354; -x_271 = x_355; -goto block_348; -} -else -{ -uint8_t x_356; -lean_dec(x_268); -lean_dec(x_4); -x_356 = !lean_is_exclusive(x_353); -if (x_356 == 0) -{ -return x_353; -} -else -{ -lean_object* x_357; lean_object* x_358; lean_object* x_359; -x_357 = lean_ctor_get(x_353, 0); -x_358 = lean_ctor_get(x_353, 1); -lean_inc(x_358); -lean_inc(x_357); -lean_dec(x_353); -x_359 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_359, 0, x_357); -lean_ctor_set(x_359, 1, x_358); -return x_359; -} -} -} -else -{ -uint8_t x_360; lean_object* x_361; -x_360 = lean_unbox(x_269); -lean_dec(x_269); -lean_inc(x_4); -x_361 = l_Lean_Elab_Term_toParserDescrAux___main(x_350, x_2, x_360, x_4, x_267); -if (lean_obj_tag(x_361) == 0) -{ -lean_object* x_362; lean_object* x_363; -x_362 = lean_ctor_get(x_361, 0); -lean_inc(x_362); -x_363 = lean_ctor_get(x_361, 1); -lean_inc(x_363); -lean_dec(x_361); -x_270 = x_362; -x_271 = x_363; -goto block_348; -} -else -{ -uint8_t x_364; -lean_dec(x_268); -lean_dec(x_4); -x_364 = !lean_is_exclusive(x_361); -if (x_364 == 0) -{ -return x_361; -} -else -{ -lean_object* x_365; lean_object* x_366; lean_object* x_367; -x_365 = lean_ctor_get(x_361, 0); -x_366 = lean_ctor_get(x_361, 1); -lean_inc(x_366); -lean_inc(x_365); -lean_dec(x_361); -x_367 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_367, 0, x_365); -lean_ctor_set(x_367, 1, x_366); -return x_367; -} -} -} -block_348: -{ -uint8_t x_272; -x_272 = !lean_is_exclusive(x_270); -if (x_272 == 0) -{ -lean_object* x_273; lean_object* x_274; uint8_t x_275; -x_273 = lean_ctor_get(x_270, 0); -x_274 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_271); -lean_dec(x_4); -x_275 = !lean_is_exclusive(x_274); -if (x_275 == 0) -{ -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; 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; -x_276 = lean_ctor_get(x_274, 0); -x_277 = lean_box(0); -x_278 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; -x_279 = lean_name_mk_numeral(x_278, x_276); -x_280 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; -x_281 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; -x_282 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_282, 0, x_277); -lean_ctor_set(x_282, 1, x_280); -lean_ctor_set(x_282, 2, x_279); -lean_ctor_set(x_282, 3, x_281); -x_283 = l_Array_empty___closed__1; -x_284 = lean_array_push(x_283, x_282); -x_285 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_286 = lean_array_push(x_284, x_285); -x_287 = l_Lean_mkTermIdFromIdent___closed__2; -x_288 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_288, 0, x_287); -lean_ctor_set(x_288, 1, x_286); -x_289 = lean_array_push(x_283, x_288); -x_290 = lean_array_push(x_283, x_268); -x_291 = lean_array_push(x_290, x_273); -x_292 = l_Lean_nullKind___closed__2; -x_293 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_293, 0, x_292); -lean_ctor_set(x_293, 1, x_291); -x_294 = lean_array_push(x_289, x_293); -x_295 = l_Lean_mkAppStx___closed__8; -x_296 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_296, 0, x_295); -lean_ctor_set(x_296, 1, x_294); -lean_ctor_set(x_270, 0, x_296); -lean_ctor_set(x_274, 0, x_270); +lean_ctor_set(x_274, 0, x_273); +lean_ctor_set(x_274, 1, x_252); return x_274; } -else -{ -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; 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; -x_297 = lean_ctor_get(x_274, 0); -x_298 = lean_ctor_get(x_274, 1); -lean_inc(x_298); -lean_inc(x_297); -lean_dec(x_274); -x_299 = lean_box(0); -x_300 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; -x_301 = lean_name_mk_numeral(x_300, x_297); -x_302 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; -x_303 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; -x_304 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_304, 0, x_299); -lean_ctor_set(x_304, 1, x_302); -lean_ctor_set(x_304, 2, x_301); -lean_ctor_set(x_304, 3, x_303); -x_305 = l_Array_empty___closed__1; -x_306 = lean_array_push(x_305, x_304); -x_307 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_308 = lean_array_push(x_306, x_307); -x_309 = l_Lean_mkTermIdFromIdent___closed__2; -x_310 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_310, 0, x_309); -lean_ctor_set(x_310, 1, x_308); -x_311 = lean_array_push(x_305, x_310); -x_312 = lean_array_push(x_305, x_268); -x_313 = lean_array_push(x_312, x_273); -x_314 = l_Lean_nullKind___closed__2; -x_315 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_315, 0, x_314); -lean_ctor_set(x_315, 1, x_313); -x_316 = lean_array_push(x_311, x_315); -x_317 = l_Lean_mkAppStx___closed__8; -x_318 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_318, 0, x_317); -lean_ctor_set(x_318, 1, x_316); -lean_ctor_set(x_270, 0, x_318); -x_319 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_319, 0, x_270); -lean_ctor_set(x_319, 1, x_298); -return x_319; } +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 { -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; lean_object* x_342; lean_object* x_343; lean_object* x_344; lean_object* x_345; lean_object* x_346; lean_object* x_347; -x_320 = lean_ctor_get(x_270, 0); -x_321 = lean_ctor_get(x_270, 1); -lean_inc(x_321); -lean_inc(x_320); -lean_dec(x_270); -x_322 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_271); +uint8_t x_366; +lean_dec(x_278); lean_dec(x_4); -x_323 = lean_ctor_get(x_322, 0); -lean_inc(x_323); -x_324 = lean_ctor_get(x_322, 1); -lean_inc(x_324); -if (lean_is_exclusive(x_322)) { - lean_ctor_release(x_322, 0); - lean_ctor_release(x_322, 1); - x_325 = x_322; -} else { - lean_dec_ref(x_322); - x_325 = lean_box(0); +x_366 = !lean_is_exclusive(x_363); +if (x_366 == 0) +{ +return x_363; } -x_326 = lean_box(0); -x_327 = l_Lean_Elab_Term_toParserDescrAux___main___closed__25; -x_328 = lean_name_mk_numeral(x_327, x_323); -x_329 = l_Lean_Elab_Term_toParserDescrAux___main___closed__24; -x_330 = l_Lean_Elab_Term_toParserDescrAux___main___closed__28; -x_331 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_331, 0, x_326); -lean_ctor_set(x_331, 1, x_329); -lean_ctor_set(x_331, 2, x_328); -lean_ctor_set(x_331, 3, x_330); -x_332 = l_Array_empty___closed__1; -x_333 = lean_array_push(x_332, x_331); -x_334 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_335 = lean_array_push(x_333, x_334); -x_336 = l_Lean_mkTermIdFromIdent___closed__2; -x_337 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_337, 0, x_336); -lean_ctor_set(x_337, 1, x_335); -x_338 = lean_array_push(x_332, x_337); -x_339 = lean_array_push(x_332, x_268); -x_340 = lean_array_push(x_339, x_320); -x_341 = l_Lean_nullKind___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_338, x_342); -x_344 = l_Lean_mkAppStx___closed__8; -x_345 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_345, 0, x_344); -lean_ctor_set(x_345, 1, x_343); -x_346 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_346, 0, x_345); -lean_ctor_set(x_346, 1, x_321); -if (lean_is_scalar(x_325)) { - x_347 = lean_alloc_ctor(0, 2, 0); -} else { - x_347 = x_325; +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; } +} +} +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_324); -return x_347; +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: { -lean_object* x_371; lean_object* x_372; lean_object* x_373; lean_object* x_374; lean_object* x_452; lean_object* x_453; -x_371 = lean_ctor_get(x_369, 0); -lean_inc(x_371); -x_372 = lean_ctor_get(x_369, 1); -lean_inc(x_372); -lean_dec(x_369); -x_452 = lean_unsigned_to_nat(2u); -x_453 = l_Lean_Syntax_getArg(x_1, x_452); -lean_dec(x_1); -if (lean_obj_tag(x_2) == 3) +uint8_t x_395; +x_395 = !lean_is_exclusive(x_393); +if (x_395 == 0) { -lean_object* x_454; uint8_t x_455; lean_object* x_456; -lean_dec(x_2); -x_454 = lean_box(1); -x_455 = lean_unbox(x_372); -lean_dec(x_372); -lean_inc(x_4); -x_456 = l_Lean_Elab_Term_toParserDescrAux___main(x_453, x_454, x_455, x_4, x_370); -if (lean_obj_tag(x_456) == 0) -{ -lean_object* x_457; lean_object* x_458; -x_457 = lean_ctor_get(x_456, 0); -lean_inc(x_457); -x_458 = lean_ctor_get(x_456, 1); -lean_inc(x_458); -lean_dec(x_456); -x_373 = x_457; -x_374 = x_458; -goto block_451; -} -else -{ -uint8_t x_459; -lean_dec(x_371); +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_459 = !lean_is_exclusive(x_456); -if (x_459 == 0) +x_398 = !lean_is_exclusive(x_397); +if (x_398 == 0) { -return x_456; +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_460; lean_object* x_461; lean_object* x_462; -x_460 = lean_ctor_get(x_456, 0); -x_461 = lean_ctor_get(x_456, 1); -lean_inc(x_461); -lean_inc(x_460); -lean_dec(x_456); -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_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 { -uint8_t x_463; lean_object* x_464; -x_463 = lean_unbox(x_372); -lean_dec(x_372); -lean_inc(x_4); -x_464 = l_Lean_Elab_Term_toParserDescrAux___main(x_453, x_2, x_463, x_4, x_370); -if (lean_obj_tag(x_464) == 0) -{ -lean_object* x_465; lean_object* x_466; -x_465 = lean_ctor_get(x_464, 0); -lean_inc(x_465); -x_466 = lean_ctor_get(x_464, 1); -lean_inc(x_466); -lean_dec(x_464); -x_373 = x_465; -x_374 = x_466; -goto block_451; -} -else -{ -uint8_t x_467; -lean_dec(x_371); +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_467 = !lean_is_exclusive(x_464); -if (x_467 == 0) -{ -return x_464; +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); } -else -{ -lean_object* x_468; lean_object* x_469; lean_object* x_470; -x_468 = lean_ctor_get(x_464, 0); -x_469 = lean_ctor_get(x_464, 1); -lean_inc(x_469); -lean_inc(x_468); -lean_dec(x_464); -x_470 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_470, 0, x_468); -lean_ctor_set(x_470, 1, x_469); +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_451: +block_577: { -uint8_t x_375; -x_375 = !lean_is_exclusive(x_373); -if (x_375 == 0) +uint8_t x_504; +x_504 = !lean_is_exclusive(x_502); +if (x_504 == 0) { -lean_object* x_376; lean_object* x_377; uint8_t x_378; -x_376 = lean_ctor_get(x_373, 0); -x_377 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_374); +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_378 = !lean_is_exclusive(x_377); -if (x_378 == 0) +x_507 = !lean_is_exclusive(x_506); +if (x_507 == 0) { -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; lean_object* x_399; -x_379 = lean_ctor_get(x_377, 0); -x_380 = lean_box(0); -x_381 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; -x_382 = lean_name_mk_numeral(x_381, x_379); -x_383 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; -x_384 = l_Lean_Elab_Term_toParserDescrAux___main___closed__35; -x_385 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_385, 0, x_380); -lean_ctor_set(x_385, 1, x_383); -lean_ctor_set(x_385, 2, x_382); -lean_ctor_set(x_385, 3, x_384); -x_386 = l_Array_empty___closed__1; -x_387 = lean_array_push(x_386, x_385); -x_388 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_389 = lean_array_push(x_387, x_388); -x_390 = l_Lean_mkTermIdFromIdent___closed__2; -x_391 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_391, 0, x_390); -lean_ctor_set(x_391, 1, x_389); -x_392 = lean_array_push(x_386, x_391); -x_393 = lean_array_push(x_386, x_371); -x_394 = lean_array_push(x_393, x_376); -x_395 = l_Lean_nullKind___closed__2; -x_396 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_396, 0, x_395); -lean_ctor_set(x_396, 1, x_394); -x_397 = lean_array_push(x_392, x_396); -x_398 = l_Lean_mkAppStx___closed__8; -x_399 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_399, 0, x_398); -lean_ctor_set(x_399, 1, x_397); -lean_ctor_set(x_373, 0, x_399); -lean_ctor_set(x_377, 0, x_373); -return x_377; +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_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; lean_object* x_420; lean_object* x_421; lean_object* x_422; -x_400 = lean_ctor_get(x_377, 0); -x_401 = lean_ctor_get(x_377, 1); -lean_inc(x_401); -lean_inc(x_400); -lean_dec(x_377); -x_402 = lean_box(0); -x_403 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; -x_404 = lean_name_mk_numeral(x_403, x_400); -x_405 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; -x_406 = l_Lean_Elab_Term_toParserDescrAux___main___closed__35; -x_407 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_407, 0, x_402); -lean_ctor_set(x_407, 1, x_405); -lean_ctor_set(x_407, 2, x_404); -lean_ctor_set(x_407, 3, x_406); -x_408 = l_Array_empty___closed__1; -x_409 = lean_array_push(x_408, x_407); -x_410 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_411 = lean_array_push(x_409, x_410); -x_412 = l_Lean_mkTermIdFromIdent___closed__2; -x_413 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_413, 0, x_412); -lean_ctor_set(x_413, 1, x_411); -x_414 = lean_array_push(x_408, x_413); -x_415 = lean_array_push(x_408, x_371); -x_416 = lean_array_push(x_415, x_376); -x_417 = l_Lean_nullKind___closed__2; -x_418 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_418, 0, x_417); -lean_ctor_set(x_418, 1, x_416); -x_419 = lean_array_push(x_414, x_418); -x_420 = l_Lean_mkAppStx___closed__8; -x_421 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_421, 0, x_420); -lean_ctor_set(x_421, 1, x_419); -lean_ctor_set(x_373, 0, x_421); -x_422 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_422, 0, x_373); -lean_ctor_set(x_422, 1, x_401); -return x_422; -} -} -else -{ -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; 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; -x_423 = lean_ctor_get(x_373, 0); -x_424 = lean_ctor_get(x_373, 1); -lean_inc(x_424); -lean_inc(x_423); -lean_dec(x_373); -x_425 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_374); -lean_dec(x_4); -x_426 = lean_ctor_get(x_425, 0); -lean_inc(x_426); -x_427 = lean_ctor_get(x_425, 1); -lean_inc(x_427); -if (lean_is_exclusive(x_425)) { - lean_ctor_release(x_425, 0); - lean_ctor_release(x_425, 1); - x_428 = x_425; -} else { - lean_dec_ref(x_425); - x_428 = lean_box(0); -} -x_429 = lean_box(0); -x_430 = l_Lean_Elab_Term_toParserDescrAux___main___closed__32; -x_431 = lean_name_mk_numeral(x_430, x_426); -x_432 = l_Lean_Elab_Term_toParserDescrAux___main___closed__31; -x_433 = l_Lean_Elab_Term_toParserDescrAux___main___closed__35; -x_434 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_434, 0, x_429); -lean_ctor_set(x_434, 1, x_432); -lean_ctor_set(x_434, 2, x_431); -lean_ctor_set(x_434, 3, x_433); -x_435 = l_Array_empty___closed__1; -x_436 = lean_array_push(x_435, x_434); -x_437 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_438 = lean_array_push(x_436, x_437); -x_439 = l_Lean_mkTermIdFromIdent___closed__2; -x_440 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_440, 0, x_439); -lean_ctor_set(x_440, 1, x_438); -x_441 = lean_array_push(x_435, x_440); -x_442 = lean_array_push(x_435, x_371); -x_443 = lean_array_push(x_442, x_423); -x_444 = l_Lean_nullKind___closed__2; -x_445 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_445, 0, x_444); -lean_ctor_set(x_445, 1, x_443); -x_446 = lean_array_push(x_441, x_445); -x_447 = l_Lean_mkAppStx___closed__8; -x_448 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_448, 0, x_447); -lean_ctor_set(x_448, 1, x_446); -x_449 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_449, 0, x_448); -lean_ctor_set(x_449, 1, x_424); -if (lean_is_scalar(x_428)) { - x_450 = lean_alloc_ctor(0, 2, 0); -} else { - x_450 = x_428; -} -lean_ctor_set(x_450, 0, x_449); -lean_ctor_set(x_450, 1, x_427); -return x_450; -} -} -} -block_547: -{ -uint8_t x_474; -x_474 = !lean_is_exclusive(x_472); -if (x_474 == 0) -{ -lean_object* x_475; lean_object* x_476; uint8_t x_477; -x_475 = lean_ctor_get(x_472, 0); -x_476 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_473); -lean_dec(x_4); -x_477 = !lean_is_exclusive(x_476); -if (x_477 == 0) -{ -lean_object* x_478; lean_object* x_479; lean_object* x_480; lean_object* x_481; lean_object* x_482; lean_object* x_483; lean_object* x_484; lean_object* x_485; lean_object* x_486; lean_object* x_487; lean_object* x_488; lean_object* x_489; lean_object* x_490; lean_object* x_491; lean_object* x_492; lean_object* x_493; lean_object* x_494; lean_object* x_495; lean_object* x_496; lean_object* x_497; -x_478 = lean_ctor_get(x_476, 0); -x_479 = lean_box(0); -x_480 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; -x_481 = lean_name_mk_numeral(x_480, x_478); -x_482 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; -x_483 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; -x_484 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_484, 0, x_479); -lean_ctor_set(x_484, 1, x_482); -lean_ctor_set(x_484, 2, x_481); -lean_ctor_set(x_484, 3, x_483); -x_485 = l_Array_empty___closed__1; -x_486 = lean_array_push(x_485, x_484); -x_487 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_488 = lean_array_push(x_486, x_487); -x_489 = l_Lean_mkTermIdFromIdent___closed__2; -x_490 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_490, 0, x_489); -lean_ctor_set(x_490, 1, x_488); -x_491 = lean_array_push(x_485, x_490); -x_492 = lean_array_push(x_485, x_475); -x_493 = l_Lean_nullKind___closed__2; -x_494 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_494, 0, x_493); -lean_ctor_set(x_494, 1, x_492); -x_495 = lean_array_push(x_491, x_494); -x_496 = l_Lean_mkAppStx___closed__8; -x_497 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_497, 0, x_496); -lean_ctor_set(x_497, 1, x_495); -lean_ctor_set(x_472, 0, x_497); -lean_ctor_set(x_476, 0, x_472); -return x_476; -} -else -{ -lean_object* x_498; 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_498 = lean_ctor_get(x_476, 0); -x_499 = lean_ctor_get(x_476, 1); -lean_inc(x_499); -lean_inc(x_498); -lean_dec(x_476); -x_500 = lean_box(0); -x_501 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; -x_502 = lean_name_mk_numeral(x_501, x_498); -x_503 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; -x_504 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; -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_475); -x_514 = l_Lean_nullKind___closed__2; -x_515 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_515, 0, x_514); -lean_ctor_set(x_515, 1, x_513); -x_516 = lean_array_push(x_512, x_515); -x_517 = l_Lean_mkAppStx___closed__8; -x_518 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_518, 0, x_517); -lean_ctor_set(x_518, 1, x_516); -lean_ctor_set(x_472, 0, x_518); -x_519 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_519, 0, x_472); -lean_ctor_set(x_519, 1, x_499); -return x_519; -} -} -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; lean_object* x_543; lean_object* x_544; lean_object* x_545; lean_object* x_546; -x_520 = lean_ctor_get(x_472, 0); -x_521 = lean_ctor_get(x_472, 1); -lean_inc(x_521); -lean_inc(x_520); -lean_dec(x_472); -x_522 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_473); -lean_dec(x_4); -x_523 = lean_ctor_get(x_522, 0); -lean_inc(x_523); -x_524 = lean_ctor_get(x_522, 1); -lean_inc(x_524); -if (lean_is_exclusive(x_522)) { - lean_ctor_release(x_522, 0); - lean_ctor_release(x_522, 1); - x_525 = x_522; -} else { - lean_dec_ref(x_522); - x_525 = lean_box(0); -} -x_526 = lean_box(0); -x_527 = l_Lean_Elab_Term_toParserDescrAux___main___closed__39; -x_528 = lean_name_mk_numeral(x_527, x_523); -x_529 = l_Lean_Elab_Term_toParserDescrAux___main___closed__38; -x_530 = l_Lean_Elab_Term_toParserDescrAux___main___closed__42; -x_531 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_531, 0, x_526); -lean_ctor_set(x_531, 1, x_529); -lean_ctor_set(x_531, 2, x_528); -lean_ctor_set(x_531, 3, x_530); -x_532 = l_Array_empty___closed__1; -x_533 = lean_array_push(x_532, x_531); -x_534 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_535 = lean_array_push(x_533, x_534); -x_536 = l_Lean_mkTermIdFromIdent___closed__2; -x_537 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_537, 0, x_536); -lean_ctor_set(x_537, 1, x_535); -x_538 = lean_array_push(x_532, x_537); -x_539 = lean_array_push(x_532, x_520); -x_540 = l_Lean_nullKind___closed__2; +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_538, x_541); -x_543 = l_Lean_mkAppStx___closed__8; -x_544 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_544, 0, x_543); -lean_ctor_set(x_544, 1, x_542); -x_545 = lean_alloc_ctor(0, 2, 0); +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_521); -if (lean_is_scalar(x_525)) { - x_546 = lean_alloc_ctor(0, 2, 0); -} else { - x_546 = x_525; -} -lean_ctor_set(x_546, 0, x_545); -lean_ctor_set(x_546, 1, x_524); -return x_546; -} -} -block_623: -{ -uint8_t x_550; -x_550 = !lean_is_exclusive(x_548); -if (x_550 == 0) -{ -lean_object* x_551; lean_object* x_552; uint8_t x_553; -x_551 = lean_ctor_get(x_548, 0); -x_552 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_549); -lean_dec(x_4); -x_553 = !lean_is_exclusive(x_552); -if (x_553 == 0) -{ -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; -x_554 = lean_ctor_get(x_552, 0); -x_555 = lean_box(0); -x_556 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; -x_557 = lean_name_mk_numeral(x_556, x_554); -x_558 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; -x_559 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -x_560 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_560, 0, x_555); -lean_ctor_set(x_560, 1, x_558); -lean_ctor_set(x_560, 2, x_557); -lean_ctor_set(x_560, 3, x_559); -x_561 = l_Array_empty___closed__1; -x_562 = lean_array_push(x_561, x_560); -x_563 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_564 = lean_array_push(x_562, x_563); -x_565 = l_Lean_mkTermIdFromIdent___closed__2; -x_566 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_566, 0, x_565); -lean_ctor_set(x_566, 1, x_564); -x_567 = lean_array_push(x_561, x_566); -x_568 = lean_array_push(x_561, x_551); -x_569 = l_Lean_nullKind___closed__2; -x_570 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_570, 0, x_569); -lean_ctor_set(x_570, 1, x_568); -x_571 = lean_array_push(x_567, x_570); -x_572 = l_Lean_mkAppStx___closed__8; -x_573 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_573, 0, x_572); -lean_ctor_set(x_573, 1, x_571); -lean_ctor_set(x_548, 0, x_573); -lean_ctor_set(x_552, 0, x_548); -return x_552; -} -else -{ -lean_object* x_574; lean_object* x_575; lean_object* x_576; lean_object* x_577; lean_object* x_578; lean_object* x_579; lean_object* x_580; lean_object* x_581; lean_object* x_582; lean_object* x_583; 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; -x_574 = lean_ctor_get(x_552, 0); -x_575 = lean_ctor_get(x_552, 1); -lean_inc(x_575); -lean_inc(x_574); -lean_dec(x_552); -x_576 = lean_box(0); -x_577 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; -x_578 = lean_name_mk_numeral(x_577, x_574); -x_579 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; -x_580 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -x_581 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_581, 0, x_576); -lean_ctor_set(x_581, 1, x_579); -lean_ctor_set(x_581, 2, x_578); -lean_ctor_set(x_581, 3, x_580); -x_582 = l_Array_empty___closed__1; -x_583 = lean_array_push(x_582, x_581); -x_584 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_585 = lean_array_push(x_583, x_584); -x_586 = l_Lean_mkTermIdFromIdent___closed__2; -x_587 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_587, 0, x_586); -lean_ctor_set(x_587, 1, x_585); -x_588 = lean_array_push(x_582, x_587); -x_589 = lean_array_push(x_582, x_551); -x_590 = l_Lean_nullKind___closed__2; -x_591 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_591, 0, x_590); -lean_ctor_set(x_591, 1, x_589); -x_592 = lean_array_push(x_588, x_591); -x_593 = l_Lean_mkAppStx___closed__8; -x_594 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_594, 0, x_593); -lean_ctor_set(x_594, 1, x_592); -lean_ctor_set(x_548, 0, x_594); -x_595 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_595, 0, x_548); -lean_ctor_set(x_595, 1, x_575); -return x_595; +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_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; -x_596 = lean_ctor_get(x_548, 0); -x_597 = lean_ctor_get(x_548, 1); -lean_inc(x_597); -lean_inc(x_596); -lean_dec(x_548); -x_598 = l_Lean_Elab_Term_getCurrMacroScope(x_4, 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; 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_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; +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_598); - x_601 = lean_box(0); + lean_dec_ref(x_552); + x_555 = lean_box(0); } -x_602 = lean_box(0); -x_603 = l_Lean_Elab_Term_toParserDescrAux___main___closed__46; -x_604 = lean_name_mk_numeral(x_603, x_599); -x_605 = l_Lean_Elab_Term_toParserDescrAux___main___closed__45; -x_606 = l_Lean_Elab_Term_toParserDescrAux___main___closed__49; -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_596); -x_616 = l_Lean_nullKind___closed__2; +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_614, x_617); -x_619 = l_Lean_mkAppStx___closed__8; -x_620 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_620, 0, x_619); -lean_ctor_set(x_620, 1, x_618); -x_621 = lean_alloc_ctor(0, 2, 0); +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_597); -if (lean_is_scalar(x_601)) { - x_622 = lean_alloc_ctor(0, 2, 0); -} else { - x_622 = x_601; -} -lean_ctor_set(x_622, 0, x_621); -lean_ctor_set(x_622, 1, x_600); -return x_622; -} -} -block_699: -{ -uint8_t x_626; -x_626 = !lean_is_exclusive(x_624); -if (x_626 == 0) -{ -lean_object* x_627; lean_object* x_628; uint8_t x_629; -x_627 = lean_ctor_get(x_624, 0); -x_628 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_625); -lean_dec(x_4); -x_629 = !lean_is_exclusive(x_628); -if (x_629 == 0) -{ -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; -x_630 = lean_ctor_get(x_628, 0); -x_631 = lean_box(0); -x_632 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -x_633 = lean_name_mk_numeral(x_632, x_630); -x_634 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -x_635 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; -x_636 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_636, 0, x_631); -lean_ctor_set(x_636, 1, x_634); -lean_ctor_set(x_636, 2, x_633); -lean_ctor_set(x_636, 3, x_635); -x_637 = l_Array_empty___closed__1; -x_638 = lean_array_push(x_637, x_636); -x_639 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_640 = lean_array_push(x_638, x_639); -x_641 = l_Lean_mkTermIdFromIdent___closed__2; -x_642 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_642, 0, x_641); -lean_ctor_set(x_642, 1, x_640); -x_643 = lean_array_push(x_637, x_642); -x_644 = lean_array_push(x_637, x_627); -x_645 = l_Lean_nullKind___closed__2; -x_646 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_646, 0, x_645); -lean_ctor_set(x_646, 1, x_644); -x_647 = lean_array_push(x_643, x_646); -x_648 = l_Lean_mkAppStx___closed__8; -x_649 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_649, 0, x_648); -lean_ctor_set(x_649, 1, x_647); -lean_ctor_set(x_624, 0, x_649); -lean_ctor_set(x_628, 0, x_624); -return x_628; -} -else -{ -lean_object* x_650; 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_650 = lean_ctor_get(x_628, 0); -x_651 = lean_ctor_get(x_628, 1); -lean_inc(x_651); -lean_inc(x_650); -lean_dec(x_628); -x_652 = lean_box(0); -x_653 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -x_654 = lean_name_mk_numeral(x_653, x_650); -x_655 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -x_656 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; -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_627); -x_666 = l_Lean_nullKind___closed__2; -x_667 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_667, 0, x_666); -lean_ctor_set(x_667, 1, x_665); -x_668 = lean_array_push(x_664, x_667); -x_669 = l_Lean_mkAppStx___closed__8; -x_670 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_670, 0, x_669); -lean_ctor_set(x_670, 1, x_668); -lean_ctor_set(x_624, 0, x_670); -x_671 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_671, 0, x_624); -lean_ctor_set(x_671, 1, x_651); -return x_671; +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_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; lean_object* x_695; lean_object* x_696; lean_object* x_697; lean_object* x_698; -x_672 = lean_ctor_get(x_624, 0); -x_673 = lean_ctor_get(x_624, 1); -lean_inc(x_673); -lean_inc(x_672); -lean_dec(x_624); -x_674 = l_Lean_Elab_Term_getCurrMacroScope(x_4, x_625); +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_675 = lean_ctor_get(x_674, 0); -lean_inc(x_675); -x_676 = lean_ctor_get(x_674, 1); -lean_inc(x_676); -if (lean_is_exclusive(x_674)) { - lean_ctor_release(x_674, 0); - lean_ctor_release(x_674, 1); - x_677 = x_674; +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_674); - x_677 = lean_box(0); + lean_dec_ref(x_628); + x_631 = lean_box(0); } -x_678 = lean_box(0); -x_679 = l_Lean_Elab_Term_toParserDescrAux___main___closed__53; -x_680 = lean_name_mk_numeral(x_679, x_675); -x_681 = l_Lean_Elab_Term_toParserDescrAux___main___closed__52; -x_682 = l_Lean_Elab_Term_toParserDescrAux___main___closed__56; -x_683 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_683, 0, x_678); -lean_ctor_set(x_683, 1, x_681); -lean_ctor_set(x_683, 2, x_680); -lean_ctor_set(x_683, 3, x_682); -x_684 = l_Array_empty___closed__1; -x_685 = lean_array_push(x_684, x_683); -x_686 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_687 = lean_array_push(x_685, x_686); -x_688 = l_Lean_mkTermIdFromIdent___closed__2; -x_689 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_689, 0, x_688); -lean_ctor_set(x_689, 1, x_687); -x_690 = lean_array_push(x_684, x_689); -x_691 = lean_array_push(x_684, x_672); -x_692 = l_Lean_nullKind___closed__2; +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_690, x_693); -x_695 = l_Lean_mkAppStx___closed__8; -x_696 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_696, 0, x_695); -lean_ctor_set(x_696, 1, x_694); -x_697 = lean_alloc_ctor(0, 2, 0); +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_673); -if (lean_is_scalar(x_677)) { - x_698 = lean_alloc_ctor(0, 2, 0); +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 { - x_698 = x_677; + lean_dec_ref(x_704); + x_707 = lean_box(0); } -lean_ctor_set(x_698, 0, x_697); -lean_ctor_set(x_698, 1, x_676); -return x_698; +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_733: +block_763: { -uint8_t x_702; -x_702 = !lean_is_exclusive(x_700); -if (x_702 == 0) +uint8_t x_732; +x_732 = !lean_is_exclusive(x_730); +if (x_732 == 0) { -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; -x_703 = lean_ctor_get(x_700, 0); -x_704 = lean_box(0); -x_705 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; -x_706 = lean_name_mk_numeral(x_705, x_703); -x_707 = l_Lean_Elab_Term_toParserDescrAux___main___closed__59; -x_708 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; -x_709 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_709, 0, x_704); -lean_ctor_set(x_709, 1, x_707); -lean_ctor_set(x_709, 2, x_706); -lean_ctor_set(x_709, 3, x_708); -x_710 = l_Array_empty___closed__1; -x_711 = lean_array_push(x_710, x_709); -x_712 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_713 = lean_array_push(x_711, x_712); -x_714 = l_Lean_mkTermIdFromIdent___closed__2; -x_715 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_715, 0, x_714); -lean_ctor_set(x_715, 1, x_713); -lean_ctor_set(x_700, 0, x_715); -x_716 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_716, 0, x_700); -lean_ctor_set(x_716, 1, x_701); -return x_716; +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_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; lean_object* x_729; lean_object* x_730; lean_object* x_731; lean_object* x_732; -x_717 = lean_ctor_get(x_700, 0); -x_718 = lean_ctor_get(x_700, 1); -lean_inc(x_718); -lean_inc(x_717); -lean_dec(x_700); -x_719 = lean_box(0); -x_720 = l_Lean_Elab_Term_toParserDescrAux___main___closed__61; -x_721 = lean_name_mk_numeral(x_720, x_717); -x_722 = l_Lean_Elab_Term_toParserDescrAux___main___closed__59; -x_723 = l_Lean_Elab_Term_toParserDescrAux___main___closed__64; -x_724 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_724, 0, x_719); -lean_ctor_set(x_724, 1, x_722); -lean_ctor_set(x_724, 2, x_721); -lean_ctor_set(x_724, 3, x_723); -x_725 = l_Array_empty___closed__1; -x_726 = lean_array_push(x_725, x_724); -x_727 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_728 = lean_array_push(x_726, x_727); -x_729 = l_Lean_mkTermIdFromIdent___closed__2; -x_730 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_730, 0, x_729); -lean_ctor_set(x_730, 1, x_728); -x_731 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_731, 0, x_730); -lean_ctor_set(x_731, 1, x_718); -x_732 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_732, 0, x_731); -lean_ctor_set(x_732, 1, x_701); -return x_732; +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_1285; lean_object* x_1286; +lean_object* x_1336; lean_object* x_1337; lean_dec(x_6); -x_1285 = lean_unsigned_to_nat(0u); -x_1286 = l_Lean_Syntax_getArg(x_1, x_1285); +x_1336 = lean_unsigned_to_nat(0u); +x_1337 = l_Lean_Syntax_getArg(x_1, x_1336); lean_dec(x_1); -x_1 = x_1286; +x_1 = x_1337; goto _start; } } else { -lean_object* x_1288; lean_object* x_1289; lean_object* x_1290; +lean_object* x_1339; lean_object* x_1340; lean_object* x_1341; lean_dec(x_6); -x_1288 = l_Lean_Syntax_getArgs(x_1); +x_1339 = l_Lean_Syntax_getArgs(x_1); lean_dec(x_1); -x_1289 = lean_unsigned_to_nat(0u); +x_1340 = lean_unsigned_to_nat(0u); lean_inc(x_4); -x_1290 = l_Array_umapMAux___main___at_Lean_Elab_Term_toParserDescrAux___main___spec__2(x_1289, x_1288, x_2, x_3, x_4, x_5); -if (lean_obj_tag(x_1290) == 0) +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) { -lean_object* x_1291; lean_object* x_1292; uint8_t x_1293; -x_1291 = lean_ctor_get(x_1290, 0); -lean_inc(x_1291); -x_1292 = lean_ctor_get(x_1290, 1); -lean_inc(x_1292); -lean_dec(x_1290); -x_1293 = !lean_is_exclusive(x_1291); -if (x_1293 == 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_1294; lean_object* x_1295; lean_object* x_1296; -x_1294 = lean_ctor_get(x_1291, 0); -x_1295 = lean_ctor_get(x_1291, 1); -x_1296 = l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(x_1294, x_4, x_1292); +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_dec(x_4); -lean_dec(x_1294); -if (lean_obj_tag(x_1296) == 0) +lean_dec(x_1345); +if (lean_obj_tag(x_1347) == 0) { -uint8_t x_1297; -x_1297 = !lean_is_exclusive(x_1296); -if (x_1297 == 0) +uint8_t x_1348; +x_1348 = !lean_is_exclusive(x_1347); +if (x_1348 == 0) { -lean_object* x_1298; -x_1298 = lean_ctor_get(x_1296, 0); -lean_ctor_set(x_1291, 0, x_1298); -lean_ctor_set(x_1296, 0, x_1291); -return x_1296; +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; } else { -lean_object* x_1299; lean_object* x_1300; lean_object* x_1301; -x_1299 = lean_ctor_get(x_1296, 0); -x_1300 = lean_ctor_get(x_1296, 1); -lean_inc(x_1300); -lean_inc(x_1299); -lean_dec(x_1296); -lean_ctor_set(x_1291, 0, x_1299); -x_1301 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1301, 0, x_1291); -lean_ctor_set(x_1301, 1, x_1300); -return x_1301; +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; } } else { -uint8_t x_1302; -lean_free_object(x_1291); -lean_dec(x_1295); -x_1302 = !lean_is_exclusive(x_1296); -if (x_1302 == 0) +uint8_t x_1353; +lean_free_object(x_1342); +lean_dec(x_1346); +x_1353 = !lean_is_exclusive(x_1347); +if (x_1353 == 0) { -return x_1296; +return x_1347; } else { -lean_object* x_1303; lean_object* x_1304; lean_object* x_1305; -x_1303 = lean_ctor_get(x_1296, 0); -x_1304 = lean_ctor_get(x_1296, 1); -lean_inc(x_1304); -lean_inc(x_1303); -lean_dec(x_1296); -x_1305 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1305, 0, x_1303); -lean_ctor_set(x_1305, 1, x_1304); -return x_1305; +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; } } } else { -lean_object* x_1306; lean_object* x_1307; lean_object* x_1308; -x_1306 = lean_ctor_get(x_1291, 0); -x_1307 = lean_ctor_get(x_1291, 1); -lean_inc(x_1307); -lean_inc(x_1306); -lean_dec(x_1291); -x_1308 = l___private_Init_Lean_Elab_Syntax_2__mkParserSeq(x_1306, x_4, x_1292); +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_dec(x_4); -lean_dec(x_1306); -if (lean_obj_tag(x_1308) == 0) +lean_dec(x_1357); +if (lean_obj_tag(x_1359) == 0) { -lean_object* x_1309; lean_object* x_1310; lean_object* x_1311; lean_object* x_1312; lean_object* x_1313; -x_1309 = lean_ctor_get(x_1308, 0); -lean_inc(x_1309); -x_1310 = lean_ctor_get(x_1308, 1); -lean_inc(x_1310); -if (lean_is_exclusive(x_1308)) { - lean_ctor_release(x_1308, 0); - lean_ctor_release(x_1308, 1); - x_1311 = x_1308; +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; } else { - lean_dec_ref(x_1308); - x_1311 = lean_box(0); + lean_dec_ref(x_1359); + x_1362 = lean_box(0); } -x_1312 = lean_alloc_ctor(0, 2, 0); -lean_ctor_set(x_1312, 0, x_1309); -lean_ctor_set(x_1312, 1, x_1307); -if (lean_is_scalar(x_1311)) { - x_1313 = lean_alloc_ctor(0, 2, 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); } else { - x_1313 = x_1311; + x_1364 = x_1362; } -lean_ctor_set(x_1313, 0, x_1312); -lean_ctor_set(x_1313, 1, x_1310); -return x_1313; +lean_ctor_set(x_1364, 0, x_1363); +lean_ctor_set(x_1364, 1, x_1361); +return x_1364; } else { -lean_object* x_1314; lean_object* x_1315; lean_object* x_1316; lean_object* x_1317; -lean_dec(x_1307); -x_1314 = lean_ctor_get(x_1308, 0); -lean_inc(x_1314); -x_1315 = lean_ctor_get(x_1308, 1); -lean_inc(x_1315); -if (lean_is_exclusive(x_1308)) { - lean_ctor_release(x_1308, 0); - lean_ctor_release(x_1308, 1); - x_1316 = x_1308; +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; } else { - lean_dec_ref(x_1308); - x_1316 = lean_box(0); + lean_dec_ref(x_1359); + x_1367 = lean_box(0); } -if (lean_is_scalar(x_1316)) { - x_1317 = lean_alloc_ctor(1, 2, 0); +if (lean_is_scalar(x_1367)) { + x_1368 = lean_alloc_ctor(1, 2, 0); } else { - x_1317 = x_1316; + x_1368 = x_1367; } -lean_ctor_set(x_1317, 0, x_1314); -lean_ctor_set(x_1317, 1, x_1315); -return x_1317; +lean_ctor_set(x_1368, 0, x_1365); +lean_ctor_set(x_1368, 1, x_1366); +return x_1368; } } } else { -uint8_t x_1318; +uint8_t x_1369; lean_dec(x_4); -x_1318 = !lean_is_exclusive(x_1290); -if (x_1318 == 0) +x_1369 = !lean_is_exclusive(x_1341); +if (x_1369 == 0) { -return x_1290; +return x_1341; } else { -lean_object* x_1319; lean_object* x_1320; lean_object* x_1321; -x_1319 = lean_ctor_get(x_1290, 0); -x_1320 = lean_ctor_get(x_1290, 1); -lean_inc(x_1320); -lean_inc(x_1319); -lean_dec(x_1290); -x_1321 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_1321, 0, x_1319); -lean_ctor_set(x_1321, 1, x_1320); -return x_1321; +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; } } } @@ -6124,376 +6414,107 @@ x_7 = l_Lean_Elab_Term_toParserDescrAux(x_1, x_2, x_6, x_4, x_5); return x_7; } } -lean_object* l_Lean_Elab_Term_toParserDescr(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Elab_Term_toParserDescr(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -if (x_3 == 0) -{ -lean_object* x_6; uint8_t x_7; lean_object* x_8; -x_6 = lean_alloc_ctor(3, 1, 0); -lean_ctor_set(x_6, 0, x_2); -x_7 = 0; -x_8 = l_Lean_Elab_Term_toParserDescrAux___main(x_1, x_6, x_7, x_4, x_5); -return x_8; -} -else -{ -lean_object* x_9; uint8_t x_10; lean_object* x_11; -x_9 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_9, 0, x_2); -x_10 = 0; -x_11 = l_Lean_Elab_Term_toParserDescrAux___main(x_1, x_9, x_10, x_4, x_5); -return x_11; -} -} -} -lean_object* l_Lean_Elab_Term_toParserDescr___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_Lean_Elab_Term_toParserDescr(x_1, x_2, x_6, x_4, x_5); +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* l_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; uint8_t x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; +lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; x_4 = lean_unsigned_to_nat(1u); x_5 = l_Lean_Syntax_getIdAt(x_1, x_4); -x_6 = lean_unsigned_to_nat(2u); -x_7 = l_Lean_Syntax_getArg(x_1, x_6); -x_8 = l_Lean_Syntax_isNone(x_7); -x_9 = l_Lean_mkAppStx___closed__3; +x_6 = l_Lean_mkAppStx___closed__3; lean_inc(x_5); -x_10 = l_Lean_Name_appendAfter(x_5, x_9); +x_7 = l_Lean_Name_appendAfter(x_5, x_6); lean_inc(x_2); -x_11 = l_Lean_Elab_Command_getEnv(x_2, x_3); -if (x_8 == 0) +x_8 = l_Lean_Elab_Command_getEnv(x_2, x_3); +if (lean_obj_tag(x_8) == 0) { -lean_object* x_43; -x_43 = l_Lean_Syntax_getArg(x_7, x_4); -lean_dec(x_7); -if (lean_obj_tag(x_43) == 2) +lean_object* x_9; lean_object* x_10; uint8_t x_11; lean_object* x_12; +x_9 = lean_ctor_get(x_8, 0); +lean_inc(x_9); +x_10 = lean_ctor_get(x_8, 1); +lean_inc(x_10); +lean_dec(x_8); +x_11 = 0; +x_12 = l_Lean_Parser_registerParserCategory(x_9, x_7, x_5, x_11, x_10); +if (lean_obj_tag(x_12) == 0) { -lean_object* x_44; lean_object* x_45; uint8_t x_46; -x_44 = lean_ctor_get(x_43, 1); -lean_inc(x_44); -lean_dec(x_43); -x_45 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__7; -x_46 = lean_string_dec_eq(x_44, x_45); -lean_dec(x_44); -if (x_46 == 0) -{ -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_47; lean_object* x_48; uint8_t x_49; -x_47 = lean_ctor_get(x_11, 0); -lean_inc(x_47); -x_48 = lean_ctor_get(x_11, 1); -lean_inc(x_48); -lean_dec(x_11); -x_49 = 0; -x_12 = x_49; -x_13 = x_47; -x_14 = x_48; -goto block_42; +lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_13 = lean_ctor_get(x_12, 0); +lean_inc(x_13); +x_14 = lean_ctor_get(x_12, 1); +lean_inc(x_14); +lean_dec(x_12); +x_15 = l_Lean_Elab_Command_setEnv(x_13, x_2, x_14); +return x_15; } else { -uint8_t x_50; -lean_dec(x_10); -lean_dec(x_5); -lean_dec(x_2); -x_50 = !lean_is_exclusive(x_11); -if (x_50 == 0) -{ -return x_11; -} -else -{ -lean_object* x_51; lean_object* x_52; lean_object* x_53; -x_51 = lean_ctor_get(x_11, 0); -x_52 = lean_ctor_get(x_11, 1); -lean_inc(x_52); -lean_inc(x_51); -lean_dec(x_11); -x_53 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_53, 0, x_51); -lean_ctor_set(x_53, 1, x_52); -return x_53; -} -} -} -else -{ -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_54; lean_object* x_55; uint8_t x_56; -x_54 = lean_ctor_get(x_11, 0); -lean_inc(x_54); -x_55 = lean_ctor_get(x_11, 1); -lean_inc(x_55); -lean_dec(x_11); -x_56 = 1; -x_12 = x_56; -x_13 = x_54; -x_14 = x_55; -goto block_42; -} -else -{ -uint8_t x_57; -lean_dec(x_10); -lean_dec(x_5); -lean_dec(x_2); -x_57 = !lean_is_exclusive(x_11); -if (x_57 == 0) -{ -return x_11; -} -else -{ -lean_object* x_58; lean_object* x_59; lean_object* x_60; -x_58 = lean_ctor_get(x_11, 0); -x_59 = lean_ctor_get(x_11, 1); -lean_inc(x_59); -lean_inc(x_58); -lean_dec(x_11); -x_60 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_60, 0, x_58); -lean_ctor_set(x_60, 1, x_59); -return x_60; -} -} -} -} -else -{ -lean_dec(x_43); -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_61; lean_object* x_62; uint8_t x_63; -x_61 = lean_ctor_get(x_11, 0); -lean_inc(x_61); -x_62 = lean_ctor_get(x_11, 1); -lean_inc(x_62); -lean_dec(x_11); -x_63 = 0; -x_12 = x_63; -x_13 = x_61; -x_14 = x_62; -goto block_42; -} -else -{ -uint8_t x_64; -lean_dec(x_10); -lean_dec(x_5); -lean_dec(x_2); -x_64 = !lean_is_exclusive(x_11); -if (x_64 == 0) -{ -return x_11; -} -else -{ -lean_object* x_65; lean_object* x_66; lean_object* x_67; -x_65 = lean_ctor_get(x_11, 0); -x_66 = lean_ctor_get(x_11, 1); -lean_inc(x_66); -lean_inc(x_65); -lean_dec(x_11); -x_67 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_67, 0, x_65); -lean_ctor_set(x_67, 1, x_66); -return x_67; -} -} -} -} -else -{ -lean_dec(x_7); -if (lean_obj_tag(x_11) == 0) -{ -lean_object* x_68; lean_object* x_69; lean_object* x_70; -x_68 = lean_ctor_get(x_11, 0); -lean_inc(x_68); -x_69 = lean_ctor_get(x_11, 1); -lean_inc(x_69); -lean_dec(x_11); -x_70 = l_Lean_Parser_registerSimpleParserCategory(x_68, x_10, x_5, x_69); -if (lean_obj_tag(x_70) == 0) -{ -lean_object* x_71; lean_object* x_72; lean_object* x_73; -x_71 = lean_ctor_get(x_70, 0); -lean_inc(x_71); -x_72 = lean_ctor_get(x_70, 1); -lean_inc(x_72); -lean_dec(x_70); -x_73 = l_Lean_Elab_Command_setEnv(x_71, x_2, x_72); -return x_73; -} -else -{ -uint8_t x_74; -x_74 = !lean_is_exclusive(x_70); -if (x_74 == 0) -{ -lean_object* x_75; lean_object* x_76; lean_object* x_77; -x_75 = lean_ctor_get(x_70, 0); -x_76 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_75); -x_77 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_77, 0, x_76); -lean_ctor_set(x_70, 0, x_77); -return x_70; -} -else -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; -x_78 = lean_ctor_get(x_70, 0); -x_79 = lean_ctor_get(x_70, 1); -lean_inc(x_79); -lean_inc(x_78); -lean_dec(x_70); -x_80 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_78); -x_81 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_81, 0, x_80); -x_82 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_82, 0, x_81); -lean_ctor_set(x_82, 1, x_79); -return x_82; -} -} -} -else -{ -uint8_t x_83; -lean_dec(x_10); -lean_dec(x_5); -lean_dec(x_2); -x_83 = !lean_is_exclusive(x_11); -if (x_83 == 0) -{ -return x_11; -} -else -{ -lean_object* x_84; lean_object* x_85; lean_object* x_86; -x_84 = lean_ctor_get(x_11, 0); -x_85 = lean_ctor_get(x_11, 1); -lean_inc(x_85); -lean_inc(x_84); -lean_dec(x_11); -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_84); -lean_ctor_set(x_86, 1, x_85); -return x_86; -} -} -} -block_42: -{ -if (x_12 == 0) -{ -uint8_t x_15; lean_object* x_16; -x_15 = 0; -x_16 = l_Lean_Parser_registerPrattParserCategory(x_13, x_10, x_5, x_15, x_14); -if (lean_obj_tag(x_16) == 0) +uint8_t x_16; +x_16 = !lean_is_exclusive(x_12); +if (x_16 == 0) { lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_16, 0); -lean_inc(x_17); -x_18 = lean_ctor_get(x_16, 1); -lean_inc(x_18); -lean_dec(x_16); -x_19 = l_Lean_Elab_Command_setEnv(x_17, x_2, x_18); -return x_19; +x_17 = lean_ctor_get(x_12, 0); +x_18 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_17); +x_19 = lean_alloc_ctor(0, 1, 0); +lean_ctor_set(x_19, 0, x_18); +lean_ctor_set(x_12, 0, x_19); +return x_12; } else { -uint8_t x_20; -x_20 = !lean_is_exclusive(x_16); -if (x_20 == 0) -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; -x_21 = lean_ctor_get(x_16, 0); -x_22 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_21); +lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; +x_20 = lean_ctor_get(x_12, 0); +x_21 = lean_ctor_get(x_12, 1); +lean_inc(x_21); +lean_inc(x_20); +lean_dec(x_12); +x_22 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_20); x_23 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_23, 0, x_22); -lean_ctor_set(x_16, 0, x_23); -return x_16; +x_24 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_24, 0, x_23); +lean_ctor_set(x_24, 1, x_21); +return x_24; +} +} } else { -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; -x_24 = lean_ctor_get(x_16, 0); -x_25 = lean_ctor_get(x_16, 1); -lean_inc(x_25); -lean_inc(x_24); -lean_dec(x_16); -x_26 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_24); -x_27 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_27, 0, x_26); +uint8_t x_25; +lean_dec(x_7); +lean_dec(x_5); +lean_dec(x_2); +x_25 = !lean_is_exclusive(x_8); +if (x_25 == 0) +{ +return x_8; +} +else +{ +lean_object* x_26; lean_object* x_27; lean_object* x_28; +x_26 = lean_ctor_get(x_8, 0); +x_27 = lean_ctor_get(x_8, 1); +lean_inc(x_27); +lean_inc(x_26); +lean_dec(x_8); x_28 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_28, 0, x_27); -lean_ctor_set(x_28, 1, x_25); +lean_ctor_set(x_28, 0, x_26); +lean_ctor_set(x_28, 1, x_27); return x_28; } } } -else -{ -lean_object* x_29; -x_29 = l_Lean_Parser_registerSimpleParserCategory(x_13, x_10, x_5, x_14); -if (lean_obj_tag(x_29) == 0) -{ -lean_object* x_30; lean_object* x_31; lean_object* x_32; -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -x_31 = lean_ctor_get(x_29, 1); -lean_inc(x_31); -lean_dec(x_29); -x_32 = l_Lean_Elab_Command_setEnv(x_30, x_2, x_31); -return x_32; -} -else -{ -uint8_t x_33; -x_33 = !lean_is_exclusive(x_29); -if (x_33 == 0) -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; -x_34 = lean_ctor_get(x_29, 0); -x_35 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_34); -x_36 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_36, 0, x_35); -lean_ctor_set(x_29, 0, x_36); -return x_29; -} -else -{ -lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; -x_37 = lean_ctor_get(x_29, 0); -x_38 = lean_ctor_get(x_29, 1); -lean_inc(x_38); -lean_inc(x_37); -lean_dec(x_29); -x_39 = l___private_Init_Lean_Elab_Command_1__ioErrorToMessage(x_2, x_1, x_37); -x_40 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_40, 0, x_39); -x_41 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_41, 0, x_40); -lean_ctor_set(x_41, 1, x_38); -return x_41; -} -} -} -} -} } lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: @@ -6735,14 +6756,14 @@ lean_dec(x_1); return x_5; } } -lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { +lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { _start: { -lean_object* x_7; lean_object* x_8; lean_object* x_9; -x_7 = lean_unsigned_to_nat(2u); -x_8 = l_Lean_Syntax_getArg(x_1, x_7); -x_9 = l_Lean_Elab_Term_toParserDescr(x_8, x_2, x_3, x_5, x_6); -return x_9; +lean_object* x_6; lean_object* x_7; lean_object* x_8; +x_6 = lean_unsigned_to_nat(2u); +x_7 = l_Lean_Syntax_getArg(x_1, x_6); +x_8 = l_Lean_Elab_Term_toParserDescr(x_7, x_2, x_4, x_5); +return x_8; } } lean_object* _init_l_Lean_Elab_Command_elabSyntax___closed__1() { @@ -7053,7 +7074,7 @@ lean_inc(x_2); x_4 = l_Lean_Elab_Command_getEnv(x_2, x_3); if (lean_obj_tag(x_4) == 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; uint8_t x_389; +lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; uint8_t x_387; x_5 = lean_ctor_get(x_4, 0); lean_inc(x_5); x_6 = lean_ctor_get(x_4, 1); @@ -7062,1165 +7083,1161 @@ lean_dec(x_4); x_7 = lean_unsigned_to_nat(4u); x_8 = l_Lean_Syntax_getIdAt(x_1, x_7); x_9 = l_Lean_Name_eraseMacroScopes(x_8); -x_389 = l_Lean_Parser_isParserCategory(x_5, x_9); -if (x_389 == 0) -{ -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; uint8_t x_397; +x_387 = l_Lean_Parser_isParserCategory(x_5, x_9); lean_dec(x_5); -x_390 = l_Lean_Syntax_getArg(x_1, x_7); -lean_dec(x_1); -x_391 = lean_alloc_ctor(4, 1, 0); -lean_ctor_set(x_391, 0, x_9); -x_392 = l_Lean_Elab_Term_toParserDescrAux___main___closed__126; -x_393 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_393, 0, x_392); -lean_ctor_set(x_393, 1, x_391); -x_394 = l_Lean_Elab_Term_mkConst___closed__4; -x_395 = lean_alloc_ctor(9, 2, 0); -lean_ctor_set(x_395, 0, x_393); -lean_ctor_set(x_395, 1, x_394); -x_396 = l_Lean_Elab_Command_throwError___rarg(x_390, x_395, x_2, x_6); -lean_dec(x_390); -x_397 = !lean_is_exclusive(x_396); -if (x_397 == 0) +if (x_387 == 0) { -return x_396; +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; uint8_t x_395; +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_391 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_391, 0, x_390); +lean_ctor_set(x_391, 1, x_389); +x_392 = l_Lean_Elab_Term_mkConst___closed__4; +x_393 = lean_alloc_ctor(9, 2, 0); +lean_ctor_set(x_393, 0, x_391); +lean_ctor_set(x_393, 1, x_392); +x_394 = l_Lean_Elab_Command_throwError___rarg(x_388, x_393, x_2, x_6); +lean_dec(x_388); +x_395 = !lean_is_exclusive(x_394); +if (x_395 == 0) +{ +return x_394; } else { -lean_object* x_398; lean_object* x_399; lean_object* x_400; -x_398 = lean_ctor_get(x_396, 0); -x_399 = lean_ctor_get(x_396, 1); -lean_inc(x_399); -lean_inc(x_398); -lean_dec(x_396); -x_400 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_400, 0, x_398); -lean_ctor_set(x_400, 1, x_399); -return x_400; +lean_object* x_396; lean_object* x_397; lean_object* x_398; +x_396 = lean_ctor_get(x_394, 0); +x_397 = lean_ctor_get(x_394, 1); +lean_inc(x_397); +lean_inc(x_396); +lean_dec(x_394); +x_398 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_398, 0, x_396); +lean_ctor_set(x_398, 1, x_397); +return x_398; } } else { x_10 = x_6; -goto block_388; +goto block_386; } -block_388: +block_386: { -uint8_t x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; -x_11 = l_Lean_Parser_isSimpleParserCategory(x_5, x_9); -lean_dec(x_5); -x_12 = lean_unsigned_to_nat(1u); -x_13 = l_Lean_Syntax_getArg(x_1, x_12); +lean_object* x_11; lean_object* x_12; lean_object* x_13; +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_14 = l___private_Init_Lean_Elab_Syntax_7__elabKind(x_13, x_9, x_2, x_10); -lean_dec(x_13); -if (lean_obj_tag(x_14) == 0) +x_13 = l___private_Init_Lean_Elab_Syntax_7__elabKind(x_12, x_9, x_2, x_10); +lean_dec(x_12); +if (lean_obj_tag(x_13) == 0) { -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_293; lean_object* x_294; lean_object* x_295; lean_object* x_296; -x_15 = lean_ctor_get(x_14, 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_292; lean_object* x_293; lean_object* x_294; +x_14 = lean_ctor_get(x_13, 0); +lean_inc(x_14); +x_15 = lean_ctor_get(x_13, 1); lean_inc(x_15); -x_16 = lean_ctor_get(x_14, 1); -lean_inc(x_16); -lean_dec(x_14); -x_17 = l_Lean_mkAppStx___closed__3; +lean_dec(x_13); +x_16 = l_Lean_mkAppStx___closed__3; lean_inc(x_9); -x_18 = l_Lean_Name_appendAfter(x_9, x_17); -x_19 = l_Lean_mkIdentFrom(x_1, x_18); -x_293 = lean_box(0); -x_294 = lean_box(x_11); +x_17 = l_Lean_Name_appendAfter(x_9, x_16); +x_18 = l_Lean_mkIdentFrom(x_1, x_17); +x_292 = lean_box(0); lean_inc(x_1); -x_295 = lean_alloc_closure((void*)(l_Lean_Elab_Command_elabSyntax___lambda__1___boxed), 6, 3); -lean_closure_set(x_295, 0, x_1); -lean_closure_set(x_295, 1, x_9); -lean_closure_set(x_295, 2, x_294); +x_293 = lean_alloc_closure((void*)(l_Lean_Elab_Command_elabSyntax___lambda__1___boxed), 5, 2); +lean_closure_set(x_293, 0, x_1); +lean_closure_set(x_293, 1, x_9); lean_inc(x_2); -x_296 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_16); -if (lean_obj_tag(x_296) == 0) +x_294 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_15); +if (lean_obj_tag(x_294) == 0) { -lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; lean_object* x_301; lean_object* x_302; -x_297 = lean_ctor_get(x_296, 0); -lean_inc(x_297); -x_298 = lean_ctor_get(x_296, 1); -lean_inc(x_298); -lean_dec(x_296); -x_299 = l___private_Init_Lean_Elab_Command_8__getVarDecls(x_297); -x_300 = l___private_Init_Lean_Elab_Command_6__mkTermContext(x_2, x_297, x_293); -x_301 = l___private_Init_Lean_Elab_Command_7__mkTermState(x_297); -lean_dec(x_297); -x_302 = l_Lean_Elab_Term_elabBinders___rarg(x_299, x_295, x_300, x_301); -lean_dec(x_299); -if (lean_obj_tag(x_302) == 0) -{ -lean_object* x_303; lean_object* x_304; lean_object* x_305; -x_303 = lean_ctor_get(x_302, 0); -lean_inc(x_303); -x_304 = lean_ctor_get(x_302, 1); -lean_inc(x_304); -lean_dec(x_302); -lean_inc(x_2); -x_305 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_298); -if (lean_obj_tag(x_305) == 0) -{ -lean_object* x_306; lean_object* x_307; lean_object* x_308; lean_object* x_309; lean_object* x_310; uint8_t x_311; -x_306 = lean_ctor_get(x_304, 0); -lean_inc(x_306); -x_307 = lean_ctor_get(x_305, 0); -lean_inc(x_307); -x_308 = lean_ctor_get(x_305, 1); -lean_inc(x_308); -lean_dec(x_305); -x_309 = lean_ctor_get(x_306, 0); -lean_inc(x_309); -lean_dec(x_306); -x_310 = lean_ctor_get(x_304, 2); -lean_inc(x_310); -lean_dec(x_304); -x_311 = !lean_is_exclusive(x_307); -if (x_311 == 0) -{ -lean_object* x_312; lean_object* x_313; lean_object* x_314; -x_312 = lean_ctor_get(x_307, 1); -lean_dec(x_312); -x_313 = lean_ctor_get(x_307, 0); -lean_dec(x_313); -lean_ctor_set(x_307, 1, x_310); -lean_ctor_set(x_307, 0, x_309); -lean_inc(x_2); -x_314 = l___private_Init_Lean_Elab_Command_3__setState(x_307, x_2, x_308); -if (lean_obj_tag(x_314) == 0) -{ -lean_object* x_315; -x_315 = lean_ctor_get(x_314, 1); -lean_inc(x_315); -lean_dec(x_314); -x_20 = x_303; -x_21 = x_315; -goto block_292; -} -else -{ -uint8_t x_316; -lean_dec(x_303); -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_2); -lean_dec(x_1); -x_316 = !lean_is_exclusive(x_314); -if (x_316 == 0) -{ -return x_314; -} -else -{ -lean_object* x_317; lean_object* x_318; lean_object* x_319; -x_317 = lean_ctor_get(x_314, 0); -x_318 = lean_ctor_get(x_314, 1); -lean_inc(x_318); -lean_inc(x_317); -lean_dec(x_314); -x_319 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_319, 0, x_317); -lean_ctor_set(x_319, 1, x_318); -return x_319; -} -} -} -else -{ -lean_object* x_320; lean_object* x_321; lean_object* x_322; lean_object* x_323; lean_object* x_324; -x_320 = lean_ctor_get(x_307, 2); -x_321 = lean_ctor_get(x_307, 3); -x_322 = lean_ctor_get(x_307, 4); -lean_inc(x_322); -lean_inc(x_321); -lean_inc(x_320); -lean_dec(x_307); -x_323 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_323, 0, x_309); -lean_ctor_set(x_323, 1, x_310); -lean_ctor_set(x_323, 2, x_320); -lean_ctor_set(x_323, 3, x_321); -lean_ctor_set(x_323, 4, x_322); -lean_inc(x_2); -x_324 = l___private_Init_Lean_Elab_Command_3__setState(x_323, x_2, x_308); -if (lean_obj_tag(x_324) == 0) -{ -lean_object* x_325; -x_325 = lean_ctor_get(x_324, 1); -lean_inc(x_325); -lean_dec(x_324); -x_20 = x_303; -x_21 = x_325; -goto block_292; -} -else -{ -lean_object* x_326; lean_object* x_327; lean_object* x_328; lean_object* x_329; -lean_dec(x_303); -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_2); -lean_dec(x_1); -x_326 = lean_ctor_get(x_324, 0); -lean_inc(x_326); -x_327 = lean_ctor_get(x_324, 1); -lean_inc(x_327); -if (lean_is_exclusive(x_324)) { - lean_ctor_release(x_324, 0); - lean_ctor_release(x_324, 1); - x_328 = x_324; -} else { - lean_dec_ref(x_324); - x_328 = lean_box(0); -} -if (lean_is_scalar(x_328)) { - x_329 = lean_alloc_ctor(1, 2, 0); -} else { - x_329 = x_328; -} -lean_ctor_set(x_329, 0, x_326); -lean_ctor_set(x_329, 1, x_327); -return x_329; -} -} -} -else -{ -uint8_t x_330; -lean_dec(x_304); -lean_dec(x_303); -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_2); -lean_dec(x_1); -x_330 = !lean_is_exclusive(x_305); -if (x_330 == 0) -{ -return x_305; -} -else -{ -lean_object* x_331; lean_object* x_332; lean_object* x_333; -x_331 = lean_ctor_get(x_305, 0); -x_332 = lean_ctor_get(x_305, 1); -lean_inc(x_332); -lean_inc(x_331); -lean_dec(x_305); -x_333 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_333, 0, x_331); -lean_ctor_set(x_333, 1, x_332); -return x_333; -} -} -} -else -{ -lean_object* x_334; -x_334 = lean_ctor_get(x_302, 0); -lean_inc(x_334); -if (lean_obj_tag(x_334) == 0) -{ -lean_object* x_335; lean_object* x_336; lean_object* x_337; -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_1); -x_335 = lean_ctor_get(x_302, 1); -lean_inc(x_335); -lean_dec(x_302); -x_336 = lean_ctor_get(x_334, 0); -lean_inc(x_336); -lean_dec(x_334); -lean_inc(x_2); -x_337 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_298); -if (lean_obj_tag(x_337) == 0) -{ -lean_object* x_338; lean_object* x_339; lean_object* x_340; lean_object* x_341; lean_object* x_342; uint8_t x_343; -x_338 = lean_ctor_get(x_335, 0); -lean_inc(x_338); -x_339 = lean_ctor_get(x_337, 0); -lean_inc(x_339); -x_340 = lean_ctor_get(x_337, 1); -lean_inc(x_340); -lean_dec(x_337); -x_341 = lean_ctor_get(x_338, 0); -lean_inc(x_341); -lean_dec(x_338); -x_342 = lean_ctor_get(x_335, 2); -lean_inc(x_342); -lean_dec(x_335); -x_343 = !lean_is_exclusive(x_339); -if (x_343 == 0) -{ -lean_object* x_344; lean_object* x_345; lean_object* x_346; -x_344 = lean_ctor_get(x_339, 1); -lean_dec(x_344); -x_345 = lean_ctor_get(x_339, 0); -lean_dec(x_345); -lean_ctor_set(x_339, 1, x_342); -lean_ctor_set(x_339, 0, x_341); -x_346 = l___private_Init_Lean_Elab_Command_3__setState(x_339, x_2, x_340); -if (lean_obj_tag(x_346) == 0) -{ -uint8_t x_347; -x_347 = !lean_is_exclusive(x_346); -if (x_347 == 0) -{ -lean_object* x_348; -x_348 = lean_ctor_get(x_346, 0); -lean_dec(x_348); -lean_ctor_set_tag(x_346, 1); -lean_ctor_set(x_346, 0, x_336); -return x_346; -} -else -{ -lean_object* x_349; lean_object* x_350; -x_349 = lean_ctor_get(x_346, 1); -lean_inc(x_349); -lean_dec(x_346); -x_350 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_350, 0, x_336); -lean_ctor_set(x_350, 1, x_349); -return x_350; -} -} -else -{ -uint8_t x_351; -lean_dec(x_336); -x_351 = !lean_is_exclusive(x_346); -if (x_351 == 0) -{ -return x_346; -} -else -{ -lean_object* x_352; lean_object* x_353; lean_object* x_354; -x_352 = lean_ctor_get(x_346, 0); -x_353 = lean_ctor_get(x_346, 1); -lean_inc(x_353); -lean_inc(x_352); -lean_dec(x_346); -x_354 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_354, 0, x_352); -lean_ctor_set(x_354, 1, x_353); -return x_354; -} -} -} -else -{ -lean_object* x_355; lean_object* x_356; lean_object* x_357; lean_object* x_358; lean_object* x_359; -x_355 = lean_ctor_get(x_339, 2); -x_356 = lean_ctor_get(x_339, 3); -x_357 = lean_ctor_get(x_339, 4); -lean_inc(x_357); -lean_inc(x_356); -lean_inc(x_355); -lean_dec(x_339); -x_358 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_358, 0, x_341); -lean_ctor_set(x_358, 1, x_342); -lean_ctor_set(x_358, 2, x_355); -lean_ctor_set(x_358, 3, x_356); -lean_ctor_set(x_358, 4, x_357); -x_359 = l___private_Init_Lean_Elab_Command_3__setState(x_358, x_2, x_340); -if (lean_obj_tag(x_359) == 0) -{ -lean_object* x_360; lean_object* x_361; lean_object* x_362; -x_360 = lean_ctor_get(x_359, 1); -lean_inc(x_360); -if (lean_is_exclusive(x_359)) { - lean_ctor_release(x_359, 0); - lean_ctor_release(x_359, 1); - x_361 = x_359; -} else { - lean_dec_ref(x_359); - x_361 = lean_box(0); -} -if (lean_is_scalar(x_361)) { - x_362 = lean_alloc_ctor(1, 2, 0); -} else { - x_362 = x_361; - lean_ctor_set_tag(x_362, 1); -} -lean_ctor_set(x_362, 0, x_336); -lean_ctor_set(x_362, 1, x_360); -return x_362; -} -else -{ -lean_object* x_363; lean_object* x_364; lean_object* x_365; lean_object* x_366; -lean_dec(x_336); -x_363 = lean_ctor_get(x_359, 0); -lean_inc(x_363); -x_364 = lean_ctor_get(x_359, 1); -lean_inc(x_364); -if (lean_is_exclusive(x_359)) { - lean_ctor_release(x_359, 0); - lean_ctor_release(x_359, 1); - x_365 = x_359; -} else { - lean_dec_ref(x_359); - x_365 = lean_box(0); -} -if (lean_is_scalar(x_365)) { - x_366 = lean_alloc_ctor(1, 2, 0); -} else { - x_366 = x_365; -} -lean_ctor_set(x_366, 0, x_363); -lean_ctor_set(x_366, 1, x_364); -return x_366; -} -} -} -else -{ -uint8_t x_367; -lean_dec(x_336); -lean_dec(x_335); -lean_dec(x_2); -x_367 = !lean_is_exclusive(x_337); -if (x_367 == 0) -{ -return x_337; -} -else -{ -lean_object* x_368; lean_object* x_369; lean_object* x_370; -x_368 = lean_ctor_get(x_337, 0); -x_369 = lean_ctor_get(x_337, 1); -lean_inc(x_369); -lean_inc(x_368); -lean_dec(x_337); -x_370 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_370, 0, x_368); -lean_ctor_set(x_370, 1, x_369); -return x_370; -} -} -} -else -{ -lean_object* x_371; lean_object* x_372; lean_object* x_373; -lean_dec(x_302); -x_371 = l_Lean_Elab_Command_runTermElabM___rarg___closed__1; -x_372 = l_unreachable_x21___rarg(x_371); -lean_inc(x_2); -x_373 = lean_apply_2(x_372, x_2, x_298); -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_20 = x_374; -x_21 = x_375; -goto block_292; -} -else -{ -uint8_t x_376; -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_2); -lean_dec(x_1); -x_376 = !lean_is_exclusive(x_373); -if (x_376 == 0) -{ -return x_373; -} -else -{ -lean_object* x_377; lean_object* x_378; lean_object* x_379; -x_377 = lean_ctor_get(x_373, 0); -x_378 = lean_ctor_get(x_373, 1); -lean_inc(x_378); -lean_inc(x_377); -lean_dec(x_373); -x_379 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_379, 0, x_377); -lean_ctor_set(x_379, 1, x_378); -return x_379; -} -} -} -} -} -else -{ -uint8_t x_380; +lean_object* x_295; lean_object* x_296; lean_object* x_297; lean_object* x_298; lean_object* x_299; lean_object* x_300; +x_295 = lean_ctor_get(x_294, 0); +lean_inc(x_295); +x_296 = lean_ctor_get(x_294, 1); +lean_inc(x_296); +lean_dec(x_294); +x_297 = l___private_Init_Lean_Elab_Command_8__getVarDecls(x_295); +x_298 = l___private_Init_Lean_Elab_Command_6__mkTermContext(x_2, x_295, x_292); +x_299 = l___private_Init_Lean_Elab_Command_7__mkTermState(x_295); lean_dec(x_295); -lean_dec(x_19); -lean_dec(x_15); -lean_dec(x_2); -lean_dec(x_1); -x_380 = !lean_is_exclusive(x_296); -if (x_380 == 0) +x_300 = l_Lean_Elab_Term_elabBinders___rarg(x_297, x_293, x_298, x_299); +lean_dec(x_297); +if (lean_obj_tag(x_300) == 0) { -return x_296; +lean_object* x_301; lean_object* x_302; lean_object* x_303; +x_301 = lean_ctor_get(x_300, 0); +lean_inc(x_301); +x_302 = lean_ctor_get(x_300, 1); +lean_inc(x_302); +lean_dec(x_300); +lean_inc(x_2); +x_303 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_296); +if (lean_obj_tag(x_303) == 0) +{ +lean_object* x_304; lean_object* x_305; lean_object* x_306; lean_object* x_307; lean_object* x_308; uint8_t x_309; +x_304 = lean_ctor_get(x_302, 0); +lean_inc(x_304); +x_305 = lean_ctor_get(x_303, 0); +lean_inc(x_305); +x_306 = lean_ctor_get(x_303, 1); +lean_inc(x_306); +lean_dec(x_303); +x_307 = lean_ctor_get(x_304, 0); +lean_inc(x_307); +lean_dec(x_304); +x_308 = lean_ctor_get(x_302, 2); +lean_inc(x_308); +lean_dec(x_302); +x_309 = !lean_is_exclusive(x_305); +if (x_309 == 0) +{ +lean_object* x_310; lean_object* x_311; lean_object* x_312; +x_310 = lean_ctor_get(x_305, 1); +lean_dec(x_310); +x_311 = lean_ctor_get(x_305, 0); +lean_dec(x_311); +lean_ctor_set(x_305, 1, x_308); +lean_ctor_set(x_305, 0, x_307); +lean_inc(x_2); +x_312 = l___private_Init_Lean_Elab_Command_3__setState(x_305, x_2, x_306); +if (lean_obj_tag(x_312) == 0) +{ +lean_object* x_313; +x_313 = lean_ctor_get(x_312, 1); +lean_inc(x_313); +lean_dec(x_312); +x_19 = x_301; +x_20 = x_313; +goto block_291; } else { -lean_object* x_381; lean_object* x_382; lean_object* x_383; -x_381 = lean_ctor_get(x_296, 0); -x_382 = lean_ctor_get(x_296, 1); -lean_inc(x_382); -lean_inc(x_381); -lean_dec(x_296); -x_383 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_383, 0, x_381); -lean_ctor_set(x_383, 1, x_382); -return x_383; +uint8_t x_314; +lean_dec(x_301); +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_2); +lean_dec(x_1); +x_314 = !lean_is_exclusive(x_312); +if (x_314 == 0) +{ +return x_312; +} +else +{ +lean_object* x_315; lean_object* x_316; lean_object* x_317; +x_315 = lean_ctor_get(x_312, 0); +x_316 = lean_ctor_get(x_312, 1); +lean_inc(x_316); +lean_inc(x_315); +lean_dec(x_312); +x_317 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_317, 0, x_315); +lean_ctor_set(x_317, 1, x_316); +return x_317; } } -block_292: +} +else { -lean_object* x_22; uint8_t x_23; -x_22 = lean_ctor_get(x_20, 1); -lean_inc(x_22); -x_23 = lean_unbox(x_22); -lean_dec(x_22); -if (x_23 == 0) -{ -lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114; -x_24 = lean_ctor_get(x_20, 0); -lean_inc(x_24); -lean_dec(x_20); -x_25 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_21); -x_26 = lean_ctor_get(x_25, 0); -lean_inc(x_26); -x_27 = lean_ctor_get(x_25, 1); -lean_inc(x_27); -lean_dec(x_25); -x_28 = lean_box(0); -x_29 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; -x_30 = lean_name_mk_numeral(x_29, x_26); -x_31 = lean_box(0); -x_32 = l_Lean_Elab_Command_elabSyntax___closed__3; -x_33 = l_Lean_Elab_Command_elabSyntax___closed__5; -x_34 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_34, 0, x_28); -lean_ctor_set(x_34, 1, x_32); -lean_ctor_set(x_34, 2, x_30); -lean_ctor_set(x_34, 3, x_33); -x_35 = l_Array_empty___closed__1; -x_36 = lean_array_push(x_35, x_34); -x_37 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_38 = lean_array_push(x_36, x_37); -x_39 = l_Lean_mkTermIdFromIdent___closed__2; -x_40 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_40, 0, x_39); -lean_ctor_set(x_40, 1, x_38); -x_41 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_27); -x_42 = lean_ctor_get(x_41, 0); -lean_inc(x_42); -x_43 = lean_ctor_get(x_41, 1); -lean_inc(x_43); -lean_dec(x_41); -x_44 = lean_array_push(x_35, x_19); -x_45 = lean_array_push(x_44, x_37); -x_46 = l_Lean_Parser_Command_attrInstance___elambda__1___closed__2; -x_47 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_47, 0, x_46); -lean_ctor_set(x_47, 1, x_45); -x_48 = lean_array_push(x_35, x_47); -x_49 = l_Lean_nullKind___closed__2; -x_50 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_50, 0, x_49); -lean_ctor_set(x_50, 1, x_48); -x_51 = l_Lean_Elab_Command_elabSyntax___closed__8; -x_52 = lean_array_push(x_51, x_50); -x_53 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_54 = lean_array_push(x_52, x_53); -x_55 = l_Lean_Parser_Command_attributes___elambda__1___closed__2; -x_56 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_56, 0, x_55); -lean_ctor_set(x_56, 1, x_54); -x_57 = lean_array_push(x_35, x_56); -x_58 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_58, 0, x_49); -lean_ctor_set(x_58, 1, x_57); -x_59 = l_Lean_Elab_Command_elabSyntax___closed__6; -x_60 = lean_array_push(x_59, x_58); -x_61 = lean_array_push(x_60, x_37); -x_62 = lean_array_push(x_61, x_37); -x_63 = lean_array_push(x_62, x_37); -x_64 = lean_array_push(x_63, x_37); -x_65 = l_Lean_Parser_Command_declModifiers___elambda__1___closed__2; -x_66 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_66, 0, x_65); -lean_ctor_set(x_66, 1, x_64); -x_67 = lean_array_push(x_35, x_66); -x_68 = l_Lean_Elab_Command_elabSyntax___closed__14; -lean_inc(x_42); -x_69 = lean_name_mk_numeral(x_68, x_42); -x_70 = l_Lean_Elab_Command_elabSyntax___closed__13; -x_71 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_71, 0, x_28); -lean_ctor_set(x_71, 1, x_70); -lean_ctor_set(x_71, 2, x_69); -lean_ctor_set(x_71, 3, x_31); -x_72 = lean_array_push(x_35, x_71); -x_73 = lean_array_push(x_72, x_37); -x_74 = l_Lean_Parser_Command_declId___elambda__1___closed__2; -x_75 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_75, 0, x_74); -lean_ctor_set(x_75, 1, x_73); -x_76 = l_Lean_Elab_Command_elabSyntax___closed__10; -x_77 = lean_array_push(x_76, x_75); -x_78 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; -x_79 = lean_array_push(x_78, x_40); -x_80 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; -x_81 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_81, 0, x_80); -lean_ctor_set(x_81, 1, x_79); -x_82 = lean_array_push(x_35, x_81); -x_83 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_83, 0, x_49); -lean_ctor_set(x_83, 1, x_82); -x_84 = lean_array_push(x_59, x_83); -x_85 = l_Lean_Parser_Command_optDeclSig___elambda__1___closed__2; -x_86 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_86, 0, x_85); -lean_ctor_set(x_86, 1, x_84); -x_87 = lean_array_push(x_77, x_86); -x_88 = l_Lean_Elab_Command_elabSyntax___closed__19; -x_89 = lean_name_mk_numeral(x_88, x_42); -x_90 = l_Lean_Elab_Command_elabSyntax___closed__18; -x_91 = l_Lean_Elab_Command_elabSyntax___closed__22; -x_92 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_92, 0, x_28); -lean_ctor_set(x_92, 1, x_90); -lean_ctor_set(x_92, 2, x_89); -lean_ctor_set(x_92, 3, x_91); -x_93 = lean_array_push(x_35, x_92); -x_94 = lean_array_push(x_93, x_37); -x_95 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_95, 0, x_39); -lean_ctor_set(x_95, 1, x_94); -x_96 = lean_array_push(x_35, x_95); -x_97 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_15); -x_98 = lean_array_push(x_35, x_97); -x_99 = lean_array_push(x_98, x_24); -x_100 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_100, 0, x_49); -lean_ctor_set(x_100, 1, x_99); -x_101 = lean_array_push(x_96, x_100); -x_102 = l_Lean_mkAppStx___closed__8; -x_103 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_103, 0, x_102); -lean_ctor_set(x_103, 1, x_101); -x_104 = l_Lean_Elab_Command_elabSyntax___closed__15; -x_105 = lean_array_push(x_104, x_103); -x_106 = l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; -x_107 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_107, 0, x_106); -lean_ctor_set(x_107, 1, x_105); -x_108 = lean_array_push(x_87, x_107); -x_109 = l_Lean_Parser_Command_def___elambda__1___closed__2; -x_110 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_110, 0, x_109); -lean_ctor_set(x_110, 1, x_108); -x_111 = lean_array_push(x_67, x_110); -x_112 = l_Lean_Parser_Command_declaration___elambda__1___closed__2; -x_113 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_113, 0, x_112); -lean_ctor_set(x_113, 1, x_111); +lean_object* x_318; lean_object* x_319; lean_object* x_320; lean_object* x_321; lean_object* x_322; +x_318 = lean_ctor_get(x_305, 2); +x_319 = lean_ctor_get(x_305, 3); +x_320 = lean_ctor_get(x_305, 4); +lean_inc(x_320); +lean_inc(x_319); +lean_inc(x_318); +lean_dec(x_305); +x_321 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_321, 0, x_307); +lean_ctor_set(x_321, 1, x_308); +lean_ctor_set(x_321, 2, x_318); +lean_ctor_set(x_321, 3, x_319); +lean_ctor_set(x_321, 4, x_320); lean_inc(x_2); -x_114 = l_Lean_Elab_Command_getOptions(x_2, x_43); -if (lean_obj_tag(x_114) == 0) +x_322 = l___private_Init_Lean_Elab_Command_3__setState(x_321, x_2, x_306); +if (lean_obj_tag(x_322) == 0) { -lean_object* x_115; lean_object* x_116; lean_object* x_117; uint8_t x_118; -x_115 = lean_ctor_get(x_114, 0); +lean_object* x_323; +x_323 = lean_ctor_get(x_322, 1); +lean_inc(x_323); +lean_dec(x_322); +x_19 = x_301; +x_20 = x_323; +goto block_291; +} +else +{ +lean_object* x_324; lean_object* x_325; lean_object* x_326; lean_object* x_327; +lean_dec(x_301); +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_2); +lean_dec(x_1); +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); +} +if (lean_is_scalar(x_326)) { + x_327 = lean_alloc_ctor(1, 2, 0); +} else { + x_327 = x_326; +} +lean_ctor_set(x_327, 0, x_324); +lean_ctor_set(x_327, 1, x_325); +return x_327; +} +} +} +else +{ +uint8_t x_328; +lean_dec(x_302); +lean_dec(x_301); +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_2); +lean_dec(x_1); +x_328 = !lean_is_exclusive(x_303); +if (x_328 == 0) +{ +return x_303; +} +else +{ +lean_object* x_329; lean_object* x_330; lean_object* x_331; +x_329 = lean_ctor_get(x_303, 0); +x_330 = lean_ctor_get(x_303, 1); +lean_inc(x_330); +lean_inc(x_329); +lean_dec(x_303); +x_331 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_331, 0, x_329); +lean_ctor_set(x_331, 1, x_330); +return x_331; +} +} +} +else +{ +lean_object* x_332; +x_332 = lean_ctor_get(x_300, 0); +lean_inc(x_332); +if (lean_obj_tag(x_332) == 0) +{ +lean_object* x_333; lean_object* x_334; lean_object* x_335; +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_1); +x_333 = lean_ctor_get(x_300, 1); +lean_inc(x_333); +lean_dec(x_300); +x_334 = lean_ctor_get(x_332, 0); +lean_inc(x_334); +lean_dec(x_332); +lean_inc(x_2); +x_335 = l___private_Init_Lean_Elab_Command_2__getState(x_2, x_296); +if (lean_obj_tag(x_335) == 0) +{ +lean_object* x_336; lean_object* x_337; lean_object* x_338; lean_object* x_339; lean_object* x_340; uint8_t x_341; +x_336 = lean_ctor_get(x_333, 0); +lean_inc(x_336); +x_337 = lean_ctor_get(x_335, 0); +lean_inc(x_337); +x_338 = lean_ctor_get(x_335, 1); +lean_inc(x_338); +lean_dec(x_335); +x_339 = lean_ctor_get(x_336, 0); +lean_inc(x_339); +lean_dec(x_336); +x_340 = lean_ctor_get(x_333, 2); +lean_inc(x_340); +lean_dec(x_333); +x_341 = !lean_is_exclusive(x_337); +if (x_341 == 0) +{ +lean_object* x_342; lean_object* x_343; lean_object* x_344; +x_342 = lean_ctor_get(x_337, 1); +lean_dec(x_342); +x_343 = lean_ctor_get(x_337, 0); +lean_dec(x_343); +lean_ctor_set(x_337, 1, x_340); +lean_ctor_set(x_337, 0, x_339); +x_344 = l___private_Init_Lean_Elab_Command_3__setState(x_337, x_2, x_338); +if (lean_obj_tag(x_344) == 0) +{ +uint8_t x_345; +x_345 = !lean_is_exclusive(x_344); +if (x_345 == 0) +{ +lean_object* x_346; +x_346 = lean_ctor_get(x_344, 0); +lean_dec(x_346); +lean_ctor_set_tag(x_344, 1); +lean_ctor_set(x_344, 0, x_334); +return x_344; +} +else +{ +lean_object* x_347; lean_object* x_348; +x_347 = lean_ctor_get(x_344, 1); +lean_inc(x_347); +lean_dec(x_344); +x_348 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_348, 0, x_334); +lean_ctor_set(x_348, 1, x_347); +return x_348; +} +} +else +{ +uint8_t x_349; +lean_dec(x_334); +x_349 = !lean_is_exclusive(x_344); +if (x_349 == 0) +{ +return x_344; +} +else +{ +lean_object* x_350; lean_object* x_351; lean_object* x_352; +x_350 = lean_ctor_get(x_344, 0); +x_351 = lean_ctor_get(x_344, 1); +lean_inc(x_351); +lean_inc(x_350); +lean_dec(x_344); +x_352 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_352, 0, x_350); +lean_ctor_set(x_352, 1, x_351); +return x_352; +} +} +} +else +{ +lean_object* x_353; lean_object* x_354; lean_object* x_355; lean_object* x_356; lean_object* x_357; +x_353 = lean_ctor_get(x_337, 2); +x_354 = lean_ctor_get(x_337, 3); +x_355 = lean_ctor_get(x_337, 4); +lean_inc(x_355); +lean_inc(x_354); +lean_inc(x_353); +lean_dec(x_337); +x_356 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_356, 0, x_339); +lean_ctor_set(x_356, 1, x_340); +lean_ctor_set(x_356, 2, x_353); +lean_ctor_set(x_356, 3, x_354); +lean_ctor_set(x_356, 4, x_355); +x_357 = l___private_Init_Lean_Elab_Command_3__setState(x_356, x_2, x_338); +if (lean_obj_tag(x_357) == 0) +{ +lean_object* x_358; lean_object* x_359; lean_object* x_360; +x_358 = lean_ctor_get(x_357, 1); +lean_inc(x_358); +if (lean_is_exclusive(x_357)) { + lean_ctor_release(x_357, 0); + lean_ctor_release(x_357, 1); + x_359 = x_357; +} else { + lean_dec_ref(x_357); + x_359 = lean_box(0); +} +if (lean_is_scalar(x_359)) { + x_360 = lean_alloc_ctor(1, 2, 0); +} else { + x_360 = x_359; + lean_ctor_set_tag(x_360, 1); +} +lean_ctor_set(x_360, 0, x_334); +lean_ctor_set(x_360, 1, x_358); +return x_360; +} +else +{ +lean_object* x_361; lean_object* x_362; lean_object* x_363; lean_object* x_364; +lean_dec(x_334); +x_361 = lean_ctor_get(x_357, 0); +lean_inc(x_361); +x_362 = lean_ctor_get(x_357, 1); +lean_inc(x_362); +if (lean_is_exclusive(x_357)) { + lean_ctor_release(x_357, 0); + lean_ctor_release(x_357, 1); + x_363 = x_357; +} else { + lean_dec_ref(x_357); + x_363 = lean_box(0); +} +if (lean_is_scalar(x_363)) { + x_364 = lean_alloc_ctor(1, 2, 0); +} else { + x_364 = x_363; +} +lean_ctor_set(x_364, 0, x_361); +lean_ctor_set(x_364, 1, x_362); +return x_364; +} +} +} +else +{ +uint8_t x_365; +lean_dec(x_334); +lean_dec(x_333); +lean_dec(x_2); +x_365 = !lean_is_exclusive(x_335); +if (x_365 == 0) +{ +return x_335; +} +else +{ +lean_object* x_366; lean_object* x_367; lean_object* x_368; +x_366 = lean_ctor_get(x_335, 0); +x_367 = lean_ctor_get(x_335, 1); +lean_inc(x_367); +lean_inc(x_366); +lean_dec(x_335); +x_368 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_368, 0, x_366); +lean_ctor_set(x_368, 1, x_367); +return x_368; +} +} +} +else +{ +lean_object* x_369; lean_object* x_370; lean_object* x_371; +lean_dec(x_300); +x_369 = l_Lean_Elab_Command_runTermElabM___rarg___closed__1; +x_370 = l_unreachable_x21___rarg(x_369); +lean_inc(x_2); +x_371 = lean_apply_2(x_370, x_2, x_296); +if (lean_obj_tag(x_371) == 0) +{ +lean_object* x_372; lean_object* x_373; +x_372 = lean_ctor_get(x_371, 0); +lean_inc(x_372); +x_373 = lean_ctor_get(x_371, 1); +lean_inc(x_373); +lean_dec(x_371); +x_19 = x_372; +x_20 = x_373; +goto block_291; +} +else +{ +uint8_t x_374; +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_2); +lean_dec(x_1); +x_374 = !lean_is_exclusive(x_371); +if (x_374 == 0) +{ +return x_371; +} +else +{ +lean_object* x_375; lean_object* x_376; lean_object* x_377; +x_375 = lean_ctor_get(x_371, 0); +x_376 = lean_ctor_get(x_371, 1); +lean_inc(x_376); +lean_inc(x_375); +lean_dec(x_371); +x_377 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_377, 0, x_375); +lean_ctor_set(x_377, 1, x_376); +return x_377; +} +} +} +} +} +else +{ +uint8_t x_378; +lean_dec(x_293); +lean_dec(x_18); +lean_dec(x_14); +lean_dec(x_2); +lean_dec(x_1); +x_378 = !lean_is_exclusive(x_294); +if (x_378 == 0) +{ +return x_294; +} +else +{ +lean_object* x_379; lean_object* x_380; lean_object* x_381; +x_379 = lean_ctor_get(x_294, 0); +x_380 = lean_ctor_get(x_294, 1); +lean_inc(x_380); +lean_inc(x_379); +lean_dec(x_294); +x_381 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_381, 0, x_379); +lean_ctor_set(x_381, 1, x_380); +return x_381; +} +} +block_291: +{ +lean_object* x_21; uint8_t x_22; +x_21 = lean_ctor_get(x_19, 1); +lean_inc(x_21); +x_22 = lean_unbox(x_21); +lean_dec(x_21); +if (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; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53; lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57; lean_object* x_58; lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; lean_object* x_64; lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; +x_23 = lean_ctor_get(x_19, 0); +lean_inc(x_23); +lean_dec(x_19); +x_24 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_20); +x_25 = lean_ctor_get(x_24, 0); +lean_inc(x_25); +x_26 = lean_ctor_get(x_24, 1); +lean_inc(x_26); +lean_dec(x_24); +x_27 = lean_box(0); +x_28 = l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__6; +x_29 = lean_name_mk_numeral(x_28, x_25); +x_30 = lean_box(0); +x_31 = l_Lean_Elab_Command_elabSyntax___closed__3; +x_32 = l_Lean_Elab_Command_elabSyntax___closed__5; +x_33 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_33, 0, x_27); +lean_ctor_set(x_33, 1, x_31); +lean_ctor_set(x_33, 2, x_29); +lean_ctor_set(x_33, 3, x_32); +x_34 = l_Array_empty___closed__1; +x_35 = lean_array_push(x_34, x_33); +x_36 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_37 = lean_array_push(x_35, x_36); +x_38 = l_Lean_mkTermIdFromIdent___closed__2; +x_39 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_39, 0, x_38); +lean_ctor_set(x_39, 1, x_37); +x_40 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_26); +x_41 = lean_ctor_get(x_40, 0); +lean_inc(x_41); +x_42 = lean_ctor_get(x_40, 1); +lean_inc(x_42); +lean_dec(x_40); +x_43 = lean_array_push(x_34, x_18); +x_44 = lean_array_push(x_43, x_36); +x_45 = l_Lean_Parser_Command_attrInstance___elambda__1___closed__2; +x_46 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_46, 0, x_45); +lean_ctor_set(x_46, 1, x_44); +x_47 = lean_array_push(x_34, x_46); +x_48 = l_Lean_nullKind___closed__2; +x_49 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set(x_49, 1, x_47); +x_50 = l_Lean_Elab_Command_elabSyntax___closed__8; +x_51 = lean_array_push(x_50, x_49); +x_52 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_53 = lean_array_push(x_51, x_52); +x_54 = l_Lean_Parser_Command_attributes___elambda__1___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_34, x_55); +x_57 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_57, 0, x_48); +lean_ctor_set(x_57, 1, x_56); +x_58 = l_Lean_Elab_Command_elabSyntax___closed__6; +x_59 = lean_array_push(x_58, x_57); +x_60 = lean_array_push(x_59, x_36); +x_61 = lean_array_push(x_60, x_36); +x_62 = lean_array_push(x_61, x_36); +x_63 = lean_array_push(x_62, x_36); +x_64 = l_Lean_Parser_Command_declModifiers___elambda__1___closed__2; +x_65 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_65, 0, x_64); +lean_ctor_set(x_65, 1, x_63); +x_66 = lean_array_push(x_34, x_65); +x_67 = l_Lean_Elab_Command_elabSyntax___closed__14; +lean_inc(x_41); +x_68 = lean_name_mk_numeral(x_67, x_41); +x_69 = l_Lean_Elab_Command_elabSyntax___closed__13; +x_70 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_70, 0, x_27); +lean_ctor_set(x_70, 1, x_69); +lean_ctor_set(x_70, 2, x_68); +lean_ctor_set(x_70, 3, x_30); +x_71 = lean_array_push(x_34, x_70); +x_72 = lean_array_push(x_71, x_36); +x_73 = l_Lean_Parser_Command_declId___elambda__1___closed__2; +x_74 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_74, 0, x_73); +lean_ctor_set(x_74, 1, x_72); +x_75 = l_Lean_Elab_Command_elabSyntax___closed__10; +x_76 = lean_array_push(x_75, x_74); +x_77 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; +x_78 = lean_array_push(x_77, x_39); +x_79 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; +x_80 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_80, 0, x_79); +lean_ctor_set(x_80, 1, x_78); +x_81 = lean_array_push(x_34, x_80); +x_82 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_82, 0, x_48); +lean_ctor_set(x_82, 1, x_81); +x_83 = lean_array_push(x_58, x_82); +x_84 = l_Lean_Parser_Command_optDeclSig___elambda__1___closed__2; +x_85 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_85, 0, x_84); +lean_ctor_set(x_85, 1, x_83); +x_86 = lean_array_push(x_76, x_85); +x_87 = l_Lean_Elab_Command_elabSyntax___closed__19; +x_88 = lean_name_mk_numeral(x_87, x_41); +x_89 = l_Lean_Elab_Command_elabSyntax___closed__18; +x_90 = l_Lean_Elab_Command_elabSyntax___closed__22; +x_91 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_91, 0, x_27); +lean_ctor_set(x_91, 1, x_89); +lean_ctor_set(x_91, 2, x_88); +lean_ctor_set(x_91, 3, x_90); +x_92 = lean_array_push(x_34, x_91); +x_93 = lean_array_push(x_92, x_36); +x_94 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_94, 0, x_38); +lean_ctor_set(x_94, 1, x_93); +x_95 = lean_array_push(x_34, x_94); +x_96 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_14); +x_97 = lean_array_push(x_34, x_96); +x_98 = lean_array_push(x_97, x_23); +x_99 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_99, 0, x_48); +lean_ctor_set(x_99, 1, x_98); +x_100 = lean_array_push(x_95, x_99); +x_101 = l_Lean_mkAppStx___closed__8; +x_102 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_102, 0, x_101); +lean_ctor_set(x_102, 1, x_100); +x_103 = l_Lean_Elab_Command_elabSyntax___closed__15; +x_104 = lean_array_push(x_103, x_102); +x_105 = l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; +x_106 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_106, 0, x_105); +lean_ctor_set(x_106, 1, x_104); +x_107 = lean_array_push(x_86, x_106); +x_108 = l_Lean_Parser_Command_def___elambda__1___closed__2; +x_109 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_109, 0, x_108); +lean_ctor_set(x_109, 1, x_107); +x_110 = lean_array_push(x_66, x_109); +x_111 = l_Lean_Parser_Command_declaration___elambda__1___closed__2; +x_112 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_112, 0, x_111); +lean_ctor_set(x_112, 1, x_110); +lean_inc(x_2); +x_113 = l_Lean_Elab_Command_getOptions(x_2, x_42); +if (lean_obj_tag(x_113) == 0) +{ +lean_object* x_114; lean_object* x_115; lean_object* x_116; uint8_t x_117; +x_114 = lean_ctor_get(x_113, 0); +lean_inc(x_114); +x_115 = lean_ctor_get(x_113, 1); lean_inc(x_115); -x_116 = lean_ctor_get(x_114, 1); -lean_inc(x_116); +lean_dec(x_113); +x_116 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__2; +x_117 = l_Lean_checkTraceOption(x_114, x_116); lean_dec(x_114); -x_117 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__2; -x_118 = l_Lean_checkTraceOption(x_115, x_117); -lean_dec(x_115); +if (x_117 == 0) +{ +uint8_t x_118; +x_118 = !lean_is_exclusive(x_2); if (x_118 == 0) { -uint8_t x_119; -x_119 = !lean_is_exclusive(x_2); -if (x_119 == 0) -{ -lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_120 = lean_ctor_get(x_2, 5); -x_121 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_121, 0, x_1); -lean_ctor_set(x_121, 1, x_120); -lean_ctor_set(x_2, 5, x_121); -x_122 = l_Lean_Elab_Command_elabCommand___main(x_113, x_2, x_116); -return x_122; +lean_object* x_119; lean_object* x_120; lean_object* x_121; +x_119 = lean_ctor_get(x_2, 5); +x_120 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_120, 0, x_1); +lean_ctor_set(x_120, 1, x_119); +lean_ctor_set(x_2, 5, x_120); +x_121 = l_Lean_Elab_Command_elabCommand___main(x_112, x_2, x_115); +return x_121; } else { -lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129; lean_object* x_130; lean_object* x_131; lean_object* x_132; -x_123 = lean_ctor_get(x_2, 0); -x_124 = lean_ctor_get(x_2, 1); -x_125 = lean_ctor_get(x_2, 2); -x_126 = lean_ctor_get(x_2, 3); -x_127 = lean_ctor_get(x_2, 4); -x_128 = lean_ctor_get(x_2, 5); -x_129 = lean_ctor_get(x_2, 6); -lean_inc(x_129); +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; +x_122 = lean_ctor_get(x_2, 0); +x_123 = lean_ctor_get(x_2, 1); +x_124 = lean_ctor_get(x_2, 2); +x_125 = lean_ctor_get(x_2, 3); +x_126 = lean_ctor_get(x_2, 4); +x_127 = lean_ctor_get(x_2, 5); +x_128 = lean_ctor_get(x_2, 6); lean_inc(x_128); lean_inc(x_127); lean_inc(x_126); lean_inc(x_125); lean_inc(x_124); lean_inc(x_123); +lean_inc(x_122); lean_dec(x_2); -x_130 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_130, 0, x_1); -lean_ctor_set(x_130, 1, x_128); -x_131 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_131, 0, x_123); -lean_ctor_set(x_131, 1, x_124); -lean_ctor_set(x_131, 2, x_125); -lean_ctor_set(x_131, 3, x_126); -lean_ctor_set(x_131, 4, x_127); -lean_ctor_set(x_131, 5, x_130); -lean_ctor_set(x_131, 6, x_129); -x_132 = l_Lean_Elab_Command_elabCommand___main(x_113, x_131, x_116); -return x_132; +x_129 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_129, 0, x_1); +lean_ctor_set(x_129, 1, x_127); +x_130 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_130, 0, x_122); +lean_ctor_set(x_130, 1, x_123); +lean_ctor_set(x_130, 2, x_124); +lean_ctor_set(x_130, 3, x_125); +lean_ctor_set(x_130, 4, x_126); +lean_ctor_set(x_130, 5, x_129); +lean_ctor_set(x_130, 6, x_128); +x_131 = l_Lean_Elab_Command_elabCommand___main(x_112, x_130, x_115); +return x_131; } } else { -lean_object* x_133; lean_object* x_134; -lean_inc(x_113); -x_133 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_133, 0, x_113); +lean_object* x_132; lean_object* x_133; +lean_inc(x_112); +x_132 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_132, 0, x_112); lean_inc(x_2); -x_134 = l_Lean_Elab_Command_logTrace(x_117, x_1, x_133, x_2, x_116); -if (lean_obj_tag(x_134) == 0) +x_133 = l_Lean_Elab_Command_logTrace(x_116, x_1, x_132, x_2, x_115); +if (lean_obj_tag(x_133) == 0) { -lean_object* x_135; uint8_t x_136; -x_135 = lean_ctor_get(x_134, 1); -lean_inc(x_135); -lean_dec(x_134); -x_136 = !lean_is_exclusive(x_2); -if (x_136 == 0) +lean_object* x_134; uint8_t x_135; +x_134 = lean_ctor_get(x_133, 1); +lean_inc(x_134); +lean_dec(x_133); +x_135 = !lean_is_exclusive(x_2); +if (x_135 == 0) { -lean_object* x_137; lean_object* x_138; lean_object* x_139; -x_137 = lean_ctor_get(x_2, 5); -x_138 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_138, 0, x_1); -lean_ctor_set(x_138, 1, x_137); -lean_ctor_set(x_2, 5, x_138); -x_139 = l_Lean_Elab_Command_elabCommand___main(x_113, x_2, x_135); -return x_139; +lean_object* x_136; lean_object* x_137; lean_object* x_138; +x_136 = lean_ctor_get(x_2, 5); +x_137 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_137, 0, x_1); +lean_ctor_set(x_137, 1, x_136); +lean_ctor_set(x_2, 5, x_137); +x_138 = l_Lean_Elab_Command_elabCommand___main(x_112, x_2, x_134); +return x_138; } else { -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_140 = lean_ctor_get(x_2, 0); -x_141 = lean_ctor_get(x_2, 1); -x_142 = lean_ctor_get(x_2, 2); -x_143 = lean_ctor_get(x_2, 3); -x_144 = lean_ctor_get(x_2, 4); -x_145 = lean_ctor_get(x_2, 5); -x_146 = lean_ctor_get(x_2, 6); -lean_inc(x_146); +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; +x_139 = lean_ctor_get(x_2, 0); +x_140 = lean_ctor_get(x_2, 1); +x_141 = lean_ctor_get(x_2, 2); +x_142 = lean_ctor_get(x_2, 3); +x_143 = lean_ctor_get(x_2, 4); +x_144 = lean_ctor_get(x_2, 5); +x_145 = lean_ctor_get(x_2, 6); lean_inc(x_145); lean_inc(x_144); lean_inc(x_143); lean_inc(x_142); lean_inc(x_141); lean_inc(x_140); +lean_inc(x_139); lean_dec(x_2); -x_147 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_147, 0, x_1); -lean_ctor_set(x_147, 1, x_145); -x_148 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_148, 0, x_140); -lean_ctor_set(x_148, 1, x_141); -lean_ctor_set(x_148, 2, x_142); -lean_ctor_set(x_148, 3, x_143); -lean_ctor_set(x_148, 4, x_144); -lean_ctor_set(x_148, 5, x_147); -lean_ctor_set(x_148, 6, x_146); -x_149 = l_Lean_Elab_Command_elabCommand___main(x_113, x_148, x_135); -return x_149; +x_146 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_146, 0, x_1); +lean_ctor_set(x_146, 1, x_144); +x_147 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_147, 0, x_139); +lean_ctor_set(x_147, 1, x_140); +lean_ctor_set(x_147, 2, x_141); +lean_ctor_set(x_147, 3, x_142); +lean_ctor_set(x_147, 4, x_143); +lean_ctor_set(x_147, 5, x_146); +lean_ctor_set(x_147, 6, x_145); +x_148 = l_Lean_Elab_Command_elabCommand___main(x_112, x_147, x_134); +return x_148; } } else { -uint8_t x_150; -lean_dec(x_113); +uint8_t x_149; +lean_dec(x_112); lean_dec(x_2); lean_dec(x_1); -x_150 = !lean_is_exclusive(x_134); -if (x_150 == 0) +x_149 = !lean_is_exclusive(x_133); +if (x_149 == 0) { -return x_134; +return x_133; } else { -lean_object* x_151; lean_object* x_152; lean_object* x_153; -x_151 = lean_ctor_get(x_134, 0); -x_152 = lean_ctor_get(x_134, 1); -lean_inc(x_152); +lean_object* x_150; lean_object* x_151; lean_object* x_152; +x_150 = lean_ctor_get(x_133, 0); +x_151 = lean_ctor_get(x_133, 1); lean_inc(x_151); -lean_dec(x_134); -x_153 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_153, 0, x_151); -lean_ctor_set(x_153, 1, x_152); -return x_153; +lean_inc(x_150); +lean_dec(x_133); +x_152 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_152, 0, x_150); +lean_ctor_set(x_152, 1, x_151); +return x_152; } } } } else { -uint8_t x_154; -lean_dec(x_113); +uint8_t x_153; +lean_dec(x_112); lean_dec(x_2); lean_dec(x_1); -x_154 = !lean_is_exclusive(x_114); -if (x_154 == 0) +x_153 = !lean_is_exclusive(x_113); +if (x_153 == 0) { -return x_114; +return x_113; } else { -lean_object* x_155; lean_object* x_156; lean_object* x_157; -x_155 = lean_ctor_get(x_114, 0); -x_156 = lean_ctor_get(x_114, 1); -lean_inc(x_156); +lean_object* x_154; lean_object* x_155; lean_object* x_156; +x_154 = lean_ctor_get(x_113, 0); +x_155 = lean_ctor_get(x_113, 1); lean_inc(x_155); -lean_dec(x_114); -x_157 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_157, 0, x_155); -lean_ctor_set(x_157, 1, x_156); -return x_157; +lean_inc(x_154); +lean_dec(x_113); +x_156 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_156, 0, x_154); +lean_ctor_set(x_156, 1, x_155); +return x_156; } } } else { -lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_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; lean_object* x_224; lean_object* x_225; 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; lean_object* x_248; -x_158 = lean_ctor_get(x_20, 0); -lean_inc(x_158); -lean_dec(x_20); -x_159 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_21); -x_160 = lean_ctor_get(x_159, 0); +lean_object* x_157; lean_object* x_158; lean_object* x_159; lean_object* x_160; lean_object* x_161; lean_object* x_162; lean_object* x_163; lean_object* x_164; lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169; lean_object* x_170; lean_object* x_171; lean_object* x_172; lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177; lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182; lean_object* x_183; lean_object* x_184; lean_object* x_185; lean_object* x_186; lean_object* x_187; lean_object* x_188; lean_object* x_189; lean_object* x_190; lean_object* x_191; lean_object* x_192; lean_object* x_193; lean_object* x_194; lean_object* x_195; lean_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; lean_object* x_224; lean_object* x_225; 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_157 = lean_ctor_get(x_19, 0); +lean_inc(x_157); +lean_dec(x_19); +x_158 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_20); +x_159 = lean_ctor_get(x_158, 0); +lean_inc(x_159); +x_160 = lean_ctor_get(x_158, 1); lean_inc(x_160); -x_161 = lean_ctor_get(x_159, 1); -lean_inc(x_161); -lean_dec(x_159); -x_162 = lean_box(0); -x_163 = l_Lean_Elab_Command_elabSyntax___closed__26; -x_164 = lean_name_mk_numeral(x_163, x_160); -x_165 = lean_box(0); -x_166 = l_Lean_Elab_Command_elabSyntax___closed__25; -x_167 = l_Lean_Elab_Command_elabSyntax___closed__28; -x_168 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_168, 0, x_162); -lean_ctor_set(x_168, 1, x_166); -lean_ctor_set(x_168, 2, x_164); -lean_ctor_set(x_168, 3, x_167); -x_169 = l_Array_empty___closed__1; -x_170 = lean_array_push(x_169, x_168); -x_171 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; -x_172 = lean_array_push(x_170, x_171); -x_173 = l_Lean_mkTermIdFromIdent___closed__2; -x_174 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_174, 0, x_173); -lean_ctor_set(x_174, 1, x_172); -x_175 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_161); -x_176 = lean_ctor_get(x_175, 0); +lean_dec(x_158); +x_161 = lean_box(0); +x_162 = l_Lean_Elab_Command_elabSyntax___closed__26; +x_163 = lean_name_mk_numeral(x_162, x_159); +x_164 = lean_box(0); +x_165 = l_Lean_Elab_Command_elabSyntax___closed__25; +x_166 = l_Lean_Elab_Command_elabSyntax___closed__28; +x_167 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_167, 0, x_161); +lean_ctor_set(x_167, 1, x_165); +lean_ctor_set(x_167, 2, x_163); +lean_ctor_set(x_167, 3, x_166); +x_168 = l_Array_empty___closed__1; +x_169 = lean_array_push(x_168, x_167); +x_170 = l___private_Init_Lean_Elab_Term_5__expandCDot___closed__4; +x_171 = lean_array_push(x_169, x_170); +x_172 = l_Lean_mkTermIdFromIdent___closed__2; +x_173 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_173, 0, x_172); +lean_ctor_set(x_173, 1, x_171); +x_174 = l_Lean_Elab_Command_getCurrMacroScope(x_2, x_160); +x_175 = lean_ctor_get(x_174, 0); +lean_inc(x_175); +x_176 = lean_ctor_get(x_174, 1); lean_inc(x_176); -x_177 = lean_ctor_get(x_175, 1); -lean_inc(x_177); -lean_dec(x_175); -x_178 = lean_array_push(x_169, x_19); -x_179 = lean_array_push(x_178, x_171); -x_180 = l_Lean_Parser_Command_attrInstance___elambda__1___closed__2; -x_181 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_181, 0, x_180); -lean_ctor_set(x_181, 1, x_179); -x_182 = lean_array_push(x_169, x_181); -x_183 = l_Lean_nullKind___closed__2; -x_184 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_184, 0, x_183); -lean_ctor_set(x_184, 1, x_182); -x_185 = l_Lean_Elab_Command_elabSyntax___closed__8; -x_186 = lean_array_push(x_185, x_184); -x_187 = l_Lean_Elab_Term_elabArrayLit___closed__13; -x_188 = lean_array_push(x_186, x_187); -x_189 = l_Lean_Parser_Command_attributes___elambda__1___closed__2; -x_190 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_190, 0, x_189); -lean_ctor_set(x_190, 1, x_188); -x_191 = lean_array_push(x_169, x_190); -x_192 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_192, 0, x_183); -lean_ctor_set(x_192, 1, x_191); -x_193 = l_Lean_Elab_Command_elabSyntax___closed__6; -x_194 = lean_array_push(x_193, x_192); -x_195 = lean_array_push(x_194, x_171); -x_196 = lean_array_push(x_195, x_171); -x_197 = lean_array_push(x_196, x_171); -x_198 = lean_array_push(x_197, x_171); -x_199 = l_Lean_Parser_Command_declModifiers___elambda__1___closed__2; -x_200 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_200, 0, x_199); -lean_ctor_set(x_200, 1, x_198); -x_201 = lean_array_push(x_169, x_200); -x_202 = l_Lean_Elab_Command_elabSyntax___closed__14; -lean_inc(x_176); -x_203 = lean_name_mk_numeral(x_202, x_176); -x_204 = l_Lean_Elab_Command_elabSyntax___closed__13; -x_205 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_205, 0, x_162); -lean_ctor_set(x_205, 1, x_204); -lean_ctor_set(x_205, 2, x_203); -lean_ctor_set(x_205, 3, x_165); -x_206 = lean_array_push(x_169, x_205); -x_207 = lean_array_push(x_206, x_171); -x_208 = l_Lean_Parser_Command_declId___elambda__1___closed__2; -x_209 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_209, 0, x_208); -lean_ctor_set(x_209, 1, x_207); -x_210 = l_Lean_Elab_Command_elabSyntax___closed__10; -x_211 = lean_array_push(x_210, x_209); -x_212 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; -x_213 = lean_array_push(x_212, x_174); -x_214 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; -x_215 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_215, 0, x_214); -lean_ctor_set(x_215, 1, x_213); -x_216 = lean_array_push(x_169, x_215); -x_217 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_217, 0, x_183); -lean_ctor_set(x_217, 1, x_216); -x_218 = lean_array_push(x_193, x_217); -x_219 = l_Lean_Parser_Command_optDeclSig___elambda__1___closed__2; -x_220 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_220, 0, x_219); -lean_ctor_set(x_220, 1, x_218); -x_221 = lean_array_push(x_211, x_220); -x_222 = l_Lean_Elab_Command_elabSyntax___closed__19; -x_223 = lean_name_mk_numeral(x_222, x_176); -x_224 = l_Lean_Elab_Command_elabSyntax___closed__18; -x_225 = l_Lean_Elab_Command_elabSyntax___closed__22; -x_226 = lean_alloc_ctor(3, 4, 0); -lean_ctor_set(x_226, 0, x_162); -lean_ctor_set(x_226, 1, x_224); -lean_ctor_set(x_226, 2, x_223); -lean_ctor_set(x_226, 3, x_225); -x_227 = lean_array_push(x_169, x_226); -x_228 = lean_array_push(x_227, x_171); -x_229 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_229, 0, x_173); -lean_ctor_set(x_229, 1, x_228); -x_230 = lean_array_push(x_169, x_229); -x_231 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_15); -x_232 = lean_array_push(x_169, x_231); -x_233 = lean_array_push(x_232, x_158); -x_234 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_234, 0, x_183); -lean_ctor_set(x_234, 1, x_233); -x_235 = lean_array_push(x_230, x_234); -x_236 = l_Lean_mkAppStx___closed__8; -x_237 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_237, 0, x_236); -lean_ctor_set(x_237, 1, x_235); -x_238 = l_Lean_Elab_Command_elabSyntax___closed__15; -x_239 = lean_array_push(x_238, x_237); -x_240 = l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; -x_241 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_241, 0, x_240); -lean_ctor_set(x_241, 1, x_239); -x_242 = lean_array_push(x_221, x_241); -x_243 = l_Lean_Parser_Command_def___elambda__1___closed__2; -x_244 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_244, 0, x_243); -lean_ctor_set(x_244, 1, x_242); -x_245 = lean_array_push(x_201, x_244); -x_246 = l_Lean_Parser_Command_declaration___elambda__1___closed__2; -x_247 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_247, 0, x_246); -lean_ctor_set(x_247, 1, x_245); +lean_dec(x_174); +x_177 = lean_array_push(x_168, x_18); +x_178 = lean_array_push(x_177, x_170); +x_179 = l_Lean_Parser_Command_attrInstance___elambda__1___closed__2; +x_180 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_180, 0, x_179); +lean_ctor_set(x_180, 1, x_178); +x_181 = lean_array_push(x_168, x_180); +x_182 = l_Lean_nullKind___closed__2; +x_183 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_183, 0, x_182); +lean_ctor_set(x_183, 1, x_181); +x_184 = l_Lean_Elab_Command_elabSyntax___closed__8; +x_185 = lean_array_push(x_184, x_183); +x_186 = l_Lean_Elab_Term_elabArrayLit___closed__13; +x_187 = lean_array_push(x_185, x_186); +x_188 = l_Lean_Parser_Command_attributes___elambda__1___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_168, x_189); +x_191 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_191, 0, x_182); +lean_ctor_set(x_191, 1, x_190); +x_192 = l_Lean_Elab_Command_elabSyntax___closed__6; +x_193 = lean_array_push(x_192, x_191); +x_194 = lean_array_push(x_193, x_170); +x_195 = lean_array_push(x_194, x_170); +x_196 = lean_array_push(x_195, x_170); +x_197 = lean_array_push(x_196, x_170); +x_198 = l_Lean_Parser_Command_declModifiers___elambda__1___closed__2; +x_199 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_199, 0, x_198); +lean_ctor_set(x_199, 1, x_197); +x_200 = lean_array_push(x_168, x_199); +x_201 = l_Lean_Elab_Command_elabSyntax___closed__14; +lean_inc(x_175); +x_202 = lean_name_mk_numeral(x_201, x_175); +x_203 = l_Lean_Elab_Command_elabSyntax___closed__13; +x_204 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_204, 0, x_161); +lean_ctor_set(x_204, 1, x_203); +lean_ctor_set(x_204, 2, x_202); +lean_ctor_set(x_204, 3, x_164); +x_205 = lean_array_push(x_168, x_204); +x_206 = lean_array_push(x_205, x_170); +x_207 = l_Lean_Parser_Command_declId___elambda__1___closed__2; +x_208 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_208, 0, x_207); +lean_ctor_set(x_208, 1, x_206); +x_209 = l_Lean_Elab_Command_elabSyntax___closed__10; +x_210 = lean_array_push(x_209, x_208); +x_211 = l_Lean_Elab_Term_elabArrow___lambda__1___closed__6; +x_212 = lean_array_push(x_211, x_173); +x_213 = l_Lean_Parser_Term_typeSpec___elambda__1___closed__2; +x_214 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_214, 0, x_213); +lean_ctor_set(x_214, 1, x_212); +x_215 = lean_array_push(x_168, x_214); +x_216 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_216, 0, x_182); +lean_ctor_set(x_216, 1, x_215); +x_217 = lean_array_push(x_192, x_216); +x_218 = l_Lean_Parser_Command_optDeclSig___elambda__1___closed__2; +x_219 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_219, 0, x_218); +lean_ctor_set(x_219, 1, x_217); +x_220 = lean_array_push(x_210, x_219); +x_221 = l_Lean_Elab_Command_elabSyntax___closed__19; +x_222 = lean_name_mk_numeral(x_221, x_175); +x_223 = l_Lean_Elab_Command_elabSyntax___closed__18; +x_224 = l_Lean_Elab_Command_elabSyntax___closed__22; +x_225 = lean_alloc_ctor(3, 4, 0); +lean_ctor_set(x_225, 0, x_161); +lean_ctor_set(x_225, 1, x_223); +lean_ctor_set(x_225, 2, x_222); +lean_ctor_set(x_225, 3, x_224); +x_226 = lean_array_push(x_168, x_225); +x_227 = lean_array_push(x_226, x_170); +x_228 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_228, 0, x_172); +lean_ctor_set(x_228, 1, x_227); +x_229 = lean_array_push(x_168, x_228); +x_230 = l___private_Init_Lean_Elab_Quotation_1__quoteName___main(x_14); +x_231 = lean_array_push(x_168, x_230); +x_232 = lean_array_push(x_231, x_157); +x_233 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_233, 0, x_182); +lean_ctor_set(x_233, 1, x_232); +x_234 = lean_array_push(x_229, x_233); +x_235 = l_Lean_mkAppStx___closed__8; +x_236 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_236, 0, x_235); +lean_ctor_set(x_236, 1, x_234); +x_237 = l_Lean_Elab_Command_elabSyntax___closed__15; +x_238 = lean_array_push(x_237, x_236); +x_239 = l_Lean_Parser_Command_declValSimple___elambda__1___closed__2; +x_240 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_240, 0, x_239); +lean_ctor_set(x_240, 1, x_238); +x_241 = lean_array_push(x_220, x_240); +x_242 = l_Lean_Parser_Command_def___elambda__1___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_200, x_243); +x_245 = l_Lean_Parser_Command_declaration___elambda__1___closed__2; +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_inc(x_2); -x_248 = l_Lean_Elab_Command_getOptions(x_2, x_177); -if (lean_obj_tag(x_248) == 0) +x_247 = l_Lean_Elab_Command_getOptions(x_2, x_176); +if (lean_obj_tag(x_247) == 0) { -lean_object* x_249; lean_object* x_250; lean_object* x_251; uint8_t x_252; -x_249 = lean_ctor_get(x_248, 0); +lean_object* x_248; lean_object* x_249; lean_object* x_250; uint8_t x_251; +x_248 = lean_ctor_get(x_247, 0); +lean_inc(x_248); +x_249 = lean_ctor_get(x_247, 1); lean_inc(x_249); -x_250 = lean_ctor_get(x_248, 1); -lean_inc(x_250); +lean_dec(x_247); +x_250 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__2; +x_251 = l_Lean_checkTraceOption(x_248, x_250); lean_dec(x_248); -x_251 = l___private_Init_Lean_Elab_Util_8__regTraceClasses___closed__2; -x_252 = l_Lean_checkTraceOption(x_249, x_251); -lean_dec(x_249); +if (x_251 == 0) +{ +uint8_t x_252; +x_252 = !lean_is_exclusive(x_2); if (x_252 == 0) { -uint8_t x_253; -x_253 = !lean_is_exclusive(x_2); -if (x_253 == 0) -{ -lean_object* x_254; lean_object* x_255; lean_object* x_256; -x_254 = lean_ctor_get(x_2, 5); -x_255 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_255, 0, x_1); -lean_ctor_set(x_255, 1, x_254); -lean_ctor_set(x_2, 5, x_255); -x_256 = l_Lean_Elab_Command_elabCommand___main(x_247, x_2, x_250); -return x_256; +lean_object* x_253; lean_object* x_254; lean_object* x_255; +x_253 = lean_ctor_get(x_2, 5); +x_254 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_254, 0, x_1); +lean_ctor_set(x_254, 1, x_253); +lean_ctor_set(x_2, 5, x_254); +x_255 = l_Lean_Elab_Command_elabCommand___main(x_246, x_2, x_249); +return x_255; } else { -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; -x_257 = lean_ctor_get(x_2, 0); -x_258 = lean_ctor_get(x_2, 1); -x_259 = lean_ctor_get(x_2, 2); -x_260 = lean_ctor_get(x_2, 3); -x_261 = lean_ctor_get(x_2, 4); -x_262 = lean_ctor_get(x_2, 5); -x_263 = lean_ctor_get(x_2, 6); -lean_inc(x_263); +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; +x_256 = lean_ctor_get(x_2, 0); +x_257 = lean_ctor_get(x_2, 1); +x_258 = lean_ctor_get(x_2, 2); +x_259 = lean_ctor_get(x_2, 3); +x_260 = lean_ctor_get(x_2, 4); +x_261 = lean_ctor_get(x_2, 5); +x_262 = lean_ctor_get(x_2, 6); lean_inc(x_262); lean_inc(x_261); lean_inc(x_260); lean_inc(x_259); lean_inc(x_258); lean_inc(x_257); +lean_inc(x_256); lean_dec(x_2); -x_264 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_264, 0, x_1); -lean_ctor_set(x_264, 1, x_262); -x_265 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_265, 0, x_257); -lean_ctor_set(x_265, 1, x_258); -lean_ctor_set(x_265, 2, x_259); -lean_ctor_set(x_265, 3, x_260); -lean_ctor_set(x_265, 4, x_261); -lean_ctor_set(x_265, 5, x_264); -lean_ctor_set(x_265, 6, x_263); -x_266 = l_Lean_Elab_Command_elabCommand___main(x_247, x_265, x_250); -return x_266; +x_263 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_263, 0, x_1); +lean_ctor_set(x_263, 1, x_261); +x_264 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_264, 0, x_256); +lean_ctor_set(x_264, 1, x_257); +lean_ctor_set(x_264, 2, x_258); +lean_ctor_set(x_264, 3, x_259); +lean_ctor_set(x_264, 4, x_260); +lean_ctor_set(x_264, 5, x_263); +lean_ctor_set(x_264, 6, x_262); +x_265 = l_Lean_Elab_Command_elabCommand___main(x_246, x_264, x_249); +return x_265; } } else { -lean_object* x_267; lean_object* x_268; -lean_inc(x_247); -x_267 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_267, 0, x_247); +lean_object* x_266; lean_object* x_267; +lean_inc(x_246); +x_266 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_266, 0, x_246); lean_inc(x_2); -x_268 = l_Lean_Elab_Command_logTrace(x_251, x_1, x_267, x_2, x_250); -if (lean_obj_tag(x_268) == 0) +x_267 = l_Lean_Elab_Command_logTrace(x_250, x_1, x_266, x_2, x_249); +if (lean_obj_tag(x_267) == 0) { -lean_object* x_269; uint8_t x_270; -x_269 = lean_ctor_get(x_268, 1); -lean_inc(x_269); -lean_dec(x_268); -x_270 = !lean_is_exclusive(x_2); -if (x_270 == 0) +lean_object* x_268; uint8_t x_269; +x_268 = lean_ctor_get(x_267, 1); +lean_inc(x_268); +lean_dec(x_267); +x_269 = !lean_is_exclusive(x_2); +if (x_269 == 0) { -lean_object* x_271; lean_object* x_272; lean_object* x_273; -x_271 = lean_ctor_get(x_2, 5); -x_272 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_272, 0, x_1); -lean_ctor_set(x_272, 1, x_271); -lean_ctor_set(x_2, 5, x_272); -x_273 = l_Lean_Elab_Command_elabCommand___main(x_247, x_2, x_269); -return x_273; +lean_object* x_270; lean_object* x_271; lean_object* x_272; +x_270 = lean_ctor_get(x_2, 5); +x_271 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_271, 0, x_1); +lean_ctor_set(x_271, 1, x_270); +lean_ctor_set(x_2, 5, x_271); +x_272 = l_Lean_Elab_Command_elabCommand___main(x_246, x_2, x_268); +return x_272; } else { -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; -x_274 = lean_ctor_get(x_2, 0); -x_275 = lean_ctor_get(x_2, 1); -x_276 = lean_ctor_get(x_2, 2); -x_277 = lean_ctor_get(x_2, 3); -x_278 = lean_ctor_get(x_2, 4); -x_279 = lean_ctor_get(x_2, 5); -x_280 = lean_ctor_get(x_2, 6); -lean_inc(x_280); +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; +x_273 = lean_ctor_get(x_2, 0); +x_274 = lean_ctor_get(x_2, 1); +x_275 = lean_ctor_get(x_2, 2); +x_276 = lean_ctor_get(x_2, 3); +x_277 = lean_ctor_get(x_2, 4); +x_278 = lean_ctor_get(x_2, 5); +x_279 = lean_ctor_get(x_2, 6); lean_inc(x_279); lean_inc(x_278); lean_inc(x_277); lean_inc(x_276); lean_inc(x_275); lean_inc(x_274); +lean_inc(x_273); lean_dec(x_2); -x_281 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_281, 0, x_1); -lean_ctor_set(x_281, 1, x_279); -x_282 = lean_alloc_ctor(0, 7, 0); -lean_ctor_set(x_282, 0, x_274); -lean_ctor_set(x_282, 1, x_275); -lean_ctor_set(x_282, 2, x_276); -lean_ctor_set(x_282, 3, x_277); -lean_ctor_set(x_282, 4, x_278); -lean_ctor_set(x_282, 5, x_281); -lean_ctor_set(x_282, 6, x_280); -x_283 = l_Lean_Elab_Command_elabCommand___main(x_247, x_282, x_269); -return x_283; +x_280 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_280, 0, x_1); +lean_ctor_set(x_280, 1, x_278); +x_281 = lean_alloc_ctor(0, 7, 0); +lean_ctor_set(x_281, 0, x_273); +lean_ctor_set(x_281, 1, x_274); +lean_ctor_set(x_281, 2, x_275); +lean_ctor_set(x_281, 3, x_276); +lean_ctor_set(x_281, 4, x_277); +lean_ctor_set(x_281, 5, x_280); +lean_ctor_set(x_281, 6, x_279); +x_282 = l_Lean_Elab_Command_elabCommand___main(x_246, x_281, x_268); +return x_282; } } else { -uint8_t x_284; -lean_dec(x_247); +uint8_t x_283; +lean_dec(x_246); lean_dec(x_2); lean_dec(x_1); -x_284 = !lean_is_exclusive(x_268); -if (x_284 == 0) +x_283 = !lean_is_exclusive(x_267); +if (x_283 == 0) { -return x_268; +return x_267; } else { -lean_object* x_285; lean_object* x_286; lean_object* x_287; -x_285 = lean_ctor_get(x_268, 0); -x_286 = lean_ctor_get(x_268, 1); -lean_inc(x_286); +lean_object* x_284; lean_object* x_285; lean_object* x_286; +x_284 = lean_ctor_get(x_267, 0); +x_285 = lean_ctor_get(x_267, 1); lean_inc(x_285); -lean_dec(x_268); -x_287 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_287, 0, x_285); -lean_ctor_set(x_287, 1, x_286); -return x_287; +lean_inc(x_284); +lean_dec(x_267); +x_286 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_286, 0, x_284); +lean_ctor_set(x_286, 1, x_285); +return x_286; } } } } else { -uint8_t x_288; -lean_dec(x_247); +uint8_t x_287; +lean_dec(x_246); lean_dec(x_2); lean_dec(x_1); -x_288 = !lean_is_exclusive(x_248); -if (x_288 == 0) +x_287 = !lean_is_exclusive(x_247); +if (x_287 == 0) { -return x_248; +return x_247; } else { -lean_object* x_289; lean_object* x_290; lean_object* x_291; -x_289 = lean_ctor_get(x_248, 0); -x_290 = lean_ctor_get(x_248, 1); -lean_inc(x_290); +lean_object* x_288; lean_object* x_289; lean_object* x_290; +x_288 = lean_ctor_get(x_247, 0); +x_289 = lean_ctor_get(x_247, 1); lean_inc(x_289); -lean_dec(x_248); -x_291 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_291, 0, x_289); -lean_ctor_set(x_291, 1, x_290); -return x_291; +lean_inc(x_288); +lean_dec(x_247); +x_290 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_290, 0, x_288); +lean_ctor_set(x_290, 1, x_289); +return x_290; } } } @@ -8228,67 +8245,65 @@ return x_291; } else { -uint8_t x_384; +uint8_t x_382; lean_dec(x_9); lean_dec(x_2); lean_dec(x_1); -x_384 = !lean_is_exclusive(x_14); -if (x_384 == 0) +x_382 = !lean_is_exclusive(x_13); +if (x_382 == 0) { -return x_14; +return x_13; } else { -lean_object* x_385; lean_object* x_386; lean_object* x_387; -x_385 = lean_ctor_get(x_14, 0); -x_386 = lean_ctor_get(x_14, 1); -lean_inc(x_386); -lean_inc(x_385); -lean_dec(x_14); -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; +lean_object* x_383; lean_object* x_384; lean_object* x_385; +x_383 = lean_ctor_get(x_13, 0); +x_384 = lean_ctor_get(x_13, 1); +lean_inc(x_384); +lean_inc(x_383); +lean_dec(x_13); +x_385 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_385, 0, x_383); +lean_ctor_set(x_385, 1, x_384); +return x_385; } } } } else { -uint8_t x_401; +uint8_t x_399; lean_dec(x_2); lean_dec(x_1); -x_401 = !lean_is_exclusive(x_4); -if (x_401 == 0) +x_399 = !lean_is_exclusive(x_4); +if (x_399 == 0) { return x_4; } else { -lean_object* x_402; lean_object* x_403; lean_object* x_404; -x_402 = lean_ctor_get(x_4, 0); -x_403 = lean_ctor_get(x_4, 1); -lean_inc(x_403); -lean_inc(x_402); +lean_object* x_400; lean_object* x_401; lean_object* x_402; +x_400 = lean_ctor_get(x_4, 0); +x_401 = lean_ctor_get(x_4, 1); +lean_inc(x_401); +lean_inc(x_400); lean_dec(x_4); -x_404 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_404, 0, x_402); -lean_ctor_set(x_404, 1, x_403); -return x_404; +x_402 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_402, 0, x_400); +lean_ctor_set(x_402, 1, x_401); +return x_402; } } } } -lean_object* l_Lean_Elab_Command_elabSyntax___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_Lean_Elab_Command_elabSyntax___lambda__1___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_7; lean_object* x_8; -x_7 = lean_unbox(x_3); +lean_object* x_6; +x_6 = l_Lean_Elab_Command_elabSyntax___lambda__1(x_1, x_2, x_3, x_4, x_5); lean_dec(x_3); -x_8 = l_Lean_Elab_Command_elabSyntax___lambda__1(x_1, x_2, x_7, x_4, x_5, x_6); -lean_dec(x_4); lean_dec(x_1); -return x_8; +return x_6; } } lean_object* _init_l___regBuiltinCommandElab_Lean_Elab_Command_elabSyntax___closed__1() { @@ -12835,22 +12850,6 @@ 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___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(); diff --git a/stage0/stdlib/Init/Lean/Parser/Parser.c b/stage0/stdlib/Init/Lean/Parser/Parser.c index 67f1056ac1..4e70aead5f 100644 --- a/stage0/stdlib/Init/Lean/Parser/Parser.c +++ b/stage0/stdlib/Init/Lean/Parser/Parser.c @@ -98,11 +98,9 @@ extern lean_object* l_Lean_fieldIdxKind___closed__2; 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*); -lean_object* l_Lean_Parser_addPrattParserCategory___boxed(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_Lean_Parser_rawFn___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); extern lean_object* l_List_repr___rarg___closed__1; -uint8_t l_Lean_Parser_isPrattParserCategory(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_identFnAux___main___spec__2___boxed(lean_object*, lean_object*); lean_object* l_Lean_Parser_optionaInfo___elambda__2(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserFn_inhabited___rarg(lean_object*); @@ -164,6 +162,7 @@ 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; @@ -317,6 +316,7 @@ lean_object* l_Lean_Parser_rawIdentNoAntiquot___boxed(lean_object*); lean_object* l_Lean_Parser_andthenInfo___elambda__2(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAntiquot___closed__3; lean_object* l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(lean_object*, lean_object*); +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; @@ -367,7 +367,6 @@ 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_Lean_Parser_isPrattParserCategory___boxed(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*); @@ -423,7 +422,6 @@ lean_object* l_Lean_Syntax_foldSepArgsM___rarg___boxed(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*); lean_object* l_Lean_Parser_mkBuiltinParserCategories(lean_object*); -lean_object* l_Lean_Parser_addLeadingParser___closed__2; lean_object* l_Lean_Parser_takeUntilFn___boxed(lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_8__mkResult(lean_object*, lean_object*); lean_object* l_Lean_Parser_takeUntilFn___main___at_Lean_Parser_quotedSymbolFn___spec__2(uint32_t, lean_object*, lean_object*); @@ -512,9 +510,7 @@ lean_object* l_Lean_Parser_optionaInfo(lean_object*); lean_object* l_Lean_Parser_FirstTokens_seq(lean_object*, lean_object*); lean_object* l_Lean_Parser_peekToken(lean_object*, lean_object*); lean_object* l_Lean_Parser_Error_toString___closed__4; -lean_object* l_Lean_Parser_addLeadingParser___closed__1; lean_object* l_Lean_Parser_anyOfFn___main___closed__1; -lean_object* l_Lean_Parser_runParserCategory___closed__2; lean_object* l_Lean_Parser_SyntaxNodeKindSet_insert(lean_object*, lean_object*); extern lean_object* l_Lean_strLitKind___closed__1; lean_object* lean_array_fset(lean_object*, lean_object*, lean_object*); @@ -538,6 +534,7 @@ lean_object* l_Lean_Parser_trailingLoopStep(lean_object*, lean_object*, lean_obj lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_foldArgsM___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); 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_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*); @@ -565,7 +562,6 @@ lean_object* l_Lean_Parser_strAux___main(lean_object*, lean_object*, lean_object lean_object* l_Lean_Parser_mkAntiquot___closed__10; lean_object* l_Array_foldlStepMAux___main___at_Lean_Syntax_foldSepArgsM___spec__1(lean_object*, lean_object*); lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_chFn___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_runParserCategory___closed__1; lean_object* l_Lean_Parser_categoryParserFnExtension___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkIdResult(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhileFn___at_Lean_Parser_decimalNumberFn___spec__1(lean_object*, lean_object*); @@ -599,12 +595,10 @@ 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_Lean_Parser_registerSimpleParserCategory(lean_object*, lean_object*, lean_object*, 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*); -lean_object* l_Lean_Parser_addSimpleParserCategory(lean_object*, lean_object*); lean_object* l_Lean_Parser_FirstTokens_merge(lean_object*, lean_object*); lean_object* l_Lean_Parser_manyAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_eval_const(lean_object*, lean_object*); @@ -644,7 +638,6 @@ extern lean_object* l_Lean_Options_empty; extern lean_object* l_IO_Error_Inhabited___closed__1; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_octalNumberFn___spec__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_symbolFn(uint8_t); -lean_object* l_Lean_Parser_registerPrattParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_ParserState_hasError___boxed(lean_object*); lean_object* l_Lean_Parser_unicodeSymbol___boxed(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_PersistentHashMap_empty___at_Lean_Parser_mkBuiltinSyntaxNodeKindSetRef___spec__1; @@ -653,6 +646,7 @@ lean_object* l_Lean_Parser_compileParserDescr___main___closed__1; lean_object* l_Lean_Parser_identFnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_13__antiquotExpr___elambda__1___boxed(lean_object*); 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_compileParserDescr___main___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_categoryParserFnExtension___closed__3; @@ -666,7 +660,6 @@ lean_object* l_Lean_Parser_symbolNoWsInfo(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*); -lean_object* l_Lean_Parser_registerPrattParserCategory___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_FileMap_toPosition(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkAtomicInfo___elambda__1(lean_object*); lean_object* l_Lean_Parser_anyOfFn(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*); @@ -715,7 +708,6 @@ lean_object* l_Lean_Parser_rawIdentNoAntiquot___lambda__1(lean_object*, lean_obj lean_object* l_Lean_Parser_mkAntiquot___closed__7; lean_object* l_Lean_Parser_chFn(uint8_t); lean_object* l_Lean_Parser_mkAtomicInfo___elambda__2___boxed(lean_object*); -lean_object* l_Lean_Parser_addPrattParserCategory(lean_object*, lean_object*, uint8_t); lean_object* l_Lean_ConstantInfo_type(lean_object*); lean_object* l_Lean_Parser_declareBuiltinParser___closed__6; lean_object* l_Lean_Parser_satisfyFn___at_Lean_Parser_quotedSymbolFn___spec__1(uint32_t, lean_object*, lean_object*, lean_object*); @@ -774,6 +766,7 @@ lean_object* l_Lean_Parser_unicodeSymbolCheckPrec(lean_object*, lean_object*, le lean_object* l_Lean_Parser_declareLeadingBuiltinParser(lean_object*, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_appPrec; lean_object* l_Lean_Parser_checkColGeFn(lean_object*, lean_object*, lean_object*, lean_object*); +lean_object* l_Lean_Parser_registerParserCategory(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*); lean_object* l_Lean_Parser_charLitFnAux___boxed(lean_object*, lean_object*, lean_object*); extern lean_object* l_Option_HasRepr___rarg___closed__3; lean_object* l_Lean_Parser_prattParser___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -823,7 +816,6 @@ lean_object* l_Lean_Parser_ParserState_keepNewError___boxed(lean_object*, lean_o lean_object* l_Lean_Parser_rawIdent___elambda__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); lean_object* lean_environment_main_module(lean_object*); lean_object* l_Lean_Parser_longestMatchFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_isSimpleParserCategory___boxed(lean_object*, lean_object*); lean_object* l___private_Init_Lean_Parser_Parser_13__antiquotExpr(uint8_t); extern lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__4___closed__2; lean_object* l_Lean_Parser_ParserState_mkUnexpectedErrorAt(lean_object*, lean_object*, lean_object*); @@ -984,7 +976,6 @@ uint8_t l_Lean_Syntax_isOfKind(lean_object*, lean_object*); lean_object* l_Lean_PersistentEnvExtension_getState___rarg(lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkLongestNodeAlt(lean_object*, lean_object*); lean_object* l_Lean_Syntax_isNone___boxed(lean_object*); -uint8_t l_Lean_Parser_isSimpleParserCategory(lean_object*, lean_object*); lean_object* l_Lean_Parser_currLbp(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_mkParserOfConstant(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_takeWhile1Fn(lean_object*, lean_object*, lean_object*, lean_object*); @@ -1100,7 +1091,6 @@ lean_object* l_Lean_Parser_symbolFnAux(lean_object*, lean_object*, lean_object*, lean_object* l_Lean_Parser_hexDigitFn___closed__1; lean_object* l_Lean_Parser_mkAtom(lean_object*, lean_object*); lean_object* l_Lean_Parser_mkFreshKindAux(lean_object*, lean_object*, lean_object*); -lean_object* l_Lean_Parser_addTrailingParser___closed__1; lean_object* l_Lean_Parser_currLbp___boxed(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_ParserState_mkEOIError(lean_object*); lean_object* l_Lean_Parser_unicodeSymbolFnAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*); @@ -1192,6 +1182,7 @@ 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*); lean_object* l_Array_foldlStepMAux___main___at_Array_foldSepByM___spec__1___boxed(lean_object*, lean_object*); @@ -23641,10 +23632,11 @@ _start: lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); x_2 = lean_box(0); -x_3 = lean_alloc_ctor(0, 3, 0); +x_3 = lean_alloc_ctor(0, 4, 0); lean_ctor_set(x_3, 0, x_1); -lean_ctor_set(x_3, 1, x_1); -lean_ctor_set(x_3, 2, x_2); +lean_ctor_set(x_3, 1, x_2); +lean_ctor_set(x_3, 2, x_1); +lean_ctor_set(x_3, 3, x_2); return x_3; } } @@ -23659,11 +23651,13 @@ return x_1; lean_object* _init_l_Lean_Parser_ParserCategory_inhabited___closed__1() { _start: { -lean_object* x_1; lean_object* x_2; -x_1 = lean_box(0); -x_2 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; +lean_object* x_1; uint8_t x_2; lean_object* x_3; +x_1 = l_Lean_Parser_PrattParsingTables_inhabited___closed__1; +x_2 = 0; +x_3 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_3, 0, x_1); +lean_ctor_set_uint8(x_3, sizeof(void*)*1, x_2); +return x_3; } } lean_object* _init_l_Lean_Parser_ParserCategory_inhabited() { @@ -25057,40 +25051,46 @@ return x_1; lean_object* l_Lean_Parser_leadingParser(lean_object* x_1, lean_object* x_2, uint8_t x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) { _start: { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; uint8_t x_13; +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; uint8_t x_15; x_7 = lean_ctor_get(x_6, 0); lean_inc(x_7); x_8 = lean_array_get_size(x_7); lean_dec(x_7); x_9 = lean_ctor_get(x_2, 0); +lean_inc(x_9); lean_inc(x_5); x_10 = l_Lean_Parser_indexed___rarg(x_9, x_5, x_6, x_3); +lean_dec(x_9); x_11 = lean_ctor_get(x_10, 0); lean_inc(x_11); x_12 = lean_ctor_get(x_10, 1); lean_inc(x_12); lean_dec(x_10); -x_13 = l_List_isEmpty___rarg(x_12); -if (x_13 == 0) +x_13 = lean_ctor_get(x_2, 1); +lean_inc(x_13); +lean_dec(x_2); +x_14 = l_List_append___rarg(x_13, x_12); +x_15 = l_List_isEmpty___rarg(x_14); +if (x_15 == 0) { -uint8_t x_14; lean_object* x_15; lean_object* x_16; +uint8_t x_16; lean_object* x_17; lean_object* x_18; lean_dec(x_1); -x_14 = 0; -x_15 = l_Lean_Parser_longestMatchFn(x_14, x_12, x_4, x_5, x_11); -x_16 = l___private_Init_Lean_Parser_Parser_8__mkResult(x_15, x_8); -return x_16; +x_16 = 0; +x_17 = l_Lean_Parser_longestMatchFn(x_16, x_14, x_4, x_5, x_11); +x_18 = l___private_Init_Lean_Parser_Parser_8__mkResult(x_17, x_8); +return x_18; } else { -lean_object* x_17; lean_object* x_18; lean_object* x_19; -lean_dec(x_12); +lean_object* x_19; lean_object* x_20; lean_object* x_21; +lean_dec(x_14); lean_dec(x_8); lean_dec(x_5); lean_dec(x_4); -x_17 = l_Lean_Name_toString___closed__1; -x_18 = l_Lean_Name_toStringWithSep___main(x_17, x_1); -x_19 = l_Lean_Parser_ParserState_mkError(x_11, x_18); -return x_19; +x_19 = l_Lean_Name_toString___closed__1; +x_20 = l_Lean_Name_toStringWithSep___main(x_19, x_1); +x_21 = l_Lean_Parser_ParserState_mkError(x_11, x_20); +return x_21; } } } @@ -25101,7 +25101,6 @@ uint8_t x_7; lean_object* x_8; x_7 = lean_unbox(x_3); lean_dec(x_3); x_8 = l_Lean_Parser_leadingParser(x_1, x_2, x_7, x_4, x_5, x_6); -lean_dec(x_2); return x_8; } } @@ -25109,7 +25108,7 @@ lean_object* l_Lean_Parser_trailingLoopStep(lean_object* x_1, lean_object* x_2, _start: { lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; uint8_t x_10; lean_object* x_11; lean_object* x_12; -x_6 = lean_ctor_get(x_1, 2); +x_6 = lean_ctor_get(x_1, 3); lean_inc(x_6); lean_dec(x_1); x_7 = lean_ctor_get(x_5, 0); @@ -25187,7 +25186,7 @@ x_10 = lean_ctor_get(x_7, 0); lean_inc(x_10); x_11 = lean_array_get_size(x_10); lean_dec(x_10); -x_12 = lean_ctor_get(x_1, 1); +x_12 = lean_ctor_get(x_1, 2); lean_inc(x_12); x_13 = 0; lean_inc(x_3); @@ -25232,7 +25231,7 @@ return x_18; else { lean_object* x_25; uint8_t x_26; -x_25 = lean_ctor_get(x_1, 2); +x_25 = lean_ctor_get(x_1, 3); lean_inc(x_25); x_26 = l_List_isEmpty___rarg(x_25); lean_dec(x_25); @@ -25320,6 +25319,7 @@ _start: lean_object* x_7; lean_object* x_8; lean_inc(x_5); lean_inc(x_4); +lean_inc(x_2); x_7 = l_Lean_Parser_leadingParser(x_1, x_2, x_3, x_4, x_5, x_6); x_8 = lean_ctor_get(x_7, 3); lean_inc(x_8); @@ -29031,186 +29031,214 @@ goto _start; } else { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; x_10 = lean_ctor_get(x_2, 0); x_11 = lean_ctor_get(x_2, 1); x_12 = lean_ctor_get(x_2, 2); +x_13 = lean_ctor_get(x_2, 3); +lean_inc(x_13); lean_inc(x_12); lean_inc(x_11); lean_inc(x_10); lean_dec(x_2); lean_inc(x_1); -x_13 = l_Lean_Parser_TokenMap_insert___rarg(x_10, x_4, x_1); -x_14 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_14, 0, x_13); -lean_ctor_set(x_14, 1, x_11); -lean_ctor_set(x_14, 2, x_12); -x_2 = x_14; +x_14 = l_Lean_Parser_TokenMap_insert___rarg(x_10, x_4, x_1); +x_15 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_15, 0, x_14); +lean_ctor_set(x_15, 1, x_11); +lean_ctor_set(x_15, 2, x_12); +lean_ctor_set(x_15, 3, x_13); +x_2 = x_15; x_3 = x_5; goto _start; } } } } -lean_object* _init_l_Lean_Parser_addLeadingParser___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("invalid parser '"); -return x_1; -} -} -lean_object* _init_l_Lean_Parser_addLeadingParser___closed__2() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("', initial token is not statically known"); -return x_1; -} -} lean_object* l_Lean_Parser_addLeadingParser(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { -lean_object* x_5; lean_object* x_14; +lean_object* x_5; lean_inc(x_1); -x_14 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_1, x_2); -if (lean_obj_tag(x_14) == 0) +x_5 = l_PersistentHashMap_find_x3f___at_Lean_Parser_addLeadingParser___spec__1(x_1, x_2); +if (lean_obj_tag(x_5) == 0) { -lean_object* x_15; +lean_object* x_6; lean_dec(x_4); -lean_dec(x_3); lean_dec(x_1); -x_15 = l_Lean_Parser_throwUnknownParserCategory___rarg(x_2); +x_6 = l_Lean_Parser_throwUnknownParserCategory___rarg(x_2); +return x_6; +} +else +{ +lean_object* x_7; lean_object* x_8; lean_object* x_37; lean_object* x_53; lean_object* x_54; +x_7 = lean_ctor_get(x_5, 0); +lean_inc(x_7); +lean_dec(x_5); +x_53 = lean_ctor_get(x_4, 0); +lean_inc(x_53); +x_54 = lean_ctor_get(x_53, 2); +lean_inc(x_54); +lean_dec(x_53); +switch (lean_obj_tag(x_54)) { +case 2: +{ +lean_object* x_55; +x_55 = lean_ctor_get(x_54, 0); +lean_inc(x_55); +lean_dec(x_54); +x_37 = x_55; +goto block_52; +} +case 3: +{ +lean_object* x_56; +x_56 = lean_ctor_get(x_54, 0); +lean_inc(x_56); +lean_dec(x_54); +x_37 = x_56; +goto block_52; +} +default: +{ +lean_object* x_57; +lean_dec(x_54); +x_57 = lean_box(0); +x_8 = x_57; +goto block_36; +} +} +block_36: +{ +uint8_t x_9; +lean_dec(x_8); +x_9 = !lean_is_exclusive(x_7); +if (x_9 == 0) +{ +lean_object* x_10; uint8_t x_11; +x_10 = lean_ctor_get(x_7, 0); +x_11 = !lean_is_exclusive(x_10); +if (x_11 == 0) +{ +lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; +x_12 = lean_ctor_get(x_10, 1); +x_13 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_13, 0, x_4); +lean_ctor_set(x_13, 1, x_12); +lean_ctor_set(x_10, 1, x_13); +x_14 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_7); +x_15 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_15, 0, x_14); return x_15; } else { -lean_object* x_16; -x_16 = lean_ctor_get(x_14, 0); -lean_inc(x_16); -lean_dec(x_14); -if (lean_obj_tag(x_16) == 0) -{ -lean_object* x_17; uint8_t x_18; lean_object* x_19; lean_object* x_20; lean_object* x_28; lean_object* x_29; -x_17 = lean_ctor_get(x_16, 0); +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; +x_16 = lean_ctor_get(x_10, 0); +x_17 = lean_ctor_get(x_10, 1); +x_18 = lean_ctor_get(x_10, 2); +x_19 = lean_ctor_get(x_10, 3); +lean_inc(x_19); +lean_inc(x_18); lean_inc(x_17); -x_18 = lean_ctor_get_uint8(x_16, sizeof(void*)*1); -if (lean_is_exclusive(x_16)) { - lean_ctor_release(x_16, 0); - x_19 = x_16; -} else { - lean_dec_ref(x_16); - x_19 = lean_box(0); -} -x_28 = lean_ctor_get(x_4, 0); -lean_inc(x_28); -x_29 = lean_ctor_get(x_28, 2); -lean_inc(x_29); -lean_dec(x_28); -switch (lean_obj_tag(x_29)) { -case 2: -{ -lean_object* x_30; -lean_dec(x_3); -x_30 = lean_ctor_get(x_29, 0); -lean_inc(x_30); -lean_dec(x_29); -x_20 = x_30; -goto block_27; -} -case 3: -{ -lean_object* x_31; -lean_dec(x_3); -x_31 = lean_ctor_get(x_29, 0); -lean_inc(x_31); -lean_dec(x_29); -x_20 = x_31; -goto block_27; -} -default: -{ -lean_object* x_32; -lean_dec(x_29); -lean_dec(x_19); -lean_dec(x_17); -lean_dec(x_4); -lean_dec(x_2); -lean_dec(x_1); -x_32 = lean_box(0); -x_5 = x_32; -goto block_13; -} -} -block_27: -{ -lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; -x_21 = l_List_map___main___at_Lean_Parser_addLeadingParser___spec__4(x_20); -x_22 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_21); -x_23 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(x_4, x_17, x_22); -if (lean_is_scalar(x_19)) { - x_24 = lean_alloc_ctor(0, 1, 1); -} else { - x_24 = x_19; -} -lean_ctor_set(x_24, 0, x_23); -lean_ctor_set_uint8(x_24, sizeof(void*)*1, x_18); -x_25 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_24); -x_26 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_26, 0, x_25); -return x_26; +lean_inc(x_16); +lean_dec(x_10); +x_20 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_20, 0, x_4); +lean_ctor_set(x_20, 1, x_17); +x_21 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_21, 0, x_16); +lean_ctor_set(x_21, 1, x_20); +lean_ctor_set(x_21, 2, x_18); +lean_ctor_set(x_21, 3, x_19); +lean_ctor_set(x_7, 0, x_21); +x_22 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_7); +x_23 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_23, 0, x_22); +return x_23; } } else { -uint8_t x_33; -lean_dec(x_3); -x_33 = !lean_is_exclusive(x_16); -if (x_33 == 0) -{ -lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37; -x_34 = lean_ctor_get(x_16, 0); -x_35 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_35, 0, x_4); -lean_ctor_set(x_35, 1, x_34); -lean_ctor_set(x_16, 0, x_35); -x_36 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_16); -x_37 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_37, 0, x_36); -return x_37; -} -else -{ -lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; -x_38 = lean_ctor_get(x_16, 0); -lean_inc(x_38); -lean_dec(x_16); -x_39 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_39, 0, x_4); -lean_ctor_set(x_39, 1, x_38); -x_40 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_40, 0, x_39); -x_41 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_40); -x_42 = lean_alloc_ctor(1, 1, 0); -lean_ctor_set(x_42, 0, x_41); -return x_42; -} -} -} -block_13: -{ -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_dec(x_5); -x_6 = l_Lean_Name_toString___closed__1; -x_7 = l_Lean_Name_toStringWithSep___main(x_6, x_3); -x_8 = l_Lean_Parser_addLeadingParser___closed__1; -x_9 = lean_string_append(x_8, x_7); +lean_object* x_24; uint8_t x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; +x_24 = lean_ctor_get(x_7, 0); +x_25 = lean_ctor_get_uint8(x_7, sizeof(void*)*1); +lean_inc(x_24); lean_dec(x_7); -x_10 = l_Lean_Parser_addLeadingParser___closed__2; -x_11 = lean_string_append(x_9, x_10); -x_12 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_12, 0, x_11); -return x_12; +x_26 = lean_ctor_get(x_24, 0); +lean_inc(x_26); +x_27 = lean_ctor_get(x_24, 1); +lean_inc(x_27); +x_28 = lean_ctor_get(x_24, 2); +lean_inc(x_28); +x_29 = lean_ctor_get(x_24, 3); +lean_inc(x_29); +if (lean_is_exclusive(x_24)) { + lean_ctor_release(x_24, 0); + lean_ctor_release(x_24, 1); + lean_ctor_release(x_24, 2); + lean_ctor_release(x_24, 3); + x_30 = x_24; +} else { + lean_dec_ref(x_24); + x_30 = lean_box(0); +} +x_31 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_31, 0, x_4); +lean_ctor_set(x_31, 1, x_27); +if (lean_is_scalar(x_30)) { + x_32 = lean_alloc_ctor(0, 4, 0); +} else { + x_32 = x_30; +} +lean_ctor_set(x_32, 0, x_26); +lean_ctor_set(x_32, 1, x_31); +lean_ctor_set(x_32, 2, x_28); +lean_ctor_set(x_32, 3, x_29); +x_33 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_33, 0, x_32); +lean_ctor_set_uint8(x_33, sizeof(void*)*1, x_25); +x_34 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_33); +x_35 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_35, 0, x_34); +return x_35; +} +} +block_52: +{ +lean_object* x_38; uint8_t x_39; +x_38 = l_List_map___main___at_Lean_Parser_addLeadingParser___spec__4(x_37); +x_39 = !lean_is_exclusive(x_7); +if (x_39 == 0) +{ +lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; +x_40 = lean_ctor_get(x_7, 0); +x_41 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_38); +x_42 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(x_4, x_40, x_41); +lean_ctor_set(x_7, 0, x_42); +x_43 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_7); +x_44 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_44, 0, x_43); +return x_44; +} +else +{ +lean_object* x_45; uint8_t x_46; lean_object* x_47; lean_object* x_48; lean_object* x_49; lean_object* x_50; lean_object* x_51; +x_45 = lean_ctor_get(x_7, 0); +x_46 = lean_ctor_get_uint8(x_7, sizeof(void*)*1); +lean_inc(x_45); +lean_dec(x_7); +x_47 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_38); +x_48 = l_List_foldl___main___at_Lean_Parser_addLeadingParser___spec__8(x_4, x_45, x_47); +x_49 = lean_alloc_ctor(0, 1, 1); +lean_ctor_set(x_49, 0, x_48); +lean_ctor_set_uint8(x_49, sizeof(void*)*1, x_46); +x_50 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_1, x_2, x_49); +x_51 = lean_alloc_ctor(1, 1, 0); +lean_ctor_set(x_51, 0, x_50); +return x_51; +} +} } } } @@ -29256,6 +29284,15 @@ x_4 = lean_box(x_3); return x_4; } } +lean_object* l_Lean_Parser_addLeadingParser___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { +_start: +{ +lean_object* x_5; +x_5 = l_Lean_Parser_addLeadingParser(x_1, x_2, x_3, x_4); +lean_dec(x_3); +return x_5; +} +} lean_object* l_List_foldl___main___at___private_Init_Lean_Parser_Parser_20__addTrailingParserAux___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -29276,30 +29313,33 @@ x_6 = !lean_is_exclusive(x_2); if (x_6 == 0) { lean_object* x_7; lean_object* x_8; -x_7 = lean_ctor_get(x_2, 1); +x_7 = lean_ctor_get(x_2, 2); lean_inc(x_1); x_8 = l_Lean_Parser_TokenMap_insert___rarg(x_7, x_4, x_1); -lean_ctor_set(x_2, 1, x_8); +lean_ctor_set(x_2, 2, x_8); x_3 = x_5; goto _start; } else { -lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; x_10 = lean_ctor_get(x_2, 0); x_11 = lean_ctor_get(x_2, 1); x_12 = lean_ctor_get(x_2, 2); +x_13 = lean_ctor_get(x_2, 3); +lean_inc(x_13); lean_inc(x_12); lean_inc(x_11); lean_inc(x_10); lean_dec(x_2); lean_inc(x_1); -x_13 = l_Lean_Parser_TokenMap_insert___rarg(x_11, x_4, x_1); -x_14 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_14, 0, x_10); -lean_ctor_set(x_14, 1, x_13); -lean_ctor_set(x_14, 2, x_12); -x_2 = x_14; +x_14 = l_Lean_Parser_TokenMap_insert___rarg(x_12, x_4, x_1); +x_15 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_15, 0, x_10); +lean_ctor_set(x_15, 1, x_11); +lean_ctor_set(x_15, 2, x_14); +lean_ctor_set(x_15, 3, x_13); +x_2 = x_15; x_3 = x_5; goto _start; } @@ -29309,41 +29349,41 @@ goto _start; lean_object* l___private_Init_Lean_Parser_Parser_20__addTrailingParserAux(lean_object* x_1, lean_object* x_2) { _start: { -lean_object* x_3; lean_object* x_13; lean_object* x_18; lean_object* x_19; -x_18 = lean_ctor_get(x_2, 0); -lean_inc(x_18); -x_19 = lean_ctor_get(x_18, 2); +lean_object* x_3; lean_object* x_14; lean_object* x_19; lean_object* x_20; +x_19 = lean_ctor_get(x_2, 0); lean_inc(x_19); -lean_dec(x_18); -switch (lean_obj_tag(x_19)) { -case 2: -{ -lean_object* x_20; -x_20 = lean_ctor_get(x_19, 0); +x_20 = lean_ctor_get(x_19, 2); lean_inc(x_20); lean_dec(x_19); -x_13 = x_20; -goto block_17; +switch (lean_obj_tag(x_20)) { +case 2: +{ +lean_object* x_21; +x_21 = lean_ctor_get(x_20, 0); +lean_inc(x_21); +lean_dec(x_20); +x_14 = x_21; +goto block_18; } case 3: { -lean_object* x_21; -x_21 = lean_ctor_get(x_19, 0); -lean_inc(x_21); -lean_dec(x_19); -x_13 = x_21; -goto block_17; +lean_object* x_22; +x_22 = lean_ctor_get(x_20, 0); +lean_inc(x_22); +lean_dec(x_20); +x_14 = x_22; +goto block_18; } default: { -lean_object* x_22; -lean_dec(x_19); -x_22 = lean_box(0); -x_3 = x_22; -goto block_12; +lean_object* x_23; +lean_dec(x_20); +x_23 = lean_box(0); +x_3 = x_23; +goto block_13; } } -block_12: +block_13: { uint8_t x_4; lean_dec(x_3); @@ -29351,51 +29391,46 @@ x_4 = !lean_is_exclusive(x_1); if (x_4 == 0) { lean_object* x_5; lean_object* x_6; -x_5 = lean_ctor_get(x_1, 2); +x_5 = lean_ctor_get(x_1, 3); x_6 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_6, 0, x_2); lean_ctor_set(x_6, 1, x_5); -lean_ctor_set(x_1, 2, x_6); +lean_ctor_set(x_1, 3, x_6); return x_1; } else { -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; +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_1, 0); x_8 = lean_ctor_get(x_1, 1); x_9 = lean_ctor_get(x_1, 2); +x_10 = lean_ctor_get(x_1, 3); +lean_inc(x_10); lean_inc(x_9); lean_inc(x_8); lean_inc(x_7); lean_dec(x_1); -x_10 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_10, 0, x_2); -lean_ctor_set(x_10, 1, x_9); -x_11 = lean_alloc_ctor(0, 3, 0); -lean_ctor_set(x_11, 0, x_7); -lean_ctor_set(x_11, 1, x_8); -lean_ctor_set(x_11, 2, x_10); -return x_11; +x_11 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_11, 0, x_2); +lean_ctor_set(x_11, 1, x_10); +x_12 = lean_alloc_ctor(0, 4, 0); +lean_ctor_set(x_12, 0, x_7); +lean_ctor_set(x_12, 1, x_8); +lean_ctor_set(x_12, 2, x_9); +lean_ctor_set(x_12, 3, x_11); +return x_12; } } -block_17: +block_18: { -lean_object* x_14; lean_object* x_15; lean_object* x_16; -x_14 = l_List_map___main___at_Lean_Parser_addLeadingParser___spec__4(x_13); -x_15 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_14); -x_16 = l_List_foldl___main___at___private_Init_Lean_Parser_Parser_20__addTrailingParserAux___spec__1(x_2, x_1, x_15); -return x_16; +lean_object* x_15; lean_object* x_16; lean_object* x_17; +x_15 = l_List_map___main___at_Lean_Parser_addLeadingParser___spec__4(x_14); +x_16 = l_List_eraseDups___at_Lean_Parser_addLeadingParser___spec__5(x_15); +x_17 = l_List_foldl___main___at___private_Init_Lean_Parser_Parser_20__addTrailingParserAux___spec__1(x_2, x_1, x_16); +return x_17; } } } -lean_object* _init_l_Lean_Parser_addTrailingParser___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("' does not support trailing parsers"); -return x_1; -} -} lean_object* l_Lean_Parser_addTrailingParser(lean_object* x_1, lean_object* x_2, lean_object* x_3) { _start: { @@ -29412,13 +29447,10 @@ return x_5; } else { -lean_object* x_6; +lean_object* x_6; uint8_t x_7; x_6 = lean_ctor_get(x_4, 0); lean_inc(x_6); lean_dec(x_4); -if (lean_obj_tag(x_6) == 0) -{ -uint8_t x_7; x_7 = !lean_is_exclusive(x_6); if (x_7 == 0) { @@ -29448,24 +29480,6 @@ lean_ctor_set(x_17, 0, x_16); return x_17; } } -else -{ -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_dec(x_6); -lean_dec(x_3); -lean_dec(x_1); -x_18 = l_Lean_Name_toString___closed__1; -x_19 = l_Lean_Name_toStringWithSep___main(x_18, x_2); -x_20 = l___private_Init_Lean_Parser_Parser_14__throwParserCategoryAlreadyDefined___rarg___closed__1; -x_21 = lean_string_append(x_20, x_19); -lean_dec(x_19); -x_22 = l_Lean_Parser_addTrailingParser___closed__1; -x_23 = lean_string_append(x_21, x_22); -x_24 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_24, 0, x_23); -return x_24; -} -} } } lean_object* l_Lean_Parser_addParser(uint8_t x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { @@ -29480,7 +29494,6 @@ return x_6; else { lean_object* x_7; -lean_dec(x_4); x_7 = l_Lean_Parser_addTrailingParser(x_2, x_3, x_5); return x_7; } @@ -29493,6 +29506,7 @@ uint8_t x_6; lean_object* x_7; x_6 = lean_unbox(x_1); lean_dec(x_1); x_7 = l_Lean_Parser_addParser(x_6, x_2, x_3, x_4, x_5); +lean_dec(x_4); return x_7; } } @@ -29703,7 +29717,6 @@ x_9 = lean_ctor_get(x_7, 1); lean_inc(x_9); lean_dec(x_7); lean_inc(x_4); -lean_inc(x_3); x_10 = l_Lean_Parser_addParser(x_1, x_8, x_2, x_3, x_4); x_11 = l_IO_ofExcept___at___private_Init_Lean_Parser_Parser_16__addBuiltinParserCategory___spec__1(x_10, x_9); lean_dec(x_10); @@ -30182,190 +30195,109 @@ lean_dec(x_46); return x_1; } } -case 3: -{ -lean_object* x_71; lean_object* x_72; lean_object* x_73; lean_object* x_74; lean_object* x_75; lean_object* x_76; uint8_t x_77; -x_71 = lean_ctor_get(x_2, 0); -lean_inc(x_71); -lean_dec(x_2); -x_72 = lean_ctor_get(x_1, 0); -lean_inc(x_72); -x_73 = lean_ctor_get(x_1, 1); -lean_inc(x_73); -x_74 = lean_ctor_get(x_1, 2); -lean_inc(x_74); -x_75 = lean_ctor_get(x_1, 3); -lean_inc(x_75); -x_76 = lean_ctor_get(x_1, 4); -lean_inc(x_76); -lean_inc(x_74); -x_77 = l_PersistentHashMap_contains___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__1(x_74, x_71); -if (x_77 == 0) -{ -uint8_t x_78; -x_78 = !lean_is_exclusive(x_1); -if (x_78 == 0) -{ -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_79 = lean_ctor_get(x_1, 4); -lean_dec(x_79); -x_80 = lean_ctor_get(x_1, 3); -lean_dec(x_80); -x_81 = lean_ctor_get(x_1, 2); -lean_dec(x_81); -x_82 = lean_ctor_get(x_1, 1); -lean_dec(x_82); -x_83 = lean_ctor_get(x_1, 0); -lean_dec(x_83); -x_84 = l_Lean_Parser_ParserCategory_inhabited___closed__1; -lean_inc(x_71); -x_85 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_74, x_71, x_84); -x_86 = lean_alloc_ctor(3, 1, 0); -lean_ctor_set(x_86, 0, x_71); -x_87 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_87, 0, x_86); -lean_ctor_set(x_87, 1, x_75); -lean_ctor_set(x_1, 3, x_87); -lean_ctor_set(x_1, 2, x_85); -return x_1; -} -else -{ -lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; -lean_dec(x_1); -x_88 = l_Lean_Parser_ParserCategory_inhabited___closed__1; -lean_inc(x_71); -x_89 = l_PersistentHashMap_insert___at___private_Init_Lean_Parser_Parser_15__addParserCategoryCore___spec__3(x_74, x_71, x_88); -x_90 = lean_alloc_ctor(3, 1, 0); -lean_ctor_set(x_90, 0, x_71); -x_91 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_91, 0, x_90); -lean_ctor_set(x_91, 1, x_75); -x_92 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_92, 0, x_72); -lean_ctor_set(x_92, 1, x_73); -lean_ctor_set(x_92, 2, x_89); -lean_ctor_set(x_92, 3, x_91); -lean_ctor_set(x_92, 4, x_76); -return x_92; -} -} -else -{ -lean_dec(x_76); -lean_dec(x_75); -lean_dec(x_74); -lean_dec(x_73); -lean_dec(x_72); -lean_dec(x_71); -return x_1; -} -} default: { -lean_object* x_93; lean_object* x_94; uint8_t x_95; lean_object* x_96; uint8_t x_97; -x_93 = lean_ctor_get(x_2, 0); -lean_inc(x_93); -x_94 = lean_ctor_get(x_2, 1); -lean_inc(x_94); -x_95 = lean_ctor_get_uint8(x_2, sizeof(void*)*3); -x_96 = lean_ctor_get(x_2, 2); -lean_inc(x_96); +lean_object* x_71; lean_object* x_72; uint8_t x_73; lean_object* x_74; uint8_t x_75; +x_71 = lean_ctor_get(x_2, 0); +lean_inc(x_71); +x_72 = lean_ctor_get(x_2, 1); +lean_inc(x_72); +x_73 = lean_ctor_get_uint8(x_2, sizeof(void*)*3); +x_74 = lean_ctor_get(x_2, 2); +lean_inc(x_74); lean_dec(x_2); -x_97 = !lean_is_exclusive(x_1); -if (x_97 == 0) +x_75 = !lean_is_exclusive(x_1); +if (x_75 == 0) { -lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; -x_98 = lean_ctor_get(x_1, 0); -x_99 = lean_ctor_get(x_1, 1); -x_100 = lean_ctor_get(x_1, 2); -x_101 = lean_ctor_get(x_1, 3); -x_102 = lean_ctor_get(x_1, 4); -lean_inc(x_94); -lean_inc(x_93); -x_103 = l_Lean_Parser_addParser(x_95, x_100, x_93, x_94, x_96); -if (lean_obj_tag(x_103) == 0) +lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80; lean_object* x_81; +x_76 = lean_ctor_get(x_1, 0); +x_77 = lean_ctor_get(x_1, 1); +x_78 = lean_ctor_get(x_1, 2); +x_79 = lean_ctor_get(x_1, 3); +x_80 = lean_ctor_get(x_1, 4); +lean_inc(x_71); +x_81 = l_Lean_Parser_addParser(x_73, x_78, x_71, x_72, x_74); +if (lean_obj_tag(x_81) == 0) { -lean_object* x_104; lean_object* x_105; -lean_dec(x_103); +lean_object* x_82; lean_object* x_83; +lean_dec(x_81); lean_free_object(x_1); -lean_dec(x_102); -lean_dec(x_101); -lean_dec(x_99); -lean_dec(x_98); -lean_dec(x_94); -lean_dec(x_93); -x_104 = l_Lean_Parser_ParserExtensionState_inhabited; -x_105 = l_unreachable_x21___rarg(x_104); -return x_105; +lean_dec(x_80); +lean_dec(x_79); +lean_dec(x_77); +lean_dec(x_76); +lean_dec(x_72); +lean_dec(x_71); +x_82 = l_Lean_Parser_ParserExtensionState_inhabited; +x_83 = l_unreachable_x21___rarg(x_82); +return x_83; } else { -lean_object* x_106; lean_object* x_107; lean_object* x_108; -x_106 = lean_ctor_get(x_103, 0); -lean_inc(x_106); -lean_dec(x_103); -x_107 = lean_alloc_ctor(4, 2, 0); -lean_ctor_set(x_107, 0, x_93); -lean_ctor_set(x_107, 1, x_94); -x_108 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_108, 0, x_107); -lean_ctor_set(x_108, 1, x_101); -lean_ctor_set(x_1, 3, x_108); -lean_ctor_set(x_1, 2, x_106); +lean_object* x_84; lean_object* x_85; lean_object* x_86; +x_84 = lean_ctor_get(x_81, 0); +lean_inc(x_84); +lean_dec(x_81); +x_85 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_85, 0, x_71); +lean_ctor_set(x_85, 1, x_72); +x_86 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_86, 0, x_85); +lean_ctor_set(x_86, 1, x_79); +lean_ctor_set(x_1, 3, x_86); +lean_ctor_set(x_1, 2, x_84); return x_1; } } 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; -x_109 = lean_ctor_get(x_1, 0); -x_110 = lean_ctor_get(x_1, 1); -x_111 = lean_ctor_get(x_1, 2); -x_112 = lean_ctor_get(x_1, 3); -x_113 = lean_ctor_get(x_1, 4); -lean_inc(x_113); -lean_inc(x_112); -lean_inc(x_111); -lean_inc(x_110); -lean_inc(x_109); +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_87 = lean_ctor_get(x_1, 0); +x_88 = lean_ctor_get(x_1, 1); +x_89 = lean_ctor_get(x_1, 2); +x_90 = lean_ctor_get(x_1, 3); +x_91 = lean_ctor_get(x_1, 4); +lean_inc(x_91); +lean_inc(x_90); +lean_inc(x_89); +lean_inc(x_88); +lean_inc(x_87); lean_dec(x_1); -lean_inc(x_94); -lean_inc(x_93); -x_114 = l_Lean_Parser_addParser(x_95, x_111, x_93, x_94, x_96); -if (lean_obj_tag(x_114) == 0) +lean_inc(x_71); +x_92 = l_Lean_Parser_addParser(x_73, x_89, x_71, x_72, x_74); +if (lean_obj_tag(x_92) == 0) { -lean_object* x_115; lean_object* x_116; -lean_dec(x_114); -lean_dec(x_113); -lean_dec(x_112); -lean_dec(x_110); -lean_dec(x_109); -lean_dec(x_94); -lean_dec(x_93); -x_115 = l_Lean_Parser_ParserExtensionState_inhabited; -x_116 = l_unreachable_x21___rarg(x_115); -return x_116; +lean_object* x_93; lean_object* x_94; +lean_dec(x_92); +lean_dec(x_91); +lean_dec(x_90); +lean_dec(x_88); +lean_dec(x_87); +lean_dec(x_72); +lean_dec(x_71); +x_93 = l_Lean_Parser_ParserExtensionState_inhabited; +x_94 = l_unreachable_x21___rarg(x_93); +return x_94; } else { -lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; -x_117 = lean_ctor_get(x_114, 0); -lean_inc(x_117); -lean_dec(x_114); -x_118 = lean_alloc_ctor(4, 2, 0); -lean_ctor_set(x_118, 0, x_93); -lean_ctor_set(x_118, 1, x_94); -x_119 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_119, 0, x_118); -lean_ctor_set(x_119, 1, x_112); -x_120 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_120, 0, x_109); -lean_ctor_set(x_120, 1, x_110); -lean_ctor_set(x_120, 2, x_117); -lean_ctor_set(x_120, 3, x_119); -lean_ctor_set(x_120, 4, x_113); -return x_120; +lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; +x_95 = lean_ctor_get(x_92, 0); +lean_inc(x_95); +lean_dec(x_92); +x_96 = lean_alloc_ctor(3, 2, 0); +lean_ctor_set(x_96, 0, x_71); +lean_ctor_set(x_96, 1, x_72); +x_97 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_97, 0, x_96); +lean_ctor_set(x_97, 1, x_90); +x_98 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_98, 0, x_87); +lean_ctor_set(x_98, 1, x_88); +lean_ctor_set(x_98, 2, x_95); +lean_ctor_set(x_98, 3, x_97); +lean_ctor_set(x_98, 4, x_91); +return x_98; } } } @@ -33929,222 +33861,92 @@ return x_94; } } } -case 3: -{ -lean_object* x_95; uint8_t x_96; -x_95 = lean_ctor_get(x_10, 0); -lean_inc(x_95); -lean_dec(x_10); -x_96 = !lean_is_exclusive(x_5); -if (x_96 == 0) -{ -lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; -x_97 = lean_ctor_get(x_5, 0); -x_98 = lean_ctor_get(x_5, 1); -x_99 = lean_ctor_get(x_5, 2); -x_100 = lean_ctor_get(x_5, 3); -x_101 = lean_ctor_get(x_5, 4); -x_102 = l_Lean_Parser_ParserCategory_inhabited___closed__1; -x_103 = l___private_Init_Lean_Parser_Parser_15__addParserCategoryCore(x_99, x_95, x_102); -x_104 = l_IO_ofExcept___at___private_Init_Lean_Parser_Parser_16__addBuiltinParserCategory___spec__1(x_103, x_6); -lean_dec(x_103); -if (lean_obj_tag(x_104) == 0) -{ -lean_object* x_105; lean_object* x_106; -x_105 = lean_ctor_get(x_104, 0); -lean_inc(x_105); -x_106 = lean_ctor_get(x_104, 1); -lean_inc(x_106); -lean_dec(x_104); -lean_ctor_set(x_5, 2, x_105); -x_4 = x_12; -x_6 = x_106; -goto _start; -} -else -{ -uint8_t x_108; -lean_free_object(x_5); -lean_dec(x_101); -lean_dec(x_100); -lean_dec(x_98); -lean_dec(x_97); -lean_dec(x_12); -lean_dec(x_1); -x_108 = !lean_is_exclusive(x_104); -if (x_108 == 0) -{ -return x_104; -} -else -{ -lean_object* x_109; lean_object* x_110; lean_object* x_111; -x_109 = lean_ctor_get(x_104, 0); -x_110 = lean_ctor_get(x_104, 1); -lean_inc(x_110); -lean_inc(x_109); -lean_dec(x_104); -x_111 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_111, 0, x_109); -lean_ctor_set(x_111, 1, x_110); -return x_111; -} -} -} -else -{ -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_112 = lean_ctor_get(x_5, 0); -x_113 = lean_ctor_get(x_5, 1); -x_114 = lean_ctor_get(x_5, 2); -x_115 = lean_ctor_get(x_5, 3); -x_116 = lean_ctor_get(x_5, 4); -lean_inc(x_116); -lean_inc(x_115); -lean_inc(x_114); -lean_inc(x_113); -lean_inc(x_112); -lean_dec(x_5); -x_117 = l_Lean_Parser_ParserCategory_inhabited___closed__1; -x_118 = l___private_Init_Lean_Parser_Parser_15__addParserCategoryCore(x_114, x_95, x_117); -x_119 = l_IO_ofExcept___at___private_Init_Lean_Parser_Parser_16__addBuiltinParserCategory___spec__1(x_118, x_6); -lean_dec(x_118); -if (lean_obj_tag(x_119) == 0) -{ -lean_object* x_120; lean_object* x_121; lean_object* x_122; -x_120 = lean_ctor_get(x_119, 0); -lean_inc(x_120); -x_121 = lean_ctor_get(x_119, 1); -lean_inc(x_121); -lean_dec(x_119); -x_122 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_122, 0, x_112); -lean_ctor_set(x_122, 1, x_113); -lean_ctor_set(x_122, 2, x_120); -lean_ctor_set(x_122, 3, x_115); -lean_ctor_set(x_122, 4, x_116); -x_4 = x_12; -x_5 = x_122; -x_6 = x_121; -goto _start; -} -else -{ -lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127; -lean_dec(x_116); -lean_dec(x_115); -lean_dec(x_113); -lean_dec(x_112); -lean_dec(x_12); -lean_dec(x_1); -x_124 = lean_ctor_get(x_119, 0); -lean_inc(x_124); -x_125 = lean_ctor_get(x_119, 1); -lean_inc(x_125); -if (lean_is_exclusive(x_119)) { - lean_ctor_release(x_119, 0); - lean_ctor_release(x_119, 1); - x_126 = x_119; -} else { - lean_dec_ref(x_119); - x_126 = lean_box(0); -} -if (lean_is_scalar(x_126)) { - x_127 = lean_alloc_ctor(1, 2, 0); -} else { - x_127 = x_126; -} -lean_ctor_set(x_127, 0, x_124); -lean_ctor_set(x_127, 1, x_125); -return x_127; -} -} -} default: { -lean_object* x_128; lean_object* x_129; uint8_t x_130; -x_128 = lean_ctor_get(x_10, 0); -lean_inc(x_128); -x_129 = lean_ctor_get(x_10, 1); -lean_inc(x_129); +lean_object* x_95; lean_object* x_96; uint8_t x_97; +x_95 = lean_ctor_get(x_10, 0); +lean_inc(x_95); +x_96 = lean_ctor_get(x_10, 1); +lean_inc(x_96); lean_dec(x_10); -x_130 = !lean_is_exclusive(x_5); -if (x_130 == 0) +x_97 = !lean_is_exclusive(x_5); +if (x_97 == 0) { -lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134; lean_object* x_135; lean_object* x_136; -x_131 = lean_ctor_get(x_5, 0); -x_132 = lean_ctor_get(x_5, 1); -x_133 = lean_ctor_get(x_5, 2); -x_134 = lean_ctor_get(x_5, 3); -x_135 = lean_ctor_get(x_5, 4); -lean_inc(x_129); -lean_inc(x_133); +lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; +x_98 = lean_ctor_get(x_5, 0); +x_99 = lean_ctor_get(x_5, 1); +x_100 = lean_ctor_get(x_5, 2); +x_101 = lean_ctor_get(x_5, 3); +x_102 = lean_ctor_get(x_5, 4); +lean_inc(x_96); +lean_inc(x_100); lean_inc(x_1); -x_136 = l_Lean_Parser_mkParserOfConstantUnsafe(x_1, x_133, x_129); -if (lean_obj_tag(x_136) == 0) +x_103 = l_Lean_Parser_mkParserOfConstantUnsafe(x_1, x_100, x_96); +if (lean_obj_tag(x_103) == 0) { -lean_object* x_137; lean_object* x_138; lean_object* x_139; +lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_free_object(x_5); -lean_dec(x_135); -lean_dec(x_134); -lean_dec(x_133); -lean_dec(x_132); -lean_dec(x_131); -lean_dec(x_129); -lean_dec(x_128); +lean_dec(x_102); +lean_dec(x_101); +lean_dec(x_100); +lean_dec(x_99); +lean_dec(x_98); +lean_dec(x_96); +lean_dec(x_95); lean_dec(x_12); lean_dec(x_1); -x_137 = lean_ctor_get(x_136, 0); -lean_inc(x_137); -lean_dec(x_136); -x_138 = lean_alloc_ctor(18, 1, 0); -lean_ctor_set(x_138, 0, x_137); -x_139 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_139, 0, x_138); -lean_ctor_set(x_139, 1, x_6); -return x_139; +x_104 = lean_ctor_get(x_103, 0); +lean_inc(x_104); +lean_dec(x_103); +x_105 = lean_alloc_ctor(18, 1, 0); +lean_ctor_set(x_105, 0, x_104); +x_106 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_106, 0, x_105); +lean_ctor_set(x_106, 1, x_6); +return x_106; } else { -lean_object* x_140; lean_object* x_141; lean_object* x_142; uint8_t x_143; lean_object* x_144; -x_140 = lean_ctor_get(x_136, 0); -lean_inc(x_140); -lean_dec(x_136); -x_141 = lean_ctor_get(x_140, 0); -lean_inc(x_141); -x_142 = lean_ctor_get(x_140, 1); -lean_inc(x_142); -lean_dec(x_140); -x_143 = lean_unbox(x_141); -lean_dec(x_141); -x_144 = l_Lean_Parser_addParser(x_143, x_133, x_128, x_129, x_142); -if (lean_obj_tag(x_144) == 0) +lean_object* x_107; lean_object* x_108; lean_object* x_109; uint8_t x_110; lean_object* x_111; +x_107 = lean_ctor_get(x_103, 0); +lean_inc(x_107); +lean_dec(x_103); +x_108 = lean_ctor_get(x_107, 0); +lean_inc(x_108); +x_109 = lean_ctor_get(x_107, 1); +lean_inc(x_109); +lean_dec(x_107); +x_110 = lean_unbox(x_108); +lean_dec(x_108); +x_111 = l_Lean_Parser_addParser(x_110, x_100, x_95, x_96, x_109); +lean_dec(x_96); +if (lean_obj_tag(x_111) == 0) { -lean_object* x_145; lean_object* x_146; lean_object* x_147; +lean_object* x_112; lean_object* x_113; lean_object* x_114; lean_free_object(x_5); -lean_dec(x_135); -lean_dec(x_134); -lean_dec(x_132); -lean_dec(x_131); +lean_dec(x_102); +lean_dec(x_101); +lean_dec(x_99); +lean_dec(x_98); lean_dec(x_12); lean_dec(x_1); -x_145 = lean_ctor_get(x_144, 0); -lean_inc(x_145); -lean_dec(x_144); -x_146 = lean_alloc_ctor(18, 1, 0); -lean_ctor_set(x_146, 0, x_145); -x_147 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_147, 0, x_146); -lean_ctor_set(x_147, 1, x_6); -return x_147; +x_112 = lean_ctor_get(x_111, 0); +lean_inc(x_112); +lean_dec(x_111); +x_113 = lean_alloc_ctor(18, 1, 0); +lean_ctor_set(x_113, 0, x_112); +x_114 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_114, 0, x_113); +lean_ctor_set(x_114, 1, x_6); +return x_114; } else { -lean_object* x_148; -x_148 = lean_ctor_get(x_144, 0); -lean_inc(x_148); -lean_dec(x_144); -lean_ctor_set(x_5, 2, x_148); +lean_object* x_115; +x_115 = lean_ctor_get(x_111, 0); +lean_inc(x_115); +lean_dec(x_111); +lean_ctor_set(x_5, 2, x_115); x_4 = x_12; goto _start; } @@ -34152,91 +33954,92 @@ goto _start; } 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; -x_150 = lean_ctor_get(x_5, 0); -x_151 = lean_ctor_get(x_5, 1); -x_152 = lean_ctor_get(x_5, 2); -x_153 = lean_ctor_get(x_5, 3); -x_154 = lean_ctor_get(x_5, 4); -lean_inc(x_154); -lean_inc(x_153); -lean_inc(x_152); -lean_inc(x_151); -lean_inc(x_150); +lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122; +x_117 = lean_ctor_get(x_5, 0); +x_118 = lean_ctor_get(x_5, 1); +x_119 = lean_ctor_get(x_5, 2); +x_120 = lean_ctor_get(x_5, 3); +x_121 = lean_ctor_get(x_5, 4); +lean_inc(x_121); +lean_inc(x_120); +lean_inc(x_119); +lean_inc(x_118); +lean_inc(x_117); lean_dec(x_5); -lean_inc(x_129); -lean_inc(x_152); +lean_inc(x_96); +lean_inc(x_119); lean_inc(x_1); -x_155 = l_Lean_Parser_mkParserOfConstantUnsafe(x_1, x_152, x_129); -if (lean_obj_tag(x_155) == 0) +x_122 = l_Lean_Parser_mkParserOfConstantUnsafe(x_1, x_119, x_96); +if (lean_obj_tag(x_122) == 0) { -lean_object* x_156; lean_object* x_157; lean_object* x_158; -lean_dec(x_154); -lean_dec(x_153); -lean_dec(x_152); -lean_dec(x_151); -lean_dec(x_150); -lean_dec(x_129); -lean_dec(x_128); +lean_object* x_123; lean_object* x_124; lean_object* x_125; +lean_dec(x_121); +lean_dec(x_120); +lean_dec(x_119); +lean_dec(x_118); +lean_dec(x_117); +lean_dec(x_96); +lean_dec(x_95); lean_dec(x_12); lean_dec(x_1); -x_156 = lean_ctor_get(x_155, 0); -lean_inc(x_156); -lean_dec(x_155); -x_157 = lean_alloc_ctor(18, 1, 0); -lean_ctor_set(x_157, 0, x_156); -x_158 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_158, 0, x_157); -lean_ctor_set(x_158, 1, x_6); -return x_158; +x_123 = lean_ctor_get(x_122, 0); +lean_inc(x_123); +lean_dec(x_122); +x_124 = lean_alloc_ctor(18, 1, 0); +lean_ctor_set(x_124, 0, x_123); +x_125 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_125, 0, x_124); +lean_ctor_set(x_125, 1, x_6); +return x_125; } else { -lean_object* x_159; lean_object* x_160; lean_object* x_161; uint8_t x_162; lean_object* x_163; -x_159 = lean_ctor_get(x_155, 0); -lean_inc(x_159); -lean_dec(x_155); -x_160 = lean_ctor_get(x_159, 0); -lean_inc(x_160); -x_161 = lean_ctor_get(x_159, 1); -lean_inc(x_161); -lean_dec(x_159); -x_162 = lean_unbox(x_160); -lean_dec(x_160); -x_163 = l_Lean_Parser_addParser(x_162, x_152, x_128, x_129, x_161); -if (lean_obj_tag(x_163) == 0) +lean_object* x_126; lean_object* x_127; lean_object* x_128; uint8_t x_129; lean_object* x_130; +x_126 = lean_ctor_get(x_122, 0); +lean_inc(x_126); +lean_dec(x_122); +x_127 = lean_ctor_get(x_126, 0); +lean_inc(x_127); +x_128 = lean_ctor_get(x_126, 1); +lean_inc(x_128); +lean_dec(x_126); +x_129 = lean_unbox(x_127); +lean_dec(x_127); +x_130 = l_Lean_Parser_addParser(x_129, x_119, x_95, x_96, x_128); +lean_dec(x_96); +if (lean_obj_tag(x_130) == 0) { -lean_object* x_164; lean_object* x_165; lean_object* x_166; -lean_dec(x_154); -lean_dec(x_153); -lean_dec(x_151); -lean_dec(x_150); +lean_object* x_131; lean_object* x_132; lean_object* x_133; +lean_dec(x_121); +lean_dec(x_120); +lean_dec(x_118); +lean_dec(x_117); lean_dec(x_12); lean_dec(x_1); -x_164 = lean_ctor_get(x_163, 0); -lean_inc(x_164); -lean_dec(x_163); -x_165 = lean_alloc_ctor(18, 1, 0); -lean_ctor_set(x_165, 0, x_164); -x_166 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_166, 0, x_165); -lean_ctor_set(x_166, 1, x_6); -return x_166; +x_131 = lean_ctor_get(x_130, 0); +lean_inc(x_131); +lean_dec(x_130); +x_132 = lean_alloc_ctor(18, 1, 0); +lean_ctor_set(x_132, 0, x_131); +x_133 = lean_alloc_ctor(1, 2, 0); +lean_ctor_set(x_133, 0, x_132); +lean_ctor_set(x_133, 1, x_6); +return x_133; } else { -lean_object* x_167; lean_object* x_168; -x_167 = lean_ctor_get(x_163, 0); -lean_inc(x_167); -lean_dec(x_163); -x_168 = lean_alloc_ctor(0, 5, 0); -lean_ctor_set(x_168, 0, x_150); -lean_ctor_set(x_168, 1, x_151); -lean_ctor_set(x_168, 2, x_167); -lean_ctor_set(x_168, 3, x_153); -lean_ctor_set(x_168, 4, x_154); +lean_object* x_134; lean_object* x_135; +x_134 = lean_ctor_get(x_130, 0); +lean_inc(x_134); +lean_dec(x_130); +x_135 = lean_alloc_ctor(0, 5, 0); +lean_ctor_set(x_135, 0, x_117); +lean_ctor_set(x_135, 1, x_118); +lean_ctor_set(x_135, 2, x_134); +lean_ctor_set(x_135, 3, x_120); +lean_ctor_set(x_135, 4, x_121); x_4 = x_12; -x_5 = x_168; +x_5 = x_135; goto _start; } } @@ -35770,107 +35573,7 @@ x_4 = lean_box(x_3); return x_4; } } -uint8_t l_Lean_Parser_isSimpleParserCategory(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; -x_8 = lean_ctor_get(x_6, 0); -lean_inc(x_8); -lean_dec(x_6); -if (lean_obj_tag(x_8) == 0) -{ -uint8_t x_9; -lean_dec(x_8); -x_9 = 0; -return x_9; -} -else -{ -uint8_t x_10; -lean_dec(x_8); -x_10 = 1; -return x_10; -} -} -} -} -lean_object* l_Lean_Parser_isSimpleParserCategory___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; lean_object* x_4; -x_3 = l_Lean_Parser_isSimpleParserCategory(x_1, x_2); -lean_dec(x_2); -lean_dec(x_1); -x_4 = lean_box(x_3); -return x_4; -} -} -uint8_t l_Lean_Parser_isPrattParserCategory(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; -x_8 = lean_ctor_get(x_6, 0); -lean_inc(x_8); -lean_dec(x_6); -if (lean_obj_tag(x_8) == 0) -{ -uint8_t x_9; -lean_dec(x_8); -x_9 = 1; -return x_9; -} -else -{ -uint8_t x_10; -lean_dec(x_8); -x_10 = 0; -return x_10; -} -} -} -} -lean_object* l_Lean_Parser_isPrattParserCategory___boxed(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; lean_object* x_4; -x_3 = l_Lean_Parser_isPrattParserCategory(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_addPrattParserCategory(lean_object* x_1, lean_object* x_2, uint8_t x_3) { +lean_object* l_Lean_Parser_addParserCategory(lean_object* x_1, lean_object* x_2, uint8_t x_3) { _start: { uint8_t x_4; @@ -35896,41 +35599,16 @@ return x_9; } } } -lean_object* l_Lean_Parser_addPrattParserCategory___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) { +lean_object* l_Lean_Parser_addParserCategory___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_3); lean_dec(x_3); -x_5 = l_Lean_Parser_addPrattParserCategory(x_1, x_2, x_4); +x_5 = l_Lean_Parser_addParserCategory(x_1, x_2, x_4); return x_5; } } -lean_object* l_Lean_Parser_addSimpleParserCategory(lean_object* x_1, lean_object* x_2) { -_start: -{ -uint8_t x_3; -x_3 = l_Lean_Parser_isParserCategory(x_1, x_2); -if (x_3 == 0) -{ -lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; -x_4 = lean_alloc_ctor(3, 1, 0); -lean_ctor_set(x_4, 0, x_2); -x_5 = l_Lean_Parser_parserExtension; -x_6 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_5, x_1, x_4); -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_dec(x_1); -x_8 = l___private_Init_Lean_Parser_Parser_14__throwParserCategoryAlreadyDefined___rarg(x_2); -return x_8; -} -} -} lean_object* l_Lean_Parser_categoryParserFnImpl(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -35961,13 +35639,10 @@ return x_16; } else { -lean_object* x_17; +lean_object* x_17; lean_object* x_18; uint8_t x_19; lean_object* x_20; x_17 = lean_ctor_get(x_9, 0); lean_inc(x_17); lean_dec(x_9); -if (lean_obj_tag(x_17) == 0) -{ -lean_object* x_18; uint8_t x_19; lean_object* x_20; x_18 = lean_ctor_get(x_17, 0); lean_inc(x_18); x_19 = lean_ctor_get_uint8(x_17, sizeof(void*)*1); @@ -35975,18 +35650,6 @@ lean_dec(x_17); x_20 = l_Lean_Parser_prattParser(x_1, x_18, x_19, x_2, x_3, x_4); return x_20; } -else -{ -lean_object* x_21; uint8_t x_22; lean_object* x_23; -lean_dec(x_1); -x_21 = lean_ctor_get(x_17, 0); -lean_inc(x_21); -lean_dec(x_17); -x_22 = 0; -x_23 = l_Lean_Parser_longestMatchFn(x_22, x_21, x_2, x_3, x_4); -return x_23; -} -} } } lean_object* _init_l_Lean_Parser_setCategoryParserFnRef___closed__1() { @@ -36396,24 +36059,6 @@ lean_dec(x_1); return x_2; } } -lean_object* _init_l_Lean_Parser_runParserCategory___closed__1() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("runParserCategory does not support simple parsers yet"); -return x_1; -} -} -lean_object* _init_l_Lean_Parser_runParserCategory___closed__2() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_runParserCategory___closed__1; -x_2 = lean_alloc_ctor(0, 1, 0); -lean_ctor_set(x_2, 0, x_1); -return x_2; -} -} lean_object* l_Lean_Parser_runParserCategory(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) { _start: { @@ -36435,32 +36080,29 @@ return x_9; } else { -lean_object* x_10; +lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; x_10 = lean_ctor_get(x_8, 0); lean_inc(x_10); lean_dec(x_8); -if (lean_obj_tag(x_10) == 0) -{ -lean_object* x_11; uint8_t x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_11 = lean_ctor_get(x_10, 0); -lean_inc(x_11); -x_12 = lean_ctor_get_uint8(x_10, sizeof(void*)*1); -lean_dec(x_10); lean_inc(x_3); -x_13 = l_Lean_Parser_mkInputContext(x_3, x_4); -x_14 = l_Lean_Parser_mkParserContext(x_1, x_13); -x_15 = l_Lean_Parser_mkParserState(x_3); +x_11 = l_Lean_Parser_mkInputContext(x_3, x_4); +x_12 = l_Lean_Parser_mkParserContext(x_1, x_11); +x_13 = l_Lean_Parser_mkParserState(x_3); lean_dec(x_3); -x_16 = l_Lean_Parser_whitespace___main(x_14, x_15); +x_14 = l_Lean_Parser_whitespace___main(x_12, x_13); +x_15 = lean_ctor_get(x_10, 0); +lean_inc(x_15); +x_16 = lean_ctor_get_uint8(x_10, sizeof(void*)*1); +lean_dec(x_10); x_17 = lean_unsigned_to_nat(0u); -lean_inc(x_14); -x_18 = l_Lean_Parser_prattParser(x_2, x_11, x_12, x_17, x_14, x_16); +lean_inc(x_12); +x_18 = l_Lean_Parser_prattParser(x_2, x_15, x_16, x_17, x_12, x_14); x_19 = lean_ctor_get(x_18, 3); lean_inc(x_19); if (lean_obj_tag(x_19) == 0) { lean_object* x_20; lean_object* x_21; lean_object* x_22; -lean_dec(x_14); +lean_dec(x_12); x_20 = lean_ctor_get(x_18, 0); lean_inc(x_20); lean_dec(x_18); @@ -36474,24 +36116,12 @@ else { lean_object* x_23; lean_object* x_24; lean_dec(x_19); -x_23 = l_Lean_Parser_ParserState_toErrorMsg(x_14, x_18); +x_23 = l_Lean_Parser_ParserState_toErrorMsg(x_12, x_18); x_24 = lean_alloc_ctor(0, 1, 0); lean_ctor_set(x_24, 0, x_23); return x_24; } } -else -{ -lean_object* x_25; -lean_dec(x_10); -lean_dec(x_4); -lean_dec(x_3); -lean_dec(x_2); -lean_dec(x_1); -x_25 = l_Lean_Parser_runParserCategory___closed__2; -return x_25; -} -} } } lean_object* _init_l_Lean_Parser_declareBuiltinParser___closed__1() { @@ -37358,6 +36988,14 @@ 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() { +_start: +{ +lean_object* x_1; +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) { _start: { @@ -37388,7 +37026,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_Lean_Parser_addLeadingParser___closed__1; +x_12 = l_List_foldlM___main___at___private_Init_Lean_Parser_Parser_25__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; @@ -37594,7 +37232,6 @@ x_29 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__Par lean_dec(x_28); x_30 = lean_unbox(x_17); lean_inc(x_18); -lean_inc(x_4); lean_inc(x_2); x_31 = l_Lean_Parser_addParser(x_30, x_11, x_2, x_4, x_18); if (lean_obj_tag(x_31) == 0) @@ -37618,7 +37255,7 @@ else { lean_object* x_34; uint8_t x_35; lean_object* x_36; lean_dec(x_31); -x_34 = lean_alloc_ctor(4, 3, 1); +x_34 = lean_alloc_ctor(3, 3, 1); lean_ctor_set(x_34, 0, x_2); lean_ctor_set(x_34, 1, x_4); lean_ctor_set(x_34, 2, x_18); @@ -37647,7 +37284,6 @@ x_42 = l_PersistentHashMap_foldlM___at___private_Init_Lean_Parser_Parser_25__Par lean_dec(x_41); x_43 = lean_unbox(x_17); lean_inc(x_18); -lean_inc(x_4); lean_inc(x_2); x_44 = l_Lean_Parser_addParser(x_43, x_11, x_2, x_4, x_18); if (lean_obj_tag(x_44) == 0) @@ -37672,7 +37308,7 @@ else { lean_object* x_48; uint8_t x_49; lean_object* x_50; lean_object* x_51; lean_dec(x_44); -x_48 = lean_alloc_ctor(4, 3, 1); +x_48 = lean_alloc_ctor(3, 3, 1); lean_ctor_set(x_48, 0, x_2); lean_ctor_set(x_48, 1, x_4); lean_ctor_set(x_48, 2, x_18); @@ -37980,12 +37616,12 @@ x_4 = l_Lean_registerAttributeImplBuilder(x_2, x_3, x_1); return x_4; } } -lean_object* l_Lean_Parser_registerPrattParserCategory(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5) { +lean_object* l_Lean_Parser_registerParserCategory(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5) { _start: { lean_object* x_6; lean_object* x_7; lean_inc(x_3); -x_6 = l_Lean_Parser_addPrattParserCategory(x_1, x_3, x_4); +x_6 = l_Lean_Parser_addParserCategory(x_1, x_3, x_4); x_7 = l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(x_6, x_5); lean_dec(x_6); if (lean_obj_tag(x_7) == 0) @@ -38037,73 +37673,16 @@ return x_20; } } } -lean_object* l_Lean_Parser_registerPrattParserCategory___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) { +lean_object* l_Lean_Parser_registerParserCategory___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_4); lean_dec(x_4); -x_7 = l_Lean_Parser_registerPrattParserCategory(x_1, x_2, x_3, x_6, x_5); +x_7 = l_Lean_Parser_registerParserCategory(x_1, x_2, x_3, x_6, x_5); return x_7; } } -lean_object* l_Lean_Parser_registerSimpleParserCategory(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_inc(x_3); -x_5 = l_Lean_Parser_addSimpleParserCategory(x_1, x_3); -x_6 = l_IO_ofExcept___at_Lean_registerClassAttr___spec__1(x_5, x_4); -lean_dec(x_5); -if (lean_obj_tag(x_6) == 0) -{ -lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; -x_7 = lean_ctor_get(x_6, 0); -lean_inc(x_7); -x_8 = lean_ctor_get(x_6, 1); -lean_inc(x_8); -lean_dec(x_6); -x_9 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_9, 0, x_2); -x_10 = lean_alloc_ctor(2, 1, 0); -lean_ctor_set(x_10, 0, x_3); -x_11 = lean_box(0); -x_12 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_12, 0, x_10); -lean_ctor_set(x_12, 1, x_11); -x_13 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_13, 0, x_9); -lean_ctor_set(x_13, 1, x_12); -x_14 = l___private_Init_Lean_Parser_Parser_26__registerParserAttributeImplBuilder___closed__2; -x_15 = l_Lean_registerAttributeOfBuilder(x_7, x_14, x_13, x_8); -return x_15; -} -else -{ -uint8_t x_16; -lean_dec(x_3); -lean_dec(x_2); -x_16 = !lean_is_exclusive(x_6); -if (x_16 == 0) -{ -return x_6; -} -else -{ -lean_object* x_17; lean_object* x_18; lean_object* x_19; -x_17 = lean_ctor_get(x_6, 0); -x_18 = lean_ctor_get(x_6, 1); -lean_inc(x_18); -lean_inc(x_17); -lean_dec(x_6); -x_19 = lean_alloc_ctor(1, 2, 0); -lean_ctor_set(x_19, 0, x_17); -lean_ctor_set(x_19, 1, x_18); -return x_19; -} -} -} -} lean_object* _init_l_Lean_Parser_regBuiltinTermParserAttr___closed__1() { _start: { @@ -39606,12 +39185,6 @@ l___private_Init_Lean_Parser_Parser_19__addTokenConfig___closed__3 = _init_l___p lean_mark_persistent(l___private_Init_Lean_Parser_Parser_19__addTokenConfig___closed__3); l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1 = _init_l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1(); lean_mark_persistent(l_Lean_Parser_throwUnknownParserCategory___rarg___closed__1); -l_Lean_Parser_addLeadingParser___closed__1 = _init_l_Lean_Parser_addLeadingParser___closed__1(); -lean_mark_persistent(l_Lean_Parser_addLeadingParser___closed__1); -l_Lean_Parser_addLeadingParser___closed__2 = _init_l_Lean_Parser_addLeadingParser___closed__2(); -lean_mark_persistent(l_Lean_Parser_addLeadingParser___closed__2); -l_Lean_Parser_addTrailingParser___closed__1 = _init_l_Lean_Parser_addTrailingParser___closed__1(); -lean_mark_persistent(l_Lean_Parser_addTrailingParser___closed__1); l___private_Init_Lean_Parser_Parser_21__updateBuiltinTokens___closed__1 = _init_l___private_Init_Lean_Parser_Parser_21__updateBuiltinTokens___closed__1(); lean_mark_persistent(l___private_Init_Lean_Parser_Parser_21__updateBuiltinTokens___closed__1); l_Lean_Parser_compileParserDescr___main___closed__1 = _init_l_Lean_Parser_compileParserDescr___main___closed__1(); @@ -39674,10 +39247,6 @@ lean_mark_persistent(l_Lean_Parser_setCategoryParserFnRef___closed__1); res = l_Lean_Parser_setCategoryParserFnRef(lean_io_mk_world()); if (lean_io_result_is_error(res)) return res; lean_dec_ref(res); -l_Lean_Parser_runParserCategory___closed__1 = _init_l_Lean_Parser_runParserCategory___closed__1(); -lean_mark_persistent(l_Lean_Parser_runParserCategory___closed__1); -l_Lean_Parser_runParserCategory___closed__2 = _init_l_Lean_Parser_runParserCategory___closed__2(); -lean_mark_persistent(l_Lean_Parser_runParserCategory___closed__2); l_Lean_Parser_declareBuiltinParser___closed__1 = _init_l_Lean_Parser_declareBuiltinParser___closed__1(); lean_mark_persistent(l_Lean_Parser_declareBuiltinParser___closed__1); l_Lean_Parser_declareBuiltinParser___closed__2 = _init_l_Lean_Parser_declareBuiltinParser___closed__2(); @@ -39710,6 +39279,8 @@ 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_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_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(); diff --git a/stage0/stdlib/Init/Lean/Parser/Syntax.c b/stage0/stdlib/Init/Lean/Parser/Syntax.c index 641006f7c1..49d411b3b8 100644 --- a/stage0/stdlib/Init/Lean/Parser/Syntax.c +++ b/stage0/stdlib/Init/Lean/Parser/Syntax.c @@ -17,12 +17,10 @@ lean_object* l_Lean_Parser_Command_infixl___elambda__1___closed__8; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Command_notation___elambda__1___spec__1(uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_macroHead___closed__3; lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__6; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__15; lean_object* l_Lean_Parser_Syntax_orelse___closed__5; lean_object* l_Lean_Parser_Syntax_many___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_prefix___elambda__1___closed__8; lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__1; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__14; lean_object* l_Lean_Parser_Syntax_str___elambda__1(lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_infixl___closed__5; lean_object* l_Lean_Parser_Syntax_char; @@ -151,7 +149,6 @@ extern lean_object* l_Lean_Parser_Term_listLit___elambda__1___closed__5; lean_object* l_Lean_Parser_Syntax_ident___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_macro___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_macroHead___closed__1; -lean_object* l_Lean_Parser_Command_syntaxCat___closed__11; lean_object* l_Lean_Parser_precedence___elambda__1___closed__4; lean_object* l_Lean_Parser_Syntax_ident___elambda__1___closed__1; lean_object* l_Lean_Parser_optPrecedence; @@ -216,7 +213,6 @@ 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; lean_object* l_Lean_Parser_Command_infixl___closed__3; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__16; lean_object* l_Lean_Parser_Syntax_lookahead___elambda__1___closed__4; lean_object* l_Lean_Parser_Command_infix___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_macro___closed__3; @@ -261,7 +257,6 @@ lean_object* l_Lean_Parser_Command_mixfixSymbol___closed__4; lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2; lean_object* l_Lean_Parser_quotedSymbol(uint8_t); lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__1; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10; lean_object* lean_nat_sub(lean_object*, lean_object*); lean_object* l_Lean_Parser_Syntax_sepBy1___closed__2; lean_object* l_Lean_Parser_precedence___elambda__1(lean_object*, lean_object*, lean_object*); @@ -281,7 +276,6 @@ lean_object* l_Lean_Parser_nonReservedSymbolInfo(lean_object*, uint8_t); lean_object* l_Lean_Parser_Syntax_str___closed__2; lean_object* l_Lean_Parser_Syntax_optional___closed__4; lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__7; -lean_object* l_Lean_Parser_Command_syntaxCat___closed__7; lean_object* l_Lean_Parser_Command_syntax___closed__3; lean_object* l_Lean_Parser_Syntax_orelse___closed__3; lean_object* l_Lean_Parser_Command_macroArgType___closed__3; @@ -309,7 +303,6 @@ lean_object* l_Lean_Parser_optionaInfo(lean_object*); lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1(lean_object*, lean_object*, lean_object*); extern lean_object* l_Lean_Parser_Term_tacticStxQuot___closed__2; lean_object* l_Lean_Parser_Syntax_paren___closed__5; -lean_object* l_Lean_Parser_Command_syntaxCat___closed__12; lean_object* l_Lean_Parser_Command_prefix___elambda__1___closed__3; lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__1; lean_object* l_Lean_Parser_Syntax_paren___elambda__1___closed__4; @@ -327,7 +320,6 @@ lean_object* l_Lean_Parser_Command_postfix___elambda__1___closed__5; lean_object* l_Lean_Parser_Command_macroArgType___closed__5; lean_object* l_Lean_Parser_Command_syntax___closed__10; lean_object* l_Lean_Parser_Syntax_ident; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__12; lean_object* l_Lean_Parser_Syntax_num___closed__4; lean_object* l_Lean_Parser_categoryParserOfStack(uint8_t, lean_object*, lean_object*); extern lean_object* l_Char_HasRepr___closed__1; @@ -359,7 +351,6 @@ extern lean_object* l_Lean_Parser_Term_haveAssign___elambda__1___closed__5; lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Command_macro__rules___elambda__1___spec__2(lean_object*, uint8_t, lean_object*, lean_object*, lean_object*); lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__5; extern lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__11; -lean_object* l_Lean_Parser_Command_syntaxCat___closed__10; lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__2; lean_object* l_Lean_Parser_Command_mixfixKind___closed__1; lean_object* l_Lean_Parser_Command_reserve___elambda__1___closed__3; @@ -375,7 +366,6 @@ lean_object* l_Lean_Parser_Command_infixr___closed__5; lean_object* l_Lean_Parser_maxPrec___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_infixr___closed__3; lean_object* l_Lean_Parser_Command_identPrec___elambda__1___closed__1; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__11; lean_object* l_Lean_Parser_Command_macroTail___closed__4; lean_object* l_Lean_Parser_Syntax_lookahead___elambda__1___closed__6; lean_object* l_Lean_Parser_registerBuiltinParserAttribute(lean_object*, lean_object*, uint8_t, lean_object*); @@ -542,7 +532,6 @@ 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; -lean_object* l_Lean_Parser_Command_syntaxCat___closed__8; lean_object* l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__4; lean_object* l_Lean_Parser_Syntax_sepBy1___closed__3; lean_object* l_Lean_Parser_Syntax_sepBy1___closed__5; @@ -565,7 +554,6 @@ lean_object* l_Lean_Parser_Command_macro___elambda__1___closed__8; extern lean_object* l_Lean_Level_LevelToFormat_Result_format___main___closed__3; lean_object* l_Lean_Parser_Syntax_orelse___closed__2; lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__4; -lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17; lean_object* l_Lean_Parser_Syntax_char___closed__3; lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__3; lean_object* l_Lean_Parser_Command_notation___elambda__1___closed__7; @@ -589,7 +577,6 @@ lean_object* l_Lean_Parser_Command_reserve___elambda__1___closed__6; lean_object* l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__1; lean_object* l_Lean_Parser_Command_macro___closed__8; lean_object* l_Lean_Parser_Command_mixfixKind___closed__4; -lean_object* l_Lean_Parser_Command_syntaxCat___closed__9; lean_object* l_Lean_Parser_Command_macroArgSimple___closed__2; lean_object* l_Lean_Parser_Command_reserve___closed__7; lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__5; @@ -662,7 +649,6 @@ lean_object* l_Lean_Parser_Command_macro___closed__4; lean_object* l_Lean_Parser_Syntax_orelse___elambda__1(lean_object*, lean_object*, lean_object*); 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_syntaxCat___elambda__1___closed__13; 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*); @@ -10498,80 +10484,6 @@ return x_2; lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__7() { _start: { -lean_object* x_1; -x_1 = lean_mk_string("simple"); -return x_1; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__7; -x_2 = l_String_trim(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9() { -_start: -{ -lean_object* x_1; -x_1 = lean_mk_string("pratt"); -return x_1; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9; -x_2 = l_String_trim(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__11() { -_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_Command_syntaxCat___elambda__1___closed__8; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__12() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__11; -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_Command_syntaxCat___elambda__1___closed__13() { -_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_Command_syntaxCat___elambda__1___closed__10; -x_3 = lean_string_append(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__14() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__13; -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_Command_syntaxCat___elambda__1___closed__15() { -_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_Command_syntaxCat___elambda__1___closed__6; @@ -10579,22 +10491,22 @@ x_3 = lean_string_append(x_1, x_2); return x_3; } } -lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__16() { +lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__15; +x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__7; 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_Command_syntaxCat___elambda__1___closed__17() { +lean_object* _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; x_1 = lean_box(0); -x_2 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__16; +x_2 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8; x_3 = lean_alloc_ctor(1, 2, 0); lean_ctor_set(x_3, 0, x_2); lean_ctor_set(x_3, 1, x_1); @@ -10653,7 +10565,7 @@ return x_11; } else { -lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_85; lean_object* x_86; +lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_29; lean_object* x_30; lean_inc(x_10); x_16 = l_Lean_Parser_ParserState_restore(x_11, x_9, x_10); lean_dec(x_9); @@ -10662,285 +10574,88 @@ lean_inc(x_17); x_18 = lean_array_get_size(x_17); lean_dec(x_17); lean_inc(x_2); -x_85 = l_Lean_Parser_tokenFn(x_2, x_16); -x_86 = lean_ctor_get(x_85, 3); -lean_inc(x_86); -if (lean_obj_tag(x_86) == 0) +x_29 = l_Lean_Parser_tokenFn(x_2, x_16); +x_30 = lean_ctor_get(x_29, 3); +lean_inc(x_30); +if (lean_obj_tag(x_30) == 0) { -lean_object* x_87; lean_object* x_88; -x_87 = lean_ctor_get(x_85, 0); -lean_inc(x_87); -x_88 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_87); -lean_dec(x_87); -if (lean_obj_tag(x_88) == 2) +lean_object* x_31; lean_object* x_32; +x_31 = lean_ctor_get(x_29, 0); +lean_inc(x_31); +x_32 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_31); +lean_dec(x_31); +if (lean_obj_tag(x_32) == 2) { -lean_object* x_89; lean_object* x_90; uint8_t x_91; -x_89 = lean_ctor_get(x_88, 1); -lean_inc(x_89); -lean_dec(x_88); -x_90 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__6; -x_91 = lean_string_dec_eq(x_89, x_90); -lean_dec(x_89); -if (x_91 == 0) +lean_object* x_33; lean_object* x_34; uint8_t x_35; +x_33 = lean_ctor_get(x_32, 1); +lean_inc(x_33); +lean_dec(x_32); +x_34 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__6; +x_35 = lean_string_dec_eq(x_33, x_34); +lean_dec(x_33); +if (x_35 == 0) { -lean_object* x_92; lean_object* x_93; -x_92 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17; +lean_object* x_36; lean_object* x_37; +x_36 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9; lean_inc(x_10); -x_93 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_92, x_10); -x_19 = x_93; -goto block_84; +x_37 = l_Lean_Parser_ParserState_mkErrorsAt(x_29, x_36, x_10); +x_19 = x_37; +goto block_28; } else { -x_19 = x_85; -goto block_84; +x_19 = x_29; +goto block_28; } } else { -lean_object* x_94; lean_object* x_95; -lean_dec(x_88); -x_94 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17; +lean_object* x_38; lean_object* x_39; +lean_dec(x_32); +x_38 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9; lean_inc(x_10); -x_95 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_94, x_10); -x_19 = x_95; -goto block_84; +x_39 = l_Lean_Parser_ParserState_mkErrorsAt(x_29, x_38, x_10); +x_19 = x_39; +goto block_28; } } else { -lean_object* x_96; lean_object* x_97; -lean_dec(x_86); -x_96 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17; +lean_object* x_40; lean_object* x_41; +lean_dec(x_30); +x_40 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9; lean_inc(x_10); -x_97 = l_Lean_Parser_ParserState_mkErrorsAt(x_85, x_96, x_10); -x_19 = x_97; -goto block_84; +x_41 = l_Lean_Parser_ParserState_mkErrorsAt(x_29, x_40, x_10); +x_19 = x_41; +goto block_28; } -block_84: +block_28: { 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); +lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; 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_47; lean_object* x_65; lean_object* x_66; -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); -lean_inc(x_2); -x_65 = l_Lean_Parser_tokenFn(x_2, x_21); -x_66 = lean_ctor_get(x_65, 3); -lean_inc(x_66); -if (lean_obj_tag(x_66) == 0) -{ -lean_object* x_67; lean_object* x_68; -x_67 = lean_ctor_get(x_65, 0); -lean_inc(x_67); -x_68 = l_Array_back___at___private_Init_Lean_Parser_Parser_6__updateCache___spec__1(x_67); -lean_dec(x_67); -if (lean_obj_tag(x_68) == 2) -{ -lean_object* x_69; lean_object* x_70; uint8_t x_71; -x_69 = lean_ctor_get(x_68, 1); -lean_inc(x_69); -lean_dec(x_68); -x_70 = l_Lean_Parser_mkAntiquot___closed__4; -x_71 = lean_string_dec_eq(x_69, x_70); -lean_dec(x_69); -if (x_71 == 0) -{ -lean_object* x_72; lean_object* x_73; -x_72 = l_Lean_Parser_precedence___elambda__1___closed__7; -lean_inc(x_25); -x_73 = l_Lean_Parser_ParserState_mkErrorsAt(x_65, x_72, x_25); -x_47 = x_73; -goto block_64; -} -else -{ -x_47 = x_65; -goto block_64; -} -} -else -{ -lean_object* x_74; lean_object* x_75; -lean_dec(x_68); -x_74 = l_Lean_Parser_precedence___elambda__1___closed__7; -lean_inc(x_25); -x_75 = l_Lean_Parser_ParserState_mkErrorsAt(x_65, x_74, x_25); -x_47 = x_75; -goto block_64; -} -} -else -{ -lean_object* x_76; lean_object* x_77; -lean_dec(x_66); -x_76 = l_Lean_Parser_precedence___elambda__1___closed__7; -lean_inc(x_25); -x_77 = l_Lean_Parser_ParserState_mkErrorsAt(x_65, x_76, x_25); -x_47 = x_77; -goto block_64; -} -block_46: -{ -lean_object* x_27; -x_27 = lean_ctor_get(x_26, 3); -lean_inc(x_27); -if (lean_obj_tag(x_27) == 0) -{ -lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; -lean_dec(x_25); -x_28 = l_Lean_nullKind; -x_29 = l_Lean_Parser_ParserState_mkNode(x_26, x_28, x_24); -x_30 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; -x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_18); -x_32 = l_Lean_Parser_mergeOrElseErrors(x_31, x_13, x_10); +x_22 = l_Lean_Parser_Command_syntaxCat___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_32; +return x_24; } else { -lean_object* x_33; uint8_t x_34; -lean_dec(x_27); -x_33 = lean_ctor_get(x_26, 1); -lean_inc(x_33); -x_34 = lean_nat_dec_eq(x_33, x_25); -lean_dec(x_33); -if (x_34 == 0) -{ -lean_object* x_35; lean_object* x_36; lean_object* x_37; lean_object* x_38; lean_object* x_39; -lean_dec(x_25); -x_35 = l_Lean_nullKind; -x_36 = l_Lean_Parser_ParserState_mkNode(x_26, x_35, x_24); -x_37 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; -x_38 = l_Lean_Parser_ParserState_mkNode(x_36, x_37, x_18); -x_39 = l_Lean_Parser_mergeOrElseErrors(x_38, x_13, x_10); -lean_dec(x_10); -return x_39; -} -else -{ -lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; -x_40 = l_Lean_Parser_ParserState_restore(x_26, x_24, x_25); -x_41 = l_Lean_nullKind; -x_42 = l_Lean_Parser_ParserState_mkNode(x_40, x_41, x_24); -x_43 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; -x_44 = l_Lean_Parser_ParserState_mkNode(x_42, x_43, x_18); -x_45 = l_Lean_Parser_mergeOrElseErrors(x_44, x_13, x_10); -lean_dec(x_10); -return x_45; -} -} -} -block_64: -{ -lean_object* x_48; -x_48 = lean_ctor_get(x_47, 3); -lean_inc(x_48); -if (lean_obj_tag(x_48) == 0) -{ -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; -x_49 = lean_ctor_get(x_47, 0); -lean_inc(x_49); -x_50 = lean_array_get_size(x_49); -lean_dec(x_49); -x_51 = lean_ctor_get(x_47, 1); -lean_inc(x_51); -x_52 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8; -x_53 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__12; -lean_inc(x_2); -x_54 = l_Lean_Parser_nonReservedSymbolFnAux(x_52, x_53, x_2, x_47); -x_55 = lean_ctor_get(x_54, 3); -lean_inc(x_55); -if (lean_obj_tag(x_55) == 0) -{ -lean_dec(x_51); -lean_dec(x_50); -lean_dec(x_2); -x_26 = x_54; -goto block_46; -} -else -{ -lean_object* x_56; lean_object* x_57; uint8_t x_58; -x_56 = lean_ctor_get(x_55, 0); -lean_inc(x_56); -lean_dec(x_55); -x_57 = lean_ctor_get(x_54, 1); -lean_inc(x_57); -x_58 = lean_nat_dec_eq(x_57, x_51); -lean_dec(x_57); -if (x_58 == 0) -{ -lean_dec(x_56); -lean_dec(x_51); -lean_dec(x_50); -lean_dec(x_2); -x_26 = x_54; -goto block_46; -} -else -{ -lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; lean_object* x_63; -lean_inc(x_51); -x_59 = l_Lean_Parser_ParserState_restore(x_54, x_50, x_51); -lean_dec(x_50); -x_60 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10; -x_61 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__14; -x_62 = l_Lean_Parser_nonReservedSymbolFnAux(x_60, x_61, x_2, x_59); -x_63 = l_Lean_Parser_mergeOrElseErrors(x_62, x_56, x_51); -lean_dec(x_51); -x_26 = x_63; -goto block_46; -} -} -} -else -{ -lean_dec(x_48); -lean_dec(x_2); -x_26 = x_47; -goto block_46; -} -} -} -else -{ -lean_object* x_78; lean_object* x_79; lean_object* x_80; -lean_dec(x_22); -lean_dec(x_2); -x_78 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; -x_79 = l_Lean_Parser_ParserState_mkNode(x_21, x_78, x_18); -x_80 = l_Lean_Parser_mergeOrElseErrors(x_79, x_13, x_10); -lean_dec(x_10); -return x_80; -} -} -else -{ -lean_object* x_81; lean_object* x_82; lean_object* x_83; +lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_dec(x_20); lean_dec(x_5); lean_dec(x_2); lean_dec(x_1); -x_81 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; -x_82 = l_Lean_Parser_ParserState_mkNode(x_19, x_81, x_18); -x_83 = l_Lean_Parser_mergeOrElseErrors(x_82, x_13, x_10); +x_25 = l_Lean_Parser_Command_syntaxCat___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_83; +return x_27; } } } @@ -10960,97 +10675,38 @@ return x_3; lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__2() { _start: { -lean_object* x_1; uint8_t x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8; -x_2 = 0; -x_3 = l_Lean_Parser_nonReservedSymbolInfo(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_ident___elambda__1___closed__4; +x_2 = lean_ctor_get(x_1, 0); +lean_inc(x_2); +x_3 = l_Lean_Parser_Command_syntaxCat___closed__1; +x_4 = l_Lean_Parser_andthenInfo(x_3, x_2); +return x_4; } } lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__3() { _start: { -lean_object* x_1; uint8_t x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10; -x_2 = 0; -x_3 = l_Lean_Parser_nonReservedSymbolInfo(x_1, x_2); +lean_object* x_1; lean_object* x_2; lean_object* x_3; +x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; +x_2 = l_Lean_Parser_Command_syntaxCat___closed__2; +x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); return x_3; } } lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__4() { _start: { -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___closed__2; -x_2 = l_Lean_Parser_Command_syntaxCat___closed__3; -x_3 = l_Lean_Parser_orelseInfo(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__5() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_mkAntiquot___closed__5; -x_2 = l_Lean_Parser_Command_syntaxCat___closed__4; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__6() { -_start: -{ -lean_object* x_1; lean_object* x_2; -x_1 = l_Lean_Parser_Command_syntaxCat___closed__5; -x_2 = l_Lean_Parser_optionaInfo(x_1); -return x_2; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__7() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; -x_1 = l_Lean_Parser_Level_ident___elambda__1___closed__4; -x_2 = lean_ctor_get(x_1, 0); -lean_inc(x_2); -x_3 = l_Lean_Parser_Command_syntaxCat___closed__6; -x_4 = l_Lean_Parser_andthenInfo(x_2, x_3); -return x_4; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__8() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___closed__1; -x_2 = l_Lean_Parser_Command_syntaxCat___closed__7; -x_3 = l_Lean_Parser_andthenInfo(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__9() { -_start: -{ -lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2; -x_2 = l_Lean_Parser_Command_syntaxCat___closed__8; -x_3 = l_Lean_Parser_nodeInfo(x_1, x_2); -return x_3; -} -} -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__10() { -_start: -{ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; x_1 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__4; x_2 = lean_ctor_get(x_1, 0); lean_inc(x_2); -x_3 = l_Lean_Parser_Command_syntaxCat___closed__9; +x_3 = l_Lean_Parser_Command_syntaxCat___closed__3; x_4 = l_Lean_Parser_orelseInfo(x_2, x_3); return x_4; } } -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__11() { +lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__5() { _start: { lean_object* x_1; @@ -11058,12 +10714,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_Parser_Command_syntaxCat___elambda__1), return x_1; } } -lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__12() { +lean_object* _init_l_Lean_Parser_Command_syntaxCat___closed__6() { _start: { lean_object* x_1; lean_object* x_2; lean_object* x_3; -x_1 = l_Lean_Parser_Command_syntaxCat___closed__10; -x_2 = l_Lean_Parser_Command_syntaxCat___closed__11; +x_1 = l_Lean_Parser_Command_syntaxCat___closed__4; +x_2 = l_Lean_Parser_Command_syntaxCat___closed__5; x_3 = lean_alloc_ctor(0, 2, 0); lean_ctor_set(x_3, 0, x_1); lean_ctor_set(x_3, 1, x_2); @@ -11074,7 +10730,7 @@ lean_object* _init_l_Lean_Parser_Command_syntaxCat() { _start: { lean_object* x_1; -x_1 = l_Lean_Parser_Command_syntaxCat___closed__12; +x_1 = l_Lean_Parser_Command_syntaxCat___closed__6; return x_1; } } @@ -15054,22 +14710,6 @@ l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8 = _init_l_Lean_Parser_C lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__8); l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9(); lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__9); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__10); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__11 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__11(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__11); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__12 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__12(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__12); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__13 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__13(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__13); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__14 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__14(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__14); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__15 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__15(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__15); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__16 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__16(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__16); -l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17 = _init_l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___elambda__1___closed__17); l_Lean_Parser_Command_syntaxCat___closed__1 = _init_l_Lean_Parser_Command_syntaxCat___closed__1(); lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__1); l_Lean_Parser_Command_syntaxCat___closed__2 = _init_l_Lean_Parser_Command_syntaxCat___closed__2(); @@ -15082,18 +14722,6 @@ l_Lean_Parser_Command_syntaxCat___closed__5 = _init_l_Lean_Parser_Command_syntax lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__5); l_Lean_Parser_Command_syntaxCat___closed__6 = _init_l_Lean_Parser_Command_syntaxCat___closed__6(); lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__6); -l_Lean_Parser_Command_syntaxCat___closed__7 = _init_l_Lean_Parser_Command_syntaxCat___closed__7(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__7); -l_Lean_Parser_Command_syntaxCat___closed__8 = _init_l_Lean_Parser_Command_syntaxCat___closed__8(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__8); -l_Lean_Parser_Command_syntaxCat___closed__9 = _init_l_Lean_Parser_Command_syntaxCat___closed__9(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__9); -l_Lean_Parser_Command_syntaxCat___closed__10 = _init_l_Lean_Parser_Command_syntaxCat___closed__10(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__10); -l_Lean_Parser_Command_syntaxCat___closed__11 = _init_l_Lean_Parser_Command_syntaxCat___closed__11(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__11); -l_Lean_Parser_Command_syntaxCat___closed__12 = _init_l_Lean_Parser_Command_syntaxCat___closed__12(); -lean_mark_persistent(l_Lean_Parser_Command_syntaxCat___closed__12); l_Lean_Parser_Command_syntaxCat = _init_l_Lean_Parser_Command_syntaxCat(); lean_mark_persistent(l_Lean_Parser_Command_syntaxCat); res = l___regBuiltinParser_Lean_Parser_Command_syntaxCat(lean_io_mk_world());