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-05-26 13:39:48 -07:00
parent 8d30f67823
commit c765bd2a7e
31 changed files with 8097 additions and 4629 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
stage0/src/Init/Lean/Meta/Basic.lean
View file

@ -853,7 +853,13 @@ open Lean
open Lean.Meta
/-- Helper function for running `MetaM` methods in attributes -/
@[inline] def IO.runMeta {α} (x : MetaM α) (env : Environment) (cfg : Config := {}) : IO (α × Environment) :=
@[inline] def IO.runMeta {α} (x : MetaM α) (env : Environment) (cfg : Config := {}) (printTraces := true) : IO (α × Environment) :=
match (x { config := cfg, currRecDepth := 0, maxRecDepth := defaultMaxRecDepth }).run { env := env } with
| EStateM.Result.ok a s => pure (a, s.env)
| EStateM.Result.error ex _ => throw (IO.userError (toString ex))
| EStateM.Result.ok a s => do
when printTraces $
s.traceState.traces.forM $ fun msg => IO.println (fmt msg);
pure (a, s.env)
| EStateM.Result.error ex s => do
when printTraces $
s.traceState.traces.forM $ fun msg => IO.println (fmt msg);
throw (IO.userError (toString ex))

11
stage0/src/Init/Lean/Parser/Parser.lean
View file

@ -1423,8 +1423,8 @@ def pushNone : Parser :=
{ fn := fun c s => s.pushSyntax mkNullNode }
-- We support two kinds of antiquotations: `$id` and `$(t)`, where `id` is a term identifier and `t` is a term.
private def antiquotNestedExpr : Parser := node `antiquotNestedExpr ("(" >> termParser >> ")")
private def antiquotExpr : Parser := identNoAntiquot <|> antiquotNestedExpr
def antiquotNestedExpr : Parser := node `antiquotNestedExpr ("(" >> termParser >> ")")
def antiquotExpr : Parser := identNoAntiquot <|> antiquotNestedExpr
/--
Define parser for `$e` (if anonymous == true) and `$e:name`. Both
@ -1822,12 +1822,7 @@ private def catNameToString : Name → String
| n => n.toString
@[inline] def mkCategoryAntiquotParser (kind : Name) : ParserFn :=
-- allow "anonymous" antiquotations `$x` for the `term` category only
-- TODO: make customizable
-- one good example for a category that should not be anonymous is
-- `index` in `tests/lean/run/bigop.lean`.
let anonAntiquot := kind == `term;
(mkAntiquot (catNameToString kind) none anonAntiquot).fn
(mkAntiquot (catNameToString kind) none).fn
def categoryParserFnImpl (catName : Name) : ParserFn :=
fun ctx s =>

5
stage0/src/Init/Lean/Parser/Term.lean
View file

@ -78,7 +78,7 @@ def structInstField := parser! structInstLVal >> " := " >> termParser
@[builtinTermParser] def structInst := parser! symbol "{" appPrec >> optional (try (termParser >> "with")) >> sepBy structInstField ", " true >> optional ".." >> optional (" : " >> termParser) >> "}"
def typeSpec := parser! " : " >> termParser
def optType : Parser := optional typeSpec
@[builtinTermParser] def subtype := parser! "{" >> ident >> optType >> " // " >> termParser >> "}"
@[builtinTermParser] def subtype := parser! symbol "{" appPrec >> ident >> optType >> " // " >> termParser >> "}"
@[builtinTermParser] def listLit := parser! symbol "[" appPrec >> sepBy termParser "," true >> "]"
@[builtinTermParser] def arrayLit := parser! symbol "#[" appPrec >> sepBy termParser "," true >> "]"
@[builtinTermParser] def explicit := parser! symbol "@" appPrec >> termParser appPrec
@ -142,7 +142,8 @@ def bracketedDoSeq := parser! "{" >> doSeq >> "}"
@[builtinTermParser] def not := parser! symbol "¬" appPrec >> termParser 40
@[builtinTermParser] def bnot := parser! symbol "!" appPrec >> termParser 40
@[builtinTermParser] def uminus := parser! "-" >> termParser 100
-- symbol precedence should be higher, but must match the one of `sub` below
@[builtinTermParser] def uminus := parser! symbol "-" 65 >> termParser 100
def namedArgument := parser! try ("(" >> ident >> " := ") >> termParser >> ")"
@[builtinTermParser] def app := tparser! many1 (namedArgument <|> termParser appPrec)

182
stage0/src/Init/Lean/PrettyPrinter/Parenthesizer.lean
View file

@ -24,8 +24,9 @@ Recall that a Pratt parser greedily parses a leading token with precedence at le
by zero or more trailing tokens with precedence *higher* than `rbp`. Thus we should parenthesize a syntax node `stx`
produced by `p rbp` if
1. the left-most token in `stx` has precedence < `rbp`, or
2. the left-most token to *the right of* `stx` has precedence > `rbp` (because without parentheses, `p rbp` would have
1. the leading/any trailing token in `stx` has precedence < `rbp`/<= `rbp`, respectively (because without parentheses,
`p rbp` would not have parsed all of `stx`), or
2. the token to *the right of* `stx`, if any, has precedence > `rbp` (because without parentheses, `p rbp` would have
parsed it as well and made it a part of `stx`).
Note that in case 2, it is also sufficient to parenthesize a *parent* node as long as the offending token is still to
@ -43,10 +44,12 @@ parser that produced the token as well.
We transform the syntax tree and collect the necessary precedence information for that in a single traversal over the
syntax tree and the parser (as a `Lean.Expr`) that produced it. The traversal is right-to-left to cover case 2. More
specifically, for every Pratt parser call, we store as monadic state the precedence of the (currently) last visited
token (`lbp`), if any, and the precedence of the nested trailing Pratt parser call (`trailRbp`), if any. If `stP` is the
state resulting from the traversal of a Pratt parser call `p rbp`, and `st` is the state of the surrounding call, we
parenthesize if `rbp > stP.lbp` (case 1) or if `stP.trailRbp < st.lbp` (case 2).
specifically, for every Pratt parser call, we store as monadic state the (current) first and minimum precedence of any
token (`firstLbp`/`minLbp`) in this call, if any, and the precedence of the nested trailing Pratt parser call
(`trailRbp`), if any. We subtract 1 from the precedence of trailing tokens so that we don't have to differentiate
between leading and trailing tokens in `minLbp`. If `stP` is the state resulting from the traversal of a Pratt
parser call `p rbp`, and `st` is the state of the surrounding call, we parenthesize if `rbp > stP.minLbp` (case 1) or if
`stP.trailRbp < st.firstLbp` (case 2).
The primary traversal is over the parser `Expr`. The `visit` function takes such a parser and, if it is the application
of a constant `c`, looks for a `[parenthesizer c]` declaration. If it exists, we run it, which might again call `visit`.
@ -65,14 +68,15 @@ the left-most child being processed multiple times.
Ultimately, most parenthesizers are implemented via three primitives that do all the actual syntax traversal:
`visitParenthesizable mkParen rbp` recurses on the current node and afterwards transforms it with `mkParen` if the above
condition for `p rbp` is fulfilled. `visitToken lbp` does not recurse but updates the current `lbp` and advances one
node to the left. `visitArgs x` executes `x` on the right-most child of the current node and then advances one node
to the left (of the original current node).
condition for `p rbp` is fulfilled. `visitToken lbp` does not recurse but updates `firstLbp` and advances one node to
the left. `visitArgs x` executes `x` on the right-most child of the current node and then advances one node to the left
(of the original current node).
-/
prelude
import Init.Lean.Parser
import Init.Lean.Elab.Command
import Init.Lean.Elab.Quotation
import Init.Lean.Delaborator
namespace Lean
@ -151,8 +155,10 @@ structure Context :=
structure State :=
(stxTrav : Syntax.Traverser)
-- precedence of the current left-most token if any; see module doc for details
(lbp : Option Nat := none)
-- precedence of the current left-most token, if any; see module doc for details
(firstLbp : Option Nat := none)
-- current minimum precedence of tokens, if any; see module doc for details
(minLbp : Option Nat := none)
-- precedence of the trailing Pratt parser call if any; see module doc for details
(trailRbp : Option Nat := none)
@ -190,6 +196,13 @@ instance ParenthesizerM.monadTraverser : Syntax.MonadTraverser ParenthesizerM :=
open Syntax.MonadTraverser
/-- Execute `x` at the right-most child of the current node, if any, then advance to the left. -/
def visitArgs (x : ParenthesizerM Unit) : ParenthesizerM Unit := do
stx ← getCur;
when (stx.getArgs.size > 0) $
goDown (stx.getArgs.size - 1) *> x <* goUp;
goLeft
/--
Call an appropriate `[parenthesizer]` depending on the `Parser` `Expr` `p`. After the call, the traverser position
should be to the left of all nodes produced by `p`, or at the left-most child if there are no other nodes left. -/
@ -204,11 +217,17 @@ match c >>= (parenthesizerAttribute.ext.getState env).table.find? with
| some (f::_) => do
-- call first matching parenthesizer
f p
| _ => do
-- (try to) unfold definition and recurse
some p' ← liftM $ unfoldDefinition? p
| throw $ Exception.other $ "no known parenthesizer for '" ++ toString p ++ "'";
visit p'
| _ =>
-- `choice` is not an actual parser, so special-case it here
if c == some `choice then
visitArgs $ stx.getArgs.size.forM $ fun _ => do
stx ← getCur;
visit (mkConst stx.getKind)
else do
-- (try to) unfold definition and recurse
some p' ← liftM $ unfoldDefinition? p
| throw $ Exception.other $ "no known parenthesizer for '" ++ toString p ++ "'";
visit p'
open Lean.Parser
@ -220,48 +239,62 @@ instance monadQuotation : MonadQuotation ParenthesizerM := {
withFreshMacroScope := fun α x => x,
}
def visitAntiquot : ParenthesizerM Unit := do
stx ← getCur;
if Elab.Term.Quotation.isAntiquot stx then visitArgs $ do
-- antiquot syntax is, simplified, `"$" "$"* antiquotExpr ":" (nonReservedSymbol name) "*"?`
goLeft; goLeft; goLeft; -- now on `antiquotExpr`
visit (mkConst `Lean.Parser.antiquotExpr);
-- set precedence; see special case in `currLbp`
modify (fun st => { st with firstLbp := Parser.appPrec, minLbp := Parser.appPrec })
else
throw $ Exception.other $ "not an antiquotation"
/-- Recurse using `visit`, and parenthesize the result using `mkParen` if necessary. -/
def visitParenthesizable (mkParen : Syntax → Syntax) (rbp : Nat) : ParenthesizerM Unit := do
stx ← getCur;
idx ← getIdx;
⟨t, lbp, trailRbp⟩ ← get;
st ← get;
-- reset lbp/rbp and store `mkParen` for the recursive call
set { stxTrav := t };
set { stxTrav := st.stxTrav };
adaptReader (fun (ctx : Context) => { ctx with mkParen := some mkParen }) $
-- we assume that each node kind is produced by a 0-ary parser of the same name
visit (mkConst stx.getKind);
⟨_, some lbp', trailRbp'⟩ ← get
{ minLbp := some minLbpP, trailRbp := trailRbpP, .. } ← get
| panic! "visitParenthesizable: visited a term without tokens?!";
trace! `PrettyPrinter.parenthesize ("...precedences are " ++ fmt rbp ++ " >? " ++ fmt lbp' ++ ", " ++ fmt trailRbp' ++ " <? " ++ fmt lbp);
trace! `PrettyPrinter.parenthesize ("...precedences are " ++ fmt rbp ++ " >? " ++ fmt minLbpP ++ ", " ++ fmt trailRbpP ++ " <? " ++ fmt st.firstLbp);
-- Should we parenthesize?
trailRbp' ← if rbp > lbp' || (match trailRbp', lbp with some trailRbp', some lbp => trailRbp' < lbp | _, _ => false) then do
when (rbp > minLbpP || match trailRbpP, st.firstLbp with some trailRbpP, some firstLbp => trailRbpP < firstLbp | _, _ => false) $ do {
-- The recursive `visit` call, by the invariant, has moved to the next node to the left. In order to parenthesize
-- the original node, we must first move to the right, except if we already were at the left-most child in the first
-- place.
when (idx > 0) goRight;
setCur (mkParen stx);
stx ← getCur;
match stx.getHeadInfo, stx.getTailInfo with
| some hi, some ti =>
-- Move leading/trailing whitespace of `stx` outside of parentheses
let stx := (stx.setHeadInfo { hi with leading := "".toSubstring }).setTailInfo { ti with trailing := "".toSubstring };
let stx := mkParen stx;
let stx := (stx.setHeadInfo { hi with trailing := "".toSubstring }).setTailInfo { ti with leading := "".toSubstring };
setCur stx
| _, _ => setCur (mkParen stx);
stx ← getCur; trace! `PrettyPrinter.parenthesize ("parenthesized: " ++ stx.formatStx none);
goLeft;
-- after parenthesization, there is no more trailing parser
pure none
else pure trailRbp';
-- If we already had a token at this level (`lbp ≠ none`), keep the trailing parser. Otherwise, use the minimum of
-- `rbp` and `trailRbp'`.
let trailRbp := match trailRbp', lbp with
| _, some _ => trailRbp
| some trailRbp', _ => some (Nat.min trailRbp' rbp)
modify (fun st => { st with minLbp := appPrec, firstLbp := appPrec, trailRbp := none })
};
{ trailRbp := trailRbpP, .. } ← get;
-- If we already had a token at this level (`st.firstLbp ≠ none`), keep the trailing parser. Otherwise, use the minimum of
-- `rbp` and `trailRbpP`.
let trailRbp := match trailRbpP, st.firstLbp with
| _, some _ => st.trailRbp
| some trailRbpP, _ => some (Nat.min trailRbpP rbp)
| _, _ => some rbp;
modify (fun st => { st with lbp := lbp' <|> lbp, trailRbp := trailRbp })
modify (fun stP => { stP with trailRbp := trailRbp })
/-- Set token precedence and advance to the left. -/
def visitToken (lbp : Nat) : ParenthesizerM Unit := do
modify (fun st => { st with lbp := lbp });
goLeft
/-- Execute `x` at the right-most child of the current node, if any, then advance to the left. -/
def visitArgs (x : ParenthesizerM Unit) : ParenthesizerM Unit := do
stx ← getCur;
when (stx.getArgs.size > 0) $
goDown (stx.getArgs.size - 1) *> x <* goUp;
modify (fun st => { st with firstLbp := lbp });
goLeft
def evalNat (e : Expr) : ParenthesizerM Nat := do
@ -298,18 +331,33 @@ else
throw $ Exception.other $ "failed to evaluate Name argument: " ++ toString e
@[builtinParenthesizer termParser]
def termParser.parenthesizer : Parenthesizer | p => do
def termParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do
stx ← getCur;
-- this can happen at `termParser <|> many1 commandParser` in `Term.stxQuot`
if stx.getKind == nullKind then
throw $ Exception.other "BACKTRACK"
else do
lbp ← evalNat p.appArg!;
visitParenthesizable (fun stx => Unhygienic.run `(($stx))) lbp
@[builtinParenthesizer tacticParser]
def tacticParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do
lbp ← evalNat p.appArg!;
visitParenthesizable (fun stx => Unhygienic.run `(($stx))) lbp
visitParenthesizable (fun stx => Unhygienic.run `(tactic|($stx))) lbp
@[builtinParenthesizer levelParser]
def levelParser.parenthesizer : Parenthesizer | p => do
def levelParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do
lbp ← evalNat p.appArg!;
visitParenthesizable (fun stx => Unhygienic.run `(level|($stx))) lbp
@[builtinParenthesizer categoryParser]
def categoryParser.parenthesizer : Parenthesizer | p => visitAntiquot <|> do
stx ← getCur;
visit (mkConst stx.getKind)
@[builtinParenthesizer withAntiquot]
def withAntiquot.parenthesizer : Parenthesizer | p =>
visit (p.getArg! 1)
visitAntiquot <|> visit (p.getArg! 1)
@[builtinParenthesizer try]
def try.parenthesizer : Parenthesizer | p =>
@ -323,34 +371,35 @@ visit (p.getArg! 1) *> visit (p.getArg! 0)
def node.parenthesizer : Parenthesizer | p => do
stx ← getCur;
k ← evalName $ p.getArg! 0;
when (k != stx.getKind) $
--throw $ Exception.other $ "unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'";
when (k != stx.getKind) $ do {
trace! `PrettyPrinter.parenthesize.backtrack ("unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'");
-- HACK; see `orelse.parenthesizer`
throw $ Exception.other "BACKTRACK";
visitArgs $ visit p.appArg!
throw $ Exception.other "BACKTRACK"
};
visitArgs $ visit p.appArg!;
modify $ fun st => { st with minLbp := st.firstLbp }
@[builtinParenthesizer trailingNode]
def trailingNode.parenthesizer : Parenthesizer | p => do
stx ← getCur;
k ← evalName $ p.getArg! 0;
when (k != stx.getKind) $
--throw $ Exception.other $ "unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'";
when (k != stx.getKind) $ do {
trace! `PrettyPrinter.parenthesize.backtrack ("unexpected node kind '" ++ toString stx.getKind ++ "', expected '" ++ toString k ++ "'");
-- HACK; see `orelse.parenthesizer`
throw $ Exception.other "BACKTRACK";
throw $ Exception.other "BACKTRACK"
};
visitArgs $ do {
visit p.appArg!;
-- After visiting the node actually produced by the parser passed to `trailingNode`, we are positioned on the
-- After visiting the nodes actually produced by the parser passed to `trailingNode`, we are positioned on the
-- left-most child, which is the term injected by `trailingNode` in place of the recursion. Left recursion is not an
-- issue for the parenthesizer, so we can think of this child being produced by `termParser 0`, or whichever Pratt
-- parser is calling us; we only need to know its `mkParen`, which we retrieve from the context. Since the left-most
-- child was not actually part of the input to this parser, we should reset the `lbp` after processing it. We also
-- need to decrement it by 1 to acommodate the difference between handling of leading and trailing tokens.
some lbp ← State.lbp <$> get
-- parser is calling us; we only need to know its `mkParen`, which we retrieve from the context.
some lbp ← State.firstLbp <$> get -- the trailing token's precedence; subtract 1 as described above
| panic! "trailingNode.parenthesizer: visited a trailing term without tokens?!";
{ mkParen := some mkParen, .. } ← read
| panic! "trailingNode.parenthesizer called outside of visitParenthesizable call";
visitParenthesizable mkParen 0;
modify (fun st => { st with lbp := some (lbp - 1) })
visitAntiquot <|> visitParenthesizable mkParen 0;
modify $ fun st => { st with minLbp := Nat.min (st.minLbp.getD (lbp - 1)) (lbp - 1) }
}
@[builtinParenthesizer symbolAux]
@ -360,9 +409,9 @@ evalOptPrec p.appArg! >>= visitToken
@[builtinParenthesizer symbolNoWsAux] def symbolNoWsAux.parenthesizer := symbolAux.parenthesizer
@[builtinParenthesizer unicodeSymbol] def unicodeSymbol.parenthesizer := symbolAux.parenthesizer
@[builtinParenthesizer identNoAntiquot]
def identNoAntiquot.parenthesizer : Parenthesizer | p =>
visitToken appPrec
@[builtinParenthesizer identNoAntiquot] def identNoAntiquot.parenthesizer : Parenthesizer | p => visitToken appPrec
@[builtinParenthesizer rawIdent] def rawIdent.parenthesizer : Parenthesizer | p => visitToken appPrec
@[builtinParenthesizer nonReservedSymbol] def nonReservedSymbol.parenthesizer : Parenthesizer | p => visitToken appPrec
@[builtinParenthesizer charLitNoAntiquot] def charLitNoAntiquot.parenthesizer := identNoAntiquot.parenthesizer
@[builtinParenthesizer strLitNoAntiquot] def strLitNoAntiquot.parenthesizer := identNoAntiquot.parenthesizer
@ -390,7 +439,7 @@ visitArgs $ visit (p.getArg! 0)
@[builtinParenthesizer sepBy]
def sepBy.parenthesizer : Parenthesizer | p => do
stx ← getCur;
visitArgs $ (List.range stx.getArgs.size).forM $ fun i => visit (p.getArg! (i % 2))
visitArgs $ (List.range stx.getArgs.size).reverse.forM $ fun i => visit (p.getArg! (i % 2))
@[builtinParenthesizer sepBy1] def sepBy1.parenthesizer := sepBy.parenthesizer
@ -402,11 +451,20 @@ catch (visit (p.getArg! 0)) $ fun e => match e with
| Exception.other "BACKTRACK" => set st *> visit (p.getArg! 1)
| _ => throw e
@[builtinParenthesizer withPosition] def withPosition.parenthesizer : Parenthesizer | p => do
-- call closure with dummy position
visit $ mkApp (p.getArg! 0) (mkConst `sorryAx [levelZero])
@[builtinParenthesizer checkStackTop] def checkStackTop.parenthesizer : Parenthesizer | p => pure ()
@[builtinParenthesizer checkWsBefore] def checkWsBefore.parenthesizer : Parenthesizer | p => pure ()
@[builtinParenthesizer checkNoWsBefore] def checkNoWsBefore.parenthesizer : Parenthesizer | p => pure ()
@[builtinParenthesizer checkTailWs] def checkTailWs.parenthesizer : Parenthesizer | p => pure ()
@[builtinParenthesizer checkColGe] def checkColGe.parenthesizer : Parenthesizer | p => pure ()
open Lean.Parser.Command
@[builtinParenthesizer commentBody] def commentBody.parenthesizer : Parenthesizer | p => goLeft
@[builtinParenthesizer quotedSymbol] def quotedSymbol.parenthesizer : Parenthesizer | p => goLeft
@[builtinParenthesizer unquotedSymbol] def unquotedSymbol.parenthesizer : Parenthesizer | p => goLeft
section
open Lean.Parser.Term
@ -425,7 +483,7 @@ end
@[builtinParenthesizer Term.depArrow]
def depArrow.parenthesizer : Parenthesizer | p => do
visit (mkConst `Lean.PrettyPrinter.Parenthesizer.depArrow');
modify $ fun st => { st with lbp := some 25 }
modify $ fun st => { st with firstLbp := some 25, minLbp := some 25 }
end Parenthesizer
@ -436,6 +494,8 @@ pure st.stxTrav.cur
def parenthesizeTerm := parenthesize (mkApp (mkConst `Lean.Parser.termParser) (mkNatLit 0))
def parenthesizeCommand := parenthesize (mkApp (mkConst `Lean.Parser.commandParser) (mkNatLit 0))
@[init] private def regTraceClasses : IO Unit := do
registerTraceClass `PrettyPrinter.parenthesize;
pure ()

25
stage0/src/Init/Lean/Syntax.lean
View file

@ -233,9 +233,9 @@ partial def setHeadInfoAux (info : SourceInfo) : Syntax → Option Syntax
| atom _ val => some $ atom info val
| ident _ rawVal val pre => some $ ident info rawVal val pre
| node k args =>
match updateFirst args setHeadInfoAux args.size with
match updateFirst args setHeadInfoAux 0 with
| some args => some $ node k args
| noxne => none
| noxne => none
| stx => none
def setHeadInfo (stx : Syntax) (info : SourceInfo) : Syntax :=
@ -273,14 +273,17 @@ partial def reprint : Syntax → Option String
open Lean.Format
private def formatInfo (showPos : Bool) (info : Option SourceInfo) : Format :=
match info, showPos with
| some info, true => ":" ++ toString info.pos
| _, _ => ""
private def formatInfo (showInfo : Bool) (info : SourceInfo) (f : Format) : Format :=
if showInfo then
(match info.leading with some ss => repr ss.toString ++ ":" | _ => "") ++
f ++
(match info.pos with some pos => ":" ++ toString info.pos | _ => "") ++
(match info.trailing with some ss => ":" ++ repr ss.toString | _ => "")
else f
partial def formatStxAux (maxDepth : Option Nat) (showPos : Bool) : Nat → Syntax → Format
| _, atom info val => format (repr val) ++ formatInfo showPos info
| _, ident info _ val pre => format "`" ++ format val ++ formatInfo showPos info
partial def formatStxAux (maxDepth : Option Nat) (showInfo : Bool) : Nat → Syntax → Format
| _, atom info val => formatInfo showInfo info $ format (repr val)
| _, ident info _ val pre => formatInfo showInfo info $ format "`" ++ format val
| _, missing => "<missing>"
| depth, node kind args =>
let depth := depth + 1;
@ -297,8 +300,8 @@ partial def formatStxAux (maxDepth : Option Nat) (showPos : Bool) : Nat → Synt
if depth > maxDepth.getD depth then [".."] else args.toList.map (formatStxAux depth);
paren $ joinSep (header :: body) line
def formatStx (stx : Syntax) (maxDepth : Option Nat := none) (showPos := false) : Format :=
formatStxAux maxDepth showPos 0 stx
def formatStx (stx : Syntax) (maxDepth : Option Nat := none) (showInfo := false) : Format :=
formatStxAux maxDepth showInfo 0 stx
instance : HasFormat (Syntax) := ⟨formatStx⟩
instance : HasToString (Syntax) := ⟨toString ∘ format⟩

7
stage0/src/Init/Lean/ToExpr.lean
View file

@ -48,6 +48,13 @@ instance nameToExpr : ToExpr Name :=
{ toExpr := Name.toExprAux,
toTypeExpr := mkConst `Name }
instance optionToExpr {α : Type} [ToExpr α] : ToExpr (Option α) :=
let type := toTypeExpr α;
{ toExpr := fun o => match o with
| none => mkApp (mkConst `Option.none [levelZero]) type
| some a => mkApp2 (mkConst `Option.cons [levelZero]) type (toExpr a),
toTypeExpr := mkApp (mkConst `Option [levelZero]) type }
def List.toExprAux {α} [ToExpr α] (nilFn : Expr) (consFn : Expr) : List α → Expr
| [] => nilFn
| a::as => mkApp2 consFn (toExpr a) (List.toExprAux as)

2
stage0/src/Init/Lean/Util/Path.lean
View file

@ -55,7 +55,7 @@ match val with
| some val => parseSearchPath val sp
@[export lean_init_search_path]
def initSearchPath (path : Option String := "") : IO Unit :=
def initSearchPath (path : Option String := none) : IO Unit :=
match path with
| some path => parseSearchPath path >>= searchPathRef.set
| none => do

26
stage0/src/Lean.lean Normal file
View file

@ -0,0 +1,26 @@
/-
Copyright (c) 2019 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Leonardo de Moura
-/
-- import Lean.Compiler
-- import Lean.Environment
-- import Lean.Modifiers
-- import Lean.ProjFns
-- import Lean.Runtime
-- import Lean.Attributes
-- import Lean.Parser
-- import Lean.ReducibilityAttrs
-- import Lean.Elab
-- import Lean.EqnCompiler
-- import Lean.Class
-- import Lean.LocalContext
-- import Lean.MetavarContext
-- import Lean.AuxRecursor
-- import Lean.Linter
-- import Lean.Meta
-- import Lean.Util
-- import Lean.Eval
-- import Lean.Structure
-- import Lean.Delaborator
-- import Lean.PrettyPrinter

5
stage0/src/Lean/Util.lean Normal file
View file

@ -0,0 +1,5 @@
/-
Copyright (c) 2020 Microsoft Corporation. All rights reserved.
Released under Apache 2.0 license as described in the file LICENSE.
Authors: Leonardo de Moura
-/

3
stage0/src/frontends/lean/builtin_cmds.cpp
View file

@ -384,6 +384,7 @@ static environment eval_cmd(parser & p) {
out.set_caption("eval result");
scope_traces_as_messages scope_traces(p.get_stream_name(), p.cmd_pos());
std::streambuf * saved_cout = std::cout.rdbuf(out.get_text_stream().get_stream().rdbuf());
std::streambuf * saved_cerr = std::cerr.rdbuf(out.get_text_stream().get_stream().rdbuf());
object_ref r;
@ -393,11 +394,13 @@ static environment eval_cmd(parser & p) {
r = object_ref(ir::run_boxed(new_env, fn_name, args.size(), &args[0]));
} catch (exception & ex) {
std::cout.rdbuf(saved_cout);
std::cerr.rdbuf(saved_cerr);
out.report();
throw ex;
}
std::cout.rdbuf(saved_cout);
std::cerr.rdbuf(saved_cerr);
out.report();
if (io_result_is_error(r.raw())) {
message_builder msg = p.mk_message(p.cmd_pos(), p.pos(), ERROR);

7
stage0/src/stdlib.make.in
View file

@ -24,4 +24,11 @@ stdlib:
"OLEAN_OUT=${LIB}/lean"\
"LEANC_OPTS=${LEANC_OPTS}"\
"MORE_DEPS=${LEAN_BIN}/lean${CMAKE_EXECUTABLE_SUFFIX}";\
"${LEAN_BIN}/leanmake" lib\
PKG=Lean\
"OUT=${LIB}"\
"LIB_OUT=${LIB}/lean"\
"OLEAN_OUT=${LIB}/lean"\
"LEANC_OPTS=${LEANC_OPTS}"\
"MORE_DEPS=${LEAN_BIN}/lean${CMAKE_EXECUTABLE_SUFFIX}";\
fi

2
stage0/stdlib/CMakeLists.txt
View file

File diff suppressed because one or more lines are too long

29
stage0/stdlib/Init/Lean/Elab/BuiltinNotation.c
View file

@ -69,7 +69,6 @@ lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__18;
lean_object* l_Lean_Elab_Term_expandHave___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_getDeclName_x3f(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Elab_BuiltinNotation_2__elabClosedTerm___closed__1;
extern lean_object* l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__6;
lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__14;
lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__1;
lean_object* l_Lean_Elab_Term_elabBOr___closed__1;
@ -95,6 +94,7 @@ lean_object* lean_environment_find(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_decide___elambda__1___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Term_elabseqRight___closed__1;
lean_object* l_Lean_Elab_Term_elabMod___closed__1;
lean_object* l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34;
lean_object* l_Lean_Elab_Term_elabTermAndSynthesize(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandDollar(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_decide___elambda__1___closed__1;
@ -513,6 +513,7 @@ extern lean_object* l_Lean_Meta_reduceNative_x3f___closed__4;
extern lean_object* l___private_Init_Lean_Elab_Quotation_5__explodeHeadPat___lambda__1___closed__3;
lean_object* l___regBuiltin_Lean_Elab_Term_elabParserMacro___closed__1;
lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__5;
extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Term_elabGE(lean_object*);
lean_object* l_Lean_Elab_Term_elabAnonymousCtor___closed__14;
lean_object* l___regBuiltin_Lean_Elab_Term_elabNe(lean_object*);
@ -3527,11 +3528,9 @@ lean_object* _init_l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__32() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__6;
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_optionToExpr___rarg___lambda__1___closed__2;
x_2 = l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__5;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
@ -3541,6 +3540,18 @@ _start:
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__32;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* _init_l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
@ -3926,7 +3937,7 @@ x_176 = lean_array_push(x_38, x_25);
x_177 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31;
x_178 = l_Lean_addMacroScope(x_157, x_177, x_153);
x_179 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30;
x_180 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33;
x_180 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34;
x_181 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_181, 0, x_20);
lean_ctor_set(x_181, 1, x_179);
@ -4034,7 +4045,7 @@ x_233 = lean_array_push(x_38, x_25);
x_234 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__31;
x_235 = l_Lean_addMacroScope(x_213, x_234, x_153);
x_236 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__30;
x_237 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33;
x_237 = l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34;
x_238 = lean_alloc_ctor(3, 4, 0);
lean_ctor_set(x_238, 0, x_20);
lean_ctor_set(x_238, 1, x_236);
@ -9450,6 +9461,8 @@ l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__32 = _init_l_Lean_Elab_Te
lean_mark_persistent(l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__32);
l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33 = _init_l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33();
lean_mark_persistent(l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__33);
l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34 = _init_l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34();
lean_mark_persistent(l_Lean_Elab_Term_elabParserMacro___lambda__1___closed__34);
l_Lean_Elab_Term_elabParserMacro___closed__1 = _init_l_Lean_Elab_Term_elabParserMacro___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_elabParserMacro___closed__1);
l___regBuiltin_Lean_Elab_Term_elabParserMacro___closed__1 = _init_l___regBuiltin_Lean_Elab_Term_elabParserMacro___closed__1();

4
stage0/stdlib/Init/Lean/Elab/Quotation.c
View file

@ -336,6 +336,7 @@ extern lean_object* l_Lean_Expr_listLitAux___main___closed__4;
uint8_t l_Lean_Elab_Term_Quotation_isAntiquot(lean_object*);
lean_object* l___private_Init_Lean_Elab_Quotation_4__getHeadInfo___elambda__3___closed__2;
lean_object* l_Lean_mkFVar(lean_object*);
extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__3;
lean_object* l___private_Init_Lean_Elab_Quotation_6__compileStxMatch___main___closed__37;
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Quotation_2__quoteSyntax___main___spec__1___closed__4;
lean_object* l_Lean_Elab_Term_TermElabM_inhabited___boxed(lean_object*, lean_object*);
@ -578,7 +579,6 @@ extern lean_object* l_Lean_NameGenerator_Inhabited___closed__3;
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Quotation_2__quoteSyntax___main___spec__1___closed__5;
lean_object* l_Lean_Elab_Term_Quotation_unescapeAntiquot(lean_object*);
lean_object* l_Lean_Elab_Term_Quotation_HeadInfo_generalizes___boxed(lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__3;
uint8_t lean_string_dec_eq(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Quotation_stxQuot_expand___closed__19;
lean_object* l___private_Init_Lean_Elab_Quotation_4__getHeadInfo___boxed(lean_object*);
@ -2011,7 +2011,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__3;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__3;
x_3 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);

36
stage0/stdlib/Init/Lean/Elab/Syntax.c
View file

@ -73,7 +73,6 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__30;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__36;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__5;
uint8_t lean_name_eq(lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__6;
extern lean_object* l_Lean_Parser_Syntax_many1___elambda__1___closed__2;
lean_object* l_Lean_Elab_Command_Macro_mkFreshKind(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__104;
@ -211,7 +210,6 @@ lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__3;
lean_object* l_Lean_Syntax_isStrLit_x3f(lean_object*);
lean_object* l_Lean_Elab_Command_elabSyntax___closed__6;
lean_object* l_Lean_Elab_Command_expandMacroArgIntoPattern___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__4;
lean_object* l_Lean_Name_append___main(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_expandNotationItemIntoPattern(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__14;
@ -327,6 +325,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__52;
lean_object* l_Array_iterateMAux___main___at_Array_append___spec__1___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__34;
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__2(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__3;
lean_object* l_Array_umapMAux___main___at_Lean_Elab_Command_expandMacro___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__11;
extern lean_object* l_Lean_Parser_Command_declModifiers___elambda__1___closed__2;
@ -374,6 +373,7 @@ lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__76;
lean_object* l___private_Init_Lean_Elab_Syntax_8__regTraceClasses___closed__1;
extern lean_object* l_Lean_Elab_macroAttribute;
lean_object* l_Lean_Elab_Command_elabSyntax___closed__17;
lean_object* l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__1;
lean_object* l_Lean_Syntax_setArg(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__18;
lean_object* l_Lean_Elab_Command_elabNoKindMacroRulesAux___closed__3;
@ -398,6 +398,7 @@ lean_object* l_Lean_Syntax_getKind(lean_object*);
extern lean_object* l___private_Init_Lean_Elab_Binders_11__expandFunBindersAux___main___closed__4;
extern lean_object* l_Lean_Parser_Term_match__syntax___elambda__1___closed__2;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__24;
lean_object* l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__2;
lean_object* l_Array_findMAux___main___at_Lean_Elab_Command_elabMacroRulesAux___spec__1(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Syntax_atom___elambda__1___closed__2;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__48;
@ -445,6 +446,7 @@ lean_object* l_Lean_Elab_Command_getEnv(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__27;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__17;
lean_object* l_Lean_Elab_Command_elabSyntax___closed__23;
lean_object* l_Lean_mkTermIdFrom(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__21;
extern lean_object* l_Lean_mkOptionalNode___closed__1;
extern lean_object* l_Lean_Parser_Term_matchAlt___closed__2;
@ -473,6 +475,7 @@ lean_object* l_Lean_Elab_Command_setEnv(lean_object*, lean_object*, lean_object*
lean_object* l_Array_umapMAux___main___at___private_Init_Lean_Elab_Syntax_7__antiquote___main___spec__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Command_elabReserve___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_checkLeftRec___closed__7;
extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__2;
lean_object* l_Array_iterateMAux___main___at___private_Init_Lean_Elab_Syntax_2__mkParserSeq___spec__1___closed__9;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Command_syntaxCat___elambda__1___closed__2;
@ -539,6 +542,7 @@ extern lean_object* l_Lean_Parser_Term_orelse___elambda__1___closed__1;
lean_object* l_Lean_Elab_Command_elabMacroRulesAux___closed__12;
extern lean_object* l___private_Init_Lean_Elab_Quotation_2__quoteSyntax___main___closed__44;
lean_object* l_Lean_Elab_Command_expandMacroArgIntoSyntaxItem___boxed(lean_object*, lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__5;
lean_object* l_Lean_Elab_Command_elabDeclareSyntaxCat(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__2;
lean_object* l_Lean_Elab_Term_toParserDescrAux___main___closed__70;
@ -1370,13 +1374,33 @@ lean_dec(x_2);
return x_7;
}
}
lean_object* _init_l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__3;
x_3 = l_Lean_mkTermIdFrom(x_1, x_2);
return x_3;
}
}
lean_object* _init_l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_optionToExpr___rarg___lambda__1___closed__2;
x_2 = l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__5;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1(lean_object* x_1) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_2;
x_2 = l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__4;
x_2 = l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__1;
return x_2;
}
else
@ -1396,7 +1420,7 @@ x_11 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_11, 0, x_10);
lean_ctor_set(x_11, 1, x_9);
x_12 = lean_array_push(x_8, x_11);
x_13 = l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__6;
x_13 = l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__2;
x_14 = l_Lean_mkCAppStx(x_13, x_12);
return x_14;
}
@ -14880,6 +14904,10 @@ l_Lean_Elab_Term_checkLeftRec___closed__8 = _init_l_Lean_Elab_Term_checkLeftRec_
lean_mark_persistent(l_Lean_Elab_Term_checkLeftRec___closed__8);
l_Lean_Elab_Term_checkLeftRec___closed__9 = _init_l_Lean_Elab_Term_checkLeftRec___closed__9();
lean_mark_persistent(l_Lean_Elab_Term_checkLeftRec___closed__9);
l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__1 = _init_l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__1();
lean_mark_persistent(l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__1);
l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__2 = _init_l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__2();
lean_mark_persistent(l___private_Init_Lean_Syntax_9__quoteOption___at_Lean_Elab_Term_toParserDescrAux___main___spec__1___closed__2);
l_Lean_Elab_Term_toParserDescrAux___main___closed__1 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__1();
lean_mark_persistent(l_Lean_Elab_Term_toParserDescrAux___main___closed__1);
l_Lean_Elab_Term_toParserDescrAux___main___closed__2 = _init_l_Lean_Elab_Term_toParserDescrAux___main___closed__2();

4
stage0/stdlib/Init/Lean/Elab/Term.c
View file

@ -541,7 +541,6 @@ lean_object* l_Lean_Elab_Term_throwTypeMismatchError___rarg___closed__2;
lean_object* l_Lean_Elab_Term_elabNamedHole___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_synthesizeInst___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_termElabAttribute;
lean_object* l_IO_println___at_Lean_Meta_MetaHasEval___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_expandCDot_x3f___closed__1;
lean_object* l_Lean_Elab_Term_elabArrayLit___closed__10;
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__2;
@ -882,6 +881,7 @@ lean_object* l_Lean_Elab_getBetterRef(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_mkAuxName___closed__2;
lean_object* l___regBuiltin_Lean_Elab_Term_elabStr___closed__1;
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Elab_Term_Lean_Elab_MonadMacroAdapter___closed__6;
lean_object* l_Lean_Elab_Term_tryLiftAndCoe___closed__3;
lean_object* l_Lean_Elab_Term_decLevel___closed__6;
@ -28701,7 +28701,7 @@ lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = l_Lean_Message_toString(x_1);
x_4 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_4, 0, x_3);
x_5 = l_IO_println___at_Lean_Meta_MetaHasEval___spec__1(x_4, x_2);
x_5 = l_IO_println___at_IO_runMeta___spec__1(x_4, x_2);
return x_5;
}
}

708
stage0/stdlib/Init/Lean/Meta/Basic.c
View file

@ -43,12 +43,14 @@ lean_object* l_Lean_Meta_throwBug(lean_object*);
lean_object* l_Lean_Meta_whnfForall(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_instantiateMVars(lean_object*, lean_object*);
lean_object* l_Lean_Meta_dbgTrace___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_io_prim_put_str(lean_object*, lean_object*);
lean_object* l_Lean_Meta_InfoCacheKey_Inhabited;
lean_object* l_Lean_Meta_getEnv(lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescope___spec__2___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_isReadOnlyExprMVar___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_addLevelMVarDecl(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Format_pretty(lean_object*, lean_object*);
extern lean_object* l_EIO_Monad___closed__1;
lean_object* l_Lean_Meta_savingCache(lean_object*);
lean_object* l_Lean_Meta_addContext___boxed(lean_object*, lean_object*, lean_object*);
@ -93,6 +95,7 @@ lean_object* l_Option_hash___at_Lean_Meta_InfoCacheKey_Hashable___spec__1___boxe
lean_object* l_Lean_Meta_lambdaMetaTelescope___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withLetDecl___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_instantiateLevelMVars(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__6(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_forallBoundedTelescope(lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_7__forallMetaTelescopeReducingAux___main___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_array_push(lean_object*, lean_object*);
@ -116,6 +119,7 @@ lean_object* l_Lean_Meta_throwBug___rarg(lean_object*, lean_object*, lean_object
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescope___spec__3___rarg___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_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___at_Lean_Meta_isClassExpensive___main___spec__2(uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkInferTypeRef___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__5___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___at_Lean_Meta_forallBoundedTelescope___spec__2(lean_object*);
lean_object* l_Lean_Meta_isReadOnlyLevelMVar___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_6__lambdaTelescopeAux(lean_object*);
@ -135,6 +139,7 @@ lean_object* l_Lean_Meta_getConst___boxed(lean_object*, lean_object*, lean_objec
lean_object* lean_nat_add(lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkAuxDefinition(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withTransparency___rarg(uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_forM___at_IO_runMeta___spec__3___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Meta_forallTelescopeReducing(lean_object*);
lean_object* l_Lean_Meta_MetaM_inhabited___rarg(lean_object*);
lean_object* l_Lean_Meta_TransparencyMode_Hashable___closed__1;
@ -224,6 +229,7 @@ lean_object* l_Lean_Meta_metaExt___closed__1;
lean_object* l_Lean_Meta_run___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l_ReaderT_pure___at_Lean_Meta_MetaExtState_inhabited___spec__1(lean_object*);
lean_object* l_Lean_Meta_InfoCacheKey_HasBeq___boxed(lean_object*, lean_object*);
extern lean_object* l_IO_println___rarg___closed__1;
lean_object* l_Lean_Meta_setMVarKind(lean_object*, uint8_t, lean_object*, lean_object*);
extern lean_object* l_PersistentArray_empty___closed__3;
uint8_t l_Array_isEqvAux___main___at_Lean_Meta_withLocalContext___spec__1(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -301,10 +307,12 @@ lean_object* l_Lean_Meta_assignExprMVar(lean_object*, lean_object*, lean_object*
lean_object* l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallTelescopeReducing___spec__5(lean_object*);
lean_object* l_Lean_Meta_withLocalDecl___rarg(lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_IO_runMeta___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux(lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__4___rarg___lambda__1(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkIsExprDefEqAuxRef___closed__1;
lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_fmt___at_Lean_Message_toString___spec__1(lean_object*);
lean_object* l_Lean_Meta_hasAssignableMVar(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentHashMap_empty___at_Lean_Meta_run___spec__1___closed__1;
lean_object* l_Lean_Meta_mkIsExprDefEqAuxRef___lambda__1___closed__2;
@ -324,6 +332,7 @@ lean_object* l_Lean_Meta_mkFreshExprMVar(lean_object*, lean_object*, uint8_t, le
uint8_t l_Lean_Expr_hasMVar(lean_object*);
lean_object* l_Lean_Meta_tracer___closed__2;
lean_object* l_Lean_Meta_withAtLeastTransparency___rarg(uint8_t, lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_6__lambdaTelescopeAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_metavar_ctx_mk_decl(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Meta_synthPendingRef;
@ -334,6 +343,7 @@ lean_object* l_Lean_Meta_elimMVarDeps___boxed(lean_object*, lean_object*, lean_o
lean_object* l_Lean_Meta_withMVarContext___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_MetavarContext_incDepth(lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at___private_Init_Lean_Meta_Basic_6__lambdaTelescopeAux___main___spec__1___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__6___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_whnfRef;
lean_object* l_Lean_Meta_synthPending(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_MetaExtState_inhabited___closed__3;
@ -378,6 +388,7 @@ lean_object* l___private_Init_Lean_Meta_Basic_5__forallTelescopeReducingAux___at
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__4(lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Meta_mkMetaExtension___spec__1(lean_object*, lean_object*);
uint8_t l_Lean_Meta_TransparencyMode_lt(uint8_t, uint8_t);
lean_object* l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4(lean_object*, lean_object*);
lean_object* l_Lean_Meta_assignExprMVar___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkInferTypeRef(lean_object*);
lean_object* l_Lean_Meta_isDelayedAssigned(lean_object*, lean_object*, lean_object*);
@ -403,6 +414,7 @@ lean_object* l_Lean_Meta_withConfig(lean_object*);
lean_object* l_Lean_Meta_withNewMCtxDepth(lean_object*);
lean_object* l_Lean_Meta_shouldReduceReducibleOnly(lean_object*, lean_object*);
lean_object* l_Lean_Meta_getMCtx___rarg(lean_object*);
lean_object* l_IO_print___at_IO_runMeta___spec__2(lean_object*, lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__4___rarg(lean_object*, uint8_t, 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_Meta_whnfD(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkWHNFRef___closed__1;
@ -419,6 +431,7 @@ lean_object* l_Lean_Meta_resettingSynthInstanceCache___rarg___closed__1;
lean_object* l_Lean_Meta_TransparencyMode_hash___boxed(lean_object*);
lean_object* l_Lean_Meta_isReadOnlyOrSyntheticOpaqueExprMVar(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_forallBoundedTelescope___spec__3___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__5(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_getMCtx(lean_object*);
lean_object* l_unsafeCast(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_2__getTraceState(lean_object*);
@ -429,7 +442,7 @@ lean_object* l_Lean_Meta_getParamNames(lean_object*, lean_object*, lean_object*)
lean_object* l_Lean_Meta_mkFreshLevelMVarId___boxed(lean_object*);
extern lean_object* l_HashMap_Inhabited___closed__1;
lean_object* l_Lean_Meta_mkInferTypeRef___closed__1;
lean_object* l_IO_runMeta___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_IO_runMeta___rarg(lean_object*, lean_object*, lean_object*, uint8_t, lean_object*);
lean_object* l_Lean_Meta_isReadOnlyLevelMVar(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_mkWHNFRef___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstance(lean_object*);
@ -459,10 +472,12 @@ lean_object* l_Lean_Meta_forallBoundedTelescope___rarg(lean_object*, lean_object
extern lean_object* l_Lean_NameGenerator_Inhabited___closed__3;
lean_object* l___private_Init_Lean_Meta_Basic_8__lambdaMetaTelescopeAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_registerEnvExtensionUnsafe___at_Lean_Meta_mkMetaExtension___spec__1___closed__1;
lean_object* l_PersistentArray_forM___at_IO_runMeta___spec__3(lean_object*, lean_object*);
lean_object* l_Lean_Meta_getFVarLocalDecl___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withLocalContext(lean_object*);
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Basic_4__forallTelescopeReducingAuxAux___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*, lean_object*, uint8_t, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Meta_getConstAux___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_withNewLocalInstances___main___at_Lean_Meta_isClassExpensive___main___spec__6___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_getFVarLocalDecl(lean_object*, lean_object*, lean_object*);
@ -50184,102 +50199,595 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Meta_run___rarg), 3, 0);
return x_2;
}
}
lean_object* l_IO_runMeta___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
lean_object* l_IO_print___at_IO_runMeta___spec__2(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16;
x_5 = l_Lean_LocalContext_Inhabited___closed__2;
x_6 = l_Array_empty___closed__1;
x_7 = lean_unsigned_to_nat(0u);
x_8 = l_Lean_defaultMaxRecDepth;
x_9 = lean_alloc_ctor(0, 5, 0);
lean_ctor_set(x_9, 0, x_3);
lean_ctor_set(x_9, 1, x_5);
lean_ctor_set(x_9, 2, x_6);
lean_ctor_set(x_9, 3, x_7);
lean_ctor_set(x_9, 4, x_8);
x_10 = l_Lean_MetavarContext_Inhabited___closed__1;
x_11 = l_Lean_Meta_run___rarg___closed__5;
x_12 = l_Lean_NameGenerator_Inhabited___closed__3;
x_13 = l_Lean_TraceState_Inhabited___closed__1;
x_14 = l_PersistentArray_empty___closed__3;
x_15 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_15, 0, x_2);
lean_ctor_set(x_15, 1, x_10);
lean_ctor_set(x_15, 2, x_11);
lean_ctor_set(x_15, 3, x_12);
lean_ctor_set(x_15, 4, x_13);
lean_ctor_set(x_15, 5, x_14);
x_16 = lean_apply_2(x_1, x_9, x_15);
if (lean_obj_tag(x_16) == 0)
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = l_Lean_Options_empty;
x_4 = l_Lean_Format_pretty(x_1, x_3);
x_5 = lean_io_prim_put_str(x_4, x_2);
lean_dec(x_4);
return x_5;
}
}
lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
uint8_t x_17;
x_17 = !lean_is_exclusive(x_16);
if (x_17 == 0)
lean_object* x_3;
x_3 = l_IO_print___at_IO_runMeta___spec__2(x_1, x_2);
if (lean_obj_tag(x_3) == 0)
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_18 = lean_ctor_get(x_16, 0);
x_19 = lean_ctor_get(x_16, 1);
x_20 = lean_ctor_get(x_19, 0);
lean_inc(x_20);
lean_dec(x_19);
x_21 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_21, 0, x_18);
lean_ctor_set(x_21, 1, x_20);
lean_ctor_set(x_16, 1, x_4);
lean_ctor_set(x_16, 0, x_21);
return x_16;
lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_4 = lean_ctor_get(x_3, 1);
lean_inc(x_4);
lean_dec(x_3);
x_5 = l_IO_println___rarg___closed__1;
x_6 = lean_io_prim_put_str(x_5, x_4);
return x_6;
}
else
{
lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25; lean_object* x_26;
x_22 = lean_ctor_get(x_16, 0);
x_23 = lean_ctor_get(x_16, 1);
uint8_t x_7;
x_7 = !lean_is_exclusive(x_3);
if (x_7 == 0)
{
return x_3;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_8 = lean_ctor_get(x_3, 0);
x_9 = lean_ctor_get(x_3, 1);
lean_inc(x_9);
lean_inc(x_8);
lean_dec(x_3);
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;
}
}
}
}
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_1);
x_5 = lean_nat_dec_lt(x_2, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
lean_object* x_6; lean_object* x_7;
lean_dec(x_2);
x_6 = lean_box(0);
x_7 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_7, 0, x_6);
lean_ctor_set(x_7, 1, x_3);
return x_7;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11;
x_8 = lean_array_fget(x_1, x_2);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_2, x_9);
lean_dec(x_2);
x_11 = l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4(x_8, x_3);
lean_dec(x_8);
if (lean_obj_tag(x_11) == 0)
{
lean_object* x_12;
x_12 = lean_ctor_get(x_11, 1);
lean_inc(x_12);
lean_dec(x_11);
x_2 = x_10;
x_3 = x_12;
goto _start;
}
else
{
uint8_t x_14;
lean_dec(x_10);
x_14 = !lean_is_exclusive(x_11);
if (x_14 == 0)
{
return x_11;
}
else
{
lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_15 = lean_ctor_get(x_11, 0);
x_16 = lean_ctor_get(x_11, 1);
lean_inc(x_16);
lean_inc(x_15);
lean_dec(x_11);
x_17 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_17, 0, x_15);
lean_ctor_set(x_17, 1, x_16);
return x_17;
}
}
}
}
}
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
x_4 = lean_array_get_size(x_1);
x_5 = lean_nat_dec_lt(x_2, x_4);
lean_dec(x_4);
if (x_5 == 0)
{
lean_object* x_6; lean_object* x_7;
lean_dec(x_2);
x_6 = lean_box(0);
x_7 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_7, 0, x_6);
lean_ctor_set(x_7, 1, x_3);
return x_7;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_8 = lean_array_fget(x_1, x_2);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_2, x_9);
lean_dec(x_2);
x_11 = l_Lean_fmt___at_Lean_Message_toString___spec__1(x_8);
x_12 = l_IO_println___at_IO_runMeta___spec__1(x_11, x_3);
if (lean_obj_tag(x_12) == 0)
{
lean_object* x_13;
x_13 = lean_ctor_get(x_12, 1);
lean_inc(x_13);
lean_dec(x_12);
x_2 = x_10;
x_3 = x_13;
goto _start;
}
else
{
uint8_t x_15;
lean_dec(x_10);
x_15 = !lean_is_exclusive(x_12);
if (x_15 == 0)
{
return x_12;
}
else
{
lean_object* x_16; lean_object* x_17; lean_object* x_18;
x_16 = lean_ctor_get(x_12, 0);
x_17 = lean_ctor_get(x_12, 1);
lean_inc(x_17);
lean_inc(x_16);
lean_dec(x_12);
x_18 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_18, 0, x_16);
lean_ctor_set(x_18, 1, x_17);
return x_18;
}
}
}
}
}
lean_object* l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_1) == 0)
{
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_unsigned_to_nat(0u);
x_5 = l_Array_forMAux___main___at_IO_runMeta___spec__5(x_3, x_4, x_2);
return x_5;
}
else
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = lean_ctor_get(x_1, 0);
x_7 = lean_unsigned_to_nat(0u);
x_8 = l_Array_forMAux___main___at_IO_runMeta___spec__6(x_6, x_7, x_2);
return x_8;
}
}
}
lean_object* l_PersistentArray_forM___at_IO_runMeta___spec__3(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_ctor_get(x_1, 1);
x_5 = l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4(x_3, x_2);
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = lean_ctor_get(x_5, 1);
lean_inc(x_6);
lean_dec(x_5);
x_7 = lean_unsigned_to_nat(0u);
x_8 = l_Array_forMAux___main___at_IO_runMeta___spec__6(x_4, x_7, x_6);
return x_8;
}
else
{
uint8_t x_9;
x_9 = !lean_is_exclusive(x_5);
if (x_9 == 0)
{
return x_5;
}
else
{
lean_object* x_10; lean_object* x_11; lean_object* x_12;
x_10 = lean_ctor_get(x_5, 0);
x_11 = lean_ctor_get(x_5, 1);
lean_inc(x_11);
lean_inc(x_10);
lean_dec(x_5);
x_12 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_12, 0, x_10);
lean_ctor_set(x_12, 1, x_11);
return x_12;
}
}
}
}
lean_object* l_IO_runMeta___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, uint8_t x_4, lean_object* x_5) {
_start:
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; lean_object* x_16; lean_object* x_17;
x_6 = l_Lean_LocalContext_Inhabited___closed__2;
x_7 = l_Array_empty___closed__1;
x_8 = lean_unsigned_to_nat(0u);
x_9 = l_Lean_defaultMaxRecDepth;
x_10 = lean_alloc_ctor(0, 5, 0);
lean_ctor_set(x_10, 0, x_3);
lean_ctor_set(x_10, 1, x_6);
lean_ctor_set(x_10, 2, x_7);
lean_ctor_set(x_10, 3, x_8);
lean_ctor_set(x_10, 4, x_9);
x_11 = l_Lean_MetavarContext_Inhabited___closed__1;
x_12 = l_Lean_Meta_run___rarg___closed__5;
x_13 = l_Lean_NameGenerator_Inhabited___closed__3;
x_14 = l_Lean_TraceState_Inhabited___closed__1;
x_15 = l_PersistentArray_empty___closed__3;
x_16 = lean_alloc_ctor(0, 6, 0);
lean_ctor_set(x_16, 0, x_2);
lean_ctor_set(x_16, 1, x_11);
lean_ctor_set(x_16, 2, x_12);
lean_ctor_set(x_16, 3, x_13);
lean_ctor_set(x_16, 4, x_14);
lean_ctor_set(x_16, 5, x_15);
x_17 = lean_apply_2(x_1, x_10, x_16);
if (lean_obj_tag(x_17) == 0)
{
uint8_t x_18;
x_18 = !lean_is_exclusive(x_17);
if (x_18 == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22;
x_19 = lean_ctor_get(x_17, 0);
x_20 = lean_ctor_get(x_17, 1);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
x_22 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_22, 0, x_19);
lean_ctor_set(x_22, 1, x_21);
if (x_4 == 0)
{
lean_dec(x_20);
lean_ctor_set(x_17, 1, x_5);
lean_ctor_set(x_17, 0, x_22);
return x_17;
}
else
{
lean_object* x_23; lean_object* x_24; lean_object* x_25;
lean_free_object(x_17);
x_23 = lean_ctor_get(x_20, 4);
lean_inc(x_23);
lean_inc(x_22);
lean_dec(x_16);
lean_dec(x_20);
x_24 = lean_ctor_get(x_23, 0);
lean_inc(x_24);
lean_dec(x_23);
x_25 = lean_alloc_ctor(0, 2, 0);
x_25 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_24, x_5);
lean_dec(x_24);
if (lean_obj_tag(x_25) == 0)
{
uint8_t x_26;
x_26 = !lean_is_exclusive(x_25);
if (x_26 == 0)
{
lean_object* x_27;
x_27 = lean_ctor_get(x_25, 0);
lean_dec(x_27);
lean_ctor_set(x_25, 0, x_22);
lean_ctor_set(x_25, 1, x_24);
x_26 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_26, 0, x_25);
lean_ctor_set(x_26, 1, x_4);
return x_26;
return x_25;
}
else
{
lean_object* x_28; lean_object* x_29;
x_28 = lean_ctor_get(x_25, 1);
lean_inc(x_28);
lean_dec(x_25);
x_29 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_29, 0, x_22);
lean_ctor_set(x_29, 1, x_28);
return x_29;
}
}
else
{
uint8_t x_27;
x_27 = !lean_is_exclusive(x_16);
if (x_27 == 0)
uint8_t x_30;
lean_dec(x_22);
x_30 = !lean_is_exclusive(x_25);
if (x_30 == 0)
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
x_28 = lean_ctor_get(x_16, 0);
x_29 = lean_ctor_get(x_16, 1);
lean_dec(x_29);
x_30 = l_Lean_Meta_Exception_toStr(x_28);
x_31 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_31, 0, x_30);
lean_ctor_set(x_16, 1, x_4);
lean_ctor_set(x_16, 0, x_31);
return x_16;
return x_25;
}
else
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35;
x_32 = lean_ctor_get(x_16, 0);
lean_object* x_31; lean_object* x_32; lean_object* x_33;
x_31 = lean_ctor_get(x_25, 0);
x_32 = lean_ctor_get(x_25, 1);
lean_inc(x_32);
lean_dec(x_16);
x_33 = l_Lean_Meta_Exception_toStr(x_32);
x_34 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_34, 0, x_33);
x_35 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_35, 0, x_34);
lean_ctor_set(x_35, 1, x_4);
return x_35;
lean_inc(x_31);
lean_dec(x_25);
x_33 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_33, 0, x_31);
lean_ctor_set(x_33, 1, x_32);
return x_33;
}
}
}
}
else
{
lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37;
x_34 = lean_ctor_get(x_17, 0);
x_35 = lean_ctor_get(x_17, 1);
lean_inc(x_35);
lean_inc(x_34);
lean_dec(x_17);
x_36 = lean_ctor_get(x_35, 0);
lean_inc(x_36);
x_37 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_37, 0, x_34);
lean_ctor_set(x_37, 1, x_36);
if (x_4 == 0)
{
lean_object* x_38;
lean_dec(x_35);
x_38 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_38, 0, x_37);
lean_ctor_set(x_38, 1, x_5);
return x_38;
}
else
{
lean_object* x_39; lean_object* x_40; lean_object* x_41;
x_39 = lean_ctor_get(x_35, 4);
lean_inc(x_39);
lean_dec(x_35);
x_40 = lean_ctor_get(x_39, 0);
lean_inc(x_40);
lean_dec(x_39);
x_41 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_40, x_5);
lean_dec(x_40);
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, 1);
lean_inc(x_42);
if (lean_is_exclusive(x_41)) {
lean_ctor_release(x_41, 0);
lean_ctor_release(x_41, 1);
x_43 = x_41;
} else {
lean_dec_ref(x_41);
x_43 = lean_box(0);
}
if (lean_is_scalar(x_43)) {
x_44 = lean_alloc_ctor(0, 2, 0);
} else {
x_44 = x_43;
}
lean_ctor_set(x_44, 0, x_37);
lean_ctor_set(x_44, 1, x_42);
return x_44;
}
else
{
lean_object* x_45; lean_object* x_46; lean_object* x_47; lean_object* x_48;
lean_dec(x_37);
x_45 = lean_ctor_get(x_41, 0);
lean_inc(x_45);
x_46 = lean_ctor_get(x_41, 1);
lean_inc(x_46);
if (lean_is_exclusive(x_41)) {
lean_ctor_release(x_41, 0);
lean_ctor_release(x_41, 1);
x_47 = x_41;
} else {
lean_dec_ref(x_41);
x_47 = lean_box(0);
}
if (lean_is_scalar(x_47)) {
x_48 = lean_alloc_ctor(1, 2, 0);
} else {
x_48 = x_47;
}
lean_ctor_set(x_48, 0, x_45);
lean_ctor_set(x_48, 1, x_46);
return x_48;
}
}
}
}
else
{
uint8_t x_49;
x_49 = !lean_is_exclusive(x_17);
if (x_49 == 0)
{
lean_object* x_50; lean_object* x_51; lean_object* x_52; lean_object* x_53;
x_50 = lean_ctor_get(x_17, 0);
x_51 = lean_ctor_get(x_17, 1);
x_52 = l_Lean_Meta_Exception_toStr(x_50);
x_53 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_53, 0, x_52);
if (x_4 == 0)
{
lean_dec(x_51);
lean_ctor_set(x_17, 1, x_5);
lean_ctor_set(x_17, 0, x_53);
return x_17;
}
else
{
lean_object* x_54; lean_object* x_55; lean_object* x_56;
lean_free_object(x_17);
x_54 = lean_ctor_get(x_51, 4);
lean_inc(x_54);
lean_dec(x_51);
x_55 = lean_ctor_get(x_54, 0);
lean_inc(x_55);
lean_dec(x_54);
x_56 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_55, x_5);
lean_dec(x_55);
if (lean_obj_tag(x_56) == 0)
{
uint8_t x_57;
x_57 = !lean_is_exclusive(x_56);
if (x_57 == 0)
{
lean_object* x_58;
x_58 = lean_ctor_get(x_56, 0);
lean_dec(x_58);
lean_ctor_set_tag(x_56, 1);
lean_ctor_set(x_56, 0, x_53);
return x_56;
}
else
{
lean_object* x_59; lean_object* x_60;
x_59 = lean_ctor_get(x_56, 1);
lean_inc(x_59);
lean_dec(x_56);
x_60 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_60, 0, x_53);
lean_ctor_set(x_60, 1, x_59);
return x_60;
}
}
else
{
uint8_t x_61;
lean_dec(x_53);
x_61 = !lean_is_exclusive(x_56);
if (x_61 == 0)
{
return x_56;
}
else
{
lean_object* x_62; lean_object* x_63; lean_object* x_64;
x_62 = lean_ctor_get(x_56, 0);
x_63 = lean_ctor_get(x_56, 1);
lean_inc(x_63);
lean_inc(x_62);
lean_dec(x_56);
x_64 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_64, 0, x_62);
lean_ctor_set(x_64, 1, x_63);
return x_64;
}
}
}
}
else
{
lean_object* x_65; lean_object* x_66; lean_object* x_67; lean_object* x_68;
x_65 = lean_ctor_get(x_17, 0);
x_66 = lean_ctor_get(x_17, 1);
lean_inc(x_66);
lean_inc(x_65);
lean_dec(x_17);
x_67 = l_Lean_Meta_Exception_toStr(x_65);
x_68 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_68, 0, x_67);
if (x_4 == 0)
{
lean_object* x_69;
lean_dec(x_66);
x_69 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_69, 0, x_68);
lean_ctor_set(x_69, 1, x_5);
return x_69;
}
else
{
lean_object* x_70; lean_object* x_71; lean_object* x_72;
x_70 = lean_ctor_get(x_66, 4);
lean_inc(x_70);
lean_dec(x_66);
x_71 = lean_ctor_get(x_70, 0);
lean_inc(x_71);
lean_dec(x_70);
x_72 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_71, x_5);
lean_dec(x_71);
if (lean_obj_tag(x_72) == 0)
{
lean_object* x_73; lean_object* x_74; lean_object* x_75;
x_73 = lean_ctor_get(x_72, 1);
lean_inc(x_73);
if (lean_is_exclusive(x_72)) {
lean_ctor_release(x_72, 0);
lean_ctor_release(x_72, 1);
x_74 = x_72;
} else {
lean_dec_ref(x_72);
x_74 = lean_box(0);
}
if (lean_is_scalar(x_74)) {
x_75 = lean_alloc_ctor(1, 2, 0);
} else {
x_75 = x_74;
lean_ctor_set_tag(x_75, 1);
}
lean_ctor_set(x_75, 0, x_68);
lean_ctor_set(x_75, 1, x_73);
return x_75;
}
else
{
lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79;
lean_dec(x_68);
x_76 = lean_ctor_get(x_72, 0);
lean_inc(x_76);
x_77 = lean_ctor_get(x_72, 1);
lean_inc(x_77);
if (lean_is_exclusive(x_72)) {
lean_ctor_release(x_72, 0);
lean_ctor_release(x_72, 1);
x_78 = x_72;
} else {
lean_dec_ref(x_72);
x_78 = lean_box(0);
}
if (lean_is_scalar(x_78)) {
x_79 = lean_alloc_ctor(1, 2, 0);
} else {
x_79 = x_78;
}
lean_ctor_set(x_79, 0, x_76);
lean_ctor_set(x_79, 1, x_77);
return x_79;
}
}
}
}
}
@ -50288,10 +50796,56 @@ lean_object* l_IO_runMeta(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_IO_runMeta___rarg), 4, 0);
x_2 = lean_alloc_closure((void*)(l_IO_runMeta___rarg___boxed), 5, 0);
return x_2;
}
}
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_forMAux___main___at_IO_runMeta___spec__5(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Array_forMAux___main___at_IO_runMeta___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_forMAux___main___at_IO_runMeta___spec__6(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_PersistentArray_forMAux___main___at_IO_runMeta___spec__4(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_PersistentArray_forM___at_IO_runMeta___spec__3___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_IO_runMeta___rarg___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4, lean_object* x_5) {
_start:
{
uint8_t x_6; lean_object* x_7;
x_6 = lean_unbox(x_4);
lean_dec(x_4);
x_7 = l_IO_runMeta___rarg(x_1, x_2, x_3, x_6, x_5);
return x_7;
}
}
lean_object* initialize_Init_Control_Reader(lean_object*);
lean_object* initialize_Init_Lean_Data_LOption(lean_object*);
lean_object* initialize_Init_Lean_Environment(lean_object*);

200
stage0/stdlib/Init/Lean/Meta/Instances.c
View file

@ -182,6 +182,7 @@ lean_object* l_Array_anyRangeMAux___main___at_Lean_Meta_addInstanceEntry___spec_
lean_object* l_Lean_Meta_DiscrTree_empty(lean_object*);
lean_object* l_Lean_Meta_instanceExtension___elambda__2___boxed(lean_object*);
extern lean_object* l_Lean_NameGenerator_Inhabited___closed__3;
lean_object* l_PersistentArray_forM___at_IO_runMeta___spec__3(lean_object*, lean_object*);
lean_object* l_Lean_Meta_instanceExtension___closed__6;
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_PersistentHashMap_findAtAux___main___at_Lean_Meta_addInstanceEntry___spec__4___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -3266,78 +3267,149 @@ lean_inc(x_10);
x_18 = l___private_Init_Lean_Meta_Instances_1__mkInstanceKey(x_10, x_17, x_16);
if (lean_obj_tag(x_18) == 0)
{
uint8_t x_19;
x_19 = !lean_is_exclusive(x_18);
if (x_19 == 0)
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
x_20 = lean_ctor_get(x_18, 0);
x_21 = lean_ctor_get(x_18, 1);
x_22 = lean_ctor_get(x_21, 0);
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23; lean_object* x_24;
x_19 = lean_ctor_get(x_18, 0);
lean_inc(x_19);
x_20 = lean_ctor_get(x_18, 1);
lean_inc(x_20);
lean_dec(x_18);
x_21 = lean_ctor_get(x_20, 0);
lean_inc(x_21);
x_22 = lean_ctor_get(x_20, 4);
lean_inc(x_22);
lean_dec(x_20);
x_23 = lean_ctor_get(x_22, 0);
lean_inc(x_23);
lean_dec(x_22);
x_24 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_23, x_3);
lean_dec(x_23);
if (lean_obj_tag(x_24) == 0)
{
uint8_t x_25;
x_25 = !lean_is_exclusive(x_24);
if (x_25 == 0)
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
x_26 = lean_ctor_get(x_24, 0);
lean_dec(x_26);
x_27 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_27, 0, x_19);
lean_ctor_set(x_27, 1, x_10);
x_28 = l_Lean_Meta_instanceExtension;
x_29 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_28, x_21, x_27);
lean_ctor_set(x_24, 0, x_29);
return x_24;
}
else
{
lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34;
x_30 = lean_ctor_get(x_24, 1);
lean_inc(x_30);
lean_dec(x_24);
x_31 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_31, 0, x_19);
lean_ctor_set(x_31, 1, x_10);
x_32 = l_Lean_Meta_instanceExtension;
x_33 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_32, x_21, x_31);
x_34 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_34, 0, x_33);
lean_ctor_set(x_34, 1, x_30);
return x_34;
}
}
else
{
uint8_t x_35;
lean_dec(x_21);
x_23 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_23, 0, x_20);
lean_ctor_set(x_23, 1, x_10);
x_24 = l_Lean_Meta_instanceExtension;
x_25 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_24, x_22, x_23);
lean_ctor_set(x_18, 1, x_3);
lean_ctor_set(x_18, 0, x_25);
return x_18;
}
else
{
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;
x_26 = lean_ctor_get(x_18, 0);
x_27 = lean_ctor_get(x_18, 1);
lean_inc(x_27);
lean_inc(x_26);
lean_dec(x_18);
x_28 = lean_ctor_get(x_27, 0);
lean_inc(x_28);
lean_dec(x_27);
x_29 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_29, 0, x_26);
lean_ctor_set(x_29, 1, x_10);
x_30 = l_Lean_Meta_instanceExtension;
x_31 = l_Lean_PersistentEnvExtension_addEntry___rarg(x_30, x_28, x_29);
x_32 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_32, 0, x_31);
lean_ctor_set(x_32, 1, x_3);
return x_32;
}
}
else
{
uint8_t x_33;
lean_dec(x_19);
lean_dec(x_10);
x_33 = !lean_is_exclusive(x_18);
if (x_33 == 0)
x_35 = !lean_is_exclusive(x_24);
if (x_35 == 0)
{
lean_object* x_34; lean_object* x_35; lean_object* x_36; lean_object* x_37;
x_34 = lean_ctor_get(x_18, 0);
x_35 = lean_ctor_get(x_18, 1);
lean_dec(x_35);
x_36 = l_Lean_Meta_Exception_toStr(x_34);
x_37 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_37, 0, x_36);
lean_ctor_set(x_18, 1, x_3);
lean_ctor_set(x_18, 0, x_37);
return x_18;
return x_24;
}
else
{
lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41;
x_38 = lean_ctor_get(x_18, 0);
lean_inc(x_38);
lean_object* x_36; lean_object* x_37; lean_object* x_38;
x_36 = lean_ctor_get(x_24, 0);
x_37 = lean_ctor_get(x_24, 1);
lean_inc(x_37);
lean_inc(x_36);
lean_dec(x_24);
x_38 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_38, 0, x_36);
lean_ctor_set(x_38, 1, x_37);
return x_38;
}
}
}
else
{
lean_object* x_39; 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_dec(x_10);
x_39 = lean_ctor_get(x_18, 0);
lean_inc(x_39);
x_40 = lean_ctor_get(x_18, 1);
lean_inc(x_40);
lean_dec(x_18);
x_39 = l_Lean_Meta_Exception_toStr(x_38);
x_40 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_40, 0, x_39);
x_41 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_41, 0, x_40);
lean_ctor_set(x_41, 1, x_3);
return x_41;
x_41 = l_Lean_Meta_Exception_toStr(x_39);
x_42 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_42, 0, x_41);
x_43 = lean_ctor_get(x_40, 4);
lean_inc(x_43);
lean_dec(x_40);
x_44 = lean_ctor_get(x_43, 0);
lean_inc(x_44);
lean_dec(x_43);
x_45 = l_PersistentArray_forM___at_IO_runMeta___spec__3(x_44, x_3);
lean_dec(x_44);
if (lean_obj_tag(x_45) == 0)
{
uint8_t x_46;
x_46 = !lean_is_exclusive(x_45);
if (x_46 == 0)
{
lean_object* x_47;
x_47 = lean_ctor_get(x_45, 0);
lean_dec(x_47);
lean_ctor_set_tag(x_45, 1);
lean_ctor_set(x_45, 0, x_42);
return x_45;
}
else
{
lean_object* x_48; lean_object* x_49;
x_48 = lean_ctor_get(x_45, 1);
lean_inc(x_48);
lean_dec(x_45);
x_49 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_49, 0, x_42);
lean_ctor_set(x_49, 1, x_48);
return x_49;
}
}
else
{
uint8_t x_50;
lean_dec(x_42);
x_50 = !lean_is_exclusive(x_45);
if (x_50 == 0)
{
return x_45;
}
else
{
lean_object* x_51; lean_object* x_52; lean_object* x_53;
x_51 = lean_ctor_get(x_45, 0);
x_52 = lean_ctor_get(x_45, 1);
lean_inc(x_52);
lean_inc(x_51);
lean_dec(x_45);
x_53 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_53, 0, x_51);
lean_ctor_set(x_53, 1, x_52);
return x_53;
}
}
}
}

111
stage0/stdlib/Init/Lean/Meta/Message.c
View file

@ -19,13 +19,14 @@ lean_object* l___private_Init_Lean_Meta_Message_1__run_x3f(lean_object*);
lean_object* l_unreachable_x21___rarg(lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__51;
lean_object* l___private_Init_Lean_Meta_Message_3__inferDomain_x3f___boxed(lean_object*, lean_object*);
lean_object* lean_io_prim_put_str(lean_object*, lean_object*);
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1___boxed(lean_object*, lean_object*);
extern lean_object* l_Lean_MessageData_ofList___closed__3;
lean_object* l___private_Init_Lean_Meta_Message_3__inferDomain_x3f___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Format_pretty(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__39;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__35;
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3___boxed(lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__3(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__3___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__36;
lean_object* l_Lean_Meta_Exception_toMessageData(lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__31;
@ -41,10 +42,9 @@ lean_object* l_Lean_Meta_MetaHasEval(lean_object*);
lean_object* lean_array_get_size(lean_object*);
lean_object* l_Lean_MessageData_formatAux___main(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__26;
lean_object* l_IO_print___at_Lean_Meta_MetaHasEval___spec__2(lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage(lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__5___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2(lean_object*, lean_object*);
extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__86;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__40;
lean_object* lean_nat_add(lean_object*, lean_object*);
@ -73,11 +73,9 @@ lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage___closed__8;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__19;
extern lean_object* l_Lean_MessageData_coeOfArrayExpr___closed__2;
lean_object* l_Lean_Meta_Exception_mkLetTypeMismatchMessage___closed__4;
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__5(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__44;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__1;
lean_object* lean_name_mk_string(lean_object*, lean_object*);
extern lean_object* l_IO_println___rarg___closed__1;
extern lean_object* l_PersistentArray_empty___closed__3;
extern lean_object* l_Lean_Meta_Exception_toStr___closed__11;
extern lean_object* l_Lean_Meta_Exception_toTraceMessageData___closed__4;
@ -99,9 +97,11 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__53;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__37;
lean_object* l___private_Init_Lean_Meta_Message_1__run_x3f___rarg___closed__1;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__42;
lean_object* l_IO_println___at_Lean_Meta_MetaHasEval___spec__1(lean_object*, lean_object*);
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Meta_Message_1__run_x3f___rarg___closed__2;
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__22;
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__50;
lean_object* l_Lean_Meta_MetaHasEval___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__38;
@ -113,7 +113,6 @@ lean_object* l_Lean_mkApp(lean_object*, lean_object*);
lean_object* l_Lean_getMaxRecDepth(lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__13;
lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__2;
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__4;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__52;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__54;
@ -123,7 +122,6 @@ lean_object* l_Lean_Meta_Exception_toMessageData___closed__10;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__32;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__7;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__49;
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__5;
extern lean_object* l_Lean_TraceState_Inhabited___closed__1;
lean_object* l_Lean_Meta_inferType(lean_object*, lean_object*, lean_object*);
@ -149,13 +147,12 @@ lean_object* l_Lean_mkBVar(lean_object*);
lean_object* l___private_Init_Lean_Meta_Message_2__inferType_x3f(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_mkAppTypeMismatchMessage___closed__6;
lean_object* l_Lean_mkConst(lean_object*, lean_object*);
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(lean_object*, lean_object*);
lean_object* l_Lean_Meta_Exception_toMessageData___closed__15;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__16;
extern lean_object* l_Lean_NameGenerator_Inhabited___closed__3;
lean_object* l_Lean_Meta_Exception_toMessageData___closed__20;
uint8_t lean_nat_dec_lt(lean_object*, lean_object*);
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6(lean_object*, lean_object*, lean_object*);
lean_object* l_IO_println___at_IO_runMeta___spec__1(lean_object*, lean_object*);
extern lean_object* l_Lean_KernelException_toMessageData___closed__39;
lean_object* _init_l___private_Init_Lean_Meta_Message_1__run_x3f___rarg___closed__1() {
_start:
@ -1782,57 +1779,7 @@ return x_162;
}
}
}
lean_object* l_IO_print___at_Lean_Meta_MetaHasEval___spec__2(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = l_Lean_Options_empty;
x_4 = l_Lean_Format_pretty(x_1, x_3);
x_5 = lean_io_prim_put_str(x_4, x_2);
lean_dec(x_4);
return x_5;
}
}
lean_object* l_IO_println___at_Lean_Meta_MetaHasEval___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_IO_print___at_Lean_Meta_MetaHasEval___spec__2(x_1, x_2);
if (lean_obj_tag(x_3) == 0)
{
lean_object* x_4; lean_object* x_5; lean_object* x_6;
x_4 = lean_ctor_get(x_3, 1);
lean_inc(x_4);
lean_dec(x_3);
x_5 = l_IO_println___rarg___closed__1;
x_6 = lean_io_prim_put_str(x_5, x_4);
return x_6;
}
else
{
uint8_t x_7;
x_7 = !lean_is_exclusive(x_3);
if (x_7 == 0)
{
return x_3;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_8 = lean_ctor_get(x_3, 0);
x_9 = lean_ctor_get(x_3, 1);
lean_inc(x_9);
lean_inc(x_8);
lean_dec(x_3);
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;
}
}
}
}
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__5(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__3(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
@ -1856,7 +1803,7 @@ x_8 = lean_array_fget(x_1, x_2);
x_9 = lean_unsigned_to_nat(1u);
x_10 = lean_nat_add(x_2, x_9);
lean_dec(x_2);
x_11 = l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(x_8, x_3);
x_11 = l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2(x_8, x_3);
lean_dec(x_8);
if (lean_obj_tag(x_11) == 0)
{
@ -1894,7 +1841,7 @@ return x_17;
}
}
}
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4; uint8_t x_5;
@ -1920,7 +1867,7 @@ x_10 = lean_nat_add(x_2, x_9);
lean_dec(x_2);
x_11 = lean_box(0);
x_12 = l_Lean_MessageData_formatAux___main(x_11, x_8);
x_13 = l_IO_println___at_Lean_Meta_MetaHasEval___spec__1(x_12, x_3);
x_13 = l_IO_println___at_IO_runMeta___spec__1(x_12, x_3);
if (lean_obj_tag(x_13) == 0)
{
lean_object* x_14;
@ -1957,7 +1904,7 @@ return x_19;
}
}
}
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(lean_object* x_1, lean_object* x_2) {
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2(lean_object* x_1, lean_object* x_2) {
_start:
{
if (lean_obj_tag(x_1) == 0)
@ -1965,7 +1912,7 @@ if (lean_obj_tag(x_1) == 0)
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_unsigned_to_nat(0u);
x_5 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__5(x_3, x_4, x_2);
x_5 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__3(x_3, x_4, x_2);
return x_5;
}
else
@ -1973,18 +1920,18 @@ else
lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_6 = lean_ctor_get(x_1, 0);
x_7 = lean_unsigned_to_nat(0u);
x_8 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6(x_6, x_7, x_2);
x_8 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(x_6, x_7, x_2);
return x_8;
}
}
}
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3(lean_object* x_1, lean_object* x_2) {
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_3 = lean_ctor_get(x_1, 0);
x_4 = lean_ctor_get(x_1, 1);
x_5 = l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(x_3, x_2);
x_5 = l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2(x_3, x_2);
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_6; lean_object* x_7; lean_object* x_8;
@ -1992,7 +1939,7 @@ x_6 = lean_ctor_get(x_5, 1);
lean_inc(x_6);
lean_dec(x_5);
x_7 = lean_unsigned_to_nat(0u);
x_8 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6(x_4, x_7, x_6);
x_8 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(x_4, x_7, x_6);
return x_8;
}
else
@ -2074,7 +2021,7 @@ lean_dec(x_24);
x_26 = lean_ctor_get(x_23, 0);
lean_inc(x_26);
lean_dec(x_23);
x_27 = l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3(x_25, x_6);
x_27 = l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1(x_25, x_6);
lean_dec(x_25);
if (lean_obj_tag(x_27) == 0)
{
@ -2137,7 +2084,7 @@ x_43 = l_Lean_Options_empty;
x_44 = l_Lean_Format_pretty(x_42, x_43);
x_45 = lean_alloc_ctor(18, 1, 0);
lean_ctor_set(x_45, 0, x_44);
x_46 = l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3(x_39, x_6);
x_46 = l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1(x_39, x_6);
lean_dec(x_39);
if (lean_obj_tag(x_46) == 0)
{
@ -2198,38 +2145,38 @@ x_2 = lean_alloc_closure((void*)(l_Lean_Meta_MetaHasEval___rarg___boxed), 6, 0);
return x_2;
}
}
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__5___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__3___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__5(x_1, x_2, x_3);
x_4 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__3(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
lean_object* l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
lean_object* x_4;
x_4 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__6(x_1, x_2, x_3);
x_4 = l_Array_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(x_1, x_2, x_3);
lean_dec(x_1);
return x_4;
}
}
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__4(x_1, x_2);
x_3 = l_PersistentArray_forMAux___main___at_Lean_Meta_MetaHasEval___spec__2(x_1, x_2);
lean_dec(x_1);
return x_3;
}
}
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3___boxed(lean_object* x_1, lean_object* x_2) {
lean_object* l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1___boxed(lean_object* x_1, lean_object* x_2) {
_start:
{
lean_object* x_3;
x_3 = l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__3(x_1, x_2);
x_3 = l_PersistentArray_forM___at_Lean_Meta_MetaHasEval___spec__1(x_1, x_2);
lean_dec(x_1);
return x_3;
}

152
stage0/stdlib/Init/Lean/Parser/Command.c
View file

@ -167,7 +167,6 @@ lean_object* l_Lean_Parser_Command_open;
lean_object* l_Lean_Parser_Command_exit___elambda__1___closed__8;
lean_object* l_Lean_Parser_Command_section___elambda__1___closed__2;
lean_object* l_Lean_Parser_Command_axiom___closed__6;
extern lean_object* l_Lean_Parser_Term_subtype___closed__1;
lean_object* l_Lean_Parser_Command_declValEqns___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_theorem___closed__5;
lean_object* l_Lean_Parser_Command_inferMod___closed__2;
@ -332,6 +331,7 @@ lean_object* l_Lean_Parser_Command_unsafe;
lean_object* l_Lean_Parser_Command_structure___closed__6;
lean_object* l_Lean_Parser_Command_check___elambda__1___closed__2;
lean_object* l_Lean_Parser_Command_attrInstance___closed__2;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_universe___elambda__1___closed__3;
lean_object* l_Lean_Parser_Command_variables___elambda__1___closed__8;
@ -366,6 +366,7 @@ lean_object* l_Lean_Parser_Command_openHiding___elambda__1___closed__7;
extern lean_object* l_Lean_Parser_Term_binderDefault;
lean_object* l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_def___elambda__1___closed__4;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_resolve__name;
lean_object* l_Lean_Parser_Command_declValEqns___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_structExplicitBinder___closed__9;
@ -411,13 +412,14 @@ lean_object* l_Lean_Parser_Command_declModifiers___closed__5;
lean_object* l_Lean_Parser_Command_structureTk___closed__1;
lean_object* l_Lean_Parser_Command_init__quot___closed__1;
lean_object* l_Lean_Parser_Command_inductive___elambda__1___closed__6;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
lean_object* l_Lean_Parser_Command_universes___closed__1;
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_docComment___elambda__1___closed__6;
lean_object* l_Lean_Parser_Command_attributes___elambda__1___closed__6;
lean_object* l_Lean_Parser_Command_declModifiers___closed__14;
lean_object* l_Lean_Parser_Command_constant___closed__2;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__1;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__2;
lean_object* l_Lean_Parser_Command_export___closed__9;
lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*);
lean_object* l_Lean_Parser_Command_check__failure___elambda__1(lean_object*, lean_object*);
@ -476,7 +478,6 @@ extern lean_object* l_Lean_Parser_Term_structInstArrayRef___closed__1;
lean_object* l_Lean_Parser_Command_protected___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_set__option___elambda__1___closed__15;
lean_object* l_Lean_Parser_Command_openSimple___closed__3;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_openRenamingItem___closed__2;
lean_object* l_Lean_Parser_Command_openRenaming___elambda__1___closed__8;
lean_object* l_Lean_Parser_Command_unsafe___closed__5;
@ -556,6 +557,7 @@ lean_object* l_Lean_Parser_Command_namespace___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_declaration___closed__11;
extern lean_object* l_Lean_Parser_Term_haveAssign___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_declVal___closed__2;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_Command_structImplicitBinder___closed__3;
lean_object* l_Lean_Parser_Command_open___closed__7;
lean_object* l_Lean_Parser_Command_structCtor___closed__1;
@ -648,6 +650,7 @@ lean_object* l_Lean_Parser_ParserState_restore(lean_object*, lean_object*, lean_
lean_object* l_Lean_Parser_Command_variable___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_optDeclSig___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_variable___closed__6;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__3;
lean_object* l_Lean_Parser_Command_extends___elambda__1___closed__9;
lean_object* l_Lean_Parser_Command_protected___closed__3;
lean_object* l_Lean_Parser_Command_exit___elambda__1___closed__5;
@ -685,6 +688,7 @@ lean_object* l_Lean_Parser_Command_init__quot___elambda__1___closed__7;
lean_object* l_Lean_Parser_Term_optType___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Term_stxQuot___closed__3;
lean_object* l_Lean_Parser_Command_synth___elambda__1___closed__9;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Command_declValEqns___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_noncomputable___closed__3;
lean_object* l_Lean_Parser_Command_private___elambda__1___closed__4;
@ -714,7 +718,6 @@ lean_object* l_Lean_Parser_Command_check___elambda__1___closed__9;
lean_object* l_Lean_Parser_Command_synth___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_structCtor___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_unsafe___closed__3;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Command_set__option___closed__9;
lean_object* l_Lean_Parser_Term_stxQuot___closed__5;
lean_object* l_Lean_Parser_Command_universe___elambda__1___closed__2;
@ -844,7 +847,6 @@ lean_object* l_Lean_Parser_Command_attrInstance___closed__3;
lean_object* l_Lean_Parser_Command_export___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_structure___closed__4;
lean_object* l_Lean_Parser_Command_declModifiers___elambda__1___closed__1;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
extern lean_object* l_Lean_Parser_Term_explicitUniv___closed__1;
extern lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11;
lean_object* l_Lean_Parser_Command_open___closed__6;
@ -926,6 +928,7 @@ lean_object* l_Lean_Parser_Command_attribute___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_axiom___closed__1;
lean_object* l_Lean_Parser_Command_exit___closed__3;
lean_object* l_Lean_Parser_Command_unsafe___elambda__1(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_implicitBinder___closed__1;
lean_object* l_Lean_Parser_Command_private___elambda__1___closed__7;
lean_object* l_Lean_Parser_Command_noncomputable___elambda__1___closed__6;
lean_object* l_Lean_Parser_Command_structure___closed__13;
@ -976,7 +979,6 @@ lean_object* l_Lean_Parser_Command_variable___closed__5;
lean_object* l_Lean_Parser_Command_variable___elambda__1___closed__5;
extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__17;
lean_object* l_Lean_Parser_Command_def___closed__2;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Parser_Command_init__quot___elambda__1___closed__3;
lean_object* l_Lean_Parser_Command_optDeclSig___elambda__1___closed__1;
@ -1072,7 +1074,6 @@ lean_object* l_Lean_Parser_regCommandParserAttribute(lean_object*);
lean_object* l_Lean_Parser_Command_variables___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_declaration___closed__13;
lean_object* l_Lean_Parser_Command_namespace___closed__6;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
lean_object* l_Lean_Parser_Command_init__quot___closed__4;
lean_object* l_Lean_Parser_Command_structure___closed__5;
lean_object* l_Lean_Parser_Command_abbrev___closed__6;
@ -1101,7 +1102,6 @@ lean_object* l_Lean_Parser_Command_classTk___elambda__1___closed__2;
lean_object* l_Lean_Parser_Command_open___closed__4;
lean_object* l_Lean_Parser_Command_attribute___closed__9;
lean_object* l_Lean_Parser_Command_introRule___closed__7;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
lean_object* l_Lean_Parser_Command_constant___elambda__1___closed__2;
lean_object* l_Lean_Parser_regBuiltinCommandParserAttr___closed__3;
lean_object* l_Lean_Parser_unicodeSymbolFnAux(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
@ -1472,13 +1472,13 @@ lean_object* x_15; lean_object* x_16; uint8_t x_17;
x_15 = lean_ctor_get(x_14, 1);
lean_inc(x_15);
lean_dec(x_14);
x_16 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_16 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_17 = lean_string_dec_eq(x_15, x_16);
lean_dec(x_15);
if (x_17 == 0)
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_18 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_18 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_18, x_10);
x_20 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2;
x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_7);
@ -1497,7 +1497,7 @@ else
{
lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27;
lean_dec(x_14);
x_24 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_24 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_25 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_24, x_10);
x_26 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2;
x_27 = l_Lean_Parser_ParserState_mkNode(x_25, x_26, x_7);
@ -1508,7 +1508,7 @@ else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
lean_dec(x_12);
x_28 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_28 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_28, x_10);
x_30 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2;
x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_7);
@ -1796,13 +1796,13 @@ lean_object* x_107; lean_object* x_108; uint8_t x_109;
x_107 = lean_ctor_get(x_106, 1);
lean_inc(x_107);
lean_dec(x_106);
x_108 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_108 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_109 = lean_string_dec_eq(x_107, x_108);
lean_dec(x_107);
if (x_109 == 0)
{
lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114;
x_110 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_110 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_111 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_110, x_102);
x_112 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2;
x_113 = l_Lean_Parser_ParserState_mkNode(x_111, x_112, x_99);
@ -1825,7 +1825,7 @@ else
{
lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122;
lean_dec(x_106);
x_118 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_118 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_119 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_118, x_102);
x_120 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2;
x_121 = l_Lean_Parser_ParserState_mkNode(x_119, x_120, x_99);
@ -1838,7 +1838,7 @@ else
{
lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127;
lean_dec(x_104);
x_123 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_123 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_124 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_123, x_102);
x_125 = l_Lean_Parser_Term_tacticStxQuot___elambda__1___closed__2;
x_126 = l_Lean_Parser_ParserState_mkNode(x_124, x_125, x_99);
@ -2033,7 +2033,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_obj
x_1 = l_Lean_Parser_Term_stxQuot___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_4 = lean_ctor_get(x_3, 0);
lean_inc(x_4);
x_5 = l_Lean_Parser_orelseInfo(x_4, x_2);
@ -2045,7 +2045,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_stxQuot___closed__3;
x_2 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_2 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
}
@ -12853,7 +12853,7 @@ lean_object* _init_l_Lean_Parser_Command_inferMod___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_subtype___closed__1;
x_1 = l_Lean_Parser_Term_implicitBinder___closed__1;
x_2 = l_Lean_Parser_Term_explicitUniv___closed__4;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
@ -15008,13 +15008,13 @@ lean_object* x_87; lean_object* x_88; uint8_t x_89;
x_87 = lean_ctor_get(x_86, 1);
lean_inc(x_87);
lean_dec(x_86);
x_88 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_88 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_89 = lean_string_dec_eq(x_87, x_88);
lean_dec(x_87);
if (x_89 == 0)
{
lean_object* x_90; lean_object* x_91;
x_90 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_90 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_91 = l_Lean_Parser_ParserState_mkErrorsAt(x_83, x_90, x_82);
x_58 = x_91;
goto block_81;
@ -15030,7 +15030,7 @@ else
{
lean_object* x_92; lean_object* x_93;
lean_dec(x_86);
x_92 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_92 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_93 = l_Lean_Parser_ParserState_mkErrorsAt(x_83, x_92, x_82);
x_58 = x_93;
goto block_81;
@ -15040,7 +15040,7 @@ else
{
lean_object* x_94; lean_object* x_95;
lean_dec(x_84);
x_94 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_94 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_95 = l_Lean_Parser_ParserState_mkErrorsAt(x_83, x_94, x_82);
x_58 = x_95;
goto block_81;
@ -15071,13 +15071,13 @@ lean_object* x_15; lean_object* x_16; uint8_t x_17;
x_15 = lean_ctor_get(x_14, 1);
lean_inc(x_15);
lean_dec(x_14);
x_16 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_16 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_17 = lean_string_dec_eq(x_15, x_16);
lean_dec(x_15);
if (x_17 == 0)
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_18 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_18 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_18, x_10);
x_20 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2;
x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_7);
@ -15096,7 +15096,7 @@ else
{
lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27;
lean_dec(x_14);
x_24 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_24 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_25 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_24, x_10);
x_26 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2;
x_27 = l_Lean_Parser_ParserState_mkNode(x_25, x_26, x_7);
@ -15107,7 +15107,7 @@ else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
lean_dec(x_12);
x_28 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_28 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_28, x_10);
x_30 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2;
x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_7);
@ -15357,13 +15357,13 @@ lean_object* x_194; lean_object* x_195; uint8_t x_196;
x_194 = lean_ctor_get(x_193, 1);
lean_inc(x_194);
lean_dec(x_193);
x_195 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_195 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_196 = lean_string_dec_eq(x_194, x_195);
lean_dec(x_194);
if (x_196 == 0)
{
lean_object* x_197; lean_object* x_198;
x_197 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_197 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_98);
x_198 = l_Lean_Parser_ParserState_mkErrorsAt(x_190, x_197, x_98);
x_164 = x_198;
@ -15379,7 +15379,7 @@ else
{
lean_object* x_199; lean_object* x_200;
lean_dec(x_193);
x_199 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_199 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_98);
x_200 = l_Lean_Parser_ParserState_mkErrorsAt(x_190, x_199, x_98);
x_164 = x_200;
@ -15390,7 +15390,7 @@ else
{
lean_object* x_201; lean_object* x_202;
lean_dec(x_191);
x_201 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_201 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_98);
x_202 = l_Lean_Parser_ParserState_mkErrorsAt(x_190, x_201, x_98);
x_164 = x_202;
@ -15422,13 +15422,13 @@ lean_object* x_114; lean_object* x_115; uint8_t x_116;
x_114 = lean_ctor_get(x_113, 1);
lean_inc(x_114);
lean_dec(x_113);
x_115 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_115 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_116 = lean_string_dec_eq(x_114, x_115);
lean_dec(x_114);
if (x_116 == 0)
{
lean_object* x_117; lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121;
x_117 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_117 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_118 = l_Lean_Parser_ParserState_mkErrorsAt(x_110, x_117, x_109);
x_119 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2;
x_120 = l_Lean_Parser_ParserState_mkNode(x_118, x_119, x_106);
@ -15451,7 +15451,7 @@ else
{
lean_object* x_125; lean_object* x_126; lean_object* x_127; lean_object* x_128; lean_object* x_129;
lean_dec(x_113);
x_125 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_125 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_126 = l_Lean_Parser_ParserState_mkErrorsAt(x_110, x_125, x_109);
x_127 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2;
x_128 = l_Lean_Parser_ParserState_mkNode(x_126, x_127, x_106);
@ -15464,7 +15464,7 @@ else
{
lean_object* x_130; lean_object* x_131; lean_object* x_132; lean_object* x_133; lean_object* x_134;
lean_dec(x_111);
x_130 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_130 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_131 = l_Lean_Parser_ParserState_mkErrorsAt(x_110, x_130, x_109);
x_132 = l_Lean_Parser_Command_structExplicitBinder___elambda__1___closed__2;
x_133 = l_Lean_Parser_ParserState_mkNode(x_131, x_132, x_106);
@ -15692,7 +15692,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Command_structExplicitBinder___closed__2;
x_2 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_2 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
}
@ -15733,7 +15733,7 @@ lean_object* _init_l_Lean_Parser_Command_structExplicitBinder___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__1;
x_2 = l_Lean_Parser_Command_structExplicitBinder___closed__6;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
@ -16426,7 +16426,7 @@ lean_object* _init_l_Lean_Parser_Command_structImplicitBinder___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_subtype___closed__1;
x_1 = l_Lean_Parser_Term_implicitBinder___closed__1;
x_2 = l_Lean_Parser_Command_structImplicitBinder___closed__3;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
@ -24976,7 +24976,7 @@ lean_object* _init_l_Lean_Parser_Command_check___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Command_check___closed__1;
@ -25386,7 +25386,7 @@ lean_object* _init_l_Lean_Parser_Command_check__failure___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Command_check__failure___closed__1;
@ -25796,7 +25796,7 @@ lean_object* _init_l_Lean_Parser_Command_synth___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Command_synth___closed__1;
@ -29199,13 +29199,13 @@ lean_object* x_15; lean_object* x_16; uint8_t x_17;
x_15 = lean_ctor_get(x_14, 1);
lean_inc(x_15);
lean_dec(x_14);
x_16 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_16 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_17 = lean_string_dec_eq(x_15, x_16);
lean_dec(x_15);
if (x_17 == 0)
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_18 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_18 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_18, x_10);
x_20 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_7);
@ -29224,7 +29224,7 @@ else
{
lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27;
lean_dec(x_14);
x_24 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_24 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_25 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_24, x_10);
x_26 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_27 = l_Lean_Parser_ParserState_mkNode(x_25, x_26, x_7);
@ -29235,7 +29235,7 @@ else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
lean_dec(x_12);
x_28 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_28 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_28, x_10);
x_30 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_7);
@ -29332,13 +29332,13 @@ lean_object* x_58; lean_object* x_59; uint8_t x_60;
x_58 = lean_ctor_get(x_57, 1);
lean_inc(x_58);
lean_dec(x_57);
x_59 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_59 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_60 = lean_string_dec_eq(x_58, x_59);
lean_dec(x_58);
if (x_60 == 0)
{
lean_object* x_61; lean_object* x_62;
x_61 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_61 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_62 = l_Lean_Parser_ParserState_mkErrorsAt(x_54, x_61, x_53);
x_35 = x_62;
goto block_48;
@ -29354,7 +29354,7 @@ else
{
lean_object* x_63; lean_object* x_64;
lean_dec(x_57);
x_63 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_63 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_64 = l_Lean_Parser_ParserState_mkErrorsAt(x_54, x_63, x_53);
x_35 = x_64;
goto block_48;
@ -29364,7 +29364,7 @@ else
{
lean_object* x_65; lean_object* x_66;
lean_dec(x_55);
x_65 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_65 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_66 = l_Lean_Parser_ParserState_mkErrorsAt(x_54, x_65, x_53);
x_35 = x_66;
goto block_48;
@ -29521,13 +29521,13 @@ lean_object* x_104; lean_object* x_105; uint8_t x_106;
x_104 = lean_ctor_get(x_103, 1);
lean_inc(x_104);
lean_dec(x_103);
x_105 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_105 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_106 = lean_string_dec_eq(x_104, x_105);
lean_dec(x_104);
if (x_106 == 0)
{
lean_object* x_107; lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111;
x_107 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_107 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_108 = l_Lean_Parser_ParserState_mkErrorsAt(x_100, x_107, x_99);
x_109 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_110 = l_Lean_Parser_ParserState_mkNode(x_108, x_109, x_96);
@ -29550,7 +29550,7 @@ else
{
lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118; lean_object* x_119;
lean_dec(x_103);
x_115 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_115 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_116 = l_Lean_Parser_ParserState_mkErrorsAt(x_100, x_115, x_99);
x_117 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_118 = l_Lean_Parser_ParserState_mkNode(x_116, x_117, x_96);
@ -29563,7 +29563,7 @@ else
{
lean_object* x_120; lean_object* x_121; lean_object* x_122; lean_object* x_123; lean_object* x_124;
lean_dec(x_101);
x_120 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_120 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_121 = l_Lean_Parser_ParserState_mkErrorsAt(x_100, x_120, x_99);
x_122 = l_Lean_Parser_Command_export___elambda__1___closed__2;
x_123 = l_Lean_Parser_ParserState_mkNode(x_121, x_122, x_96);
@ -29666,13 +29666,13 @@ lean_object* x_153; lean_object* x_154; uint8_t x_155;
x_153 = lean_ctor_get(x_152, 1);
lean_inc(x_153);
lean_dec(x_152);
x_154 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_154 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_155 = lean_string_dec_eq(x_153, x_154);
lean_dec(x_153);
if (x_155 == 0)
{
lean_object* x_156; lean_object* x_157;
x_156 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_156 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_157 = l_Lean_Parser_ParserState_mkErrorsAt(x_149, x_156, x_148);
x_129 = x_157;
goto block_143;
@ -29688,7 +29688,7 @@ else
{
lean_object* x_158; lean_object* x_159;
lean_dec(x_152);
x_158 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_158 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_159 = l_Lean_Parser_ParserState_mkErrorsAt(x_149, x_158, x_148);
x_129 = x_159;
goto block_143;
@ -29698,7 +29698,7 @@ else
{
lean_object* x_160; lean_object* x_161;
lean_dec(x_150);
x_160 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_160 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_161 = l_Lean_Parser_ParserState_mkErrorsAt(x_149, x_160, x_148);
x_129 = x_161;
goto block_143;
@ -29750,7 +29750,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_ident;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}
@ -29759,7 +29759,7 @@ lean_object* _init_l_Lean_Parser_Command_export___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__1;
x_2 = l_Lean_Parser_Command_export___closed__2;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
@ -31802,13 +31802,13 @@ lean_object* x_64; lean_object* x_65; uint8_t x_66;
x_64 = lean_ctor_get(x_63, 1);
lean_inc(x_64);
lean_dec(x_63);
x_65 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_65 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_66 = lean_string_dec_eq(x_64, x_65);
lean_dec(x_64);
if (x_66 == 0)
{
lean_object* x_67; lean_object* x_68; lean_object* x_69; lean_object* x_70; lean_object* x_71;
x_67 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_67 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_68 = l_Lean_Parser_ParserState_mkErrorsAt(x_60, x_67, x_59);
x_69 = lean_ctor_get(x_68, 0);
lean_inc(x_69);
@ -31843,7 +31843,7 @@ else
{
lean_object* x_75; lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79;
lean_dec(x_63);
x_75 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_75 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_76 = l_Lean_Parser_ParserState_mkErrorsAt(x_60, x_75, x_59);
x_77 = lean_ctor_get(x_76, 0);
lean_inc(x_77);
@ -31862,7 +31862,7 @@ else
{
lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84;
lean_dec(x_61);
x_80 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_80 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_81 = l_Lean_Parser_ParserState_mkErrorsAt(x_60, x_80, x_59);
x_82 = lean_ctor_get(x_81, 0);
lean_inc(x_82);
@ -31919,13 +31919,13 @@ lean_object* x_16; lean_object* x_17; uint8_t x_18;
x_16 = lean_ctor_get(x_15, 1);
lean_inc(x_16);
lean_dec(x_15);
x_17 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_17 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_18 = lean_string_dec_eq(x_16, x_17);
lean_dec(x_16);
if (x_18 == 0)
{
lean_object* x_19; lean_object* x_20; lean_object* x_21; lean_object* x_22;
x_19 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_19 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_20 = l_Lean_Parser_ParserState_mkErrorsAt(x_12, x_19, x_11);
x_21 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2;
x_22 = l_Lean_Parser_ParserState_mkNode(x_20, x_21, x_8);
@ -31944,7 +31944,7 @@ else
{
lean_object* x_25; lean_object* x_26; lean_object* x_27; lean_object* x_28;
lean_dec(x_15);
x_25 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_25 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_26 = l_Lean_Parser_ParserState_mkErrorsAt(x_12, x_25, x_11);
x_27 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2;
x_28 = l_Lean_Parser_ParserState_mkNode(x_26, x_27, x_8);
@ -31955,7 +31955,7 @@ else
{
lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32;
lean_dec(x_13);
x_29 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_29 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_30 = l_Lean_Parser_ParserState_mkErrorsAt(x_12, x_29, x_11);
x_31 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2;
x_32 = l_Lean_Parser_ParserState_mkNode(x_30, x_31, x_8);
@ -32127,13 +32127,13 @@ lean_object* x_162; lean_object* x_163; uint8_t x_164;
x_162 = lean_ctor_get(x_161, 1);
lean_inc(x_162);
lean_dec(x_161);
x_163 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_163 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_164 = lean_string_dec_eq(x_162, x_163);
lean_dec(x_162);
if (x_164 == 0)
{
lean_object* x_165; lean_object* x_166; lean_object* x_167; lean_object* x_168; lean_object* x_169;
x_165 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_165 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_166 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_165, x_157);
x_167 = lean_ctor_get(x_166, 0);
lean_inc(x_167);
@ -32168,7 +32168,7 @@ else
{
lean_object* x_173; lean_object* x_174; lean_object* x_175; lean_object* x_176; lean_object* x_177;
lean_dec(x_161);
x_173 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_173 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_174 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_173, x_157);
x_175 = lean_ctor_get(x_174, 0);
lean_inc(x_175);
@ -32187,7 +32187,7 @@ else
{
lean_object* x_178; lean_object* x_179; lean_object* x_180; lean_object* x_181; lean_object* x_182;
lean_dec(x_159);
x_178 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_178 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_179 = l_Lean_Parser_ParserState_mkErrorsAt(x_158, x_178, x_157);
x_180 = lean_ctor_get(x_179, 0);
lean_inc(x_180);
@ -32244,13 +32244,13 @@ lean_object* x_107; lean_object* x_108; uint8_t x_109;
x_107 = lean_ctor_get(x_106, 1);
lean_inc(x_107);
lean_dec(x_106);
x_108 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_108 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_109 = lean_string_dec_eq(x_107, x_108);
lean_dec(x_107);
if (x_109 == 0)
{
lean_object* x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113; lean_object* x_114;
x_110 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_110 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_111 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_110, x_102);
x_112 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2;
x_113 = l_Lean_Parser_ParserState_mkNode(x_111, x_112, x_99);
@ -32273,7 +32273,7 @@ else
{
lean_object* x_118; lean_object* x_119; lean_object* x_120; lean_object* x_121; lean_object* x_122;
lean_dec(x_106);
x_118 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_118 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_119 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_118, x_102);
x_120 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2;
x_121 = l_Lean_Parser_ParserState_mkNode(x_119, x_120, x_99);
@ -32286,7 +32286,7 @@ else
{
lean_object* x_123; lean_object* x_124; lean_object* x_125; lean_object* x_126; lean_object* x_127;
lean_dec(x_104);
x_123 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_123 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_124 = l_Lean_Parser_ParserState_mkErrorsAt(x_103, x_123, x_102);
x_125 = l_Lean_Parser_Command_openOnly___elambda__1___closed__2;
x_126 = l_Lean_Parser_ParserState_mkNode(x_124, x_125, x_99);
@ -32395,7 +32395,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_ident;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__1;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}

46
stage0/stdlib/Init/Lean/Parser/Level.c
View file

@ -61,11 +61,13 @@ lean_object* l_Lean_Parser_ParserState_mkErrorsAt(lean_object*, lean_object*, le
lean_object* l_Lean_Parser_Level_imax___closed__3;
lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__6;
lean_object* l_Lean_Parser_Level_max___elambda__1___closed__2;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
lean_object* l_Lean_Parser_Level_max___closed__3;
lean_object* l_Lean_Parser_Level_max___elambda__1___closed__4;
lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__4;
lean_object* l_Lean_Parser_Level_paren___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_regBuiltinLevelParserAttr___closed__3;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__1;
lean_object* l_Lean_Parser_Level_ident___closed__3;
lean_object* l___regBuiltinParser_Lean_Parser_Level_paren(lean_object*);
@ -75,7 +77,6 @@ extern lean_object* l_Lean_Nat_HasQuote___closed__1;
lean_object* l_Lean_Parser_nodeInfo(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_addLit___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__2;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
lean_object* l_Lean_Parser_nonReservedSymbolInfo(lean_object*, uint8_t);
lean_object* l_Lean_Parser_Level_paren;
lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__2;
@ -84,7 +85,6 @@ uint8_t l_Lean_Parser_tryAnti(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__4;
lean_object* l_Lean_Parser_Level_max___closed__6;
lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__1;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Level_imax;
extern lean_object* l_Char_HasRepr___closed__1;
lean_object* l_Lean_Parser_Level_hole;
@ -94,6 +94,7 @@ lean_object* l_Lean_Parser_levelParser(lean_object*);
lean_object* l_Lean_Parser_manyAux___main___at_Lean_Parser_Level_max___elambda__1___spec__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_num___elambda__1___closed__3;
lean_object* lean_name_mk_string(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_Level_imax___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_ident___closed__1;
lean_object* l_Lean_Parser_registerBuiltinParserAttribute(lean_object*, lean_object*, uint8_t, lean_object*);
@ -101,15 +102,16 @@ lean_object* l_Lean_Parser_Level_addLit___closed__5;
lean_object* l_Lean_Parser_Level_addLit___closed__3;
lean_object* l_Lean_Parser_Level_imax___closed__2;
lean_object* l_Lean_Parser_ParserState_restore(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__3;
lean_object* l_Lean_Parser_Level_ident___elambda__1___closed__1;
lean_object* l_Lean_Parser_Level_paren___closed__4;
lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__3;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Level_paren___closed__9;
lean_object* l_Lean_Parser_Level_paren___elambda__1___closed__6;
lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__2;
lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__1;
lean_object* l_Lean_Parser_Level_ident___closed__2;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
extern lean_object* l_Lean_Parser_appPrec;
lean_object* l_Lean_Parser_Level_hole___elambda__1___closed__3;
lean_object* l_Lean_Parser_ident___elambda__1(lean_object*, lean_object*);
@ -127,7 +129,6 @@ lean_object* l_Lean_Parser_Level_max___closed__5;
lean_object* l_Lean_Parser_Level_num___closed__3;
lean_object* l_Lean_Parser_symbolInfo(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_imax___elambda__1___closed__6;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
extern lean_object* l_Lean_mkHole___closed__1;
lean_object* l_Lean_Parser_categoryParser___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Level_ident___closed__4;
@ -144,7 +145,6 @@ lean_object* l_Lean_Parser_Level_addLit___elambda__1___closed__3;
lean_object* l_Lean_Parser_Level_max___elambda__1(lean_object*, lean_object*);
lean_object* l___regBuiltinParser_Lean_Parser_Level_ident(lean_object*);
lean_object* l_Lean_Parser_Level_addLit;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Parser_Level_max___elambda__1___closed__5;
lean_object* l_Lean_Parser_Level_max___elambda__1___closed__7;
@ -318,13 +318,13 @@ lean_object* x_46; lean_object* x_47; uint8_t x_48;
x_46 = lean_ctor_get(x_45, 1);
lean_inc(x_46);
lean_dec(x_45);
x_47 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_47 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_48 = lean_string_dec_eq(x_46, x_47);
lean_dec(x_46);
if (x_48 == 0)
{
lean_object* x_49; lean_object* x_50;
x_49 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_49 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_50 = l_Lean_Parser_ParserState_mkErrorsAt(x_42, x_49, x_41);
x_8 = x_50;
goto block_40;
@ -340,7 +340,7 @@ else
{
lean_object* x_51; lean_object* x_52;
lean_dec(x_45);
x_51 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_51 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_52 = l_Lean_Parser_ParserState_mkErrorsAt(x_42, x_51, x_41);
x_8 = x_52;
goto block_40;
@ -350,7 +350,7 @@ else
{
lean_object* x_53; lean_object* x_54;
lean_dec(x_43);
x_53 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_53 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_54 = l_Lean_Parser_ParserState_mkErrorsAt(x_42, x_53, x_41);
x_8 = x_54;
goto block_40;
@ -390,13 +390,13 @@ lean_object* x_19; lean_object* x_20; uint8_t x_21;
x_19 = lean_ctor_get(x_18, 1);
lean_inc(x_19);
lean_dec(x_18);
x_20 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_20 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_21 = lean_string_dec_eq(x_19, x_20);
lean_dec(x_19);
if (x_21 == 0)
{
lean_object* x_22; lean_object* x_23; lean_object* x_24; lean_object* x_25;
x_22 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_22 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_23 = l_Lean_Parser_ParserState_mkErrorsAt(x_15, x_22, x_14);
x_24 = l_Lean_Parser_Level_paren___elambda__1___closed__4;
x_25 = l_Lean_Parser_ParserState_mkNode(x_23, x_24, x_7);
@ -415,7 +415,7 @@ else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
lean_dec(x_18);
x_28 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_28 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_15, x_28, x_14);
x_30 = l_Lean_Parser_Level_paren___elambda__1___closed__4;
x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_7);
@ -426,7 +426,7 @@ else
{
lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35;
lean_dec(x_16);
x_32 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_32 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_33 = l_Lean_Parser_ParserState_mkErrorsAt(x_15, x_32, x_14);
x_34 = l_Lean_Parser_Level_paren___elambda__1___closed__4;
x_35 = l_Lean_Parser_ParserState_mkNode(x_33, x_34, x_7);
@ -519,13 +519,13 @@ lean_object* x_109; lean_object* x_110; uint8_t x_111;
x_109 = lean_ctor_get(x_108, 1);
lean_inc(x_109);
lean_dec(x_108);
x_110 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_110 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_111 = lean_string_dec_eq(x_109, x_110);
lean_dec(x_109);
if (x_111 == 0)
{
lean_object* x_112; lean_object* x_113;
x_112 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_112 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_57);
x_113 = l_Lean_Parser_ParserState_mkErrorsAt(x_105, x_112, x_57);
x_66 = x_113;
@ -541,7 +541,7 @@ else
{
lean_object* x_114; lean_object* x_115;
lean_dec(x_108);
x_114 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_114 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_57);
x_115 = l_Lean_Parser_ParserState_mkErrorsAt(x_105, x_114, x_57);
x_66 = x_115;
@ -552,7 +552,7 @@ else
{
lean_object* x_116; lean_object* x_117;
lean_dec(x_106);
x_116 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_116 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_57);
x_117 = l_Lean_Parser_ParserState_mkErrorsAt(x_105, x_116, x_57);
x_66 = x_117;
@ -593,13 +593,13 @@ lean_object* x_77; lean_object* x_78; uint8_t x_79;
x_77 = lean_ctor_get(x_76, 1);
lean_inc(x_77);
lean_dec(x_76);
x_78 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_78 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_79 = lean_string_dec_eq(x_77, x_78);
lean_dec(x_77);
if (x_79 == 0)
{
lean_object* x_80; lean_object* x_81; lean_object* x_82; lean_object* x_83; lean_object* x_84;
x_80 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_80 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_81 = l_Lean_Parser_ParserState_mkErrorsAt(x_73, x_80, x_72);
x_82 = l_Lean_Parser_Level_paren___elambda__1___closed__4;
x_83 = l_Lean_Parser_ParserState_mkNode(x_81, x_82, x_65);
@ -622,7 +622,7 @@ else
{
lean_object* x_88; lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92;
lean_dec(x_76);
x_88 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_88 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_89 = l_Lean_Parser_ParserState_mkErrorsAt(x_73, x_88, x_72);
x_90 = l_Lean_Parser_Level_paren___elambda__1___closed__4;
x_91 = l_Lean_Parser_ParserState_mkNode(x_89, x_90, x_65);
@ -635,7 +635,7 @@ else
{
lean_object* x_93; lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97;
lean_dec(x_74);
x_93 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_93 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_94 = l_Lean_Parser_ParserState_mkErrorsAt(x_73, x_93, x_72);
x_95 = l_Lean_Parser_Level_paren___elambda__1___closed__4;
x_96 = l_Lean_Parser_ParserState_mkNode(x_94, x_95, x_65);
@ -687,7 +687,7 @@ lean_object* _init_l_Lean_Parser_Level_paren___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_1 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_2 = l_Lean_Parser_Level_paren___closed__1;
x_3 = l_Lean_Parser_symbolInfo(x_1, x_2);
return x_3;
@ -710,7 +710,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Level_paren___closed__3;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}

946
stage0/stdlib/Init/Lean/Parser/Parser.c
View file

File diff suppressed because it is too large Load diff

82
stage0/stdlib/Init/Lean/Parser/Syntax.c
View file

@ -183,6 +183,7 @@ lean_object* l_Lean_Parser_Syntax_str___elambda__1___closed__6;
lean_object* l_Lean_Parser_identEqFn(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Command_mixfix___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_mixfix___closed__8;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
extern lean_object* l_Lean_Parser_Term_stxQuot___elambda__1___closed__4;
lean_object* l_Lean_Parser_Syntax_ident___closed__3;
lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1(lean_object*, lean_object*);
@ -213,6 +214,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Syntax_orelse(lean_object*);
lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_macroArg___closed__1;
extern lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__5;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_macroTailCommand___closed__6;
lean_object* l_Lean_Parser_Command_macroTailDefault___closed__7;
lean_object* l_Lean_Parser_Command_infixl;
@ -248,13 +250,14 @@ lean_object* l_Lean_Parser_Syntax_sepBy1;
lean_object* l_Lean_Parser_Command_strLitPrec___elambda__1___closed__2;
extern lean_object* l_Lean_Parser_quotedSymbol;
lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__1;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Syntax_sepBy1___closed__2;
lean_object* l_Lean_Parser_precedence___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__4;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__1;
lean_object* l_Lean_Parser_Command_postfix;
lean_object* l_Lean_Parser_Command_infix___closed__2;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__2;
lean_object* l_Lean_Parser_Command_postfix___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_strLitPrec___closed__4;
lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*);
@ -301,7 +304,6 @@ lean_object* l_Lean_Parser_Syntax_paren___closed__5;
extern lean_object* l_Lean_Parser_Term_structInstArrayRef___closed__1;
lean_object* l_Lean_Parser_Command_prefix___elambda__1___closed__3;
lean_object* l_Lean_Parser_Syntax_optional___elambda__1___closed__1;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Syntax_paren___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_reserve___elambda__1___closed__9;
lean_object* l_Lean_Parser_precedence___elambda__1___closed__5;
@ -339,6 +341,7 @@ lean_object* l___regBuiltinParser_Lean_Parser_Syntax_str(lean_object*);
lean_object* l_Lean_Parser_Syntax_ident___elambda__1___closed__3;
extern lean_object* l_Lean_Parser_Term_haveAssign___elambda__1___closed__5;
lean_object* l_Lean_Parser_Command_syntax___elambda__1___closed__5;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__2;
lean_object* l_Lean_Parser_Command_mixfixKind___closed__1;
lean_object* l_Lean_Parser_Command_reserve___elambda__1___closed__3;
@ -388,6 +391,7 @@ lean_object* l_Lean_Parser_Command_macro___elambda__1___closed__5;
lean_object* l_Lean_Parser_Syntax_many___closed__3;
lean_object* l_Lean_Parser_Syntax_optional___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Syntax_num___elambda__1___closed__6;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__3;
lean_object* l_Lean_Parser_Command_macro___closed__1;
lean_object* l_Lean_Parser_Command_mixfix___closed__1;
lean_object* l_Lean_Parser_Syntax_atom___closed__4;
@ -403,6 +407,7 @@ extern lean_object* l_Lean_Parser_Tactic_orelse___elambda__1___closed__2;
lean_object* l_Lean_Parser_Command_quotedSymbolPrec___closed__1;
lean_object* l_Lean_Parser_Command_reserve___closed__4;
lean_object* l___regBuiltinParser_Lean_Parser_Syntax_paren(lean_object*);
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Command_notation___elambda__1___closed__2;
lean_object* l_Lean_Parser_Syntax_char___elambda__1___closed__4;
lean_object* l_Lean_Parser_Syntax_cat___elambda__1___closed__3;
@ -414,7 +419,6 @@ lean_object* l_Lean_Parser_precedenceLit___closed__3;
lean_object* l_Lean_Parser_Syntax_optional;
lean_object* l_Lean_Parser_Syntax_atom___closed__1;
lean_object* l_Lean_Parser_Command_macroTailTactic___closed__4;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Syntax_sepBy___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_mixfix___closed__2;
extern lean_object* l_Lean_Parser_appPrec;
@ -497,7 +501,6 @@ lean_object* l_Lean_Parser_Command_macroTailDefault;
lean_object* l_Lean_Parser_Command_mixfix___closed__6;
extern lean_object* l_Lean_Parser_unquotedSymbol;
lean_object* l_Lean_Parser_Command_macro___elambda__1___closed__7;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
lean_object* l_Lean_Parser_Syntax_ident___closed__1;
extern lean_object* l_Lean_Parser_Term_typeAscription___closed__1;
lean_object* l_Lean_Parser_Command_notation___elambda__1___closed__8;
@ -573,7 +576,6 @@ lean_object* l_Lean_Parser_Command_macro__rules___closed__3;
lean_object* l_Lean_Parser_Command_syntaxCat___closed__4;
lean_object* l_Lean_Parser_Syntax_try___elambda__1___closed__7;
lean_object* l_Lean_Parser_Syntax_char___closed__5;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Parser_Command_macroTailCommand;
lean_object* l_Lean_Parser_Command_syntaxCat___closed__1;
@ -628,7 +630,6 @@ lean_object* l_Lean_Parser_Syntax_optional___closed__1;
lean_object* l_Lean_Parser_Syntax_cat___elambda__1___closed__1;
lean_object* l_Lean_Parser_Command_macroArgSimple___elambda__1___closed__4;
lean_object* l_Lean_Parser_Command_quotedSymbolPrec___elambda__1___closed__3;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
lean_object* l___regBuiltinParser_Lean_Parser_Syntax_optional(lean_object*);
lean_object* l_Lean_Parser_Command_infixr___elambda__1___closed__8;
lean_object* l_Lean_Parser_Syntax_many1___elambda__1(lean_object*, lean_object*);
@ -652,7 +653,6 @@ lean_object* l_Lean_Parser_Command_macroTailTactic___closed__7;
lean_object* l_Lean_Parser_Command_infixr___elambda__1___closed__2;
lean_object* l_Lean_Parser_optPrecedence___closed__2;
lean_object* l___regBuiltinParser_Lean_Parser_Syntax_many1(lean_object*);
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
lean_object* l_Lean_Parser_precedence___closed__1;
lean_object* l_Lean_Parser_Command_macroTail___closed__3;
lean_object* l_Lean_Parser_Command_macroTail___closed__1;
@ -1699,13 +1699,13 @@ lean_object* x_56; lean_object* x_57; uint8_t x_58;
x_56 = lean_ctor_get(x_55, 1);
lean_inc(x_56);
lean_dec(x_55);
x_57 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_57 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_58 = lean_string_dec_eq(x_56, x_57);
lean_dec(x_56);
if (x_58 == 0)
{
lean_object* x_59; lean_object* x_60;
x_59 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_59 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_60 = l_Lean_Parser_ParserState_mkErrorsAt(x_52, x_59, x_51);
x_35 = x_60;
goto block_50;
@ -1721,7 +1721,7 @@ else
{
lean_object* x_61; lean_object* x_62;
lean_dec(x_55);
x_61 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_61 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_62 = l_Lean_Parser_ParserState_mkErrorsAt(x_52, x_61, x_51);
x_35 = x_62;
goto block_50;
@ -1731,7 +1731,7 @@ else
{
lean_object* x_63; lean_object* x_64;
lean_dec(x_53);
x_63 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_63 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_64 = l_Lean_Parser_ParserState_mkErrorsAt(x_52, x_63, x_51);
x_35 = x_64;
goto block_50;
@ -1762,13 +1762,13 @@ lean_object* x_15; lean_object* x_16; uint8_t x_17;
x_15 = lean_ctor_get(x_14, 1);
lean_inc(x_15);
lean_dec(x_14);
x_16 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_16 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_17 = lean_string_dec_eq(x_15, x_16);
lean_dec(x_15);
if (x_17 == 0)
{
lean_object* x_18; lean_object* x_19; lean_object* x_20; lean_object* x_21;
x_18 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_18 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_18, x_10);
x_20 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3;
x_21 = l_Lean_Parser_ParserState_mkNode(x_19, x_20, x_7);
@ -1787,7 +1787,7 @@ else
{
lean_object* x_24; lean_object* x_25; lean_object* x_26; lean_object* x_27;
lean_dec(x_14);
x_24 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_24 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_25 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_24, x_10);
x_26 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3;
x_27 = l_Lean_Parser_ParserState_mkNode(x_25, x_26, x_7);
@ -1798,7 +1798,7 @@ else
{
lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31;
lean_dec(x_12);
x_28 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_28 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_29 = l_Lean_Parser_ParserState_mkErrorsAt(x_11, x_28, x_10);
x_30 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3;
x_31 = l_Lean_Parser_ParserState_mkNode(x_29, x_30, x_7);
@ -1929,13 +1929,13 @@ lean_object* x_129; lean_object* x_130; uint8_t x_131;
x_129 = lean_ctor_get(x_128, 1);
lean_inc(x_129);
lean_dec(x_128);
x_130 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_130 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_131 = lean_string_dec_eq(x_129, x_130);
lean_dec(x_129);
if (x_131 == 0)
{
lean_object* x_132; lean_object* x_133;
x_132 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_132 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_67);
x_133 = l_Lean_Parser_ParserState_mkErrorsAt(x_125, x_132, x_67);
x_108 = x_133;
@ -1951,7 +1951,7 @@ else
{
lean_object* x_134; lean_object* x_135;
lean_dec(x_128);
x_134 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_134 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_67);
x_135 = l_Lean_Parser_ParserState_mkErrorsAt(x_125, x_134, x_67);
x_108 = x_135;
@ -1962,7 +1962,7 @@ else
{
lean_object* x_136; lean_object* x_137;
lean_dec(x_126);
x_136 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_136 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_67);
x_137 = l_Lean_Parser_ParserState_mkErrorsAt(x_125, x_136, x_67);
x_108 = x_137;
@ -1994,13 +1994,13 @@ lean_object* x_83; lean_object* x_84; uint8_t x_85;
x_83 = lean_ctor_get(x_82, 1);
lean_inc(x_83);
lean_dec(x_82);
x_84 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_84 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_85 = lean_string_dec_eq(x_83, x_84);
lean_dec(x_83);
if (x_85 == 0)
{
lean_object* x_86; lean_object* x_87; lean_object* x_88; lean_object* x_89; lean_object* x_90;
x_86 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_86 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_87 = l_Lean_Parser_ParserState_mkErrorsAt(x_79, x_86, x_78);
x_88 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3;
x_89 = l_Lean_Parser_ParserState_mkNode(x_87, x_88, x_75);
@ -2023,7 +2023,7 @@ else
{
lean_object* x_94; lean_object* x_95; lean_object* x_96; lean_object* x_97; lean_object* x_98;
lean_dec(x_82);
x_94 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_94 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_95 = l_Lean_Parser_ParserState_mkErrorsAt(x_79, x_94, x_78);
x_96 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3;
x_97 = l_Lean_Parser_ParserState_mkNode(x_95, x_96, x_75);
@ -2036,7 +2036,7 @@ else
{
lean_object* x_99; lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103;
lean_dec(x_80);
x_99 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_99 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_100 = l_Lean_Parser_ParserState_mkErrorsAt(x_79, x_99, x_78);
x_101 = l_Lean_Parser_Syntax_paren___elambda__1___closed__3;
x_102 = l_Lean_Parser_ParserState_mkNode(x_100, x_101, x_75);
@ -2129,7 +2129,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Syntax_paren___closed__1;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}
@ -2138,7 +2138,7 @@ lean_object* _init_l_Lean_Parser_Syntax_paren___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__1;
x_2 = l_Lean_Parser_Syntax_paren___closed__2;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
@ -8649,7 +8649,7 @@ lean_object* _init_l_Lean_Parser_Command_mixfix___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Command_mixfix___closed__1;
@ -13059,13 +13059,13 @@ lean_object* x_13; lean_object* x_14; uint8_t x_15;
x_13 = lean_ctor_get(x_12, 1);
lean_inc(x_13);
lean_dec(x_12);
x_14 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_14 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_15 = lean_string_dec_eq(x_13, x_14);
lean_dec(x_13);
if (x_15 == 0)
{
lean_object* x_16; lean_object* x_17;
x_16 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_16 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_17 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_16, x_8);
return x_17;
}
@ -13079,7 +13079,7 @@ else
{
lean_object* x_18; lean_object* x_19;
lean_dec(x_12);
x_18 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_18 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_19 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_18, x_8);
return x_19;
}
@ -13088,7 +13088,7 @@ else
{
lean_object* x_20; lean_object* x_21;
lean_dec(x_10);
x_20 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_20 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_21 = l_Lean_Parser_ParserState_mkErrorsAt(x_9, x_20, x_8);
return x_21;
}
@ -13479,13 +13479,13 @@ lean_object* x_10; lean_object* x_11; uint8_t x_12;
x_10 = lean_ctor_get(x_9, 1);
lean_inc(x_10);
lean_dec(x_9);
x_11 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_11 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_12 = lean_string_dec_eq(x_10, x_11);
lean_dec(x_10);
if (x_12 == 0)
{
lean_object* x_13; lean_object* x_14;
x_13 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_13 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_14 = l_Lean_Parser_ParserState_mkErrorsAt(x_6, x_13, x_5);
return x_14;
}
@ -13499,7 +13499,7 @@ else
{
lean_object* x_15; lean_object* x_16;
lean_dec(x_9);
x_15 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_15 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_16 = l_Lean_Parser_ParserState_mkErrorsAt(x_6, x_15, x_5);
return x_16;
}
@ -13508,7 +13508,7 @@ else
{
lean_object* x_17; lean_object* x_18;
lean_dec(x_7);
x_17 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_17 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_18 = l_Lean_Parser_ParserState_mkErrorsAt(x_6, x_17, x_5);
return x_18;
}
@ -13810,7 +13810,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Term_stxQuot___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}
@ -14099,13 +14099,13 @@ lean_object* x_32; lean_object* x_33; uint8_t x_34;
x_32 = lean_ctor_get(x_31, 1);
lean_inc(x_32);
lean_dec(x_31);
x_33 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_33 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_34 = lean_string_dec_eq(x_32, x_33);
lean_dec(x_32);
if (x_34 == 0)
{
lean_object* x_35; lean_object* x_36;
x_35 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_35 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_36 = l_Lean_Parser_ParserState_mkErrorsAt(x_28, x_35, x_27);
x_10 = x_36;
goto block_20;
@ -14121,7 +14121,7 @@ else
{
lean_object* x_37; lean_object* x_38;
lean_dec(x_31);
x_37 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_37 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_38 = l_Lean_Parser_ParserState_mkErrorsAt(x_28, x_37, x_27);
x_10 = x_38;
goto block_20;
@ -14131,7 +14131,7 @@ else
{
lean_object* x_39; lean_object* x_40;
lean_dec(x_29);
x_39 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_39 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_40 = l_Lean_Parser_ParserState_mkErrorsAt(x_28, x_39, x_27);
x_10 = x_40;
goto block_20;
@ -14296,7 +14296,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Command_macroTailDefault___closed__1;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}
@ -14315,7 +14315,7 @@ lean_object* _init_l_Lean_Parser_Command_macroTailDefault___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Command_macroTailDefault___closed__3;

64
stage0/stdlib/Init/Lean/Parser/Tactic.c
View file

@ -93,7 +93,6 @@ lean_object* l_Lean_Parser_Tactic_induction___elambda__1(lean_object*, lean_obje
lean_object* l_Lean_Parser_Tactic_failIfSuccess___closed__2;
lean_object* l_Lean_Parser_Tactic_underscore___closed__1;
lean_object* l_Lean_Parser_Tactic_usingRec___closed__2;
extern lean_object* l_Lean_Parser_Term_subtype___closed__1;
lean_object* l_Lean_Parser_Tactic_skip___closed__2;
lean_object* l_Lean_Parser_ParserState_mkNode(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_apply___closed__4;
@ -165,6 +164,7 @@ lean_object* l_Lean_Parser_Tactic_clear___closed__2;
lean_object* l_Lean_Parser_Tactic_clear;
lean_object* l_Lean_Parser_Tactic_clear___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_case___closed__4;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_subst___closed__1;
lean_object* l_Lean_Parser_Tactic_induction;
lean_object* l_Lean_Parser_Tactic_generalizingVars___elambda__1___closed__5;
@ -183,6 +183,7 @@ lean_object* l_Lean_Parser_Tactic_subst___closed__2;
extern lean_object* l_Lean_Parser_Term_typeAscription___elambda__1___closed__5;
lean_object* l_Lean_Parser_Tactic_generalizingVars___elambda__1___closed__3;
lean_object* l_Lean_Parser_Tactic_usingRec___elambda__1___closed__4;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Tactic_inductionAlts___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_traceState___closed__5;
extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__5;
@ -225,14 +226,15 @@ lean_object* l_Lean_Parser_Tactic_allGoals___elambda__1___closed__5;
lean_object* l_Lean_Parser_Tactic_assumption___closed__1;
lean_object* l_Lean_Parser_Tactic_apply___closed__3;
lean_object* l_Lean_Parser_Tactic_clear___closed__5;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___elambda__1___closed__2;
lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_inductionAlts___elambda__1___spec__7(lean_object*, lean_object*, uint8_t, uint8_t, lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__1;
lean_object* l_Lean_Parser_Tactic_revert;
lean_object* l_Lean_Parser_Tactic_generalize;
lean_object* l_Lean_Parser_Tactic_failIfSuccess___closed__3;
lean_object* l_Lean_Parser_Tactic_subst___elambda__1___closed__3;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__2;
lean_object* l_Lean_Parser_noFirstTokenInfo(lean_object*);
lean_object* l_Lean_Parser_Tactic_skip___elambda__1___closed__7;
lean_object* l_Lean_Parser_Tactic_usingRec___elambda__1___closed__1;
@ -262,7 +264,6 @@ lean_object* l_Lean_Parser_Tactic_generalize___elambda__1(lean_object*, lean_obj
lean_object* l_Lean_Parser_Tactic_induction___closed__7;
lean_object* l_Lean_Parser_sepBy1Fn___at_Lean_Parser_Tactic_inductionAlts___elambda__1___spec__9___boxed(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_revert___closed__5;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
lean_object* l_Lean_Parser_Tactic_traceState___closed__4;
lean_object* l_Lean_Parser_Tactic_skip___closed__5;
lean_object* l_Lean_Parser_Tactic_withIds___closed__4;
@ -303,6 +304,7 @@ lean_object* l_Lean_Parser_Tactic_majorPremise___closed__5;
lean_object* l_Lean_Parser_Tactic_exact___closed__3;
lean_object* l_Lean_Parser_Tactic_inductionAlts___closed__3;
lean_object* l_Lean_Parser_Tactic_paren___closed__5;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_Tactic_skip___elambda__1___closed__5;
lean_object* l_Lean_Parser_Tactic_assumption___closed__2;
lean_object* l_Lean_Parser_Tactic_exact___elambda__1___closed__8;
@ -347,6 +349,7 @@ lean_object* l_Lean_Parser_Tactic_assumption___closed__5;
lean_object* l_Lean_Parser_ParserState_restore(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_failIfSuccess;
lean_object* l_Lean_Parser_Tactic_paren___closed__1;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___closed__3;
lean_object* l_Lean_Parser_Tactic_generalize___closed__10;
lean_object* l_Lean_Parser_Tactic_paren___closed__2;
lean_object* l_Lean_Parser_Tactic_subst___closed__3;
@ -362,6 +365,7 @@ lean_object* l_Lean_Parser_Tactic_orelse___elambda__1___closed__2;
lean_object* l_Lean_Parser_Tactic_orelse;
lean_object* l_Lean_Parser_Tactic_allGoals___closed__6;
lean_object* l_Lean_Parser_Tactic_subst___closed__5;
extern lean_object* l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__5;
lean_object* l_Lean_Parser_Tactic_generalize___elambda__1___closed__4;
lean_object* l_Lean_Parser_Tactic_subst;
@ -377,7 +381,6 @@ lean_object* l_Lean_Parser_Tactic_usingRec___elambda__1(lean_object*, lean_objec
lean_object* l_Lean_Parser_Tactic_apply___elambda__1___closed__5;
lean_object* l_Lean_Parser_Tactic_skip___elambda__1___closed__6;
lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__6;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
lean_object* l_Lean_Parser_Tactic_withIds___elambda__1(lean_object*, lean_object*);
extern lean_object* l_Lean_Parser_Term_tacticBlock___elambda__1___closed__6;
lean_object* l_Lean_Parser_Tactic_injection___elambda__1___closed__1;
@ -438,7 +441,6 @@ lean_object* l_Lean_Parser_Tactic_orelse___elambda__1___closed__1;
lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__4;
lean_object* l_Lean_Parser_Tactic_assumption___closed__3;
lean_object* l_Lean_Parser_Tactic_case___elambda__1___closed__7;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
extern lean_object* l_Lean_Parser_Term_explicitUniv___elambda__1___closed__11;
lean_object* l_Lean_Parser_Tactic_majorPremise___elambda__1___closed__4;
lean_object* l_Lean_Parser_categoryParser___elambda__1(lean_object*, lean_object*, lean_object*, lean_object*);
@ -473,6 +475,7 @@ lean_object* l_String_trim(lean_object*);
lean_object* l_Lean_Parser_Tactic_nonEmptySeq___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_apply___closed__1;
lean_object* l___regBuiltinParser_Lean_Parser_Tactic_assumption(lean_object*);
extern lean_object* l_Lean_Parser_Term_implicitBinder___closed__1;
extern lean_object* l_Lean_Parser_Term_matchAlts___closed__1;
lean_object* l_Lean_Parser_Tactic_underscoreFn___closed__2;
lean_object* l_Lean_Parser_Tactic_inductionAlt___closed__13;
@ -490,7 +493,6 @@ extern lean_object* l_Lean_Parser_Tactic_seq___closed__1;
lean_object* l_Lean_Parser_Tactic_exact___closed__2;
lean_object* l_Lean_Parser_Tactic_intro___closed__2;
extern lean_object* l_Lean_Parser_Term_structInst___elambda__1___closed__17;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
lean_object* l_Lean_Parser_mkAntiquot(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Parser_Tactic_nestedTacticBlock___closed__5;
lean_object* l_Lean_Parser_Tactic_cases___elambda__1(lean_object*, lean_object*);
@ -550,7 +552,6 @@ lean_object* l_Lean_Parser_Tactic_traceState;
lean_object* l_Lean_Parser_Tactic_subst___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_subst___elambda__1___closed__4;
lean_object* l_Lean_Parser_Tactic_nestedTacticBlockCurly___elambda__1(lean_object*, lean_object*);
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
lean_object* l___regBuiltinParser_Lean_Parser_Tactic_traceState(lean_object*);
lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__8;
lean_object* l_Lean_Parser_Tactic_paren;
@ -566,7 +567,6 @@ lean_object* l_Lean_Parser_Tactic_seq___elambda__1(lean_object*, lean_object*);
lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__3;
extern lean_object* l_Lean_ppGoal___closed__7;
lean_object* l_Lean_Parser_Tactic_allGoals___elambda__1___closed__8;
extern lean_object* l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
lean_object* l_Lean_Parser_Tactic_induction___elambda__1___closed__4;
lean_object* l___regBuiltinParser_Lean_Parser_Tactic_refine(lean_object*);
lean_object* l_Lean_Parser_Tactic_assumption___elambda__1___closed__5;
@ -3071,7 +3071,7 @@ lean_object* _init_l_Lean_Parser_Tactic_apply___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Tactic_apply___closed__1;
@ -3357,7 +3357,7 @@ lean_object* _init_l_Lean_Parser_Tactic_exact___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Tactic_exact___closed__1;
@ -3643,7 +3643,7 @@ lean_object* _init_l_Lean_Parser_Tactic_refine___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Tactic_refine___closed__1;
@ -7047,7 +7047,7 @@ lean_object* _init_l_Lean_Parser_Tactic_majorPremise___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Term_optIdent___closed__2;
@ -11264,7 +11264,7 @@ lean_object* _init_l_Lean_Parser_Tactic_injection___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__2;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__2;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l_Lean_Parser_Tactic_withIds;
@ -11414,13 +11414,13 @@ lean_object* x_44; lean_object* x_45; uint8_t x_46;
x_44 = lean_ctor_get(x_43, 1);
lean_inc(x_44);
lean_dec(x_43);
x_45 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_45 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_46 = lean_string_dec_eq(x_44, x_45);
lean_dec(x_44);
if (x_46 == 0)
{
lean_object* x_47; lean_object* x_48;
x_47 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_47 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_48 = l_Lean_Parser_ParserState_mkErrorsAt(x_40, x_47, x_39);
x_8 = x_48;
goto block_38;
@ -11436,7 +11436,7 @@ else
{
lean_object* x_49; lean_object* x_50;
lean_dec(x_43);
x_49 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_49 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_50 = l_Lean_Parser_ParserState_mkErrorsAt(x_40, x_49, x_39);
x_8 = x_50;
goto block_38;
@ -11446,7 +11446,7 @@ else
{
lean_object* x_51; lean_object* x_52;
lean_dec(x_41);
x_51 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_51 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
x_52 = l_Lean_Parser_ParserState_mkErrorsAt(x_40, x_51, x_39);
x_8 = x_52;
goto block_38;
@ -11484,13 +11484,13 @@ lean_object* x_17; lean_object* x_18; uint8_t x_19;
x_17 = lean_ctor_get(x_16, 1);
lean_inc(x_17);
lean_dec(x_16);
x_18 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_18 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_19 = lean_string_dec_eq(x_17, x_18);
lean_dec(x_17);
if (x_19 == 0)
{
lean_object* x_20; lean_object* x_21; lean_object* x_22; lean_object* x_23;
x_20 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_20 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_21 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_20, x_12);
x_22 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
x_23 = l_Lean_Parser_ParserState_mkNode(x_21, x_22, x_7);
@ -11509,7 +11509,7 @@ else
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29;
lean_dec(x_16);
x_26 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_26 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_27 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_26, x_12);
x_28 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
x_29 = l_Lean_Parser_ParserState_mkNode(x_27, x_28, x_7);
@ -11520,7 +11520,7 @@ else
{
lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33;
lean_dec(x_14);
x_30 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_30 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_31 = l_Lean_Parser_ParserState_mkErrorsAt(x_13, x_30, x_12);
x_32 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
x_33 = l_Lean_Parser_ParserState_mkNode(x_31, x_32, x_7);
@ -11613,13 +11613,13 @@ lean_object* x_105; lean_object* x_106; uint8_t x_107;
x_105 = lean_ctor_get(x_104, 1);
lean_inc(x_105);
lean_dec(x_104);
x_106 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__3;
x_106 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__3;
x_107 = lean_string_dec_eq(x_105, x_106);
lean_dec(x_105);
if (x_107 == 0)
{
lean_object* x_108; lean_object* x_109;
x_108 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_108 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_55);
x_109 = l_Lean_Parser_ParserState_mkErrorsAt(x_101, x_108, x_55);
x_64 = x_109;
@ -11635,7 +11635,7 @@ else
{
lean_object* x_110; lean_object* x_111;
lean_dec(x_104);
x_110 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_110 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_55);
x_111 = l_Lean_Parser_ParserState_mkErrorsAt(x_101, x_110, x_55);
x_64 = x_111;
@ -11646,7 +11646,7 @@ else
{
lean_object* x_112; lean_object* x_113;
lean_dec(x_102);
x_112 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__10;
x_112 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__10;
lean_inc(x_55);
x_113 = l_Lean_Parser_ParserState_mkErrorsAt(x_101, x_112, x_55);
x_64 = x_113;
@ -11685,13 +11685,13 @@ lean_object* x_73; lean_object* x_74; uint8_t x_75;
x_73 = lean_ctor_get(x_72, 1);
lean_inc(x_73);
lean_dec(x_72);
x_74 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__4;
x_74 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__4;
x_75 = lean_string_dec_eq(x_73, x_74);
lean_dec(x_73);
if (x_75 == 0)
{
lean_object* x_76; lean_object* x_77; lean_object* x_78; lean_object* x_79; lean_object* x_80;
x_76 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_76 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_77 = l_Lean_Parser_ParserState_mkErrorsAt(x_69, x_76, x_68);
x_78 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
x_79 = l_Lean_Parser_ParserState_mkNode(x_77, x_78, x_63);
@ -11714,7 +11714,7 @@ else
{
lean_object* x_84; lean_object* x_85; lean_object* x_86; lean_object* x_87; lean_object* x_88;
lean_dec(x_72);
x_84 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_84 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_85 = l_Lean_Parser_ParserState_mkErrorsAt(x_69, x_84, x_68);
x_86 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
x_87 = l_Lean_Parser_ParserState_mkNode(x_85, x_86, x_63);
@ -11727,7 +11727,7 @@ else
{
lean_object* x_89; lean_object* x_90; lean_object* x_91; lean_object* x_92; lean_object* x_93;
lean_dec(x_70);
x_89 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___elambda__1___closed__7;
x_89 = l_Lean_Parser_antiquotNestedExpr___elambda__1___closed__7;
x_90 = l_Lean_Parser_ParserState_mkErrorsAt(x_69, x_89, x_68);
x_91 = l_Lean_Parser_Tactic_paren___elambda__1___closed__1;
x_92 = l_Lean_Parser_ParserState_mkNode(x_90, x_91, x_63);
@ -11772,7 +11772,7 @@ lean_object* x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = l_Lean_Parser_Tactic_nonEmptySeq;
x_2 = lean_ctor_get(x_1, 0);
lean_inc(x_2);
x_3 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__3;
x_3 = l_Lean_Parser_antiquotNestedExpr___closed__3;
x_4 = l_Lean_Parser_andthenInfo(x_2, x_3);
return x_4;
}
@ -11781,7 +11781,7 @@ lean_object* _init_l_Lean_Parser_Tactic_paren___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Parser_Parser_11__antiquotNestedExpr___closed__1;
x_1 = l_Lean_Parser_antiquotNestedExpr___closed__1;
x_2 = l_Lean_Parser_Tactic_paren___closed__1;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;
@ -12801,7 +12801,7 @@ lean_object* _init_l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_Parser_Term_subtype___closed__1;
x_1 = l_Lean_Parser_Term_implicitBinder___closed__1;
x_2 = l_Lean_Parser_Tactic_nestedTacticBlockCurly___closed__1;
x_3 = l_Lean_Parser_andthenInfo(x_1, x_2);
return x_3;

323
stage0/stdlib/Init/Lean/Parser/Term.c
View file

File diff suppressed because it is too large Load diff

9184
stage0/stdlib/Init/Lean/PrettyPrinter/Parenthesizer.c
View file

File diff suppressed because it is too large Load diff

248
stage0/stdlib/Init/Lean/Syntax.c
View file

@ -99,7 +99,6 @@ lean_object* l_Lean_Syntax_formatStxAux___main___closed__2;
lean_object* l___private_Init_Lean_Syntax_8__quoteList___main___rarg___closed__7;
uint8_t lean_nat_dec_eq(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Syntax_9__quoteOption___rarg___closed__1;
extern lean_object* l_Lean_Option_format___rarg___closed__1;
lean_object* l_Lean_Nat_HasQuote___closed__1;
lean_object* l_Lean_Syntax_updateTrailing(lean_object*, lean_object*);
extern lean_object* l_Lean_numLitKind;
@ -135,7 +134,7 @@ lean_object* l_Lean_Name_hasQuote;
lean_object* l_Lean_Syntax_getId(lean_object*);
lean_object* lean_name_mk_string(lean_object*, lean_object*);
extern lean_object* l_Lean_choiceKind;
lean_object* l___private_Init_Lean_Syntax_6__formatInfo(uint8_t, lean_object*);
lean_object* l___private_Init_Lean_Syntax_6__formatInfo(uint8_t, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_formatStx(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_Syntax_mreplace___main___rarg___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Function_comp___rarg(lean_object*, lean_object*, lean_object*);
@ -222,13 +221,12 @@ lean_object* lean_mk_syntax_num_lit(lean_object*);
extern lean_object* l_Lean_mkAppStx___closed__9;
lean_object* l_Array_iterateMAux___main___at_Lean_Syntax_reprint___main___spec__1___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_setInfo(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Syntax_6__formatInfo___closed__2;
lean_object* l_Array_umapMAux___main___at_Lean_Syntax_updateLeading___spec__2(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_HasToString___closed__1;
lean_object* l_Lean_mkTermIdFrom(lean_object*, lean_object*);
extern lean_object* l_Lean_mkOptionalNode___closed__1;
lean_object* l___private_Init_Lean_Syntax_4__updateFirst___main___rarg(lean_object*, lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Syntax_6__formatInfo___boxed(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Syntax_6__formatInfo___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_Syntax_mrewriteBottomUp___main(lean_object*);
lean_object* l_Lean_SyntaxNode_getIdAt___boxed(lean_object*, lean_object*);
lean_object* l_Lean_Syntax_getTailInfo(lean_object*);
@ -2866,7 +2864,7 @@ if (x_4 == 0)
lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8;
x_5 = lean_ctor_get(x_2, 0);
x_6 = lean_ctor_get(x_2, 1);
x_7 = lean_array_get_size(x_6);
x_7 = lean_unsigned_to_nat(0u);
x_8 = l___private_Init_Lean_Syntax_4__updateFirst___main___at_Lean_Syntax_setHeadInfoAux___main___spec__1(x_1, x_6, x_7);
if (lean_obj_tag(x_8) == 0)
{
@ -2909,7 +2907,7 @@ x_15 = lean_ctor_get(x_2, 1);
lean_inc(x_15);
lean_inc(x_14);
lean_dec(x_2);
x_16 = lean_array_get_size(x_15);
x_16 = lean_unsigned_to_nat(0u);
x_17 = l___private_Init_Lean_Syntax_4__updateFirst___main___at_Lean_Syntax_setHeadInfoAux___main___spec__1(x_1, x_15, x_16);
if (lean_obj_tag(x_17) == 0)
{
@ -3525,89 +3523,160 @@ lean_ctor_set(x_2, 0, x_1);
return x_2;
}
}
lean_object* _init_l___private_Init_Lean_Syntax_6__formatInfo___closed__2() {
lean_object* l___private_Init_Lean_Syntax_6__formatInfo(uint8_t x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_1; lean_object* x_2; lean_object* x_3; lean_object* x_4;
x_1 = 0;
x_2 = l___private_Init_Lean_Syntax_6__formatInfo___closed__1;
x_3 = l_Lean_Option_format___rarg___closed__1;
x_4 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_4, 0, x_2);
lean_ctor_set(x_4, 1, x_3);
lean_ctor_set_uint8(x_4, sizeof(void*)*2, x_1);
return x_4;
}
}
lean_object* l___private_Init_Lean_Syntax_6__formatInfo(uint8_t x_1, lean_object* x_2) {
_start:
if (x_1 == 0)
{
if (lean_obj_tag(x_2) == 0)
{
lean_object* x_3;
x_3 = l_Lean_Format_join___closed__1;
lean_dec(x_2);
return x_3;
}
else
{
if (x_1 == 0)
{
lean_object* x_4;
lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7;
x_4 = lean_ctor_get(x_2, 0);
lean_inc(x_4);
x_5 = lean_ctor_get(x_2, 1);
lean_inc(x_5);
x_6 = lean_ctor_get(x_2, 2);
lean_inc(x_6);
lean_dec(x_2);
x_4 = l_Lean_Format_join___closed__1;
return x_4;
if (lean_obj_tag(x_4) == 0)
{
lean_object* x_37;
x_37 = l_Lean_Format_join___closed__1;
x_7 = x_37;
goto block_36;
}
else
{
lean_object* x_5; lean_object* x_6;
x_5 = lean_ctor_get(x_2, 0);
lean_inc(x_5);
lean_dec(x_2);
x_6 = lean_ctor_get(x_5, 1);
lean_inc(x_6);
lean_object* x_38; lean_object* x_39; lean_object* x_40; lean_object* x_41; lean_object* x_42; lean_object* x_43; lean_object* x_44; uint8_t x_45; lean_object* x_46; lean_object* x_47;
x_38 = lean_ctor_get(x_4, 0);
lean_inc(x_38);
lean_dec(x_4);
x_39 = lean_ctor_get(x_38, 0);
lean_inc(x_39);
x_40 = lean_ctor_get(x_38, 1);
lean_inc(x_40);
x_41 = lean_ctor_get(x_38, 2);
lean_inc(x_41);
lean_dec(x_38);
x_42 = lean_string_utf8_extract(x_39, x_40, x_41);
lean_dec(x_41);
lean_dec(x_40);
lean_dec(x_39);
x_43 = l_String_quote(x_42);
x_44 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_44, 0, x_43);
x_45 = 0;
x_46 = l___private_Init_Lean_Syntax_6__formatInfo___closed__1;
x_47 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_47, 0, x_44);
lean_ctor_set(x_47, 1, x_46);
lean_ctor_set_uint8(x_47, sizeof(void*)*2, x_45);
x_7 = x_47;
goto block_36;
}
block_36:
{
uint8_t x_8; lean_object* x_9; lean_object* x_10;
x_8 = 0;
x_9 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_9, 0, x_7);
lean_ctor_set(x_9, 1, x_3);
lean_ctor_set_uint8(x_9, sizeof(void*)*2, x_8);
if (lean_obj_tag(x_5) == 0)
{
lean_object* x_25;
x_25 = l_Lean_Format_join___closed__1;
x_10 = x_25;
goto block_24;
}
else
{
lean_object* x_26; lean_object* x_27; lean_object* x_28; lean_object* x_29; lean_object* x_30; lean_object* x_31; lean_object* x_32; lean_object* x_33; lean_object* x_34; lean_object* x_35;
x_26 = lean_ctor_get(x_5, 0);
lean_inc(x_26);
lean_dec(x_5);
x_27 = l_Nat_repr(x_26);
x_28 = l_addParenHeuristic(x_27);
lean_dec(x_27);
x_29 = l_Option_HasRepr___rarg___closed__2;
x_30 = lean_string_append(x_29, x_28);
lean_dec(x_28);
x_31 = l_Option_HasRepr___rarg___closed__3;
x_32 = lean_string_append(x_30, x_31);
x_33 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_33, 0, x_32);
x_34 = l___private_Init_Lean_Syntax_6__formatInfo___closed__1;
x_35 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_35, 0, x_34);
lean_ctor_set(x_35, 1, x_33);
lean_ctor_set_uint8(x_35, sizeof(void*)*2, x_8);
x_10 = x_35;
goto block_24;
}
block_24:
{
lean_object* x_11;
x_11 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_11, 0, x_9);
lean_ctor_set(x_11, 1, x_10);
lean_ctor_set_uint8(x_11, sizeof(void*)*2, x_8);
if (lean_obj_tag(x_6) == 0)
{
lean_object* x_7;
x_7 = l___private_Init_Lean_Syntax_6__formatInfo___closed__2;
return x_7;
lean_object* x_12; lean_object* x_13;
x_12 = l_Lean_Format_join___closed__1;
x_13 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_13, 0, x_11);
lean_ctor_set(x_13, 1, x_12);
lean_ctor_set_uint8(x_13, sizeof(void*)*2, x_8);
return x_13;
}
else
{
lean_object* x_8; lean_object* x_9; lean_object* x_10; lean_object* x_11; lean_object* x_12; lean_object* x_13; lean_object* x_14; lean_object* x_15; uint8_t x_16; lean_object* x_17; lean_object* x_18;
x_8 = lean_ctor_get(x_6, 0);
lean_inc(x_8);
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_14 = lean_ctor_get(x_6, 0);
lean_inc(x_14);
lean_dec(x_6);
x_9 = l_Nat_repr(x_8);
x_10 = l_addParenHeuristic(x_9);
lean_dec(x_9);
x_11 = l_Option_HasRepr___rarg___closed__2;
x_12 = lean_string_append(x_11, x_10);
lean_dec(x_10);
x_13 = l_Option_HasRepr___rarg___closed__3;
x_14 = lean_string_append(x_12, x_13);
x_15 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_15, 0, x_14);
x_16 = 0;
x_17 = l___private_Init_Lean_Syntax_6__formatInfo___closed__1;
x_18 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_18, 0, x_17);
lean_ctor_set(x_18, 1, x_15);
lean_ctor_set_uint8(x_18, sizeof(void*)*2, x_16);
return x_18;
x_15 = lean_ctor_get(x_14, 0);
lean_inc(x_15);
x_16 = lean_ctor_get(x_14, 1);
lean_inc(x_16);
x_17 = lean_ctor_get(x_14, 2);
lean_inc(x_17);
lean_dec(x_14);
x_18 = lean_string_utf8_extract(x_15, x_16, x_17);
lean_dec(x_17);
lean_dec(x_16);
lean_dec(x_15);
x_19 = l_String_quote(x_18);
x_20 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_20, 0, x_19);
x_21 = l___private_Init_Lean_Syntax_6__formatInfo___closed__1;
x_22 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_22, 0, x_21);
lean_ctor_set(x_22, 1, x_20);
lean_ctor_set_uint8(x_22, sizeof(void*)*2, x_8);
x_23 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_23, 0, x_11);
lean_ctor_set(x_23, 1, x_22);
lean_ctor_set_uint8(x_23, sizeof(void*)*2, x_8);
return x_23;
}
}
}
}
}
lean_object* l___private_Init_Lean_Syntax_6__formatInfo___boxed(lean_object* x_1, lean_object* x_2) {
}
lean_object* l___private_Init_Lean_Syntax_6__formatInfo___boxed(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
uint8_t x_3; lean_object* x_4;
x_3 = lean_unbox(x_1);
uint8_t x_4; lean_object* x_5;
x_4 = lean_unbox(x_1);
lean_dec(x_1);
x_4 = l___private_Init_Lean_Syntax_6__formatInfo(x_3, x_2);
return x_4;
x_5 = l___private_Init_Lean_Syntax_6__formatInfo(x_4, x_2, x_3);
return x_5;
}
}
lean_object* l_List_map___main___at_Lean_Syntax_formatStxAux___main___spec__1(lean_object* x_1, uint8_t x_2, lean_object* x_3, lean_object* x_4) {
@ -4212,7 +4281,7 @@ return x_99;
}
case 2:
{
lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104; lean_object* x_105; uint8_t x_106; lean_object* x_107;
lean_object* x_100; lean_object* x_101; lean_object* x_102; lean_object* x_103; lean_object* x_104;
x_100 = lean_ctor_get(x_4, 0);
lean_inc(x_100);
x_101 = lean_ctor_get(x_4, 1);
@ -4221,42 +4290,29 @@ lean_dec(x_4);
x_102 = l_String_quote(x_101);
x_103 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_103, 0, x_102);
x_104 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_104, 0, x_100);
x_105 = l___private_Init_Lean_Syntax_6__formatInfo(x_2, x_104);
x_106 = 0;
x_107 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_107, 0, x_103);
lean_ctor_set(x_107, 1, x_105);
lean_ctor_set_uint8(x_107, sizeof(void*)*2, x_106);
return x_107;
x_104 = l___private_Init_Lean_Syntax_6__formatInfo(x_2, x_100, x_103);
return x_104;
}
default:
{
lean_object* x_108; lean_object* x_109; lean_object* x_110; lean_object* x_111; lean_object* x_112; uint8_t x_113; lean_object* x_114; lean_object* x_115; lean_object* x_116; lean_object* x_117; lean_object* x_118;
x_108 = lean_ctor_get(x_4, 0);
lean_inc(x_108);
x_109 = lean_ctor_get(x_4, 2);
lean_inc(x_109);
lean_object* x_105; lean_object* x_106; lean_object* x_107; lean_object* x_108; lean_object* x_109; uint8_t x_110; lean_object* x_111; lean_object* x_112; lean_object* x_113;
x_105 = lean_ctor_get(x_4, 0);
lean_inc(x_105);
x_106 = lean_ctor_get(x_4, 2);
lean_inc(x_106);
lean_dec(x_4);
x_110 = l_System_FilePath_dirName___closed__1;
x_111 = l_Lean_Name_toStringWithSep___main(x_110, x_109);
x_112 = lean_alloc_ctor(2, 1, 0);
x_107 = l_System_FilePath_dirName___closed__1;
x_108 = l_Lean_Name_toStringWithSep___main(x_107, x_106);
x_109 = lean_alloc_ctor(2, 1, 0);
lean_ctor_set(x_109, 0, x_108);
x_110 = 0;
x_111 = l_Lean_formatDataValue___closed__2;
x_112 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_112, 0, x_111);
x_113 = 0;
x_114 = l_Lean_formatDataValue___closed__2;
x_115 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_115, 0, x_114);
lean_ctor_set(x_115, 1, x_112);
lean_ctor_set_uint8(x_115, sizeof(void*)*2, x_113);
x_116 = lean_alloc_ctor(1, 1, 0);
lean_ctor_set(x_116, 0, x_108);
x_117 = l___private_Init_Lean_Syntax_6__formatInfo(x_2, x_116);
x_118 = lean_alloc_ctor(4, 2, 1);
lean_ctor_set(x_118, 0, x_115);
lean_ctor_set(x_118, 1, x_117);
lean_ctor_set_uint8(x_118, sizeof(void*)*2, x_113);
return x_118;
lean_ctor_set(x_112, 1, x_109);
lean_ctor_set_uint8(x_112, sizeof(void*)*2, x_110);
x_113 = l___private_Init_Lean_Syntax_6__formatInfo(x_2, x_105, x_112);
return x_113;
}
}
}
@ -5167,8 +5223,6 @@ l_Lean_Syntax_reprint___main___closed__1 = _init_l_Lean_Syntax_reprint___main___
lean_mark_persistent(l_Lean_Syntax_reprint___main___closed__1);
l___private_Init_Lean_Syntax_6__formatInfo___closed__1 = _init_l___private_Init_Lean_Syntax_6__formatInfo___closed__1();
lean_mark_persistent(l___private_Init_Lean_Syntax_6__formatInfo___closed__1);
l___private_Init_Lean_Syntax_6__formatInfo___closed__2 = _init_l___private_Init_Lean_Syntax_6__formatInfo___closed__2();
lean_mark_persistent(l___private_Init_Lean_Syntax_6__formatInfo___closed__2);
l_Lean_Syntax_formatStxAux___main___closed__1 = _init_l_Lean_Syntax_formatStxAux___main___closed__1();
lean_mark_persistent(l_Lean_Syntax_formatStxAux___main___closed__1);
l_Lean_Syntax_formatStxAux___main___closed__2 = _init_l_Lean_Syntax_formatStxAux___main___closed__2();

238
stage0/stdlib/Init/Lean/ToExpr.c
View file

@ -14,28 +14,34 @@
extern "C" {
#endif
lean_object* l_Lean_nameToExpr___closed__3;
lean_object* l_Lean_listToExpr___rarg___closed__9;
lean_object* l_Lean_unitToExpr___closed__3;
lean_object* l_Lean_arrayToExpr___rarg(lean_object*);
lean_object* l_Lean_boolToExpr;
lean_object* l_Lean_unitToExpr___lambda__1___closed__2;
lean_object* l_Lean_unitToExpr___lambda__1___closed__4;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__8;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__4;
lean_object* l_Lean_unitToExpr___closed__2;
extern lean_object* l_Option_HasRepr___rarg___closed__1;
lean_object* l_Lean_List_toExprAux___main___rarg(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_listToExpr___rarg___closed__1;
lean_object* l_Lean_arrayToExpr___rarg___closed__3;
lean_object* l_Lean_Name_toExprAux___main___closed__8;
lean_object* l_Lean_optionToExpr___rarg___lambda__1(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_natToExpr___closed__2;
lean_object* l_Lean_Name_toExprAux___main___closed__1;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__6;
lean_object* l_Lean_arrayToExpr___rarg___lambda__1___closed__3;
lean_object* l_Lean_charToExpr;
lean_object* l_Lean_unitToExpr___lambda__1___closed__5;
lean_object* l_Lean_optionToExpr___rarg___closed__1;
extern lean_object* l_Lean_Literal_type___closed__3;
lean_object* l_Lean_nameToExpr___closed__2;
lean_object* l_Lean_listToExpr___rarg___closed__8;
lean_object* l_Lean_natToExpr___closed__1;
lean_object* l_Lean_unitToExpr___lambda__1___closed__3;
lean_object* l_Lean_Name_toExprAux___main___closed__2;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__1;
lean_object* l_Lean_prodToExpr(lean_object*, lean_object*);
extern lean_object* l_Nat_HasOfNat___closed__1;
lean_object* l_Lean_listToExpr___rarg___closed__4;
@ -70,7 +76,7 @@ lean_object* l_Lean_charToExpr___lambda__1___boxed(lean_object*);
lean_object* l_Lean_arrayToExpr(lean_object*);
lean_object* l_Lean_charToExpr___lambda__1___closed__2;
lean_object* l_Lean_Name_toExprAux___main___closed__7;
lean_object* l_Lean_listToExpr___rarg___closed__10;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__3;
lean_object* l_Lean_prodToExpr___rarg___lambda__1___closed__1;
lean_object* l_Lean_prodToExpr___rarg___lambda__1___closed__2;
lean_object* l_Lean_boolToExpr___lambda__1___closed__6;
@ -87,12 +93,14 @@ lean_object* l_Lean_Name_toExprAux___main(lean_object*);
lean_object* l_Lean_listToExpr(lean_object*);
lean_object* l_Lean_boolToExpr___lambda__1___closed__5;
lean_object* l_Lean_listToExpr___rarg___closed__7;
lean_object* l_Lean_optionToExpr___rarg(lean_object*);
lean_object* l_Lean_charToExpr___closed__3;
lean_object* l_Lean_Name_toExprAux___main___closed__5;
lean_object* l_Lean_mkApp4(lean_object*, lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_unitToExpr;
lean_object* l_Lean_prodToExpr___rarg___lambda__1___closed__5;
lean_object* l_Lean_prodToExpr___rarg___closed__1;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__5;
lean_object* l_Lean_exprToExpr___closed__4;
lean_object* l_Lean_prodToExpr___rarg___lambda__1___closed__3;
lean_object* l_Lean_charToExpr___closed__2;
@ -102,7 +110,9 @@ lean_object* l_Lean_boolToExpr___lambda__1___boxed(lean_object*);
lean_object* l_Lean_boolToExpr___lambda__1___closed__4;
lean_object* l_Lean_Name_toExprAux___main___closed__4;
lean_object* l_Lean_exprToExpr___closed__2;
lean_object* l_Lean_optionToExpr(lean_object*);
lean_object* l_Lean_charToExpr___closed__1;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__2;
lean_object* l_Lean_exprToExpr___closed__1;
lean_object* l_Lean_arrayToExpr___rarg___lambda__1___boxed(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_arrayToExpr___rarg___lambda__1___closed__2;
@ -114,6 +124,7 @@ lean_object* l_Lean_arrayToExpr___rarg___lambda__1___closed__4;
lean_object* l_Lean_exprToExpr;
lean_object* l_Lean_boolToExpr___lambda__1___closed__1;
lean_object* l_Lean_arrayToExpr___rarg___closed__2;
lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__7;
lean_object* l_Lean_mkAppB(lean_object*, lean_object*, lean_object*);
lean_object* l_Lean_List_toExprAux(lean_object*);
lean_object* l_Lean_strToExpr;
@ -738,6 +749,147 @@ x_1 = l_Lean_nameToExpr___closed__4;
return x_1;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__1() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("Option");
return x_1;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__2() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__3() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_optionToExpr___rarg___lambda__1___closed__2;
x_2 = l_Option_HasRepr___rarg___closed__1;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__4() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_levelZero;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
return x_3;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_optionToExpr___rarg___lambda__1___closed__3;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__6() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("cons");
return x_1;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__7() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_optionToExpr___rarg___lambda__1___closed__2;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__6;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___lambda__1___closed__8() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_optionToExpr___rarg___lambda__1___closed__7;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_optionToExpr___rarg___lambda__1(lean_object* x_1, lean_object* x_2, lean_object* x_3) {
_start:
{
if (lean_obj_tag(x_3) == 0)
{
lean_object* x_4; lean_object* x_5;
lean_dec(x_2);
x_4 = l_Lean_optionToExpr___rarg___lambda__1___closed__5;
x_5 = l_Lean_mkApp(x_4, x_1);
return x_5;
}
else
{
lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_6 = lean_ctor_get(x_3, 0);
lean_inc(x_6);
lean_dec(x_3);
x_7 = lean_ctor_get(x_2, 0);
lean_inc(x_7);
lean_dec(x_2);
x_8 = lean_apply_1(x_7, x_6);
x_9 = l_Lean_optionToExpr___rarg___lambda__1___closed__8;
x_10 = l_Lean_mkAppB(x_9, x_1, x_8);
return x_10;
}
}
}
lean_object* _init_l_Lean_optionToExpr___rarg___closed__1() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_optionToExpr___rarg___lambda__1___closed__2;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
}
lean_object* l_Lean_optionToExpr___rarg(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 = lean_ctor_get(x_1, 1);
lean_inc(x_2);
lean_inc(x_2);
x_3 = lean_alloc_closure((void*)(l_Lean_optionToExpr___rarg___lambda__1), 3, 2);
lean_closure_set(x_3, 0, x_2);
lean_closure_set(x_3, 1, x_1);
x_4 = l_Lean_optionToExpr___rarg___closed__1;
x_5 = l_Lean_mkApp(x_4, x_2);
x_6 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_6, 0, x_3);
lean_ctor_set(x_6, 1, x_5);
return x_6;
}
}
lean_object* l_Lean_optionToExpr(lean_object* x_1) {
_start:
{
lean_object* x_2;
x_2 = lean_alloc_closure((void*)(l_Lean_optionToExpr___rarg), 1, 0);
return x_2;
}
}
lean_object* l_Lean_List_toExprAux___main___rarg(lean_object* x_1, lean_object* x_2, lean_object* x_3, lean_object* x_4) {
_start:
{
@ -848,11 +1000,9 @@ lean_object* _init_l_Lean_listToExpr___rarg___closed__5() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = lean_box(0);
x_2 = l_Lean_levelZero;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_2);
lean_ctor_set(x_3, 1, x_1);
x_1 = l_Lean_listToExpr___rarg___closed__4;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
}
@ -860,18 +1010,20 @@ lean_object* _init_l_Lean_listToExpr___rarg___closed__6() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_listToExpr___rarg___closed__4;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_3 = l_Lean_mkConst(x_1, x_2);
x_1 = l_Lean_listToExpr___rarg___closed__2;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__6;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_listToExpr___rarg___closed__7() {
_start:
{
lean_object* x_1;
x_1 = lean_mk_string("cons");
return x_1;
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_listToExpr___rarg___closed__6;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_listToExpr___rarg___closed__8() {
@ -879,27 +1031,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_listToExpr___rarg___closed__2;
x_2 = l_Lean_listToExpr___rarg___closed__7;
x_3 = lean_name_mk_string(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_listToExpr___rarg___closed__9() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_listToExpr___rarg___closed__8;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
}
lean_object* _init_l_Lean_listToExpr___rarg___closed__10() {
_start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_listToExpr___rarg___closed__2;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
@ -910,17 +1042,17 @@ _start:
lean_object* x_2; lean_object* x_3; lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_object* x_8; lean_object* x_9; lean_object* x_10;
x_2 = lean_ctor_get(x_1, 1);
lean_inc(x_2);
x_3 = l_Lean_listToExpr___rarg___closed__6;
x_3 = l_Lean_listToExpr___rarg___closed__5;
lean_inc(x_2);
x_4 = l_Lean_mkApp(x_3, x_2);
x_5 = l_Lean_listToExpr___rarg___closed__9;
x_5 = l_Lean_listToExpr___rarg___closed__7;
lean_inc(x_2);
x_6 = l_Lean_mkApp(x_5, x_2);
x_7 = lean_alloc_closure((void*)(l_Lean_List_toExprAux___rarg___boxed), 4, 3);
lean_closure_set(x_7, 0, x_1);
lean_closure_set(x_7, 1, x_4);
lean_closure_set(x_7, 2, x_6);
x_8 = l_Lean_listToExpr___rarg___closed__10;
x_8 = l_Lean_listToExpr___rarg___closed__8;
x_9 = l_Lean_mkApp(x_8, x_2);
x_10 = lean_alloc_ctor(0, 2, 0);
lean_ctor_set(x_10, 0, x_7);
@ -959,7 +1091,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_arrayToExpr___rarg___lambda__1___closed__2;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
@ -969,7 +1101,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_listToExpr___rarg___closed__4;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
@ -981,7 +1113,7 @@ lean_object* x_4; lean_object* x_5; lean_object* x_6; lean_object* x_7; lean_obj
x_4 = l_Lean_arrayToExpr___rarg___lambda__1___closed__4;
lean_inc(x_1);
x_5 = l_Lean_mkApp(x_4, x_1);
x_6 = l_Lean_listToExpr___rarg___closed__9;
x_6 = l_Lean_listToExpr___rarg___closed__7;
lean_inc(x_1);
x_7 = l_Lean_mkApp(x_6, x_1);
x_8 = l_Array_toList___rarg(x_3);
@ -1015,7 +1147,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_arrayToExpr___rarg___closed__2;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
@ -1096,7 +1228,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l_Lean_levelZero;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = lean_alloc_ctor(1, 2, 0);
lean_ctor_set(x_3, 0, x_1);
lean_ctor_set(x_3, 1, x_2);
@ -1289,6 +1421,24 @@ l_Lean_nameToExpr___closed__4 = _init_l_Lean_nameToExpr___closed__4();
lean_mark_persistent(l_Lean_nameToExpr___closed__4);
l_Lean_nameToExpr = _init_l_Lean_nameToExpr();
lean_mark_persistent(l_Lean_nameToExpr);
l_Lean_optionToExpr___rarg___lambda__1___closed__1 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__1();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__1);
l_Lean_optionToExpr___rarg___lambda__1___closed__2 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__2();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__2);
l_Lean_optionToExpr___rarg___lambda__1___closed__3 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__3();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__3);
l_Lean_optionToExpr___rarg___lambda__1___closed__4 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__4();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__4);
l_Lean_optionToExpr___rarg___lambda__1___closed__5 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__5();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__5);
l_Lean_optionToExpr___rarg___lambda__1___closed__6 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__6();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__6);
l_Lean_optionToExpr___rarg___lambda__1___closed__7 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__7();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__7);
l_Lean_optionToExpr___rarg___lambda__1___closed__8 = _init_l_Lean_optionToExpr___rarg___lambda__1___closed__8();
lean_mark_persistent(l_Lean_optionToExpr___rarg___lambda__1___closed__8);
l_Lean_optionToExpr___rarg___closed__1 = _init_l_Lean_optionToExpr___rarg___closed__1();
lean_mark_persistent(l_Lean_optionToExpr___rarg___closed__1);
l_Lean_listToExpr___rarg___closed__1 = _init_l_Lean_listToExpr___rarg___closed__1();
lean_mark_persistent(l_Lean_listToExpr___rarg___closed__1);
l_Lean_listToExpr___rarg___closed__2 = _init_l_Lean_listToExpr___rarg___closed__2();
@ -1305,10 +1455,6 @@ l_Lean_listToExpr___rarg___closed__7 = _init_l_Lean_listToExpr___rarg___closed__
lean_mark_persistent(l_Lean_listToExpr___rarg___closed__7);
l_Lean_listToExpr___rarg___closed__8 = _init_l_Lean_listToExpr___rarg___closed__8();
lean_mark_persistent(l_Lean_listToExpr___rarg___closed__8);
l_Lean_listToExpr___rarg___closed__9 = _init_l_Lean_listToExpr___rarg___closed__9();
lean_mark_persistent(l_Lean_listToExpr___rarg___closed__9);
l_Lean_listToExpr___rarg___closed__10 = _init_l_Lean_listToExpr___rarg___closed__10();
lean_mark_persistent(l_Lean_listToExpr___rarg___closed__10);
l_Lean_arrayToExpr___rarg___lambda__1___closed__1 = _init_l_Lean_arrayToExpr___rarg___lambda__1___closed__1();
lean_mark_persistent(l_Lean_arrayToExpr___rarg___lambda__1___closed__1);
l_Lean_arrayToExpr___rarg___lambda__1___closed__2 = _init_l_Lean_arrayToExpr___rarg___lambda__1___closed__2();

6
stage0/stdlib/Init/Lean/Util/WHNF.c
View file

@ -32,6 +32,7 @@ lean_object* l_Lean_WHNF_whnfEasyCases___main___rarg(lean_object*, lean_object*,
lean_object* l_unreachable_x21___rarg(lean_object*);
lean_object* l_Lean_WHNF_matchConstAux(lean_object*, lean_object*);
lean_object* l___private_Init_Lean_Util_WHNF_1__getFirstCtor___rarg(lean_object*, lean_object*, lean_object*);
extern lean_object* l_Lean_optionToExpr___rarg___lambda__1___closed__4;
lean_object* l___private_Init_Lean_Util_WHNF_4__toCtorWhenK___rarg___lambda__1(lean_object*, lean_object*, uint8_t);
lean_object* l_Lean_WHNF_toCtorIfLit___closed__1;
uint8_t lean_name_eq(lean_object*, lean_object*);
@ -83,7 +84,6 @@ extern lean_object* l_Lean_charToExpr___lambda__1___closed__5;
lean_object* l___private_Init_Lean_Util_WHNF_7__deltaDefinition___rarg___boxed(lean_object*, lean_object*, lean_object*, lean_object*);
lean_object* lean_nat_sub(lean_object*, lean_object*);
lean_object* l_Array_shrink___main___rarg(lean_object*, lean_object*);
extern lean_object* l_Lean_listToExpr___rarg___closed__5;
lean_object* l___private_Init_Lean_Util_WHNF_4__toCtorWhenK___rarg___lambda__4___closed__1;
lean_object* l_Lean_WHNF_toCtorIfLit___closed__8;
uint8_t l_Lean_Expr_hasExprMVar(lean_object*);
@ -728,7 +728,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Syntax_8__quoteList___main___rarg___closed__4;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}
@ -748,7 +748,7 @@ _start:
{
lean_object* x_1; lean_object* x_2; lean_object* x_3;
x_1 = l___private_Init_Lean_Syntax_8__quoteList___main___rarg___closed__7;
x_2 = l_Lean_listToExpr___rarg___closed__5;
x_2 = l_Lean_optionToExpr___rarg___lambda__1___closed__4;
x_3 = l_Lean_mkConst(x_1, x_2);
return x_3;
}

29
stage0/stdlib/Lean.c Normal file
View file

@ -0,0 +1,29 @@
// Lean compiler output
// Module: Lean
// Imports: Init
#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* initialize_Init(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Lean(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(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);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif

29
stage0/stdlib/Lean/Util.c Normal file
View file

@ -0,0 +1,29 @@
// Lean compiler output
// Module: Lean.Util
// Imports: Init
#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* initialize_Init(lean_object*);
static bool _G_initialized = false;
lean_object* initialize_Lean_Util(lean_object* w) {
lean_object * res;
if (_G_initialized) return lean_mk_io_result(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);
return lean_mk_io_result(lean_box(0));
}
#ifdef __cplusplus
}
#endif