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

chore: update stage0

Browse source
This commit is contained in:
Leonardo de Moura 2020-11-08 06:51:35 -08:00
parent 34cba1ec2e
commit c39ce2db32
34 changed files with 22042 additions and 19411 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
stage0/src/Init/LeanInit.lean generated
View file

@ -191,6 +191,8 @@ inductive ParserDescr
| cat : Name → Nat → ParserDescr
| parser : Name → ParserDescr
| notFollowedBy : ParserDescr → ParserDescr
| withPosition : ParserDescr → ParserDescr
| checkCol : Bool → ParserDescr
instance : Inhabited ParserDescr := ⟨ParserDescr.symbol ""⟩
abbrev TrailingParserDescr := ParserDescr

2
stage0/src/Lean.lean generated
View file

@ -25,5 +25,3 @@ import Lean.Delaborator
import Lean.PrettyPrinter
import Lean.CoreM
import Lean.InternalExceptionId
-- import only for `[init]` side-effects
import Lean.PrettyPrinter.Meta

9
stage0/src/Lean/Delaborator.lean generated
View file

@ -234,15 +234,14 @@ def annotateCurPos (stx : Syntax) : Delab := do
liftM x
partial def delabFor : Name → Delab
| k => do
| Name.anonymous => failure
| k => do
let env ← getEnv
(match (delabAttribute.ext.getState env).table.find? k with
| some delabs => delabs.firstM id >>= annotateCurPos
| none => failure) <|>
(match k with
| Name.str Name.anonymous _ _ => failure
| Name.str n _ _ => delabFor n.getRoot -- have `app.Option.some` fall back to `app` etc.
| _ => failure)
-- have `app.Option.some` fall back to `app` etc.
delabFor k.getRoot
def delab : Delab := do
let k ← getExprKind

6
stage0/src/Lean/Parser/Extension.lean generated
View file

@ -214,6 +214,8 @@ partial def compileParserDescr (env : Environment) (opts : Options) (categories
| ParserDescr.nameLit => pure $ nameLit
| ParserDescr.interpolatedStr d => interpolatedStr <$> visit d
| ParserDescr.ident => pure $ ident
| ParserDescr.checkCol strict => pure $ if strict then checkColGt else checkColGe
| ParserDescr.withPosition d => withPosition <$> visit d
| ParserDescr.nonReservedSymbol tk includeIdent => pure $ nonReservedSymbol tk includeIdent
| ParserDescr.parser constName => do
let (_, p) ← mkParserOfConstantAux env opts categories constName visit;
@ -246,7 +248,7 @@ builtin_initialize
descr := "explicitly run hooks normally activated by builtin parser attributes",
add := fun decl args persistent => do
if args.hasArgs then throwError "invalid attribute 'runBuiltinParserAttributeHooks', unexpected argument"
runParserAttributeHooks `Name.anonymous decl (builtin := true)
runParserAttributeHooks Name.anonymous decl (builtin := true)
}
builtin_initialize
@ -255,7 +257,7 @@ builtin_initialize
descr := "explicitly run hooks normally activated by parser attributes",
add := fun decl args persistent => do
if args.hasArgs then throwError "invalid attribute 'runParserAttributeHooks', unexpected argument"
runParserAttributeHooks `Name.anonymous decl (builtin := false)
runParserAttributeHooks Name.anonymous decl (builtin := false)
}
private def ParserExtension.addImported (es : Array (Array ParserExtensionOleanEntry)) : ImportM ParserExtensionState := do

92
stage0/src/Lean/ParserCompiler.lean generated
View file

@ -19,11 +19,10 @@ namespace ParserCompiler
structure Context (α : Type) :=
(varName : Name)
(runtimeAttr : KeyedDeclsAttribute α)
(categoryAttr : KeyedDeclsAttribute α)
(combinatorAttr : CombinatorAttribute)
(interpretParserDescr : ParserDescr → AttrM α)
def Context.tyName {α} (ctx : Context α) : Name := ctx.runtimeAttr.defn.valueTypeName
def Context.tyName {α} (ctx : Context α) : Name := ctx.categoryAttr.defn.valueTypeName
-- replace all references of `Parser` with `tyName` as a first approximation
def preprocessParserBody {α} (ctx : Context α) (e : Expr) : Expr :=
@ -32,11 +31,14 @@ def preprocessParserBody {α} (ctx : Context α) (e : Expr) : Expr :=
section
open Meta
-- translate an expression of type `Parser` into one of type `tyName`
partial def compileParserBody {α} (ctx : Context α) (e : Expr) (force : Bool := false) : MetaM Expr := do
variables {α} (ctx : Context α) (force : Bool := false) in
/--
Translate an expression of type `Parser` into one of type `tyName`, tagging intermediary constants with
`ctx.combinatorAttr`. If `force` is `false`, refuse to do so for imported constants. -/
partial def compileParserExpr (e : Expr) : MetaM Expr := do
let e ← whnfCore e
match e with
| e@(Expr.lam _ _ _ _) => lambdaLetTelescope e fun xs b => compileParserBody ctx b >>= mkLambdaFVars xs
| e@(Expr.lam _ _ _ _) => lambdaLetTelescope e fun xs b => compileParserExpr b >>= mkLambdaFVars xs
| e@(Expr.fvar _ _) => pure e
| _ => do
let fn := e.getAppFn
@ -55,11 +57,11 @@ partial def compileParserBody {α} (ctx : Context α) (e : Expr) (force : Bool :
let arg := args[i]
let paramTy ← inferType param
let resultTy ← forallTelescope paramTy fun _ b => pure b
let arg ← if resultTy.isConstOf ctx.tyName then compileParserBody ctx arg else pure arg
let arg ← if resultTy.isConstOf ctx.tyName then compileParserExpr arg else pure arg
p := mkApp p arg
pure p
let env ← getEnv
match ctx.combinatorAttr.getDeclFor env c with
match ctx.combinatorAttr.getDeclFor? env c with
| some p => mkCall p
| none =>
let c' := c ++ ctx.varName
@ -71,7 +73,7 @@ partial def compileParserBody {α} (ctx : Context α) (e : Expr) (force : Bool :
| throwError! "don't know how to generate {ctx.varName} for non-definition '{e}'"
unless (env.getModuleIdxFor? c).isNone || force do
throwError! "refusing to generate code for imported parser declaration '{c}'; use `@[runParserAttributeHooks]` on its definition instead."
let value ← compileParserBody ctx $ preprocessParserBody ctx value
let value ← compileParserExpr $ preprocessParserBody ctx value
let ty ← forallTelescope cinfo.type fun params _ =>
params.foldrM (init := mkConst ctx.tyName) fun param ty => do
let paramTy ← inferType param;
@ -93,51 +95,67 @@ partial def compileParserBody {α} (ctx : Context α) (e : Expr) (force : Bool :
-- back to parser combinators
let some e' ← unfoldDefinition? e
| throwError! "don't know how to generate {ctx.varName} for non-parser combinator '{e}'"
compileParserBody ctx e'
compileParserExpr e'
end
open Core
/-- Compile the given declaration into a `[(builtin)runtimeAttr declName]` -/
def compileParser {α} (ctx : Context α) (declName : Name) (builtin : Bool) (force := false) : AttrM Unit := do
/-- Compile the given declaration into a `[(builtin)categoryAttr declName]` -/
def compileCategoryParser {α} (ctx : Context α) (declName : Name) (builtin : Bool) : AttrM Unit := do
-- This will also tag the declaration as a `[combinatorParenthesizer declName]` in case the parser is used by other parsers.
-- Note that simply having `[(builtin)Parenthesizer]` imply `[combinatorParenthesizer]` is not ideal since builtin
-- attributes are active only in the next stage, while `[combinatorParenthesizer]` is active immediately (since we never
-- call them at compile time but only reference them).
let (Expr.const c' _ _) ← (compileParserBody ctx (mkConst declName) force).run'
let (Expr.const c' _ _) ← (compileParserExpr ctx (mkConst declName) (force := false)).run'
| unreachable!
-- We assume that for tagged parsers, the kind is equal to the declaration name. This is automatically true for parsers
-- using `parser!` or `syntax`.
let kind := declName
addAttribute c' (if builtin then ctx.runtimeAttr.defn.builtinName else ctx.runtimeAttr.defn.name) (mkNullNode #[mkIdent kind])
-- When called from `interpretParserDescr`, `declName` might not be a tagged parser, so ignore "not a valid syntax kind" failures
<|> pure ()
addAttribute c' (if builtin then ctx.categoryAttr.defn.builtinName else ctx.categoryAttr.defn.name) (mkNullNode #[mkIdent kind])
unsafe def interpretParser {α} (ctx : Context α) (constName : Name) (force := false) : AttrM α := do
let info ← getConstInfo constName
let env ← getEnv
if info.type.isConstOf `Lean.Parser.TrailingParser || info.type.isConstOf `Lean.Parser.Parser then
match ctx.runtimeAttr.getValues env constName with
| p::_ => pure p
| _ =>
compileParser ctx constName (builtin := false) force
evalConst α (constName ++ ctx.varName)
else
let d ← evalConst TrailingParserDescr constName
ctx.interpretParserDescr d
variables {α} (ctx : Context α) in
def compileEmbeddedParsers : ParserDescr → MetaM Unit
| ParserDescr.parser constName => discard $ compileParserExpr ctx (mkConst constName) (force := false)
| ParserDescr.andthen d₁ d₂ => compileEmbeddedParsers d₁ *> compileEmbeddedParsers d₂
| ParserDescr.orelse d₁ d₂ => compileEmbeddedParsers d₁ *> compileEmbeddedParsers d₂
| ParserDescr.optional d => compileEmbeddedParsers d
| ParserDescr.lookahead d => compileEmbeddedParsers d
| ParserDescr.try d => compileEmbeddedParsers d
| ParserDescr.notFollowedBy d => compileEmbeddedParsers d
| ParserDescr.many d => compileEmbeddedParsers d
| ParserDescr.many1 d => compileEmbeddedParsers d
| ParserDescr.sepBy d₁ d₂ => compileEmbeddedParsers d₁ *> compileEmbeddedParsers d₂
| ParserDescr.sepBy1 d₁ d₂ => compileEmbeddedParsers d₁ *> compileEmbeddedParsers d₂
| ParserDescr.node k prec d => compileEmbeddedParsers d
| ParserDescr.trailingNode k prec d => compileEmbeddedParsers d
| ParserDescr.interpolatedStr d => compileEmbeddedParsers d
| ParserDescr.withPosition d => compileEmbeddedParsers d
| ParserDescr.checkCol _ => pure ()
| ParserDescr.symbol tk => pure ()
| ParserDescr.numLit => pure ()
| ParserDescr.strLit => pure ()
| ParserDescr.charLit => pure ()
| ParserDescr.nameLit => pure ()
| ParserDescr.ident => pure ()
| ParserDescr.nonReservedSymbol tk includeIdent => pure ()
| ParserDescr.noWs => pure ()
| ParserDescr.cat catName prec => pure ()
/-- Precondition: `α` must match `ctx.tyName`. -/
unsafe def registerParserCompiler {α} (ctx : Context α) : IO Unit := do
Parser.registerParserAttributeHook {
postAdd := fun catName declName builtin => do
-- force compilation of parser even if imported, which can be the case with `[runBuiltinParserAttributeHooks]`
if builtin then
compileParser ctx declName builtin (force := true)
postAdd := fun catName constName builtin => do
let info ← getConstInfo constName
if info.type.isConstOf `Lean.ParserDescr || info.type.isConstOf `Lean.TrailingParserDescr then
let d ← evalConstCheck ParserDescr `Lean.ParserDescr constName <|>
evalConstCheck TrailingParserDescr `Lean.TrailingParserDescr constName
compileEmbeddedParsers ctx d $.run'
else
let p ← interpretParser ctx declName (force := true)
-- Register `p` without exporting it to the .olean file. It will be re-interpreted and registered
-- when the parser is imported.
let env ← getEnv
setEnv $ ctx.runtimeAttr.ext.modifyState env fun st => { st with table := st.table.insert declName p }
if catName.isAnonymous then
-- `[runBuiltinParserAttributeHooks]` => force compilation even if imported, do not apply `ctx.categoryAttr`.
discard (compileParserExpr ctx (mkConst constName) (force := true)).run'
else
compileCategoryParser ctx constName builtin
}
end ParserCompiler

13
stage0/src/Lean/ParserCompiler/Attribute.lean generated
View file

@ -12,7 +12,7 @@ namespace Lean
namespace ParserCompiler
structure CombinatorAttribute :=
(attr : AttributeImpl)
(impl : AttributeImpl)
(ext : SimplePersistentEnvExtension (Name × Name) (NameMap Name))
-- TODO(Sebastian): We'll probably want priority support here at some point
@ -36,18 +36,23 @@ def registerCombinatorAttribute (name : Name) (descr : String)
| none => throwError $ "invalid [" ++ name ++ "] argument, expected identifier"
}
registerBuiltinAttribute attrImpl
pure { attr := attrImpl, ext := ext }
pure { impl := attrImpl, ext := ext }
namespace CombinatorAttribute
instance : Inhabited CombinatorAttribute := ⟨{attr := arbitrary _, ext := arbitrary _}⟩
instance : Inhabited CombinatorAttribute := ⟨{impl := arbitrary _, ext := arbitrary _}⟩
def getDeclFor (attr : CombinatorAttribute) (env : Environment) (parserDecl : Name) : Option Name :=
def getDeclFor? (attr : CombinatorAttribute) (env : Environment) (parserDecl : Name) : Option Name :=
(attr.ext.getState env).find? parserDecl
def setDeclFor (attr : CombinatorAttribute) (env : Environment) (parserDecl : Name) (decl : Name) : Environment :=
attr.ext.addEntry env (parserDecl, decl)
unsafe def runDeclFor {α} (attr : CombinatorAttribute) (parserDecl : Name) : CoreM α := do
match attr.getDeclFor? (← getEnv) parserDecl with
| some d => evalConst α d
| _ => throwError! "no declaration of attribute [{attr.impl.name}] found for '{parserDecl}'"
end CombinatorAttribute
end ParserCompiler

8
stage0/src/Lean/PrettyPrinter.lean generated
View file

@ -7,6 +7,7 @@ import Lean.Delaborator
import Lean.PrettyPrinter.Parenthesizer
import Lean.PrettyPrinter.Formatter
import Lean.Parser.Module
import Lean.ParserCompiler
namespace Lean
@ -64,7 +65,12 @@ builtin_initialize
}
builtin_initialize
registerTraceClass `PrettyPrinter;
registerTraceClass `PrettyPrinter
@[builtinInit]
unsafe def registerParserCompilers : IO Unit := do
ParserCompiler.registerParserCompiler ⟨`parenthesizer, parenthesizerAttribute, combinatorParenthesizerAttribute⟩
ParserCompiler.registerParserCompiler ⟨`formatter, formatterAttribute, combinatorFormatterAttribute⟩
end PrettyPrinter
end Lean

16
stage0/src/Lean/PrettyPrinter/Backtrack.lean generated
View file

@ -1,16 +0,0 @@
/-
Copyright (c) 2020 Sebastian Ullrich. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Sebastian Ullrich
-/
import Lean.InternalExceptionId
namespace Lean
namespace PrettyPrinter
/- Auxiliary internal exception for backtracking the pretty printer.
See `orelse.parenthesizer` for example -/
builtin_initialize backtrackExceptionId : InternalExceptionId ← registerInternalExceptionId `backtrackFormatter
end PrettyPrinter
end Lean

29
stage0/src/Lean/PrettyPrinter/Basic.lean generated Normal file
View file

@ -0,0 +1,29 @@
/-
Copyright (c) 2020 Sebastian Ullrich. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Sebastian Ullrich
-/
import Lean.InternalExceptionId
import Lean.KeyedDeclsAttribute
namespace Lean
namespace PrettyPrinter
/- Auxiliary internal exception for backtracking the pretty printer.
See `orelse.parenthesizer` for example -/
builtin_initialize backtrackExceptionId : InternalExceptionId ← registerInternalExceptionId `backtrackFormatter
unsafe def runForNodeKind {α} (attr : KeyedDeclsAttribute α) (k : SyntaxNodeKind) (interp : ParserDescr → CoreM α) : CoreM α := do
match attr.getValues (← getEnv) k with
| p::_ => pure p
| _ =>
-- assume `k` is from a `ParserDescr`, in which case we assume it's also the declaration name
let info ← getConstInfo k
if info.type.isConstOf `Lean.ParserDescr || info.type.isConstOf `Lean.TrailingParserDescr then
let d ← evalConst ParserDescr k
interp d
else
throwError! "no declaration of attribute [{attr.defn.name}] found for '{k}'"
end PrettyPrinter
end Lean

44
stage0/src/Lean/PrettyPrinter/Formatter.lean generated
View file

@ -17,7 +17,7 @@ import Lean.CoreM
import Lean.Parser.Extension
import Lean.KeyedDeclsAttribute
import Lean.ParserCompiler.Attribute
import Lean.PrettyPrinter.Backtrack
import Lean.PrettyPrinter.Basic
namespace Lean
namespace PrettyPrinter
@ -156,11 +156,15 @@ def group (x : Formatter) : Formatter := do
@[extern "lean_mk_antiquot_formatter"]
constant mkAntiquot.formatter' (name : String) (kind : Option SyntaxNodeKind) (anonymous := true) : Formatter
def formatterForKind (k : SyntaxNodeKind) : Formatter := do
let env ← getEnv
let p::_ ← pure $ formatterAttribute.getValues env k
| throwError! "no known formatter for kind '{k}'"
p
-- break up big mutual recursion
@[extern "lean_pretty_printer_formatter_interpret_parser_descr"]
constant interpretParserDescr' : ParserDescr → CoreM Formatter := arbitrary _
unsafe def formatterForKindUnsafe (k : SyntaxNodeKind) : Formatter := do
(← liftM $ runForNodeKind formatterAttribute k interpretParserDescr')
@[implementedBy formatterForKindUnsafe]
constant formatterForKind (k : SyntaxNodeKind) : Formatter := arbitrary _
@[combinatorFormatter Lean.Parser.withAntiquot]
def withAntiquot.formatter (antiP p : Formatter) : Formatter :=
@ -396,6 +400,34 @@ def interpolatedStr.formatter (p : Formatter) : Formatter := do
@[combinatorFormatter ite, macroInline] def ite {α : Type} (c : Prop) [h : Decidable c] (t e : Formatter) : Formatter :=
if c then t else e
@[export lean_pretty_printer_formatter_interpret_parser_descr]
unsafe def interpretParserDescr : ParserDescr → CoreM Formatter
| ParserDescr.andthen d₁ d₂ => andthen.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.orelse d₁ d₂ => orelse.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.optional d => optional.formatter <$> interpretParserDescr d
| ParserDescr.lookahead d => lookahead.formatter <$> interpretParserDescr d
| ParserDescr.try d => try.formatter <$> interpretParserDescr d
| ParserDescr.notFollowedBy d => notFollowedBy.formatter <$> interpretParserDescr d
| ParserDescr.many d => many.formatter <$> interpretParserDescr d
| ParserDescr.many1 d => many1.formatter <$> interpretParserDescr d
| ParserDescr.sepBy d₁ d₂ => sepBy.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.sepBy1 d₁ d₂ => sepBy1.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.node k prec d => node.formatter k <$> interpretParserDescr d
| ParserDescr.trailingNode k prec d => trailingNode.formatter k prec <$> interpretParserDescr d
| ParserDescr.symbol tk => pure $ symbol.formatter tk
| ParserDescr.numLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "numLit" `numLit) numLitNoAntiquot.formatter
| ParserDescr.strLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "strLit" `strLit) strLitNoAntiquot.formatter
| ParserDescr.charLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "charLit" `charLit) charLitNoAntiquot.formatter
| ParserDescr.nameLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "nameLit" `nameLit) nameLitNoAntiquot.formatter
| ParserDescr.ident => pure $ withAntiquot.formatter (mkAntiquot.formatter' "ident" `ident) identNoAntiquot.formatter
| ParserDescr.interpolatedStr d => interpolatedStr.formatter <$> interpretParserDescr d
| ParserDescr.nonReservedSymbol tk includeIdent => pure $ nonReservedSymbol.formatter tk
| ParserDescr.noWs => pure $ checkNoWsBefore.formatter
| ParserDescr.withPosition d => withPosition.formatter <$> interpretParserDescr d
| ParserDescr.checkCol strict => pure $ if strict then checkColGt.formatter else checkColGe.formatter
| ParserDescr.parser constName => combinatorFormatterAttribute.runDeclFor constName
| ParserDescr.cat catName prec => pure $ categoryParser.formatter catName
end Formatter
open Formatter

91
stage0/src/Lean/PrettyPrinter/Meta.lean generated
View file

@ -1,91 +0,0 @@
/-
Copyright (c) 2020 Sebastian Ullrich. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Sebastian Ullrich
-/
/-!
Set up pretty printer compilers for the next stage.
-/
import Lean.PrettyPrinter.Parenthesizer
import Lean.PrettyPrinter.Formatter
import Lean.ParserCompiler
namespace Lean
namespace PrettyPrinter
open Lean.ParserCompiler
namespace Parenthesizer
def ctx (interp) : ParserCompiler.Context Parenthesizer :=
⟨`parenthesizer, parenthesizerAttribute, combinatorParenthesizerAttribute, interp⟩
unsafe def interpretParserDescr : ParserDescr → AttrM Parenthesizer
| ParserDescr.andthen d₁ d₂ => andthen.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.orelse d₁ d₂ => orelse.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.optional d => optional.parenthesizer <$> interpretParserDescr d
| ParserDescr.lookahead d => lookahead.parenthesizer <$> interpretParserDescr d
| ParserDescr.try d => try.parenthesizer <$> interpretParserDescr d
| ParserDescr.notFollowedBy d => notFollowedBy.parenthesizer <$> interpretParserDescr d
| ParserDescr.many d => many.parenthesizer <$> interpretParserDescr d
| ParserDescr.many1 d => many1.parenthesizer <$> interpretParserDescr d
| ParserDescr.sepBy d₁ d₂ => sepBy.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.sepBy1 d₁ d₂ => sepBy1.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.node k prec d => leadingNode.parenthesizer k prec <$> interpretParserDescr d
| ParserDescr.trailingNode k prec d => trailingNode.parenthesizer k prec <$> interpretParserDescr d
| ParserDescr.symbol tk => pure $ symbol.parenthesizer tk
| ParserDescr.numLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "numLit" `numLit) numLitNoAntiquot.parenthesizer
| ParserDescr.strLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "strLit" `strLit) strLitNoAntiquot.parenthesizer
| ParserDescr.charLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "charLit" `charLit) charLitNoAntiquot.parenthesizer
| ParserDescr.nameLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "nameLit" `nameLit) nameLitNoAntiquot.parenthesizer
| ParserDescr.ident => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "ident" `ident) identNoAntiquot.parenthesizer
| ParserDescr.interpolatedStr d => interpolatedStr.parenthesizer <$> interpretParserDescr d
| ParserDescr.nonReservedSymbol tk includeIdent => pure $ nonReservedSymbol.parenthesizer tk includeIdent
| ParserDescr.noWs => pure $ checkNoWsBefore.parenthesizer
| ParserDescr.parser constName => interpretParser (ctx interpretParserDescr) constName
| ParserDescr.cat catName prec => pure $ categoryParser.parenthesizer catName prec
@[builtinInit] unsafe def regHook : IO Unit :=
ParserCompiler.registerParserCompiler (ctx interpretParserDescr)
end Parenthesizer
namespace Formatter
def ctx (interp) : ParserCompiler.Context Formatter :=
⟨`formatter, formatterAttribute, combinatorFormatterAttribute, interp⟩
unsafe def interpretParserDescr : ParserDescr → AttrM Formatter
| ParserDescr.andthen d₁ d₂ => andthen.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.orelse d₁ d₂ => orelse.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.optional d => optional.formatter <$> interpretParserDescr d
| ParserDescr.lookahead d => lookahead.formatter <$> interpretParserDescr d
| ParserDescr.try d => try.formatter <$> interpretParserDescr d
| ParserDescr.notFollowedBy d => notFollowedBy.formatter <$> interpretParserDescr d
| ParserDescr.many d => many.formatter <$> interpretParserDescr d
| ParserDescr.many1 d => many1.formatter <$> interpretParserDescr d
| ParserDescr.sepBy d₁ d₂ => sepBy.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.sepBy1 d₁ d₂ => sepBy1.formatter <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.node k prec d => node.formatter k <$> interpretParserDescr d
| ParserDescr.trailingNode k prec d => trailingNode.formatter k prec <$> interpretParserDescr d
| ParserDescr.symbol tk => pure $ symbol.formatter tk
| ParserDescr.numLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "numLit" `numLit) numLitNoAntiquot.formatter
| ParserDescr.strLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "strLit" `strLit) strLitNoAntiquot.formatter
| ParserDescr.charLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "charLit" `charLit) charLitNoAntiquot.formatter
| ParserDescr.nameLit => pure $ withAntiquot.formatter (mkAntiquot.formatter' "nameLit" `nameLit) nameLitNoAntiquot.formatter
| ParserDescr.interpolatedStr d => interpolatedStr.formatter <$> interpretParserDescr d
| ParserDescr.ident => pure $ withAntiquot.formatter (mkAntiquot.formatter' "ident" `ident) identNoAntiquot.formatter
| ParserDescr.nonReservedSymbol tk includeIdent => pure $ nonReservedSymbol.formatter tk
| ParserDescr.noWs => pure $ checkNoWsBefore.formatter
| ParserDescr.parser constName => interpretParser (ctx interpretParserDescr) constName
| ParserDescr.cat catName prec => pure $ categoryParser.formatter catName
@[builtinInit] unsafe def regHook : IO Unit :=
ParserCompiler.registerParserCompiler (ctx interpretParserDescr)
end Formatter
end PrettyPrinter
end Lean

44
stage0/src/Lean/PrettyPrinter/Parenthesizer.lean generated
View file

@ -75,7 +75,7 @@ import Lean.CoreM
import Lean.KeyedDeclsAttribute
import Lean.Parser.Extension
import Lean.ParserCompiler.Attribute
import Lean.PrettyPrinter.Backtrack
import Lean.PrettyPrinter.Basic
namespace Lean
namespace PrettyPrinter
@ -268,11 +268,15 @@ constant mkAntiquot.parenthesizer' (name : String) (kind : Option SyntaxNodeKind
def throwError {α} (msg : MessageData) : ParenthesizerM α :=
liftCoreM $ Lean.throwError msg
def parenthesizerForKind (k : SyntaxNodeKind) : Parenthesizer := do
let env ← getEnv
let p::_ ← pure $ parenthesizerAttribute.getValues env k
| throwError! "no known parenthesizer for kind '{k}'"
p
-- break up big mutual recursion
@[extern "lean_pretty_printer_parenthesizer_interpret_parser_descr"]
constant interpretParserDescr' : ParserDescr → CoreM Parenthesizer := arbitrary _
unsafe def parenthesizerForKindUnsafe (k : SyntaxNodeKind) : Parenthesizer := do
(← liftM $ runForNodeKind parenthesizerAttribute k interpretParserDescr')
@[implementedBy parenthesizerForKindUnsafe]
constant parenthesizerForKind (k : SyntaxNodeKind) : Parenthesizer := arbitrary _
@[combinatorParenthesizer Lean.Parser.withAntiquot]
def withAntiquot.parenthesizer (antiP p : Parenthesizer) : Parenthesizer :=
@ -473,6 +477,34 @@ def interpolatedStr.parenthesizer (p : Parenthesizer) : Parenthesizer := do
@[combinatorParenthesizer ite, macroInline] def ite {α : Type} (c : Prop) [h : Decidable c] (t e : Parenthesizer) : Parenthesizer :=
if c then t else e
@[export lean_pretty_printer_parenthesizer_interpret_parser_descr]
unsafe def interpretParserDescr : ParserDescr → CoreM Parenthesizer
| ParserDescr.andthen d₁ d₂ => andthen.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.orelse d₁ d₂ => orelse.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.optional d => optional.parenthesizer <$> interpretParserDescr d
| ParserDescr.lookahead d => lookahead.parenthesizer <$> interpretParserDescr d
| ParserDescr.try d => try.parenthesizer <$> interpretParserDescr d
| ParserDescr.notFollowedBy d => notFollowedBy.parenthesizer <$> interpretParserDescr d
| ParserDescr.many d => many.parenthesizer <$> interpretParserDescr d
| ParserDescr.many1 d => many1.parenthesizer <$> interpretParserDescr d
| ParserDescr.sepBy d₁ d₂ => sepBy.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.sepBy1 d₁ d₂ => sepBy1.parenthesizer <$> interpretParserDescr d₁ <*> interpretParserDescr d₂
| ParserDescr.node k prec d => leadingNode.parenthesizer k prec <$> interpretParserDescr d
| ParserDescr.trailingNode k prec d => trailingNode.parenthesizer k prec <$> interpretParserDescr d
| ParserDescr.symbol tk => pure $ symbol.parenthesizer tk
| ParserDescr.numLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "numLit" `numLit) numLitNoAntiquot.parenthesizer
| ParserDescr.strLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "strLit" `strLit) strLitNoAntiquot.parenthesizer
| ParserDescr.charLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "charLit" `charLit) charLitNoAntiquot.parenthesizer
| ParserDescr.nameLit => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "nameLit" `nameLit) nameLitNoAntiquot.parenthesizer
| ParserDescr.ident => pure $ withAntiquot.parenthesizer (mkAntiquot.parenthesizer' "ident" `ident) identNoAntiquot.parenthesizer
| ParserDescr.interpolatedStr d => interpolatedStr.parenthesizer <$> interpretParserDescr d
| ParserDescr.nonReservedSymbol tk includeIdent => pure $ nonReservedSymbol.parenthesizer tk includeIdent
| ParserDescr.noWs => pure $ checkNoWsBefore.parenthesizer
| ParserDescr.checkCol strict => pure $ if strict then checkColGt.parenthesizer else checkColGe.parenthesizer
| ParserDescr.withPosition d => withPosition.parenthesizer <$> interpretParserDescr d
| ParserDescr.parser constName => combinatorParenthesizerAttribute.runDeclFor constName
| ParserDescr.cat catName prec => pure $ categoryParser.parenthesizer catName prec
end Parenthesizer
open Parenthesizer

2
stage0/stdlib/CMakeLists.txt generated
View file

File diff suppressed because one or more lines are too long

10
stage0/stdlib/Init/LeanInit.c generated
View file

@ -3677,7 +3677,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__1;
x_2 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__2;
x_3 = lean_unsigned_to_nat(352u);
x_3 = lean_unsigned_to_nat(354u);
x_4 = lean_unsigned_to_nat(24u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -4006,7 +4006,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__1;
x_2 = l___private_Init_LeanInit_0__Lean_assembleParts___closed__1;
x_3 = lean_unsigned_to_nat(386u);
x_3 = lean_unsigned_to_nat(388u);
x_4 = lean_unsigned_to_nat(35u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -4133,7 +4133,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__1;
x_2 = l___private_Init_LeanInit_0__Lean_extractImported___closed__1;
x_3 = lean_unsigned_to_nat(395u);
x_3 = lean_unsigned_to_nat(397u);
x_4 = lean_unsigned_to_nat(35u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -4269,7 +4269,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__1;
x_2 = l___private_Init_LeanInit_0__Lean_extractMainModule___closed__1;
x_3 = lean_unsigned_to_nat(404u);
x_3 = lean_unsigned_to_nat(406u);
x_4 = lean_unsigned_to_nat(33u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -4403,7 +4403,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__1;
x_2 = l___private_Init_LeanInit_0__Lean_extractMacroScopesAux___closed__1;
x_3 = lean_unsigned_to_nat(409u);
x_3 = lean_unsigned_to_nat(411u);
x_4 = lean_unsigned_to_nat(29u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);

6
stage0/stdlib/Lean.c generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Lean
// Imports: Init Lean.Compiler Lean.Environment Lean.Modifiers Lean.ProjFns Lean.Runtime Lean.ResolveName Lean.Attributes Lean.Parser Lean.ReducibilityAttrs Lean.Elab Lean.Class Lean.LocalContext Lean.MetavarContext Lean.AuxRecursor Lean.Meta Lean.Util Lean.Eval Lean.Structure Lean.Delaborator Lean.PrettyPrinter Lean.CoreM Lean.InternalExceptionId Lean.PrettyPrinter.Meta
// Imports: Init Lean.Compiler Lean.Environment Lean.Modifiers Lean.ProjFns Lean.Runtime Lean.ResolveName Lean.Attributes Lean.Parser Lean.ReducibilityAttrs Lean.Elab Lean.Class Lean.LocalContext Lean.MetavarContext Lean.AuxRecursor Lean.Meta Lean.Util Lean.Eval Lean.Structure Lean.Delaborator Lean.PrettyPrinter Lean.CoreM Lean.InternalExceptionId
#include <lean/lean.h>
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -36,7 +36,6 @@ lean_object* initialize_Lean_Delaborator(lean_object*);
lean_object* initialize_Lean_PrettyPrinter(lean_object*);
lean_object* initialize_Lean_CoreM(lean_object*);
lean_object* initialize_Lean_InternalExceptionId(lean_object*);
lean_object* initialize_Lean_PrettyPrinter_Meta(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Lean(lean_object* w) {
lean_object * res;
@ -111,9 +110,6 @@ lean_dec_ref(res);
res = initialize_Lean_InternalExceptionId(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Lean_PrettyPrinter_Meta(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

433
stage0/stdlib/Lean/Delaborator.c generated
View file

@ -335,7 +335,6 @@ lean_object* l_Lean_Delaborator_delabLE___lambda__1(uint8_t, lean_object*, lean_
lean_object* l_Lean_Level_quote_match__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabStructureInstance___closed__4;
lean_object* l___regBuiltin_Lean_Delaborator_delabMVar(lean_object*);
lean_object* l_Lean_Delaborator_delabFor_match__3___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_withAppFn___rarg___closed__1;
uint8_t l_USize_decLt(size_t, size_t);
lean_object* l_Lean_Delaborator_withMDataExpr___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -586,7 +585,6 @@ lean_object* l_Lean_Delaborator_delabLam___lambda__3___closed__1;
extern lean_object* l_Init_Data_Repr___instance__15___closed__1;
lean_object* l_Lean_Meta_withLocalDecl___at_Lean_Delaborator_withBindingBody___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_List_headD___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabFor_match__3(lean_object*);
lean_object* l_Lean_SMap_find_x3f___at_Lean_Delaborator_delabFor___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Level_quote___lambda__2___closed__1;
lean_object* l_Array_foldrMUnsafe_fold___at_Lean_Delaborator_delabForall___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -807,7 +805,7 @@ lean_object* l___private_Lean_Delaborator_0__Lean_Delaborator_unresolveOpenDecls
lean_object* l_Lean_Delaborator_delabSort___closed__2;
lean_object* l_Lean_Delaborator_delabMap___lambda__1___closed__3;
lean_object* l___regBuiltin_Lean_Delaborator_delabLE___closed__1;
lean_object* l_Lean_Delaborator_delabFor_match__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabFor_match__2___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Delaborator_delabOrM___closed__1;
lean_object* l_Lean_SMap_find_x3f___at_Lean_Delaborator_delabFor___spec__1___boxed(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Delaborator_delabProjectionApp(lean_object*);
@ -10031,47 +10029,23 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Delaborator_delabFor_match__1___rarg), 3
return x_2;
}
}
lean_object* l_Lean_Delaborator_delabFor_match__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l_Lean_Delaborator_delabFor_match__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_1) == 1)
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_5;
lean_dec(x_4);
x_5 = lean_ctor_get(x_1, 0);
lean_inc(x_5);
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_6; size_t x_7; lean_object* x_8; lean_object* x_9;
lean_object* x_4; lean_object* x_5;
lean_dec(x_3);
x_6 = lean_ctor_get(x_1, 1);
lean_inc(x_6);
x_7 = lean_ctor_get_usize(x_1, 2);
lean_dec(x_1);
x_8 = lean_box_usize(x_7);
x_9 = lean_apply_2(x_2, x_6, x_8);
return x_9;
x_4 = lean_box(0);
x_5 = lean_apply_1(x_2, x_4);
return x_5;
}
else
{
lean_object* x_10; size_t x_11; lean_object* x_12; lean_object* x_13;
lean_object* x_6;
lean_dec(x_2);
x_10 = lean_ctor_get(x_1, 1);
lean_inc(x_10);
x_11 = lean_ctor_get_usize(x_1, 2);
lean_dec(x_1);
x_12 = lean_box_usize(x_11);
x_13 = lean_apply_3(x_3, x_5, x_10, x_12);
return x_13;
}
}
else
{
lean_object* x_14;
lean_dec(x_3);
lean_dec(x_2);
x_14 = lean_apply_1(x_4, x_1);
return x_14;
x_6 = lean_apply_1(x_3, x_1);
return x_6;
}
}
}
@ -10079,23 +10053,7 @@ lean_object* l_Lean_Delaborator_delabFor_match__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Delaborator_delabFor_match__2___rarg), 4, 0);
return x_2;
}
}
lean_object* l_Lean_Delaborator_delabFor_match__3___rarg(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_apply_1(x_2, x_1);
return x_3;
}
}
lean_object* l_Lean_Delaborator_delabFor_match__3(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_Delaborator_delabFor_match__3___rarg), 2, 0);
x_2 = lean_alloc_closure((void*)(l_Lean_Delaborator_delabFor_match__2___rarg), 3, 0);
return x_2;
}
}
@ -10479,159 +10437,240 @@ goto _start;
lean_object* l_Lean_Delaborator_delabFor(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6, lean_object* x_7) {
_start:
{
lean_object* x_8; lean_object* x_9; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_21 = lean_st_ref_get(x_6, x_7);
x_22 = lean_ctor_get(x_21, 0);
lean_inc(x_22);
x_23 = lean_ctor_get(x_21, 1);
lean_inc(x_23);
lean_dec(x_21);
x_24 = lean_ctor_get(x_22, 0);
lean_inc(x_24);
lean_dec(x_22);
x_25 = l_Lean_Delaborator_delabAttribute;
x_26 = lean_ctor_get(x_25, 2);
lean_inc(x_26);
x_27 = l_Lean_PersistentEnvExtension_getState___rarg(x_26, x_24);
lean_dec(x_24);
lean_dec(x_26);
x_28 = lean_ctor_get(x_27, 1);
lean_inc(x_28);
lean_dec(x_27);
x_29 = l_Lean_SMap_find_x3f___at_Lean_Delaborator_delabFor___spec__1(x_28, x_1);
if (lean_obj_tag(x_29) == 0)
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_30; lean_object* x_31; lean_object* x_32;
x_30 = l_Lean_Delaborator_failure___rarg(x_23);
x_31 = lean_ctor_get(x_30, 0);
lean_inc(x_31);
x_32 = lean_ctor_get(x_30, 1);
lean_inc(x_32);
lean_dec(x_30);
x_8 = x_31;
x_9 = x_32;
goto block_20;
}
else
{
lean_object* x_33; lean_object* x_34;
x_33 = lean_ctor_get(x_29, 0);
lean_inc(x_33);
lean_dec(x_29);
lean_inc(x_6);
lean_inc(x_5);
lean_inc(x_4);
lean_inc(x_3);
lean_inc(x_2);
x_34 = l_List_firstM___at_Lean_Delaborator_delabFor___spec__7(x_33, x_2, x_3, x_4, x_5, x_6, x_23);
if (lean_obj_tag(x_34) == 0)
{
lean_object* x_35; lean_object* x_36; lean_object* x_37;
lean_dec(x_1);
x_35 = lean_ctor_get(x_34, 0);
lean_inc(x_35);
x_36 = lean_ctor_get(x_34, 1);
lean_inc(x_36);
lean_dec(x_34);
x_37 = l_Lean_Delaborator_annotateCurPos(x_35, x_2, x_3, x_4, x_5, x_6, x_36);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
return x_37;
}
else
{
lean_object* x_38; lean_object* x_39;
x_38 = lean_ctor_get(x_34, 0);
lean_inc(x_38);
x_39 = lean_ctor_get(x_34, 1);
lean_inc(x_39);
lean_dec(x_34);
x_8 = x_38;
x_9 = x_39;
goto block_20;
}
}
block_20:
{
if (lean_obj_tag(x_8) == 0)
{
lean_object* x_10;
lean_object* x_8;
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_10 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_10, 0, x_8);
lean_ctor_set(x_10, 1, x_9);
return x_10;
x_8 = l_Lean_Delaborator_failure___rarg(x_7);
return x_8;
}
else
{
lean_object* x_11; lean_object* x_12; uint8_t x_13;
x_11 = lean_ctor_get(x_8, 0);
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_9 = lean_st_ref_get(x_6, x_7);
x_10 = lean_ctor_get(x_9, 0);
lean_inc(x_10);
x_11 = lean_ctor_get(x_9, 1);
lean_inc(x_11);
x_12 = l_Lean_Delaborator_delabFailureId;
x_13 = lean_nat_dec_eq(x_12, x_11);
lean_dec(x_11);
if (x_13 == 0)
{
lean_object* x_14;
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_14 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_14, 0, x_8);
lean_ctor_set(x_14, 1, x_9);
return x_14;
}
else
{
lean_dec(x_8);
if (lean_obj_tag(x_1) == 1)
{
lean_object* x_15;
x_15 = lean_ctor_get(x_1, 0);
lean_inc(x_15);
lean_dec(x_1);
if (lean_obj_tag(x_15) == 0)
{
lean_object* x_16;
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_16 = l_Lean_Delaborator_failure___rarg(x_9);
return x_16;
}
else
{
lean_object* x_17;
x_17 = l_Lean_Name_getRoot(x_15);
lean_dec(x_9);
x_12 = lean_ctor_get(x_10, 0);
lean_inc(x_12);
lean_dec(x_10);
x_13 = l_Lean_Delaborator_delabAttribute;
x_14 = lean_ctor_get(x_13, 2);
lean_inc(x_14);
x_15 = l_Lean_PersistentEnvExtension_getState___rarg(x_14, x_12);
lean_dec(x_12);
lean_dec(x_14);
x_16 = lean_ctor_get(x_15, 1);
lean_inc(x_16);
lean_dec(x_15);
x_1 = x_17;
x_7 = x_9;
x_17 = l_Lean_SMap_find_x3f___at_Lean_Delaborator_delabFor___spec__1(x_16, x_1);
x_18 = l_Lean_Name_getRoot(x_1);
lean_dec(x_1);
if (lean_obj_tag(x_17) == 0)
{
lean_object* x_19; uint8_t x_20;
x_19 = l_Lean_Delaborator_failure___rarg(x_11);
x_20 = !lean_is_exclusive(x_19);
if (x_20 == 0)
{
lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; uint8_t x_25;
x_21 = lean_ctor_get(x_19, 0);
x_22 = lean_ctor_get(x_19, 1);
x_23 = lean_ctor_get(x_21, 0);
lean_inc(x_23);
x_24 = l_Lean_Delaborator_delabFailureId;
x_25 = lean_nat_dec_eq(x_24, x_23);
lean_dec(x_23);
if (x_25 == 0)
{
lean_dec(x_18);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_19;
}
else
{
lean_free_object(x_19);
lean_dec(x_21);
x_1 = x_18;
x_7 = x_22;
goto _start;
}
}
else
{
lean_object* x_19;
lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; uint8_t x_31;
x_27 = lean_ctor_get(x_19, 0);
x_28 = lean_ctor_get(x_19, 1);
lean_inc(x_28);
lean_inc(x_27);
lean_dec(x_19);
x_29 = lean_ctor_get(x_27, 0);
lean_inc(x_29);
x_30 = l_Lean_Delaborator_delabFailureId;
x_31 = lean_nat_dec_eq(x_30, x_29);
lean_dec(x_29);
if (x_31 == 0)
{
lean_object* x_32;
lean_dec(x_18);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
x_19 = l_Lean_Delaborator_failure___rarg(x_9);
return x_19;
x_32 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_32, 0, x_27);
lean_ctor_set(x_32, 1, x_28);
return x_32;
}
else
{
lean_dec(x_27);
x_1 = x_18;
x_7 = x_28;
goto _start;
}
}
}
else
{
lean_object* x_34; lean_object* x_35;
x_34 = lean_ctor_get(x_17, 0);
lean_inc(x_34);
lean_dec(x_17);
lean_inc(x_6);
lean_inc(x_5);
lean_inc(x_4);
lean_inc(x_3);
lean_inc(x_2);
x_35 = l_List_firstM___at_Lean_Delaborator_delabFor___spec__7(x_34, x_2, x_3, x_4, x_5, x_6, x_11);
if (lean_obj_tag(x_35) == 0)
{
lean_object* x_36; lean_object* x_37; lean_object* x_38;
lean_dec(x_18);
x_36 = lean_ctor_get(x_35, 0);
lean_inc(x_36);
x_37 = lean_ctor_get(x_35, 1);
lean_inc(x_37);
lean_dec(x_35);
x_38 = l_Lean_Delaborator_annotateCurPos(x_36, x_2, x_3, x_4, x_5, x_6, x_37);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
return x_38;
}
else
{
lean_object* x_39;
x_39 = lean_ctor_get(x_35, 0);
lean_inc(x_39);
if (lean_obj_tag(x_39) == 0)
{
uint8_t x_40;
lean_dec(x_18);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_40 = !lean_is_exclusive(x_35);
if (x_40 == 0)
{
lean_object* x_41;
x_41 = lean_ctor_get(x_35, 0);
lean_dec(x_41);
return x_35;
}
else
{
lean_object* x_42; lean_object* x_43;
x_42 = lean_ctor_get(x_35, 1);
lean_inc(x_42);
lean_dec(x_35);
x_43 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_43, 0, x_39);
lean_ctor_set(x_43, 1, x_42);
return x_43;
}
}
else
{
uint8_t x_44;
x_44 = !lean_is_exclusive(x_35);
if (x_44 == 0)
{
lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48; uint8_t x_49;
x_45 = lean_ctor_get(x_35, 1);
x_46 = lean_ctor_get(x_35, 0);
lean_dec(x_46);
x_47 = lean_ctor_get(x_39, 0);
lean_inc(x_47);
x_48 = l_Lean_Delaborator_delabFailureId;
x_49 = lean_nat_dec_eq(x_48, x_47);
lean_dec(x_47);
if (x_49 == 0)
{
lean_dec(x_18);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_35;
}
else
{
lean_free_object(x_35);
lean_dec(x_39);
x_1 = x_18;
x_7 = x_45;
goto _start;
}
}
else
{
lean_object* x_51; lean_object* x_52; lean_object* x_53; uint8_t x_54;
x_51 = lean_ctor_get(x_35, 1);
lean_inc(x_51);
lean_dec(x_35);
x_52 = lean_ctor_get(x_39, 0);
lean_inc(x_52);
x_53 = l_Lean_Delaborator_delabFailureId;
x_54 = lean_nat_dec_eq(x_53, x_52);
lean_dec(x_52);
if (x_54 == 0)
{
lean_object* x_55;
lean_dec(x_18);
lean_dec(x_6);
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_55 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_55, 0, x_39);
lean_ctor_set(x_55, 1, x_51);
return x_55;
}
else
{
lean_dec(x_39);
x_1 = x_18;
x_7 = x_51;
goto _start;
}
}
}
}
}
@ -10971,7 +11010,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabFVar___closed__1;
x_3 = lean_unsigned_to_nat(253u);
x_3 = lean_unsigned_to_nat(252u);
x_4 = lean_unsigned_to_nat(31u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -11152,7 +11191,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabBVar___closed__1;
x_3 = lean_unsigned_to_nat(264u);
x_3 = lean_unsigned_to_nat(263u);
x_4 = lean_unsigned_to_nat(34u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -11295,7 +11334,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabMVar___closed__1;
x_3 = lean_unsigned_to_nat(269u);
x_3 = lean_unsigned_to_nat(268u);
x_4 = lean_unsigned_to_nat(32u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -11577,7 +11616,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabSort___closed__1;
x_3 = lean_unsigned_to_nat(275u);
x_3 = lean_unsigned_to_nat(274u);
x_4 = lean_unsigned_to_nat(32u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -12941,7 +12980,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabConst___closed__1;
x_3 = lean_unsigned_to_nat(307u);
x_3 = lean_unsigned_to_nat(306u);
x_4 = lean_unsigned_to_nat(36u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -18103,7 +18142,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabMData___closed__1;
x_3 = lean_unsigned_to_nat(381u);
x_3 = lean_unsigned_to_nat(380u);
x_4 = lean_unsigned_to_nat(35u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -19682,7 +19721,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabLam___lambda__3___closed__2;
x_3 = lean_unsigned_to_nat(474u);
x_3 = lean_unsigned_to_nat(473u);
x_4 = lean_unsigned_to_nat(44u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -20856,7 +20895,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabForall___lambda__1___closed__3;
x_3 = lean_unsigned_to_nat(497u);
x_3 = lean_unsigned_to_nat(496u);
x_4 = lean_unsigned_to_nat(33u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -21774,7 +21813,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabLetE___closed__1;
x_3 = lean_unsigned_to_nat(501u);
x_3 = lean_unsigned_to_nat(500u);
x_4 = lean_unsigned_to_nat(38u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -22180,7 +22219,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabLit___closed__1;
x_3 = lean_unsigned_to_nat(512u);
x_3 = lean_unsigned_to_nat(511u);
x_4 = lean_unsigned_to_nat(31u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -22575,7 +22614,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_Delaborator_delabProj___closed__1;
x_3 = lean_unsigned_to_nat(530u);
x_3 = lean_unsigned_to_nat(529u);
x_4 = lean_unsigned_to_nat(38u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);
@ -30535,7 +30574,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_1 = l_Lean_Delaborator_withAppFn___rarg___closed__2;
x_2 = l_Lean_delab___closed__1;
x_3 = lean_unsigned_to_nat(691u);
x_3 = lean_unsigned_to_nat(690u);
x_4 = lean_unsigned_to_nat(14u);
x_5 = l___private_Init_LeanInit_0__Lean_eraseMacroScopesAux___closed__3;
x_6 = l___private_Init_Util_0__mkPanicMessageWithDecl(x_1, x_2, x_3, x_4, x_5);

6
stage0/stdlib/Lean/Elab/Command.c generated
View file

@ -757,7 +757,6 @@ lean_object* l_Lean_Elab_Command_elabEnd___lambda__1___closed__1;
lean_object* l_Lean_Elab_applyVisibility___at_Lean_Elab_Command_expandDeclId___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_addClass___closed__1;
lean_object* l_Lean_Elab_Command_liftTermElabM_match__2(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__3;
lean_object* l_Lean_Elab_Command_mkCommandElabAttributeUnsafe___closed__6;
lean_object* l_Lean_Elab_Command_elabVariable___lambda__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Command_0__Lean_Elab_Command_mkTermContext(lean_object*, lean_object*, lean_object*);
@ -769,6 +768,7 @@ lean_object* l_Lean_Elab_Command_elabOpenSimple___boxed(lean_object*, lean_objec
lean_object* l_Lean_setEnv___at_Lean_Elab_Command_elabInitQuot___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_addOpenDecl___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_mkAppStx___closed__2;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__3;
lean_object* l_Lean_Elab_Command_elabOpenRenaming___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabOpenOnly___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_Elab_Term_throwErrorIfErrors___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -4662,7 +4662,7 @@ x_3 = l_Lean_Elab_Command_mkCommandElabAttributeUnsafe___closed__5;
x_4 = l_Lean_Elab_Command_mkCommandElabAttributeUnsafe___closed__7;
x_5 = l_Lean_Elab_elabModifiers___rarg___lambda__3___closed__2;
x_6 = l_Lean_Elab_Command_mkCommandElabAttributeUnsafe___closed__9;
x_7 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__3;
x_7 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__3;
x_8 = l_Lean_Elab_mkElabAttribute___rarg(x_2, x_3, x_4, x_5, x_6, x_7, x_1);
return x_8;
}
@ -5628,7 +5628,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Elab_initFn____x40_Lean_Elab_Util___hyg_834____closed__1;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__3;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__3;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}

171
stage0/stdlib/Lean/Elab/Match.c generated
View file

@ -95,6 +95,7 @@ lean_object* l_Lean_Elab_Term_finalizePatternDecls_match__1___rarg(lean_object*,
extern lean_object* l_Lean_Init_LeanInit___instance__9;
extern lean_object* l_Lean_Elab_throwUnsupportedSyntax___rarg___closed__1;
extern lean_object* l_Lean_myMacro____x40_Lean_Data_FormatMacro___hyg_40____closed__4;
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22;
lean_object* l_Lean_Elab_Term_elabMatch_match__17(lean_object*);
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_elabDiscrsWitMatchType___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Lean_Elab_App_0__Lean_Elab_Term_elabAppFn___closed__11;
@ -367,6 +368,7 @@ lean_object* l_Lean_Elab_Term_ToDepElimPattern_main(lean_object*, lean_object*,
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_elabPatterns(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_expandNonAtomicDiscrs_x3f_loop_match__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Expr_fvarId_x21(lean_object*);
extern lean_object* l___private_Init_LeanInit_0__Lean_quoteName___closed__3;
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_quotedNameToPattern(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_mkUserNameFor_match__1(lean_object*);
lean_object* l_Init_Control_Monad___instance__2___rarg(lean_object*, lean_object*);
@ -592,7 +594,6 @@ uint8_t l_Lean_Expr_isMVar(lean_object*);
lean_object* l_Lean_throwError___at_Lean_Elab_Term_ToDepElimPattern_main___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_ToDepElimPattern_mkLocalDeclFor_match__1(lean_object*);
lean_object* l_Lean_Elab_Term_ToDepElimPattern_main___lambda__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_1598____lambda__1___closed__1;
lean_object* l_Lean_throwError___at___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_CtorApp_finalize___spec__1(lean_object*);
lean_object* l___private_Lean_Util_Trace_0__Lean_checkTraceOptionM___at_Lean_Elab_Term_CollectPatternVars_main___spec__2(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Match_0__Lean_Elab_Term_expandNonAtomicDiscrs_x3f_loop___lambda__1___boxed(lean_object**);
@ -8745,11 +8746,9 @@ static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectP
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Init_LeanInit_0__Lean_quoteName___closed__4;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
x_1 = l_Lean_Lean_ToExpr___instance__7___closed__1;
x_2 = l___private_Init_LeanInit_0__Lean_quoteName___closed__3;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
@ -8758,8 +8757,8 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__4;
x_3 = lean_alloc_ctor(1, 2, 0);
x_2 = l___private_Init_LeanInit_0__Lean_quoteName___closed__4;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
@ -8768,27 +8767,39 @@ return x_3;
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__6() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("Name.str");
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__5;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__6;
x_2 = lean_string_utf8_byte_size(x_1);
return x_2;
lean_object* x_1;
x_1 = lean_mk_string("Name.str");
return x_1;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__7;
x_2 = lean_string_utf8_byte_size(x_1);
return x_2;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__9() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__6;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__7;
x_2 = lean_unsigned_to_nat(0u);
x_3 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__7;
x_3 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__8;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
@ -8796,7 +8807,7 @@ lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__9() {
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__10() {
_start:
{
lean_object* x_1;
@ -8804,22 +8815,12 @@ x_1 = lean_mk_string("str");
return x_1;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__10() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Lean_ToExpr___instance__7___closed__1;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__9;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__11() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_LeanInit_0__Lean_quoteName___closed__2;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__9;
x_1 = l_Lean_Lean_ToExpr___instance__7___closed__1;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__10;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
@ -8828,11 +8829,9 @@ static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectP
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__11;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
x_1 = l___private_Init_LeanInit_0__Lean_quoteName___closed__2;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__10;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
@ -8842,7 +8841,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__12;
x_3 = lean_alloc_ctor(1, 2, 0);
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
@ -8851,27 +8850,39 @@ return x_3;
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__14() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("Name.num");
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__13;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__15() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__14;
x_2 = lean_string_utf8_byte_size(x_1);
return x_2;
lean_object* x_1;
x_1 = lean_mk_string("Name.num");
return x_1;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__16() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__15;
x_2 = lean_string_utf8_byte_size(x_1);
return x_2;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__17() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__14;
x_1 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__15;
x_2 = lean_unsigned_to_nat(0u);
x_3 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__15;
x_3 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__16;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
@ -8879,7 +8890,7 @@ lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__17() {
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__18() {
_start:
{
lean_object* x_1;
@ -8887,22 +8898,12 @@ x_1 = lean_mk_string("num");
return x_1;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__18() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Lean_ToExpr___instance__7___closed__1;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__17;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__19() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_LeanInit_0__Lean_quoteName___closed__2;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__17;
x_1 = l_Lean_Lean_ToExpr___instance__7___closed__1;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__18;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
@ -8911,11 +8912,9 @@ static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectP
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__19;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
x_1 = l___private_Init_LeanInit_0__Lean_quoteName___closed__2;
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__18;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
@ -8925,6 +8924,18 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__20;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
static lean_object* _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__21;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
@ -8950,11 +8961,11 @@ if (x_13 == 0)
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20;
x_14 = lean_ctor_get(x_12, 0);
x_15 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_1598____lambda__1___closed__1;
x_15 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__4;
x_16 = l_Lean_addMacroScope(x_14, x_15, x_10);
x_17 = l_Lean_Init_LeanInit___instance__8___closed__1;
x_18 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__3;
x_19 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__5;
x_19 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__6;
x_20 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_20, 0, x_17);
lean_ctor_set(x_20, 1, x_18);
@ -8971,11 +8982,11 @@ x_22 = lean_ctor_get(x_12, 1);
lean_inc(x_22);
lean_inc(x_21);
lean_dec(x_12);
x_23 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_1598____lambda__1___closed__1;
x_23 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__4;
x_24 = l_Lean_addMacroScope(x_21, x_23, x_10);
x_25 = l_Lean_Init_LeanInit___instance__8___closed__1;
x_26 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__3;
x_27 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__5;
x_27 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__6;
x_28 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_28, 0, x_25);
lean_ctor_set(x_28, 1, x_26);
@ -9013,11 +9024,11 @@ if (x_39 == 0)
{
lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; lean_object* x_45; lean_object* x_46; lean_object* x_47; 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;
x_40 = lean_ctor_get(x_38, 0);
x_41 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__10;
x_41 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__11;
x_42 = l_Lean_addMacroScope(x_40, x_41, x_36);
x_43 = l_Lean_Init_LeanInit___instance__8___closed__1;
x_44 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__8;
x_45 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__13;
x_44 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__9;
x_45 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__14;
x_46 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_46, 0, x_43);
lean_ctor_set(x_46, 1, x_44);
@ -9051,11 +9062,11 @@ x_60 = lean_ctor_get(x_38, 1);
lean_inc(x_60);
lean_inc(x_59);
lean_dec(x_38);
x_61 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__10;
x_61 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__11;
x_62 = l_Lean_addMacroScope(x_59, x_61, x_36);
x_63 = l_Lean_Init_LeanInit___instance__8___closed__1;
x_64 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__8;
x_65 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__13;
x_64 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__9;
x_65 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__14;
x_66 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_66, 0, x_63);
lean_ctor_set(x_66, 1, x_64);
@ -9110,11 +9121,11 @@ if (x_89 == 0)
{
lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98; lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110;
x_90 = lean_ctor_get(x_88, 0);
x_91 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__18;
x_91 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__19;
x_92 = l_Lean_addMacroScope(x_90, x_91, x_86);
x_93 = l_Lean_Init_LeanInit___instance__8___closed__1;
x_94 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__16;
x_95 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__21;
x_94 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__17;
x_95 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22;
x_96 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_96, 0, x_93);
lean_ctor_set(x_96, 1, x_94);
@ -9149,11 +9160,11 @@ x_112 = lean_ctor_get(x_88, 1);
lean_inc(x_112);
lean_inc(x_111);
lean_dec(x_88);
x_113 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__18;
x_113 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__19;
x_114 = l_Lean_addMacroScope(x_111, x_113, x_86);
x_115 = l_Lean_Init_LeanInit___instance__8___closed__1;
x_116 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__16;
x_117 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__21;
x_116 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__17;
x_117 = l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22;
x_118 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_118, 0, x_115);
lean_ctor_set(x_118, 1, x_116);
@ -29616,6 +29627,8 @@ l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern__
lean_mark_persistent(l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__20);
l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__21 = _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__21();
lean_mark_persistent(l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__21);
l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22 = _init_l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22();
lean_mark_persistent(l___private_Lean_Elab_Match_0__Lean_Elab_Term_CollectPatternVars_nameToPattern___closed__22);
l_Lean_Elab_Term_CollectPatternVars_collect___lambda__2___closed__1 = _init_l_Lean_Elab_Term_CollectPatternVars_collect___lambda__2___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_CollectPatternVars_collect___lambda__2___closed__1);
l_Lean_Elab_Term_CollectPatternVars_collect___closed__1 = _init_l_Lean_Elab_Term_CollectPatternVars_collect___closed__1();

16
stage0/stdlib/Lean/Elab/Syntax.c generated
View file

@ -92,6 +92,7 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__14;
lean_object* lean_array_uget(lean_object*, size_t);
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__28;
lean_object* lean_io_error_to_string(lean_object*);
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3083____closed__2;
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__128;
lean_object* l___regBuiltin_Lean_Elab_Command_elabDeclareSyntaxCat___closed__1;
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__116;
@ -99,6 +100,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__12;
lean_object* l_Array_filterSepElemsM___at_Lean_Elab_Command_elabNoKindMacroRulesAux___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_append___rarg(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_expandMixfix___closed__25;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3083____closed__1;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__30;
extern lean_object* l_Lean_Parser_mkParserOfConstantUnsafe_match__1___rarg___closed__3;
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__90;
@ -157,7 +159,6 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__172;
extern lean_object* l_myMacro____x40_Init_Tactics___hyg_502____closed__4;
lean_object* l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_declareSyntaxCatQuotParser___closed__18;
lean_object* l_Lean_Elab_Command_expandElab___closed__45;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3063____closed__1;
lean_object* lean_st_ref_get(lean_object*, lean_object*);
lean_object* l_Lean_resolveGlobalConst___at_Lean_Elab_Term_toParserDescrAux___spec__3___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__165;
@ -182,7 +183,6 @@ lean_object* l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_declareSyntaxCatQ
extern lean_object* l_Lean_myMacro____x40_Lean_Util_Trace___hyg_955____closed__14;
lean_object* l___private_Lean_Elab_Syntax_0__Lean_Elab_Term_mkParserSeq___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_declareSyntaxCatQuotParser___closed__29;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3063____closed__2;
lean_object* l_Lean_Elab_Command_elabSyntax___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_elabKindPrio___closed__5;
lean_object* l_Array_toSubarray___rarg(lean_object*, lean_object*, lean_object*);
@ -287,6 +287,7 @@ extern lean_object* l_Lean_Elab_Term_expandFunBinders_loop___closed__11;
lean_object* l___regBuiltin_Lean_Elab_Command_elabElab___closed__2;
extern lean_object* l___private_Lean_Elab_Quotation_0__Lean_Elab_Term_Quotation_quoteSyntax___closed__25;
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__105;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
lean_object* l_Lean_Elab_Term_expandOptPrecedence___closed__1;
lean_object* l___regBuiltin_Lean_Elab_Command_elabSyntaxAbbrev___closed__1;
lean_object* l___regBuiltin_Lean_Elab_Command_expandNotation(lean_object*);
@ -300,7 +301,6 @@ lean_object* l_Lean_Elab_Command_elabMacro___lambda__1(lean_object*, lean_object
lean_object* l_Lean_Elab_Command_expandMacro(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_tryPostponeIfNoneOrMVar(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_checkLeftRec___closed__4;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__71;
lean_object* l_Lean_Elab_Term_toParserDescrAux___closed__63;
lean_object* l_Lean_Elab_Term_toParserDescrAux___lambda__1___closed__3;
@ -10807,7 +10807,7 @@ static lean_object* _init_l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_decl
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3063____closed__1;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3083____closed__1;
x_2 = lean_string_utf8_byte_size(x_1);
return x_2;
}
@ -10816,7 +10816,7 @@ static lean_object* _init_l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_decl
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3063____closed__1;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3083____closed__1;
x_2 = lean_unsigned_to_nat(0u);
x_3 = l___private_Lean_Elab_Syntax_0__Lean_Elab_Command_declareSyntaxCatQuotParser___closed__13;
x_4 = lean_alloc_ctor(0, 3, 0);
@ -11295,7 +11295,7 @@ lean_inc(x_16);
x_17 = lean_ctor_get(x_15, 1);
lean_inc(x_17);
lean_dec(x_15);
x_18 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3063____closed__2;
x_18 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3083____closed__2;
lean_inc(x_13);
lean_inc(x_16);
x_19 = l_Lean_addMacroScope(x_16, x_18, x_13);
@ -21624,7 +21624,7 @@ x_60 = lean_name_eq(x_22, x_59);
if (x_60 == 0)
{
lean_object* x_61; uint8_t x_62;
x_61 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_61 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_62 = lean_name_eq(x_22, x_61);
if (x_62 == 0)
{
@ -22775,7 +22775,7 @@ x_725 = lean_name_eq(x_22, x_724);
if (x_725 == 0)
{
lean_object* x_726; uint8_t x_727;
x_726 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_726 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_727 = lean_name_eq(x_22, x_726);
if (x_727 == 0)
{

58
stage0/stdlib/Lean/Parser/Command.c generated
View file

@ -841,6 +841,7 @@ lean_object* l_Lean_Parser_Command_variables___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Command_universes_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Command_structInstBinder___elambda__1___closed__8;
lean_object* l_Lean_Parser_Command_initialize___elambda__1___closed__15;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
lean_object* l_Lean_Parser_Command_export___elambda__1___closed__10;
lean_object* l_Lean_Parser_Command_synth;
lean_object* l_Lean_Parser_Command_set__option___elambda__1___closed__17;
@ -877,7 +878,6 @@ lean_object* l_Lean_Parser_Command_inferMod_formatter(lean_object*, lean_object*
lean_object* l_Lean_Parser_Command_builtin__initialize_formatter___closed__3;
lean_object* l_Lean_Parser_Command_inferMod_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Command_declaration___elambda__1(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
lean_object* l___regBuiltinParser_Lean_Parser_Command_check(lean_object*);
lean_object* l_Lean_Parser_Command_attribute___closed__14;
lean_object* l_Lean_Parser_Command_check__failure_formatter___closed__4;
@ -2704,7 +2704,7 @@ static lean_object* _init_l_Lean_Parser_Term_quot___elambda__1___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_2 = lean_unsigned_to_nat(0u);
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_categoryParser___elambda__1), 4, 2);
lean_closure_set(x_3, 0, x_1);
@ -2830,7 +2830,7 @@ static lean_object* _init_l_Lean_Parser_Term_quot___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_2 = lean_unsigned_to_nat(0u);
x_3 = l_Lean_Parser_categoryParser(x_1, x_2);
return x_3;
@ -11039,7 +11039,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_declaration(lean_object* x
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_declaration___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_declaration;
@ -17501,7 +17501,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_section(lean_object* x_1)
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_section___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_section;
@ -17890,7 +17890,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_namespace(lean_object* x_1
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_namespace___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_namespace;
@ -18257,7 +18257,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_end(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_end___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_end;
@ -18620,7 +18620,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_variable(lean_object* x_1)
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_variable___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_variable;
@ -18993,7 +18993,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_variables(lean_object* x_1
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_variables___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_variables;
@ -19382,7 +19382,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_universe(lean_object* x_1)
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_universe___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_universe;
@ -19751,7 +19751,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_universes(lean_object* x_1
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_universes___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_universes;
@ -20120,7 +20120,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_check(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_check___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_check;
@ -20489,7 +20489,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_check__failure(lean_object
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_check__failure___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_check__failure;
@ -20858,7 +20858,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_eval(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_eval___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_eval;
@ -21227,7 +21227,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_synth(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_synth___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_synth;
@ -21572,7 +21572,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_exit(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_exit___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_exit;
@ -21941,7 +21941,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_print(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_print___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_print;
@ -22357,7 +22357,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_printAxioms(lean_object* x
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_printAxioms___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_printAxioms;
@ -22753,7 +22753,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_resolve__name(lean_object*
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_resolve__name___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_resolve__name;
@ -23090,7 +23090,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_init__quot(lean_object* x_
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_init__quot___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_init__quot;
@ -23559,7 +23559,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_set__option(lean_object* x
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_set__option___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_set__option;
@ -24225,7 +24225,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_attribute(lean_object* x_1
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_attribute___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_attribute;
@ -24818,7 +24818,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_export(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_export;
@ -26386,7 +26386,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_open(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_open___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_open;
@ -27731,7 +27731,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_mutual(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_mutual___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_mutual;
@ -28309,7 +28309,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_initialize(lean_object* x_
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_initialize___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_initialize;
@ -28788,7 +28788,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_builtin__initialize(lean_o
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_builtin__initialize___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_builtin__initialize;
@ -29019,7 +29019,7 @@ lean_inc(x_11);
if (lean_obj_tag(x_11) == 0)
{
lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_12 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_12 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_13 = lean_unsigned_to_nat(0u);
x_14 = l_Lean_Parser_categoryParser___elambda__1(x_12, x_13, x_1, x_10);
x_15 = l_Lean_Parser_Command_in___elambda__1___closed__2;
@ -29110,7 +29110,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_in(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_in___elambda__1___closed__2;
x_4 = 0;
x_5 = l_Lean_Parser_Command_in;

12
stage0/stdlib/Lean/Parser/Do.c generated
View file

@ -36,6 +36,7 @@ lean_object* l_Lean_Parser_doElemParser(lean_object*);
lean_object* l_Lean_Parser_Term_doUnless_formatter___closed__2;
lean_object* l_Lean_Parser_Term_doSeqBracketed___closed__1;
lean_object* l_Lean_Parser_Term_doLet___closed__6;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
extern lean_object* l_Lean_Parser_Term_letDecl_formatter___closed__6;
lean_object* l_Lean_Parser_Term_doElem_quot_formatter___closed__1;
lean_object* l_Lean_Parser_Term_doMatch_parenthesizer___closed__5;
@ -119,7 +120,6 @@ lean_object* l_Lean_Parser_Term_doFor___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_doExpr___closed__4;
lean_object* l_Lean_Parser_Term_doTry___closed__9;
lean_object* l_Lean_Parser_Term_doContinue___elambda__1___closed__1;
extern lean_object* l_Lean_Parser_many1Indent_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_doMatchAlt_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_doContinue_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_doReturn_formatter___closed__5;
@ -653,7 +653,6 @@ lean_object* l_Lean_Parser_Term_doCatch___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_doSeqIndent___closed__8;
lean_object* l___regBuiltin_Lean_Parser_Term_doHave_formatter___closed__1;
lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__2;
extern lean_object* l_Lean_Parser_many1Indent_formatter___closed__1;
lean_object* l_Lean_Parser_Term_doUnless___closed__4;
lean_object* l_Lean_Parser_Term_doIf___closed__3;
lean_object* l_Lean_Parser_Term_doAssert___elambda__1___closed__3;
@ -1126,6 +1125,7 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_withForbidden_parenthesizer___ra
extern lean_object* l_Lean_Parser_Term_let_formatter___closed__3;
extern lean_object* l_Lean_Parser_Term_matchAlt_parenthesizer___closed__2;
lean_object* l___regBuiltin_Lean_Parser_Term_doMatch_parenthesizer(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
lean_object* l_Lean_Parser_Term_doReassign___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_doIf_parenthesizer___closed__3;
lean_object* l___regBuiltin_Lean_Parser_Term_termReturn_parenthesizer(lean_object*);
@ -8306,7 +8306,7 @@ static lean_object* _init_l_Lean_Parser_Term_doIf_formatter___closed__9() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_formatter___closed__1;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Term_doIf_formatter___closed__8;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -8340,7 +8340,7 @@ static lean_object* _init_l_Lean_Parser_Term_doIf_formatter___closed__12() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_formatter___closed__1;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Term_doIf_formatter___closed__11;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -8838,7 +8838,7 @@ static lean_object* _init_l_Lean_Parser_Term_doIf_parenthesizer___closed__9() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_parenthesizer___closed__1;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Term_doIf_parenthesizer___closed__8;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -8872,7 +8872,7 @@ static lean_object* _init_l_Lean_Parser_Term_doIf_parenthesizer___closed__12() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_parenthesizer___closed__1;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Term_doIf_parenthesizer___closed__11;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);

1450
stage0/stdlib/Lean/Parser/Extension.c generated
View file

File diff suppressed because it is too large Load diff

316
stage0/stdlib/Lean/Parser/Extra.c generated
View file

@ -13,12 +13,13 @@
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__2;
lean_object* l_Lean_PrettyPrinter_Formatter_indent___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_ppIndent_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_many1Indent_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_ppSpace_parenthesizer(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__17___closed__3;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*);
lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*);
@ -33,10 +34,9 @@ extern lean_object* l_Lean_nullKind;
lean_object* l_Lean_Parser_notFollowedByFn___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_identKind___closed__1;
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__10;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
lean_object* l_Lean_Parser_ppSpace_parenthesizer___rarg(lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_many_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer___boxed(lean_object*);
lean_object* l_Lean_Parser_many1Indent_parenthesizer___closed__1;
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__3;
lean_object* l_Lean_Parser_ppGroup___boxed(lean_object*);
extern lean_object* l_Lean_Parser_numLit___elambda__1___closed__1;
@ -59,20 +59,17 @@ lean_object* l_Lean_PrettyPrinter_Formatter_pushLine(lean_object*, lean_object*,
lean_object* l_Lean_Parser_strLit_formatter___closed__1;
lean_object* l___regBuiltin_Lean_Parser_ppSpace_parenthesizer___closed__1;
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__8;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___boxed(lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Lean_Parser_ppIndent_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_charLitKind___closed__1;
extern lean_object* l_Lean_Parser_Lean_Parser_Basic___instance__8___closed__1;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__9;
lean_object* l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_strLit_formatter___closed__2;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_toggleInsideQuot_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_charLit___elambda__1___closed__1;
lean_object* l_Lean_PrettyPrinter_Formatter_try_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__1;
lean_object* l_Lean_PrettyPrinter_Formatter_ppSpace_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___boxed(lean_object*);
lean_object* l_Lean_Parser_antiquotNestedExpr_formatter___closed__5;
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppHardSpace_formatter(lean_object*);
lean_object* l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__5;
@ -94,14 +91,13 @@ lean_object* l_Lean_Parser_antiquotNestedExpr_formatter___closed__3;
extern lean_object* l_Lean_Parser_mkAntiquot___closed__3;
lean_object* l_Lean_PrettyPrinter_Formatter_optional_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_nameLit_formatter(lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_setExpected_parenthesizer___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_termParser_formatter___boxed(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__16___closed__3;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
lean_object* l___regBuiltin_Lean_Parser_charLit_formatter___closed__1;
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__12;
lean_object* l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__2;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
lean_object* l_Lean_Parser_ppSpace_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppSpace_formatter___closed__3;
extern lean_object* l___private_Lean_Data_Format_0__Lean_Format_pushNewline___closed__1;
@ -109,9 +105,7 @@ lean_object* l_Lean_Parser_ppHardSpace_parenthesizer___boxed(lean_object*, lean_
lean_object* l___regBuiltin_Lean_Parser_charLit_formatter(lean_object*);
extern lean_object* l_Init_Data_Repr___instance__7___rarg___closed__2;
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__11;
lean_object* l_Lean_Parser_charLit_formatter___closed__2;
lean_object* l_Lean_PrettyPrinter_Formatter_setExpected_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_strLit_parenthesizer___closed__2;
lean_object* l_Lean_Parser_nodeInfo(lean_object*, lean_object*);
lean_object* l_Lean_Parser_symbolFn___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_strLit_parenthesizer___closed__1;
@ -139,17 +133,16 @@ extern lean_object* l_Lean_strLitKind___closed__1;
lean_object* l___regBuiltin_Lean_Parser_nameLit_parenthesizer___closed__1;
lean_object* l_Lean_PrettyPrinter_Formatter_toggleInsideQuot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_node_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_many1Indent_formatter___closed__1;
lean_object* l___regBuiltin_Lean_Parser_strLit_parenthesizer(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed__3;
lean_object* l___regBuiltin_Lean_Parser_ident_formatter___closed__1;
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__6;
extern lean_object* l___private_Init_Util_0__mkPanicMessage___closed__2;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___boxed(lean_object*);
lean_object* l_Lean_Parser_manyIndent(lean_object*);
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppSpace_formatter(lean_object*);
lean_object* l_Lean_Parser_antiquotNestedExpr_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l___kind_tactic____x40_Init_Tactics___hyg_461____closed__9;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__15___closed__3;
lean_object* l_Lean_Parser_ppSpace;
lean_object* l_Lean_Parser_ppHardSpace;
lean_object* l_Lean_Parser_termParser_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -169,7 +162,6 @@ extern lean_object* l_Lean_PrettyPrinter_formatterAttribute;
lean_object* l_Lean_Parser_ppLine_parenthesizer___rarg(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_numLit_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__10;
lean_object* l_Lean_Parser_antiquotExpr_parenthesizer___closed__1;
lean_object* l_Lean_FileMap_toPosition(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_symbol_parenthesizer___boxed(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppHardSpace_formatter___closed__1;
@ -177,7 +169,6 @@ lean_object* l_Lean_PrettyPrinter_Parenthesizer_pushNone_parenthesizer___boxed(l
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppLine_formatter(lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
lean_object* l_Lean_Parser_numLit_parenthesizer___closed__2;
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppHardSpace_formatter___closed__2;
lean_object* l_Lean_Parser_ppIndent___boxed(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_strLit_formatter___closed__1;
@ -195,17 +186,18 @@ lean_object* l_Lean_Parser_antiquotNestedExpr_formatter___closed__6;
lean_object* l_Lean_PrettyPrinter_Formatter_ppSpace_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_formatter(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_nameLit___elambda__1___closed__1;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__14___closed__3;
lean_object* l_Lean_Parser_notSymbol(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__14___closed__3;
lean_object* l_Lean_Parser_antiquotNestedExpr_formatter___closed__2;
lean_object* l_Lean_Parser_termParser_formatter(lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_ppLine_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__15___closed__3;
extern lean_object* l_Lean_Parser_ident___elambda__1___closed__1;
lean_object* l_Lean_Parser_checkColGeFn(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__1;
lean_object* l_Lean_Parser_commandParser_formatter___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_nameLit_parenthesizer___closed__1;
lean_object* l_Lean_Parser_charLit_formatter___closed__1;
lean_object* l_Lean_Parser_ppDedent___boxed(lean_object*);
@ -213,7 +205,6 @@ lean_object* l_Lean_PrettyPrinter_Formatter_push(lean_object*, lean_object*, lea
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppLine_formatter___closed__3;
lean_object* l___regBuiltin_Lean_Parser_numLit_formatter___closed__1;
lean_object* l_Lean_PrettyPrinter_Formatter_ppHardSpace_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___boxed(lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_nameLit_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_ppGroup_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -221,20 +212,21 @@ lean_object* l_Lean_Parser_commandParser_parenthesizer(lean_object*, lean_object
lean_object* l_Lean_Name_append(lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__7;
lean_object* l___regBuiltin_Lean_Parser_ppLine_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_nameLit_parenthesizer___closed__2;
lean_object* l___regBuiltin_Lean_Parser_numLit_formatter___closed__2;
lean_object* l_Lean_PrettyPrinter_Formatter_ppDedent_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_charLit_parenthesizer___closed__1;
lean_object* l_Lean_Parser_charLit_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_many1Indent___lambda__1___closed__1;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__17___closed__3;
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
lean_object* l_Lean_Parser_charLit_parenthesizer___closed__2;
lean_object* l_Lean_Parser_notSymbol_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Format_getIndent(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
lean_object* l_Lean_Parser_many1Indent(lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkNoImmediateColon_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_pushNone_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_charLit_parenthesizer(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__16___closed__3;
lean_object* l___regBuiltin_Lean_Parser_ppLine_parenthesizer___closed__1;
lean_object* l_Lean_Parser_notSymbol_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot___closed__19;
@ -243,11 +235,9 @@ lean_object* l_Lean_Parser_nameLit_formatter___closed__1;
lean_object* l_Lean_Parser_antiquotExpr_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_ident_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_checkNoImmediateColon_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_numLit_formatter___closed__2;
lean_object* l_Lean_Parser_numLit_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_antiquotNestedExpr_formatter___closed__2;
lean_object* l___regBuiltin_Lean_PrettyPrinter_Formatter_ppHardSpace_formatter___closed__3;
lean_object* l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_String_trim(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_antiquotExpr_parenthesizer(lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -255,7 +245,6 @@ lean_object* l_Lean_Parser_nodeFn(lean_object*, lean_object*, lean_object*, lean
lean_object* l_Lean_Parser_nameLit_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_int_sub(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_withPosition_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_nameLit_formatter___closed__2;
lean_object* l_Lean_Parser_ppGroup(lean_object*);
lean_object* l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__4;
lean_object* l_Lean_Parser_antiquotNestedExpr_formatter___closed__4;
@ -263,18 +252,15 @@ lean_object* l_Lean_Parser_ident_parenthesizer___closed__1;
lean_object* l___regBuiltin_Lean_Parser_antiquotNestedExpr_formatter(lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_symbol_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___boxed(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_ident_formatter(lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_ppLine_formatter___closed__1;
lean_object* l___regBuiltin_Lean_Parser_strLit_formatter___closed__2;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_ppLine_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__12;
extern lean_object* l_Lean_Parser_mkAntiquot___closed__8;
lean_object* l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_notSymbol_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_antiquotExpr_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__19___closed__3;
lean_object* l___regBuiltin_Lean_Parser_charLit_parenthesizer___closed__1;
lean_object* l_Lean_Parser_numLit_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
@ -286,6 +272,7 @@ lean_object* l_Lean_PrettyPrinter_Formatter_group(lean_object*, lean_object*, le
lean_object* l_Lean_Parser_nameLit_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_foldlMUnsafe_fold___at_Lean_ppGoal___spec__7___closed__1;
lean_object* lean_nat_to_int(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__19___closed__3;
lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__7;
lean_object* l_Lean_Parser_notSymbol_parenthesizer___rarg(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_numLit_parenthesizer___closed__1;
@ -297,7 +284,6 @@ extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__2;
lean_object* l_Lean_Parser_ppDedent_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_notSymbol_formatter___rarg(lean_object*);
lean_object* l_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_antiquotExpr_formatter___closed__1;
lean_object* l_Lean_Parser_termParser_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_nameLitKind___closed__1;
lean_object* l_Lean_Parser_manyIndent_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -374,7 +360,7 @@ lean_object* l_Lean_Parser_commandParser_formatter___rarg(lean_object* x_1, lean
_start:
{
lean_object* x_6; lean_object* x_7;
x_6 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_6 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_7 = l_Lean_PrettyPrinter_Formatter_categoryParser_formatter(x_6, x_1, x_2, x_3, x_4, x_5);
return x_7;
}
@ -400,7 +386,7 @@ lean_object* l_Lean_Parser_commandParser_parenthesizer(lean_object* x_1, lean_ob
_start:
{
lean_object* x_7; lean_object* x_8;
x_7 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_7 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_categoryParser_parenthesizer(x_7, x_1, x_2, x_3, x_4, x_5, x_6);
return x_8;
}
@ -599,19 +585,11 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_antiquotExpr_formatter___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_identNoAntiquot_formatter___boxed), 5, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_antiquotExpr_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_antiquotExpr_formatter___closed__1;
x_6 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__19___closed__3;
x_7 = l___regBuiltin_Lean_Parser_antiquotNestedExpr_formatter___closed__2;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
@ -654,19 +632,11 @@ x_5 = l_Lean_KeyedDeclsAttribute_addBuiltin___rarg(x_2, x_3, x_4, x_1);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_antiquotExpr_parenthesizer___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_identNoAntiquot_parenthesizer___boxed), 1, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_antiquotExpr_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_antiquotExpr_parenthesizer___closed__1;
x_6 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__19___closed__3;
x_7 = l___regBuiltin_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__1;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
@ -714,16 +684,8 @@ return x_2;
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkNoWsBefore_formatter___boxed), 1, 0);
return x_1;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -731,17 +693,17 @@ lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__5() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__4;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_many_formatter), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__6() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
@ -751,29 +713,29 @@ lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__7() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__6;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__5;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__8() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__7;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__6;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_optional_formatter), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__9() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2;
@ -783,7 +745,7 @@ lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__10() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__9() {
_start:
{
lean_object* x_1;
@ -791,7 +753,7 @@ x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkNoImmediate
return x_1;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__11() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__10() {
_start:
{
lean_object* x_1;
@ -799,12 +761,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_pushNone_formatt
return x_1;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__12() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_formatter___closed__11() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__10;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__11;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__10;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -842,11 +804,11 @@ if (x_3 == 0)
lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_12 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___boxed), 6, 1);
lean_closure_set(x_12, 0, x_1);
x_13 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_13 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_14 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_14, 0, x_13);
lean_closure_set(x_14, 1, x_12);
x_15 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_15 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_16 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_16, 0, x_15);
lean_closure_set(x_16, 1, x_14);
@ -854,7 +816,7 @@ x_17 = l_Lean_Parser_mkAntiquot___closed__3;
x_18 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_node_formatter), 7, 2);
lean_closure_set(x_18, 0, x_17);
lean_closure_set(x_18, 1, x_16);
x_19 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_19 = l_Lean_Parser_mkAntiquot_formatter___closed__7;
x_20 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_20, 0, x_18);
lean_closure_set(x_20, 1, x_19);
@ -865,7 +827,7 @@ lean_closure_set(x_22, 1, x_20);
x_23 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_23, 0, x_15);
lean_closure_set(x_23, 1, x_22);
x_24 = l_Lean_Parser_mkAntiquot_formatter___closed__5;
x_24 = l_Lean_Parser_mkAntiquot_formatter___closed__4;
x_25 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_25, 0, x_24);
lean_closure_set(x_25, 1, x_23);
@ -883,11 +845,11 @@ else
lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35; lean_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;
x_30 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_nonReservedSymbol_formatter___boxed), 6, 1);
lean_closure_set(x_30, 0, x_1);
x_31 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_31 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_32 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_32, 0, x_31);
lean_closure_set(x_32, 1, x_30);
x_33 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_33 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_34 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_34, 0, x_33);
lean_closure_set(x_34, 1, x_32);
@ -895,11 +857,11 @@ x_35 = l_Lean_Parser_mkAntiquot___closed__3;
x_36 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_node_formatter), 7, 2);
lean_closure_set(x_36, 0, x_35);
lean_closure_set(x_36, 1, x_34);
x_37 = l_Lean_Parser_mkAntiquot_formatter___closed__12;
x_37 = l_Lean_Parser_mkAntiquot_formatter___closed__11;
x_38 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_orelse_formatter), 7, 2);
lean_closure_set(x_38, 0, x_36);
lean_closure_set(x_38, 1, x_37);
x_39 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_39 = l_Lean_Parser_mkAntiquot_formatter___closed__7;
x_40 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_40, 0, x_38);
lean_closure_set(x_40, 1, x_39);
@ -910,7 +872,7 @@ lean_closure_set(x_42, 1, x_40);
x_43 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_43, 0, x_33);
lean_closure_set(x_43, 1, x_42);
x_44 = l_Lean_Parser_mkAntiquot_formatter___closed__5;
x_44 = l_Lean_Parser_mkAntiquot_formatter___closed__4;
x_45 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_45, 0, x_44);
lean_closure_set(x_45, 1, x_43);
@ -959,16 +921,8 @@ return x_2;
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_checkNoWsBefore_parenthesizer___boxed), 4, 0);
return x_1;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -976,17 +930,17 @@ lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__5() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__4;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_many_parenthesizer), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__6() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2;
@ -996,29 +950,29 @@ lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__7() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__8() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__7;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_optional_parenthesizer), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__9() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2;
@ -1028,7 +982,7 @@ lean_closure_set(x_2, 0, x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__10() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__9() {
_start:
{
lean_object* x_1;
@ -1036,7 +990,7 @@ x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_checkNoImmed
return x_1;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__11() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__10() {
_start:
{
lean_object* x_1;
@ -1044,12 +998,12 @@ x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_pushNone_par
return x_1;
}
}
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__12() {
static lean_object* _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__11() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__10;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__11;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__10;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -1090,11 +1044,11 @@ x_13 = lean_box(x_12);
x_14 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___boxed), 3, 2);
lean_closure_set(x_14, 0, x_1);
lean_closure_set(x_14, 1, x_13);
x_15 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_15 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_16 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_16, 0, x_15);
lean_closure_set(x_16, 1, x_14);
x_17 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_17 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_18 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_18, 0, x_17);
lean_closure_set(x_18, 1, x_16);
@ -1102,7 +1056,7 @@ x_19 = l_Lean_Parser_mkAntiquot___closed__3;
x_20 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer), 7, 2);
lean_closure_set(x_20, 0, x_19);
lean_closure_set(x_20, 1, x_18);
x_21 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_21 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__7;
x_22 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_22, 0, x_20);
lean_closure_set(x_22, 1, x_21);
@ -1113,7 +1067,7 @@ lean_closure_set(x_24, 1, x_22);
x_25 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_25, 0, x_17);
lean_closure_set(x_25, 1, x_24);
x_26 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
x_26 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__4;
x_27 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_27, 0, x_26);
lean_closure_set(x_27, 1, x_25);
@ -1134,11 +1088,11 @@ x_33 = lean_box(x_32);
x_34 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_nonReservedSymbol_parenthesizer___boxed), 3, 2);
lean_closure_set(x_34, 0, x_1);
lean_closure_set(x_34, 1, x_33);
x_35 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_35 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_36 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_36, 0, x_35);
lean_closure_set(x_36, 1, x_34);
x_37 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_37 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_38 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_38, 0, x_37);
lean_closure_set(x_38, 1, x_36);
@ -1146,11 +1100,11 @@ x_39 = l_Lean_Parser_mkAntiquot___closed__3;
x_40 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_node_parenthesizer), 7, 2);
lean_closure_set(x_40, 0, x_39);
lean_closure_set(x_40, 1, x_38);
x_41 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__12;
x_41 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__11;
x_42 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer), 7, 2);
lean_closure_set(x_42, 0, x_40);
lean_closure_set(x_42, 1, x_41);
x_43 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_43 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__7;
x_44 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_44, 0, x_42);
lean_closure_set(x_44, 1, x_43);
@ -1161,7 +1115,7 @@ lean_closure_set(x_46, 1, x_44);
x_47 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_47, 0, x_37);
lean_closure_set(x_47, 1, x_46);
x_48 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
x_48 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__4;
x_49 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_49, 0, x_48);
lean_closure_set(x_49, 1, x_47);
@ -1247,7 +1201,7 @@ _start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_ident_formatter___closed__1;
x_7 = l_Lean_Parser_antiquotExpr_formatter___closed__1;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__19___closed__3;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1301,7 +1255,7 @@ _start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_ident_parenthesizer___closed__1;
x_7 = l_Lean_Parser_antiquotExpr_parenthesizer___closed__1;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__19___closed__3;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1340,20 +1294,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_numLit_formatter___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_numLitNoAntiquot_formatter___boxed), 5, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_numLit_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_numLit_formatter___closed__1;
x_7 = l_Lean_Parser_numLit_formatter___closed__2;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__14___closed__3;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1402,20 +1348,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_numLit_parenthesizer___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_numLitNoAntiquot_parenthesizer___boxed), 1, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_numLit_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_numLit_parenthesizer___closed__1;
x_7 = l_Lean_Parser_numLit_parenthesizer___closed__2;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__14___closed__3;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1454,20 +1392,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_charLit_formatter___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_charLitNoAntiquot_formatter___boxed), 5, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_charLit_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_charLit_formatter___closed__1;
x_7 = l_Lean_Parser_charLit_formatter___closed__2;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__16___closed__3;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1516,20 +1446,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_charLit_parenthesizer___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_charLitNoAntiquot_parenthesizer___boxed), 1, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_charLit_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_charLit_parenthesizer___closed__1;
x_7 = l_Lean_Parser_charLit_parenthesizer___closed__2;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__16___closed__3;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1568,20 +1490,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_strLit_formatter___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_strLitNoAntiquot_formatter___boxed), 5, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_strLit_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_strLit_formatter___closed__1;
x_7 = l_Lean_Parser_strLit_formatter___closed__2;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__15___closed__3;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1630,20 +1544,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_strLit_parenthesizer___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_strLitNoAntiquot_parenthesizer___boxed), 1, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_strLit_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_strLit_parenthesizer___closed__1;
x_7 = l_Lean_Parser_strLit_parenthesizer___closed__2;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__15___closed__3;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1682,20 +1588,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_nameLit_formatter___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_nameLitNoAntiquot_formatter___boxed), 5, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_nameLit_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_nameLit_formatter___closed__1;
x_7 = l_Lean_Parser_nameLit_formatter___closed__2;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___elambda__17___closed__3;
x_8 = l_Lean_PrettyPrinter_Formatter_orelse_formatter(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1744,20 +1642,12 @@ lean_closure_set(x_5, 2, x_4);
return x_5;
}
}
static lean_object* _init_l_Lean_Parser_nameLit_parenthesizer___closed__2() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_nameLitNoAntiquot_parenthesizer___boxed), 1, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_nameLit_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = l_Lean_Parser_nameLit_parenthesizer___closed__1;
x_7 = l_Lean_Parser_nameLit_parenthesizer___closed__2;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___elambda__17___closed__3;
x_8 = l_Lean_PrettyPrinter_Parenthesizer_orelse_parenthesizer(x_6, x_7, x_1, x_2, x_3, x_4, x_5);
return x_8;
}
@ -1819,19 +1709,11 @@ lean_ctor_set(x_7, 1, x_6);
return x_7;
}
}
static lean_object* _init_l_Lean_Parser_many1Indent_formatter___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkColGe_formatter___boxed), 4, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_many1Indent_formatter(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_7 = l_Lean_Parser_many1Indent_formatter___closed__1;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
x_8 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_8, 0, x_7);
lean_closure_set(x_8, 1, x_1);
@ -1839,19 +1721,11 @@ x_9 = l_Lean_PrettyPrinter_Formatter_many_formatter(x_8, x_2, x_3, x_4, x_5, x_6
return x_9;
}
}
static lean_object* _init_l_Lean_Parser_many1Indent_parenthesizer___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_checkColGe_parenthesizer___boxed), 4, 0);
return x_1;
}
}
lean_object* l_Lean_Parser_many1Indent_parenthesizer(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = l_Lean_Parser_many1Indent_parenthesizer___closed__1;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
x_8 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_8, 0, x_7);
lean_closure_set(x_8, 1, x_1);
@ -2211,7 +2085,7 @@ lean_object* l_Lean_Parser_manyIndent_formatter(lean_object* x_1, lean_object* x
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_7 = l_Lean_Parser_many1Indent_formatter___closed__1;
x_7 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
x_8 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_8, 0, x_7);
lean_closure_set(x_8, 1, x_1);
@ -2223,7 +2097,7 @@ lean_object* l_Lean_Parser_manyIndent_parenthesizer(lean_object* x_1, lean_objec
_start:
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = l_Lean_Parser_many1Indent_parenthesizer___closed__1;
x_7 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
x_8 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_8, 0, x_7);
lean_closure_set(x_8, 1, x_1);
@ -2988,8 +2862,6 @@ lean_mark_persistent(l___regBuiltin_Lean_Parser_antiquotNestedExpr_parenthesizer
res = l___regBuiltin_Lean_Parser_antiquotNestedExpr_parenthesizer(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_antiquotExpr_formatter___closed__1 = _init_l_Lean_Parser_antiquotExpr_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_antiquotExpr_formatter___closed__1);
l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed__1);
l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed__2 = _init_l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed__2();
@ -2999,8 +2871,6 @@ lean_mark_persistent(l___regBuiltin_Lean_Parser_antiquotExpr_formatter___closed_
res = l___regBuiltin_Lean_Parser_antiquotExpr_formatter(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_antiquotExpr_parenthesizer___closed__1 = _init_l_Lean_Parser_antiquotExpr_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_antiquotExpr_parenthesizer___closed__1);
l___regBuiltin_Lean_Parser_antiquotExpr_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_antiquotExpr_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_antiquotExpr_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_antiquotExpr_parenthesizer(lean_io_mk_world());
@ -3028,8 +2898,6 @@ l_Lean_Parser_mkAntiquot_formatter___closed__10 = _init_l_Lean_Parser_mkAntiquot
lean_mark_persistent(l_Lean_Parser_mkAntiquot_formatter___closed__10);
l_Lean_Parser_mkAntiquot_formatter___closed__11 = _init_l_Lean_Parser_mkAntiquot_formatter___closed__11();
lean_mark_persistent(l_Lean_Parser_mkAntiquot_formatter___closed__11);
l_Lean_Parser_mkAntiquot_formatter___closed__12 = _init_l_Lean_Parser_mkAntiquot_formatter___closed__12();
lean_mark_persistent(l_Lean_Parser_mkAntiquot_formatter___closed__12);
l_Lean_Parser_mkAntiquot_parenthesizer___closed__1 = _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_mkAntiquot_parenthesizer___closed__1);
l_Lean_Parser_mkAntiquot_parenthesizer___closed__2 = _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__2();
@ -3052,8 +2920,6 @@ l_Lean_Parser_mkAntiquot_parenthesizer___closed__10 = _init_l_Lean_Parser_mkAnti
lean_mark_persistent(l_Lean_Parser_mkAntiquot_parenthesizer___closed__10);
l_Lean_Parser_mkAntiquot_parenthesizer___closed__11 = _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__11();
lean_mark_persistent(l_Lean_Parser_mkAntiquot_parenthesizer___closed__11);
l_Lean_Parser_mkAntiquot_parenthesizer___closed__12 = _init_l_Lean_Parser_mkAntiquot_parenthesizer___closed__12();
lean_mark_persistent(l_Lean_Parser_mkAntiquot_parenthesizer___closed__12);
l_Lean_Parser_ident_formatter___closed__1 = _init_l_Lean_Parser_ident_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_ident_formatter___closed__1);
l___regBuiltin_Lean_Parser_ident_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_ident_formatter___closed__1();
@ -3072,8 +2938,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_numLit_formatter___closed__1 = _init_l_Lean_Parser_numLit_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_numLit_formatter___closed__1);
l_Lean_Parser_numLit_formatter___closed__2 = _init_l_Lean_Parser_numLit_formatter___closed__2();
lean_mark_persistent(l_Lean_Parser_numLit_formatter___closed__2);
l___regBuiltin_Lean_Parser_numLit_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_numLit_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_numLit_formatter___closed__1);
l___regBuiltin_Lean_Parser_numLit_formatter___closed__2 = _init_l___regBuiltin_Lean_Parser_numLit_formatter___closed__2();
@ -3083,8 +2947,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_numLit_parenthesizer___closed__1 = _init_l_Lean_Parser_numLit_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_numLit_parenthesizer___closed__1);
l_Lean_Parser_numLit_parenthesizer___closed__2 = _init_l_Lean_Parser_numLit_parenthesizer___closed__2();
lean_mark_persistent(l_Lean_Parser_numLit_parenthesizer___closed__2);
l___regBuiltin_Lean_Parser_numLit_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_numLit_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_numLit_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_numLit_parenthesizer(lean_io_mk_world());
@ -3092,8 +2954,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_charLit_formatter___closed__1 = _init_l_Lean_Parser_charLit_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_charLit_formatter___closed__1);
l_Lean_Parser_charLit_formatter___closed__2 = _init_l_Lean_Parser_charLit_formatter___closed__2();
lean_mark_persistent(l_Lean_Parser_charLit_formatter___closed__2);
l___regBuiltin_Lean_Parser_charLit_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_charLit_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_charLit_formatter___closed__1);
l___regBuiltin_Lean_Parser_charLit_formatter___closed__2 = _init_l___regBuiltin_Lean_Parser_charLit_formatter___closed__2();
@ -3103,8 +2963,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_charLit_parenthesizer___closed__1 = _init_l_Lean_Parser_charLit_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_charLit_parenthesizer___closed__1);
l_Lean_Parser_charLit_parenthesizer___closed__2 = _init_l_Lean_Parser_charLit_parenthesizer___closed__2();
lean_mark_persistent(l_Lean_Parser_charLit_parenthesizer___closed__2);
l___regBuiltin_Lean_Parser_charLit_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_charLit_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_charLit_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_charLit_parenthesizer(lean_io_mk_world());
@ -3112,8 +2970,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_strLit_formatter___closed__1 = _init_l_Lean_Parser_strLit_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_strLit_formatter___closed__1);
l_Lean_Parser_strLit_formatter___closed__2 = _init_l_Lean_Parser_strLit_formatter___closed__2();
lean_mark_persistent(l_Lean_Parser_strLit_formatter___closed__2);
l___regBuiltin_Lean_Parser_strLit_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_strLit_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_strLit_formatter___closed__1);
l___regBuiltin_Lean_Parser_strLit_formatter___closed__2 = _init_l___regBuiltin_Lean_Parser_strLit_formatter___closed__2();
@ -3123,8 +2979,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_strLit_parenthesizer___closed__1 = _init_l_Lean_Parser_strLit_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_strLit_parenthesizer___closed__1);
l_Lean_Parser_strLit_parenthesizer___closed__2 = _init_l_Lean_Parser_strLit_parenthesizer___closed__2();
lean_mark_persistent(l_Lean_Parser_strLit_parenthesizer___closed__2);
l___regBuiltin_Lean_Parser_strLit_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_strLit_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_strLit_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_strLit_parenthesizer(lean_io_mk_world());
@ -3132,8 +2986,6 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_nameLit_formatter___closed__1 = _init_l_Lean_Parser_nameLit_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_nameLit_formatter___closed__1);
l_Lean_Parser_nameLit_formatter___closed__2 = _init_l_Lean_Parser_nameLit_formatter___closed__2();
lean_mark_persistent(l_Lean_Parser_nameLit_formatter___closed__2);
l___regBuiltin_Lean_Parser_nameLit_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_nameLit_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_nameLit_formatter___closed__1);
l___regBuiltin_Lean_Parser_nameLit_formatter___closed__2 = _init_l___regBuiltin_Lean_Parser_nameLit_formatter___closed__2();
@ -3143,17 +2995,11 @@ if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_nameLit_parenthesizer___closed__1 = _init_l_Lean_Parser_nameLit_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_nameLit_parenthesizer___closed__1);
l_Lean_Parser_nameLit_parenthesizer___closed__2 = _init_l_Lean_Parser_nameLit_parenthesizer___closed__2();
lean_mark_persistent(l_Lean_Parser_nameLit_parenthesizer___closed__2);
l___regBuiltin_Lean_Parser_nameLit_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_nameLit_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_nameLit_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_nameLit_parenthesizer(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_Parser_many1Indent_formatter___closed__1 = _init_l_Lean_Parser_many1Indent_formatter___closed__1();
lean_mark_persistent(l_Lean_Parser_many1Indent_formatter___closed__1);
l_Lean_Parser_many1Indent_parenthesizer___closed__1 = _init_l_Lean_Parser_many1Indent_parenthesizer___closed__1();
lean_mark_persistent(l_Lean_Parser_many1Indent_parenthesizer___closed__1);
l_Lean_Parser_many1Indent___lambda__1___closed__1 = _init_l_Lean_Parser_many1Indent___lambda__1___closed__1();
lean_mark_persistent(l_Lean_Parser_many1Indent___lambda__1___closed__1);
l_Lean_Parser_many1Indent___closed__1 = _init_l_Lean_Parser_many1Indent___closed__1();

52
stage0/stdlib/Lean/Parser/Syntax.c generated
View file

@ -99,6 +99,7 @@ lean_object* l_Lean_Parser_Syntax_ident_formatter___closed__2;
lean_object* l___regBuiltin_Lean_Parser_Syntax_char_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Syntax_str___closed__6;
lean_object* l_Lean_Parser_Command_macroHead_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Syntax_sepBy_formatter___closed__1;
lean_object* l_Lean_Parser_Syntax_lookahead___closed__4;
lean_object* l_Lean_Parser_Command_elab___elambda__1___closed__13;
@ -131,6 +132,7 @@ lean_object* l_Lean_Parser_Syntax_str___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_macroTail___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__9;
extern lean_object* l_Lean_identKind___closed__1;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
lean_object* l_Lean_Parser_Command_mixfix___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__3;
lean_object* l_Lean_Parser_Command_elab_formatter___closed__7;
@ -155,7 +157,6 @@ lean_object* l_Lean_Parser_Command_infixl_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Command_parserKindPrio_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_parserKindPrio___closed__7;
lean_object* l_Lean_Parser_Command_mixfix___elambda__1___closed__9;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__3;
lean_object* l_Lean_Parser_Command_infixr___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_mixfix_formatter___closed__7;
lean_object* l___regBuiltinParser_Lean_Parser_Command_elab__rules(lean_object*);
@ -326,6 +327,7 @@ lean_object* l_Lean_Parser_Command_mixfix___elambda__1(lean_object*, lean_object
lean_object* l_Lean_Parser_Syntax_cat___closed__2;
lean_object* l_Lean_Parser_Command_notation___closed__10;
extern lean_object* l___regBuiltin_Lean_Parser_ppSpace_parenthesizer___closed__1;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__8;
lean_object* l_Lean_Parser_Command_identPrec_parenthesizer___closed__2;
lean_object* l_Lean_Parser_addBuiltinParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Syntax_atom_formatter___closed__1;
@ -338,8 +340,8 @@ lean_object* l_Lean_Parser_Command_elab__rules_parenthesizer___closed__6;
lean_object* l_Lean_Parser_Syntax_paren_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_elab___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_macro___elambda__1___closed__9;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
lean_object* lean_string_append(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__9;
lean_object* l_Lean_Parser_Command_mixfix_parenthesizer___closed__7;
lean_object* l_Lean_Parser_Command_infixr;
lean_object* l_Lean_Parser_Command_elab_parenthesizer___closed__6;
@ -533,6 +535,7 @@ lean_object* l_Lean_Parser_Command_syntaxAbbrev_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Syntax_noWs___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_notation_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Syntax_interpolatedStr_parenthesizer___closed__1;
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
lean_object* l_Lean_Parser_Command_mixfix___elambda__1___closed__8;
lean_object* l_Lean_Parser_Command_elab__rules_formatter___closed__2;
extern lean_object* l_Lean_Parser_numLit___closed__2;
@ -564,7 +567,6 @@ lean_object* l_Lean_Parser_Syntax_sepBy1___elambda__1(lean_object*, lean_object*
lean_object* l_Lean_Parser_Term_stx_quot___elambda__1___closed__5;
lean_object* l_Lean_Parser_Syntax_noWs___elambda__1___closed__3;
lean_object* l_Lean_Parser_Syntax_num_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
lean_object* l_Lean_Parser_Command_notation___closed__3;
lean_object* l_Lean_Parser_Command_elab___elambda__1___closed__6;
lean_object* l_Lean_Parser_Command_elabHead;
@ -798,7 +800,6 @@ lean_object* l_Lean_Parser_Syntax_lookahead___elambda__1___closed__5;
lean_object* l_Lean_Parser_Syntax_notFollowedBy;
lean_object* l_Lean_Parser_Command_infixr_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Syntax_num___closed__1;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__6;
lean_object* l_Lean_Parser_Term_stx_quot_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Command_elab_parenthesizer___closed__7;
lean_object* l_Lean_Parser_Command_mixfix_parenthesizer___closed__6;
@ -964,6 +965,7 @@ lean_object* l_Lean_Parser_Command_prefix___closed__2;
lean_object* l_Lean_Parser_Command_macroArg___elambda__1___closed__1;
lean_object* l_Lean_Parser_Syntax_lookahead_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Command_infix_parenthesizer___closed__3;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Syntax_many_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Syntax_num___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_notationItem___closed__2;
@ -979,7 +981,6 @@ lean_object* l_Lean_Parser_Command_elabTail___closed__6;
lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__2;
lean_object* l_Lean_Parser_Command_macroTailDefault_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_stx_quot_parenthesizer___closed__3;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
lean_object* l___regBuiltin_Lean_Parser_Syntax_cat_formatter(lean_object*);
lean_object* l_Lean_Parser_Command_macro__rules_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Command_macroTailCommand___elambda__1___closed__3;
@ -1270,7 +1271,6 @@ lean_object* l_Lean_Parser_symbolInfo(lean_object*);
lean_object* l_Lean_Parser_Term_stx_quot_parenthesizer___closed__6;
lean_object* l_Lean_Parser_Syntax_noWs___closed__1;
lean_object* l_Lean_Parser_Command_syntax_parenthesizer___closed__8;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
lean_object* l___regBuiltinParser_Lean_Parser_Command_mixfix(lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Syntax_try_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Command_mixfix___closed__3;
@ -1545,7 +1545,6 @@ extern lean_object* l_Lean_Parser_Tactic_quotSeq___elambda__1___closed__6;
lean_object* l_Lean_Parser_Command_notation___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_macroArg_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Command_elabTail___elambda__1___closed__4;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
extern lean_object* l_Lean_Parser_Term_quot_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Syntax_lookahead;
lean_object* l___regBuiltin_Lean_Parser_Syntax_lookahead_formatter___closed__1;
@ -1636,6 +1635,7 @@ lean_object* l___regBuiltin_Lean_Parser_Syntax_cat_formatter___closed__1;
lean_object* l_Lean_Parser_Syntax_char_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_mixfixKind___closed__5;
lean_object* l_Lean_Parser_Command_infix_formatter___closed__2;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
lean_object* l_Lean_Parser_Syntax_atom___closed__5;
lean_object* l_Lean_Parser_Command_macro___closed__4;
lean_object* l_Lean_Parser_Command_macro__rules_parenthesizer___closed__6;
@ -3025,7 +3025,7 @@ static lean_object* _init_l_Lean_Parser_precedence_formatter___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_2 = l_Lean_Parser_precedence_formatter___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -3259,7 +3259,7 @@ static lean_object* _init_l_Lean_Parser_precedence_parenthesizer___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_2 = l_Lean_Parser_precedence_parenthesizer___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -7820,7 +7820,7 @@ _start:
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = l_Lean_Parser_Syntax_many___elambda__1___closed__2;
x_7 = lean_unsigned_to_nat(1024u);
x_8 = l_Lean_Parser_mkAntiquot_formatter___closed__6;
x_8 = l_Lean_Parser_mkAntiquot_formatter___closed__5;
x_9 = l_Lean_PrettyPrinter_Formatter_trailingNode_formatter(x_6, x_7, x_8, x_1, x_2, x_3, x_4, x_5);
return x_9;
}
@ -7850,7 +7850,7 @@ _start:
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = l_Lean_Parser_Syntax_many___elambda__1___closed__2;
x_7 = lean_unsigned_to_nat(1024u);
x_8 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
x_8 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
x_9 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer(x_6, x_7, x_8, x_1, x_2, x_3, x_4, x_5);
return x_9;
}
@ -9954,7 +9954,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_mixfix(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_mixfix___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_mixfix;
@ -11495,7 +11495,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_notation(lean_object* x_1)
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_notation___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_notation;
@ -12168,7 +12168,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_macro__rules(lean_object*
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_macro__rules___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_macro__rules;
@ -13339,7 +13339,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_syntax(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_syntax___elambda__1___closed__1;
x_4 = 1;
x_5 = l_Lean_Parser_Command_syntax;
@ -14294,7 +14294,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_syntaxAbbrev(lean_object*
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_syntaxAbbrev___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_syntaxAbbrev;
@ -14691,7 +14691,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_syntaxCat(lean_object* x_1
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_syntaxCat;
@ -15362,7 +15362,7 @@ static lean_object* _init_l_Lean_Parser_Command_macroTailCommand___elambda__1___
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_2 = lean_alloc_closure((void*)(l_Lean_Parser_identEqFn), 3, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -16210,7 +16210,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_macro(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_macro___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_macro;
@ -16271,7 +16271,7 @@ static lean_object* _init_l_Lean_Parser_Command_macroArgSimple_formatter___close
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_2 = l_Lean_Parser_Syntax_paren_formatter___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -16283,7 +16283,7 @@ static lean_object* _init_l_Lean_Parser_Command_macroArgSimple_formatter___close
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Command_macroArgSimple_formatter___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -16895,7 +16895,7 @@ static lean_object* _init_l_Lean_Parser_Command_macroArgSimple_parenthesizer___c
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_2 = l_Lean_Parser_Syntax_interpolatedStr_parenthesizer___closed__3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -16907,7 +16907,7 @@ static lean_object* _init_l_Lean_Parser_Command_macroArgSimple_parenthesizer___c
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Command_macroArgSimple_parenthesizer___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -17099,7 +17099,7 @@ static lean_object* _init_l_Lean_Parser_Command_macroTailCommand_parenthesizer__
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_1 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_identEq_parenthesizer___boxed), 2, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -17772,7 +17772,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_elab__rules(lean_object* x
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_elab__rules___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_elab__rules;
@ -18568,7 +18568,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Command_elab(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; uint8_t x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3073____closed__4;
x_2 = l_Lean_Parser_initFn____x40_Lean_Parser_Extension___hyg_3093____closed__4;
x_3 = l_Lean_Parser_Command_elab___elambda__1___closed__2;
x_4 = 1;
x_5 = l_Lean_Parser_Command_elab;

104
stage0/stdlib/Lean/Parser/Tactic.c generated
View file

@ -59,6 +59,7 @@ lean_object* l_Lean_Parser_Tactic_suffices___elambda__1___closed__2;
lean_object* l_Lean_Parser_Tactic_show_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_done___elambda__1___closed__1;
lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__11;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
lean_object* l_Lean_Parser_Tactic_match___closed__7;
lean_object* l_Lean_Parser_Tactic_locationTarget_formatter___closed__2;
lean_object* l_Lean_Parser_Tactic_injection_parenthesizer___closed__5;
@ -93,6 +94,7 @@ lean_object* l_Lean_Parser_Tactic_altRHS___closed__4;
lean_object* l_Lean_Parser_Tactic_unknown___elambda__1___closed__2;
lean_object* l_Lean_Parser_andthenInfo(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_traceState_parenthesizer___closed__2;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__8;
lean_object* l_Lean_Parser_Tactic_rwRuleSeq_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Tactic_apply___closed__2;
extern lean_object* l_Lean_Parser_Term_optType___closed__2;
@ -106,6 +108,7 @@ lean_object* l_Lean_Parser_Tactic_change_parenthesizer___closed__6;
lean_object* l_Lean_Parser_Tactic_generalize___elambda__1___closed__13;
extern lean_object* l_Lean_Parser_Term_letrec_formatter___closed__7;
lean_object* l_Lean_Parser_Tactic_induction_formatter___closed__10;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__5;
lean_object* l_Lean_Parser_Tactic_cases_parenthesizer___closed__5;
extern lean_object* l_Lean_Parser_Term_explicit___closed__2;
lean_object* l_Lean_Parser_Tactic_traceState_parenthesizer___closed__1;
@ -173,7 +176,6 @@ lean_object* l_Lean_Parser_Tactic_inductionAlt_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_rwRule___elambda__1___closed__4;
lean_object* l_Lean_Parser_Tactic_match___elambda__1___closed__7;
lean_object* l_Lean_Parser_Tactic_have_formatter___closed__2;
extern lean_object* l_Lean_Parser_many1Indent_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Tactic_changeWith;
lean_object* l_Lean_Parser_Tactic_revert___elambda__1___closed__6;
lean_object* l_Lean_Parser_Tactic_case___elambda__1___closed__10;
@ -424,7 +426,6 @@ lean_object* l_Lean_Parser_Tactic_clear___closed__4;
lean_object* l___regBuiltin_Lean_Parser_Tactic_assumption_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Tactic_match_formatter___closed__2;
lean_object* l_Lean_Parser_Tactic_refine_x21___elambda__1(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_app_formatter___closed__5;
lean_object* l_Lean_Parser_Tactic_unknown___elambda__1___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Tactic_letrec_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_revert___closed__1;
@ -445,7 +446,6 @@ lean_object* l_Lean_Parser_Tactic_orelse___closed__5;
lean_object* l_Lean_Parser_Tactic_withIds;
lean_object* l_Lean_Parser_Tactic_suffices___closed__4;
lean_object* l_Lean_Parser_Tactic_usingRec_formatter___closed__2;
lean_object* l_Lean_Parser_Tactic_intro___elambda__1___closed__18;
lean_object* l_Lean_Parser_Tactic_rewriteSeq___elambda__1___closed__6;
lean_object* l_Lean_Parser_Tactic_refine___elambda__1___closed__8;
lean_object* l___regBuiltin_Lean_Parser_Tactic_refine_x21_formatter___closed__1;
@ -628,7 +628,6 @@ lean_object* l___regBuiltinParser_Lean_Parser_Tactic_generalize(lean_object*);
extern lean_object* l_Lean_Parser_identNoAntiquot___closed__1;
lean_object* l_Lean_Parser_Tactic_suffices___elambda__1___closed__5;
lean_object* l_Lean_Parser_Tactic_intros___closed__8;
extern lean_object* l_Lean_Parser_Term_app_parenthesizer___closed__5;
lean_object* l_Lean_Parser_Tactic_allGoals___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_paren_formatter___closed__2;
lean_object* l_Lean_PrettyPrinter_Formatter_errorAtSavedPos_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -838,7 +837,6 @@ lean_object* l___regBuiltin_Lean_Parser_Tactic_introMatch_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_intro___closed__10;
lean_object* l_Lean_Parser_Tactic_intro___elambda__1___closed__13;
lean_object* l_Lean_Parser_Tactic_skip___closed__5;
extern lean_object* l_Lean_Parser_many1Indent_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_rewrite___closed__8;
lean_object* l_Lean_Parser_Tactic_rwRuleSeq___elambda__1___closed__5;
lean_object* l_Lean_Parser_Tactic_withIds___closed__4;
@ -854,7 +852,6 @@ lean_object* l_Lean_Parser_Tactic_apply___closed__6;
lean_object* l_Lean_Parser_Tactic_refine_x21_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Tactic_locationTarget___closed__1;
extern lean_object* l_Lean_Parser_Term_have_parenthesizer___closed__4;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__6;
lean_object* l_Lean_Parser_Tactic_locationTarget___closed__2;
lean_object* l_Lean_Parser_Tactic_match___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_revert___closed__3;
@ -1108,6 +1105,7 @@ lean_object* l_Lean_Parser_Tactic_done___closed__2;
lean_object* l_Lean_Parser_Tactic_change___closed__3;
lean_object* l_Lean_Parser_Tactic_unknown_parenthesizer___closed__4;
lean_object* l_Lean_Parser_Tactic_generalize___closed__10;
extern lean_object* l_Lean_Parser_compileParserDescr_visit___closed__15;
lean_object* l_Lean_Parser_Tactic_inductionAlts_formatter___closed__2;
lean_object* l_Lean_Parser_Tactic_match___closed__2;
lean_object* l_Lean_Parser_Tactic_allGoals_parenthesizer___closed__4;
@ -1179,6 +1177,7 @@ lean_object* l_Lean_Parser_Tactic_unknown_formatter___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Tactic_assumption_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_location_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Tactic_injection___elambda__1___closed__8;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__8;
lean_object* l_Lean_Parser_Tactic_match___elambda__1___closed__9;
lean_object* l___regBuiltin_Lean_Parser_Tactic_show_formatter(lean_object*);
lean_object* l_Lean_Parser_Tactic_rwRuleSeq___elambda__1___closed__9;
@ -1231,7 +1230,6 @@ lean_object* l_Lean_Parser_Tactic_generalize___elambda__1___closed__7;
lean_object* l_Lean_Parser_Tactic_match_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Tactic_match___closed__1;
lean_object* l_Lean_Parser_Tactic_show___closed__5;
lean_object* l_Lean_Parser_Tactic_intro___elambda__1___closed__19;
lean_object* l_Lean_Parser_Tactic_rewriteSeq___elambda__1___closed__8;
lean_object* l_Lean_Parser_Tactic_induction_parenthesizer___closed__4;
lean_object* l_Lean_Parser_nodeWithAntiquot(lean_object*, lean_object*, lean_object*);
@ -1401,7 +1399,6 @@ lean_object* l_Lean_Parser_Tactic_show___closed__2;
lean_object* l_Lean_Parser_Tactic_generalize_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_induction_parenthesizer___closed__10;
extern lean_object* l___regBuiltin_Lean_Parser_Term_syntheticHole_formatter___closed__1;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
lean_object* l_Lean_Parser_Tactic_refine_x21___closed__2;
lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__12;
lean_object* l_Lean_Parser_Tactic_letrec;
@ -1437,6 +1434,7 @@ lean_object* l_Lean_Parser_Tactic_unknown_parenthesizer___closed__2;
extern lean_object* l_Lean_Parser_Term_matchAlt_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Tactic_generalize_parenthesizer___closed__11;
lean_object* l_Lean_Parser_Tactic_rwRule___elambda__1___closed__11;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
extern lean_object* l_Lean_Parser_Term_typeAscription___closed__1;
lean_object* l___regBuiltin_Lean_Parser_Tactic_changeWith_formatter(lean_object*);
lean_object* l_Lean_Parser_Tactic_case_formatter___closed__5;
@ -1653,7 +1651,6 @@ extern lean_object* l_Lean_Parser_antiquotNestedExpr_parenthesizer___closed__4;
lean_object* l_Lean_Parser_Tactic_inductionAlts___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_generalizingVars_formatter___closed__3;
extern lean_object* l_Lean_Parser_Term_matchAlt_formatter___closed__1;
lean_object* l_Lean_Parser_checkColGtFn(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_structInstArrayRef_formatter___closed__2;
extern lean_object* l_Lean_Parser_Term_matchAlts___closed__5;
lean_object* l_Lean_Parser_Tactic_matchAlt___elambda__1(lean_object*, lean_object*);
@ -1798,6 +1795,7 @@ lean_object* l_Lean_Parser_Tactic_matchAlt___closed__5;
lean_object* l_Array_back___at_Lean_Syntax_Traverser_up___spec__2(lean_object*);
lean_object* l_Lean_Parser_Tactic_traceState_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Tactic_intro_formatter___closed__3;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
lean_object* l_Lean_Parser_Tactic_intros___elambda__1___closed__9;
lean_object* l___regBuiltinParser_Lean_Parser_Tactic_orelse(lean_object*);
lean_object* l_Lean_Parser_Tactic_rwRuleSeq_parenthesizer___closed__3;
@ -2343,9 +2341,13 @@ return x_3;
static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__12() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("checkColGt");
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_compileParserDescr_visit___closed__15;
x_2 = l_Lean_Parser_Term_explicit___elambda__1___closed__8;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__13() {
@ -2353,7 +2355,7 @@ _start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__12;
x_2 = lean_alloc_closure((void*)(l_Lean_Parser_checkColGtFn), 3, 1);
x_2 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn), 3, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
}
@ -2362,8 +2364,8 @@ static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__14()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__13;
x_2 = l_Lean_Parser_Term_explicit___elambda__1___closed__8;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__11;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__13;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -2373,20 +2375,22 @@ return x_3;
static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__15() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__14;
x_2 = lean_alloc_closure((void*)(l_Lean_Parser_manyFn), 3, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__7;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__14;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__16() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__11;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__2;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__15;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
@ -2396,32 +2400,8 @@ static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__17()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__7;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__16;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__18() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__2;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__17;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_nodeFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__19() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Level_paren___elambda__1___closed__8;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__18;
x_2 = l_Lean_Parser_Tactic_intro___elambda__1___closed__16;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -2435,7 +2415,7 @@ lean_object* x_3; lean_object* x_4; lean_object* x_5; uint8_t x_6; lean_object*
x_3 = l_Lean_Parser_Tactic_intro___elambda__1___closed__4;
x_4 = lean_ctor_get(x_3, 1);
lean_inc(x_4);
x_5 = l_Lean_Parser_Tactic_intro___elambda__1___closed__19;
x_5 = l_Lean_Parser_Tactic_intro___elambda__1___closed__17;
x_6 = 1;
x_7 = l_Lean_Parser_orelseFnCore(x_4, x_5, x_6, x_1, x_2);
return x_7;
@ -2604,7 +2584,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_intro_formatter___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_formatter___closed__5;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__8;
x_2 = l_Lean_Parser_antiquotNestedExpr_formatter___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -2731,7 +2711,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_intro_parenthesizer___closed__4()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_parenthesizer___closed__5;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__8;
x_2 = l_Lean_Parser_Term_explicit_parenthesizer___closed__3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -2886,7 +2866,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_intros___elambda__1___closed__8()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__13;
x_1 = l_Lean_Parser_compileParserDescr_visit___closed__15;
x_2 = l_Lean_Parser_Tactic_ident_x27___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
@ -3122,7 +3102,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_intros_formatter___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_formatter___closed__5;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__8;
x_2 = l_Lean_Parser_Tactic_intros_formatter___closed__3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -3253,7 +3233,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_intros_parenthesizer___closed__4(
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_parenthesizer___closed__5;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__8;
x_2 = l_Lean_Parser_Tactic_intros_parenthesizer___closed__3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -3396,7 +3376,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_revert___elambda__1___closed__8()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Tactic_intro___elambda__1___closed__13;
x_1 = l_Lean_Parser_compileParserDescr_visit___closed__15;
x_2 = l_Lean_Parser_ident___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_Parser_andthenFn), 4, 2);
lean_closure_set(x_3, 0, x_1);
@ -3597,7 +3577,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_revert_formatter___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_formatter___closed__5;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__8;
x_2 = l___regBuiltin_Lean_Parser_ident_formatter___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -3702,7 +3682,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_revert_parenthesizer___closed__3(
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_parenthesizer___closed__5;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__8;
x_2 = l___regBuiltin_Lean_Parser_ident_parenthesizer___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -11163,7 +11143,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Tactic_locationWildcard___elambda__1___closed__2;
x_2 = lean_unsigned_to_nat(1024u);
x_3 = l_Lean_Parser_mkAntiquot_formatter___closed__6;
x_3 = l_Lean_Parser_mkAntiquot_formatter___closed__5;
x_4 = lean_alloc_closure((void*)(l_Lean_Parser_leadingNode_formatter___boxed), 8, 3);
lean_closure_set(x_4, 0, x_1);
lean_closure_set(x_4, 1, x_2);
@ -11521,7 +11501,7 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Tactic_locationWildcard___elambda__1___closed__2;
x_2 = lean_unsigned_to_nat(1024u);
x_3 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__6;
x_3 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__5;
x_4 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_leadingNode_parenthesizer___boxed), 8, 3);
lean_closure_set(x_4, 0, x_1);
lean_closure_set(x_4, 1, x_2);
@ -15200,7 +15180,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_inductionAlts_formatter___closed_
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_formatter___closed__1;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Tactic_inductionAlts_formatter___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -15568,7 +15548,7 @@ static lean_object* _init_l_Lean_Parser_Tactic_inductionAlts_parenthesizer___clo
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_parenthesizer___closed__1;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Tactic_inductionAlts_parenthesizer___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -21067,10 +21047,6 @@ l_Lean_Parser_Tactic_intro___elambda__1___closed__16 = _init_l_Lean_Parser_Tacti
lean_mark_persistent(l_Lean_Parser_Tactic_intro___elambda__1___closed__16);
l_Lean_Parser_Tactic_intro___elambda__1___closed__17 = _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__17();
lean_mark_persistent(l_Lean_Parser_Tactic_intro___elambda__1___closed__17);
l_Lean_Parser_Tactic_intro___elambda__1___closed__18 = _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__18();
lean_mark_persistent(l_Lean_Parser_Tactic_intro___elambda__1___closed__18);
l_Lean_Parser_Tactic_intro___elambda__1___closed__19 = _init_l_Lean_Parser_Tactic_intro___elambda__1___closed__19();
lean_mark_persistent(l_Lean_Parser_Tactic_intro___elambda__1___closed__19);
l_Lean_Parser_Tactic_intro___closed__1 = _init_l_Lean_Parser_Tactic_intro___closed__1();
lean_mark_persistent(l_Lean_Parser_Tactic_intro___closed__1);
l_Lean_Parser_Tactic_intro___closed__2 = _init_l_Lean_Parser_Tactic_intro___closed__2();

122
stage0/stdlib/Lean/Parser/Term.c generated
View file

@ -108,6 +108,7 @@ lean_object* l_Lean_Parser_Term_andthen___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_dbgTrace_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Term_emptyC_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_matchAlts_parenthesizer___closed__17;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
lean_object* l_Lean_Parser_Term_letDecl_formatter___closed__6;
lean_object* l_Lean_Parser_Term_arrayLit_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_app___elambda__1___closed__1;
@ -188,6 +189,7 @@ lean_object* l_Lean_Parser_Term_explicit___elambda__1___closed__2;
lean_object* l_Lean_Parser_Term_bnot___closed__4;
lean_object* l_Lean_Parser_Term_sub___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_ParserState_mkError(lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__8;
extern lean_object* l_Lean_Syntax_isQuot_match__1___rarg___closed__1;
lean_object* l_Lean_Parser_Term_optType___closed__2;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___elambda__1___closed__7;
@ -325,10 +327,12 @@ lean_object* l_Lean_Parser_Term_not___elambda__1___closed__7;
extern lean_object* l_Lean_identKind___closed__1;
lean_object* l_Lean_Parser_Term_matchAlts___closed__13;
lean_object* l___regBuiltin_Lean_Parser_Term_anonymousCtor_formatter(lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__10;
lean_object* l_Lean_Parser_Term_bracketedBinder(uint8_t);
lean_object* l_Lean_Parser_Term_structInstLVal_parenthesizer___closed__5;
lean_object* l_Lean_Parser_Term_have___elambda__1___closed__10;
lean_object* l_Lean_Parser_Term_sub_parenthesizer___closed__1;
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
lean_object* l_Lean_Parser_Term_structInst___closed__6;
lean_object* l_Lean_Parser_Level_quot_parenthesizer___closed__6;
lean_object* l_Lean_Parser_Term_ensureExpectedType___closed__1;
@ -401,11 +405,9 @@ lean_object* l___regBuiltin_Lean_Parser_Term_seq_formatter(lean_object*);
lean_object* l_Lean_Parser_Term_inaccessible___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_seqLeft___closed__2;
lean_object* l_Lean_Parser_Term_attributes_parenthesizer___closed__5;
extern lean_object* l_Lean_Parser_many1Indent_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_namedArgument___closed__5;
lean_object* l_Lean_Parser_Term_app_formatter___closed__6;
lean_object* l_Lean_Parser_Tactic_tacticSeq1Indented_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__3;
lean_object* l_Lean_Parser_Term_typeOf___closed__4;
lean_object* l_Lean_Parser_Term_mod_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_show___elambda__1___closed__8;
@ -868,6 +870,7 @@ lean_object* l_Lean_Parser_Term_suffices_parenthesizer___closed__2;
extern lean_object* l___regBuiltin_Lean_Parser_ppSpace_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_assert_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_not___closed__3;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__8;
lean_object* l_Lean_Parser_addBuiltinParser(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_letRecDecls_formatter___closed__1;
lean_object* l_Lean_Parser_Term_optIdent___closed__4;
@ -892,9 +895,9 @@ lean_object* l_Lean_Parser_Term_syntheticHole___closed__7;
lean_object* l_Lean_Parser_Term_arrayLit___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_cdot___elambda__1___closed__7;
extern lean_object* l_Lean_Parser_leadPrec___closed__1;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
lean_object* l_Lean_Parser_Term_nomatch___elambda__1___closed__8;
lean_object* lean_string_append(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__9;
lean_object* l_Lean_Parser_Term_dbgTrace___closed__6;
lean_object* l_Lean_PrettyPrinter_Formatter_checkWsBefore_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_explicit___elambda__1(lean_object*, lean_object*);
@ -1198,7 +1201,6 @@ lean_object* l_Lean_Parser_Term_typeOf_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_let_x21___elambda__1___closed__10;
lean_object* l_Lean_Parser_Term_lt_parenthesizer___closed__1;
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_Formatter_checkColGt_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_basicFun_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_seqLeft_parenthesizer(lean_object*);
lean_object* l_Lean_Parser_Term_inaccessible;
@ -1548,7 +1550,6 @@ lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__16;
lean_object* l_Lean_Parser_Term_match_formatter___closed__8;
lean_object* l_Lean_Parser_Term_uminus___closed__4;
lean_object* l_Lean_Parser_Term_prod;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__11;
lean_object* l_Lean_Parser_Term_sorry___elambda__1___closed__1;
lean_object* l___regBuiltin_Lean_Parser_Term_equiv_formatter(lean_object*);
lean_object* l_Lean_Parser_Term_let___closed__8;
@ -1965,7 +1966,6 @@ lean_object* l_Lean_Parser_Term_andM___closed__1;
lean_object* l_Lean_Parser_Term_listLit___closed__5;
lean_object* l_Lean_Parser_Term_depArrow___elambda__1___closed__14;
lean_object* l_Lean_Parser_Term_seqLeft_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_many1Indent_formatter___closed__1;
lean_object* l_Lean_Parser_Term_matchDiscr___closed__7;
lean_object* l_Lean_Parser_Term_implicitBinder_parenthesizer(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_structInstField___elambda__1___closed__5;
@ -2353,6 +2353,7 @@ lean_object* l_Lean_Parser_Term_letPatDecl___closed__7;
lean_object* l_Lean_Parser_Term_structInstLVal_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_quot___elambda__1___closed__9;
lean_object* l_Lean_Parser_Term_explicitBinder___boxed(lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__10;
lean_object* l_Lean_Parser_Term_seq_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_matchAlts_formatter___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___regBuiltin_Lean_Parser_Term_andthen_parenthesizer(lean_object*);
@ -2464,6 +2465,7 @@ lean_object* l_Lean_Parser_Term_uminus___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_namedPattern___closed__5;
lean_object* l_Lean_Parser_Term_mod___closed__1;
lean_object* l_Lean_Parser_Term_app_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
lean_object* l_Lean_Parser_Term_explicitBinder(uint8_t);
lean_object* l_Lean_Parser_Term_type___closed__1;
lean_object* l_Lean_Parser_Term_arrow___elambda__1___closed__2;
@ -2521,7 +2523,6 @@ lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__21;
lean_object* l_Lean_Parser_Term_isIdent___boxed(lean_object*);
lean_object* l_Lean_Parser_Term_matchAlts___closed__14;
lean_object* l_Lean_Parser_Term_emptyC;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
lean_object* l_Lean_Parser_Term_app___elambda__1___closed__6;
lean_object* l_Lean_Parser_Term_letPatDecl___closed__3;
lean_object* l___regBuiltinParser_Lean_Parser_Term_sort(lean_object*);
@ -2585,7 +2586,6 @@ lean_object* l___regBuiltinParser_Lean_Parser_Term_mod(lean_object*);
lean_object* l_Lean_Parser_Term_attrInstance_formatter___closed__2;
extern lean_object* l_Lean_Parser_antiquotNestedExpr_formatter___closed__1;
lean_object* l___regBuiltin_Lean_Parser_Term_lt_parenthesizer___closed__1;
extern lean_object* l_Lean_Parser_mkAntiquot_formatter___closed__11;
lean_object* l_Lean_Parser_Term_emptyC___closed__1;
lean_object* l_Lean_Parser_Term_sort_formatter___closed__2;
lean_object* l___regBuiltin_Lean_Parser_Term_and_formatter(lean_object*);
@ -2754,6 +2754,7 @@ lean_object* l_Lean_Parser_Term_matchAlts_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___closed__7;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed_formatter___closed__3;
lean_object* l_Lean_Parser_Term_binderType___closed__5;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__8;
lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__4;
lean_object* l___regBuiltin_Lean_Parser_Term_beq_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_have___elambda__1___closed__8;
@ -3022,7 +3023,6 @@ lean_object* l_Lean_Parser_Term_dollar___closed__3;
lean_object* l_Lean_Parser_Term_eq_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_matchAlts_formatter___closed__18;
lean_object* l_Lean_Parser_Term_bne___closed__1;
lean_object* l_Lean_Parser_Term_app_parenthesizer___closed__8;
lean_object* l___regBuiltin_Lean_Parser_Term_typeOf_formatter___closed__1;
lean_object* l_Lean_Parser_Tactic_tacticSeqBracketed___elambda__1___closed__14;
lean_object* l_Lean_Parser_Term_ne_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -3051,7 +3051,6 @@ lean_object* l_Lean_Parser_Term_match___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_explicitUniv_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_le___closed__1;
lean_object* l_Lean_Parser_Term_and___closed__4;
lean_object* l_Lean_Parser_Term_app_formatter___closed__8;
extern lean_object* l_Lean_PrettyPrinter_Parenthesizer_level_parenthesizer___lambda__1___closed__2;
lean_object* l_Lean_Parser_Term_sorry;
lean_object* l_Lean_Parser_Term_matchAlt_parenthesizer___closed__4;
@ -3436,6 +3435,7 @@ lean_object* l_Lean_Parser_Term_explicitUniv___closed__1;
lean_object* l_Lean_Parser_Tactic_tacticSeq_formatter___closed__3;
lean_object* l_Lean_Parser_Term_matchAlts___closed__9;
lean_object* l_Lean_Parser_Tactic_quot_formatter(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
lean_object* l_Lean_Parser_Term_typeAscription___closed__1;
lean_object* l_Lean_Parser_Term_gt___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_letDecl_parenthesizer___closed__8;
@ -4053,7 +4053,6 @@ lean_object* l_Lean_Parser_Term_haveAssign_formatter___closed__1;
lean_object* l_Lean_Parser_Term_sort_parenthesizer___closed__2;
lean_object* l_Lean_Parser_Term_sorry___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_dollarProj;
extern lean_object* l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
lean_object* l_Lean_Parser_Term_dollarProj___elambda__1___closed__4;
lean_object* l_Lean_Parser_Term_proj___closed__6;
lean_object* l_Lean_Parser_Term_type___closed__4;
@ -4238,7 +4237,6 @@ lean_object* l_Lean_Parser_Term_decide___elambda__1___closed__5;
lean_object* l___regBuiltin_Lean_Parser_Term_anonymousCtor_parenthesizer___closed__1;
lean_object* l_Lean_Parser_Term_nomatch___closed__3;
lean_object* l_Lean_Parser_Term_orM___elambda__1___closed__3;
lean_object* l_Lean_PrettyPrinter_Parenthesizer_checkColGt_parenthesizer___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_dbgTrace___closed__3;
lean_object* l_Lean_Parser_Term_bindOp___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_quotSeq_parenthesizer(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -25305,8 +25303,8 @@ static lean_object* _init_l_Lean_Parser_Term_matchDiscr_formatter___closed__2()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -25492,7 +25490,7 @@ static lean_object* _init_l_Lean_Parser_Term_matchAlts_formatter___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_formatter___closed__1;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Term_matchAlts_formatter___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -25847,8 +25845,8 @@ static lean_object* _init_l_Lean_Parser_Term_matchDiscr_parenthesizer___closed__
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -26061,7 +26059,7 @@ static lean_object* _init_l_Lean_Parser_Term_matchAlts_parenthesizer___closed__5
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_many1Indent_parenthesizer___closed__1;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__7;
x_2 = l_Lean_Parser_Term_matchAlts_parenthesizer___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -28211,7 +28209,7 @@ static lean_object* _init_l_Lean_Parser_Term_optExprPrecedence_formatter___close
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__9;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__8;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_try_formatter), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -28342,7 +28340,7 @@ static lean_object* _init_l_Lean_Parser_Term_optExprPrecedence_parenthesizer___c
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__9;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__8;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_try_parenthesizer), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -31095,7 +31093,7 @@ static lean_object* _init_l_Lean_Parser_Term_letPatDecl_formatter___closed__2()
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__11;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__10;
x_2 = l_Lean_Parser_Term_letPatDecl_formatter___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -31494,7 +31492,7 @@ static lean_object* _init_l_Lean_Parser_Term_letPatDecl_parenthesizer___closed__
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__11;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__10;
x_2 = l_Lean_Parser_Term_letPatDecl_parenthesizer___closed__1;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -38818,17 +38816,21 @@ return x_3;
static lean_object* _init_l_Lean_Parser_Term_app_formatter___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_checkColGt_formatter___boxed), 4, 0);
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__8;
x_2 = l_Lean_Parser_Term_app_formatter___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Term_app_formatter___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_formatter___closed__5;
x_2 = l_Lean_Parser_Term_app_formatter___closed__4;
x_1 = l_Lean_Parser_Term_type_formatter___closed__4;
x_2 = l_Lean_Parser_Term_app_formatter___closed__5;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -38838,20 +38840,8 @@ return x_3;
static lean_object* _init_l_Lean_Parser_Term_app_formatter___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_type_formatter___closed__4;
x_2 = l_Lean_Parser_Term_app_formatter___closed__6;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Term_app_formatter___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_app_formatter___closed__7;
x_1 = l_Lean_Parser_Term_app_formatter___closed__6;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_many1_formatter), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -38863,7 +38853,7 @@ _start:
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = l_Lean_mkAppStx___closed__8;
x_7 = l_Lean_Parser_leadPrec___closed__1;
x_8 = l_Lean_Parser_Term_app_formatter___closed__8;
x_8 = l_Lean_Parser_Term_app_formatter___closed__7;
x_9 = l_Lean_PrettyPrinter_Formatter_trailingNode_formatter(x_6, x_7, x_8, x_1, x_2, x_3, x_4, x_5);
return x_9;
}
@ -39054,17 +39044,21 @@ return x_3;
static lean_object* _init_l_Lean_Parser_Term_app_parenthesizer___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_checkColGt_parenthesizer___boxed), 4, 0);
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__8;
x_2 = l_Lean_Parser_Term_app_parenthesizer___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Term_app_parenthesizer___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_app_parenthesizer___closed__5;
x_2 = l_Lean_Parser_Term_app_parenthesizer___closed__4;
x_1 = l_Lean_Parser_Term_type_parenthesizer___closed__5;
x_2 = l_Lean_Parser_Term_app_parenthesizer___closed__5;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
@ -39074,20 +39068,8 @@ return x_3;
static lean_object* _init_l_Lean_Parser_Term_app_parenthesizer___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_type_parenthesizer___closed__5;
x_2 = l_Lean_Parser_Term_app_parenthesizer___closed__6;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
lean_closure_set(x_3, 1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_Parser_Term_app_parenthesizer___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_Parser_Term_app_parenthesizer___closed__7;
x_1 = l_Lean_Parser_Term_app_parenthesizer___closed__6;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_many1_parenthesizer), 6, 1);
lean_closure_set(x_2, 0, x_1);
return x_2;
@ -39099,7 +39081,7 @@ _start:
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9;
x_6 = l_Lean_mkAppStx___closed__8;
x_7 = l_Lean_Parser_leadPrec___closed__1;
x_8 = l_Lean_Parser_Term_app_parenthesizer___closed__8;
x_8 = l_Lean_Parser_Term_app_parenthesizer___closed__7;
x_9 = l_Lean_PrettyPrinter_Parenthesizer_trailingNode_parenthesizer(x_6, x_7, x_8, x_1, x_2, x_3, x_4, x_5);
return x_9;
}
@ -39344,7 +39326,7 @@ static lean_object* _init_l_Lean_Parser_Term_proj_formatter___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_proj_formatter___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -39410,7 +39392,7 @@ static lean_object* _init_l_Lean_Parser_Term_proj_parenthesizer___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_proj_parenthesizer___closed__2;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -39670,7 +39652,7 @@ static lean_object* _init_l_Lean_Parser_Term_arrayRef_formatter___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_structInstArrayRef_formatter___closed__5;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -39712,7 +39694,7 @@ static lean_object* _init_l_Lean_Parser_Term_arrayRef_parenthesizer___closed__1(
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_structInstArrayRef_parenthesizer___closed__5;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -40425,7 +40407,7 @@ static lean_object* _init_l_Lean_Parser_Term_explicitUniv_formatter___closed__5(
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_explicitUniv_formatter___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -40533,7 +40515,7 @@ static lean_object* _init_l_Lean_Parser_Term_explicitUniv_parenthesizer___closed
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_explicitUniv_parenthesizer___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -40809,7 +40791,7 @@ static lean_object* _init_l_Lean_Parser_Term_namedPattern_formatter___closed__1(
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_formatter___closed__3;
x_1 = l_Lean_PrettyPrinter_Formatter_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_explicit_formatter___closed__3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Formatter_andthen_formatter), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -40863,7 +40845,7 @@ static lean_object* _init_l_Lean_Parser_Term_namedPattern_parenthesizer___closed
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_mkAntiquot_parenthesizer___closed__3;
x_1 = l_Lean_PrettyPrinter_Parenthesizer_interpretParserDescr___closed__1;
x_2 = l_Lean_Parser_Term_explicit_parenthesizer___closed__4;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_Parenthesizer_andthen_parenthesizer), 7, 2);
lean_closure_set(x_3, 0, x_1);
@ -59857,8 +59839,6 @@ l_Lean_Parser_Term_app_formatter___closed__6 = _init_l_Lean_Parser_Term_app_form
lean_mark_persistent(l_Lean_Parser_Term_app_formatter___closed__6);
l_Lean_Parser_Term_app_formatter___closed__7 = _init_l_Lean_Parser_Term_app_formatter___closed__7();
lean_mark_persistent(l_Lean_Parser_Term_app_formatter___closed__7);
l_Lean_Parser_Term_app_formatter___closed__8 = _init_l_Lean_Parser_Term_app_formatter___closed__8();
lean_mark_persistent(l_Lean_Parser_Term_app_formatter___closed__8);
l___regBuiltin_Lean_Parser_Term_app_formatter___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_app_formatter___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_app_formatter___closed__1);
res = l___regBuiltin_Lean_Parser_Term_app_formatter(lean_io_mk_world());
@ -59894,8 +59874,6 @@ l_Lean_Parser_Term_app_parenthesizer___closed__6 = _init_l_Lean_Parser_Term_app_
lean_mark_persistent(l_Lean_Parser_Term_app_parenthesizer___closed__6);
l_Lean_Parser_Term_app_parenthesizer___closed__7 = _init_l_Lean_Parser_Term_app_parenthesizer___closed__7();
lean_mark_persistent(l_Lean_Parser_Term_app_parenthesizer___closed__7);
l_Lean_Parser_Term_app_parenthesizer___closed__8 = _init_l_Lean_Parser_Term_app_parenthesizer___closed__8();
lean_mark_persistent(l_Lean_Parser_Term_app_parenthesizer___closed__8);
l___regBuiltin_Lean_Parser_Term_app_parenthesizer___closed__1 = _init_l___regBuiltin_Lean_Parser_Term_app_parenthesizer___closed__1();
lean_mark_persistent(l___regBuiltin_Lean_Parser_Term_app_parenthesizer___closed__1);
res = l___regBuiltin_Lean_Parser_Term_app_parenthesizer(lean_io_mk_world());

25945
stage0/stdlib/Lean/ParserCompiler.c generated
View file

File diff suppressed because it is too large Load diff

322
stage0/stdlib/Lean/ParserCompiler/Attribute.c generated
View file

@ -14,66 +14,88 @@
extern "C" {
#endif
extern lean_object* l_Lean_Lean_Environment___instance__10___closed__5;
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
size_t l_USize_add(size_t, size_t);
lean_object* l_Lean_stringToMessageData(lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__3;
uint8_t l_USize_decEq(size_t, size_t);
lean_object* lean_array_uget(lean_object*, size_t);
lean_object* l_Lean_mkStateFromImportedEntries___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__1___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_registerInternalExceptionId___closed__2;
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___closed__1;
lean_object* l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Array_empty___closed__1;
lean_object* lean_st_ref_get(lean_object*, lean_object*);
uint8_t lean_name_eq(lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor_x3f(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Lean_Attributes___instance__3___closed__3;
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__4;
lean_object* l_Array_foldlMUnsafe_fold___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__3___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor_match__1(lean_object*);
lean_object* l_Lean_getConstInfo___at_Lean_registerInitAttrUnsafe___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* lean_string_append(lean_object*, lean_object*);
lean_object* l_Lean_setEnv___at_Lean_registerTagAttribute___spec__4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute_match__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_anyMUnsafe_any___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__1;
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1;
lean_object* l_Lean_Name_toStringWithSep(lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor_x3f___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_setDeclFor(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__2;
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__3(lean_object*, lean_object*);
lean_object* l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2(lean_object*);
lean_object* l_Lean_mkStateFromImportedEntries___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__1(lean_object*, lean_object*);
extern lean_object* l_Lean_initFn____x40_Lean_Environment___hyg_2547____closed__4;
lean_object* l_Std_RBNode_insert___at_Lean_NameMap_insert___spec__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___lambda__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_foldlMUnsafe_fold___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__2___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___closed__1;
lean_object* lean_eval_const(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_persistentEnvExtensionsRef;
lean_object* l_Lean_attrParamSyntaxToIdentifier(lean_object*);
extern lean_object* l_Lean_registerParametricAttribute___rarg___closed__2;
lean_object* l_Std_RBNode_find___at___private_Lean_Hygiene_0__Lean_sanitizeSyntaxAux___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_registerBuiltinAttribute(lean_object*, lean_object*);
extern lean_object* l_Lean_throwUnknownConstant___rarg___closed__3;
size_t lean_usize_of_nat(lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___closed__5;
lean_object* l_Lean_PersistentEnvExtension_addEntry___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_SimplePersistentEnvExtension_getState___rarg(lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___closed__3;
lean_object* l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3(lean_object*);
extern lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___rarg___closed__1;
lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute_match__1(lean_object*);
lean_object* l_Lean_registerPersistentEnvExtensionUnsafe___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__5(lean_object*, lean_object*);
uint8_t lean_nat_dec_le(lean_object*, lean_object*);
extern lean_object* l_Lean_registerSimplePersistentEnvExtension___rarg___closed__1;
lean_object* l_Lean_addMessageContextPartial___at_Lean_Core_Lean_CoreM___instance__6___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_addAttribute___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___closed__6;
uint8_t l_Array_anyMUnsafe_any___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__6(lean_object*, lean_object*, size_t, size_t);
lean_object* l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1___closed__1;
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor(lean_object*);
lean_object* l_Array_foldlMUnsafe_fold___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__3(lean_object*, size_t, size_t, lean_object*);
lean_object* l_Lean_registerSimplePersistentEnvExtension___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__4(lean_object*, lean_object*);
lean_object* l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_System_FilePath_dirName___closed__1;
lean_object* l_EStateM_pure___rarg(lean_object*, lean_object*);
lean_object* l_Array_foldlMUnsafe_fold___at_Lean_ParserCompiler_registerCombinatorAttribute___spec__2(lean_object*, size_t, size_t, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___closed__2;
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor_match__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute___lambda__1___closed__4;
lean_object* l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1(lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Lean_ParserCompiler_registerCombinatorAttribute_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
@ -795,7 +817,7 @@ x_1 = l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___
return x_1;
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor_x3f(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;
@ -806,11 +828,11 @@ lean_dec(x_5);
return x_6;
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor_x3f___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor(x_1, x_2, x_3);
x_4 = l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor_x3f(x_1, x_2, x_3);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
@ -831,6 +853,288 @@ x_7 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_5, x_2, x_6);
return x_7;
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_4;
lean_dec(x_2);
x_4 = lean_apply_1(x_3, x_1);
return x_4;
}
else
{
lean_object* x_5; lean_object* x_6;
lean_dec(x_3);
x_5 = lean_ctor_get(x_1, 0);
lean_inc(x_5);
lean_dec(x_1);
x_6 = lean_apply_1(x_2, x_5);
return x_6;
}
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor_match__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor_match__1___rarg), 3, 0);
return x_2;
}
}
lean_object* l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg(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; uint8_t x_7;
x_5 = lean_ctor_get(x_2, 3);
x_6 = l_Lean_addMessageContextPartial___at_Lean_Core_Lean_CoreM___instance__6___spec__1(x_1, x_2, x_3, x_4);
x_7 = !lean_is_exclusive(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_5);
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_5);
lean_ctor_set(x_9, 1, x_8);
lean_ctor_set_tag(x_6, 1);
lean_ctor_set(x_6, 0, x_9);
return x_6;
}
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_10 = lean_ctor_get(x_6, 0);
x_11 = lean_ctor_get(x_6, 1);
lean_inc(x_11);
lean_inc(x_10);
lean_dec(x_6);
lean_inc(x_5);
x_12 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_12, 0, x_5);
lean_ctor_set(x_12, 1, x_10);
x_13 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_13, 0, x_12);
lean_ctor_set(x_13, 1, x_11);
return x_13;
}
}
}
lean_object* l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg___boxed), 4, 0);
return x_2;
}
}
lean_object* l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_5 = lean_ctor_get(x_1, 0);
lean_inc(x_5);
x_6 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_6, 0, x_5);
x_7 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_7, 0, x_6);
x_8 = l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg(x_7, x_2, x_3, x_4);
return x_8;
}
else
{
lean_object* x_9; lean_object* x_10;
x_9 = lean_ctor_get(x_1, 0);
lean_inc(x_9);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_9);
lean_ctor_set(x_10, 1, x_4);
return x_10;
}
}
}
lean_object* l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg___boxed), 4, 0);
return x_2;
}
}
lean_object* l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_5 = lean_st_ref_get(x_3, x_4);
x_6 = lean_ctor_get(x_5, 0);
lean_inc(x_6);
x_7 = lean_ctor_get(x_5, 1);
lean_inc(x_7);
lean_dec(x_5);
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_8);
lean_dec(x_6);
x_9 = lean_ctor_get(x_2, 0);
x_10 = lean_eval_const(x_8, x_9, x_1);
lean_dec(x_8);
x_11 = l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg(x_10, x_2, x_3, x_7);
lean_dec(x_10);
return x_11;
}
}
lean_object* l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg___boxed), 4, 0);
return x_2;
}
}
static lean_object* _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("no declaration of attribute [");
return x_1;
}
}
static lean_object* _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__1;
x_2 = l_Lean_stringToMessageData(x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("] found for '");
return x_1;
}
}
static lean_object* _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__3;
x_2 = l_Lean_stringToMessageData(x_1);
return x_2;
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_6 = lean_st_ref_get(x_4, x_5);
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_ctor_get(x_7, 0);
lean_inc(x_9);
lean_dec(x_7);
x_10 = l_Lean_ParserCompiler_CombinatorAttribute_getDeclFor_x3f(x_1, x_9, x_2);
lean_dec(x_9);
if (lean_obj_tag(x_10) == 0)
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; 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_11 = lean_ctor_get(x_1, 0);
x_12 = lean_ctor_get(x_11, 0);
x_13 = lean_ctor_get(x_12, 0);
lean_inc(x_13);
x_14 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_14, 0, x_13);
x_15 = l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__2;
x_16 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_16, 0, x_15);
lean_ctor_set(x_16, 1, x_14);
x_17 = l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__4;
x_18 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_18, 0, x_16);
lean_ctor_set(x_18, 1, x_17);
x_19 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_19, 0, x_2);
x_20 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_20, 0, x_18);
lean_ctor_set(x_20, 1, x_19);
x_21 = l_Lean_throwUnknownConstant___rarg___closed__3;
x_22 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_22, 0, x_20);
lean_ctor_set(x_22, 1, x_21);
x_23 = l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg(x_22, x_3, x_4, x_8);
return x_23;
}
else
{
lean_object* x_24; lean_object* x_25;
lean_dec(x_2);
x_24 = lean_ctor_get(x_10, 0);
lean_inc(x_24);
lean_dec(x_10);
x_25 = l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg(x_24, x_3, x_4, x_8);
lean_dec(x_24);
return x_25;
}
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___boxed), 5, 0);
return x_2;
}
}
lean_object* l_Lean_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg___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_throwError___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__1___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg___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_ofExcept___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__3___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg___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_evalConst___at_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___spec__2___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
lean_object* x_6;
x_6 = l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg(x_1, x_2, x_3, x_4, x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_1);
return x_6;
}
}
lean_object* initialize_Init(lean_object*);
lean_object* initialize_Lean_Attributes(lean_object*);
lean_object* initialize_Lean_Compiler_InitAttr(lean_object*);
@ -870,6 +1174,14 @@ l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instan
lean_mark_persistent(l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1___closed__1);
l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1 = _init_l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1();
lean_mark_persistent(l_Lean_ParserCompiler_CombinatorAttribute_Lean_ParserCompiler_Attribute___instance__1);
l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__1 = _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__1();
lean_mark_persistent(l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__1);
l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__2 = _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__2();
lean_mark_persistent(l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__2);
l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__3 = _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__3();
lean_mark_persistent(l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__3);
l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__4 = _init_l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__4();
lean_mark_persistent(l_Lean_ParserCompiler_CombinatorAttribute_runDeclFor___rarg___closed__4);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

65
stage0/stdlib/Lean/PrettyPrinter.c generated
View file

@ -1,6 +1,6 @@
// Lean compiler output
// Module: Lean.PrettyPrinter
// Imports: Init Lean.Delaborator Lean.PrettyPrinter.Parenthesizer Lean.PrettyPrinter.Formatter Lean.Parser.Module
// Imports: Init Lean.Delaborator Lean.PrettyPrinter.Parenthesizer Lean.PrettyPrinter.Formatter Lean.Parser.Module Lean.ParserCompiler
#include <lean/lean.h>
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
@ -39,6 +39,8 @@ uint8_t l_USize_decLt(size_t, size_t);
lean_object* l_Array_mapMUnsafe_map___at___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_noContext___spec__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_ppExpr___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_withoutContext___rarg(lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_parenthesizerAttribute;
extern lean_object* l_Lean_PrettyPrinter_mkFormatterAttribute___closed__4;
lean_object* l_Lean_MessageData_toString(lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_State_cache___default___closed__1;
lean_object* l_Lean_PrettyPrinter_ppModule(lean_object*, lean_object*, lean_object*, lean_object*);
@ -50,16 +52,21 @@ lean_object* l_Lean_PrettyPrinter_ppTerm(lean_object*, lean_object*, lean_object
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_331_(lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301_(lean_object*);
lean_object* l_Nat_repr(lean_object*);
lean_object* l_Lean_PrettyPrinter_registerParserCompilers___closed__2;
extern lean_object* l_Lean_ppFnsRef;
lean_object* lean_st_mk_ref(lean_object*, lean_object*);
lean_object* l_Lean_Meta_withLCtx___at_Lean_PrettyPrinter_ppExpr___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301____lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_parenthesize(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_pp_expr(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_combinatorFormatterAttribute;
lean_object* l_Lean_PrettyPrinter_registerParserCompilers___closed__1;
lean_object* l_Lean_PrettyPrinter_ppExpr___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_PrettyPrinter_formatterAttribute;
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301____closed__2;
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301____closed__1;
lean_object* l_Lean_Meta_withLCtx___at_Lean_PrettyPrinter_ppExpr___spec__1(lean_object*);
lean_object* l_Lean_PrettyPrinter_registerParserCompilers(lean_object*);
lean_object* l___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_noContext(lean_object*);
size_t lean_usize_of_nat(lean_object*);
lean_object* l_Lean_PrettyPrinter_format(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -71,12 +78,15 @@ lean_object* l___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_withoutContext
lean_object* l_Lean_delab(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_formatCommand(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PPContext_runCoreM(lean_object*);
extern lean_object* l_Lean_PrettyPrinter_combinatorParenthesizerAttribute;
extern lean_object* l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__4;
lean_object* l___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_withoutContext___rarg___lambda__1(lean_object*, lean_object*);
lean_object* l___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_withoutContext(lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301____lambda__2___boxed(lean_object*, lean_object*, lean_object*);
lean_object* lean_st_ref_set(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_NameGenerator_Init_LeanInit___instance__6___closed__1;
extern lean_object* l_Lean_Meta_Context_config___default___closed__1;
lean_object* l_Lean_ParserCompiler_registerParserCompiler___rarg(lean_object*, lean_object*);
lean_object* l_Array_mapMUnsafe_map___at___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_noContext___spec__1(size_t, size_t, lean_object*);
lean_object* l___private_Lean_PrettyPrinter_0__Lean_PrettyPrinter_noContext_match__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Unhygienic_run___rarg___closed__1;
@ -1592,11 +1602,54 @@ x_3 = l_Lean_registerTraceClass(x_2, x_1);
return x_3;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_registerParserCompilers___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_PrettyPrinter_mkParenthesizerAttribute___closed__4;
x_2 = l_Lean_PrettyPrinter_parenthesizerAttribute;
x_3 = l_Lean_PrettyPrinter_combinatorParenthesizerAttribute;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_registerParserCompilers___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_PrettyPrinter_mkFormatterAttribute___closed__4;
x_2 = l_Lean_PrettyPrinter_formatterAttribute;
x_3 = l_Lean_PrettyPrinter_combinatorFormatterAttribute;
x_4 = lean_alloc_ctor(0, 3, 0);
lean_ctor_set(x_4, 0, x_1);
lean_ctor_set(x_4, 1, x_2);
lean_ctor_set(x_4, 2, x_3);
return x_4;
}
}
lean_object* l_Lean_PrettyPrinter_registerParserCompilers(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_2 = l_Lean_PrettyPrinter_registerParserCompilers___closed__1;
x_3 = l_Lean_ParserCompiler_registerParserCompiler___rarg(x_2, x_1);
x_4 = lean_ctor_get(x_3, 1);
lean_inc(x_4);
lean_dec(x_3);
x_5 = l_Lean_PrettyPrinter_registerParserCompilers___closed__2;
x_6 = l_Lean_ParserCompiler_registerParserCompiler___rarg(x_5, x_4);
return x_6;
}
}
lean_object* initialize_Init(lean_object*);
lean_object* initialize_Lean_Delaborator(lean_object*);
lean_object* initialize_Lean_PrettyPrinter_Parenthesizer(lean_object*);
lean_object* initialize_Lean_PrettyPrinter_Formatter(lean_object*);
lean_object* initialize_Lean_Parser_Module(lean_object*);
lean_object* initialize_Lean_ParserCompiler(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Lean_PrettyPrinter(lean_object* w) {
lean_object * res;
@ -1617,6 +1670,9 @@ lean_dec_ref(res);
res = initialize_Lean_Parser_Module(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Lean_ParserCompiler(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_PrettyPrinter_ppExpr___closed__1 = _init_l_Lean_PrettyPrinter_ppExpr___closed__1();
lean_mark_persistent(l_Lean_PrettyPrinter_ppExpr___closed__1);
l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301____closed__1 = _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_301____closed__1();
@ -1631,6 +1687,13 @@ lean_dec_ref(res);
res = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter___hyg_331_(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_PrettyPrinter_registerParserCompilers___closed__1 = _init_l_Lean_PrettyPrinter_registerParserCompilers___closed__1();
lean_mark_persistent(l_Lean_PrettyPrinter_registerParserCompilers___closed__1);
l_Lean_PrettyPrinter_registerParserCompilers___closed__2 = _init_l_Lean_PrettyPrinter_registerParserCompilers___closed__2();
lean_mark_persistent(l_Lean_PrettyPrinter_registerParserCompilers___closed__2);
res = l_Lean_PrettyPrinter_registerParserCompilers(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus

75
stage0/stdlib/Lean/PrettyPrinter/Backtrack.c generated
View file

@ -1,75 +0,0 @@
// Lean compiler output
// Module: Lean.PrettyPrinter.Backtrack
// Imports: Init Lean.InternalExceptionId
#include <lean/lean.h>
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__2;
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__1;
lean_object* l_Lean_registerInternalExceptionId(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4_(lean_object*);
lean_object* l_Lean_PrettyPrinter_backtrackExceptionId;
static lean_object* _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("backtrackFormatter");
return x_1;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4_(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__2;
x_3 = l_Lean_registerInternalExceptionId(x_2, x_1);
return x_3;
}
}
lean_object* initialize_Init(lean_object*);
lean_object* initialize_Lean_InternalExceptionId(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Lean_PrettyPrinter_Backtrack(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_io_result_mk_ok(lean_box(0));
_G_initialized = true;
res = initialize_Init(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Lean_InternalExceptionId(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__1 = _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__1();
lean_mark_persistent(l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__1);
l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__2 = _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__2();
lean_mark_persistent(l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4____closed__2);
res = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Backtrack___hyg_4_(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
l_Lean_PrettyPrinter_backtrackExceptionId = lean_io_result_get_value(res);
lean_mark_persistent(l_Lean_PrettyPrinter_backtrackExceptionId);
lean_dec_ref(res);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus
}
#endif

898
stage0/stdlib/Lean/PrettyPrinter/Basic.c generated Normal file
View file

@ -0,0 +1,898 @@
// Lean compiler output
// Module: Lean.PrettyPrinter.Basic
// Imports: Init Lean.InternalExceptionId Lean.KeyedDeclsAttribute
#include <lean/lean.h>
#if defined(__clang__)
#pragma clang diagnostic ignored "-Wunused-parameter"
#pragma clang diagnostic ignored "-Wunused-label"
#elif defined(__GNUC__) && !defined(__CLANG__)
#pragma GCC diagnostic ignored "-Wunused-parameter"
#pragma GCC diagnostic ignored "-Wunused-label"
#pragma GCC diagnostic ignored "-Wunused-but-set-variable"
#endif
#ifdef __cplusplus
extern "C" {
#endif
lean_object* l_Lean_stringToMessageData(lean_object*);
lean_object* l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__5;
lean_object* l_Lean_PrettyPrinter_runForNodeKind_match__1(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind(lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8;
lean_object* lean_environment_find(lean_object*, lean_object*);
lean_object* lean_st_ref_get(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4;
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2;
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4(lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__1;
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3(lean_object*);
lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2(lean_object*);
extern lean_object* l_Lean_throwUnknownConstant___rarg___closed__2;
lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4_(lean_object*);
lean_object* l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__3;
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6;
lean_object* l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
lean_object* l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_eval_const(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_KeyedDeclsAttribute_getValues___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
uint8_t l_Lean_Expr_isConstOf(lean_object*, lean_object*);
extern lean_object* l_Lean_throwUnknownConstant___rarg___closed__3;
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__1;
lean_object* l_Lean_ConstantInfo_type(lean_object*);
lean_object* l_Lean_registerInternalExceptionId(lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__2;
lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__7;
lean_object* l_Lean_addMessageContextPartial___at_Lean_Core_Lean_CoreM___instance__6___spec__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_runForNodeKind_match__1___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_PrettyPrinter_backtrackExceptionId;
extern lean_object* l_Lean_mkAppStx___closed__2;
lean_object* l_Lean_mkConst(lean_object*, lean_object*);
static lean_object* _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("backtrackFormatter");
return x_1;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4_(lean_object* x_1) {
_start:
{
lean_object* x_2; lean_object* x_3;
x_2 = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__2;
x_3 = l_Lean_registerInternalExceptionId(x_2, x_1);
return x_3;
}
}
lean_object* l_Lean_PrettyPrinter_runForNodeKind_match__1___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_4;
lean_dec(x_2);
x_4 = lean_apply_1(x_3, x_1);
return x_4;
}
else
{
lean_object* x_5; lean_object* x_6; lean_object* x_7;
lean_dec(x_3);
x_5 = lean_ctor_get(x_1, 0);
lean_inc(x_5);
x_6 = lean_ctor_get(x_1, 1);
lean_inc(x_6);
lean_dec(x_1);
x_7 = lean_apply_2(x_2, x_5, x_6);
return x_7;
}
}
}
lean_object* l_Lean_PrettyPrinter_runForNodeKind_match__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_runForNodeKind_match__1___rarg), 3, 0);
return x_3;
}
}
lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(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; uint8_t x_7;
x_5 = lean_ctor_get(x_2, 3);
x_6 = l_Lean_addMessageContextPartial___at_Lean_Core_Lean_CoreM___instance__6___spec__1(x_1, x_2, x_3, x_4);
x_7 = !lean_is_exclusive(x_6);
if (x_7 == 0)
{
lean_object* x_8; lean_object* x_9;
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_5);
x_9 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_9, 0, x_5);
lean_ctor_set(x_9, 1, x_8);
lean_ctor_set_tag(x_6, 1);
lean_ctor_set(x_6, 0, x_9);
return x_6;
}
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13;
x_10 = lean_ctor_get(x_6, 0);
x_11 = lean_ctor_get(x_6, 1);
lean_inc(x_11);
lean_inc(x_10);
lean_dec(x_6);
lean_inc(x_5);
x_12 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_12, 0, x_5);
lean_ctor_set(x_12, 1, x_10);
x_13 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_13, 0, x_12);
lean_ctor_set(x_13, 1, x_11);
return x_13;
}
}
}
lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg___boxed), 4, 0);
return x_2;
}
}
lean_object* l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; uint8_t x_6;
x_5 = lean_st_ref_get(x_3, x_4);
x_6 = !lean_is_exclusive(x_5);
if (x_6 == 0)
{
lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_7 = lean_ctor_get(x_5, 0);
x_8 = lean_ctor_get(x_5, 1);
x_9 = lean_ctor_get(x_7, 0);
lean_inc(x_9);
lean_dec(x_7);
lean_inc(x_1);
x_10 = lean_environment_find(x_9, x_1);
if (lean_obj_tag(x_10) == 0)
{
lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; lean_object* x_18;
lean_free_object(x_5);
x_11 = lean_box(0);
x_12 = l_Lean_mkConst(x_1, x_11);
x_13 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_13, 0, x_12);
x_14 = l_Lean_throwUnknownConstant___rarg___closed__2;
x_15 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_15, 0, x_14);
lean_ctor_set(x_15, 1, x_13);
x_16 = l_Lean_throwUnknownConstant___rarg___closed__3;
x_17 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_17, 0, x_15);
lean_ctor_set(x_17, 1, x_16);
x_18 = l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(x_17, x_2, x_3, x_8);
return x_18;
}
else
{
lean_object* x_19;
lean_dec(x_1);
x_19 = lean_ctor_get(x_10, 0);
lean_inc(x_19);
lean_dec(x_10);
lean_ctor_set(x_5, 0, x_19);
return x_5;
}
}
else
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_20 = lean_ctor_get(x_5, 0);
x_21 = lean_ctor_get(x_5, 1);
lean_inc(x_21);
lean_inc(x_20);
lean_dec(x_5);
x_22 = lean_ctor_get(x_20, 0);
lean_inc(x_22);
lean_dec(x_20);
lean_inc(x_1);
x_23 = lean_environment_find(x_22, x_1);
if (lean_obj_tag(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;
x_24 = lean_box(0);
x_25 = l_Lean_mkConst(x_1, x_24);
x_26 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_26, 0, x_25);
x_27 = l_Lean_throwUnknownConstant___rarg___closed__2;
x_28 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_28, 0, x_27);
lean_ctor_set(x_28, 1, x_26);
x_29 = l_Lean_throwUnknownConstant___rarg___closed__3;
x_30 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_30, 0, x_28);
lean_ctor_set(x_30, 1, x_29);
x_31 = l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(x_30, x_2, x_3, x_21);
return x_31;
}
else
{
lean_object* x_32; lean_object* x_33;
lean_dec(x_1);
x_32 = lean_ctor_get(x_23, 0);
lean_inc(x_32);
lean_dec(x_23);
x_33 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_33, 0, x_32);
lean_ctor_set(x_33, 1, x_21);
return x_33;
}
}
}
}
lean_object* l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_5 = lean_ctor_get(x_1, 0);
lean_inc(x_5);
x_6 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_6, 0, x_5);
x_7 = lean_alloc_ctor(0, 1, 0);
lean_ctor_set(x_7, 0, x_6);
x_8 = l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(x_7, x_2, x_3, x_4);
return x_8;
}
else
{
lean_object* x_9; lean_object* x_10;
x_9 = lean_ctor_get(x_1, 0);
lean_inc(x_9);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_9);
lean_ctor_set(x_10, 1, x_4);
return x_10;
}
}
}
lean_object* l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg___boxed), 4, 0);
return x_2;
}
}
lean_object* l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_5 = lean_st_ref_get(x_3, x_4);
x_6 = lean_ctor_get(x_5, 0);
lean_inc(x_6);
x_7 = lean_ctor_get(x_5, 1);
lean_inc(x_7);
lean_dec(x_5);
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_8);
lean_dec(x_6);
x_9 = lean_ctor_get(x_2, 0);
x_10 = lean_eval_const(x_8, x_9, x_1);
lean_dec(x_8);
x_11 = l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg(x_10, x_2, x_3, x_7);
lean_dec(x_10);
return x_11;
}
}
lean_object* l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg___boxed), 4, 0);
return x_2;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("ParserDescr");
return x_1;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_mkAppStx___closed__2;
x_2 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__3() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("TrailingParserDescr");
return x_1;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_mkAppStx___closed__2;
x_2 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__3;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__5() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("no declaration of attribute [");
return x_1;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__5;
x_2 = l_Lean_stringToMessageData(x_1);
return x_2;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__7() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("] found for '");
return x_1;
}
}
static lean_object* _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2;
x_1 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__7;
x_2 = l_Lean_stringToMessageData(x_1);
return x_2;
}
}
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7; uint8_t x_8;
x_7 = lean_st_ref_get(x_5, x_6);
x_8 = !lean_is_exclusive(x_7);
if (x_8 == 0)
{
lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_9 = lean_ctor_get(x_7, 0);
x_10 = lean_ctor_get(x_7, 1);
x_11 = lean_ctor_get(x_9, 0);
lean_inc(x_11);
lean_dec(x_9);
x_12 = l_Lean_KeyedDeclsAttribute_getValues___rarg(x_1, x_11, x_2);
lean_dec(x_11);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13;
lean_free_object(x_7);
lean_inc(x_2);
x_13 = l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1(x_2, x_4, x_5, x_10);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17; uint8_t x_18;
x_14 = lean_ctor_get(x_13, 0);
lean_inc(x_14);
x_15 = lean_ctor_get(x_13, 1);
lean_inc(x_15);
lean_dec(x_13);
x_16 = l_Lean_ConstantInfo_type(x_14);
lean_dec(x_14);
x_17 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2;
x_18 = l_Lean_Expr_isConstOf(x_16, x_17);
if (x_18 == 0)
{
lean_object* x_19; uint8_t x_20;
x_19 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4;
x_20 = l_Lean_Expr_isConstOf(x_16, x_19);
lean_dec(x_16);
if (x_20 == 0)
{
lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32;
lean_dec(x_3);
x_21 = lean_ctor_get(x_1, 0);
x_22 = lean_ctor_get(x_21, 1);
lean_inc(x_22);
x_23 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_23, 0, x_22);
x_24 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6;
x_25 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_25, 0, x_24);
lean_ctor_set(x_25, 1, x_23);
x_26 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8;
x_27 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_27, 0, x_25);
lean_ctor_set(x_27, 1, x_26);
x_28 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_28, 0, x_2);
x_29 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_29, 0, x_27);
lean_ctor_set(x_29, 1, x_28);
x_30 = l_Lean_throwUnknownConstant___rarg___closed__3;
x_31 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_31, 0, x_29);
lean_ctor_set(x_31, 1, x_30);
x_32 = l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(x_31, x_4, x_5, x_15);
lean_dec(x_5);
lean_dec(x_4);
return x_32;
}
else
{
lean_object* x_33;
x_33 = l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(x_2, x_4, x_5, x_15);
lean_dec(x_2);
if (lean_obj_tag(x_33) == 0)
{
lean_object* x_34; lean_object* x_35; lean_object* x_36;
x_34 = lean_ctor_get(x_33, 0);
lean_inc(x_34);
x_35 = lean_ctor_get(x_33, 1);
lean_inc(x_35);
lean_dec(x_33);
x_36 = lean_apply_4(x_3, x_34, x_4, x_5, x_35);
return x_36;
}
else
{
uint8_t x_37;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
x_37 = !lean_is_exclusive(x_33);
if (x_37 == 0)
{
return x_33;
}
else
{
lean_object* x_38; lean_object* x_39; lean_object* x_40;
x_38 = lean_ctor_get(x_33, 0);
x_39 = lean_ctor_get(x_33, 1);
lean_inc(x_39);
lean_inc(x_38);
lean_dec(x_33);
x_40 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_40, 0, x_38);
lean_ctor_set(x_40, 1, x_39);
return x_40;
}
}
}
}
else
{
lean_object* x_41;
lean_dec(x_16);
x_41 = l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(x_2, x_4, x_5, x_15);
lean_dec(x_2);
if (lean_obj_tag(x_41) == 0)
{
lean_object* x_42; lean_object* x_43; lean_object* x_44;
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_apply_4(x_3, x_42, x_4, x_5, x_43);
return x_44;
}
else
{
uint8_t x_45;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
x_45 = !lean_is_exclusive(x_41);
if (x_45 == 0)
{
return x_41;
}
else
{
lean_object* x_46; lean_object* x_47; lean_object* x_48;
x_46 = lean_ctor_get(x_41, 0);
x_47 = lean_ctor_get(x_41, 1);
lean_inc(x_47);
lean_inc(x_46);
lean_dec(x_41);
x_48 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_48, 0, x_46);
lean_ctor_set(x_48, 1, x_47);
return x_48;
}
}
}
}
else
{
uint8_t x_49;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_49 = !lean_is_exclusive(x_13);
if (x_49 == 0)
{
return x_13;
}
else
{
lean_object* x_50; lean_object* x_51; lean_object* x_52;
x_50 = lean_ctor_get(x_13, 0);
x_51 = lean_ctor_get(x_13, 1);
lean_inc(x_51);
lean_inc(x_50);
lean_dec(x_13);
x_52 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_52, 0, x_50);
lean_ctor_set(x_52, 1, x_51);
return x_52;
}
}
}
else
{
lean_object* x_53;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_53 = lean_ctor_get(x_12, 0);
lean_inc(x_53);
lean_dec(x_12);
lean_ctor_set(x_7, 0, x_53);
return x_7;
}
}
else
{
lean_object* x_54; lean_object* x_55; lean_object* x_56; lean_object* x_57;
x_54 = lean_ctor_get(x_7, 0);
x_55 = lean_ctor_get(x_7, 1);
lean_inc(x_55);
lean_inc(x_54);
lean_dec(x_7);
x_56 = lean_ctor_get(x_54, 0);
lean_inc(x_56);
lean_dec(x_54);
x_57 = l_Lean_KeyedDeclsAttribute_getValues___rarg(x_1, x_56, x_2);
lean_dec(x_56);
if (lean_obj_tag(x_57) == 0)
{
lean_object* x_58;
lean_inc(x_2);
x_58 = l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1(x_2, x_4, x_5, x_55);
if (lean_obj_tag(x_58) == 0)
{
lean_object* x_59; lean_object* x_60; lean_object* x_61; lean_object* x_62; uint8_t x_63;
x_59 = lean_ctor_get(x_58, 0);
lean_inc(x_59);
x_60 = lean_ctor_get(x_58, 1);
lean_inc(x_60);
lean_dec(x_58);
x_61 = l_Lean_ConstantInfo_type(x_59);
lean_dec(x_59);
x_62 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2;
x_63 = l_Lean_Expr_isConstOf(x_61, x_62);
if (x_63 == 0)
{
lean_object* x_64; uint8_t x_65;
x_64 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4;
x_65 = l_Lean_Expr_isConstOf(x_61, x_64);
lean_dec(x_61);
if (x_65 == 0)
{
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_dec(x_3);
x_66 = lean_ctor_get(x_1, 0);
x_67 = lean_ctor_get(x_66, 1);
lean_inc(x_67);
x_68 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_68, 0, x_67);
x_69 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6;
x_70 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_70, 0, x_69);
lean_ctor_set(x_70, 1, x_68);
x_71 = l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8;
x_72 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_72, 0, x_70);
lean_ctor_set(x_72, 1, x_71);
x_73 = lean_alloc_ctor(4, 1, 0);
lean_ctor_set(x_73, 0, x_2);
x_74 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_74, 0, x_72);
lean_ctor_set(x_74, 1, x_73);
x_75 = l_Lean_throwUnknownConstant___rarg___closed__3;
x_76 = lean_alloc_ctor(10, 2, 0);
lean_ctor_set(x_76, 0, x_74);
lean_ctor_set(x_76, 1, x_75);
x_77 = l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(x_76, x_4, x_5, x_60);
lean_dec(x_5);
lean_dec(x_4);
return x_77;
}
else
{
lean_object* x_78;
x_78 = l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(x_2, x_4, x_5, x_60);
lean_dec(x_2);
if (lean_obj_tag(x_78) == 0)
{
lean_object* x_79; lean_object* x_80; lean_object* x_81;
x_79 = lean_ctor_get(x_78, 0);
lean_inc(x_79);
x_80 = lean_ctor_get(x_78, 1);
lean_inc(x_80);
lean_dec(x_78);
x_81 = lean_apply_4(x_3, x_79, x_4, x_5, x_80);
return x_81;
}
else
{
lean_object* x_82; lean_object* x_83; lean_object* x_84; lean_object* x_85;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
x_82 = lean_ctor_get(x_78, 0);
lean_inc(x_82);
x_83 = lean_ctor_get(x_78, 1);
lean_inc(x_83);
if (lean_is_exclusive(x_78)) {
lean_ctor_release(x_78, 0);
lean_ctor_release(x_78, 1);
x_84 = x_78;
} else {
lean_dec_ref(x_78);
x_84 = lean_box(0);
}
if (lean_is_scalar(x_84)) {
x_85 = lean_alloc_ctor(1, 2, 0);
} else {
x_85 = x_84;
}
lean_ctor_set(x_85, 0, x_82);
lean_ctor_set(x_85, 1, x_83);
return x_85;
}
}
}
else
{
lean_object* x_86;
lean_dec(x_61);
x_86 = l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(x_2, x_4, x_5, x_60);
lean_dec(x_2);
if (lean_obj_tag(x_86) == 0)
{
lean_object* x_87; lean_object* x_88; lean_object* x_89;
x_87 = lean_ctor_get(x_86, 0);
lean_inc(x_87);
x_88 = lean_ctor_get(x_86, 1);
lean_inc(x_88);
lean_dec(x_86);
x_89 = lean_apply_4(x_3, x_87, x_4, x_5, x_88);
return x_89;
}
else
{
lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
x_90 = lean_ctor_get(x_86, 0);
lean_inc(x_90);
x_91 = lean_ctor_get(x_86, 1);
lean_inc(x_91);
if (lean_is_exclusive(x_86)) {
lean_ctor_release(x_86, 0);
lean_ctor_release(x_86, 1);
x_92 = x_86;
} else {
lean_dec_ref(x_86);
x_92 = lean_box(0);
}
if (lean_is_scalar(x_92)) {
x_93 = lean_alloc_ctor(1, 2, 0);
} else {
x_93 = x_92;
}
lean_ctor_set(x_93, 0, x_90);
lean_ctor_set(x_93, 1, x_91);
return x_93;
}
}
}
else
{
lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_94 = lean_ctor_get(x_58, 0);
lean_inc(x_94);
x_95 = lean_ctor_get(x_58, 1);
lean_inc(x_95);
if (lean_is_exclusive(x_58)) {
lean_ctor_release(x_58, 0);
lean_ctor_release(x_58, 1);
x_96 = x_58;
} else {
lean_dec_ref(x_58);
x_96 = lean_box(0);
}
if (lean_is_scalar(x_96)) {
x_97 = lean_alloc_ctor(1, 2, 0);
} else {
x_97 = x_96;
}
lean_ctor_set(x_97, 0, x_94);
lean_ctor_set(x_97, 1, x_95);
return x_97;
}
}
else
{
lean_object* x_98; lean_object* x_99;
lean_dec(x_5);
lean_dec(x_4);
lean_dec(x_3);
lean_dec(x_2);
x_98 = lean_ctor_get(x_57, 0);
lean_inc(x_98);
lean_dec(x_57);
x_99 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_99, 0, x_98);
lean_ctor_set(x_99, 1, x_55);
return x_99;
}
}
}
}
lean_object* l_Lean_PrettyPrinter_runForNodeKind(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_PrettyPrinter_runForNodeKind___rarg___boxed), 6, 0);
return x_2;
}
}
lean_object* l_Lean_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg___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_throwError___at_Lean_PrettyPrinter_runForNodeKind___spec__2___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
lean_object* x_5;
x_5 = l_Lean_getConstInfo___at_Lean_PrettyPrinter_runForNodeKind___spec__1(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
return x_5;
}
}
lean_object* l_Lean_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg___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_ofExcept___at_Lean_PrettyPrinter_runForNodeKind___spec__4___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg___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_evalConst___at_Lean_PrettyPrinter_runForNodeKind___spec__3___rarg(x_1, x_2, x_3, x_4);
lean_dec(x_3);
lean_dec(x_2);
lean_dec(x_1);
return x_5;
}
}
lean_object* l_Lean_PrettyPrinter_runForNodeKind___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5, lean_object* x_6) {
_start:
{
lean_object* x_7;
x_7 = l_Lean_PrettyPrinter_runForNodeKind___rarg(x_1, x_2, x_3, x_4, x_5, x_6);
lean_dec(x_1);
return x_7;
}
}
lean_object* initialize_Init(lean_object*);
lean_object* initialize_Lean_InternalExceptionId(lean_object*);
lean_object* initialize_Lean_KeyedDeclsAttribute(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Lean_PrettyPrinter_Basic(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_io_result_mk_ok(lean_box(0));
_G_initialized = true;
res = initialize_Init(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Lean_InternalExceptionId(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
res = initialize_Lean_KeyedDeclsAttribute(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
lean_dec_ref(res);
l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__1 = _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__1();
lean_mark_persistent(l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__1);
l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__2 = _init_l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__2();
lean_mark_persistent(l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4____closed__2);
res = l_Lean_PrettyPrinter_initFn____x40_Lean_PrettyPrinter_Basic___hyg_4_(lean_io_mk_world());
if (lean_io_result_is_error(res)) return res;
l_Lean_PrettyPrinter_backtrackExceptionId = lean_io_result_get_value(res);
lean_mark_persistent(l_Lean_PrettyPrinter_backtrackExceptionId);
lean_dec_ref(res);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__1 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__1();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__1);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__2);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__3 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__3();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__3);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__4);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__5 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__5();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__5);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__6);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__7 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__7();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__7);
l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8 = _init_l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8();
lean_mark_persistent(l_Lean_PrettyPrinter_runForNodeKind___rarg___closed__8);
return lean_io_result_mk_ok(lean_box(0));
}
#ifdef __cplusplus
}
#endif

3035
stage0/stdlib/Lean/PrettyPrinter/Formatter.c generated
View file

File diff suppressed because it is too large Load diff

5045
stage0/stdlib/Lean/PrettyPrinter/Meta.c generated
View file

File diff suppressed because it is too large Load diff

2954
stage0/stdlib/Lean/PrettyPrinter/Parenthesizer.c generated
View file

File diff suppressed because it is too large Load diff